[Home] [Help]
44: IS
45: BEGIN
46: if (p_msg_level >= G_MSG_LEVEL) then
47:
48: FND_LOG.STRING(p_msg_level, G_PKG_NAME, p_msg);
49:
50: end if;
51:
52: EXCEPTION
50: end if;
51:
52: EXCEPTION
53: WHEN OTHERS THEN
54: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: ' || sqlerrm);
55: END;
56:
57:
58:
148: l_return := 'N';
149: OPEN get_data_crs(P_DISB_HEADER_ID);
150: FETCH get_data_crs INTO l_return;
151: CLOSE get_data_crs;
152: LogMessage(FND_LOG.LEVEL_STATEMENT, 'IS_SUBMIT_DISB_ENABLED for disb header ' || P_DISB_HEADER_ID || ' = ' || l_return);
153:
154: return l_return;
155: END;
156:
220: l_return := 'N';
221: OPEN get_data_crs(P_LOAN_ID);
222: FETCH get_data_crs INTO l_return;
223: CLOSE get_data_crs;
224: LogMessage(FND_LOG.LEVEL_STATEMENT, 'IS_CANCEL_DISB_ENABLED for loan ' || P_LOAN_ID || ' = ' || l_return);
225:
226: return l_return;
227: END;
228:
298: l_return := 'N';
299: OPEN get_data_crs(P_DISB_HEADER_ID);
300: FETCH get_data_crs INTO l_return;
301: CLOSE get_data_crs;
302: LogMessage(FND_LOG.LEVEL_STATEMENT, 'IS_DISB_HDR_READ_ONLY for disb header ' || P_DISB_HEADER_ID || ' = ' || l_return);
303:
304: return l_return;
305: END;
306:
373: l_return := 'N';
374: OPEN get_data_crs(P_DISB_LINE_ID);
375: FETCH get_data_crs INTO l_return;
376: CLOSE get_data_crs;
377: LogMessage(FND_LOG.LEVEL_STATEMENT, 'IS_DISB_LINE_READ_ONLY for disb line ' || P_DISB_LINE_ID || ' = ' || l_return);
378:
379: return l_return;
380: END;
381:
441: l_return := 'N';
442: OPEN get_data_crs(P_DISB_HEADER_ID);
443: FETCH get_data_crs INTO l_return;
444: CLOSE get_data_crs;
445: LogMessage(FND_LOG.LEVEL_STATEMENT, l_api_name || ' for disb header ' || P_DISB_HEADER_ID || ' = ' || l_return);
446:
447: return l_return;
448: END;
449:
511: +-----------------------------------------------------------------------*/
512:
513: BEGIN
514:
515: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
516: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
517:
518: -- Standard start of API savepoint
519: SAVEPOINT INSERT_DISB_HEADER;
512:
513: BEGIN
514:
515: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
516: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
517:
518: -- Standard start of API savepoint
519: SAVEPOINT INSERT_DISB_HEADER;
520: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
516: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
517:
518: -- Standard start of API savepoint
519: SAVEPOINT INSERT_DISB_HEADER;
520: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
521:
522: -- Standard call to check for call compatibility
523: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
533: l_return_status := FND_API.G_RET_STS_SUCCESS;
534:
535: -- START OF BODY OF API
536:
537: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting disbursement header...');
538: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
539: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || P_DISB_HEADER_REC.LOAN_ID);
540: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACTIVITY_CODE: ' || P_DISB_HEADER_REC.ACTIVITY_CODE);
541: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISBURSEMENT_NUMBER: ' || P_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
534:
535: -- START OF BODY OF API
536:
537: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting disbursement header...');
538: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
539: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || P_DISB_HEADER_REC.LOAN_ID);
540: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACTIVITY_CODE: ' || P_DISB_HEADER_REC.ACTIVITY_CODE);
541: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISBURSEMENT_NUMBER: ' || P_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
542: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_AMOUNT: ' || P_DISB_HEADER_REC.HEADER_AMOUNT);
535: -- START OF BODY OF API
536:
537: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting disbursement header...');
538: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
539: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || P_DISB_HEADER_REC.LOAN_ID);
540: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACTIVITY_CODE: ' || P_DISB_HEADER_REC.ACTIVITY_CODE);
541: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISBURSEMENT_NUMBER: ' || P_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
542: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_AMOUNT: ' || P_DISB_HEADER_REC.HEADER_AMOUNT);
543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_PERCENT: ' || P_DISB_HEADER_REC.HEADER_PERCENT);
536:
537: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting disbursement header...');
538: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
539: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || P_DISB_HEADER_REC.LOAN_ID);
540: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACTIVITY_CODE: ' || P_DISB_HEADER_REC.ACTIVITY_CODE);
541: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISBURSEMENT_NUMBER: ' || P_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
542: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_AMOUNT: ' || P_DISB_HEADER_REC.HEADER_AMOUNT);
543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_PERCENT: ' || P_DISB_HEADER_REC.HEADER_PERCENT);
544: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || P_DISB_HEADER_REC.STATUS);
537: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting disbursement header...');
538: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
539: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || P_DISB_HEADER_REC.LOAN_ID);
540: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACTIVITY_CODE: ' || P_DISB_HEADER_REC.ACTIVITY_CODE);
541: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISBURSEMENT_NUMBER: ' || P_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
542: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_AMOUNT: ' || P_DISB_HEADER_REC.HEADER_AMOUNT);
543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_PERCENT: ' || P_DISB_HEADER_REC.HEADER_PERCENT);
544: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || P_DISB_HEADER_REC.STATUS);
545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || P_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
538: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
539: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || P_DISB_HEADER_REC.LOAN_ID);
540: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACTIVITY_CODE: ' || P_DISB_HEADER_REC.ACTIVITY_CODE);
541: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISBURSEMENT_NUMBER: ' || P_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
542: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_AMOUNT: ' || P_DISB_HEADER_REC.HEADER_AMOUNT);
543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_PERCENT: ' || P_DISB_HEADER_REC.HEADER_PERCENT);
544: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || P_DISB_HEADER_REC.STATUS);
545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || P_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
546: LogMessage(FND_LOG.LEVEL_STATEMENT, 'PAYMENT_REQUEST_DATE: ' || P_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
539: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || P_DISB_HEADER_REC.LOAN_ID);
540: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACTIVITY_CODE: ' || P_DISB_HEADER_REC.ACTIVITY_CODE);
541: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISBURSEMENT_NUMBER: ' || P_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
542: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_AMOUNT: ' || P_DISB_HEADER_REC.HEADER_AMOUNT);
543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_PERCENT: ' || P_DISB_HEADER_REC.HEADER_PERCENT);
544: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || P_DISB_HEADER_REC.STATUS);
545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || P_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
546: LogMessage(FND_LOG.LEVEL_STATEMENT, 'PAYMENT_REQUEST_DATE: ' || P_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
547: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TARGET_DATE: ' || P_DISB_HEADER_REC.TARGET_DATE);
540: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACTIVITY_CODE: ' || P_DISB_HEADER_REC.ACTIVITY_CODE);
541: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISBURSEMENT_NUMBER: ' || P_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
542: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_AMOUNT: ' || P_DISB_HEADER_REC.HEADER_AMOUNT);
543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_PERCENT: ' || P_DISB_HEADER_REC.HEADER_PERCENT);
544: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || P_DISB_HEADER_REC.STATUS);
545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || P_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
546: LogMessage(FND_LOG.LEVEL_STATEMENT, 'PAYMENT_REQUEST_DATE: ' || P_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
547: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TARGET_DATE: ' || P_DISB_HEADER_REC.TARGET_DATE);
548: LogMessage(FND_LOG.LEVEL_STATEMENT, 'AUTOFUNDING_FLAG: ' || P_DISB_HEADER_REC.AUTOFUNDING_FLAG);
541: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISBURSEMENT_NUMBER: ' || P_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
542: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_AMOUNT: ' || P_DISB_HEADER_REC.HEADER_AMOUNT);
543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_PERCENT: ' || P_DISB_HEADER_REC.HEADER_PERCENT);
544: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || P_DISB_HEADER_REC.STATUS);
545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || P_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
546: LogMessage(FND_LOG.LEVEL_STATEMENT, 'PAYMENT_REQUEST_DATE: ' || P_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
547: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TARGET_DATE: ' || P_DISB_HEADER_REC.TARGET_DATE);
548: LogMessage(FND_LOG.LEVEL_STATEMENT, 'AUTOFUNDING_FLAG: ' || P_DISB_HEADER_REC.AUTOFUNDING_FLAG);
549:
542: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_AMOUNT: ' || P_DISB_HEADER_REC.HEADER_AMOUNT);
543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_PERCENT: ' || P_DISB_HEADER_REC.HEADER_PERCENT);
544: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || P_DISB_HEADER_REC.STATUS);
545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || P_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
546: LogMessage(FND_LOG.LEVEL_STATEMENT, 'PAYMENT_REQUEST_DATE: ' || P_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
547: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TARGET_DATE: ' || P_DISB_HEADER_REC.TARGET_DATE);
548: LogMessage(FND_LOG.LEVEL_STATEMENT, 'AUTOFUNDING_FLAG: ' || P_DISB_HEADER_REC.AUTOFUNDING_FLAG);
549:
550: -- validation
543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_PERCENT: ' || P_DISB_HEADER_REC.HEADER_PERCENT);
544: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || P_DISB_HEADER_REC.STATUS);
545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || P_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
546: LogMessage(FND_LOG.LEVEL_STATEMENT, 'PAYMENT_REQUEST_DATE: ' || P_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
547: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TARGET_DATE: ' || P_DISB_HEADER_REC.TARGET_DATE);
548: LogMessage(FND_LOG.LEVEL_STATEMENT, 'AUTOFUNDING_FLAG: ' || P_DISB_HEADER_REC.AUTOFUNDING_FLAG);
549:
550: -- validation
551: l_pk_id := P_DISB_HEADER_REC.DISB_HEADER_ID;
544: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || P_DISB_HEADER_REC.STATUS);
545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || P_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
546: LogMessage(FND_LOG.LEVEL_STATEMENT, 'PAYMENT_REQUEST_DATE: ' || P_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
547: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TARGET_DATE: ' || P_DISB_HEADER_REC.TARGET_DATE);
548: LogMessage(FND_LOG.LEVEL_STATEMENT, 'AUTOFUNDING_FLAG: ' || P_DISB_HEADER_REC.AUTOFUNDING_FLAG);
549:
550: -- validation
551: l_pk_id := P_DISB_HEADER_REC.DISB_HEADER_ID;
552:
551: l_pk_id := P_DISB_HEADER_REC.DISB_HEADER_ID;
552:
553: if P_DISB_HEADER_REC.LOAN_ID is null then
554:
555: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
556: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
557: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan_id' );
558: FND_MSG_PUB.ADD;
559: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
555: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
556: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
557: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan_id' );
558: FND_MSG_PUB.ADD;
559: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
560: RAISE FND_API.G_EXC_ERROR;
561:
562: end if;
563:
574: P_PAYMENT_REQUEST_DATE => P_DISB_HEADER_REC.PAYMENT_REQUEST_DATE,
575: P_OBJECT_VERSION_NUMBER => nvl(P_DISB_HEADER_REC.OBJECT_VERSION_NUMBER, 1),
576: P_AUTOFUNDING_FLAG => P_DISB_HEADER_REC.AUTOFUNDING_FLAG);
577:
578: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || l_pk_id);
579:
580: if P_COMMIT = FND_API.G_TRUE then
581: COMMIT WORK;
582: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
578: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || l_pk_id);
579:
580: if P_COMMIT = FND_API.G_TRUE then
581: COMMIT WORK;
582: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
583: end if;
584:
585: -- END OF BODY OF API
586: x_return_status := FND_API.G_RET_STS_SUCCESS;
584:
585: -- END OF BODY OF API
586: x_return_status := FND_API.G_RET_STS_SUCCESS;
587:
588: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully inserted disbursement header' || l_pk_id);
589:
590: -- Standard call to get message count and if count is 1, get message info
591: FND_MSG_PUB.Count_And_Get(
592: p_encoded => FND_API.G_FALSE,
592: p_encoded => FND_API.G_FALSE,
593: p_count => x_msg_count,
594: p_data => x_msg_data);
595:
596: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
597:
598: EXCEPTION
599: WHEN FND_API.G_EXC_ERROR THEN
600: ROLLBACK TO INSERT_DISB_HEADER;
599: WHEN FND_API.G_EXC_ERROR THEN
600: ROLLBACK TO INSERT_DISB_HEADER;
601: x_return_status := FND_API.G_RET_STS_ERROR;
602: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
603: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
605: ROLLBACK TO INSERT_DISB_HEADER;
606: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
607: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
605: ROLLBACK TO INSERT_DISB_HEADER;
606: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
607: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
608: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
609: WHEN OTHERS THEN
610: ROLLBACK TO INSERT_DISB_HEADER;
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
612: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
612: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
613: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
614: END IF;
615: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
616: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
617: END;
618:
619:
620:
688: -- FOR UPDATE OF disb_header_id NOWAIT;
689:
690: BEGIN
691:
692: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
693: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
694:
695: -- Standard start of API savepoint
696: SAVEPOINT UPDATE_DISB_HEADER;
689:
690: BEGIN
691:
692: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
693: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
694:
695: -- Standard start of API savepoint
696: SAVEPOINT UPDATE_DISB_HEADER;
697: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
693: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
694:
695: -- Standard start of API savepoint
696: SAVEPOINT UPDATE_DISB_HEADER;
697: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
698:
699: -- Standard call to check for call compatibility
700: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
710: l_return_status := FND_API.G_RET_STS_SUCCESS;
711:
712: -- START OF BODY OF API
713:
714: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating disbursement header...');
715: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
716: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || P_DISB_HEADER_REC.DISB_HEADER_ID);
717: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || P_DISB_HEADER_REC.LOAN_ID);
718: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACTIVITY_CODE: ' || P_DISB_HEADER_REC.ACTIVITY_CODE);
711:
712: -- START OF BODY OF API
713:
714: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating disbursement header...');
715: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
716: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || P_DISB_HEADER_REC.DISB_HEADER_ID);
717: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || P_DISB_HEADER_REC.LOAN_ID);
718: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACTIVITY_CODE: ' || P_DISB_HEADER_REC.ACTIVITY_CODE);
719: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISBURSEMENT_NUMBER: ' || P_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
712: -- START OF BODY OF API
713:
714: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating disbursement header...');
715: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
716: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || P_DISB_HEADER_REC.DISB_HEADER_ID);
717: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || P_DISB_HEADER_REC.LOAN_ID);
718: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACTIVITY_CODE: ' || P_DISB_HEADER_REC.ACTIVITY_CODE);
719: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISBURSEMENT_NUMBER: ' || P_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
720: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_AMOUNT: ' || P_DISB_HEADER_REC.HEADER_AMOUNT);
713:
714: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating disbursement header...');
715: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
716: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || P_DISB_HEADER_REC.DISB_HEADER_ID);
717: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || P_DISB_HEADER_REC.LOAN_ID);
718: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACTIVITY_CODE: ' || P_DISB_HEADER_REC.ACTIVITY_CODE);
719: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISBURSEMENT_NUMBER: ' || P_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
720: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_AMOUNT: ' || P_DISB_HEADER_REC.HEADER_AMOUNT);
721: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_PERCENT: ' || P_DISB_HEADER_REC.HEADER_PERCENT);
714: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating disbursement header...');
715: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
716: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || P_DISB_HEADER_REC.DISB_HEADER_ID);
717: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || P_DISB_HEADER_REC.LOAN_ID);
718: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACTIVITY_CODE: ' || P_DISB_HEADER_REC.ACTIVITY_CODE);
719: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISBURSEMENT_NUMBER: ' || P_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
720: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_AMOUNT: ' || P_DISB_HEADER_REC.HEADER_AMOUNT);
721: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_PERCENT: ' || P_DISB_HEADER_REC.HEADER_PERCENT);
722: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || P_DISB_HEADER_REC.STATUS);
715: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
716: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || P_DISB_HEADER_REC.DISB_HEADER_ID);
717: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || P_DISB_HEADER_REC.LOAN_ID);
718: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACTIVITY_CODE: ' || P_DISB_HEADER_REC.ACTIVITY_CODE);
719: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISBURSEMENT_NUMBER: ' || P_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
720: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_AMOUNT: ' || P_DISB_HEADER_REC.HEADER_AMOUNT);
721: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_PERCENT: ' || P_DISB_HEADER_REC.HEADER_PERCENT);
722: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || P_DISB_HEADER_REC.STATUS);
723: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || P_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
716: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || P_DISB_HEADER_REC.DISB_HEADER_ID);
717: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || P_DISB_HEADER_REC.LOAN_ID);
718: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACTIVITY_CODE: ' || P_DISB_HEADER_REC.ACTIVITY_CODE);
719: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISBURSEMENT_NUMBER: ' || P_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
720: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_AMOUNT: ' || P_DISB_HEADER_REC.HEADER_AMOUNT);
721: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_PERCENT: ' || P_DISB_HEADER_REC.HEADER_PERCENT);
722: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || P_DISB_HEADER_REC.STATUS);
723: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || P_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
724: LogMessage(FND_LOG.LEVEL_STATEMENT, 'PAYMENT_REQUEST_DATE: ' || P_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
717: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || P_DISB_HEADER_REC.LOAN_ID);
718: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACTIVITY_CODE: ' || P_DISB_HEADER_REC.ACTIVITY_CODE);
719: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISBURSEMENT_NUMBER: ' || P_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
720: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_AMOUNT: ' || P_DISB_HEADER_REC.HEADER_AMOUNT);
721: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_PERCENT: ' || P_DISB_HEADER_REC.HEADER_PERCENT);
722: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || P_DISB_HEADER_REC.STATUS);
723: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || P_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
724: LogMessage(FND_LOG.LEVEL_STATEMENT, 'PAYMENT_REQUEST_DATE: ' || P_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
725: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TARGET_DATE: ' || P_DISB_HEADER_REC.TARGET_DATE);
718: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACTIVITY_CODE: ' || P_DISB_HEADER_REC.ACTIVITY_CODE);
719: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISBURSEMENT_NUMBER: ' || P_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
720: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_AMOUNT: ' || P_DISB_HEADER_REC.HEADER_AMOUNT);
721: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_PERCENT: ' || P_DISB_HEADER_REC.HEADER_PERCENT);
722: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || P_DISB_HEADER_REC.STATUS);
723: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || P_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
724: LogMessage(FND_LOG.LEVEL_STATEMENT, 'PAYMENT_REQUEST_DATE: ' || P_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
725: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TARGET_DATE: ' || P_DISB_HEADER_REC.TARGET_DATE);
726: LogMessage(FND_LOG.LEVEL_STATEMENT, 'AUTOFUNDING_FLAG: ' || P_DISB_HEADER_REC.AUTOFUNDING_FLAG);
719: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISBURSEMENT_NUMBER: ' || P_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
720: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_AMOUNT: ' || P_DISB_HEADER_REC.HEADER_AMOUNT);
721: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_PERCENT: ' || P_DISB_HEADER_REC.HEADER_PERCENT);
722: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || P_DISB_HEADER_REC.STATUS);
723: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || P_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
724: LogMessage(FND_LOG.LEVEL_STATEMENT, 'PAYMENT_REQUEST_DATE: ' || P_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
725: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TARGET_DATE: ' || P_DISB_HEADER_REC.TARGET_DATE);
726: LogMessage(FND_LOG.LEVEL_STATEMENT, 'AUTOFUNDING_FLAG: ' || P_DISB_HEADER_REC.AUTOFUNDING_FLAG);
727:
720: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_AMOUNT: ' || P_DISB_HEADER_REC.HEADER_AMOUNT);
721: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_PERCENT: ' || P_DISB_HEADER_REC.HEADER_PERCENT);
722: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || P_DISB_HEADER_REC.STATUS);
723: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || P_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
724: LogMessage(FND_LOG.LEVEL_STATEMENT, 'PAYMENT_REQUEST_DATE: ' || P_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
725: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TARGET_DATE: ' || P_DISB_HEADER_REC.TARGET_DATE);
726: LogMessage(FND_LOG.LEVEL_STATEMENT, 'AUTOFUNDING_FLAG: ' || P_DISB_HEADER_REC.AUTOFUNDING_FLAG);
727:
728: -- validation
721: LogMessage(FND_LOG.LEVEL_STATEMENT, 'HEADER_PERCENT: ' || P_DISB_HEADER_REC.HEADER_PERCENT);
722: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || P_DISB_HEADER_REC.STATUS);
723: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || P_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
724: LogMessage(FND_LOG.LEVEL_STATEMENT, 'PAYMENT_REQUEST_DATE: ' || P_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
725: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TARGET_DATE: ' || P_DISB_HEADER_REC.TARGET_DATE);
726: LogMessage(FND_LOG.LEVEL_STATEMENT, 'AUTOFUNDING_FLAG: ' || P_DISB_HEADER_REC.AUTOFUNDING_FLAG);
727:
728: -- validation
729:
722: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || P_DISB_HEADER_REC.STATUS);
723: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || P_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
724: LogMessage(FND_LOG.LEVEL_STATEMENT, 'PAYMENT_REQUEST_DATE: ' || P_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
725: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TARGET_DATE: ' || P_DISB_HEADER_REC.TARGET_DATE);
726: LogMessage(FND_LOG.LEVEL_STATEMENT, 'AUTOFUNDING_FLAG: ' || P_DISB_HEADER_REC.AUTOFUNDING_FLAG);
727:
728: -- validation
729:
730: if P_DISB_HEADER_REC.DISB_HEADER_ID is null then
728: -- validation
729:
730: if P_DISB_HEADER_REC.DISB_HEADER_ID is null then
731:
732: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header ID is missing');
733: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
734: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
735: FND_MSG_PUB.ADD;
736: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
732: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header ID is missing');
733: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
734: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
735: FND_MSG_PUB.ADD;
736: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
737: RAISE FND_API.G_EXC_ERROR;
738:
739: end if;
740:
743: fetch disb_head_cur into l_disb_header_version;
744:
745: if disb_head_cur%NOTFOUND then
746:
747: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No disbursement header record found');
748: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
749: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement header');
750: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_REC.DISB_HEADER_ID), 'null'));
751: FND_MSG_PUB.ADD;
748: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
749: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement header');
750: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_REC.DISB_HEADER_ID), 'null'));
751: FND_MSG_PUB.ADD;
752: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
753: RAISE FND_API.G_EXC_ERROR;
754:
755: end if;
756:
757: close disb_head_cur;
758:
759: if l_disb_header_version <> P_DISB_HEADER_REC.OBJECT_VERSION_NUMBER then
760:
761: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header record has already been changed');
762: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_RECORD_CHANGED');
763: FND_MESSAGE.SET_TOKEN('TABLE', 'LNS_DISB_HEADERS');
764: FND_MSG_PUB.ADD;
765: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
761: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header record has already been changed');
762: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_RECORD_CHANGED');
763: FND_MESSAGE.SET_TOKEN('TABLE', 'LNS_DISB_HEADERS');
764: FND_MSG_PUB.ADD;
765: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
766: RAISE FND_API.G_EXC_ERROR;
767:
768: end if;
769:
784: P_AUTOFUNDING_FLAG => P_DISB_HEADER_REC.AUTOFUNDING_FLAG);
785:
786: if P_COMMIT = FND_API.G_TRUE then
787: COMMIT WORK;
788: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
789: end if;
790:
791: -- END OF BODY OF API
792: x_return_status := FND_API.G_RET_STS_SUCCESS;
790:
791: -- END OF BODY OF API
792: x_return_status := FND_API.G_RET_STS_SUCCESS;
793:
794: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully updated disbursement header ' || P_DISB_HEADER_REC.DISB_HEADER_ID);
795:
796: -- Standard call to get message count and if count is 1, get message info
797: FND_MSG_PUB.Count_And_Get(
798: p_encoded => FND_API.G_FALSE,
798: p_encoded => FND_API.G_FALSE,
799: p_count => x_msg_count,
800: p_data => x_msg_data);
801:
802: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
803:
804: EXCEPTION
805: WHEN FND_API.G_EXC_ERROR THEN
806: ROLLBACK TO UPDATE_DISB_HEADER;
805: WHEN FND_API.G_EXC_ERROR THEN
806: ROLLBACK TO UPDATE_DISB_HEADER;
807: x_return_status := FND_API.G_RET_STS_ERROR;
808: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
809: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
810: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
811: ROLLBACK TO UPDATE_DISB_HEADER;
812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
813: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
810: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
811: ROLLBACK TO UPDATE_DISB_HEADER;
812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
813: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
814: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
815: WHEN OTHERS THEN
816: ROLLBACK TO UPDATE_DISB_HEADER;
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
818: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
818: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
819: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
820: END IF;
821: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
822: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
823: END;
824:
825:
826:
901: where DISB_HEADER_ID = P_DISB_HEADER_ID;
902:
903: BEGIN
904:
905: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
906: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
907:
908: -- Standard start of API savepoint
909: SAVEPOINT DELETE_DISB_HEADER;
902:
903: BEGIN
904:
905: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
906: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
907:
908: -- Standard start of API savepoint
909: SAVEPOINT DELETE_DISB_HEADER;
910: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
906: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
907:
908: -- Standard start of API savepoint
909: SAVEPOINT DELETE_DISB_HEADER;
910: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
911:
912: -- Standard call to check for call compatibility
913: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
923: l_return_status := FND_API.G_RET_STS_SUCCESS;
924:
925: -- START OF BODY OF API
926:
927: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Deleting disbursement header...');
928: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
929: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || P_DISB_HEADER_ID);
930: -- validation
931:
924:
925: -- START OF BODY OF API
926:
927: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Deleting disbursement header...');
928: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
929: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || P_DISB_HEADER_ID);
930: -- validation
931:
932: if P_DISB_HEADER_ID is null then
925: -- START OF BODY OF API
926:
927: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Deleting disbursement header...');
928: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
929: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || P_DISB_HEADER_ID);
930: -- validation
931:
932: if P_DISB_HEADER_ID is null then
933:
930: -- validation
931:
932: if P_DISB_HEADER_ID is null then
933:
934: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header ID is missing');
935: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
936: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
937: FND_MSG_PUB.ADD;
938: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
934: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header ID is missing');
935: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
936: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
937: FND_MSG_PUB.ADD;
938: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
939: RAISE FND_API.G_EXC_ERROR;
940:
941: end if;
942:
945: fetch disb_head_cur into l_status;
946:
947: if disb_head_cur%NOTFOUND then
948:
949: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No disbursement header record found');
950: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
951: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement header');
952: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_ID), 'null'));
953: FND_MSG_PUB.ADD;
950: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
951: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement header');
952: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_ID), 'null'));
953: FND_MSG_PUB.ADD;
954: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
955: RAISE FND_API.G_EXC_ERROR;
956:
957: end if;
958:
959: close disb_head_cur;
960:
961: if l_status is not null then
962:
963: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Cannot delete disbursement header. It has already been processed.');
964: FND_MESSAGE.SET_NAME('LNS', 'LNS_CANT_DEL_DISB_HDR');
965: FND_MSG_PUB.ADD;
966: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
967: RAISE FND_API.G_EXC_ERROR;
962:
963: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Cannot delete disbursement header. It has already been processed.');
964: FND_MESSAGE.SET_NAME('LNS', 'LNS_CANT_DEL_DISB_HDR');
965: FND_MSG_PUB.ADD;
966: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
967: RAISE FND_API.G_EXC_ERROR;
968:
969: end if;
970:
984: X_MSG_COUNT => l_msg_count,
985: X_MSG_DATA => l_msg_data);
986:
987: IF l_return_status <> 'S' THEN
988: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Call to DELETE_DISB_LINE failed');
989: RAISE FND_API.G_EXC_ERROR;
990: END IF;
991:
992: END LOOP;
1000: LNS_DISB_HEADERS_PKG.Delete_Row(P_DISB_HEADER_ID);
1001:
1002: if P_COMMIT = FND_API.G_TRUE then
1003: COMMIT WORK;
1004: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
1005: end if;
1006:
1007: -- END OF BODY OF API
1008: x_return_status := FND_API.G_RET_STS_SUCCESS;
1006:
1007: -- END OF BODY OF API
1008: x_return_status := FND_API.G_RET_STS_SUCCESS;
1009:
1010: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully deleted disbursement header ' || P_DISB_HEADER_ID);
1011:
1012: -- Standard call to get message count and if count is 1, get message info
1013: FND_MSG_PUB.Count_And_Get(
1014: p_encoded => FND_API.G_FALSE,
1014: p_encoded => FND_API.G_FALSE,
1015: p_count => x_msg_count,
1016: p_data => x_msg_data);
1017:
1018: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
1019:
1020: EXCEPTION
1021: WHEN FND_API.G_EXC_ERROR THEN
1022: ROLLBACK TO DELETE_DISB_HEADER;
1021: WHEN FND_API.G_EXC_ERROR THEN
1022: ROLLBACK TO DELETE_DISB_HEADER;
1023: x_return_status := FND_API.G_RET_STS_ERROR;
1024: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1025: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1026: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1027: ROLLBACK TO DELETE_DISB_HEADER;
1028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1029: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1026: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1027: ROLLBACK TO DELETE_DISB_HEADER;
1028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1029: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1030: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1031: WHEN OTHERS THEN
1032: ROLLBACK TO DELETE_DISB_HEADER;
1033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1034: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1034: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1035: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1036: END IF;
1037: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1038: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1039: END;
1040:
1041:
1042:
1103: +-----------------------------------------------------------------------*/
1104:
1105: BEGIN
1106:
1107: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
1108: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1109:
1110: -- Standard start of API savepoint
1111: SAVEPOINT INSERT_DISB_LINE;
1104:
1105: BEGIN
1106:
1107: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
1108: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1109:
1110: -- Standard start of API savepoint
1111: SAVEPOINT INSERT_DISB_LINE;
1112: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
1108: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1109:
1110: -- Standard start of API savepoint
1111: SAVEPOINT INSERT_DISB_LINE;
1112: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
1113:
1114: -- Standard call to check for call compatibility
1115: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1125: l_return_status := FND_API.G_RET_STS_SUCCESS;
1126:
1127: -- START OF BODY OF API
1128:
1129: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting disbursement line...');
1130: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
1131: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_HEADER_ID: ' || P_DISB_LINE_REC.DISB_HEADER_ID);
1132: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_AMOUNT: ' || P_DISB_LINE_REC.LINE_AMOUNT);
1133: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_PERCENT: ' || P_DISB_LINE_REC.LINE_PERCENT);
1126:
1127: -- START OF BODY OF API
1128:
1129: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting disbursement line...');
1130: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
1131: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_HEADER_ID: ' || P_DISB_LINE_REC.DISB_HEADER_ID);
1132: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_AMOUNT: ' || P_DISB_LINE_REC.LINE_AMOUNT);
1133: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_PERCENT: ' || P_DISB_LINE_REC.LINE_PERCENT);
1134: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYEE_PARTY_ID: ' || P_DISB_LINE_REC.PAYEE_PARTY_ID);
1127: -- START OF BODY OF API
1128:
1129: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting disbursement line...');
1130: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
1131: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_HEADER_ID: ' || P_DISB_LINE_REC.DISB_HEADER_ID);
1132: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_AMOUNT: ' || P_DISB_LINE_REC.LINE_AMOUNT);
1133: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_PERCENT: ' || P_DISB_LINE_REC.LINE_PERCENT);
1134: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYEE_PARTY_ID: ' || P_DISB_LINE_REC.PAYEE_PARTY_ID);
1135: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.BANK_ACCOUNT_ID: ' || P_DISB_LINE_REC.BANK_ACCOUNT_ID);
1128:
1129: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting disbursement line...');
1130: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
1131: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_HEADER_ID: ' || P_DISB_LINE_REC.DISB_HEADER_ID);
1132: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_AMOUNT: ' || P_DISB_LINE_REC.LINE_AMOUNT);
1133: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_PERCENT: ' || P_DISB_LINE_REC.LINE_PERCENT);
1134: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYEE_PARTY_ID: ' || P_DISB_LINE_REC.PAYEE_PARTY_ID);
1135: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.BANK_ACCOUNT_ID: ' || P_DISB_LINE_REC.BANK_ACCOUNT_ID);
1136: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYMENT_METHOD_CODE: ' || P_DISB_LINE_REC.PAYMENT_METHOD_CODE);
1129: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting disbursement line...');
1130: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
1131: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_HEADER_ID: ' || P_DISB_LINE_REC.DISB_HEADER_ID);
1132: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_AMOUNT: ' || P_DISB_LINE_REC.LINE_AMOUNT);
1133: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_PERCENT: ' || P_DISB_LINE_REC.LINE_PERCENT);
1134: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYEE_PARTY_ID: ' || P_DISB_LINE_REC.PAYEE_PARTY_ID);
1135: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.BANK_ACCOUNT_ID: ' || P_DISB_LINE_REC.BANK_ACCOUNT_ID);
1136: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYMENT_METHOD_CODE: ' || P_DISB_LINE_REC.PAYMENT_METHOD_CODE);
1137: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.STATUS: ' || P_DISB_LINE_REC.STATUS);
1130: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
1131: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_HEADER_ID: ' || P_DISB_LINE_REC.DISB_HEADER_ID);
1132: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_AMOUNT: ' || P_DISB_LINE_REC.LINE_AMOUNT);
1133: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_PERCENT: ' || P_DISB_LINE_REC.LINE_PERCENT);
1134: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYEE_PARTY_ID: ' || P_DISB_LINE_REC.PAYEE_PARTY_ID);
1135: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.BANK_ACCOUNT_ID: ' || P_DISB_LINE_REC.BANK_ACCOUNT_ID);
1136: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYMENT_METHOD_CODE: ' || P_DISB_LINE_REC.PAYMENT_METHOD_CODE);
1137: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.STATUS: ' || P_DISB_LINE_REC.STATUS);
1138: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.REQUEST_DATE: ' || P_DISB_LINE_REC.REQUEST_DATE);
1131: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_HEADER_ID: ' || P_DISB_LINE_REC.DISB_HEADER_ID);
1132: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_AMOUNT: ' || P_DISB_LINE_REC.LINE_AMOUNT);
1133: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_PERCENT: ' || P_DISB_LINE_REC.LINE_PERCENT);
1134: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYEE_PARTY_ID: ' || P_DISB_LINE_REC.PAYEE_PARTY_ID);
1135: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.BANK_ACCOUNT_ID: ' || P_DISB_LINE_REC.BANK_ACCOUNT_ID);
1136: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYMENT_METHOD_CODE: ' || P_DISB_LINE_REC.PAYMENT_METHOD_CODE);
1137: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.STATUS: ' || P_DISB_LINE_REC.STATUS);
1138: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.REQUEST_DATE: ' || P_DISB_LINE_REC.REQUEST_DATE);
1139: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISBURSEMENT_DATE: ' || P_DISB_LINE_REC.DISBURSEMENT_DATE);
1132: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_AMOUNT: ' || P_DISB_LINE_REC.LINE_AMOUNT);
1133: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_PERCENT: ' || P_DISB_LINE_REC.LINE_PERCENT);
1134: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYEE_PARTY_ID: ' || P_DISB_LINE_REC.PAYEE_PARTY_ID);
1135: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.BANK_ACCOUNT_ID: ' || P_DISB_LINE_REC.BANK_ACCOUNT_ID);
1136: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYMENT_METHOD_CODE: ' || P_DISB_LINE_REC.PAYMENT_METHOD_CODE);
1137: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.STATUS: ' || P_DISB_LINE_REC.STATUS);
1138: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.REQUEST_DATE: ' || P_DISB_LINE_REC.REQUEST_DATE);
1139: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISBURSEMENT_DATE: ' || P_DISB_LINE_REC.DISBURSEMENT_DATE);
1140: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.OBJECT_VERSION_NUMBER: ' || P_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
1133: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_PERCENT: ' || P_DISB_LINE_REC.LINE_PERCENT);
1134: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYEE_PARTY_ID: ' || P_DISB_LINE_REC.PAYEE_PARTY_ID);
1135: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.BANK_ACCOUNT_ID: ' || P_DISB_LINE_REC.BANK_ACCOUNT_ID);
1136: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYMENT_METHOD_CODE: ' || P_DISB_LINE_REC.PAYMENT_METHOD_CODE);
1137: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.STATUS: ' || P_DISB_LINE_REC.STATUS);
1138: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.REQUEST_DATE: ' || P_DISB_LINE_REC.REQUEST_DATE);
1139: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISBURSEMENT_DATE: ' || P_DISB_LINE_REC.DISBURSEMENT_DATE);
1140: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.OBJECT_VERSION_NUMBER: ' || P_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
1141: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_INTERFACE_ID: ' || P_DISB_LINE_REC.INVOICE_INTERFACE_ID);
1134: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYEE_PARTY_ID: ' || P_DISB_LINE_REC.PAYEE_PARTY_ID);
1135: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.BANK_ACCOUNT_ID: ' || P_DISB_LINE_REC.BANK_ACCOUNT_ID);
1136: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYMENT_METHOD_CODE: ' || P_DISB_LINE_REC.PAYMENT_METHOD_CODE);
1137: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.STATUS: ' || P_DISB_LINE_REC.STATUS);
1138: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.REQUEST_DATE: ' || P_DISB_LINE_REC.REQUEST_DATE);
1139: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISBURSEMENT_DATE: ' || P_DISB_LINE_REC.DISBURSEMENT_DATE);
1140: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.OBJECT_VERSION_NUMBER: ' || P_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
1141: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_INTERFACE_ID: ' || P_DISB_LINE_REC.INVOICE_INTERFACE_ID);
1142: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_ID: ' || P_DISB_LINE_REC.INVOICE_ID);
1135: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.BANK_ACCOUNT_ID: ' || P_DISB_LINE_REC.BANK_ACCOUNT_ID);
1136: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYMENT_METHOD_CODE: ' || P_DISB_LINE_REC.PAYMENT_METHOD_CODE);
1137: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.STATUS: ' || P_DISB_LINE_REC.STATUS);
1138: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.REQUEST_DATE: ' || P_DISB_LINE_REC.REQUEST_DATE);
1139: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISBURSEMENT_DATE: ' || P_DISB_LINE_REC.DISBURSEMENT_DATE);
1140: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.OBJECT_VERSION_NUMBER: ' || P_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
1141: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_INTERFACE_ID: ' || P_DISB_LINE_REC.INVOICE_INTERFACE_ID);
1142: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_ID: ' || P_DISB_LINE_REC.INVOICE_ID);
1143:
1136: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYMENT_METHOD_CODE: ' || P_DISB_LINE_REC.PAYMENT_METHOD_CODE);
1137: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.STATUS: ' || P_DISB_LINE_REC.STATUS);
1138: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.REQUEST_DATE: ' || P_DISB_LINE_REC.REQUEST_DATE);
1139: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISBURSEMENT_DATE: ' || P_DISB_LINE_REC.DISBURSEMENT_DATE);
1140: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.OBJECT_VERSION_NUMBER: ' || P_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
1141: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_INTERFACE_ID: ' || P_DISB_LINE_REC.INVOICE_INTERFACE_ID);
1142: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_ID: ' || P_DISB_LINE_REC.INVOICE_ID);
1143:
1144: -- validation
1137: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.STATUS: ' || P_DISB_LINE_REC.STATUS);
1138: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.REQUEST_DATE: ' || P_DISB_LINE_REC.REQUEST_DATE);
1139: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISBURSEMENT_DATE: ' || P_DISB_LINE_REC.DISBURSEMENT_DATE);
1140: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.OBJECT_VERSION_NUMBER: ' || P_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
1141: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_INTERFACE_ID: ' || P_DISB_LINE_REC.INVOICE_INTERFACE_ID);
1142: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_ID: ' || P_DISB_LINE_REC.INVOICE_ID);
1143:
1144: -- validation
1145: l_pk_id := P_DISB_LINE_REC.DISB_LINE_ID;
1138: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.REQUEST_DATE: ' || P_DISB_LINE_REC.REQUEST_DATE);
1139: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISBURSEMENT_DATE: ' || P_DISB_LINE_REC.DISBURSEMENT_DATE);
1140: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.OBJECT_VERSION_NUMBER: ' || P_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
1141: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_INTERFACE_ID: ' || P_DISB_LINE_REC.INVOICE_INTERFACE_ID);
1142: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_ID: ' || P_DISB_LINE_REC.INVOICE_ID);
1143:
1144: -- validation
1145: l_pk_id := P_DISB_LINE_REC.DISB_LINE_ID;
1146:
1145: l_pk_id := P_DISB_LINE_REC.DISB_LINE_ID;
1146:
1147: if P_DISB_LINE_REC.DISB_HEADER_ID is null then
1148:
1149: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header ID is missing');
1150: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1151: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
1152: FND_MSG_PUB.ADD;
1153: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1149: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header ID is missing');
1150: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1151: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
1152: FND_MSG_PUB.ADD;
1153: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1154: RAISE FND_API.G_EXC_ERROR;
1155:
1156: end if;
1157:
1156: end if;
1157:
1158: if P_DISB_LINE_REC.LINE_PERCENT is null then
1159:
1160: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
1161: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC');
1162: FND_MSG_PUB.ADD;
1163: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1164: RAISE FND_API.G_EXC_ERROR;
1159:
1160: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
1161: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC');
1162: FND_MSG_PUB.ADD;
1163: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1164: RAISE FND_API.G_EXC_ERROR;
1165:
1166: end if;
1167:
1166: end if;
1167:
1168: if P_DISB_LINE_REC.PAYEE_PARTY_ID is null then
1169:
1170: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
1171: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
1172: FND_MSG_PUB.ADD;
1173: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1174: RAISE FND_API.G_EXC_ERROR;
1169:
1170: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
1171: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
1172: FND_MSG_PUB.ADD;
1173: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1174: RAISE FND_API.G_EXC_ERROR;
1175:
1176: end if;
1177:
1174: RAISE FND_API.G_EXC_ERROR;
1175:
1176: end if;
1177:
1178: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling LNS_DISB_LINES_PKG.Insert_Row');
1179:
1180: -- calling table handler api
1181: LNS_DISB_LINES_PKG.Insert_Row(
1182: X_DISB_LINE_ID => l_pk_id,
1193: P_OBJECT_VERSION_NUMBER => nvl(P_DISB_LINE_REC.OBJECT_VERSION_NUMBER, 1),
1194: P_INVOICE_INTERFACE_ID => P_DISB_LINE_REC.INVOICE_INTERFACE_ID,
1195: P_INVOICE_ID => P_DISB_LINE_REC.INVOICE_ID);
1196:
1197: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_LINE_ID: ' || l_pk_id);
1198:
1199: if P_COMMIT = FND_API.G_TRUE then
1200: COMMIT WORK;
1201: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
1197: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_LINE_ID: ' || l_pk_id);
1198:
1199: if P_COMMIT = FND_API.G_TRUE then
1200: COMMIT WORK;
1201: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
1202: end if;
1203:
1204: -- END OF BODY OF API
1205: x_return_status := FND_API.G_RET_STS_SUCCESS;
1203:
1204: -- END OF BODY OF API
1205: x_return_status := FND_API.G_RET_STS_SUCCESS;
1206:
1207: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully inserted disbursement line ' || l_pk_id);
1208:
1209: -- Standard call to get message count and if count is 1, get message info
1210: FND_MSG_PUB.Count_And_Get(
1211: p_encoded => FND_API.G_FALSE,
1211: p_encoded => FND_API.G_FALSE,
1212: p_count => x_msg_count,
1213: p_data => x_msg_data);
1214:
1215: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
1216:
1217: EXCEPTION
1218: WHEN FND_API.G_EXC_ERROR THEN
1219: ROLLBACK TO INSERT_DISB_LINE;
1218: WHEN FND_API.G_EXC_ERROR THEN
1219: ROLLBACK TO INSERT_DISB_LINE;
1220: x_return_status := FND_API.G_RET_STS_ERROR;
1221: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1222: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1224: ROLLBACK TO INSERT_DISB_LINE;
1225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1226: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1224: ROLLBACK TO INSERT_DISB_LINE;
1225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1226: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1227: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1228: WHEN OTHERS THEN
1229: ROLLBACK TO INSERT_DISB_LINE;
1230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1231: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1231: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1232: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1233: END IF;
1234: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1235: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1236: END;
1237:
1238:
1239:
1307: -- FOR UPDATE OF disb_line_id NOWAIT;
1308:
1309: BEGIN
1310:
1311: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
1312: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1313:
1314: -- Standard start of API savepoint
1315: SAVEPOINT UPDATE_DISB_LINE;
1308:
1309: BEGIN
1310:
1311: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
1312: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1313:
1314: -- Standard start of API savepoint
1315: SAVEPOINT UPDATE_DISB_LINE;
1316: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
1312: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1313:
1314: -- Standard start of API savepoint
1315: SAVEPOINT UPDATE_DISB_LINE;
1316: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
1317:
1318: -- Standard call to check for call compatibility
1319: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1329: l_return_status := FND_API.G_RET_STS_SUCCESS;
1330:
1331: -- START OF BODY OF API
1332:
1333: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating disbursement line...');
1334: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
1335: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_LINE_ID: ' || P_DISB_LINE_REC.DISB_LINE_ID);
1336: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_HEADER_ID: ' || P_DISB_LINE_REC.DISB_HEADER_ID);
1337: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_AMOUNT: ' || P_DISB_LINE_REC.LINE_AMOUNT);
1330:
1331: -- START OF BODY OF API
1332:
1333: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating disbursement line...');
1334: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
1335: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_LINE_ID: ' || P_DISB_LINE_REC.DISB_LINE_ID);
1336: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_HEADER_ID: ' || P_DISB_LINE_REC.DISB_HEADER_ID);
1337: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_AMOUNT: ' || P_DISB_LINE_REC.LINE_AMOUNT);
1338: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_PERCENT: ' || P_DISB_LINE_REC.LINE_PERCENT);
1331: -- START OF BODY OF API
1332:
1333: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating disbursement line...');
1334: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
1335: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_LINE_ID: ' || P_DISB_LINE_REC.DISB_LINE_ID);
1336: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_HEADER_ID: ' || P_DISB_LINE_REC.DISB_HEADER_ID);
1337: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_AMOUNT: ' || P_DISB_LINE_REC.LINE_AMOUNT);
1338: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_PERCENT: ' || P_DISB_LINE_REC.LINE_PERCENT);
1339: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYEE_PARTY_ID: ' || P_DISB_LINE_REC.PAYEE_PARTY_ID);
1332:
1333: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating disbursement line...');
1334: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
1335: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_LINE_ID: ' || P_DISB_LINE_REC.DISB_LINE_ID);
1336: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_HEADER_ID: ' || P_DISB_LINE_REC.DISB_HEADER_ID);
1337: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_AMOUNT: ' || P_DISB_LINE_REC.LINE_AMOUNT);
1338: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_PERCENT: ' || P_DISB_LINE_REC.LINE_PERCENT);
1339: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYEE_PARTY_ID: ' || P_DISB_LINE_REC.PAYEE_PARTY_ID);
1340: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.BANK_ACCOUNT_ID: ' || P_DISB_LINE_REC.BANK_ACCOUNT_ID);
1333: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating disbursement line...');
1334: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
1335: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_LINE_ID: ' || P_DISB_LINE_REC.DISB_LINE_ID);
1336: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_HEADER_ID: ' || P_DISB_LINE_REC.DISB_HEADER_ID);
1337: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_AMOUNT: ' || P_DISB_LINE_REC.LINE_AMOUNT);
1338: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_PERCENT: ' || P_DISB_LINE_REC.LINE_PERCENT);
1339: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYEE_PARTY_ID: ' || P_DISB_LINE_REC.PAYEE_PARTY_ID);
1340: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.BANK_ACCOUNT_ID: ' || P_DISB_LINE_REC.BANK_ACCOUNT_ID);
1341: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYMENT_METHOD_CODE: ' || P_DISB_LINE_REC.PAYMENT_METHOD_CODE);
1334: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
1335: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_LINE_ID: ' || P_DISB_LINE_REC.DISB_LINE_ID);
1336: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_HEADER_ID: ' || P_DISB_LINE_REC.DISB_HEADER_ID);
1337: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_AMOUNT: ' || P_DISB_LINE_REC.LINE_AMOUNT);
1338: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_PERCENT: ' || P_DISB_LINE_REC.LINE_PERCENT);
1339: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYEE_PARTY_ID: ' || P_DISB_LINE_REC.PAYEE_PARTY_ID);
1340: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.BANK_ACCOUNT_ID: ' || P_DISB_LINE_REC.BANK_ACCOUNT_ID);
1341: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYMENT_METHOD_CODE: ' || P_DISB_LINE_REC.PAYMENT_METHOD_CODE);
1342: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.STATUS: ' || P_DISB_LINE_REC.STATUS);
1335: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_LINE_ID: ' || P_DISB_LINE_REC.DISB_LINE_ID);
1336: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_HEADER_ID: ' || P_DISB_LINE_REC.DISB_HEADER_ID);
1337: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_AMOUNT: ' || P_DISB_LINE_REC.LINE_AMOUNT);
1338: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_PERCENT: ' || P_DISB_LINE_REC.LINE_PERCENT);
1339: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYEE_PARTY_ID: ' || P_DISB_LINE_REC.PAYEE_PARTY_ID);
1340: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.BANK_ACCOUNT_ID: ' || P_DISB_LINE_REC.BANK_ACCOUNT_ID);
1341: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYMENT_METHOD_CODE: ' || P_DISB_LINE_REC.PAYMENT_METHOD_CODE);
1342: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.STATUS: ' || P_DISB_LINE_REC.STATUS);
1343: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.REQUEST_DATE: ' || P_DISB_LINE_REC.REQUEST_DATE);
1336: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISB_HEADER_ID: ' || P_DISB_LINE_REC.DISB_HEADER_ID);
1337: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_AMOUNT: ' || P_DISB_LINE_REC.LINE_AMOUNT);
1338: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_PERCENT: ' || P_DISB_LINE_REC.LINE_PERCENT);
1339: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYEE_PARTY_ID: ' || P_DISB_LINE_REC.PAYEE_PARTY_ID);
1340: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.BANK_ACCOUNT_ID: ' || P_DISB_LINE_REC.BANK_ACCOUNT_ID);
1341: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYMENT_METHOD_CODE: ' || P_DISB_LINE_REC.PAYMENT_METHOD_CODE);
1342: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.STATUS: ' || P_DISB_LINE_REC.STATUS);
1343: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.REQUEST_DATE: ' || P_DISB_LINE_REC.REQUEST_DATE);
1344: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISBURSEMENT_DATE: ' || P_DISB_LINE_REC.DISBURSEMENT_DATE);
1337: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_AMOUNT: ' || P_DISB_LINE_REC.LINE_AMOUNT);
1338: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_PERCENT: ' || P_DISB_LINE_REC.LINE_PERCENT);
1339: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYEE_PARTY_ID: ' || P_DISB_LINE_REC.PAYEE_PARTY_ID);
1340: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.BANK_ACCOUNT_ID: ' || P_DISB_LINE_REC.BANK_ACCOUNT_ID);
1341: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYMENT_METHOD_CODE: ' || P_DISB_LINE_REC.PAYMENT_METHOD_CODE);
1342: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.STATUS: ' || P_DISB_LINE_REC.STATUS);
1343: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.REQUEST_DATE: ' || P_DISB_LINE_REC.REQUEST_DATE);
1344: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISBURSEMENT_DATE: ' || P_DISB_LINE_REC.DISBURSEMENT_DATE);
1345: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.OBJECT_VERSION_NUMBER: ' || P_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
1338: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.LINE_PERCENT: ' || P_DISB_LINE_REC.LINE_PERCENT);
1339: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYEE_PARTY_ID: ' || P_DISB_LINE_REC.PAYEE_PARTY_ID);
1340: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.BANK_ACCOUNT_ID: ' || P_DISB_LINE_REC.BANK_ACCOUNT_ID);
1341: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYMENT_METHOD_CODE: ' || P_DISB_LINE_REC.PAYMENT_METHOD_CODE);
1342: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.STATUS: ' || P_DISB_LINE_REC.STATUS);
1343: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.REQUEST_DATE: ' || P_DISB_LINE_REC.REQUEST_DATE);
1344: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISBURSEMENT_DATE: ' || P_DISB_LINE_REC.DISBURSEMENT_DATE);
1345: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.OBJECT_VERSION_NUMBER: ' || P_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
1346: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_INTERFACE_ID: ' || P_DISB_LINE_REC.INVOICE_INTERFACE_ID);
1339: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYEE_PARTY_ID: ' || P_DISB_LINE_REC.PAYEE_PARTY_ID);
1340: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.BANK_ACCOUNT_ID: ' || P_DISB_LINE_REC.BANK_ACCOUNT_ID);
1341: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYMENT_METHOD_CODE: ' || P_DISB_LINE_REC.PAYMENT_METHOD_CODE);
1342: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.STATUS: ' || P_DISB_LINE_REC.STATUS);
1343: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.REQUEST_DATE: ' || P_DISB_LINE_REC.REQUEST_DATE);
1344: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISBURSEMENT_DATE: ' || P_DISB_LINE_REC.DISBURSEMENT_DATE);
1345: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.OBJECT_VERSION_NUMBER: ' || P_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
1346: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_INTERFACE_ID: ' || P_DISB_LINE_REC.INVOICE_INTERFACE_ID);
1347: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_ID: ' || P_DISB_LINE_REC.INVOICE_ID);
1340: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.BANK_ACCOUNT_ID: ' || P_DISB_LINE_REC.BANK_ACCOUNT_ID);
1341: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYMENT_METHOD_CODE: ' || P_DISB_LINE_REC.PAYMENT_METHOD_CODE);
1342: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.STATUS: ' || P_DISB_LINE_REC.STATUS);
1343: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.REQUEST_DATE: ' || P_DISB_LINE_REC.REQUEST_DATE);
1344: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISBURSEMENT_DATE: ' || P_DISB_LINE_REC.DISBURSEMENT_DATE);
1345: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.OBJECT_VERSION_NUMBER: ' || P_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
1346: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_INTERFACE_ID: ' || P_DISB_LINE_REC.INVOICE_INTERFACE_ID);
1347: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_ID: ' || P_DISB_LINE_REC.INVOICE_ID);
1348:
1341: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.PAYMENT_METHOD_CODE: ' || P_DISB_LINE_REC.PAYMENT_METHOD_CODE);
1342: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.STATUS: ' || P_DISB_LINE_REC.STATUS);
1343: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.REQUEST_DATE: ' || P_DISB_LINE_REC.REQUEST_DATE);
1344: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISBURSEMENT_DATE: ' || P_DISB_LINE_REC.DISBURSEMENT_DATE);
1345: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.OBJECT_VERSION_NUMBER: ' || P_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
1346: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_INTERFACE_ID: ' || P_DISB_LINE_REC.INVOICE_INTERFACE_ID);
1347: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_ID: ' || P_DISB_LINE_REC.INVOICE_ID);
1348:
1349: -- validation
1342: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.STATUS: ' || P_DISB_LINE_REC.STATUS);
1343: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.REQUEST_DATE: ' || P_DISB_LINE_REC.REQUEST_DATE);
1344: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISBURSEMENT_DATE: ' || P_DISB_LINE_REC.DISBURSEMENT_DATE);
1345: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.OBJECT_VERSION_NUMBER: ' || P_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
1346: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_INTERFACE_ID: ' || P_DISB_LINE_REC.INVOICE_INTERFACE_ID);
1347: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_ID: ' || P_DISB_LINE_REC.INVOICE_ID);
1348:
1349: -- validation
1350:
1343: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.REQUEST_DATE: ' || P_DISB_LINE_REC.REQUEST_DATE);
1344: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.DISBURSEMENT_DATE: ' || P_DISB_LINE_REC.DISBURSEMENT_DATE);
1345: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.OBJECT_VERSION_NUMBER: ' || P_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
1346: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_INTERFACE_ID: ' || P_DISB_LINE_REC.INVOICE_INTERFACE_ID);
1347: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_REC.INVOICE_ID: ' || P_DISB_LINE_REC.INVOICE_ID);
1348:
1349: -- validation
1350:
1351: if P_DISB_LINE_REC.DISB_LINE_ID is null then
1349: -- validation
1350:
1351: if P_DISB_LINE_REC.DISB_LINE_ID is null then
1352:
1353: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement line ID is missing');
1354: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1355: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_line_id' );
1356: FND_MSG_PUB.ADD;
1357: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1353: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement line ID is missing');
1354: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1355: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_line_id' );
1356: FND_MSG_PUB.ADD;
1357: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1358: RAISE FND_API.G_EXC_ERROR;
1359:
1360: end if;
1361:
1364: fetch disb_line_cur into l_disb_line_version;
1365:
1366: if disb_line_cur%NOTFOUND then
1367:
1368: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No disbursement line record found');
1369: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
1370: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement line');
1371: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_LINE_REC.DISB_LINE_ID), 'null'));
1372: FND_MSG_PUB.ADD;
1369: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
1370: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement line');
1371: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_LINE_REC.DISB_LINE_ID), 'null'));
1372: FND_MSG_PUB.ADD;
1373: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1374: RAISE FND_API.G_EXC_ERROR;
1375:
1376: end if;
1377:
1378: close disb_line_cur;
1379:
1380: if l_disb_line_version <> P_DISB_LINE_REC.OBJECT_VERSION_NUMBER then
1381:
1382: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement line record has already been changed');
1383: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_RECORD_CHANGED');
1384: FND_MESSAGE.SET_TOKEN('TABLE', 'LNS_DISB_LINES');
1385: FND_MSG_PUB.ADD;
1386: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1382: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement line record has already been changed');
1383: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_RECORD_CHANGED');
1384: FND_MESSAGE.SET_TOKEN('TABLE', 'LNS_DISB_LINES');
1385: FND_MSG_PUB.ADD;
1386: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1387: RAISE FND_API.G_EXC_ERROR;
1388:
1389: end if;
1390:
1408: P_INVOICE_ID => P_DISB_LINE_REC.INVOICE_ID);
1409:
1410: if P_COMMIT = FND_API.G_TRUE then
1411: COMMIT WORK;
1412: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
1413: end if;
1414:
1415: -- END OF BODY OF API
1416: x_return_status := FND_API.G_RET_STS_SUCCESS;
1414:
1415: -- END OF BODY OF API
1416: x_return_status := FND_API.G_RET_STS_SUCCESS;
1417:
1418: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully updated disbursement line ' || P_DISB_LINE_REC.DISB_LINE_ID);
1419:
1420: -- Standard call to get message count and if count is 1, get message info
1421: FND_MSG_PUB.Count_And_Get(
1422: p_encoded => FND_API.G_FALSE,
1422: p_encoded => FND_API.G_FALSE,
1423: p_count => x_msg_count,
1424: p_data => x_msg_data);
1425:
1426: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
1427:
1428: EXCEPTION
1429: WHEN FND_API.G_EXC_ERROR THEN
1430: ROLLBACK TO UPDATE_DISB_LINE;
1429: WHEN FND_API.G_EXC_ERROR THEN
1430: ROLLBACK TO UPDATE_DISB_LINE;
1431: x_return_status := FND_API.G_RET_STS_ERROR;
1432: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1433: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1435: ROLLBACK TO UPDATE_DISB_LINE;
1436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1437: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1435: ROLLBACK TO UPDATE_DISB_LINE;
1436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1437: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1438: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1439: WHEN OTHERS THEN
1440: ROLLBACK TO UPDATE_DISB_LINE;
1441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1442: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1442: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1443: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1444: END IF;
1445: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1446: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1447: END;
1448:
1449:
1450:
1519: ln.disb_line_id = P_DISB_LINE_ID;
1520:
1521: BEGIN
1522:
1523: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
1524: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1525:
1526: -- Standard start of API savepoint
1527: SAVEPOINT DELETE_DISB_LINE;
1520:
1521: BEGIN
1522:
1523: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
1524: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1525:
1526: -- Standard start of API savepoint
1527: SAVEPOINT DELETE_DISB_LINE;
1528: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
1524: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1525:
1526: -- Standard start of API savepoint
1527: SAVEPOINT DELETE_DISB_LINE;
1528: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
1529:
1530: -- Standard call to check for call compatibility
1531: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1541: l_return_status := FND_API.G_RET_STS_SUCCESS;
1542:
1543: -- START OF BODY OF API
1544:
1545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Deleting disbursement line...');
1546: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
1547: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_ID: ' || P_DISB_LINE_ID);
1548:
1549: -- validation
1542:
1543: -- START OF BODY OF API
1544:
1545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Deleting disbursement line...');
1546: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
1547: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_ID: ' || P_DISB_LINE_ID);
1548:
1549: -- validation
1550:
1543: -- START OF BODY OF API
1544:
1545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Deleting disbursement line...');
1546: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
1547: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_LINE_ID: ' || P_DISB_LINE_ID);
1548:
1549: -- validation
1550:
1551: if P_DISB_LINE_ID is null then
1549: -- validation
1550:
1551: if P_DISB_LINE_ID is null then
1552:
1553: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement line ID is missing');
1554: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1555: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_line_id' );
1556: FND_MSG_PUB.ADD;
1557: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1553: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement line ID is missing');
1554: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1555: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_line_id' );
1556: FND_MSG_PUB.ADD;
1557: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1558: RAISE FND_API.G_EXC_ERROR;
1559:
1560: end if;
1561:
1564: fetch disb_head_cur into l_status;
1565:
1566: if disb_head_cur%NOTFOUND then
1567:
1568: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No disbursement line record found');
1569: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
1570: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement line');
1571: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_LINE_ID), 'null'));
1572: FND_MSG_PUB.ADD;
1569: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
1570: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement line');
1571: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_LINE_ID), 'null'));
1572: FND_MSG_PUB.ADD;
1573: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1574: RAISE FND_API.G_EXC_ERROR;
1575:
1576: end if;
1577:
1578: close disb_head_cur;
1579:
1580: if l_status is not null then
1581:
1582: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Cannot delete disbursement line. It has already been processed.');
1583: FND_MESSAGE.SET_NAME('LNS', 'LNS_CANT_DEL_DISB_LN');
1584: FND_MSG_PUB.ADD;
1585: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1586: RAISE FND_API.G_EXC_ERROR;
1581:
1582: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Cannot delete disbursement line. It has already been processed.');
1583: FND_MESSAGE.SET_NAME('LNS', 'LNS_CANT_DEL_DISB_LN');
1584: FND_MSG_PUB.ADD;
1585: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1586: RAISE FND_API.G_EXC_ERROR;
1587:
1588: end if;
1589:
1591: LNS_DISB_LINES_PKG.Delete_Row(P_DISB_LINE_ID);
1592:
1593: if P_COMMIT = FND_API.G_TRUE then
1594: COMMIT WORK;
1595: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
1596: end if;
1597:
1598: -- END OF BODY OF API
1599: x_return_status := FND_API.G_RET_STS_SUCCESS;
1597:
1598: -- END OF BODY OF API
1599: x_return_status := FND_API.G_RET_STS_SUCCESS;
1600:
1601: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully deleted disbursement line ' || P_DISB_LINE_ID);
1602:
1603: -- Standard call to get message count and if count is 1, get message info
1604: FND_MSG_PUB.Count_And_Get(
1605: p_encoded => FND_API.G_FALSE,
1605: p_encoded => FND_API.G_FALSE,
1606: p_count => x_msg_count,
1607: p_data => x_msg_data);
1608:
1609: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
1610:
1611: EXCEPTION
1612: WHEN FND_API.G_EXC_ERROR THEN
1613: ROLLBACK TO DELETE_DISB_LINE;
1612: WHEN FND_API.G_EXC_ERROR THEN
1613: ROLLBACK TO DELETE_DISB_LINE;
1614: x_return_status := FND_API.G_RET_STS_ERROR;
1615: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1616: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1617: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1618: ROLLBACK TO DELETE_DISB_LINE;
1619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1620: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1617: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1618: ROLLBACK TO DELETE_DISB_LINE;
1619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1620: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1621: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1622: WHEN OTHERS THEN
1623: ROLLBACK TO DELETE_DISB_LINE;
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1625: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1625: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1626: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1627: END IF;
1628: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1629: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1630: END;
1631:
1632:
1633:
1700: from IBY_EXTERNAL_PAYEES_ALL
1701: where PAYEE_PARTY_ID = line.PAYEE_PARTY_ID and org_id = loan.org_id and payment_function = 'LOANS_PAYMENTS');
1702: BEGIN
1703:
1704: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
1705: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1706:
1707: -- START OF BODY OF API
1708:
1701: where PAYEE_PARTY_ID = line.PAYEE_PARTY_ID and org_id = loan.org_id and payment_function = 'LOANS_PAYMENTS');
1702: BEGIN
1703:
1704: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
1705: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1706:
1707: -- START OF BODY OF API
1708:
1709: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Creating external iby payees...');
1705: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1706:
1707: -- START OF BODY OF API
1708:
1709: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Creating external iby payees...');
1710:
1711: -- getting payees
1712: l_count := 0;
1713: open payees_cur(P_DISB_HEADER_ID);
1723: l_External_Payee_Tab(l_count).Payer_Org_Type := 'OPERATING_UNIT';
1724: l_External_Payee_Tab(l_count).Payment_Function := 'LOANS_PAYMENTS';
1725: l_External_Payee_Tab(l_count).Exclusive_Pay_Flag := 'N';
1726:
1727: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee #' || l_count);
1728: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Id: ' || l_External_Payee_Tab(l_count).Payee_Party_Id);
1729: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Id: ' || l_External_Payee_Tab(l_count).Payer_Org_Id);
1730: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Type: ' || l_External_Payee_Tab(l_count).Payer_Org_Type);
1731: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Function: ' || l_External_Payee_Tab(l_count).Payment_Function);
1724: l_External_Payee_Tab(l_count).Payment_Function := 'LOANS_PAYMENTS';
1725: l_External_Payee_Tab(l_count).Exclusive_Pay_Flag := 'N';
1726:
1727: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee #' || l_count);
1728: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Id: ' || l_External_Payee_Tab(l_count).Payee_Party_Id);
1729: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Id: ' || l_External_Payee_Tab(l_count).Payer_Org_Id);
1730: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Type: ' || l_External_Payee_Tab(l_count).Payer_Org_Type);
1731: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Function: ' || l_External_Payee_Tab(l_count).Payment_Function);
1732:
1725: l_External_Payee_Tab(l_count).Exclusive_Pay_Flag := 'N';
1726:
1727: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee #' || l_count);
1728: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Id: ' || l_External_Payee_Tab(l_count).Payee_Party_Id);
1729: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Id: ' || l_External_Payee_Tab(l_count).Payer_Org_Id);
1730: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Type: ' || l_External_Payee_Tab(l_count).Payer_Org_Type);
1731: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Function: ' || l_External_Payee_Tab(l_count).Payment_Function);
1732:
1733: END LOOP;
1726:
1727: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee #' || l_count);
1728: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Id: ' || l_External_Payee_Tab(l_count).Payee_Party_Id);
1729: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Id: ' || l_External_Payee_Tab(l_count).Payer_Org_Id);
1730: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Type: ' || l_External_Payee_Tab(l_count).Payer_Org_Type);
1731: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Function: ' || l_External_Payee_Tab(l_count).Payment_Function);
1732:
1733: END LOOP;
1734: close payees_cur;
1727: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee #' || l_count);
1728: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Id: ' || l_External_Payee_Tab(l_count).Payee_Party_Id);
1729: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Id: ' || l_External_Payee_Tab(l_count).Payer_Org_Id);
1730: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Type: ' || l_External_Payee_Tab(l_count).Payer_Org_Type);
1731: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Function: ' || l_External_Payee_Tab(l_count).Payment_Function);
1732:
1733: END LOOP;
1734: close payees_cur;
1735:
1734: close payees_cur;
1735:
1736: if l_External_Payee_Tab.count > 0 then
1737:
1738: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee...');
1739: IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee (
1740: p_api_version => 1.0,
1741: p_init_msg_list => FND_API.G_TRUE,
1742: p_ext_payee_tab => l_External_Payee_Tab,
1745: x_msg_data => l_msg_data,
1746: x_ext_payee_id_tab => l_Ext_Payee_ID_Tab,
1747: x_ext_payee_status_tab => l_Ext_Payee_Create_Tab);
1748:
1749: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
1750:
1751: FOR l_Count IN 1..l_Ext_Payee_ID_Tab.COUNT LOOP
1752: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_Ext_Payee_ID_Tab(' || l_Count || ').Ext_Payee_ID: ' || l_Ext_Payee_ID_Tab(l_Count).Ext_Payee_ID);
1753: END LOOP;
1748:
1749: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
1750:
1751: FOR l_Count IN 1..l_Ext_Payee_ID_Tab.COUNT LOOP
1752: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_Ext_Payee_ID_Tab(' || l_Count || ').Ext_Payee_ID: ' || l_Ext_Payee_ID_Tab(l_Count).Ext_Payee_ID);
1753: END LOOP;
1754:
1755: FOR l_Count IN 1..l_Ext_Payee_ID_Tab.COUNT LOOP
1756: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_Ext_Payee_Create_Tab(' || l_Count || ').Payee_Creation_Status: ' || l_Ext_Payee_Create_Tab(l_Count).Payee_Creation_Status);
1752: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_Ext_Payee_ID_Tab(' || l_Count || ').Ext_Payee_ID: ' || l_Ext_Payee_ID_Tab(l_Count).Ext_Payee_ID);
1753: END LOOP;
1754:
1755: FOR l_Count IN 1..l_Ext_Payee_ID_Tab.COUNT LOOP
1756: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_Ext_Payee_Create_Tab(' || l_Count || ').Payee_Creation_Status: ' || l_Ext_Payee_Create_Tab(l_Count).Payee_Creation_Status);
1757: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_Ext_Payee_Create_Tab(' || l_Count || ').Payee_Creation_Msg: ' || l_Ext_Payee_Create_Tab(l_Count).Payee_Creation_Msg);
1758: --karamach bug5226980
1759: l_return_status := l_Ext_Payee_Create_Tab(l_Count).Payee_Creation_Status;
1760: if (l_Ext_Payee_Create_Tab(l_Count).Payee_Creation_Status = 'E') then
1753: END LOOP;
1754:
1755: FOR l_Count IN 1..l_Ext_Payee_ID_Tab.COUNT LOOP
1756: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_Ext_Payee_Create_Tab(' || l_Count || ').Payee_Creation_Status: ' || l_Ext_Payee_Create_Tab(l_Count).Payee_Creation_Status);
1757: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_Ext_Payee_Create_Tab(' || l_Count || ').Payee_Creation_Msg: ' || l_Ext_Payee_Create_Tab(l_Count).Payee_Creation_Msg);
1758: --karamach bug5226980
1759: l_return_status := l_Ext_Payee_Create_Tab(l_Count).Payee_Creation_Status;
1760: if (l_Ext_Payee_Create_Tab(l_Count).Payee_Creation_Status = 'E') then
1761: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1774: p_data => l_msg_data);
1775: RAISE FND_API.G_EXC_ERROR;
1776: end if;
1777:
1778: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully created external iby payees');
1779:
1780: end if;
1781:
1782: -- END OF BODY OF API
1779:
1780: end if;
1781:
1782: -- END OF BODY OF API
1783: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
1784:
1785: END;
1786:
1787:
1908: AND NVL(HPS.Start_Date_Active, P_DATE) = P_DATE;
1909:
1910: BEGIN
1911:
1912: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
1913: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1914:
1915: -- Standard call to check for call compatibility
1916: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1909:
1910: BEGIN
1911:
1912: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
1913: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1914:
1915: -- Standard call to check for call compatibility
1916: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1926: l_return_status := FND_API.G_RET_STS_SUCCESS;
1927:
1928: -- START OF BODY OF API
1929:
1930: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Validating disbursement schedule...');
1931:
1932: -- getting all disbursement headers
1933: l_count := 0;
1934: l_sum_percent := 0;
1954: if disb_headers_cur%NOTFOUND and l_count = 0 then
1955:
1956: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
1957: FND_MSG_PUB.ADD;
1958: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1959:
1960: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Disbursement schedule is not found');
1961: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
1962: FND_MSG_PUB.ADD;
1956: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
1957: FND_MSG_PUB.ADD;
1958: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1959:
1960: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Disbursement schedule is not found');
1961: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
1962: FND_MSG_PUB.ADD;
1963: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1964: RAISE FND_API.G_EXC_ERROR;
1959:
1960: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Disbursement schedule is not found');
1961: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
1962: FND_MSG_PUB.ADD;
1963: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1964: RAISE FND_API.G_EXC_ERROR;
1965:
1966: elsif disb_headers_cur%NOTFOUND and l_count > 0 then
1967: exit;
1968: end if;
1969:
1970: l_count := l_count + 1;
1971:
1972: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
1973: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement header #' || l_count);
1974: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
1975: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_HEADER_REC.DISB_HEADER_ID);
1976: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
1969:
1970: l_count := l_count + 1;
1971:
1972: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
1973: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement header #' || l_count);
1974: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
1975: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_HEADER_REC.DISB_HEADER_ID);
1976: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
1977: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
1970: l_count := l_count + 1;
1971:
1972: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
1973: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement header #' || l_count);
1974: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
1975: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_HEADER_REC.DISB_HEADER_ID);
1976: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
1977: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
1978: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
1971:
1972: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
1973: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement header #' || l_count);
1974: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
1975: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_HEADER_REC.DISB_HEADER_ID);
1976: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
1977: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
1978: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
1979: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
1972: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
1973: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement header #' || l_count);
1974: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
1975: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_HEADER_REC.DISB_HEADER_ID);
1976: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
1977: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
1978: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
1979: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
1980: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_HEADER_REC.STATUS);
1973: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement header #' || l_count);
1974: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
1975: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_HEADER_REC.DISB_HEADER_ID);
1976: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
1977: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
1978: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
1979: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
1980: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_HEADER_REC.STATUS);
1981: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
1974: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
1975: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_HEADER_REC.DISB_HEADER_ID);
1976: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
1977: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
1978: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
1979: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
1980: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_HEADER_REC.STATUS);
1981: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
1982: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Requested Amount: ' || l_funded_amount);
1975: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_HEADER_REC.DISB_HEADER_ID);
1976: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
1977: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
1978: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
1979: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
1980: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_HEADER_REC.STATUS);
1981: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
1982: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Requested Amount: ' || l_funded_amount);
1983: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
1976: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
1977: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
1978: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
1979: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
1980: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_HEADER_REC.STATUS);
1981: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
1982: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Requested Amount: ' || l_funded_amount);
1983: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
1984: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan start date: ' || l_loan_start_date);
1977: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
1978: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
1979: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
1980: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_HEADER_REC.STATUS);
1981: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
1982: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Requested Amount: ' || l_funded_amount);
1983: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
1984: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan start date: ' || l_loan_start_date);
1985: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan maturity date: ' || l_loan_maturity_date);
1978: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
1979: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
1980: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_HEADER_REC.STATUS);
1981: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
1982: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Requested Amount: ' || l_funded_amount);
1983: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
1984: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan start date: ' || l_loan_start_date);
1985: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan maturity date: ' || l_loan_maturity_date);
1986:
1979: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
1980: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_HEADER_REC.STATUS);
1981: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
1982: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Requested Amount: ' || l_funded_amount);
1983: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
1984: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan start date: ' || l_loan_start_date);
1985: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan maturity date: ' || l_loan_maturity_date);
1986:
1987: if l_DISB_HEADER_REC.LOAN_ID is null then
1980: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_HEADER_REC.STATUS);
1981: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
1982: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Requested Amount: ' || l_funded_amount);
1983: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
1984: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan start date: ' || l_loan_start_date);
1985: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan maturity date: ' || l_loan_maturity_date);
1986:
1987: if l_DISB_HEADER_REC.LOAN_ID is null then
1988:
1981: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
1982: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Requested Amount: ' || l_funded_amount);
1983: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
1984: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan start date: ' || l_loan_start_date);
1985: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan maturity date: ' || l_loan_maturity_date);
1986:
1987: if l_DISB_HEADER_REC.LOAN_ID is null then
1988:
1989: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
1987: if l_DISB_HEADER_REC.LOAN_ID is null then
1988:
1989: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
1990: FND_MSG_PUB.ADD;
1991: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1992:
1993: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
1994: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1995: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan id' );
1989: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
1990: FND_MSG_PUB.ADD;
1991: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1992:
1993: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
1994: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1995: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan id' );
1996: FND_MSG_PUB.ADD;
1997: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1993: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
1994: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1995: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan id' );
1996: FND_MSG_PUB.ADD;
1997: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1998: RAISE FND_API.G_EXC_ERROR;
1999:
2000: end if;
2001:
2002: if l_DISB_HEADER_REC.ACTIVITY_CODE is null then
2003:
2004: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2005: FND_MSG_PUB.ADD;
2006: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2007:
2008: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2009: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2010: FND_MSG_PUB.ADD;
2004: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2005: FND_MSG_PUB.ADD;
2006: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2007:
2008: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2009: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2010: FND_MSG_PUB.ADD;
2011: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2012: RAISE FND_API.G_EXC_ERROR;
2007:
2008: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2009: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2010: FND_MSG_PUB.ADD;
2011: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2012: RAISE FND_API.G_EXC_ERROR;
2013:
2014: end if;
2015:
2016: if l_DISB_HEADER_REC.HEADER_PERCENT is null or l_DISB_HEADER_REC.HEADER_AMOUNT is null then
2017:
2018: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2019: FND_MSG_PUB.ADD;
2020: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2021:
2022: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2023: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2024: FND_MSG_PUB.ADD;
2018: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2019: FND_MSG_PUB.ADD;
2020: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2021:
2022: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2023: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2024: FND_MSG_PUB.ADD;
2025: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2026: RAISE FND_API.G_EXC_ERROR;
2021:
2022: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2023: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2024: FND_MSG_PUB.ADD;
2025: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2026: RAISE FND_API.G_EXC_ERROR;
2027:
2028: end if;
2029:
2030: if l_DISB_HEADER_REC.TARGET_DATE is null then
2031:
2032: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2033: FND_MSG_PUB.ADD;
2034: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2035:
2036: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date is missing');
2037: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_TARGET_DATE' );
2038: FND_MSG_PUB.ADD;
2032: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2033: FND_MSG_PUB.ADD;
2034: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2035:
2036: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date is missing');
2037: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_TARGET_DATE' );
2038: FND_MSG_PUB.ADD;
2039: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2040: RAISE FND_API.G_EXC_ERROR;
2035:
2036: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date is missing');
2037: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_TARGET_DATE' );
2038: FND_MSG_PUB.ADD;
2039: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2040: RAISE FND_API.G_EXC_ERROR;
2041:
2042: end if;
2043:
2042: end if;
2043:
2044: if trunc(l_DISB_HEADER_REC.TARGET_DATE) < trunc(l_loan_start_date) then
2045:
2046: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date must be later that start date');
2047: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_TARGET_DATE_ERR' );
2048: FND_MSG_PUB.ADD;
2049: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2050: RAISE FND_API.G_EXC_ERROR;
2045:
2046: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date must be later that start date');
2047: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_TARGET_DATE_ERR' );
2048: FND_MSG_PUB.ADD;
2049: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2050: RAISE FND_API.G_EXC_ERROR;
2051:
2052: end if;
2053:
2053:
2054: l_sum_percent := l_sum_percent + l_DISB_HEADER_REC.HEADER_PERCENT;
2055: l_running_sum := l_running_sum + l_DISB_HEADER_REC.HEADER_AMOUNT;
2056:
2057: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Validating disbursement lines...');
2058:
2059: -- getting disbursement lines
2060: l_count1 := 0;
2061: l_sum_percent1 := 0;
2076: l_due_date;
2077:
2078: if disb_lines_cur%NOTFOUND and l_count1 = 0 then
2079:
2080: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Disbursement lines are not found');
2081: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
2082: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement line record');
2083: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(l_DISB_HEADER_REC.DISB_HEADER_ID), 'null'));
2084: FND_MSG_PUB.ADD;
2081: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
2082: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement line record');
2083: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(l_DISB_HEADER_REC.DISB_HEADER_ID), 'null'));
2084: FND_MSG_PUB.ADD;
2085: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2086: RAISE FND_API.G_EXC_ERROR;
2087:
2088: elsif disb_lines_cur%NOTFOUND and l_count1 > 0 then
2089: exit;
2090: end if;
2091:
2092: l_count1 := l_count1 + 1;
2093:
2094: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
2095: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement line #' || l_count);
2096: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
2097: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
2098: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
2091:
2092: l_count1 := l_count1 + 1;
2093:
2094: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
2095: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement line #' || l_count);
2096: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
2097: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
2098: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
2099: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
2092: l_count1 := l_count1 + 1;
2093:
2094: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
2095: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement line #' || l_count);
2096: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
2097: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
2098: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
2099: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
2100: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
2093:
2094: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
2095: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement line #' || l_count);
2096: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
2097: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
2098: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
2099: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
2100: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
2101: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account ID: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
2094: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
2095: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement line #' || l_count);
2096: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
2097: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
2098: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
2099: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
2100: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
2101: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account ID: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
2102: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method Code: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
2095: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement line #' || l_count);
2096: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
2097: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
2098: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
2099: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
2100: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
2101: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account ID: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
2102: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method Code: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
2103: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
2096: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_HEADER_ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
2097: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
2098: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
2099: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
2100: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
2101: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account ID: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
2102: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method Code: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
2103: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
2104: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Due date: ' || l_due_date);
2097: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
2098: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
2099: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
2100: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
2101: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account ID: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
2102: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method Code: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
2103: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
2104: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Due date: ' || l_due_date);
2105:
2098: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
2099: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
2100: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
2101: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account ID: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
2102: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method Code: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
2103: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
2104: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Due date: ' || l_due_date);
2105:
2106: if l_DISB_LINE_REC.DISB_HEADER_ID is null then
2099: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
2100: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
2101: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account ID: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
2102: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method Code: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
2103: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
2104: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Due date: ' || l_due_date);
2105:
2106: if l_DISB_LINE_REC.DISB_HEADER_ID is null then
2107:
2100: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
2101: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account ID: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
2102: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method Code: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
2103: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
2104: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Due date: ' || l_due_date);
2105:
2106: if l_DISB_LINE_REC.DISB_HEADER_ID is null then
2107:
2108: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2106: if l_DISB_LINE_REC.DISB_HEADER_ID is null then
2107:
2108: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2109: FND_MSG_PUB.ADD;
2110: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2111:
2112: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header is missing');
2113: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2114: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
2108: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2109: FND_MSG_PUB.ADD;
2110: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2111:
2112: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header is missing');
2113: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2114: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
2115: FND_MSG_PUB.ADD;
2116: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2112: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header is missing');
2113: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2114: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
2115: FND_MSG_PUB.ADD;
2116: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2117: RAISE FND_API.G_EXC_ERROR;
2118:
2119: end if;
2120:
2121: if l_DISB_LINE_REC.LINE_PERCENT is null or l_DISB_LINE_REC.LINE_AMOUNT is null then
2122:
2123: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2124: FND_MSG_PUB.ADD;
2125: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2126:
2127: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
2128: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC' );
2129: FND_MSG_PUB.ADD;
2123: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2124: FND_MSG_PUB.ADD;
2125: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2126:
2127: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
2128: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC' );
2129: FND_MSG_PUB.ADD;
2130: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2131: RAISE FND_API.G_EXC_ERROR;
2126:
2127: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
2128: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC' );
2129: FND_MSG_PUB.ADD;
2130: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2131: RAISE FND_API.G_EXC_ERROR;
2132:
2133: end if;
2134:
2135: if l_DISB_LINE_REC.PAYEE_PARTY_ID is null then
2136:
2137: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2138: FND_MSG_PUB.ADD;
2139: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2140:
2141: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
2142: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
2143: FND_MSG_PUB.ADD;
2137: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2138: FND_MSG_PUB.ADD;
2139: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2140:
2141: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
2142: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
2143: FND_MSG_PUB.ADD;
2144: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2145: RAISE FND_API.G_EXC_ERROR;
2140:
2141: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
2142: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
2143: FND_MSG_PUB.ADD;
2144: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2145: RAISE FND_API.G_EXC_ERROR;
2146:
2147: end if;
2148:
2154: if party_site_cur%NOTFOUND then
2155:
2156: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2157: FND_MSG_PUB.ADD;
2158: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2159:
2160: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: No site exist for the party');
2161: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_PARTY_SITE');
2162: FND_MSG_PUB.ADD;
2156: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2157: FND_MSG_PUB.ADD;
2158: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2159:
2160: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: No site exist for the party');
2161: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_PARTY_SITE');
2162: FND_MSG_PUB.ADD;
2163: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2164: RAISE FND_API.G_EXC_ERROR;
2159:
2160: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: No site exist for the party');
2161: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_PARTY_SITE');
2162: FND_MSG_PUB.ADD;
2163: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2164: RAISE FND_API.G_EXC_ERROR;
2165:
2166: end if;
2167: close party_site_cur;
2168:
2169: l_sum_percent1 := l_sum_percent1 + l_DISB_LINE_REC.LINE_PERCENT;
2170: l_running_sum1 := l_running_sum1 + l_DISB_LINE_REC.LINE_AMOUNT;
2171:
2172: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement line ' || l_count1 || ' is OK');
2173:
2174: END LOOP;
2175:
2176: close disb_lines_cur;
2178: -- checking for total percent
2179: if l_sum_percent1 <> 100 or l_running_sum1 <> l_DISB_HEADER_REC.HEADER_AMOUNT then
2180: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2181: FND_MSG_PUB.ADD;
2182: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2183:
2184: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all lines: ' || l_sum_percent1);
2185: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_LN_PERC_INVALID');
2186: FND_MESSAGE.SET_TOKEN('DISB_NUM', l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
2180: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2181: FND_MSG_PUB.ADD;
2182: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2183:
2184: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all lines: ' || l_sum_percent1);
2185: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_LN_PERC_INVALID');
2186: FND_MESSAGE.SET_TOKEN('DISB_NUM', l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
2187: FND_MSG_PUB.ADD;
2188: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2184: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all lines: ' || l_sum_percent1);
2185: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_LN_PERC_INVALID');
2186: FND_MESSAGE.SET_TOKEN('DISB_NUM', l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
2187: FND_MSG_PUB.ADD;
2188: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2189: RAISE FND_API.G_EXC_ERROR;
2190: end if;
2191:
2192: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement header ' || l_count || ' is OK');
2188: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2189: RAISE FND_API.G_EXC_ERROR;
2190: end if;
2191:
2192: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement header ' || l_count || ' is OK');
2193:
2194: END LOOP;
2195:
2196: close disb_headers_cur;
2198: -- checking for total percent
2199: if l_sum_percent <> 100 or l_running_sum <> l_funded_amount then
2200: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2201: FND_MSG_PUB.ADD;
2202: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2203:
2204: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all disbursements: ' || l_sum_percent);
2205: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_HDR_PERC_INVALID');
2206: FND_MSG_PUB.ADD;
2200: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2201: FND_MSG_PUB.ADD;
2202: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2203:
2204: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all disbursements: ' || l_sum_percent);
2205: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_HDR_PERC_INVALID');
2206: FND_MSG_PUB.ADD;
2207: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2208: RAISE FND_API.G_EXC_ERROR;
2203:
2204: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all disbursements: ' || l_sum_percent);
2205: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_HDR_PERC_INVALID');
2206: FND_MSG_PUB.ADD;
2207: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2208: RAISE FND_API.G_EXC_ERROR;
2209: end if;
2210:
2211: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully validated disbursement schedule');
2207: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2208: RAISE FND_API.G_EXC_ERROR;
2209: end if;
2210:
2211: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully validated disbursement schedule');
2212:
2213: -- END OF BODY OF API
2214: x_return_status := FND_API.G_RET_STS_SUCCESS;
2215:
2218: p_encoded => FND_API.G_FALSE,
2219: p_count => x_msg_count,
2220: p_data => x_msg_data);
2221:
2222: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
2223:
2224: EXCEPTION
2225: WHEN FND_API.G_EXC_ERROR THEN
2226: x_return_status := FND_API.G_RET_STS_ERROR;
2319: head.LOAN_ID = loan.LOAN_ID;
2320:
2321: BEGIN
2322:
2323: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
2324: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
2325:
2326: -- Standard call to check for call compatibility
2327: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2320:
2321: BEGIN
2322:
2323: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
2324: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
2325:
2326: -- Standard call to check for call compatibility
2327: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2337: l_return_status := FND_API.G_RET_STS_SUCCESS;
2338:
2339: -- START OF BODY OF API
2340:
2341: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Validating disbursement header for payment request submition...');
2342:
2343: -- getting disbursement header and lines info
2344: open validate_cur(P_DISB_HEADER_ID);
2345: fetch validate_cur into l_DISB_HEADER_REC.ACTIVITY_CODE,
2351:
2352: -- if no record exists - return; otherwise proceed
2353: if validate_cur%NOTFOUND then
2354:
2355: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Disbursement Header Record is not found');
2356: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
2357: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement header record');
2358: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_ID), 'null'));
2359: FND_MSG_PUB.ADD;
2356: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
2357: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement header record');
2358: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_ID), 'null'));
2359: FND_MSG_PUB.ADD;
2360: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2361: RAISE FND_API.G_EXC_ERROR;
2362:
2363: end if;
2364:
2367: if l_DISB_HEADER_REC.ACTIVITY_CODE is null then
2368:
2369: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2370: FND_MSG_PUB.ADD;
2371: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2372:
2373: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2374: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2375: FND_MSG_PUB.ADD;
2369: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2370: FND_MSG_PUB.ADD;
2371: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2372:
2373: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2374: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2375: FND_MSG_PUB.ADD;
2376: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2377: RAISE FND_API.G_EXC_ERROR;
2372:
2373: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2374: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2375: FND_MSG_PUB.ADD;
2376: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2377: RAISE FND_API.G_EXC_ERROR;
2378:
2379: end if;
2380:
2381: if l_DISB_HEADER_REC.HEADER_PERCENT is null or l_DISB_HEADER_REC.HEADER_AMOUNT is null then
2382:
2383: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2384: FND_MSG_PUB.ADD;
2385: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2386:
2387: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2388: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2389: FND_MSG_PUB.ADD;
2383: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2384: FND_MSG_PUB.ADD;
2385: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2386:
2387: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2388: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2389: FND_MSG_PUB.ADD;
2390: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2391: RAISE FND_API.G_EXC_ERROR;
2386:
2387: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2388: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2389: FND_MSG_PUB.ADD;
2390: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2391: RAISE FND_API.G_EXC_ERROR;
2392:
2393: end if;
2394:
2392:
2393: end if;
2394:
2395: -- validate Payment request date
2396: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment request date: ' || l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
2397: if l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE is null then
2398: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment request date is missing');
2399: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAY_REQ_DATE' );
2400: FND_MSG_PUB.ADD;
2394:
2395: -- validate Payment request date
2396: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment request date: ' || l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
2397: if l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE is null then
2398: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment request date is missing');
2399: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAY_REQ_DATE' );
2400: FND_MSG_PUB.ADD;
2401: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2402: RAISE FND_API.G_EXC_ERROR;
2397: if l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE is null then
2398: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment request date is missing');
2399: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAY_REQ_DATE' );
2400: FND_MSG_PUB.ADD;
2401: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2402: RAISE FND_API.G_EXC_ERROR;
2403: end if;
2404:
2405: if trunc(l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE) < trunc(l_open_start_date) then
2403: end if;
2404:
2405: if trunc(l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE) < trunc(l_open_start_date) then
2406:
2407: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment request date must be greater than open start date');
2408: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_PAY_REQ_DT_INVALID' );
2409: FND_MSG_PUB.ADD;
2410: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2411: RAISE FND_API.G_EXC_ERROR;
2406:
2407: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment request date must be greater than open start date');
2408: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_PAY_REQ_DT_INVALID' );
2409: FND_MSG_PUB.ADD;
2410: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2411: RAISE FND_API.G_EXC_ERROR;
2412:
2413: end if;
2414:
2412:
2413: end if;
2414:
2415: -- validate that no lines without payment method
2416: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Number of lines without payment method: ' || l_no_pay_mtd_count);
2417: if l_no_pay_mtd_count > 0 then
2418: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'There are disb lines without payment method');
2419: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAY_METHOD' );
2420: FND_MSG_PUB.ADD;
2414:
2415: -- validate that no lines without payment method
2416: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Number of lines without payment method: ' || l_no_pay_mtd_count);
2417: if l_no_pay_mtd_count > 0 then
2418: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'There are disb lines without payment method');
2419: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAY_METHOD' );
2420: FND_MSG_PUB.ADD;
2421: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2422: RAISE FND_API.G_EXC_ERROR;
2417: if l_no_pay_mtd_count > 0 then
2418: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'There are disb lines without payment method');
2419: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAY_METHOD' );
2420: FND_MSG_PUB.ADD;
2421: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2422: RAISE FND_API.G_EXC_ERROR;
2423: end if;
2424:
2425: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully validated disbursement header for payment request submition');
2421: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2422: RAISE FND_API.G_EXC_ERROR;
2423: end if;
2424:
2425: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully validated disbursement header for payment request submition');
2426:
2427: -- END OF BODY OF API
2428: x_return_status := FND_API.G_RET_STS_SUCCESS;
2429:
2432: p_encoded => FND_API.G_FALSE,
2433: p_count => x_msg_count,
2434: p_data => x_msg_data);
2435:
2436: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
2437:
2438: EXCEPTION
2439: WHEN FND_API.G_EXC_ERROR THEN
2440: x_return_status := FND_API.G_RET_STS_ERROR;
2572: AND NVL(HPS.Start_Date_Active, P_DATE) = P_DATE;
2573:
2574: BEGIN
2575:
2576: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
2577: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
2578:
2579: -- Standard start of API savepoint
2580: SAVEPOINT VALIDATE_DISB_LINES;
2573:
2574: BEGIN
2575:
2576: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
2577: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
2578:
2579: -- Standard start of API savepoint
2580: SAVEPOINT VALIDATE_DISB_LINES;
2581: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
2577: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
2578:
2579: -- Standard start of API savepoint
2580: SAVEPOINT VALIDATE_DISB_LINES;
2581: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
2582:
2583: -- Standard call to check for call compatibility
2584: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2594: l_return_status := FND_API.G_RET_STS_SUCCESS;
2595:
2596: -- START OF BODY OF API
2597:
2598: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Validating disbursement lines for header ' || P_DISB_HEADER_ID || '...');
2599:
2600: -- getting disbursement lines
2601: l_precision_queried := 0;
2602: l_count := 0;
2630:
2631: l_changed := 0;
2632: l_count := l_count + 1;
2633:
2634: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
2635: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement line #' || l_count);
2636: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_DISB_LINE_REC.DISB_LINE_ID);
2637: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
2638: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
2631: l_changed := 0;
2632: l_count := l_count + 1;
2633:
2634: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
2635: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement line #' || l_count);
2636: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_DISB_LINE_REC.DISB_LINE_ID);
2637: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
2638: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
2639: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
2632: l_count := l_count + 1;
2633:
2634: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
2635: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement line #' || l_count);
2636: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_DISB_LINE_REC.DISB_LINE_ID);
2637: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
2638: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
2639: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
2640: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
2633:
2634: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
2635: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement line #' || l_count);
2636: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_DISB_LINE_REC.DISB_LINE_ID);
2637: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
2638: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
2639: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
2640: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
2641: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
2634: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
2635: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement line #' || l_count);
2636: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_DISB_LINE_REC.DISB_LINE_ID);
2637: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
2638: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
2639: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
2640: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
2641: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
2642: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account ID: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
2635: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement line #' || l_count);
2636: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_DISB_LINE_REC.DISB_LINE_ID);
2637: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
2638: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
2639: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
2640: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
2641: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
2642: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account ID: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
2643: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method Code: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
2636: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_DISB_LINE_REC.DISB_LINE_ID);
2637: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
2638: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
2639: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
2640: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
2641: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
2642: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account ID: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
2643: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method Code: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
2644: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
2637: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
2638: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
2639: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
2640: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
2641: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
2642: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account ID: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
2643: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method Code: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
2644: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
2645: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
2638: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
2639: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
2640: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
2641: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
2642: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account ID: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
2643: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method Code: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
2644: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
2645: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
2646: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_LINE_REC.STATUS);
2639: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
2640: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
2641: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
2642: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account ID: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
2643: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method Code: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
2644: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
2645: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
2646: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_LINE_REC.STATUS);
2647: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Date: ' || l_DISB_LINE_REC.DISBURSEMENT_DATE);
2640: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
2641: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
2642: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account ID: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
2643: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method Code: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
2644: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
2645: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
2646: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_LINE_REC.STATUS);
2647: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Date: ' || l_DISB_LINE_REC.DISBURSEMENT_DATE);
2648: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Amount: ' || l_header_amount);
2641: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
2642: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account ID: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
2643: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method Code: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
2644: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
2645: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
2646: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_LINE_REC.STATUS);
2647: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Date: ' || l_DISB_LINE_REC.DISBURSEMENT_DATE);
2648: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Amount: ' || l_header_amount);
2649: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_disb_number);
2642: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account ID: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
2643: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method Code: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
2644: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
2645: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
2646: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_LINE_REC.STATUS);
2647: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Date: ' || l_DISB_LINE_REC.DISBURSEMENT_DATE);
2648: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Amount: ' || l_header_amount);
2649: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_disb_number);
2650: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
2643: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method Code: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
2644: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
2645: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
2646: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_LINE_REC.STATUS);
2647: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Date: ' || l_DISB_LINE_REC.DISBURSEMENT_DATE);
2648: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Amount: ' || l_header_amount);
2649: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_disb_number);
2650: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
2651: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Org ID: ' || l_org_id);
2644: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
2645: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
2646: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_LINE_REC.STATUS);
2647: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Date: ' || l_DISB_LINE_REC.DISBURSEMENT_DATE);
2648: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Amount: ' || l_header_amount);
2649: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_disb_number);
2650: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
2651: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Org ID: ' || l_org_id);
2652: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LE ID: ' || l_le_id);
2645: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
2646: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_LINE_REC.STATUS);
2647: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Date: ' || l_DISB_LINE_REC.DISBURSEMENT_DATE);
2648: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Amount: ' || l_header_amount);
2649: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_disb_number);
2650: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
2651: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Org ID: ' || l_org_id);
2652: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LE ID: ' || l_le_id);
2653: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Due date: ' || l_due_date);
2646: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_LINE_REC.STATUS);
2647: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Date: ' || l_DISB_LINE_REC.DISBURSEMENT_DATE);
2648: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Amount: ' || l_header_amount);
2649: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_disb_number);
2650: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
2651: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Org ID: ' || l_org_id);
2652: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LE ID: ' || l_le_id);
2653: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Due date: ' || l_due_date);
2654:
2647: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Date: ' || l_DISB_LINE_REC.DISBURSEMENT_DATE);
2648: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Amount: ' || l_header_amount);
2649: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_disb_number);
2650: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
2651: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Org ID: ' || l_org_id);
2652: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LE ID: ' || l_le_id);
2653: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Due date: ' || l_due_date);
2654:
2655: if l_DISB_LINE_REC.DISB_HEADER_ID is null then
2648: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Amount: ' || l_header_amount);
2649: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_disb_number);
2650: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
2651: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Org ID: ' || l_org_id);
2652: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LE ID: ' || l_le_id);
2653: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Due date: ' || l_due_date);
2654:
2655: if l_DISB_LINE_REC.DISB_HEADER_ID is null then
2656:
2649: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_disb_number);
2650: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
2651: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Org ID: ' || l_org_id);
2652: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LE ID: ' || l_le_id);
2653: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Due date: ' || l_due_date);
2654:
2655: if l_DISB_LINE_REC.DISB_HEADER_ID is null then
2656:
2657: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header is missing');
2653: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Due date: ' || l_due_date);
2654:
2655: if l_DISB_LINE_REC.DISB_HEADER_ID is null then
2656:
2657: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header is missing');
2658: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2659: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
2660: FND_MSG_PUB.ADD;
2661: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2657: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header is missing');
2658: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2659: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
2660: FND_MSG_PUB.ADD;
2661: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2662: RAISE FND_API.G_EXC_ERROR;
2663:
2664: end if;
2665:
2664: end if;
2665:
2666: if l_DISB_LINE_REC.LINE_PERCENT is null then
2667:
2668: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
2669: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC' );
2670: FND_MSG_PUB.ADD;
2671: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2672: RAISE FND_API.G_EXC_ERROR;
2667:
2668: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
2669: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC' );
2670: FND_MSG_PUB.ADD;
2671: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2672: RAISE FND_API.G_EXC_ERROR;
2673:
2674: end if;
2675:
2674: end if;
2675:
2676: if l_DISB_LINE_REC.PAYEE_PARTY_ID is null then
2677:
2678: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
2679: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
2680: FND_MSG_PUB.ADD;
2681: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2682: RAISE FND_API.G_EXC_ERROR;
2677:
2678: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
2679: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
2680: FND_MSG_PUB.ADD;
2681: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2682: RAISE FND_API.G_EXC_ERROR;
2683:
2684: end if;
2685:
2689:
2690: -- if no record exists - error; otherwise proceed
2691: if party_site_cur%NOTFOUND then
2692:
2693: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: No site exist for the party');
2694: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_PARTY_SITE');
2695: FND_MSG_PUB.ADD;
2696: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2697: RAISE FND_API.G_EXC_ERROR;
2692:
2693: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: No site exist for the party');
2694: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_PARTY_SITE');
2695: FND_MSG_PUB.ADD;
2696: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2697: RAISE FND_API.G_EXC_ERROR;
2698:
2699: end if;
2700: close party_site_cur;
2702: l_sum_percent := l_sum_percent + l_DISB_LINE_REC.LINE_PERCENT;
2703:
2704: if l_DISB_LINE_REC.DISBURSEMENT_DATE is not null then
2705:
2706: LogMessage(FND_LOG.LEVEL_STATEMENT, 'This line has already been successfully disbursed - skiping it');
2707:
2708: else
2709:
2710: if l_precision_queried = 0 then
2739: end if;
2740:
2741: -- checking for total percent
2742: if l_sum_percent <> 100 then
2743: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all lines: ' || l_sum_percent);
2744: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_LN_PERC_INVALID');
2745: FND_MESSAGE.SET_TOKEN('DISB_NUM', l_disb_number);
2746: FND_MSG_PUB.ADD;
2747: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2743: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all lines: ' || l_sum_percent);
2744: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_LN_PERC_INVALID');
2745: FND_MESSAGE.SET_TOKEN('DISB_NUM', l_disb_number);
2746: FND_MSG_PUB.ADD;
2747: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2748: RAISE FND_API.G_EXC_ERROR;
2749: end if;
2750:
2751: -- loop thru table and update disb lines table
2761: X_MSG_COUNT => l_msg_count,
2762: X_MSG_DATA => l_msg_data);
2763:
2764: IF l_return_status <> 'S' THEN
2765: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Call to UPDATE_DISB_LINE failed');
2766: RAISE FND_API.G_EXC_ERROR;
2767: END IF;
2768:
2769: END LOOP;
2769: END LOOP;
2770:
2771: if P_COMMIT = FND_API.G_TRUE then
2772: COMMIT WORK;
2773: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
2774: end if;
2775:
2776: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully validated disbursement lines for header ' || P_DISB_HEADER_ID);
2777:
2772: COMMIT WORK;
2773: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
2774: end if;
2775:
2776: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully validated disbursement lines for header ' || P_DISB_HEADER_ID);
2777:
2778: -- END OF BODY OF API
2779: x_return_status := FND_API.G_RET_STS_SUCCESS;
2780:
2783: p_encoded => FND_API.G_FALSE,
2784: p_count => x_msg_count,
2785: p_data => x_msg_data);
2786:
2787: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
2788:
2789: EXCEPTION
2790: WHEN FND_API.G_EXC_ERROR THEN
2791: ROLLBACK TO VALIDATE_DISB_LINES;
2790: WHEN FND_API.G_EXC_ERROR THEN
2791: ROLLBACK TO VALIDATE_DISB_LINES;
2792: x_return_status := FND_API.G_RET_STS_ERROR;
2793: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2794: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
2795: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2796: ROLLBACK TO VALIDATE_DISB_LINES;
2797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2798: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2795: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2796: ROLLBACK TO VALIDATE_DISB_LINES;
2797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2798: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2799: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
2800: WHEN OTHERS THEN
2801: ROLLBACK TO VALIDATE_DISB_LINES;
2802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2803: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2803: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2804: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2805: END IF;
2806: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2807: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
2808:
2809: END;
2810:
2811:
2929: where loan.LOAN_ID = P_LOAN_ID;
2930:
2931: BEGIN
2932:
2933: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
2934: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
2935:
2936: -- Standard start of API savepoint
2937: SAVEPOINT VALIDATE_DISB_HEADERS;
2930:
2931: BEGIN
2932:
2933: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
2934: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
2935:
2936: -- Standard start of API savepoint
2937: SAVEPOINT VALIDATE_DISB_HEADERS;
2938: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
2934: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
2935:
2936: -- Standard start of API savepoint
2937: SAVEPOINT VALIDATE_DISB_HEADERS;
2938: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
2939:
2940: -- Standard call to check for call compatibility
2941: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2942: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2951: l_return_status := FND_API.G_RET_STS_SUCCESS;
2952:
2953: -- START OF BODY OF API
2954:
2955: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Validating all disbursement headers...');
2956:
2957: -- getting all disbursement headers
2958: l_precision_queried := 0;
2959: l_count := 0;
2984:
2985: l_changed := 0;
2986: l_count := l_count + 1;
2987:
2988: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
2989: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement header #' || l_count);
2990: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
2991: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_HEADER_REC.DISB_HEADER_ID);
2992: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
2985: l_changed := 0;
2986: l_count := l_count + 1;
2987:
2988: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
2989: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement header #' || l_count);
2990: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
2991: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_HEADER_REC.DISB_HEADER_ID);
2992: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
2993: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
2986: l_count := l_count + 1;
2987:
2988: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
2989: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement header #' || l_count);
2990: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
2991: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_HEADER_REC.DISB_HEADER_ID);
2992: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
2993: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
2994: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
2987:
2988: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
2989: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement header #' || l_count);
2990: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
2991: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_HEADER_REC.DISB_HEADER_ID);
2992: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
2993: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
2994: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
2995: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
2988: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
2989: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement header #' || l_count);
2990: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
2991: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_HEADER_REC.DISB_HEADER_ID);
2992: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
2993: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
2994: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
2995: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
2996: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_HEADER_REC.STATUS);
2989: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement header #' || l_count);
2990: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
2991: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_HEADER_REC.DISB_HEADER_ID);
2992: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
2993: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
2994: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
2995: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
2996: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_HEADER_REC.STATUS);
2997: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
2990: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
2991: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_HEADER_REC.DISB_HEADER_ID);
2992: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
2993: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
2994: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
2995: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
2996: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_HEADER_REC.STATUS);
2997: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
2998: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
2991: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_HEADER_REC.DISB_HEADER_ID);
2992: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
2993: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
2994: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
2995: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
2996: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_HEADER_REC.STATUS);
2997: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
2998: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
2999: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Requested Amount: ' || l_funded_amount);
2992: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
2993: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
2994: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
2995: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
2996: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_HEADER_REC.STATUS);
2997: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
2998: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
2999: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Requested Amount: ' || l_funded_amount);
3000: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
2993: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
2994: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
2995: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
2996: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_HEADER_REC.STATUS);
2997: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
2998: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
2999: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Requested Amount: ' || l_funded_amount);
3000: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
3001: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan start date: ' || l_loan_start_date);
2994: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
2995: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
2996: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_HEADER_REC.STATUS);
2997: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
2998: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
2999: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Requested Amount: ' || l_funded_amount);
3000: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
3001: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan start date: ' || l_loan_start_date);
3002: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan maturity date: ' || l_loan_maturity_date);
2995: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
2996: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_HEADER_REC.STATUS);
2997: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
2998: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
2999: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Requested Amount: ' || l_funded_amount);
3000: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
3001: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan start date: ' || l_loan_start_date);
3002: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan maturity date: ' || l_loan_maturity_date);
3003: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan status: ' || l_loan_status);
2996: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status: ' || l_DISB_HEADER_REC.STATUS);
2997: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
2998: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
2999: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Requested Amount: ' || l_funded_amount);
3000: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
3001: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan start date: ' || l_loan_start_date);
3002: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan maturity date: ' || l_loan_maturity_date);
3003: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan status: ' || l_loan_status);
3004:
2997: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
2998: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
2999: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Requested Amount: ' || l_funded_amount);
3000: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
3001: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan start date: ' || l_loan_start_date);
3002: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan maturity date: ' || l_loan_maturity_date);
3003: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan status: ' || l_loan_status);
3004:
3005: if l_DISB_HEADER_REC.LOAN_ID is null then
2998: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
2999: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Requested Amount: ' || l_funded_amount);
3000: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
3001: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan start date: ' || l_loan_start_date);
3002: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan maturity date: ' || l_loan_maturity_date);
3003: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan status: ' || l_loan_status);
3004:
3005: if l_DISB_HEADER_REC.LOAN_ID is null then
3006:
2999: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Requested Amount: ' || l_funded_amount);
3000: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
3001: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan start date: ' || l_loan_start_date);
3002: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Open loan maturity date: ' || l_loan_maturity_date);
3003: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan status: ' || l_loan_status);
3004:
3005: if l_DISB_HEADER_REC.LOAN_ID is null then
3006:
3007: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
3003: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan status: ' || l_loan_status);
3004:
3005: if l_DISB_HEADER_REC.LOAN_ID is null then
3006:
3007: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
3008: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
3009: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan id' );
3010: FND_MSG_PUB.ADD;
3011: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3007: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
3008: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
3009: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan id' );
3010: FND_MSG_PUB.ADD;
3011: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3012: RAISE FND_API.G_EXC_ERROR;
3013:
3014: end if;
3015:
3014: end if;
3015:
3016: if l_DISB_HEADER_REC.ACTIVITY_CODE is null then
3017:
3018: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
3019: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
3020: FND_MSG_PUB.ADD;
3021: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3022: RAISE FND_API.G_EXC_ERROR;
3017:
3018: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
3019: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
3020: FND_MSG_PUB.ADD;
3021: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3022: RAISE FND_API.G_EXC_ERROR;
3023:
3024: end if;
3025:
3024: end if;
3025:
3026: if l_DISB_HEADER_REC.HEADER_PERCENT is null then
3027:
3028: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
3029: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
3030: FND_MSG_PUB.ADD;
3031: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3032: RAISE FND_API.G_EXC_ERROR;
3027:
3028: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
3029: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
3030: FND_MSG_PUB.ADD;
3031: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3032: RAISE FND_API.G_EXC_ERROR;
3033:
3034: end if;
3035:
3034: end if;
3035:
3036: if l_DISB_HEADER_REC.TARGET_DATE is null then
3037:
3038: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date is missing');
3039: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_TARGET_DATE' );
3040: FND_MSG_PUB.ADD;
3041: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3042: RAISE FND_API.G_EXC_ERROR;
3037:
3038: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date is missing');
3039: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_TARGET_DATE' );
3040: FND_MSG_PUB.ADD;
3041: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3042: RAISE FND_API.G_EXC_ERROR;
3043:
3044: end if;
3045:
3046: --karamach --Bug5295091
3047: if (l_DISB_HEADER_REC.STATUS NOT IN ('CANCELLED','IN_FUNDING','FUNDING_ERROR','PARTIALLY_FUNDED','FULLY_FUNDED')
3048: AND ( trunc(l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE) < trunc(sysdate))) then
3049:
3050: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment Request date is less than today');
3051: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_REQ_DATE_ERR' );
3052: FND_MSG_PUB.ADD;
3053: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3054: RAISE FND_API.G_EXC_ERROR;
3049:
3050: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment Request date is less than today');
3051: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_REQ_DATE_ERR' );
3052: FND_MSG_PUB.ADD;
3053: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3054: RAISE FND_API.G_EXC_ERROR;
3055:
3056: end if;
3057:
3057:
3058: if l_loan_status = 'INCOMPLETE' then
3059: if trunc(l_DISB_HEADER_REC.TARGET_DATE) < trunc(l_loan_start_date) then
3060:
3061: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date must be later that start date');
3062: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_TARGET_DATE_ERR' );
3063: FND_MSG_PUB.ADD;
3064: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3065: RAISE FND_API.G_EXC_ERROR;
3060:
3061: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date must be later that start date');
3062: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_TARGET_DATE_ERR' );
3063: FND_MSG_PUB.ADD;
3064: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3065: RAISE FND_API.G_EXC_ERROR;
3066:
3067: end if;
3068: end if;
3070: l_sum_percent := l_sum_percent + l_DISB_HEADER_REC.HEADER_PERCENT;
3071:
3072: if l_DISB_HEADER_REC.STATUS is not null then
3073:
3074: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Status is already set - nothing to change for this disbursement header');
3075:
3076: else
3077:
3078: if l_precision_queried = 0 then
3107: end if;
3108:
3109: -- checking for total percent
3110: if l_sum_percent <> 100 then
3111: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all disbursements: ' || l_sum_percent);
3112: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_HDR_PERC_INVALID');
3113: FND_MSG_PUB.ADD;
3114: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3115: RAISE FND_API.G_EXC_ERROR;
3110: if l_sum_percent <> 100 then
3111: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all disbursements: ' || l_sum_percent);
3112: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_HDR_PERC_INVALID');
3113: FND_MSG_PUB.ADD;
3114: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3115: RAISE FND_API.G_EXC_ERROR;
3116: end if;
3117:
3118: -- loop thru table and update disb headers table
3128: X_MSG_COUNT => l_msg_count,
3129: X_MSG_DATA => l_msg_data);
3130:
3131: IF l_return_status <> 'S' THEN
3132: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to UPDATE_DISB_HEADER failed');
3133: RAISE FND_API.G_EXC_ERROR;
3134: END IF;
3135:
3136: VALIDATE_DISB_LINES(
3143: X_MSG_COUNT => l_msg_count,
3144: X_MSG_DATA => l_msg_data);
3145:
3146: IF l_return_status <> 'S' THEN
3147: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to VALIDATE_DISB_LINES failed');
3148: RAISE FND_API.G_EXC_ERROR;
3149: END IF;
3150:
3151: END LOOP;
3165: ,x_msg_count => l_msg_count
3166: ,x_msg_data => l_msg_data);
3167:
3168: IF l_return_status <> 'S' THEN
3169: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to lns_financials.shiftLoan failed');
3170: RAISE FND_API.G_EXC_ERROR;
3171: END IF;
3172:
3173: end if;
3173: end if;
3174:
3175: if P_COMMIT = FND_API.G_TRUE then
3176: COMMIT WORK;
3177: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
3178: end if;
3179:
3180: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully validated all disbursement headers');
3181:
3176: COMMIT WORK;
3177: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
3178: end if;
3179:
3180: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully validated all disbursement headers');
3181:
3182: -- END OF BODY OF API
3183: x_return_status := FND_API.G_RET_STS_SUCCESS;
3184:
3187: p_encoded => FND_API.G_FALSE,
3188: p_count => x_msg_count,
3189: p_data => x_msg_data);
3190:
3191: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
3192:
3193: EXCEPTION
3194: WHEN FND_API.G_EXC_ERROR THEN
3195: ROLLBACK TO VALIDATE_DISB_HEADERS;
3194: WHEN FND_API.G_EXC_ERROR THEN
3195: ROLLBACK TO VALIDATE_DISB_HEADERS;
3196: x_return_status := FND_API.G_RET_STS_ERROR;
3197: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3198: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3200: ROLLBACK TO VALIDATE_DISB_HEADERS;
3201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3202: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3200: ROLLBACK TO VALIDATE_DISB_HEADERS;
3201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3202: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3203: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3204: WHEN OTHERS THEN
3205: ROLLBACK TO VALIDATE_DISB_HEADERS;
3206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3207: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3207: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3208: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3209: END IF;
3210: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3211: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3212:
3213: END;
3214:
3215:
3281: where ext_bank_account_id = P_BANK_ACC_ID;
3282:
3283: BEGIN
3284:
3285: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
3286: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
3287:
3288: -- Standard start of API savepoint
3289: SAVEPOINT Get_Default_Payment_Attr;
3282:
3283: BEGIN
3284:
3285: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
3286: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
3287:
3288: -- Standard start of API savepoint
3289: SAVEPOINT Get_Default_Payment_Attr;
3290: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
3286: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
3287:
3288: -- Standard start of API savepoint
3289: SAVEPOINT Get_Default_Payment_Attr;
3290: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
3291:
3292: -- Standard call to check for call compatibility
3293: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3303: l_return_status := FND_API.G_RET_STS_SUCCESS;
3304:
3305: -- START OF BODY OF API
3306:
3307: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
3308: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Application_Id: ' || P_Trxn_Attributes_Rec.Application_Id);
3309: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Legal_Entity_Id: ' || P_Trxn_Attributes_Rec.Payer_Legal_Entity_Id);
3310: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Id: ' || P_Trxn_Attributes_Rec.Payer_Org_Id);
3311: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Type: ' || P_Trxn_Attributes_Rec.Payer_Org_Type);
3304:
3305: -- START OF BODY OF API
3306:
3307: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
3308: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Application_Id: ' || P_Trxn_Attributes_Rec.Application_Id);
3309: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Legal_Entity_Id: ' || P_Trxn_Attributes_Rec.Payer_Legal_Entity_Id);
3310: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Id: ' || P_Trxn_Attributes_Rec.Payer_Org_Id);
3311: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Type: ' || P_Trxn_Attributes_Rec.Payer_Org_Type);
3312: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Id: ' || P_Trxn_Attributes_Rec.Payee_Party_Id);
3305: -- START OF BODY OF API
3306:
3307: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
3308: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Application_Id: ' || P_Trxn_Attributes_Rec.Application_Id);
3309: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Legal_Entity_Id: ' || P_Trxn_Attributes_Rec.Payer_Legal_Entity_Id);
3310: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Id: ' || P_Trxn_Attributes_Rec.Payer_Org_Id);
3311: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Type: ' || P_Trxn_Attributes_Rec.Payer_Org_Type);
3312: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Id: ' || P_Trxn_Attributes_Rec.Payee_Party_Id);
3313: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Site_Id: ' || P_Trxn_Attributes_Rec.Payee_Party_Site_Id);
3306:
3307: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
3308: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Application_Id: ' || P_Trxn_Attributes_Rec.Application_Id);
3309: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Legal_Entity_Id: ' || P_Trxn_Attributes_Rec.Payer_Legal_Entity_Id);
3310: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Id: ' || P_Trxn_Attributes_Rec.Payer_Org_Id);
3311: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Type: ' || P_Trxn_Attributes_Rec.Payer_Org_Type);
3312: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Id: ' || P_Trxn_Attributes_Rec.Payee_Party_Id);
3313: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Site_Id: ' || P_Trxn_Attributes_Rec.Payee_Party_Site_Id);
3314: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Supplier_Site_Id: ' || P_Trxn_Attributes_Rec.Supplier_Site_Id);
3307: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
3308: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Application_Id: ' || P_Trxn_Attributes_Rec.Application_Id);
3309: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Legal_Entity_Id: ' || P_Trxn_Attributes_Rec.Payer_Legal_Entity_Id);
3310: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Id: ' || P_Trxn_Attributes_Rec.Payer_Org_Id);
3311: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Type: ' || P_Trxn_Attributes_Rec.Payer_Org_Type);
3312: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Id: ' || P_Trxn_Attributes_Rec.Payee_Party_Id);
3313: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Site_Id: ' || P_Trxn_Attributes_Rec.Payee_Party_Site_Id);
3314: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Supplier_Site_Id: ' || P_Trxn_Attributes_Rec.Supplier_Site_Id);
3315: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Pay_Proc_Trxn_Type_Code: ' || P_Trxn_Attributes_Rec.Pay_Proc_Trxn_Type_Code);
3308: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Application_Id: ' || P_Trxn_Attributes_Rec.Application_Id);
3309: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Legal_Entity_Id: ' || P_Trxn_Attributes_Rec.Payer_Legal_Entity_Id);
3310: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Id: ' || P_Trxn_Attributes_Rec.Payer_Org_Id);
3311: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Type: ' || P_Trxn_Attributes_Rec.Payer_Org_Type);
3312: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Id: ' || P_Trxn_Attributes_Rec.Payee_Party_Id);
3313: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Site_Id: ' || P_Trxn_Attributes_Rec.Payee_Party_Site_Id);
3314: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Supplier_Site_Id: ' || P_Trxn_Attributes_Rec.Supplier_Site_Id);
3315: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Pay_Proc_Trxn_Type_Code: ' || P_Trxn_Attributes_Rec.Pay_Proc_Trxn_Type_Code);
3316: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Currency: ' || P_Trxn_Attributes_Rec.Payment_Currency);
3309: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Legal_Entity_Id: ' || P_Trxn_Attributes_Rec.Payer_Legal_Entity_Id);
3310: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Id: ' || P_Trxn_Attributes_Rec.Payer_Org_Id);
3311: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Type: ' || P_Trxn_Attributes_Rec.Payer_Org_Type);
3312: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Id: ' || P_Trxn_Attributes_Rec.Payee_Party_Id);
3313: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Site_Id: ' || P_Trxn_Attributes_Rec.Payee_Party_Site_Id);
3314: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Supplier_Site_Id: ' || P_Trxn_Attributes_Rec.Supplier_Site_Id);
3315: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Pay_Proc_Trxn_Type_Code: ' || P_Trxn_Attributes_Rec.Pay_Proc_Trxn_Type_Code);
3316: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Currency: ' || P_Trxn_Attributes_Rec.Payment_Currency);
3317: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Amount: ' || P_Trxn_Attributes_Rec.Payment_Amount);
3310: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Id: ' || P_Trxn_Attributes_Rec.Payer_Org_Id);
3311: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Type: ' || P_Trxn_Attributes_Rec.Payer_Org_Type);
3312: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Id: ' || P_Trxn_Attributes_Rec.Payee_Party_Id);
3313: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Site_Id: ' || P_Trxn_Attributes_Rec.Payee_Party_Site_Id);
3314: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Supplier_Site_Id: ' || P_Trxn_Attributes_Rec.Supplier_Site_Id);
3315: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Pay_Proc_Trxn_Type_Code: ' || P_Trxn_Attributes_Rec.Pay_Proc_Trxn_Type_Code);
3316: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Currency: ' || P_Trxn_Attributes_Rec.Payment_Currency);
3317: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Amount: ' || P_Trxn_Attributes_Rec.Payment_Amount);
3318: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Function: ' || P_Trxn_Attributes_Rec.Payment_Function);
3311: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payer_Org_Type: ' || P_Trxn_Attributes_Rec.Payer_Org_Type);
3312: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Id: ' || P_Trxn_Attributes_Rec.Payee_Party_Id);
3313: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Site_Id: ' || P_Trxn_Attributes_Rec.Payee_Party_Site_Id);
3314: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Supplier_Site_Id: ' || P_Trxn_Attributes_Rec.Supplier_Site_Id);
3315: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Pay_Proc_Trxn_Type_Code: ' || P_Trxn_Attributes_Rec.Pay_Proc_Trxn_Type_Code);
3316: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Currency: ' || P_Trxn_Attributes_Rec.Payment_Currency);
3317: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Amount: ' || P_Trxn_Attributes_Rec.Payment_Amount);
3318: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Function: ' || P_Trxn_Attributes_Rec.Payment_Function);
3319:
3312: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Id: ' || P_Trxn_Attributes_Rec.Payee_Party_Id);
3313: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Site_Id: ' || P_Trxn_Attributes_Rec.Payee_Party_Site_Id);
3314: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Supplier_Site_Id: ' || P_Trxn_Attributes_Rec.Supplier_Site_Id);
3315: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Pay_Proc_Trxn_Type_Code: ' || P_Trxn_Attributes_Rec.Pay_Proc_Trxn_Type_Code);
3316: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Currency: ' || P_Trxn_Attributes_Rec.Payment_Currency);
3317: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Amount: ' || P_Trxn_Attributes_Rec.Payment_Amount);
3318: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Function: ' || P_Trxn_Attributes_Rec.Payment_Function);
3319:
3320: if P_Trxn_Attributes_Rec.Payer_Org_Type is not null then
3313: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_Party_Site_Id: ' || P_Trxn_Attributes_Rec.Payee_Party_Site_Id);
3314: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Supplier_Site_Id: ' || P_Trxn_Attributes_Rec.Supplier_Site_Id);
3315: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Pay_Proc_Trxn_Type_Code: ' || P_Trxn_Attributes_Rec.Pay_Proc_Trxn_Type_Code);
3316: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Currency: ' || P_Trxn_Attributes_Rec.Payment_Currency);
3317: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Amount: ' || P_Trxn_Attributes_Rec.Payment_Amount);
3318: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Function: ' || P_Trxn_Attributes_Rec.Payment_Function);
3319:
3320: if P_Trxn_Attributes_Rec.Payer_Org_Type is not null then
3321: l_Trxn_Attributes_Rec.Payer_Org_Type := P_Trxn_Attributes_Rec.Payer_Org_Type;
3314: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Supplier_Site_Id: ' || P_Trxn_Attributes_Rec.Supplier_Site_Id);
3315: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Pay_Proc_Trxn_Type_Code: ' || P_Trxn_Attributes_Rec.Pay_Proc_Trxn_Type_Code);
3316: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Currency: ' || P_Trxn_Attributes_Rec.Payment_Currency);
3317: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Amount: ' || P_Trxn_Attributes_Rec.Payment_Amount);
3318: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Function: ' || P_Trxn_Attributes_Rec.Payment_Function);
3319:
3320: if P_Trxn_Attributes_Rec.Payer_Org_Type is not null then
3321: l_Trxn_Attributes_Rec.Payer_Org_Type := P_Trxn_Attributes_Rec.Payer_Org_Type;
3322: else
3333: l_Trxn_Attributes_Rec.Payment_Currency := P_Trxn_Attributes_Rec.Payment_Currency;
3334: l_Trxn_Attributes_Rec.Payment_Amount := P_Trxn_Attributes_Rec.Payment_Amount;
3335: l_Trxn_Attributes_Rec.Payment_Function := P_Trxn_Attributes_Rec.Payment_Function;
3336:
3337: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling IBY_DISBURSEMENT_COMP_PUB.Get_Default_Payment_Attributes...');
3338: IBY_DISBURSEMENT_COMP_PUB.Get_Default_Payment_Attributes(
3339: p_api_version => 1.0,
3340: p_init_msg_list => FND_API.G_TRUE,
3341: p_ignore_payee_pref => null,
3345: x_msg_data => l_msg_data,
3346: x_default_pmt_attrs_rec => l_Default_Pmt_Attrs_Rec);
3347:
3348: IF l_return_status <> 'S' THEN
3349: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to IBY_DISBURSEMENT_COMP_PUB.Get_Default_Payment_Attributes has failed');
3350: RAISE FND_API.G_EXC_ERROR;
3351: END IF;
3352:
3353: X_default_pmt_attrs_rec.Payment_Method_Name := l_Default_Pmt_Attrs_Rec.Payment_Method.Payment_Method_Name;
3358: open bank_acc_cur(X_default_pmt_attrs_rec.Payee_BankAccount_Id);
3359: fetch bank_acc_cur into X_default_pmt_attrs_rec.Payee_BankAccount_Number, X_default_pmt_attrs_rec.Payee_BankAccount_Name;
3360: close bank_acc_cur;
3361:
3362: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Return data:');
3363: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Method_Name: ' || X_default_pmt_attrs_rec.Payment_Method_Name);
3364: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Method_Code: ' || X_default_pmt_attrs_rec.Payment_Method_Code);
3365: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_BankAccount_Id: ' || X_default_pmt_attrs_rec.Payee_BankAccount_Id);
3366: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_BankAccount_Number: ' || X_default_pmt_attrs_rec.Payee_BankAccount_Number);
3359: fetch bank_acc_cur into X_default_pmt_attrs_rec.Payee_BankAccount_Number, X_default_pmt_attrs_rec.Payee_BankAccount_Name;
3360: close bank_acc_cur;
3361:
3362: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Return data:');
3363: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Method_Name: ' || X_default_pmt_attrs_rec.Payment_Method_Name);
3364: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Method_Code: ' || X_default_pmt_attrs_rec.Payment_Method_Code);
3365: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_BankAccount_Id: ' || X_default_pmt_attrs_rec.Payee_BankAccount_Id);
3366: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_BankAccount_Number: ' || X_default_pmt_attrs_rec.Payee_BankAccount_Number);
3367: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_BankAccount_Name: ' || X_default_pmt_attrs_rec.Payee_BankAccount_Name);
3360: close bank_acc_cur;
3361:
3362: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Return data:');
3363: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Method_Name: ' || X_default_pmt_attrs_rec.Payment_Method_Name);
3364: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Method_Code: ' || X_default_pmt_attrs_rec.Payment_Method_Code);
3365: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_BankAccount_Id: ' || X_default_pmt_attrs_rec.Payee_BankAccount_Id);
3366: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_BankAccount_Number: ' || X_default_pmt_attrs_rec.Payee_BankAccount_Number);
3367: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_BankAccount_Name: ' || X_default_pmt_attrs_rec.Payee_BankAccount_Name);
3368:
3361:
3362: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Return data:');
3363: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Method_Name: ' || X_default_pmt_attrs_rec.Payment_Method_Name);
3364: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Method_Code: ' || X_default_pmt_attrs_rec.Payment_Method_Code);
3365: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_BankAccount_Id: ' || X_default_pmt_attrs_rec.Payee_BankAccount_Id);
3366: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_BankAccount_Number: ' || X_default_pmt_attrs_rec.Payee_BankAccount_Number);
3367: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_BankAccount_Name: ' || X_default_pmt_attrs_rec.Payee_BankAccount_Name);
3368:
3369: -- END OF BODY OF API
3362: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Return data:');
3363: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Method_Name: ' || X_default_pmt_attrs_rec.Payment_Method_Name);
3364: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Method_Code: ' || X_default_pmt_attrs_rec.Payment_Method_Code);
3365: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_BankAccount_Id: ' || X_default_pmt_attrs_rec.Payee_BankAccount_Id);
3366: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_BankAccount_Number: ' || X_default_pmt_attrs_rec.Payee_BankAccount_Number);
3367: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_BankAccount_Name: ' || X_default_pmt_attrs_rec.Payee_BankAccount_Name);
3368:
3369: -- END OF BODY OF API
3370: x_return_status := FND_API.G_RET_STS_SUCCESS;
3363: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Method_Name: ' || X_default_pmt_attrs_rec.Payment_Method_Name);
3364: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment_Method_Code: ' || X_default_pmt_attrs_rec.Payment_Method_Code);
3365: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_BankAccount_Id: ' || X_default_pmt_attrs_rec.Payee_BankAccount_Id);
3366: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_BankAccount_Number: ' || X_default_pmt_attrs_rec.Payee_BankAccount_Number);
3367: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee_BankAccount_Name: ' || X_default_pmt_attrs_rec.Payee_BankAccount_Name);
3368:
3369: -- END OF BODY OF API
3370: x_return_status := FND_API.G_RET_STS_SUCCESS;
3371:
3374: p_encoded => FND_API.G_FALSE,
3375: p_count => x_msg_count,
3376: p_data => x_msg_data);
3377:
3378: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
3379:
3380: EXCEPTION
3381: WHEN FND_API.G_EXC_ERROR THEN
3382: ROLLBACK TO Get_Default_Payment_Attr;
3381: WHEN FND_API.G_EXC_ERROR THEN
3382: ROLLBACK TO Get_Default_Payment_Attr;
3383: x_return_status := FND_API.G_RET_STS_ERROR;
3384: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3385: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3387: ROLLBACK TO Get_Default_Payment_Attr;
3388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3389: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3387: ROLLBACK TO Get_Default_Payment_Attr;
3388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3389: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3390: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3391: WHEN OTHERS THEN
3392: ROLLBACK TO Get_Default_Payment_Attr;
3393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3394: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3394: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3395: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3396: END IF;
3397: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3398: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3399:
3400: END;
3401:
3402:
3442: l_return_status varchar2(1);
3443: l_msg_count number;
3444: l_msg_data varchar2(4000);
3445: BEGIN
3446: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
3447: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
3448:
3449: -- standard start of API savepoint
3450: SAVEPOINT DEFAULT_PROD_DISBURSEMENTS;
3443: l_msg_count number;
3444: l_msg_data varchar2(4000);
3445: BEGIN
3446: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
3447: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
3448:
3449: -- standard start of API savepoint
3450: SAVEPOINT DEFAULT_PROD_DISBURSEMENTS;
3451:
3449: -- standard start of API savepoint
3450: SAVEPOINT DEFAULT_PROD_DISBURSEMENTS;
3451:
3452: IF p_loan_id IS NULL THEN
3453: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'LOAN ID is missing');
3454: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
3455: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'p_loan_id' );
3456: FND_MSG_PUB.ADD;
3457: RAISE FND_API.G_EXC_ERROR;
3534: ,P_LOAN_PRODUCT_LINE_ID => Disb_Rec.loan_product_lines_id
3535: ,P_LOAN_ID => P_LOAN_ID);
3536:
3537: END LOOP;
3538: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
3539: EXCEPTION
3540: WHEN FND_API.G_EXC_ERROR THEN
3541: ROLLBACK TO DEFAULT_PROD_DISBURSEMENTS;
3542: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Changes Rolled back in '
3538: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
3539: EXCEPTION
3540: WHEN FND_API.G_EXC_ERROR THEN
3541: ROLLBACK TO DEFAULT_PROD_DISBURSEMENTS;
3542: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Changes Rolled back in '
3543: || G_PKG_NAME || '.' || l_api_name);
3544:
3545: WHEN OTHERS THEN
3546: ROLLBACK TO DEFAULT_PROD_DISBURSEMENTS;
3761: party_id = P_PARTY_ID;
3762:
3763: BEGIN
3764:
3765: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
3766: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
3767:
3768: -- Standard call to check for call compatibility
3769: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3762:
3763: BEGIN
3764:
3765: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
3766: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
3767:
3768: -- Standard call to check for call compatibility
3769: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3779: l_return_status := FND_API.G_RET_STS_SUCCESS;
3780:
3781: -- START OF BODY OF API
3782:
3783: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3784: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Submitting payment request for line ' || P_DISB_LINE_ID);
3785:
3786: open disb_line_cur(P_DISB_LINE_ID);
3787: fetch disb_line_cur into
3780:
3781: -- START OF BODY OF API
3782:
3783: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3784: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Submitting payment request for line ' || P_DISB_LINE_ID);
3785:
3786: open disb_line_cur(P_DISB_LINE_ID);
3787: fetch disb_line_cur into
3788: l_DISB_LINE_REC.DISB_LINE_ID,
3814: l_org_id,
3815: l_le_id,
3816: l_DISB_LINE_REC.INVOICE_INTERFACE_ID;
3817:
3818: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3819: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Line Details:');
3820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_DISB_LINE_REC.DISB_LINE_ID);
3821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
3822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
3815: l_le_id,
3816: l_DISB_LINE_REC.INVOICE_INTERFACE_ID;
3817:
3818: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3819: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Line Details:');
3820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_DISB_LINE_REC.DISB_LINE_ID);
3821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
3822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
3823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
3816: l_DISB_LINE_REC.INVOICE_INTERFACE_ID;
3817:
3818: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3819: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Line Details:');
3820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_DISB_LINE_REC.DISB_LINE_ID);
3821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
3822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
3823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
3824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
3817:
3818: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3819: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Line Details:');
3820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_DISB_LINE_REC.DISB_LINE_ID);
3821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
3822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
3823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
3824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
3825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
3818: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3819: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Line Details:');
3820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_DISB_LINE_REC.DISB_LINE_ID);
3821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
3822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
3823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
3824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
3825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
3826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
3819: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Line Details:');
3820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_DISB_LINE_REC.DISB_LINE_ID);
3821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
3822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
3823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
3824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
3825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
3826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
3827: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
3820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_DISB_LINE_REC.DISB_LINE_ID);
3821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
3822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
3823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
3824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
3825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
3826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
3827: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
3828: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Status: ' || l_DISB_LINE_REC.STATUS);
3821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
3822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
3823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
3824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
3825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
3826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
3827: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
3828: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Status: ' || l_DISB_LINE_REC.STATUS);
3829: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
3822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Number: ' || l_DISB_LINE_REC.DISB_LINE_NUMBER);
3823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
3824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
3825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
3826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
3827: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
3828: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Status: ' || l_DISB_LINE_REC.STATUS);
3829: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
3830: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Version: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
3823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
3824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
3825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
3826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
3827: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
3828: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Status: ' || l_DISB_LINE_REC.STATUS);
3829: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
3830: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Version: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
3831: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Invoice Interface ID: ' || l_DISB_LINE_REC.INVOICE_INTERFACE_ID);
3824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Percent: ' || l_DISB_LINE_REC.LINE_PERCENT);
3825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
3826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
3827: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
3828: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Status: ' || l_DISB_LINE_REC.STATUS);
3829: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
3830: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Version: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
3831: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Invoice Interface ID: ' || l_DISB_LINE_REC.INVOICE_INTERFACE_ID);
3832:
3825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
3826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
3827: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
3828: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Status: ' || l_DISB_LINE_REC.STATUS);
3829: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
3830: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Version: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
3831: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Invoice Interface ID: ' || l_DISB_LINE_REC.INVOICE_INTERFACE_ID);
3832:
3833: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Bank Account: ' || l_DISB_LINE_REC.BANK_ACCOUNT_ID);
3827: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
3828: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Status: ' || l_DISB_LINE_REC.STATUS);
3829: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
3830: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Version: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
3831: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Invoice Interface ID: ' || l_DISB_LINE_REC.INVOICE_INTERFACE_ID);
3832:
3833: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3834: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Header Details:');
3827: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
3828: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Status: ' || l_DISB_LINE_REC.STATUS);
3829: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
3830: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Version: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
3831: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Invoice Interface ID: ' || l_DISB_LINE_REC.INVOICE_INTERFACE_ID);
3832:
3833: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3834: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Header Details:');
3835: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
3829: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Request Date: ' || l_DISB_LINE_REC.REQUEST_DATE);
3830: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Version: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
3831: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Invoice Interface ID: ' || l_DISB_LINE_REC.INVOICE_INTERFACE_ID);
3832:
3833: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3834: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Header Details:');
3835: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
3836: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
3837: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
3830: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Version: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
3831: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Invoice Interface ID: ' || l_DISB_LINE_REC.INVOICE_INTERFACE_ID);
3832:
3833: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3834: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Header Details:');
3835: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
3836: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
3837: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
3838: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
3831: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Invoice Interface ID: ' || l_DISB_LINE_REC.INVOICE_INTERFACE_ID);
3832:
3833: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3834: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Header Details:');
3835: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
3836: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
3837: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
3838: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
3839: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
3832:
3833: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3834: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Header Details:');
3835: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
3836: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
3837: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
3838: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
3839: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
3840: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Status: ' || l_DISB_HEADER_REC.STATUS);
3833: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3834: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Header Details:');
3835: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
3836: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
3837: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
3838: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
3839: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
3840: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Status: ' || l_DISB_HEADER_REC.STATUS);
3841: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
3834: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Header Details:');
3835: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
3836: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
3837: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
3838: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
3839: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
3840: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Status: ' || l_DISB_HEADER_REC.STATUS);
3841: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
3842: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Request Date: ' || l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
3835: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header ID: ' || l_DISB_LINE_REC.DISB_HEADER_ID);
3836: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
3837: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
3838: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
3839: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
3840: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Status: ' || l_DISB_HEADER_REC.STATUS);
3841: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
3842: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Request Date: ' || l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
3843: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
3836: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Activity Code: ' || l_DISB_HEADER_REC.ACTIVITY_CODE);
3837: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
3838: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
3839: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
3840: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Status: ' || l_DISB_HEADER_REC.STATUS);
3841: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
3842: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Request Date: ' || l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
3843: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
3844: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Description: ' || l_description);
3837: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement Number: ' || l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
3838: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
3839: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
3840: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Status: ' || l_DISB_HEADER_REC.STATUS);
3841: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
3842: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Request Date: ' || l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
3843: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
3844: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Description: ' || l_description);
3845:
3838: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Amount: ' || l_DISB_HEADER_REC.HEADER_AMOUNT);
3839: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
3840: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Status: ' || l_DISB_HEADER_REC.STATUS);
3841: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
3842: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Request Date: ' || l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
3843: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
3844: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Description: ' || l_description);
3845:
3846: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3839: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Percent: ' || l_DISB_HEADER_REC.HEADER_PERCENT);
3840: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Status: ' || l_DISB_HEADER_REC.STATUS);
3841: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
3842: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Request Date: ' || l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
3843: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
3844: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Description: ' || l_description);
3845:
3846: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3847: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Details:');
3840: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Status: ' || l_DISB_HEADER_REC.STATUS);
3841: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Target Date: ' || l_DISB_HEADER_REC.TARGET_DATE);
3842: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Request Date: ' || l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
3843: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
3844: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Description: ' || l_description);
3845:
3846: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3847: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Details:');
3848: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
3842: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Request Date: ' || l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
3843: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
3844: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Description: ' || l_description);
3845:
3846: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3847: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Details:');
3848: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
3849: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Number: ' || l_loan_number);
3850: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Rate Type: ' || l_EXCHANGE_RATE_TYPE);
3843: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Version: ' || l_DISB_HEADER_REC.OBJECT_VERSION_NUMBER);
3844: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Description: ' || l_description);
3845:
3846: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3847: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Details:');
3848: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
3849: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Number: ' || l_loan_number);
3850: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Rate Type: ' || l_EXCHANGE_RATE_TYPE);
3851: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Date: ' || l_EXCHANGE_DATE);
3844: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Header Description: ' || l_description);
3845:
3846: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3847: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Details:');
3848: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
3849: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Number: ' || l_loan_number);
3850: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Rate Type: ' || l_EXCHANGE_RATE_TYPE);
3851: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Date: ' || l_EXCHANGE_DATE);
3852: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Rate: ' || l_EXCHANGE_RATE);
3845:
3846: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3847: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Details:');
3848: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
3849: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Number: ' || l_loan_number);
3850: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Rate Type: ' || l_EXCHANGE_RATE_TYPE);
3851: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Date: ' || l_EXCHANGE_DATE);
3852: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Rate: ' || l_EXCHANGE_RATE);
3853: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
3846: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
3847: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Details:');
3848: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
3849: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Number: ' || l_loan_number);
3850: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Rate Type: ' || l_EXCHANGE_RATE_TYPE);
3851: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Date: ' || l_EXCHANGE_DATE);
3852: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Rate: ' || l_EXCHANGE_RATE);
3853: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
3854: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Org ID: ' || l_org_id);
3847: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Details:');
3848: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
3849: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Number: ' || l_loan_number);
3850: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Rate Type: ' || l_EXCHANGE_RATE_TYPE);
3851: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Date: ' || l_EXCHANGE_DATE);
3852: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Rate: ' || l_EXCHANGE_RATE);
3853: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
3854: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Org ID: ' || l_org_id);
3855: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LE ID: ' || l_le_id);
3848: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan ID: ' || l_DISB_HEADER_REC.LOAN_ID);
3849: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Number: ' || l_loan_number);
3850: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Rate Type: ' || l_EXCHANGE_RATE_TYPE);
3851: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Date: ' || l_EXCHANGE_DATE);
3852: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Rate: ' || l_EXCHANGE_RATE);
3853: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
3854: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Org ID: ' || l_org_id);
3855: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LE ID: ' || l_le_id);
3856:
3849: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Number: ' || l_loan_number);
3850: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Rate Type: ' || l_EXCHANGE_RATE_TYPE);
3851: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Date: ' || l_EXCHANGE_DATE);
3852: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Rate: ' || l_EXCHANGE_RATE);
3853: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
3854: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Org ID: ' || l_org_id);
3855: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LE ID: ' || l_le_id);
3856:
3857: -- submition attemts info
3850: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Rate Type: ' || l_EXCHANGE_RATE_TYPE);
3851: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Date: ' || l_EXCHANGE_DATE);
3852: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Rate: ' || l_EXCHANGE_RATE);
3853: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
3854: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Org ID: ' || l_org_id);
3855: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LE ID: ' || l_le_id);
3856:
3857: -- submition attemts info
3858: open attempts_cur(l_DISB_LINE_REC.DISB_LINE_ID);
3851: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Date: ' || l_EXCHANGE_DATE);
3852: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Exchange Rate: ' || l_EXCHANGE_RATE);
3853: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan Currency: ' || l_loan_currency);
3854: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Org ID: ' || l_org_id);
3855: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LE ID: ' || l_le_id);
3856:
3857: -- submition attemts info
3858: open attempts_cur(l_DISB_LINE_REC.DISB_LINE_ID);
3859: fetch attempts_cur into l_attempt;
3869: l_DISB_HEADER_REC.DISBURSEMENT_NUMBER || '-' ||
3870: l_DISB_LINE_REC.DISB_LINE_NUMBER;
3871:
3872: -- create disbursement distribution records in lns_distributions
3873: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling create_DisbursementDistribs...');
3874: LNS_DISTRIBUTIONS_PUB.create_DisbursementDistribs(
3875: p_api_version => 1.0,
3876: p_init_msg_list => FND_API.G_FALSE,
3877: p_commit => FND_API.G_FALSE,
3880: x_return_status => l_return_status,
3881: x_msg_count => l_msg_count,
3882: x_msg_data => l_msg_data);
3883:
3884: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Return status: ' || l_return_status);
3885: IF l_return_status <> 'S' THEN
3886: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to lns_fee_engine.processDisbursementFees failed');
3887: RAISE FND_API.G_EXC_ERROR;
3888: END IF;
3882: x_msg_data => l_msg_data);
3883:
3884: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Return status: ' || l_return_status);
3885: IF l_return_status <> 'S' THEN
3886: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to lns_fee_engine.processDisbursementFees failed');
3887: RAISE FND_API.G_EXC_ERROR;
3888: END IF;
3889:
3890: -- query liability distribution info
3896:
3897: l_due_date := l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE;
3898: l_source := 'LOANS';
3899:
3900: LogMessage(FND_LOG.LEVEL_STATEMENT, 'AP Invoice datails:');
3901: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Invoice Number: ' || l_invoice_number);
3902: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Due Date: ' || l_due_date);
3903: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
3904: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Currency: ' || l_loan_currency);
3897: l_due_date := l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE;
3898: l_source := 'LOANS';
3899:
3900: LogMessage(FND_LOG.LEVEL_STATEMENT, 'AP Invoice datails:');
3901: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Invoice Number: ' || l_invoice_number);
3902: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Due Date: ' || l_due_date);
3903: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
3904: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Currency: ' || l_loan_currency);
3905: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_RATE_TYPE: ' || l_EXCHANGE_RATE_TYPE);
3898: l_source := 'LOANS';
3899:
3900: LogMessage(FND_LOG.LEVEL_STATEMENT, 'AP Invoice datails:');
3901: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Invoice Number: ' || l_invoice_number);
3902: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Due Date: ' || l_due_date);
3903: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
3904: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Currency: ' || l_loan_currency);
3905: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_RATE_TYPE: ' || l_EXCHANGE_RATE_TYPE);
3906: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_DATE: ' || l_EXCHANGE_DATE);
3899:
3900: LogMessage(FND_LOG.LEVEL_STATEMENT, 'AP Invoice datails:');
3901: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Invoice Number: ' || l_invoice_number);
3902: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Due Date: ' || l_due_date);
3903: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
3904: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Currency: ' || l_loan_currency);
3905: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_RATE_TYPE: ' || l_EXCHANGE_RATE_TYPE);
3906: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_DATE: ' || l_EXCHANGE_DATE);
3907: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_RATE: ' || l_EXCHANGE_RATE);
3900: LogMessage(FND_LOG.LEVEL_STATEMENT, 'AP Invoice datails:');
3901: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Invoice Number: ' || l_invoice_number);
3902: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Due Date: ' || l_due_date);
3903: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
3904: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Currency: ' || l_loan_currency);
3905: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_RATE_TYPE: ' || l_EXCHANGE_RATE_TYPE);
3906: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_DATE: ' || l_EXCHANGE_DATE);
3907: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_RATE: ' || l_EXCHANGE_RATE);
3908: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
3901: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Invoice Number: ' || l_invoice_number);
3902: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Due Date: ' || l_due_date);
3903: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
3904: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Currency: ' || l_loan_currency);
3905: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_RATE_TYPE: ' || l_EXCHANGE_RATE_TYPE);
3906: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_DATE: ' || l_EXCHANGE_DATE);
3907: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_RATE: ' || l_EXCHANGE_RATE);
3908: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
3909: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Source: ' || l_source);
3902: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Due Date: ' || l_due_date);
3903: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
3904: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Currency: ' || l_loan_currency);
3905: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_RATE_TYPE: ' || l_EXCHANGE_RATE_TYPE);
3906: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_DATE: ' || l_EXCHANGE_DATE);
3907: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_RATE: ' || l_EXCHANGE_RATE);
3908: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
3909: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Source: ' || l_source);
3910: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
3903: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Amount: ' || l_DISB_LINE_REC.LINE_AMOUNT);
3904: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Currency: ' || l_loan_currency);
3905: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_RATE_TYPE: ' || l_EXCHANGE_RATE_TYPE);
3906: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_DATE: ' || l_EXCHANGE_DATE);
3907: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_RATE: ' || l_EXCHANGE_RATE);
3908: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
3909: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Source: ' || l_source);
3910: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
3911: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACCTS_PAY_CODE_COMBINATION_ID: ' || l_cc_id);
3904: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Currency: ' || l_loan_currency);
3905: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_RATE_TYPE: ' || l_EXCHANGE_RATE_TYPE);
3906: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_DATE: ' || l_EXCHANGE_DATE);
3907: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_RATE: ' || l_EXCHANGE_RATE);
3908: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
3909: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Source: ' || l_source);
3910: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
3911: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACCTS_PAY_CODE_COMBINATION_ID: ' || l_cc_id);
3912:
3905: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_RATE_TYPE: ' || l_EXCHANGE_RATE_TYPE);
3906: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_DATE: ' || l_EXCHANGE_DATE);
3907: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_RATE: ' || l_EXCHANGE_RATE);
3908: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
3909: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Source: ' || l_source);
3910: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
3911: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACCTS_PAY_CODE_COMBINATION_ID: ' || l_cc_id);
3912:
3913: -- analyzing exchange info
3906: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_DATE: ' || l_EXCHANGE_DATE);
3907: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_RATE: ' || l_EXCHANGE_RATE);
3908: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
3909: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Source: ' || l_source);
3910: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
3911: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACCTS_PAY_CODE_COMBINATION_ID: ' || l_cc_id);
3912:
3913: -- analyzing exchange info
3914: if l_EXCHANGE_RATE_TYPE is null or
3907: LogMessage(FND_LOG.LEVEL_STATEMENT, 'EXCHANGE_RATE: ' || l_EXCHANGE_RATE);
3908: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payee Party ID: ' || l_DISB_LINE_REC.PAYEE_PARTY_ID);
3909: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Source: ' || l_source);
3910: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment Method: ' || l_DISB_LINE_REC.PAYMENT_METHOD_CODE);
3911: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ACCTS_PAY_CODE_COMBINATION_ID: ' || l_cc_id);
3912:
3913: -- analyzing exchange info
3914: if l_EXCHANGE_RATE_TYPE is null or
3915: (l_EXCHANGE_RATE_TYPE is not null and l_EXCHANGE_RATE_TYPE <> 'User') then
3913: -- analyzing exchange info
3914: if l_EXCHANGE_RATE_TYPE is null or
3915: (l_EXCHANGE_RATE_TYPE is not null and l_EXCHANGE_RATE_TYPE <> 'User') then
3916:
3917: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Setting exchange rate = null');
3918: l_EXCHANGE_RATE := null;
3919:
3920: end if;
3921:
3930: open new_inv_id_cur;
3931: fetch new_inv_id_cur into l_invoice_id;
3932: close new_inv_id_cur;
3933:
3934: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Invoice ID: ' || l_invoice_id);
3935:
3936: l_new_invoice := 'Y';
3937: -- inserting invoice line
3938: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting AP invoice into interface table...');
3934: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Invoice ID: ' || l_invoice_id);
3935:
3936: l_new_invoice := 'Y';
3937: -- inserting invoice line
3938: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting AP invoice into interface table...');
3939:
3940: AP_INVOICES_INTERFACE_PKG.INSERT_ROW(
3941: X_ROWID => l_invoice_row_id,
3942: X_INVOICE_ID => l_invoice_id,
4066: X_PAY_PROC_TRXN_TYPE_CODE => 'LOAN_PAYMENT',
4067: X_PAYMENT_FUNCTION => 'LOANS_PAYMENTS',
4068: X_PAYMENT_PRIORITY => null);
4069:
4070: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully inserted new invoice');
4071:
4072: else
4073:
4074: l_invoice_id := l_DISB_LINE_REC.INVOICE_INTERFACE_ID;
4071:
4072: else
4073:
4074: l_invoice_id := l_DISB_LINE_REC.INVOICE_INTERFACE_ID;
4075: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Invoice ID: ' || l_invoice_id);
4076:
4077: -- inserting invoice line
4078: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating AP invoice into interface table...');
4079:
4074: l_invoice_id := l_DISB_LINE_REC.INVOICE_INTERFACE_ID;
4075: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Invoice ID: ' || l_invoice_id);
4076:
4077: -- inserting invoice line
4078: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating AP invoice into interface table...');
4079:
4080: AP_INVOICES_INTERFACE_PKG.UPDATE_ROW(
4081: X_INVOICE_ID => l_invoice_id,
4082: X_INVOICE_NUM => l_invoice_number,
4202: X_PAY_PROC_TRXN_TYPE_CODE => 'LOAN_PAYMENT',
4203: X_PAYMENT_FUNCTION => 'LOANS_PAYMENTS',
4204: X_PAYMENT_PRIORITY => null);
4205:
4206: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully updated invoice');
4207:
4208: end if;
4209:
4210: EXCEPTION
4211: WHEN OTHERS THEN
4212: ROLLBACK TO SUBMIT_SINGLE_PAY_REQ;
4213:
4214: if l_new_invoice = 'Y' then
4215: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Failed to insert invoice into interface table');
4216: FND_MESSAGE.SET_NAME('LNS', 'LNS_FAIL_INS_AP_INV');
4217: FND_MSG_PUB.Add;
4218: else
4219: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Failed to update invoice into interface table');
4215: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Failed to insert invoice into interface table');
4216: FND_MESSAGE.SET_NAME('LNS', 'LNS_FAIL_INS_AP_INV');
4217: FND_MSG_PUB.Add;
4218: else
4219: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Failed to update invoice into interface table');
4220: FND_MESSAGE.SET_NAME('LNS', 'LNS_FAIL_UPD_AP_INV');
4221: FND_MSG_PUB.Add;
4222: end if;
4223:
4224: RAISE FND_API.G_EXC_ERROR;
4225: END;
4226:
4227: -- Deleting invoice interface lines
4228: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Deleting invoice interface lines...');
4229:
4230: delete from AP_INVOICE_LINES_INTERFACE
4231: where INVOICE_ID = l_invoice_id;
4232:
4229:
4230: delete from AP_INVOICE_LINES_INTERFACE
4231: where INVOICE_ID = l_invoice_id;
4232:
4233: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Deleted');
4234:
4235: -- query clearing distribution info and generating invoice lines
4236: open clearing_distr_cur(l_DISB_HEADER_REC.LOAN_ID, l_DISB_LINE_REC.DISB_HEADER_ID);
4237:
4247:
4248: if clearing_distr_cur%NOTFOUND and l_Count1 > 0 then
4249: exit;
4250: elsif clearing_distr_cur%NOTFOUND and l_Count1 = 0 then
4251: LogMessage(FND_LOG.LEVEL_STATEMENT, 'No distribution record found - setting cc_id = null and percent = 100');
4252: l_cc_id := null;
4253: l_percent := 100;
4254: end if;
4255:
4296:
4297: SAVEPOINT SUBMIT_SINGLE_PAY_REQ;
4298:
4299: -- inserting invoice line
4300: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting AP invoice line ' || l_Count1 || ' into interface table...');
4301: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_invoice_line_id);
4302: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Amount: ' || l_line_amount);
4303: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Description: ' || l_description);
4304: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Accounting Date: ' || l_due_date);
4297: SAVEPOINT SUBMIT_SINGLE_PAY_REQ;
4298:
4299: -- inserting invoice line
4300: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting AP invoice line ' || l_Count1 || ' into interface table...');
4301: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_invoice_line_id);
4302: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Amount: ' || l_line_amount);
4303: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Description: ' || l_description);
4304: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Accounting Date: ' || l_due_date);
4305: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DIST_CODE_COMBINATION_ID: ' || l_cc_id);
4298:
4299: -- inserting invoice line
4300: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting AP invoice line ' || l_Count1 || ' into interface table...');
4301: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_invoice_line_id);
4302: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Amount: ' || l_line_amount);
4303: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Description: ' || l_description);
4304: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Accounting Date: ' || l_due_date);
4305: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DIST_CODE_COMBINATION_ID: ' || l_cc_id);
4306:
4299: -- inserting invoice line
4300: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting AP invoice line ' || l_Count1 || ' into interface table...');
4301: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_invoice_line_id);
4302: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Amount: ' || l_line_amount);
4303: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Description: ' || l_description);
4304: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Accounting Date: ' || l_due_date);
4305: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DIST_CODE_COMBINATION_ID: ' || l_cc_id);
4306:
4307: AP_INVOICE_LINES_INTERFACE_PKG.INSERT_ROW(
4300: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting AP invoice line ' || l_Count1 || ' into interface table...');
4301: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_invoice_line_id);
4302: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Amount: ' || l_line_amount);
4303: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Description: ' || l_description);
4304: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Accounting Date: ' || l_due_date);
4305: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DIST_CODE_COMBINATION_ID: ' || l_cc_id);
4306:
4307: AP_INVOICE_LINES_INTERFACE_PKG.INSERT_ROW(
4308: X_ROWID => l_inv_line_row_id,
4301: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line ID: ' || l_invoice_line_id);
4302: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Line Amount: ' || l_line_amount);
4303: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Description: ' || l_description);
4304: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Accounting Date: ' || l_due_date);
4305: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DIST_CODE_COMBINATION_ID: ' || l_cc_id);
4306:
4307: AP_INVOICE_LINES_INTERFACE_PKG.INSERT_ROW(
4308: X_ROWID => l_inv_line_row_id,
4309: X_INVOICE_ID => l_invoice_id,
4445: X_COST_FACTOR_ID => null);
4446:
4447: EXCEPTION
4448: WHEN OTHERS THEN
4449: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Failed to insert invoice line into interface table');
4450: ROLLBACK TO SUBMIT_SINGLE_PAY_REQ;
4451:
4452: FND_MESSAGE.SET_NAME('LNS', 'LNS_FAIL_INS_AP_INV_LN');
4453: FND_MSG_PUB.Add;
4453: FND_MSG_PUB.Add;
4454: RAISE FND_API.G_EXC_ERROR;
4455: END;
4456:
4457: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully inserted new invoice line.');
4458:
4459: END LOOP;
4460:
4461: close clearing_distr_cur;
4461: close clearing_distr_cur;
4462:
4463: l_DISB_LINE_REC.INVOICE_INTERFACE_ID := l_invoice_id;
4464:
4465: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Submitted payment request...');
4466:
4467: AP_IMPORT_INVOICES_PKG.SUBMIT_PAYMENT_REQUEST(
4468: p_api_version => '1.0',
4469: p_invoice_interface_id => l_invoice_id,
4474: p_invoice_id => l_DISB_LINE_REC.INVOICE_ID,
4475: x_rejection_list => l_rejections,
4476: p_calling_sequence => l_api_name);
4477:
4478: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'AP_IMPORT_INVOICES_PKG.SUBMIT_PAYMENT_REQUEST return status: ' || l_return_status);
4479: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'AP_IMPORT_INVOICES_PKG.SUBMIT_PAYMENT_REQUEST return invoice_id: ' || l_DISB_LINE_REC.INVOICE_ID);
4480:
4481: -- sanity check: get invoice_id straight from AP
4482: open get_invoice_cur(l_invoice_number, l_DISB_LINE_REC.PAYEE_PARTY_ID);
4475: x_rejection_list => l_rejections,
4476: p_calling_sequence => l_api_name);
4477:
4478: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'AP_IMPORT_INVOICES_PKG.SUBMIT_PAYMENT_REQUEST return status: ' || l_return_status);
4479: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'AP_IMPORT_INVOICES_PKG.SUBMIT_PAYMENT_REQUEST return invoice_id: ' || l_DISB_LINE_REC.INVOICE_ID);
4480:
4481: -- sanity check: get invoice_id straight from AP
4482: open get_invoice_cur(l_invoice_number, l_DISB_LINE_REC.PAYEE_PARTY_ID);
4483: fetch get_invoice_cur into l_ap_inv_id;
4481: -- sanity check: get invoice_id straight from AP
4482: open get_invoice_cur(l_invoice_number, l_DISB_LINE_REC.PAYEE_PARTY_ID);
4483: fetch get_invoice_cur into l_ap_inv_id;
4484: close get_invoice_cur;
4485: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Straight query of invoive_id from AP: ' || l_ap_inv_id);
4486:
4487: if l_return_status <> 'S' and
4488: l_DISB_LINE_REC.INVOICE_ID is null and
4489: l_ap_inv_id is not null then
4487: if l_return_status <> 'S' and
4488: l_DISB_LINE_REC.INVOICE_ID is null and
4489: l_ap_inv_id is not null then
4490:
4491: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'INTERNAL AP ERROR: AP_IMPORT_INVOICES_PKG.SUBMIT_PAYMENT_REQUEST failed but invoice WAS CREATED!!! Proceeding as its success');
4492: l_return_status := 'S';
4493: l_DISB_LINE_REC.INVOICE_ID := l_ap_inv_id;
4494:
4495: elsif l_return_status <> 'S' and
4496: l_DISB_LINE_REC.INVOICE_ID is not null and
4497: l_ap_inv_id is not null and
4498: l_DISB_LINE_REC.INVOICE_ID = l_ap_inv_id then
4499:
4500: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'INTERNAL AP ERROR: AP_IMPORT_INVOICES_PKG.SUBMIT_PAYMENT_REQUEST return status is not S but return invoice id is set!!! Proceeding as its success');
4501: l_return_status := 'S';
4502:
4503: end if;
4504:
4503: end if;
4504:
4505: IF l_return_status = 'S' THEN
4506:
4507: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully submitted payment request.');
4508: l_DISB_LINE_REC.STATUS := 'IN_FUNDING';
4509: l_DISB_LINE_REC.REQUEST_DATE := sysdate;
4510:
4511: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting new history record...');
4507: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully submitted payment request.');
4508: l_DISB_LINE_REC.STATUS := 'IN_FUNDING';
4509: l_DISB_LINE_REC.REQUEST_DATE := sysdate;
4510:
4511: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting new history record...');
4512: -- calling history table handler api
4513: LNS_DISB_HISTORIES_H_PKG.Insert_Row(
4514: X_DISB_HISTORY_ID => l_hist_id,
4515: P_DISB_LINE_ID => l_DISB_LINE_REC.DISB_LINE_ID,
4520: P_PAYMENT_REQUEST_DATE => l_due_date,
4521: P_STATUS => l_DISB_LINE_REC.STATUS,
4522: P_MESSAGES => null,
4523: P_OBJECT_VERSION_NUMBER => 1);
4524: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully inserted new history record with DISB_HISTORY_ID: ' || l_hist_id);
4525:
4526: UPDATE_DISB_LINE(
4527: P_API_VERSION => 1.0,
4528: P_INIT_MSG_LIST => FND_API.G_FALSE,
4533: X_MSG_COUNT => l_msg_count,
4534: X_MSG_DATA => l_msg_data);
4535:
4536: IF l_return_status <> 'S' THEN
4537: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to UPDATE_DISB_LINE failed');
4538: END IF;
4539:
4540: ELSIF l_return_status = 'R' THEN
4541:
4538: END IF;
4539:
4540: ELSIF l_return_status = 'R' THEN
4541:
4542: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Submit payment request return status: ' || l_return_status);
4543: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rejections count: ' || l_rejections.COUNT);
4544:
4545: if l_rejections.COUNT > 0 then
4546:
4539:
4540: ELSIF l_return_status = 'R' THEN
4541:
4542: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Submit payment request return status: ' || l_return_status);
4543: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rejections count: ' || l_rejections.COUNT);
4544:
4545: if l_rejections.COUNT > 0 then
4546:
4547: FOR l_Count2 IN 1..l_rejections.COUNT LOOP
4545: if l_rejections.COUNT > 0 then
4546:
4547: FOR l_Count2 IN 1..l_rejections.COUNT LOOP
4548:
4549: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rejection ' || l_Count2);
4550: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'parent_table: ' || l_rejections(l_Count2).parent_table);
4551: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'parent_id: ' || l_rejections(l_Count2).parent_id);
4552: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'reject_lookup_code: ' || l_rejections(l_Count2).reject_lookup_code);
4553:
4546:
4547: FOR l_Count2 IN 1..l_rejections.COUNT LOOP
4548:
4549: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rejection ' || l_Count2);
4550: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'parent_table: ' || l_rejections(l_Count2).parent_table);
4551: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'parent_id: ' || l_rejections(l_Count2).parent_id);
4552: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'reject_lookup_code: ' || l_rejections(l_Count2).reject_lookup_code);
4553:
4554: -- get rejection description
4547: FOR l_Count2 IN 1..l_rejections.COUNT LOOP
4548:
4549: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rejection ' || l_Count2);
4550: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'parent_table: ' || l_rejections(l_Count2).parent_table);
4551: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'parent_id: ' || l_rejections(l_Count2).parent_id);
4552: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'reject_lookup_code: ' || l_rejections(l_Count2).reject_lookup_code);
4553:
4554: -- get rejection description
4555: open get_reject_cur(l_rejections(l_Count2).reject_lookup_code);
4548:
4549: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rejection ' || l_Count2);
4550: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'parent_table: ' || l_rejections(l_Count2).parent_table);
4551: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'parent_id: ' || l_rejections(l_Count2).parent_id);
4552: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'reject_lookup_code: ' || l_rejections(l_Count2).reject_lookup_code);
4553:
4554: -- get rejection description
4555: open get_reject_cur(l_rejections(l_Count2).reject_lookup_code);
4556: fetch get_reject_cur into l_reject_desc;
4555: open get_reject_cur(l_rejections(l_Count2).reject_lookup_code);
4556: fetch get_reject_cur into l_reject_desc;
4557: close get_reject_cur;
4558:
4559: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rejection desc: ' || l_reject_desc);
4560:
4561: if l_rejections(l_Count2).parent_table = 'AP_INVOICES_INTERFACE' then
4562:
4563: -- get party for rejection
4581:
4582: END LOOP;
4583:
4584: else
4585: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No rejections have been returned');
4586: end if;
4587:
4588: RAISE FND_API.G_EXC_ERROR;
4589:
4588: RAISE FND_API.G_EXC_ERROR;
4589:
4590: ELSE
4591:
4592: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Submit payment request return status: ' || l_return_status);
4593: RAISE FND_API.G_EXC_ERROR;
4594:
4595: END IF;
4596:
4598:
4599: -- END OF BODY OF API
4600: x_return_status := FND_API.G_RET_STS_SUCCESS;
4601:
4602: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Successfully submitted single payment request');
4603:
4604: -- Standard call to get message count and if count is 1, get message info
4605: FND_MSG_PUB.Count_And_Get(
4606: p_encoded => FND_API.G_FALSE,
4606: p_encoded => FND_API.G_FALSE,
4607: p_count => x_msg_count,
4608: p_data => x_msg_data);
4609:
4610: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
4611:
4612: EXCEPTION
4613: WHEN OTHERS THEN
4614:
4614:
4615: l_DISB_LINE_REC.STATUS := 'FUNDING_ERROR';
4616: l_DISB_LINE_REC.REQUEST_DATE := sysdate;
4617:
4618: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Inserting new history record...');
4619: -- calling history table handler api
4620: LNS_DISB_HISTORIES_H_PKG.Insert_Row(
4621: X_DISB_HISTORY_ID => l_hist_id,
4622: P_DISB_LINE_ID => l_DISB_LINE_REC.DISB_LINE_ID,
4628: P_STATUS => l_DISB_LINE_REC.STATUS,
4629: P_MESSAGES => null,
4630: P_OBJECT_VERSION_NUMBER => 1);
4631:
4632: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully inserted new history record with DISB_HISTORY_ID: ' || l_hist_id);
4633:
4634: UPDATE_DISB_LINE(P_API_VERSION => 1.0,
4635: P_INIT_MSG_LIST => FND_API.G_FALSE,
4636: P_COMMIT => FND_API.G_TRUE,
4640: X_MSG_COUNT => l_msg_count,
4641: X_MSG_DATA => l_msg_data);
4642:
4643: IF l_return_status <> 'S' THEN
4644: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to UPDATE_DISB_LINE failed');
4645: END IF;
4646:
4647: COMMIT WORK;
4648:
4721: DISBURSEMENT_NUMBER = 1;
4722:
4723: BEGIN
4724:
4725: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
4726:
4727: -- Standard call to check for call compatibility
4728: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4760: return;
4761: end if;
4762:
4763: COMMIT WORK;
4764: LogMessage(FND_LOG.LEVEL_STATEMENT, 'SUBMIT_AUTODISBURSEMENT returned status: ' || x_return_status);
4765:
4766: -- END OF BODY OF API
4767: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
4768:
4763: COMMIT WORK;
4764: LogMessage(FND_LOG.LEVEL_STATEMENT, 'SUBMIT_AUTODISBURSEMENT returned status: ' || x_return_status);
4765:
4766: -- END OF BODY OF API
4767: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
4768:
4769: -- Standard call to get message count and if count is 1, get message info
4770: FND_MSG_PUB.Count_And_Get(
4771: p_encoded => FND_API.G_FALSE,
4771: p_encoded => FND_API.G_FALSE,
4772: p_count => x_msg_count,
4773: p_data => x_msg_data);
4774:
4775: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
4776:
4777: EXCEPTION
4778: WHEN FND_API.G_EXC_ERROR THEN
4779: x_return_status := FND_API.G_RET_STS_ERROR;
4911: (end_date_active is null or trunc(end_date_active) > trunc(sysdate));
4912:
4913: BEGIN
4914:
4915: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
4916: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
4917:
4918: -- Standard call to check for call compatibility
4919: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4912:
4913: BEGIN
4914:
4915: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
4916: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
4917:
4918: -- Standard call to check for call compatibility
4919: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4929: l_return_status := FND_API.G_RET_STS_SUCCESS;
4930:
4931: -- START OF BODY OF API
4932:
4933: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Submitting disbursement header ' || P_DISB_HEADER_ID || '...');
4934:
4935: -- query loan details
4936: open loan_detail_cur(P_DISB_HEADER_ID);
4937: fetch loan_detail_cur into l_loan_id,
4943:
4944: -- if no record exists - return; otherwise proceed
4945: if loan_detail_cur%NOTFOUND then
4946:
4947: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Loan Record is not found');
4948: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
4949: FND_MESSAGE.SET_TOKEN('RECORD', 'loan header');
4950: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_ID), 'null'));
4951: FND_MSG_PUB.ADD;
4948: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
4949: FND_MESSAGE.SET_TOKEN('RECORD', 'loan header');
4950: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_ID), 'null'));
4951: FND_MSG_PUB.ADD;
4952: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
4953: RAISE FND_API.G_EXC_ERROR;
4954:
4955: end if;
4956:
4958:
4959: -- if its 1-st disbursement and funds not already reserved, call BC to reserve funds
4960: if (l_disb_number = 1 and l_funds_reserved_flag <> 'Y') then
4961:
4962: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Calling lns_distributions_pub.budgetary_control...');
4963:
4964: BEGIN
4965: lns_distributions_pub.budgetary_control(p_init_msg_list => FND_API.G_FALSE
4966: ,p_commit => FND_API.G_FALSE
4971: ,x_msg_count => l_msg_count
4972: ,x_msg_data => l_msg_data);
4973: EXCEPTION
4974: WHEN OTHERS THEN
4975: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'lns_distributions_pub.budgetary_control throws exception');
4976: RAISE FND_API.G_EXC_ERROR;
4977: END;
4978:
4979: IF l_return_status <> 'S' THEN
4976: RAISE FND_API.G_EXC_ERROR;
4977: END;
4978:
4979: IF l_return_status <> 'S' THEN
4980: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to lns_distributions_pub.budgetary_control failed');
4981: RAISE FND_API.G_EXC_ERROR;
4982: END IF;
4983:
4984: end if;
4992: X_MSG_COUNT => l_msg_count,
4993: X_MSG_DATA => l_msg_data);
4994:
4995: IF l_return_status <> 'S' THEN
4996: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to VALIDATE_DISB_FOR_SUBMIT failed');
4997: RAISE FND_API.G_EXC_ERROR;
4998: END IF;
4999:
5000: -- checking for conditions
5010:
5011: -- create iby external payee
5012: CREATE_EXT_IBY_PAYEE(P_DISB_HEADER_ID);
5013:
5014: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
5015: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Searching for disbursement lines to creating payment requests...');
5016:
5017: -- getting disbursement line info
5018: open disb_line_cur(P_DISB_HEADER_ID);
5011: -- create iby external payee
5012: CREATE_EXT_IBY_PAYEE(P_DISB_HEADER_ID);
5013:
5014: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
5015: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Searching for disbursement lines to creating payment requests...');
5016:
5017: -- getting disbursement line info
5018: open disb_line_cur(P_DISB_HEADER_ID);
5019:
5047: X_RETURN_STATUS => l_return_status,
5048: X_MSG_COUNT => l_msg_count,
5049: X_MSG_DATA => l_msg_data);
5050:
5051: LogMessage(FND_LOG.LEVEL_STATEMENT, 'SUBMIT_SINGLE_PAY_REQ return status: ' || l_return_status);
5052:
5053: -- counting errors
5054: if l_return_status <> 'S' then
5055: l_count1 := l_count1 + 1;
5059:
5060: close disb_line_cur;
5061:
5062: if l_count = 0 then
5063: LogMessage(FND_LOG.LEVEL_STATEMENT, 'No disbursement lines found to create payment request');
5064: else
5065: if l_count1 = 0 then -- nothing has failed
5066: l_DISB_HEADER_REC.STATUS := 'IN_FUNDING';
5067: l_loan_header_rec.SECONDARY_STATUS := 'IN_FUNDING';
5084: X_MSG_COUNT => l_msg_count,
5085: X_MSG_DATA => l_msg_data);
5086:
5087: IF l_return_status <> 'S' THEN
5088: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to UPDATE_DISB_HEADER failed');
5089: END IF;
5090:
5091: l_loan_header_rec.LOAN_ID := l_loan_id;
5092:
5089: END IF;
5090:
5091: l_loan_header_rec.LOAN_ID := l_loan_id;
5092:
5093: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
5094: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5095: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary status: ' || l_loan_header_rec.SECONDARY_STATUS);
5096:
5097: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
5090:
5091: l_loan_header_rec.LOAN_ID := l_loan_id;
5092:
5093: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
5094: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5095: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary status: ' || l_loan_header_rec.SECONDARY_STATUS);
5096:
5097: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
5098: P_LOAN_HEADER_REC => l_loan_header_rec,
5091: l_loan_header_rec.LOAN_ID := l_loan_id;
5092:
5093: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
5094: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5095: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary status: ' || l_loan_header_rec.SECONDARY_STATUS);
5096:
5097: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
5098: P_LOAN_HEADER_REC => l_loan_header_rec,
5099: P_INIT_MSG_LIST => FND_API.G_FALSE,
5100: X_RETURN_STATUS => l_return_status,
5101: X_MSG_COUNT => l_msg_count,
5102: X_MSG_DATA => l_msg_data);
5103:
5104: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
5105:
5106: IF l_return_status = 'S' THEN
5107: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5108: ELSE
5103:
5104: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
5105:
5106: IF l_return_status = 'S' THEN
5107: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5108: ELSE
5109: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
5110: FND_MSG_PUB.Add;
5111: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5107: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5108: ELSE
5109: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
5110: FND_MSG_PUB.Add;
5111: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5112: -- RAISE FND_API.G_EXC_ERROR;
5113: END IF;
5114:
5115: end if;
5114:
5115: end if;
5116:
5117: COMMIT WORK;
5118: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
5119:
5120: if l_count1 > 0 then
5121: RAISE FND_API.G_EXC_ERROR;
5122: end if;
5122: end if;
5123:
5124: -- END OF BODY OF API
5125: x_return_status := FND_API.G_RET_STS_SUCCESS;
5126: LogMessage(FND_LOG.LEVEL_STATEMENT, 'SUBMIT_DISBURSEMENT returned status: ' || x_return_status);
5127:
5128: -- Standard call to get message count and if count is 1, get message info
5129: FND_MSG_PUB.Count_And_Get(
5130: p_encoded => FND_API.G_FALSE,
5130: p_encoded => FND_API.G_FALSE,
5131: p_count => x_msg_count,
5132: p_data => x_msg_data);
5133:
5134: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
5135:
5136: EXCEPTION
5137: WHEN OTHERS THEN
5138: x_return_status := FND_API.G_RET_STS_ERROR;
5143: FND_MSG_PUB.Add;
5144: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5145: end if;
5146:
5147: LogMessage(FND_LOG.LEVEL_STATEMENT, 'SUBMIT_DISBURSEMENT returned status: ' || x_return_status);
5148:
5149: END;
5150:
5151: /*========================================================================
5322: CURSOR inv_paid_amount_cur(P_INVOICE_ID number) IS
5323: select INVOICE_AMOUNT, AMOUNT_PAID from ap_invoices_all where invoice_id = P_INVOICE_ID;
5324:
5325: BEGIN
5326: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
5327: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
5328:
5329: -- Standard start of API savepoint
5330: SAVEPOINT PAY_SINGLE_INVOICE;
5323: select INVOICE_AMOUNT, AMOUNT_PAID from ap_invoices_all where invoice_id = P_INVOICE_ID;
5324:
5325: BEGIN
5326: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
5327: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
5328:
5329: -- Standard start of API savepoint
5330: SAVEPOINT PAY_SINGLE_INVOICE;
5331: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
5327: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
5328:
5329: -- Standard start of API savepoint
5330: SAVEPOINT PAY_SINGLE_INVOICE;
5331: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
5332:
5333: -- Initialize API return status to success
5334: l_return_status := FND_API.G_RET_STS_SUCCESS;
5335:
5334: l_return_status := FND_API.G_RET_STS_SUCCESS;
5335:
5336: -- START OF BODY OF API
5337:
5338: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Processing payment...');
5339: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
5340: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_INVOICE_ID: ' || P_INVOICE_ID);
5341:
5342: -- getting disbursement line info
5335:
5336: -- START OF BODY OF API
5337:
5338: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Processing payment...');
5339: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
5340: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_INVOICE_ID: ' || P_INVOICE_ID);
5341:
5342: -- getting disbursement line info
5343: open disb_line_cur(P_INVOICE_ID);
5336: -- START OF BODY OF API
5337:
5338: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Processing payment...');
5339: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
5340: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_INVOICE_ID: ' || P_INVOICE_ID);
5341:
5342: -- getting disbursement line info
5343: open disb_line_cur(P_INVOICE_ID);
5344: fetch disb_line_cur into l_DISB_LINE_REC.DISB_LINE_ID,
5402: X_MSG_COUNT => l_msg_count,
5403: X_MSG_DATA => l_msg_data);
5404:
5405: IF l_return_status <> 'S' THEN
5406: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to UPDATE_DISB_LINE failed');
5407: RAISE FND_API.G_EXC_ERROR;
5408: END IF;
5409:
5410: -- getting diff between total lines count and fully funded lines
5434: X_MSG_COUNT => l_msg_count,
5435: X_MSG_DATA => l_msg_data);
5436:
5437: IF l_return_status <> 'S' THEN
5438: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to UPDATE_DISB_HEADER failed');
5439: RAISE FND_API.G_EXC_ERROR;
5440: END IF;
5441:
5442: -- getting last history record to update status
5443: open last_hist_rec_cur(l_DISB_LINE_REC.DISB_LINE_ID);
5444: fetch last_hist_rec_cur into l_hist_id, l_hist_version;
5445: close last_hist_rec_cur;
5446:
5447: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating history record...');
5448: -- calling history table handler api
5449: LNS_DISB_HISTORIES_H_PKG.Update_Row(
5450: P_DISB_HISTORY_ID => l_hist_id,
5451: P_STATUS => l_DISB_LINE_REC.STATUS,
5450: P_DISB_HISTORY_ID => l_hist_id,
5451: P_STATUS => l_DISB_LINE_REC.STATUS,
5452: P_OBJECT_VERSION_NUMBER => l_hist_version);
5453:
5454: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully updated history record with ID: ' || l_hist_id);
5455:
5456: if P_COMPLETE_FLAG = 'Y' then -- testing
5457:
5458: -- getting sum of all disbursed amount for this loan
5470: end if;
5471:
5472: if l_DISB_HEADER_REC.STATUS = 'FULLY_FUNDED' then
5473:
5474: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling to lns_fee_engine.processDisbursementFees...');
5475: -- processing disbursement fees
5476: lns_fee_engine.processDisbursementFees(
5477: p_init_msg_list => FND_API.G_TRUE,
5478: p_commit => FND_API.G_FALSE,
5482: x_return_status => l_return_status,
5483: x_msg_count => l_msg_count,
5484: x_msg_data => l_msg_data);
5485:
5486: LogMessage(FND_LOG.LEVEL_STATEMENT, 'return of lns_fee_engine.processDisbursementFees: ' || l_return_status);
5487: IF l_return_status <> 'S' THEN
5488: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to lns_fee_engine.processDisbursementFees failed');
5489: -- RAISE FND_API.G_EXC_ERROR;
5490: END IF;
5484: x_msg_data => l_msg_data);
5485:
5486: LogMessage(FND_LOG.LEVEL_STATEMENT, 'return of lns_fee_engine.processDisbursementFees: ' || l_return_status);
5487: IF l_return_status <> 'S' THEN
5488: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to lns_fee_engine.processDisbursementFees failed');
5489: -- RAISE FND_API.G_EXC_ERROR;
5490: END IF;
5491:
5492: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling to LNS_DISTRIBUTIONS_PUB.create_event...');
5488: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to lns_fee_engine.processDisbursementFees failed');
5489: -- RAISE FND_API.G_EXC_ERROR;
5490: END IF;
5491:
5492: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling to LNS_DISTRIBUTIONS_PUB.create_event...');
5493: -- creating accounting event
5494: l_event_table(1).loan_id := l_loan_header_rec.loan_id;
5495: l_event_table(1).EVENT_TYPE_CODE := 'DISBURSEMENT_FUNDED';
5496: l_event_table(1).EVENT_DATE := l_DISB_LINE_REC.DISBURSEMENT_DATE;
5504: x_return_status => l_return_status,
5505: x_msg_count => l_msg_count,
5506: x_msg_data => l_msg_data);
5507:
5508: LogMessage(FND_LOG.LEVEL_STATEMENT, 'return of LNS_DISTRIBUTIONS_PUB.create_event: ' || l_return_status);
5509: IF l_return_status <> 'S' THEN
5510: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to lns_fee_engine.processDisbursementFees failed');
5511: -- RAISE FND_API.G_EXC_ERROR;
5512: END IF;
5506: x_msg_data => l_msg_data);
5507:
5508: LogMessage(FND_LOG.LEVEL_STATEMENT, 'return of LNS_DISTRIBUTIONS_PUB.create_event: ' || l_return_status);
5509: IF l_return_status <> 'S' THEN
5510: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to lns_fee_engine.processDisbursementFees failed');
5511: -- RAISE FND_API.G_EXC_ERROR;
5512: END IF;
5513:
5514: end if;
5529: (l_loan_header_rec.secondary_status is null or
5530: (l_loan_header_rec.secondary_status <> 'ALL_DISB_CANCELLED' and
5531: l_loan_header_rec.secondary_status <> 'REMAINING_DISB_CANCELLED')) then
5532:
5533: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Getting new loan dates...');
5534:
5535: LNS_FINANCIALS.shiftLoanDates(p_loan_id => l_loan_header_rec.loan_id
5536: ,p_new_start_date=> l_DISB_LINE_REC.DISBURSEMENT_DATE
5537: ,p_phase => 'TERM'
5541: ,x_msg_count => l_msg_count
5542: ,x_msg_data => l_msg_data);
5543:
5544: IF l_return_status <> 'S' THEN
5545: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to LNS_FINANCIALS.shiftLoanDates failed');
5546: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5547: RAISE FND_API.G_EXC_ERROR;
5548: END IF;
5549:
5542: ,x_msg_data => l_msg_data);
5543:
5544: IF l_return_status <> 'S' THEN
5545: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to LNS_FINANCIALS.shiftLoanDates failed');
5546: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5547: RAISE FND_API.G_EXC_ERROR;
5548: END IF;
5549:
5550: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New loan start date: ' || l_loan_details.loan_start_date);
5546: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5547: RAISE FND_API.G_EXC_ERROR;
5548: END IF;
5549:
5550: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New loan start date: ' || l_loan_details.loan_start_date);
5551: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New first payment date: ' || l_loan_details.first_payment_Date);
5552: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New maturity date: ' || l_loan_details.maturity_date);
5553: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'l_dates_shifted_flag: ' || l_dates_shifted_flag);
5554:
5547: RAISE FND_API.G_EXC_ERROR;
5548: END IF;
5549:
5550: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New loan start date: ' || l_loan_details.loan_start_date);
5551: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New first payment date: ' || l_loan_details.first_payment_Date);
5552: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New maturity date: ' || l_loan_details.maturity_date);
5553: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'l_dates_shifted_flag: ' || l_dates_shifted_flag);
5554:
5555: -- query term version
5548: END IF;
5549:
5550: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New loan start date: ' || l_loan_details.loan_start_date);
5551: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New first payment date: ' || l_loan_details.first_payment_Date);
5552: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New maturity date: ' || l_loan_details.maturity_date);
5553: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'l_dates_shifted_flag: ' || l_dates_shifted_flag);
5554:
5555: -- query term version
5556: open term_version_cur(l_loan_header_rec.loan_id);
5549:
5550: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New loan start date: ' || l_loan_details.loan_start_date);
5551: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New first payment date: ' || l_loan_details.first_payment_Date);
5552: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New maturity date: ' || l_loan_details.maturity_date);
5553: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'l_dates_shifted_flag: ' || l_dates_shifted_flag);
5554:
5555: -- query term version
5556: open term_version_cur(l_loan_header_rec.loan_id);
5557: fetch term_version_cur into l_TERM_ID, l_TERM_VERSION_NUMBER;
5562: l_term_rec.LOAN_ID := l_loan_header_rec.loan_id;
5563: l_term_rec.FIRST_PAYMENT_DATE := l_loan_details.first_payment_Date;
5564: l_term_rec.NEXT_PAYMENT_DUE_DATE := l_loan_details.first_payment_Date;
5565:
5566: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating lns_terms w following values:');
5567: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TERM_ID: ' || l_term_rec.TERM_ID);
5568: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
5569: LogMessage(FND_LOG.LEVEL_STATEMENT, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
5570: LogMessage(FND_LOG.LEVEL_STATEMENT, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
5563: l_term_rec.FIRST_PAYMENT_DATE := l_loan_details.first_payment_Date;
5564: l_term_rec.NEXT_PAYMENT_DUE_DATE := l_loan_details.first_payment_Date;
5565:
5566: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating lns_terms w following values:');
5567: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TERM_ID: ' || l_term_rec.TERM_ID);
5568: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
5569: LogMessage(FND_LOG.LEVEL_STATEMENT, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
5570: LogMessage(FND_LOG.LEVEL_STATEMENT, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
5571:
5564: l_term_rec.NEXT_PAYMENT_DUE_DATE := l_loan_details.first_payment_Date;
5565:
5566: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating lns_terms w following values:');
5567: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TERM_ID: ' || l_term_rec.TERM_ID);
5568: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
5569: LogMessage(FND_LOG.LEVEL_STATEMENT, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
5570: LogMessage(FND_LOG.LEVEL_STATEMENT, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
5571:
5572: LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_TERM_VERSION_NUMBER,
5565:
5566: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating lns_terms w following values:');
5567: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TERM_ID: ' || l_term_rec.TERM_ID);
5568: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
5569: LogMessage(FND_LOG.LEVEL_STATEMENT, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
5570: LogMessage(FND_LOG.LEVEL_STATEMENT, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
5571:
5572: LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_TERM_VERSION_NUMBER,
5573: p_init_msg_list => FND_API.G_FALSE,
5566: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating lns_terms w following values:');
5567: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TERM_ID: ' || l_term_rec.TERM_ID);
5568: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
5569: LogMessage(FND_LOG.LEVEL_STATEMENT, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
5570: LogMessage(FND_LOG.LEVEL_STATEMENT, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
5571:
5572: LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_TERM_VERSION_NUMBER,
5573: p_init_msg_list => FND_API.G_FALSE,
5574: p_loan_term_rec => l_term_rec,
5575: X_RETURN_STATUS => l_return_status,
5576: X_MSG_COUNT => l_msg_count,
5577: X_MSG_DATA => l_msg_data);
5578:
5579: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
5580:
5581: IF l_return_status = 'S' THEN
5582: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_TERMS');
5583: ELSE
5578:
5579: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
5580:
5581: IF l_return_status = 'S' THEN
5582: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_TERMS');
5583: ELSE
5584: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
5585: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
5586: FND_MSG_PUB.Add;
5580:
5581: IF l_return_status = 'S' THEN
5582: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_TERMS');
5583: ELSE
5584: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
5585: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
5586: FND_MSG_PUB.Add;
5587: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5588: RAISE FND_API.G_EXC_ERROR;
5583: ELSE
5584: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
5585: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
5586: FND_MSG_PUB.Add;
5587: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5588: RAISE FND_API.G_EXC_ERROR;
5589: END IF;
5590:
5591: -- setting data for future loan update
5603: end if;
5604:
5605: else
5606:
5607: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan is already cancelled - wont change phase to TERM and wont recalc loan dates');
5608:
5609: end if;
5610:
5611: if l_loan_header_rec.LOAN_STATUS <> 'PENDING_CANCELLATION' then
5611: if l_loan_header_rec.LOAN_STATUS <> 'PENDING_CANCELLATION' then
5612: l_loan_header_rec.LOAN_STATUS := 'ACTIVE';
5613: end if;
5614:
5615: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
5616: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
5617: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_START_DATE: ' || l_loan_header_rec.LOAN_START_DATE);
5618: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_MATURITY_DATE: ' || l_loan_header_rec.LOAN_MATURITY_DATE);
5619: LogMessage(FND_LOG.LEVEL_STATEMENT, 'current_phase: ' || l_loan_header_rec.current_phase);
5612: l_loan_header_rec.LOAN_STATUS := 'ACTIVE';
5613: end if;
5614:
5615: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
5616: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
5617: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_START_DATE: ' || l_loan_header_rec.LOAN_START_DATE);
5618: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_MATURITY_DATE: ' || l_loan_header_rec.LOAN_MATURITY_DATE);
5619: LogMessage(FND_LOG.LEVEL_STATEMENT, 'current_phase: ' || l_loan_header_rec.current_phase);
5620: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LAST_PAYMENT_NUMBER: ' || l_loan_header_rec.LAST_PAYMENT_NUMBER);
5613: end if;
5614:
5615: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
5616: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
5617: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_START_DATE: ' || l_loan_header_rec.LOAN_START_DATE);
5618: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_MATURITY_DATE: ' || l_loan_header_rec.LOAN_MATURITY_DATE);
5619: LogMessage(FND_LOG.LEVEL_STATEMENT, 'current_phase: ' || l_loan_header_rec.current_phase);
5620: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LAST_PAYMENT_NUMBER: ' || l_loan_header_rec.LAST_PAYMENT_NUMBER);
5621: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LAST_AMORTIZATION_ID: ' || l_loan_header_rec.LAST_AMORTIZATION_ID);
5614:
5615: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
5616: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
5617: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_START_DATE: ' || l_loan_header_rec.LOAN_START_DATE);
5618: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_MATURITY_DATE: ' || l_loan_header_rec.LOAN_MATURITY_DATE);
5619: LogMessage(FND_LOG.LEVEL_STATEMENT, 'current_phase: ' || l_loan_header_rec.current_phase);
5620: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LAST_PAYMENT_NUMBER: ' || l_loan_header_rec.LAST_PAYMENT_NUMBER);
5621: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LAST_AMORTIZATION_ID: ' || l_loan_header_rec.LAST_AMORTIZATION_ID);
5622: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5615: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
5616: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
5617: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_START_DATE: ' || l_loan_header_rec.LOAN_START_DATE);
5618: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_MATURITY_DATE: ' || l_loan_header_rec.LOAN_MATURITY_DATE);
5619: LogMessage(FND_LOG.LEVEL_STATEMENT, 'current_phase: ' || l_loan_header_rec.current_phase);
5620: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LAST_PAYMENT_NUMBER: ' || l_loan_header_rec.LAST_PAYMENT_NUMBER);
5621: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LAST_AMORTIZATION_ID: ' || l_loan_header_rec.LAST_AMORTIZATION_ID);
5622: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5623: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5616: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
5617: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_START_DATE: ' || l_loan_header_rec.LOAN_START_DATE);
5618: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_MATURITY_DATE: ' || l_loan_header_rec.LOAN_MATURITY_DATE);
5619: LogMessage(FND_LOG.LEVEL_STATEMENT, 'current_phase: ' || l_loan_header_rec.current_phase);
5620: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LAST_PAYMENT_NUMBER: ' || l_loan_header_rec.LAST_PAYMENT_NUMBER);
5621: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LAST_AMORTIZATION_ID: ' || l_loan_header_rec.LAST_AMORTIZATION_ID);
5622: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5623: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5624: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary_status: ' || l_loan_header_rec.secondary_status);
5617: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_START_DATE: ' || l_loan_header_rec.LOAN_START_DATE);
5618: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_MATURITY_DATE: ' || l_loan_header_rec.LOAN_MATURITY_DATE);
5619: LogMessage(FND_LOG.LEVEL_STATEMENT, 'current_phase: ' || l_loan_header_rec.current_phase);
5620: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LAST_PAYMENT_NUMBER: ' || l_loan_header_rec.LAST_PAYMENT_NUMBER);
5621: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LAST_AMORTIZATION_ID: ' || l_loan_header_rec.LAST_AMORTIZATION_ID);
5622: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5623: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5624: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary_status: ' || l_loan_header_rec.secondary_status);
5625:
5618: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_MATURITY_DATE: ' || l_loan_header_rec.LOAN_MATURITY_DATE);
5619: LogMessage(FND_LOG.LEVEL_STATEMENT, 'current_phase: ' || l_loan_header_rec.current_phase);
5620: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LAST_PAYMENT_NUMBER: ' || l_loan_header_rec.LAST_PAYMENT_NUMBER);
5621: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LAST_AMORTIZATION_ID: ' || l_loan_header_rec.LAST_AMORTIZATION_ID);
5622: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5623: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5624: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary_status: ' || l_loan_header_rec.secondary_status);
5625:
5626: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
5619: LogMessage(FND_LOG.LEVEL_STATEMENT, 'current_phase: ' || l_loan_header_rec.current_phase);
5620: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LAST_PAYMENT_NUMBER: ' || l_loan_header_rec.LAST_PAYMENT_NUMBER);
5621: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LAST_AMORTIZATION_ID: ' || l_loan_header_rec.LAST_AMORTIZATION_ID);
5622: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5623: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5624: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary_status: ' || l_loan_header_rec.secondary_status);
5625:
5626: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
5627: P_LOAN_HEADER_REC => l_loan_header_rec,
5620: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LAST_PAYMENT_NUMBER: ' || l_loan_header_rec.LAST_PAYMENT_NUMBER);
5621: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LAST_AMORTIZATION_ID: ' || l_loan_header_rec.LAST_AMORTIZATION_ID);
5622: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5623: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5624: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary_status: ' || l_loan_header_rec.secondary_status);
5625:
5626: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
5627: P_LOAN_HEADER_REC => l_loan_header_rec,
5628: P_INIT_MSG_LIST => FND_API.G_FALSE,
5629: X_RETURN_STATUS => l_return_status,
5630: X_MSG_COUNT => l_msg_count,
5631: X_MSG_DATA => l_msg_data);
5632:
5633: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
5634:
5635: IF l_return_status = 'S' THEN
5636: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5637: ELSE
5632:
5633: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
5634:
5635: IF l_return_status = 'S' THEN
5636: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5637: ELSE
5638: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
5639: FND_MSG_PUB.Add;
5640: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5636: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5637: ELSE
5638: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
5639: FND_MSG_PUB.Add;
5640: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5641: RAISE FND_API.G_EXC_ERROR;
5642: END IF;
5643:
5644: lns_fee_engine.processDisbursementFees(
5664:
5665: -- billing 0-th installment
5666: if l_do_billing > 0 then
5667:
5668: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Submitting Billing Concurrent Program to bill 0-th installment...');
5669: FND_REQUEST.SET_ORG_ID(MO_GLOBAL.GET_CURRENT_ORG_ID());
5670:
5671: -- Bug#6313716 : Invoke the function add_layout to specify the template type,code etc., before submitting request
5672: SELECT
5696: null);
5697:
5698: if l_request_id = 0 then
5699:
5700: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Failed to start Billing Concurrent Program.');
5701: FND_MESSAGE.SET_NAME('LNS', 'LNS_BILLING_REQUEST_FAILED');
5702: FND_MSG_PUB.Add;
5703: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5704: RAISE FND_API.G_EXC_ERROR;
5699:
5700: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Failed to start Billing Concurrent Program.');
5701: FND_MESSAGE.SET_NAME('LNS', 'LNS_BILLING_REQUEST_FAILED');
5702: FND_MSG_PUB.Add;
5703: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5704: RAISE FND_API.G_EXC_ERROR;
5705:
5706: else
5707: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Successfully submited Billing Concurrent Program to bill 0-th installment. Request id: ' || l_request_id);
5703: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5704: RAISE FND_API.G_EXC_ERROR;
5705:
5706: else
5707: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Successfully submited Billing Concurrent Program to bill 0-th installment. Request id: ' || l_request_id);
5708: end if;
5709:
5710: end if;
5711:
5724: if l_loan_header_rec.LOAN_STATUS <> 'PENDING_CANCELLATION' then
5725: l_loan_header_rec.LOAN_STATUS := 'ACTIVE';
5726: end if;
5727:
5728: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
5729: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
5730: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5731: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5732: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary_status: ' || l_loan_header_rec.secondary_status);
5725: l_loan_header_rec.LOAN_STATUS := 'ACTIVE';
5726: end if;
5727:
5728: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
5729: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
5730: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5731: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5732: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary_status: ' || l_loan_header_rec.secondary_status);
5733:
5726: end if;
5727:
5728: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
5729: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
5730: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5731: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5732: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary_status: ' || l_loan_header_rec.secondary_status);
5733:
5734: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
5727:
5728: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
5729: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
5730: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5731: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5732: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary_status: ' || l_loan_header_rec.secondary_status);
5733:
5734: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
5735: P_LOAN_HEADER_REC => l_loan_header_rec,
5728: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
5729: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
5730: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5731: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5732: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary_status: ' || l_loan_header_rec.secondary_status);
5733:
5734: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
5735: P_LOAN_HEADER_REC => l_loan_header_rec,
5736: P_INIT_MSG_LIST => FND_API.G_FALSE,
5737: X_RETURN_STATUS => l_return_status,
5738: X_MSG_COUNT => l_msg_count,
5739: X_MSG_DATA => l_msg_data);
5740:
5741: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
5742:
5743: IF l_return_status = 'S' THEN
5744: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5745: ELSE
5740:
5741: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
5742:
5743: IF l_return_status = 'S' THEN
5744: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5745: ELSE
5746: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
5747: FND_MSG_PUB.Add;
5748: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5744: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5745: ELSE
5746: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
5747: FND_MSG_PUB.Add;
5748: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5749: RAISE FND_API.G_EXC_ERROR;
5750: END IF;
5751:
5752: end if;
5756: if l_loan_header_rec.current_phase = 'OPEN' and
5757: l_DISB_HEADER_REC.DISBURSEMENT_NUMBER = 1 and
5758: l_loan_header_rec.LOAN_STATUS = 'APPROVED' then
5759:
5760: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Its first payment for the loan - getting new open loan dates...');
5761: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Getting new open loan dates...');
5762:
5763: LNS_FINANCIALS.shiftLoanDates(p_loan_id => l_loan_header_rec.loan_id
5764: ,p_new_start_date => l_DISB_LINE_REC.DISBURSEMENT_DATE
5757: l_DISB_HEADER_REC.DISBURSEMENT_NUMBER = 1 and
5758: l_loan_header_rec.LOAN_STATUS = 'APPROVED' then
5759:
5760: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Its first payment for the loan - getting new open loan dates...');
5761: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Getting new open loan dates...');
5762:
5763: LNS_FINANCIALS.shiftLoanDates(p_loan_id => l_loan_header_rec.loan_id
5764: ,p_new_start_date => l_DISB_LINE_REC.DISBURSEMENT_DATE
5765: ,p_phase => 'OPEN'
5769: ,x_msg_count => l_msg_count
5770: ,x_msg_data => l_msg_data);
5771:
5772: IF l_return_status <> 'S' THEN
5773: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5774: RAISE FND_API.G_EXC_ERROR;
5775: END IF;
5776:
5777: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New open start date: ' || l_loan_details.loan_start_date);
5773: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5774: RAISE FND_API.G_EXC_ERROR;
5775: END IF;
5776:
5777: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New open start date: ' || l_loan_details.loan_start_date);
5778: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New open first payment date: ' || l_loan_details.first_payment_Date);
5779: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New open maturity date: ' || l_loan_details.maturity_date);
5780: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'l_dates_shifted_flag: ' || l_dates_shifted_flag);
5781:
5774: RAISE FND_API.G_EXC_ERROR;
5775: END IF;
5776:
5777: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New open start date: ' || l_loan_details.loan_start_date);
5778: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New open first payment date: ' || l_loan_details.first_payment_Date);
5779: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New open maturity date: ' || l_loan_details.maturity_date);
5780: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'l_dates_shifted_flag: ' || l_dates_shifted_flag);
5781:
5782:
5775: END IF;
5776:
5777: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New open start date: ' || l_loan_details.loan_start_date);
5778: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New open first payment date: ' || l_loan_details.first_payment_Date);
5779: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New open maturity date: ' || l_loan_details.maturity_date);
5780: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'l_dates_shifted_flag: ' || l_dates_shifted_flag);
5781:
5782:
5783: -- query term version
5776:
5777: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New open start date: ' || l_loan_details.loan_start_date);
5778: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New open first payment date: ' || l_loan_details.first_payment_Date);
5779: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New open maturity date: ' || l_loan_details.maturity_date);
5780: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'l_dates_shifted_flag: ' || l_dates_shifted_flag);
5781:
5782:
5783: -- query term version
5784: open term_version_cur(l_loan_header_rec.loan_id);
5795: l_loan_header_rec.OPEN_LOAN_START_DATE := l_loan_details.loan_start_date;
5796: l_loan_header_rec.OPEN_MATURITY_DATE := l_loan_details.maturity_date;
5797:
5798: -- Bug#6313658 Shifting LoanDates for Term also
5799: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Its first payment for the loan - getting new term loan dates...');
5800: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Getting new term loan dates...');
5801:
5802: LNS_FINANCIALS.shiftLoanDates(p_loan_id => l_loan_header_rec.loan_id
5803: ,p_new_start_date => l_loan_header_rec.OPEN_MATURITY_DATE
5796: l_loan_header_rec.OPEN_MATURITY_DATE := l_loan_details.maturity_date;
5797:
5798: -- Bug#6313658 Shifting LoanDates for Term also
5799: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Its first payment for the loan - getting new term loan dates...');
5800: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Getting new term loan dates...');
5801:
5802: LNS_FINANCIALS.shiftLoanDates(p_loan_id => l_loan_header_rec.loan_id
5803: ,p_new_start_date => l_loan_header_rec.OPEN_MATURITY_DATE
5804: ,p_phase => 'TERM'
5808: ,x_msg_count => l_msg_count
5809: ,x_msg_data => l_msg_data);
5810:
5811: IF l_return_status <> 'S' THEN
5812: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5813: RAISE FND_API.G_EXC_ERROR;
5814: END IF;
5815:
5816: l_term_rec.FIRST_PAYMENT_DATE := l_loan_details.first_payment_Date;
5816: l_term_rec.FIRST_PAYMENT_DATE := l_loan_details.first_payment_Date;
5817: l_term_rec.NEXT_PAYMENT_DUE_DATE := l_loan_details.first_payment_Date;
5818:
5819:
5820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating lns_terms w following values:');
5821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TERM_ID: ' || l_term_rec.TERM_ID);
5822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
5823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_FIRST_PAYMENT_DATE: ' || l_term_rec.OPEN_FIRST_PAYMENT_DATE);
5824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_NEXT_PAYMENT_DATE: ' || l_term_rec.OPEN_NEXT_PAYMENT_DATE);
5817: l_term_rec.NEXT_PAYMENT_DUE_DATE := l_loan_details.first_payment_Date;
5818:
5819:
5820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating lns_terms w following values:');
5821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TERM_ID: ' || l_term_rec.TERM_ID);
5822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
5823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_FIRST_PAYMENT_DATE: ' || l_term_rec.OPEN_FIRST_PAYMENT_DATE);
5824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_NEXT_PAYMENT_DATE: ' || l_term_rec.OPEN_NEXT_PAYMENT_DATE);
5825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
5818:
5819:
5820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating lns_terms w following values:');
5821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TERM_ID: ' || l_term_rec.TERM_ID);
5822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
5823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_FIRST_PAYMENT_DATE: ' || l_term_rec.OPEN_FIRST_PAYMENT_DATE);
5824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_NEXT_PAYMENT_DATE: ' || l_term_rec.OPEN_NEXT_PAYMENT_DATE);
5825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
5826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
5819:
5820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating lns_terms w following values:');
5821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TERM_ID: ' || l_term_rec.TERM_ID);
5822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
5823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_FIRST_PAYMENT_DATE: ' || l_term_rec.OPEN_FIRST_PAYMENT_DATE);
5824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_NEXT_PAYMENT_DATE: ' || l_term_rec.OPEN_NEXT_PAYMENT_DATE);
5825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
5826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
5827: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New Term maturity date: ' || l_loan_details.maturity_date);
5820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating lns_terms w following values:');
5821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TERM_ID: ' || l_term_rec.TERM_ID);
5822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
5823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_FIRST_PAYMENT_DATE: ' || l_term_rec.OPEN_FIRST_PAYMENT_DATE);
5824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_NEXT_PAYMENT_DATE: ' || l_term_rec.OPEN_NEXT_PAYMENT_DATE);
5825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
5826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
5827: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New Term maturity date: ' || l_loan_details.maturity_date);
5828:
5821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TERM_ID: ' || l_term_rec.TERM_ID);
5822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
5823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_FIRST_PAYMENT_DATE: ' || l_term_rec.OPEN_FIRST_PAYMENT_DATE);
5824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_NEXT_PAYMENT_DATE: ' || l_term_rec.OPEN_NEXT_PAYMENT_DATE);
5825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
5826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
5827: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New Term maturity date: ' || l_loan_details.maturity_date);
5828:
5829:
5822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
5823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_FIRST_PAYMENT_DATE: ' || l_term_rec.OPEN_FIRST_PAYMENT_DATE);
5824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_NEXT_PAYMENT_DATE: ' || l_term_rec.OPEN_NEXT_PAYMENT_DATE);
5825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
5826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
5827: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New Term maturity date: ' || l_loan_details.maturity_date);
5828:
5829:
5830:
5823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_FIRST_PAYMENT_DATE: ' || l_term_rec.OPEN_FIRST_PAYMENT_DATE);
5824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_NEXT_PAYMENT_DATE: ' || l_term_rec.OPEN_NEXT_PAYMENT_DATE);
5825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
5826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
5827: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New Term maturity date: ' || l_loan_details.maturity_date);
5828:
5829:
5830:
5831: LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_TERM_VERSION_NUMBER,
5834: X_RETURN_STATUS => l_return_status,
5835: X_MSG_COUNT => l_msg_count,
5836: X_MSG_DATA => l_msg_data);
5837:
5838: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
5839:
5840: IF l_return_status = 'S' THEN
5841: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_TERMS');
5842: ELSE
5837:
5838: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
5839:
5840: IF l_return_status = 'S' THEN
5841: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_TERMS');
5842: ELSE
5843: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
5844: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
5845: FND_MSG_PUB.Add;
5839:
5840: IF l_return_status = 'S' THEN
5841: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_TERMS');
5842: ELSE
5843: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
5844: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
5845: FND_MSG_PUB.Add;
5846: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5847: RAISE FND_API.G_EXC_ERROR;
5842: ELSE
5843: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
5844: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
5845: FND_MSG_PUB.Add;
5846: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5847: RAISE FND_API.G_EXC_ERROR;
5848: END IF;
5849:
5850: -- setting loan data for loan update
5854: elsif l_loan_header_rec.current_phase = 'TERM' and
5855: l_DISB_HEADER_REC.DISBURSEMENT_NUMBER = 1 and
5856: l_loan_header_rec.LOAN_STATUS = 'APPROVED' then
5857:
5858: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Its first payment for the loan - getting new loan dates...');
5859: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Getting new loan dates...');
5860:
5861: LNS_FINANCIALS.shiftLoanDates(p_loan_id => l_loan_header_rec.loan_id
5862: ,p_new_start_date => l_DISB_LINE_REC.DISBURSEMENT_DATE
5855: l_DISB_HEADER_REC.DISBURSEMENT_NUMBER = 1 and
5856: l_loan_header_rec.LOAN_STATUS = 'APPROVED' then
5857:
5858: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Its first payment for the loan - getting new loan dates...');
5859: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Getting new loan dates...');
5860:
5861: LNS_FINANCIALS.shiftLoanDates(p_loan_id => l_loan_header_rec.loan_id
5862: ,p_new_start_date => l_DISB_LINE_REC.DISBURSEMENT_DATE
5863: ,p_phase => 'TERM'
5867: ,x_msg_count => l_msg_count
5868: ,x_msg_data => l_msg_data);
5869:
5870: IF l_return_status <> 'S' THEN
5871: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5872: RAISE FND_API.G_EXC_ERROR;
5873: END IF;
5874:
5875: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New start date: ' || l_loan_details.loan_start_date);
5871: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5872: RAISE FND_API.G_EXC_ERROR;
5873: END IF;
5874:
5875: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New start date: ' || l_loan_details.loan_start_date);
5876: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New first payment date: ' || l_loan_details.first_payment_Date);
5877: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New maturity date: ' || l_loan_details.maturity_date);
5878: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'l_dates_shifted_flag: ' || l_dates_shifted_flag);
5879:
5872: RAISE FND_API.G_EXC_ERROR;
5873: END IF;
5874:
5875: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New start date: ' || l_loan_details.loan_start_date);
5876: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New first payment date: ' || l_loan_details.first_payment_Date);
5877: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New maturity date: ' || l_loan_details.maturity_date);
5878: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'l_dates_shifted_flag: ' || l_dates_shifted_flag);
5879:
5880: -- query term version
5873: END IF;
5874:
5875: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New start date: ' || l_loan_details.loan_start_date);
5876: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New first payment date: ' || l_loan_details.first_payment_Date);
5877: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New maturity date: ' || l_loan_details.maturity_date);
5878: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'l_dates_shifted_flag: ' || l_dates_shifted_flag);
5879:
5880: -- query term version
5881: open term_version_cur(l_loan_header_rec.loan_id);
5874:
5875: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New start date: ' || l_loan_details.loan_start_date);
5876: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New first payment date: ' || l_loan_details.first_payment_Date);
5877: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New maturity date: ' || l_loan_details.maturity_date);
5878: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'l_dates_shifted_flag: ' || l_dates_shifted_flag);
5879:
5880: -- query term version
5881: open term_version_cur(l_loan_header_rec.loan_id);
5882: fetch term_version_cur into l_TERM_ID, l_TERM_VERSION_NUMBER;
5887: l_term_rec.LOAN_ID := l_loan_header_rec.loan_id;
5888: l_term_rec.FIRST_PAYMENT_DATE := l_loan_details.first_payment_Date;
5889: l_term_rec.NEXT_PAYMENT_DUE_DATE := l_loan_details.first_payment_Date;
5890:
5891: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating lns_terms w following values:');
5892: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TERM_ID: ' || l_term_rec.TERM_ID);
5893: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
5894: LogMessage(FND_LOG.LEVEL_STATEMENT, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
5895: LogMessage(FND_LOG.LEVEL_STATEMENT, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
5888: l_term_rec.FIRST_PAYMENT_DATE := l_loan_details.first_payment_Date;
5889: l_term_rec.NEXT_PAYMENT_DUE_DATE := l_loan_details.first_payment_Date;
5890:
5891: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating lns_terms w following values:');
5892: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TERM_ID: ' || l_term_rec.TERM_ID);
5893: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
5894: LogMessage(FND_LOG.LEVEL_STATEMENT, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
5895: LogMessage(FND_LOG.LEVEL_STATEMENT, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
5896:
5889: l_term_rec.NEXT_PAYMENT_DUE_DATE := l_loan_details.first_payment_Date;
5890:
5891: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating lns_terms w following values:');
5892: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TERM_ID: ' || l_term_rec.TERM_ID);
5893: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
5894: LogMessage(FND_LOG.LEVEL_STATEMENT, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
5895: LogMessage(FND_LOG.LEVEL_STATEMENT, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
5896:
5897: LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_TERM_VERSION_NUMBER,
5890:
5891: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating lns_terms w following values:');
5892: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TERM_ID: ' || l_term_rec.TERM_ID);
5893: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
5894: LogMessage(FND_LOG.LEVEL_STATEMENT, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
5895: LogMessage(FND_LOG.LEVEL_STATEMENT, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
5896:
5897: LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_TERM_VERSION_NUMBER,
5898: p_init_msg_list => FND_API.G_FALSE,
5891: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating lns_terms w following values:');
5892: LogMessage(FND_LOG.LEVEL_STATEMENT, 'TERM_ID: ' || l_term_rec.TERM_ID);
5893: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_ID: ' || l_term_rec.LOAN_ID);
5894: LogMessage(FND_LOG.LEVEL_STATEMENT, 'FIRST_PAYMENT_DATE: ' || l_term_rec.FIRST_PAYMENT_DATE);
5895: LogMessage(FND_LOG.LEVEL_STATEMENT, 'NEXT_PAYMENT_DUE_DATE: ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
5896:
5897: LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_TERM_VERSION_NUMBER,
5898: p_init_msg_list => FND_API.G_FALSE,
5899: p_loan_term_rec => l_term_rec,
5900: X_RETURN_STATUS => l_return_status,
5901: X_MSG_COUNT => l_msg_count,
5902: X_MSG_DATA => l_msg_data);
5903:
5904: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
5905:
5906: IF l_return_status = 'S' THEN
5907: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_TERMS');
5908: ELSE
5903:
5904: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
5905:
5906: IF l_return_status = 'S' THEN
5907: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_TERMS');
5908: ELSE
5909: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
5910: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
5911: FND_MSG_PUB.Add;
5905:
5906: IF l_return_status = 'S' THEN
5907: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_TERMS');
5908: ELSE
5909: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
5910: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
5911: FND_MSG_PUB.Add;
5912: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5913: RAISE FND_API.G_EXC_ERROR;
5908: ELSE
5909: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
5910: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
5911: FND_MSG_PUB.Add;
5912: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5913: RAISE FND_API.G_EXC_ERROR;
5914: END IF;
5915:
5916: -- setting loan data for loan update
5930: if l_loan_header_rec.LOAN_STATUS <> 'PENDING_CANCELLATION' then
5931: l_loan_header_rec.LOAN_STATUS := 'ACTIVE';
5932: end if;
5933:
5934: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
5935: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
5936: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5937: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5938: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary status: ' || l_loan_header_rec.SECONDARY_STATUS);
5931: l_loan_header_rec.LOAN_STATUS := 'ACTIVE';
5932: end if;
5933:
5934: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
5935: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
5936: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5937: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5938: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary status: ' || l_loan_header_rec.SECONDARY_STATUS);
5939: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_LOAN_START_DATE: ' || l_loan_header_rec.OPEN_LOAN_START_DATE);
5932: end if;
5933:
5934: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
5935: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
5936: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5937: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5938: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary status: ' || l_loan_header_rec.SECONDARY_STATUS);
5939: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_LOAN_START_DATE: ' || l_loan_header_rec.OPEN_LOAN_START_DATE);
5940: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_MATURITY_DATE: ' || l_loan_header_rec.OPEN_MATURITY_DATE);
5933:
5934: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
5935: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
5936: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5937: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5938: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary status: ' || l_loan_header_rec.SECONDARY_STATUS);
5939: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_LOAN_START_DATE: ' || l_loan_header_rec.OPEN_LOAN_START_DATE);
5940: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_MATURITY_DATE: ' || l_loan_header_rec.OPEN_MATURITY_DATE);
5941: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_START_DATE: ' || l_loan_header_rec.loan_start_date);
5934: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
5935: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
5936: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5937: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5938: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary status: ' || l_loan_header_rec.SECONDARY_STATUS);
5939: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_LOAN_START_DATE: ' || l_loan_header_rec.OPEN_LOAN_START_DATE);
5940: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_MATURITY_DATE: ' || l_loan_header_rec.OPEN_MATURITY_DATE);
5941: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_START_DATE: ' || l_loan_header_rec.loan_start_date);
5942: LogMessage(FND_LOG.LEVEL_STATEMENT, 'MATURITY_DATE: ' || l_loan_header_rec.loan_maturity_date);
5935: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
5936: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5937: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5938: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary status: ' || l_loan_header_rec.SECONDARY_STATUS);
5939: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_LOAN_START_DATE: ' || l_loan_header_rec.OPEN_LOAN_START_DATE);
5940: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_MATURITY_DATE: ' || l_loan_header_rec.OPEN_MATURITY_DATE);
5941: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_START_DATE: ' || l_loan_header_rec.loan_start_date);
5942: LogMessage(FND_LOG.LEVEL_STATEMENT, 'MATURITY_DATE: ' || l_loan_header_rec.loan_maturity_date);
5943:
5936: LogMessage(FND_LOG.LEVEL_STATEMENT, 'funded_amount: ' || l_loan_header_rec.funded_amount);
5937: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5938: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary status: ' || l_loan_header_rec.SECONDARY_STATUS);
5939: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_LOAN_START_DATE: ' || l_loan_header_rec.OPEN_LOAN_START_DATE);
5940: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_MATURITY_DATE: ' || l_loan_header_rec.OPEN_MATURITY_DATE);
5941: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_START_DATE: ' || l_loan_header_rec.loan_start_date);
5942: LogMessage(FND_LOG.LEVEL_STATEMENT, 'MATURITY_DATE: ' || l_loan_header_rec.loan_maturity_date);
5943:
5944: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
5937: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
5938: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary status: ' || l_loan_header_rec.SECONDARY_STATUS);
5939: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_LOAN_START_DATE: ' || l_loan_header_rec.OPEN_LOAN_START_DATE);
5940: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_MATURITY_DATE: ' || l_loan_header_rec.OPEN_MATURITY_DATE);
5941: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_START_DATE: ' || l_loan_header_rec.loan_start_date);
5942: LogMessage(FND_LOG.LEVEL_STATEMENT, 'MATURITY_DATE: ' || l_loan_header_rec.loan_maturity_date);
5943:
5944: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
5945: P_LOAN_HEADER_REC => l_loan_header_rec,
5938: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary status: ' || l_loan_header_rec.SECONDARY_STATUS);
5939: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_LOAN_START_DATE: ' || l_loan_header_rec.OPEN_LOAN_START_DATE);
5940: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OPEN_MATURITY_DATE: ' || l_loan_header_rec.OPEN_MATURITY_DATE);
5941: LogMessage(FND_LOG.LEVEL_STATEMENT, 'LOAN_START_DATE: ' || l_loan_header_rec.loan_start_date);
5942: LogMessage(FND_LOG.LEVEL_STATEMENT, 'MATURITY_DATE: ' || l_loan_header_rec.loan_maturity_date);
5943:
5944: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
5945: P_LOAN_HEADER_REC => l_loan_header_rec,
5946: P_INIT_MSG_LIST => FND_API.G_FALSE,
5947: X_RETURN_STATUS => l_return_status,
5948: X_MSG_COUNT => l_msg_count,
5949: X_MSG_DATA => l_msg_data);
5950:
5951: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
5952:
5953: IF l_return_status = 'S' THEN
5954: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5955: ELSE
5950:
5951: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
5952:
5953: IF l_return_status = 'S' THEN
5954: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5955: ELSE
5956: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
5957: FND_MSG_PUB.Add;
5958: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5954: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5955: ELSE
5956: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
5957: FND_MSG_PUB.Add;
5958: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5959: RAISE FND_API.G_EXC_ERROR;
5960: END IF;
5961:
5962: end if;
5965: -- If the loan Dates are shifted then regenerate the loan agreement.
5966:
5967: IF l_dates_shifted_flag = 'Y' THEN
5968: /* begin submit request to generate Loan Agreement Report */
5969: logMessage(FND_LOG.LEVEL_STATEMENT, ' Before calling FND_REQUEST.SUBMIT_REQUEST for LNS_AGREEMENT (Loan Agreement Report) for loan_id: ' || l_loan_header_rec.loan_id);
5970: l_notify := FND_REQUEST.ADD_NOTIFICATION(FND_GLOBAL.USER_NAME);
5971:
5972: FND_REQUEST.SET_ORG_ID(MO_GLOBAL.GET_CURRENT_ORG_ID());
5973:
5981: WHERE
5982: language_code = USERENV('LANG');
5983:
5984:
5985: logMessage(FND_LOG.LEVEL_STATEMENT, ' Before calling FND_REQUEST.ADD_LAYOUT for LNS_AGREEMENT (Loan Agreement Report) for loan_id: ' || l_loan_header_rec.loan_id);
5986:
5987: l_xml_output:= fnd_request.add_layout(
5988: template_appl_name => 'LNS',
5989: template_code => 'LNSRPTAG',
5990: template_language => l_iso_language,
5991: template_territory => l_iso_territory,
5992: output_format => 'PDF'
5993: );
5994: logMessage(FND_LOG.LEVEL_STATEMENT, ' After calling FND_REQUEST.ADD_LAYOUT for LNS_AGREEMENT (Loan Agreement Report) for loan_id: ' || l_loan_header_rec.loan_id);
5995:
5996:
5997: l_request_id := FND_REQUEST.SUBMIT_REQUEST('LNS'
5998: ,'LNS_AGREEMENT'
6005: FND_MSG_PUB.Add;
6006: l_last_api_called := 'FND_REQUEST.SUBMIT_REQUEST for Loan Agreement Report Generation';
6007: RAISE FND_API.G_EXC_ERROR;
6008: else
6009: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully submited Loan Agreement Report Generation Concurrent Program. Request id: ' || l_request_id);
6010: end if;
6011:
6012: logMessage(FND_LOG.LEVEL_STATEMENT, ' After calling FND_REQUEST.SUBMIT_REQUEST for LNS_AGREEMENT (Loan Agreement Report) for loan_id: ' || l_loan_header_rec.loan_id);
6013: /* end submit request to generate Loan Agreement Report */
6008: else
6009: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully submited Loan Agreement Report Generation Concurrent Program. Request id: ' || l_request_id);
6010: end if;
6011:
6012: logMessage(FND_LOG.LEVEL_STATEMENT, ' After calling FND_REQUEST.SUBMIT_REQUEST for LNS_AGREEMENT (Loan Agreement Report) for loan_id: ' || l_loan_header_rec.loan_id);
6013: /* end submit request to generate Loan Agreement Report */
6014:
6015: END IF;
6016: --Bug#6169438 END
6015: END IF;
6016: --Bug#6169438 END
6017:
6018: -- COMMIT WORK;
6019: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
6020:
6021: -- END OF BODY OF API
6022: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
6023:
6020:
6021: -- END OF BODY OF API
6022: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
6023:
6024: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully processed payment');
6025:
6026: -- Standard call to get message count and if count is 1, get message info
6027: FND_MSG_PUB.Count_And_Get(
6028: p_encoded => FND_API.G_FALSE,
6028: p_encoded => FND_API.G_FALSE,
6029: p_count => x_msg_count,
6030: p_data => x_msg_data);
6031:
6032: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
6033:
6034: EXCEPTION
6035: WHEN FND_API.G_EXC_ERROR THEN
6036: ROLLBACK TO PAY_SINGLE_INVOICE;
6035: WHEN FND_API.G_EXC_ERROR THEN
6036: ROLLBACK TO PAY_SINGLE_INVOICE;
6037: x_return_status := FND_API.G_RET_STS_ERROR;
6038: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6039: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6040: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6041: ROLLBACK TO PAY_SINGLE_INVOICE;
6042: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6043: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6040: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6041: ROLLBACK TO PAY_SINGLE_INVOICE;
6042: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6043: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6044: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6045: WHEN OTHERS THEN
6046: ROLLBACK TO PAY_SINGLE_INVOICE;
6047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6048: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6048: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6049: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6050: END IF;
6051: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6052: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6053: END;
6054:
6055:
6056:
6116: from AP_INVOICE_PAYMENTS_ALL
6117: where check_id = P_CHECK_ID;
6118:
6119: BEGIN
6120: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
6121: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
6122:
6123: -- Standard start of API savepoint
6124: SAVEPOINT SubscribeTo_Payment_Event;
6117: where check_id = P_CHECK_ID;
6118:
6119: BEGIN
6120: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
6121: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
6122:
6123: -- Standard start of API savepoint
6124: SAVEPOINT SubscribeTo_Payment_Event;
6125: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
6121: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
6122:
6123: -- Standard start of API savepoint
6124: SAVEPOINT SubscribeTo_Payment_Event;
6125: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
6126:
6127: -- Initialize API return status to success
6128: l_return_status := FND_API.G_RET_STS_SUCCESS;
6129:
6128: l_return_status := FND_API.G_RET_STS_SUCCESS;
6129:
6130: -- START OF BODY OF API
6131:
6132: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Processing payment event...');
6133: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
6134: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_Event_Type: ' || P_Event_Type);
6135: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_Check_ID: ' || P_Check_ID);
6136:
6129:
6130: -- START OF BODY OF API
6131:
6132: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Processing payment event...');
6133: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
6134: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_Event_Type: ' || P_Event_Type);
6135: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_Check_ID: ' || P_Check_ID);
6136:
6137: -- getting invoice by check id
6130: -- START OF BODY OF API
6131:
6132: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Processing payment event...');
6133: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
6134: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_Event_Type: ' || P_Event_Type);
6135: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_Check_ID: ' || P_Check_ID);
6136:
6137: -- getting invoice by check id
6138: l_count := 0;
6131:
6132: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Processing payment event...');
6133: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
6134: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_Event_Type: ' || P_Event_Type);
6135: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_Check_ID: ' || P_Check_ID);
6136:
6137: -- getting invoice by check id
6138: l_count := 0;
6139: open get_invoice_cur(P_Check_ID);
6142: fetch get_invoice_cur into l_invoice_id;
6143: exit when get_invoice_cur%NOTFOUND;
6144:
6145: l_count := l_count + 1;
6146: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
6147: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Processing payment for invoice #' || l_count);
6148: PAY_SINGLE_INVOICE
6149: (P_INVOICE_ID => l_invoice_id,
6150: P_COMPLETE_FLAG => 'N',
6143: exit when get_invoice_cur%NOTFOUND;
6144:
6145: l_count := l_count + 1;
6146: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
6147: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Processing payment for invoice #' || l_count);
6148: PAY_SINGLE_INVOICE
6149: (P_INVOICE_ID => l_invoice_id,
6150: P_COMPLETE_FLAG => 'N',
6151: X_Return_Status => l_return_status,
6152: X_Msg_Count => l_msg_count,
6153: X_Msg_Data => l_msg_data);
6154:
6155: IF l_return_status <> 'S' THEN
6156: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to PAY_SINGLE_INVOICE failed');
6157: RAISE FND_API.G_EXC_ERROR;
6158: END IF;
6159:
6160: END LOOP;
6160: END LOOP;
6161: close get_invoice_cur;
6162:
6163: -- COMMIT WORK;
6164: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
6165:
6166: -- END OF BODY OF API
6167: P_Return_Status := FND_API.G_RET_STS_SUCCESS;
6168:
6165:
6166: -- END OF BODY OF API
6167: P_Return_Status := FND_API.G_RET_STS_SUCCESS;
6168:
6169: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully processed payment event');
6170:
6171: -- Standard call to get message count and if count is 1, get message info
6172: FND_MSG_PUB.Count_And_Get(
6173: p_encoded => FND_API.G_FALSE,
6173: p_encoded => FND_API.G_FALSE,
6174: p_count => p_msg_count,
6175: p_data => p_msg_data);
6176:
6177: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
6178:
6179: EXCEPTION
6180: WHEN FND_API.G_EXC_ERROR THEN
6181: ROLLBACK TO SubscribeTo_Payment_Event;
6180: WHEN FND_API.G_EXC_ERROR THEN
6181: ROLLBACK TO SubscribeTo_Payment_Event;
6182: p_return_status := FND_API.G_RET_STS_ERROR;
6183: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count, p_data => p_msg_data);
6184: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6186: ROLLBACK TO SubscribeTo_Payment_Event;
6187: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6188: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count, p_data => p_msg_data);
6185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6186: ROLLBACK TO SubscribeTo_Payment_Event;
6187: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6188: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count, p_data => p_msg_data);
6189: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6190: WHEN OTHERS THEN
6191: ROLLBACK TO SubscribeTo_Payment_Event;
6192: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6193: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6193: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6194: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6195: END IF;
6196: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count, p_data => p_msg_data);
6197: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6198: END;
6199:
6200:
6201:
6272: line.status = 'IN_FUNDING' and
6273: line.invoice_id is not null;
6274:
6275: BEGIN
6276: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
6277: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
6278:
6279: -- Standard start of API savepoint
6280: SAVEPOINT COMPLETE_ALL_DISB;
6273: line.invoice_id is not null;
6274:
6275: BEGIN
6276: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
6277: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
6278:
6279: -- Standard start of API savepoint
6280: SAVEPOINT COMPLETE_ALL_DISB;
6281: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
6277: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
6278:
6279: -- Standard start of API savepoint
6280: SAVEPOINT COMPLETE_ALL_DISB;
6281: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
6282:
6283: -- Standard call to check for call compatibility
6284: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6294: l_return_status := FND_API.G_RET_STS_SUCCESS;
6295:
6296: -- START OF BODY OF API
6297:
6298: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Completing all disbursements...');
6299: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
6300: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_LOAN_ID: ' || P_LOAN_ID);
6301:
6302: -- getting all available disbursements
6295:
6296: -- START OF BODY OF API
6297:
6298: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Completing all disbursements...');
6299: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
6300: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_LOAN_ID: ' || P_LOAN_ID);
6301:
6302: -- getting all available disbursements
6303: open avail_disb_cur(P_LOAN_ID);
6296: -- START OF BODY OF API
6297:
6298: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Completing all disbursements...');
6299: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
6300: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_LOAN_ID: ' || P_LOAN_ID);
6301:
6302: -- getting all available disbursements
6303: open avail_disb_cur(P_LOAN_ID);
6304: LOOP
6313: X_Msg_Count => l_msg_count,
6314: X_Msg_Data => l_msg_data);
6315:
6316: IF l_return_status <> 'S' THEN
6317: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Call to PAY_SINGLE_INVOICE failed');
6318: -- RAISE FND_API.G_EXC_ERROR;
6319: END IF;
6320:
6321: END LOOP;
6322: close avail_disb_cur;
6323:
6324: if P_COMMIT = FND_API.G_TRUE then
6325: COMMIT WORK;
6326: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
6327: end if;
6328:
6329: -- END OF BODY OF API
6330: x_return_status := FND_API.G_RET_STS_SUCCESS;
6328:
6329: -- END OF BODY OF API
6330: x_return_status := FND_API.G_RET_STS_SUCCESS;
6331:
6332: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully completed all disbursements for loan ' || P_LOAN_ID);
6333:
6334: -- Standard call to get message count and if count is 1, get message info
6335: FND_MSG_PUB.Count_And_Get(
6336: p_encoded => FND_API.G_FALSE,
6336: p_encoded => FND_API.G_FALSE,
6337: p_count => x_msg_count,
6338: p_data => x_msg_data);
6339:
6340: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
6341:
6342: EXCEPTION
6343: WHEN FND_API.G_EXC_ERROR THEN
6344: ROLLBACK TO COMPLETE_ALL_DISB;
6343: WHEN FND_API.G_EXC_ERROR THEN
6344: ROLLBACK TO COMPLETE_ALL_DISB;
6345: x_return_status := FND_API.G_RET_STS_ERROR;
6346: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6347: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6349: ROLLBACK TO COMPLETE_ALL_DISB;
6350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6351: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6349: ROLLBACK TO COMPLETE_ALL_DISB;
6350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6351: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6352: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6353: WHEN OTHERS THEN
6354: ROLLBACK TO COMPLETE_ALL_DISB;
6355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6356: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6356: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6357: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6358: END IF;
6359: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6360: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6361: END;
6362:
6363:
6364:
6462: from lns_disb_histories_h
6463: where DISB_LINE_ID = P_DISB_LINE_ID;
6464:
6465: BEGIN
6466: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
6467: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
6468:
6469: -- Standard start of API savepoint
6470: SAVEPOINT CANCEL_SINGLE_DISB;
6463: where DISB_LINE_ID = P_DISB_LINE_ID;
6464:
6465: BEGIN
6466: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
6467: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
6468:
6469: -- Standard start of API savepoint
6470: SAVEPOINT CANCEL_SINGLE_DISB;
6471: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
6467: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
6468:
6469: -- Standard start of API savepoint
6470: SAVEPOINT CANCEL_SINGLE_DISB;
6471: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
6472:
6473: -- Initialize message list if p_init_msg_list is set to TRUE
6474: IF FND_API.To_Boolean(p_init_msg_list) THEN
6475: FND_MSG_PUB.initialize;
6479: l_return_status := FND_API.G_RET_STS_SUCCESS;
6480:
6481: -- START OF BODY OF API
6482:
6483: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Canceling disbursement header ' || P_DISB_HEADER_ID || ' with lines...');
6484: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
6485: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_HEADER_ID: ' || P_DISB_HEADER_ID);
6486:
6487: -- getting disbursement lines info
6480:
6481: -- START OF BODY OF API
6482:
6483: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Canceling disbursement header ' || P_DISB_HEADER_ID || ' with lines...');
6484: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
6485: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_HEADER_ID: ' || P_DISB_HEADER_ID);
6486:
6487: -- getting disbursement lines info
6488: open disb_lines_cur(P_DISB_HEADER_ID);
6481: -- START OF BODY OF API
6482:
6483: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Canceling disbursement header ' || P_DISB_HEADER_ID || ' with lines...');
6484: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input Data:');
6485: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DISB_HEADER_ID: ' || P_DISB_HEADER_ID);
6486:
6487: -- getting disbursement lines info
6488: open disb_lines_cur(P_DISB_HEADER_ID);
6489: LOOP
6493: l_DISB_LINE_REC.STATUS,
6494: l_DISB_LINE_REC.INVOICE_ID;
6495: exit when disb_lines_cur%NOTFOUND;
6496:
6497: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_LINE_ID: ' || l_DISB_LINE_REC.DISB_LINE_ID);
6498: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
6499: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || l_DISB_LINE_REC.STATUS);
6500: LogMessage(FND_LOG.LEVEL_STATEMENT, 'INVOICE_ID: ' || l_DISB_LINE_REC.INVOICE_ID);
6501:
6494: l_DISB_LINE_REC.INVOICE_ID;
6495: exit when disb_lines_cur%NOTFOUND;
6496:
6497: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_LINE_ID: ' || l_DISB_LINE_REC.DISB_LINE_ID);
6498: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
6499: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || l_DISB_LINE_REC.STATUS);
6500: LogMessage(FND_LOG.LEVEL_STATEMENT, 'INVOICE_ID: ' || l_DISB_LINE_REC.INVOICE_ID);
6501:
6502: if l_DISB_LINE_REC.STATUS is null or
6495: exit when disb_lines_cur%NOTFOUND;
6496:
6497: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_LINE_ID: ' || l_DISB_LINE_REC.DISB_LINE_ID);
6498: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
6499: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || l_DISB_LINE_REC.STATUS);
6500: LogMessage(FND_LOG.LEVEL_STATEMENT, 'INVOICE_ID: ' || l_DISB_LINE_REC.INVOICE_ID);
6501:
6502: if l_DISB_LINE_REC.STATUS is null or
6503: l_DISB_LINE_REC.STATUS = 'FUNDING_ERROR' or
6496:
6497: LogMessage(FND_LOG.LEVEL_STATEMENT, 'DISB_LINE_ID: ' || l_DISB_LINE_REC.DISB_LINE_ID);
6498: LogMessage(FND_LOG.LEVEL_STATEMENT, 'OBJECT_VERSION_NUMBER: ' || l_DISB_LINE_REC.OBJECT_VERSION_NUMBER);
6499: LogMessage(FND_LOG.LEVEL_STATEMENT, 'STATUS: ' || l_DISB_LINE_REC.STATUS);
6500: LogMessage(FND_LOG.LEVEL_STATEMENT, 'INVOICE_ID: ' || l_DISB_LINE_REC.INVOICE_ID);
6501:
6502: if l_DISB_LINE_REC.STATUS is null or
6503: l_DISB_LINE_REC.STATUS = 'FUNDING_ERROR' or
6504: l_DISB_LINE_REC.STATUS = 'IN_FUNDING' then
6505:
6506: -- if its in funding - call ap cancel invoice api
6507: if l_DISB_LINE_REC.STATUS = 'IN_FUNDING' then
6508:
6509: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling AP_CANCEL_PKG.AP_CANCEL_SINGLE_INVOICE...');
6510:
6511: l_success := AP_CANCEL_PKG.AP_CANCEL_SINGLE_INVOICE(
6512: P_INVOICE_ID => l_DISB_LINE_REC.INVOICE_ID,
6513: P_LAST_UPDATED_BY => LNS_UTILITY_PUB.LAST_UPDATED_BY,
6533: else
6534: l_success_str := null;
6535: end if;
6536:
6537: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Return from AP_CANCEL_PKG.AP_CANCEL_SINGLE_INVOICE:');
6538: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_success: ' || l_success_str);
6539: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_message_name: ' || l_message_name);
6540: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_Token: ' || l_Token);
6541: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_invoice_amount: ' || l_invoice_amount);
6534: l_success_str := null;
6535: end if;
6536:
6537: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Return from AP_CANCEL_PKG.AP_CANCEL_SINGLE_INVOICE:');
6538: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_success: ' || l_success_str);
6539: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_message_name: ' || l_message_name);
6540: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_Token: ' || l_Token);
6541: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_invoice_amount: ' || l_invoice_amount);
6542: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_base_amount: ' || l_base_amount);
6535: end if;
6536:
6537: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Return from AP_CANCEL_PKG.AP_CANCEL_SINGLE_INVOICE:');
6538: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_success: ' || l_success_str);
6539: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_message_name: ' || l_message_name);
6540: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_Token: ' || l_Token);
6541: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_invoice_amount: ' || l_invoice_amount);
6542: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_base_amount: ' || l_base_amount);
6543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_temp_cancelled_amount: ' || l_temp_cancelled_amount);
6536:
6537: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Return from AP_CANCEL_PKG.AP_CANCEL_SINGLE_INVOICE:');
6538: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_success: ' || l_success_str);
6539: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_message_name: ' || l_message_name);
6540: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_Token: ' || l_Token);
6541: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_invoice_amount: ' || l_invoice_amount);
6542: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_base_amount: ' || l_base_amount);
6543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_temp_cancelled_amount: ' || l_temp_cancelled_amount);
6544: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_by: ' || l_cancelled_by);
6537: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Return from AP_CANCEL_PKG.AP_CANCEL_SINGLE_INVOICE:');
6538: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_success: ' || l_success_str);
6539: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_message_name: ' || l_message_name);
6540: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_Token: ' || l_Token);
6541: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_invoice_amount: ' || l_invoice_amount);
6542: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_base_amount: ' || l_base_amount);
6543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_temp_cancelled_amount: ' || l_temp_cancelled_amount);
6544: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_by: ' || l_cancelled_by);
6545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_amount: ' || l_cancelled_amount);
6538: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_success: ' || l_success_str);
6539: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_message_name: ' || l_message_name);
6540: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_Token: ' || l_Token);
6541: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_invoice_amount: ' || l_invoice_amount);
6542: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_base_amount: ' || l_base_amount);
6543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_temp_cancelled_amount: ' || l_temp_cancelled_amount);
6544: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_by: ' || l_cancelled_by);
6545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_amount: ' || l_cancelled_amount);
6546: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_date: ' || l_cancelled_date);
6539: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_message_name: ' || l_message_name);
6540: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_Token: ' || l_Token);
6541: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_invoice_amount: ' || l_invoice_amount);
6542: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_base_amount: ' || l_base_amount);
6543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_temp_cancelled_amount: ' || l_temp_cancelled_amount);
6544: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_by: ' || l_cancelled_by);
6545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_amount: ' || l_cancelled_amount);
6546: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_date: ' || l_cancelled_date);
6547: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_last_update_date: ' || l_last_update_date);
6540: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_Token: ' || l_Token);
6541: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_invoice_amount: ' || l_invoice_amount);
6542: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_base_amount: ' || l_base_amount);
6543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_temp_cancelled_amount: ' || l_temp_cancelled_amount);
6544: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_by: ' || l_cancelled_by);
6545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_amount: ' || l_cancelled_amount);
6546: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_date: ' || l_cancelled_date);
6547: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_last_update_date: ' || l_last_update_date);
6548: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_original_prepayment_amount: ' || l_original_prepayment_amount);
6541: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_invoice_amount: ' || l_invoice_amount);
6542: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_base_amount: ' || l_base_amount);
6543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_temp_cancelled_amount: ' || l_temp_cancelled_amount);
6544: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_by: ' || l_cancelled_by);
6545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_amount: ' || l_cancelled_amount);
6546: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_date: ' || l_cancelled_date);
6547: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_last_update_date: ' || l_last_update_date);
6548: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_original_prepayment_amount: ' || l_original_prepayment_amount);
6549: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_pay_curr_invoice_amount: ' || l_pay_curr_invoice_amount);
6542: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_base_amount: ' || l_base_amount);
6543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_temp_cancelled_amount: ' || l_temp_cancelled_amount);
6544: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_by: ' || l_cancelled_by);
6545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_amount: ' || l_cancelled_amount);
6546: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_date: ' || l_cancelled_date);
6547: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_last_update_date: ' || l_last_update_date);
6548: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_original_prepayment_amount: ' || l_original_prepayment_amount);
6549: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_pay_curr_invoice_amount: ' || l_pay_curr_invoice_amount);
6550:
6543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_temp_cancelled_amount: ' || l_temp_cancelled_amount);
6544: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_by: ' || l_cancelled_by);
6545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_amount: ' || l_cancelled_amount);
6546: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_date: ' || l_cancelled_date);
6547: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_last_update_date: ' || l_last_update_date);
6548: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_original_prepayment_amount: ' || l_original_prepayment_amount);
6549: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_pay_curr_invoice_amount: ' || l_pay_curr_invoice_amount);
6550:
6551: IF NOT l_success THEN
6544: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_by: ' || l_cancelled_by);
6545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_amount: ' || l_cancelled_amount);
6546: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_date: ' || l_cancelled_date);
6547: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_last_update_date: ' || l_last_update_date);
6548: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_original_prepayment_amount: ' || l_original_prepayment_amount);
6549: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_pay_curr_invoice_amount: ' || l_pay_curr_invoice_amount);
6550:
6551: IF NOT l_success THEN
6552: FND_MESSAGE.SET_NAME('SQLAP4', l_message_name);
6545: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_amount: ' || l_cancelled_amount);
6546: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cancelled_date: ' || l_cancelled_date);
6547: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_last_update_date: ' || l_last_update_date);
6548: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_original_prepayment_amount: ' || l_original_prepayment_amount);
6549: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_pay_curr_invoice_amount: ' || l_pay_curr_invoice_amount);
6550:
6551: IF NOT l_success THEN
6552: FND_MESSAGE.SET_NAME('SQLAP4', l_message_name);
6553: FND_MESSAGE.SET_TOKEN('ERROR', l_Token);
6551: IF NOT l_success THEN
6552: FND_MESSAGE.SET_NAME('SQLAP4', l_message_name);
6553: FND_MESSAGE.SET_TOKEN('ERROR', l_Token);
6554: FND_MSG_PUB.ADD;
6555: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6556: RAISE FND_API.G_EXC_ERROR;
6557: ELSE
6558: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully cancelled AP invoice');
6559: END IF;
6554: FND_MSG_PUB.ADD;
6555: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6556: RAISE FND_API.G_EXC_ERROR;
6557: ELSE
6558: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully cancelled AP invoice');
6559: END IF;
6560:
6561: end if;
6562:
6564: open last_hist_rec_cur(l_DISB_LINE_REC.DISB_LINE_ID);
6565: fetch last_hist_rec_cur into l_hist_id, l_hist_version;
6566: close last_hist_rec_cur;
6567:
6568: LogMessage(FND_LOG.LEVEL_STATEMENT, 'hist_id: ' || l_hist_id);
6569: LogMessage(FND_LOG.LEVEL_STATEMENT, 'hist_version: ' || l_hist_version);
6570:
6571: if l_hist_id is not null and l_hist_version is not null then
6572:
6565: fetch last_hist_rec_cur into l_hist_id, l_hist_version;
6566: close last_hist_rec_cur;
6567:
6568: LogMessage(FND_LOG.LEVEL_STATEMENT, 'hist_id: ' || l_hist_id);
6569: LogMessage(FND_LOG.LEVEL_STATEMENT, 'hist_version: ' || l_hist_version);
6570:
6571: if l_hist_id is not null and l_hist_version is not null then
6572:
6573: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating history record...');
6569: LogMessage(FND_LOG.LEVEL_STATEMENT, 'hist_version: ' || l_hist_version);
6570:
6571: if l_hist_id is not null and l_hist_version is not null then
6572:
6573: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating history record...');
6574: -- calling history table handler api
6575: LNS_DISB_HISTORIES_H_PKG.Update_Row(
6576: P_DISB_HISTORY_ID => l_hist_id,
6577: P_STATUS => 'CANCELLED',
6576: P_DISB_HISTORY_ID => l_hist_id,
6577: P_STATUS => 'CANCELLED',
6578: P_OBJECT_VERSION_NUMBER => l_hist_version);
6579:
6580: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully updated history record with ID: ' || l_hist_id);
6581:
6582: end if;
6583:
6584: l_DISB_LINE_REC.STATUS := 'CANCELLED';
6594: X_MSG_COUNT => l_msg_count,
6595: X_MSG_DATA => l_msg_data);
6596:
6597: IF l_return_status <> 'S' THEN
6598: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to UPDATE_DISB_LINE failed');
6599: RAISE FND_API.G_EXC_ERROR;
6600: END IF;
6601:
6602: end if;
6625: X_MSG_COUNT => l_msg_count,
6626: X_MSG_DATA => l_msg_data);
6627:
6628: IF l_return_status <> 'S' THEN
6629: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to UPDATE_DISB_HEADER failed');
6630: RAISE FND_API.G_EXC_ERROR;
6631: END IF;
6632:
6633: end if;
6633: end if;
6634:
6635: if P_COMMIT = FND_API.G_TRUE then
6636: COMMIT WORK;
6637: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
6638: end if;
6639:
6640: -- END OF BODY OF API
6641: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
6639:
6640: -- END OF BODY OF API
6641: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
6642:
6643: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully cancelled disbursement header with lines');
6644:
6645: -- Standard call to get message count and if count is 1, get message info
6646: FND_MSG_PUB.Count_And_Get(
6647: p_encoded => FND_API.G_FALSE,
6647: p_encoded => FND_API.G_FALSE,
6648: p_count => x_msg_count,
6649: p_data => x_msg_data);
6650:
6651: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
6652:
6653: EXCEPTION
6654: WHEN FND_API.G_EXC_ERROR THEN
6655: ROLLBACK TO CANCEL_SINGLE_DISB;
6654: WHEN FND_API.G_EXC_ERROR THEN
6655: ROLLBACK TO CANCEL_SINGLE_DISB;
6656: x_return_status := FND_API.G_RET_STS_ERROR;
6657: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6658: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6659: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6660: ROLLBACK TO CANCEL_SINGLE_DISB;
6661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6662: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6659: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6660: ROLLBACK TO CANCEL_SINGLE_DISB;
6661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6662: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6663: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6664: WHEN OTHERS THEN
6665: ROLLBACK TO CANCEL_SINGLE_DISB;
6666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6667: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6667: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6668: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6669: END IF;
6670: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6671: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6672: END;
6673:
6674:
6675:
6757: where head.LOAN_ID = P_LOAN_ID and
6758: head.status <> 'CANCELLED';
6759:
6760: BEGIN
6761: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
6762: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
6763:
6764: -- Standard start of API savepoint
6765: SAVEPOINT APPROVE_CANCEL_REM_DISB;
6758: head.status <> 'CANCELLED';
6759:
6760: BEGIN
6761: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
6762: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
6763:
6764: -- Standard start of API savepoint
6765: SAVEPOINT APPROVE_CANCEL_REM_DISB;
6766: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
6762: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
6763:
6764: -- Standard start of API savepoint
6765: SAVEPOINT APPROVE_CANCEL_REM_DISB;
6766: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
6767:
6768: -- Standard call to check for call compatibility
6769: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6779: l_return_status := FND_API.G_RET_STS_SUCCESS;
6780:
6781: -- START OF BODY OF API
6782:
6783: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Cancelling all remaining disbursements...');
6784: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
6785: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_LOAN_ID: ' || P_LOAN_ID);
6786:
6787: -- getting all available disbursements
6780:
6781: -- START OF BODY OF API
6782:
6783: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Cancelling all remaining disbursements...');
6784: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
6785: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_LOAN_ID: ' || P_LOAN_ID);
6786:
6787: -- getting all available disbursements
6788: open avail_disb_cur(P_LOAN_ID);
6781: -- START OF BODY OF API
6782:
6783: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Cancelling all remaining disbursements...');
6784: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
6785: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_LOAN_ID: ' || P_LOAN_ID);
6786:
6787: -- getting all available disbursements
6788: open avail_disb_cur(P_LOAN_ID);
6789: LOOP
6803: X_MSG_COUNT => l_msg_count,
6804: X_MSG_DATA => l_msg_data);
6805:
6806: IF l_return_status <> 'S' THEN
6807: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'CANCEL_SINGLE_DISB failed');
6808: RAISE FND_API.G_EXC_ERROR;
6809: END IF;
6810:
6811: END LOOP;
6825: end if;
6826:
6827: l_loan_header_rec.loan_id := P_LOAN_ID;
6828:
6829: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
6830: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
6831: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
6832: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary status: ' || l_loan_header_rec.SECONDARY_STATUS);
6833:
6826:
6827: l_loan_header_rec.loan_id := P_LOAN_ID;
6828:
6829: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
6830: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
6831: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
6832: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary status: ' || l_loan_header_rec.SECONDARY_STATUS);
6833:
6834: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
6827: l_loan_header_rec.loan_id := P_LOAN_ID;
6828:
6829: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
6830: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
6831: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
6832: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary status: ' || l_loan_header_rec.SECONDARY_STATUS);
6833:
6834: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
6835: P_LOAN_HEADER_REC => l_loan_header_rec,
6828:
6829: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
6830: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
6831: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
6832: LogMessage(FND_LOG.LEVEL_STATEMENT, 'secondary status: ' || l_loan_header_rec.SECONDARY_STATUS);
6833:
6834: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
6835: P_LOAN_HEADER_REC => l_loan_header_rec,
6836: P_INIT_MSG_LIST => FND_API.G_FALSE,
6837: X_RETURN_STATUS => l_return_status,
6838: X_MSG_COUNT => l_msg_count,
6839: X_MSG_DATA => l_msg_data);
6840:
6841: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
6842:
6843: IF l_return_status = 'S' THEN
6844: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
6845: ELSE
6840:
6841: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
6842:
6843: IF l_return_status = 'S' THEN
6844: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
6845: ELSE
6846: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
6847: FND_MSG_PUB.Add;
6848: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6844: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
6845: ELSE
6846: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
6847: FND_MSG_PUB.Add;
6848: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6849: RAISE FND_API.G_EXC_ERROR;
6850: END IF;
6851:
6852: LogMessage(FND_LOG.LEVEL_STATEMENT, 'calling lns_distributions_pub.cancel_disbursements');
6848: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6849: RAISE FND_API.G_EXC_ERROR;
6850: END IF;
6851:
6852: LogMessage(FND_LOG.LEVEL_STATEMENT, 'calling lns_distributions_pub.cancel_disbursements');
6853: -- Cancel budgetary disbursements if needed
6854: lns_distributions_pub.cancel_disbursements(p_init_msg_list => FND_API.G_FALSE
6855: ,p_commit => FND_API.G_FALSE
6856: ,p_loan_id => P_LOAN_ID
6857: ,X_RETURN_STATUS => l_return_status
6858: ,X_MSG_COUNT => l_msg_count
6859: ,X_MSG_DATA => l_msg_data);
6860:
6861: logMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
6862: IF l_return_status <> 'S' THEN
6863: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'BUDGETARY CANCEL_FAILED');
6864: RAISE FND_API.G_EXC_ERROR;
6865: END IF;
6859: ,X_MSG_DATA => l_msg_data);
6860:
6861: logMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
6862: IF l_return_status <> 'S' THEN
6863: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'BUDGETARY CANCEL_FAILED');
6864: RAISE FND_API.G_EXC_ERROR;
6865: END IF;
6866:
6867: IF P_COMMIT = FND_API.G_TRUE THEN
6865: END IF;
6866:
6867: IF P_COMMIT = FND_API.G_TRUE THEN
6868: COMMIT WORK;
6869: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
6870: END IF;
6871:
6872: -- END OF BODY OF API
6873: x_return_status := FND_API.G_RET_STS_SUCCESS;
6871:
6872: -- END OF BODY OF API
6873: x_return_status := FND_API.G_RET_STS_SUCCESS;
6874:
6875: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully cancelled all remaining disbursements');
6876:
6877: -- Standard call to get message count and if count is 1, get message info
6878: FND_MSG_PUB.Count_And_Get(
6879: p_encoded => FND_API.G_FALSE,
6879: p_encoded => FND_API.G_FALSE,
6880: p_count => x_msg_count,
6881: p_data => x_msg_data);
6882:
6883: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
6884:
6885: EXCEPTION
6886: WHEN FND_API.G_EXC_ERROR THEN
6887: ROLLBACK TO APPROVE_CANCEL_REM_DISB;
6886: WHEN FND_API.G_EXC_ERROR THEN
6887: ROLLBACK TO APPROVE_CANCEL_REM_DISB;
6888: x_return_status := FND_API.G_RET_STS_ERROR;
6889: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6890: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6892: ROLLBACK TO APPROVE_CANCEL_REM_DISB;
6893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6894: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6892: ROLLBACK TO APPROVE_CANCEL_REM_DISB;
6893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6894: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6895: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6896: WHEN OTHERS THEN
6897: ROLLBACK TO APPROVE_CANCEL_REM_DISB;
6898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6899: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6899: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6900: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6901: END IF;
6902: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6903: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6904: END;
6905:
6906:
6907:
6989: column_name = 'LOAN_STATUS' and
6990: loan_id = P_LOAN_ID);
6991:
6992: BEGIN
6993: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
6994: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
6995:
6996: -- Standard start of API savepoint
6997: SAVEPOINT REJECT_CANCEL_DISB;
6990: loan_id = P_LOAN_ID);
6991:
6992: BEGIN
6993: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
6994: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
6995:
6996: -- Standard start of API savepoint
6997: SAVEPOINT REJECT_CANCEL_DISB;
6998: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
6994: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
6995:
6996: -- Standard start of API savepoint
6997: SAVEPOINT REJECT_CANCEL_DISB;
6998: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
6999:
7000: -- Standard call to check for call compatibility
7001: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7011: l_return_status := FND_API.G_RET_STS_SUCCESS;
7012:
7013: -- START OF BODY OF API
7014:
7015: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Reactivation disbursement schedule...');
7016: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
7017: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_LOAN_ID: ' || P_LOAN_ID);
7018:
7019: -- getting loan previous status
7012:
7013: -- START OF BODY OF API
7014:
7015: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Reactivation disbursement schedule...');
7016: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
7017: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_LOAN_ID: ' || P_LOAN_ID);
7018:
7019: -- getting loan previous status
7020: open prev_status_cur(P_LOAN_ID);
7013: -- START OF BODY OF API
7014:
7015: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Reactivation disbursement schedule...');
7016: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
7017: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_LOAN_ID: ' || P_LOAN_ID);
7018:
7019: -- getting loan previous status
7020: open prev_status_cur(P_LOAN_ID);
7021: fetch prev_status_cur into l_loan_header_rec.LOAN_STATUS;
7028:
7029: -- setting status and update loan header
7030: l_loan_header_rec.loan_id := P_LOAN_ID;
7031:
7032: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
7033: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
7034: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
7035:
7036: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
7029: -- setting status and update loan header
7030: l_loan_header_rec.loan_id := P_LOAN_ID;
7031:
7032: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
7033: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
7034: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
7035:
7036: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
7037: P_LOAN_HEADER_REC => l_loan_header_rec,
7030: l_loan_header_rec.loan_id := P_LOAN_ID;
7031:
7032: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
7033: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
7034: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
7035:
7036: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
7037: P_LOAN_HEADER_REC => l_loan_header_rec,
7038: P_INIT_MSG_LIST => FND_API.G_FALSE,
7039: X_RETURN_STATUS => l_return_status,
7040: X_MSG_COUNT => l_msg_count,
7041: X_MSG_DATA => l_msg_data);
7042:
7043: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
7044:
7045: IF l_return_status = 'S' THEN
7046: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
7047: ELSE
7042:
7043: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
7044:
7045: IF l_return_status = 'S' THEN
7046: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
7047: ELSE
7048: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
7049: FND_MSG_PUB.Add;
7050: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7046: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
7047: ELSE
7048: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
7049: FND_MSG_PUB.Add;
7050: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7051: RAISE FND_API.G_EXC_ERROR;
7052: END IF;
7053:
7054: if P_COMMIT = FND_API.G_TRUE then
7052: END IF;
7053:
7054: if P_COMMIT = FND_API.G_TRUE then
7055: COMMIT WORK;
7056: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
7057: end if;
7058:
7059: -- END OF BODY OF API
7060: x_return_status := FND_API.G_RET_STS_SUCCESS;
7058:
7059: -- END OF BODY OF API
7060: x_return_status := FND_API.G_RET_STS_SUCCESS;
7061:
7062: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully reactivation disbursement schedule');
7063:
7064: -- Standard call to get message count and if count is 1, get message info
7065: FND_MSG_PUB.Count_And_Get(
7066: p_encoded => FND_API.G_FALSE,
7066: p_encoded => FND_API.G_FALSE,
7067: p_count => x_msg_count,
7068: p_data => x_msg_data);
7069:
7070: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
7071:
7072: EXCEPTION
7073: WHEN FND_API.G_EXC_ERROR THEN
7074: ROLLBACK TO REJECT_CANCEL_DISB;
7073: WHEN FND_API.G_EXC_ERROR THEN
7074: ROLLBACK TO REJECT_CANCEL_DISB;
7075: x_return_status := FND_API.G_RET_STS_ERROR;
7076: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7077: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7078: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7079: ROLLBACK TO REJECT_CANCEL_DISB;
7080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7081: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7078: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7079: ROLLBACK TO REJECT_CANCEL_DISB;
7080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7081: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7082: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7083: WHEN OTHERS THEN
7084: ROLLBACK TO REJECT_CANCEL_DISB;
7085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7086: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7086: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7087: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7088: END IF;
7089: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7090: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7091: END;
7092:
7093:
7094:
7168: lns_loan_headers_all loan
7169: where loan.loan_id = P_LOAN_ID and
7170: loan.product_id = prod.loan_product_id;
7171: BEGIN
7172: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
7173: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
7174:
7175: -- Standard start of API savepoint
7176: SAVEPOINT CANCEL_DISB_SCHEDULE;
7169: where loan.loan_id = P_LOAN_ID and
7170: loan.product_id = prod.loan_product_id;
7171: BEGIN
7172: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
7173: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
7174:
7175: -- Standard start of API savepoint
7176: SAVEPOINT CANCEL_DISB_SCHEDULE;
7177: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
7173: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
7174:
7175: -- Standard start of API savepoint
7176: SAVEPOINT CANCEL_DISB_SCHEDULE;
7177: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
7178:
7179: -- Standard call to check for call compatibility
7180: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7190: l_return_status := FND_API.G_RET_STS_SUCCESS;
7191:
7192: -- START OF BODY OF API
7193:
7194: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Cancel disbursements...');
7195: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
7196: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_LOAN_ID: ' || P_LOAN_ID);
7197:
7198: -- querying required approval flag
7191:
7192: -- START OF BODY OF API
7193:
7194: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Cancel disbursements...');
7195: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
7196: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_LOAN_ID: ' || P_LOAN_ID);
7197:
7198: -- querying required approval flag
7199: open appr_flag_cur(P_LOAN_ID);
7192: -- START OF BODY OF API
7193:
7194: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Cancel disbursements...');
7195: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input data:');
7196: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_LOAN_ID: ' || P_LOAN_ID);
7197:
7198: -- querying required approval flag
7199: open appr_flag_cur(P_LOAN_ID);
7200: fetch appr_flag_cur into l_approve_flag;
7210: -- setting status and update loan header
7211: l_loan_header_rec.loan_id := P_LOAN_ID;
7212: l_loan_header_rec.LOAN_STATUS := 'PENDING_CANCELLATION';
7213:
7214: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
7215: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
7216: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
7217:
7218: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
7211: l_loan_header_rec.loan_id := P_LOAN_ID;
7212: l_loan_header_rec.LOAN_STATUS := 'PENDING_CANCELLATION';
7213:
7214: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
7215: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
7216: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
7217:
7218: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
7219: P_LOAN_HEADER_REC => l_loan_header_rec,
7212: l_loan_header_rec.LOAN_STATUS := 'PENDING_CANCELLATION';
7213:
7214: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
7215: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_header_rec.loan_id);
7216: LogMessage(FND_LOG.LEVEL_STATEMENT, 'status: ' || l_loan_header_rec.LOAN_STATUS);
7217:
7218: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_loan_version,
7219: P_LOAN_HEADER_REC => l_loan_header_rec,
7220: P_INIT_MSG_LIST => FND_API.G_FALSE,
7221: X_RETURN_STATUS => l_return_status,
7222: X_MSG_COUNT => l_msg_count,
7223: X_MSG_DATA => l_msg_data);
7224:
7225: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
7226:
7227: IF l_return_status = 'S' THEN
7228: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
7229: ELSE
7224:
7225: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
7226:
7227: IF l_return_status = 'S' THEN
7228: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
7229: ELSE
7230: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
7231: FND_MSG_PUB.Add;
7232: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7228: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
7229: ELSE
7230: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
7231: FND_MSG_PUB.Add;
7232: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7233: RAISE FND_API.G_EXC_ERROR;
7234: END IF;
7235:
7236: else
7252: end if;
7253:
7254: if P_COMMIT = FND_API.G_TRUE then
7255: COMMIT WORK;
7256: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
7257: end if;
7258:
7259: -- END OF BODY OF API
7260: x_return_status := FND_API.G_RET_STS_SUCCESS;
7258:
7259: -- END OF BODY OF API
7260: x_return_status := FND_API.G_RET_STS_SUCCESS;
7261:
7262: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully cancel disbursements');
7263:
7264: -- Standard call to get message count and if count is 1, get message info
7265: FND_MSG_PUB.Count_And_Get(
7266: p_encoded => FND_API.G_FALSE,
7266: p_encoded => FND_API.G_FALSE,
7267: p_count => x_msg_count,
7268: p_data => x_msg_data);
7269:
7270: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
7271:
7272: EXCEPTION
7273: WHEN FND_API.G_EXC_ERROR THEN
7274: ROLLBACK TO CANCEL_DISB_SCHEDULE;
7273: WHEN FND_API.G_EXC_ERROR THEN
7274: ROLLBACK TO CANCEL_DISB_SCHEDULE;
7275: x_return_status := FND_API.G_RET_STS_ERROR;
7276: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7277: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7278: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7279: ROLLBACK TO CANCEL_DISB_SCHEDULE;
7280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7281: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7278: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7279: ROLLBACK TO CANCEL_DISB_SCHEDULE;
7280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7281: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7282: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7283: WHEN OTHERS THEN
7284: ROLLBACK TO CANCEL_DISB_SCHEDULE;
7285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7286: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7286: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7287: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7288: END IF;
7289: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7290: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7291: END;
7292:
7293:
7294:
7812: (end_date_active is null or trunc(end_date_active) > trunc(sysdate));
7813:
7814: BEGIN
7815:
7816: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
7817:
7818: -- Standard start of API savepoint
7819: SAVEPOINT SET_AUTOFUNDING;
7820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
7816: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
7817:
7818: -- Standard start of API savepoint
7819: SAVEPOINT SET_AUTOFUNDING;
7820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
7821:
7822: -- Standard call to check for call compatibility
7823: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7844: close disb_headers_cur;
7845:
7846: if P_AUTOFUNDING_FLAG = 'Y' then
7847:
7848: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No disbursement header record found');
7849: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
7850: FND_MSG_PUB.ADD;
7851: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7852: RAISE FND_API.G_EXC_ERROR;
7847:
7848: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No disbursement header record found');
7849: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
7850: FND_MSG_PUB.ADD;
7851: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7852: RAISE FND_API.G_EXC_ERROR;
7853:
7854: end if;
7855:
7872: X_MSG_COUNT => l_msg_count,
7873: X_MSG_DATA => l_msg_data);
7874:
7875: IF l_return_status <> 'S' THEN
7876: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to VALIDATE_DISB_HEADERS failed');
7877: RAISE FND_API.G_EXC_ERROR;
7878: END IF;
7879:
7880: VALIDATE_DISB_FOR_SUBMIT(
7887: X_MSG_COUNT => l_msg_count,
7888: X_MSG_DATA => l_msg_data);
7889:
7890: IF l_return_status <> 'S' THEN
7891: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to VALIDATE_DISB_FOR_SUBMIT failed');
7892: RAISE FND_API.G_EXC_ERROR;
7893: END IF;
7894:
7895: -- checking for conditions
7922: X_MSG_COUNT => l_msg_count,
7923: X_MSG_DATA => l_msg_data);
7924:
7925: IF l_return_status <> 'S' THEN
7926: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to UPDATE_DISB_HEADER failed');
7927: RAISE FND_API.G_EXC_ERROR;
7928: END IF;
7929:
7930: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully updated record into LNS_DISB_HEADERS');
7926: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to UPDATE_DISB_HEADER failed');
7927: RAISE FND_API.G_EXC_ERROR;
7928: END IF;
7929:
7930: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully updated record into LNS_DISB_HEADERS');
7931:
7932: if P_COMMIT = FND_API.G_TRUE then
7933: COMMIT WORK;
7934: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
7930: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully updated record into LNS_DISB_HEADERS');
7931:
7932: if P_COMMIT = FND_API.G_TRUE then
7933: COMMIT WORK;
7934: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
7935: end if;
7936:
7937: -- END OF BODY OF API
7938: x_return_status := FND_API.G_RET_STS_SUCCESS;
7942: p_encoded => FND_API.G_FALSE,
7943: p_count => x_msg_count,
7944: p_data => x_msg_data);
7945:
7946: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
7947:
7948: EXCEPTION
7949: WHEN FND_API.G_EXC_ERROR THEN
7950: ROLLBACK TO SET_AUTOFUNDING;
7949: WHEN FND_API.G_EXC_ERROR THEN
7950: ROLLBACK TO SET_AUTOFUNDING;
7951: x_return_status := FND_API.G_RET_STS_ERROR;
7952: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7953: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7955: ROLLBACK TO SET_AUTOFUNDING;
7956: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7957: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7955: ROLLBACK TO SET_AUTOFUNDING;
7956: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7957: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7958: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7959: WHEN OTHERS THEN
7960: ROLLBACK TO SET_AUTOFUNDING;
7961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7962: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7962: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7963: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7964: END IF;
7965: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7966: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7967: END;
7968:
7969:
7970:
8640: line.status = 'IN_FUNDING';
8641:
8642: BEGIN
8643:
8644: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
8645: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
8646:
8647: -- Standard call to check for call compatibility
8648: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
8641:
8642: BEGIN
8643:
8644: LogMessage(FND_LOG.LEVEL_PROCEDURE, ' ');
8645: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
8646:
8647: -- Standard call to check for call compatibility
8648: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
8649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8658: l_return_status := FND_API.G_RET_STS_SUCCESS;
8659:
8660: -- START OF BODY OF API
8661:
8662: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Validating disbursements for payoff process...');
8663: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan: ' || P_LOAN_ID);
8664:
8665: open in_fund_count_cur(P_LOAN_ID);
8666: fetch in_fund_count_cur into l_in_funding_count;
8659:
8660: -- START OF BODY OF API
8661:
8662: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Validating disbursements for payoff process...');
8663: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Loan: ' || P_LOAN_ID);
8664:
8665: open in_fund_count_cur(P_LOAN_ID);
8666: fetch in_fund_count_cur into l_in_funding_count;
8667: close in_fund_count_cur;
8668:
8669: if l_in_funding_count > 0 then
8670: FND_MESSAGE.SET_NAME('LNS', 'LNS_CANT_PAYOFF_IN_FUND');
8671: FND_MSG_PUB.Add;
8672: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
8673: RAISE FND_API.G_EXC_ERROR;
8674: end if;
8675:
8676: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully validated disbursements for payoff process');
8672: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
8673: RAISE FND_API.G_EXC_ERROR;
8674: end if;
8675:
8676: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully validated disbursements for payoff process');
8677:
8678: -- END OF BODY OF API
8679: x_return_status := FND_API.G_RET_STS_SUCCESS;
8680:
8683: p_encoded => FND_API.G_FALSE,
8684: p_count => x_msg_count,
8685: p_data => x_msg_data);
8686:
8687: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
8688:
8689: EXCEPTION
8690: WHEN FND_API.G_EXC_ERROR THEN
8691: x_return_status := FND_API.G_RET_STS_ERROR;
8706:
8707:
8708: BEGIN
8709: G_LOG_ENABLED := 'N';
8710: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
8711:
8712: -- getting msg logging info
8713: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
8714: if (G_LOG_ENABLED = 'N') then
8711:
8712: -- getting msg logging info
8713: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
8714: if (G_LOG_ENABLED = 'N') then
8715: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
8716: else
8717: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
8718: end if;
8719:
8713: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
8714: if (G_LOG_ENABLED = 'N') then
8715: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
8716: else
8717: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
8718: end if;
8719:
8720: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
8721: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
8716: else
8717: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
8718: end if;
8719:
8720: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
8721: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
8722:
8723: END;
8717: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
8718: end if;
8719:
8720: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
8721: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
8722:
8723: END;