[Home] [Help]
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;
525: END IF;
526:
527: -- Initialize message list if p_init_msg_list is set to TRUE
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;
525: END IF;
526:
527: -- Initialize message list if p_init_msg_list is set to TRUE
528: IF FND_API.To_Boolean(p_init_msg_list) THEN
524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
525: END IF;
526:
527: -- Initialize message list if p_init_msg_list is set to TRUE
528: IF FND_API.To_Boolean(p_init_msg_list) THEN
529: FND_MSG_PUB.initialize;
530: END IF;
531:
532: -- Initialize API return status to success
529: FND_MSG_PUB.initialize;
530: END IF;
531:
532: -- Initialize API return status to success
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...');
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:
564: -- calling table handler api
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');
583: end if;
584:
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;
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
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,
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 || ' -');
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;
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');
597:
598: EXCEPTION
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;
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);
608: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
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);
608: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
609: WHEN OTHERS THEN
610: ROLLBACK TO INSERT_DISB_HEADER;
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
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);
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;
702: END IF;
703:
704: -- Initialize message list if p_init_msg_list is set to TRUE
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;
702: END IF;
703:
704: -- Initialize message list if p_init_msg_list is set to TRUE
705: IF FND_API.To_Boolean(p_init_msg_list) THEN
701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
702: END IF;
703:
704: -- Initialize message list if p_init_msg_list is set to TRUE
705: IF FND_API.To_Boolean(p_init_msg_list) THEN
706: FND_MSG_PUB.initialize;
707: END IF;
708:
709: -- Initialize API return status to success
706: FND_MSG_PUB.initialize;
707: END IF;
708:
709: -- Initialize API return status to success
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...');
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:
741: -- getting disbursement header info from db
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;
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:
770: l_disb_header_version := nvl(l_disb_header_version, 1) + 1;
782: P_PAYMENT_REQUEST_DATE => P_DISB_HEADER_REC.PAYMENT_REQUEST_DATE,
783: P_OBJECT_VERSION_NUMBER => l_disb_header_version,
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:
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;
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
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,
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 || ' -');
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;
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');
803:
804: EXCEPTION
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;
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);
814: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
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);
814: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
815: WHEN OTHERS THEN
816: ROLLBACK TO UPDATE_DISB_HEADER;
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
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);
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;
915: END IF;
916:
917: -- Initialize message list if p_init_msg_list is set to TRUE
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;
915: END IF;
916:
917: -- Initialize message list if p_init_msg_list is set to TRUE
918: IF FND_API.To_Boolean(p_init_msg_list) THEN
914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
915: END IF;
916:
917: -- Initialize message list if p_init_msg_list is set to TRUE
918: IF FND_API.To_Boolean(p_init_msg_list) THEN
919: FND_MSG_PUB.initialize;
920: END IF;
921:
922: -- Initialize API return status to success
919: FND_MSG_PUB.initialize;
920: END IF;
921:
922: -- Initialize API return status to success
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...');
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:
943: -- getting disbursement header info from db
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;
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:
971: open disb_line_cur(P_DISB_HEADER_ID);
975: exit when disb_line_cur%NOTFOUND;
976:
977: DELETE_DISB_LINE(
978: P_API_VERSION => 1.0,
979: P_INIT_MSG_LIST => FND_API.G_TRUE,
980: P_COMMIT => FND_API.G_FALSE,
981: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
982: P_DISB_LINE_ID => l_disb_line_id,
983: X_RETURN_STATUS => l_return_status,
976:
977: DELETE_DISB_LINE(
978: P_API_VERSION => 1.0,
979: P_INIT_MSG_LIST => FND_API.G_TRUE,
980: P_COMMIT => FND_API.G_FALSE,
981: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
982: P_DISB_LINE_ID => l_disb_line_id,
983: X_RETURN_STATUS => l_return_status,
984: X_MSG_COUNT => l_msg_count,
977: DELETE_DISB_LINE(
978: P_API_VERSION => 1.0,
979: P_INIT_MSG_LIST => FND_API.G_TRUE,
980: P_COMMIT => FND_API.G_FALSE,
981: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
982: P_DISB_LINE_ID => l_disb_line_id,
983: X_RETURN_STATUS => l_return_status,
984: X_MSG_COUNT => l_msg_count,
985: X_MSG_DATA => l_msg_data);
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;
993: close disb_line_cur;
998:
999: -- calling table handler api
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:
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;
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
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,
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 || ' -');
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;
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');
1019:
1020: EXCEPTION
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;
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);
1030: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
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);
1030: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1031: WHEN OTHERS THEN
1032: ROLLBACK TO DELETE_DISB_HEADER;
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
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);
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;
1117: END IF;
1118:
1119: -- Initialize message list if p_init_msg_list is set to TRUE
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;
1117: END IF;
1118:
1119: -- Initialize message list if p_init_msg_list is set to TRUE
1120: IF FND_API.To_Boolean(p_init_msg_list) THEN
1116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1117: END IF;
1118:
1119: -- Initialize message list if p_init_msg_list is set to TRUE
1120: IF FND_API.To_Boolean(p_init_msg_list) THEN
1121: FND_MSG_PUB.initialize;
1122: END IF;
1123:
1124: -- Initialize API return status to success
1121: FND_MSG_PUB.initialize;
1122: END IF;
1123:
1124: -- Initialize API return status to success
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...');
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:
1158: if P_DISB_LINE_REC.LINE_PERCENT is null then
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:
1168: if P_DISB_LINE_REC.PAYEE_PARTY_ID is null then
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:
1178: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling LNS_DISB_LINES_PKG.Insert_Row');
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');
1202: end if;
1203:
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;
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
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,
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 || ' -');
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;
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');
1216:
1217: EXCEPTION
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;
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);
1227: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
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);
1227: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1228: WHEN OTHERS THEN
1229: ROLLBACK TO INSERT_DISB_LINE;
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
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);
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;
1321: END IF;
1322:
1323: -- Initialize message list if p_init_msg_list is set to TRUE
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;
1321: END IF;
1322:
1323: -- Initialize message list if p_init_msg_list is set to TRUE
1324: IF FND_API.To_Boolean(p_init_msg_list) THEN
1320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1321: END IF;
1322:
1323: -- Initialize message list if p_init_msg_list is set to TRUE
1324: IF FND_API.To_Boolean(p_init_msg_list) THEN
1325: FND_MSG_PUB.initialize;
1326: END IF;
1327:
1328: -- Initialize API return status to success
1325: FND_MSG_PUB.initialize;
1326: END IF;
1327:
1328: -- Initialize API return status to success
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...');
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:
1362: -- getting disbursement line info from db
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;
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:
1391: l_disb_line_version := nvl(l_disb_line_version, 1) + 1;
1406: P_OBJECT_VERSION_NUMBER => l_disb_line_version,
1407: P_INVOICE_INTERFACE_ID => P_DISB_LINE_REC.INVOICE_INTERFACE_ID,
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:
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;
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
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,
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 || ' -');
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;
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');
1427:
1428: EXCEPTION
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;
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);
1438: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
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);
1438: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1439: WHEN OTHERS THEN
1440: ROLLBACK TO UPDATE_DISB_LINE;
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
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);
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;
1533: END IF;
1534:
1535: -- Initialize message list if p_init_msg_list is set to TRUE
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;
1533: END IF;
1534:
1535: -- Initialize message list if p_init_msg_list is set to TRUE
1536: IF FND_API.To_Boolean(p_init_msg_list) THEN
1532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1533: END IF;
1534:
1535: -- Initialize message list if p_init_msg_list is set to TRUE
1536: IF FND_API.To_Boolean(p_init_msg_list) THEN
1537: FND_MSG_PUB.initialize;
1538: END IF;
1539:
1540: -- Initialize API return status to success
1537: FND_MSG_PUB.initialize;
1538: END IF;
1539:
1540: -- Initialize API return status to success
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...');
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:
1562: -- getting disbursement header and line info from db
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;
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:
1590: -- calling table handler api
1589:
1590: -- calling table handler api
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:
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;
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
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,
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 || ' -');
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;
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');
1610:
1611: EXCEPTION
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;
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);
1621: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
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);
1621: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1622: WHEN OTHERS THEN
1623: ROLLBACK TO DELETE_DISB_LINE;
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
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);
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,
1743: x_return_status => l_return_status,
1744: x_msg_count => l_msg_count,
1745: x_msg_data => l_msg_data,
1760: if (l_Ext_Payee_Create_Tab(l_Count).Payee_Creation_Status = 'E') then
1761: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1762: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee' || ' Payee_Creation_Msg: ' || l_Ext_Payee_Create_Tab(l_Count).Payee_Creation_Msg);
1763: FND_MSG_PUB.ADD;
1764: RAISE FND_API.G_EXC_ERROR;
1765: end if;
1766: END LOOP;
1767:
1768: if l_return_status = 'E' then
1768: if l_return_status = 'E' then
1769: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1770: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee');
1771: FND_MSG_PUB.ADD;
1772: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1773: p_count => l_msg_count,
1774: p_data => l_msg_data);
1775: RAISE FND_API.G_EXC_ERROR;
1776: end if;
1771: FND_MSG_PUB.ADD;
1772: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1773: p_count => l_msg_count,
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:
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;
1918: END IF;
1919:
1920: -- Initialize message list if p_init_msg_list is set to TRUE
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;
1918: END IF;
1919:
1920: -- Initialize message list if p_init_msg_list is set to TRUE
1921: IF FND_API.To_Boolean(p_init_msg_list) THEN
1917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1918: END IF;
1919:
1920: -- Initialize message list if p_init_msg_list is set to TRUE
1921: IF FND_API.To_Boolean(p_init_msg_list) THEN
1922: FND_MSG_PUB.initialize;
1923: END IF;
1924:
1925: -- Initialize API return status to success
1922: FND_MSG_PUB.initialize;
1923: END IF;
1924:
1925: -- Initialize API return status to success
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...');
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;
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
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
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
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:
2044: if trunc(l_DISB_HEADER_REC.TARGET_DATE) < trunc(l_loan_start_date) then
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:
2054: l_sum_percent := l_sum_percent + l_DISB_HEADER_REC.HEADER_PERCENT;
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;
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
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
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:
2149: -- validate party_site for the party
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:
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');
2193:
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');
2212:
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:
2216: -- Standard call to get message count and if count is 1, get message info
2217: FND_MSG_PUB.Count_And_Get(
2218: p_encoded => FND_API.G_FALSE,
2214: x_return_status := FND_API.G_RET_STS_SUCCESS;
2215:
2216: -- Standard call to get message count and if count is 1, get message info
2217: FND_MSG_PUB.Count_And_Get(
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 || ' -');
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;
2227: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
2227: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2230: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2224: EXCEPTION
2225: WHEN FND_API.G_EXC_ERROR THEN
2226: x_return_status := FND_API.G_RET_STS_ERROR;
2227: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2230: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2231: WHEN OTHERS THEN
2232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2225: WHEN FND_API.G_EXC_ERROR THEN
2226: x_return_status := FND_API.G_RET_STS_ERROR;
2227: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2230: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2231: WHEN OTHERS THEN
2232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2233: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2230: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2231: WHEN OTHERS THEN
2232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2233: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2234: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2235: END IF;
2236: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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;
2329: END IF;
2330:
2331: -- Initialize message list if p_init_msg_list is set to TRUE
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;
2329: END IF;
2330:
2331: -- Initialize message list if p_init_msg_list is set to TRUE
2332: IF FND_API.To_Boolean(p_init_msg_list) THEN
2328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2329: END IF;
2330:
2331: -- Initialize message list if p_init_msg_list is set to TRUE
2332: IF FND_API.To_Boolean(p_init_msg_list) THEN
2333: FND_MSG_PUB.initialize;
2334: END IF;
2335:
2336: -- Initialize API return status to success
2333: FND_MSG_PUB.initialize;
2334: END IF;
2335:
2336: -- Initialize API return status to success
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...');
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:
2365: close validate_cur;
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
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:
2395: -- validate Payment request date
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
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:
2415: -- validate that no lines without payment method
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');
2426:
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:
2430: -- Standard call to get message count and if count is 1, get message info
2431: FND_MSG_PUB.Count_And_Get(
2432: p_encoded => FND_API.G_FALSE,
2428: x_return_status := FND_API.G_RET_STS_SUCCESS;
2429:
2430: -- Standard call to get message count and if count is 1, get message info
2431: FND_MSG_PUB.Count_And_Get(
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 || ' -');
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;
2441: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
2441: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2444: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2438: EXCEPTION
2439: WHEN FND_API.G_EXC_ERROR THEN
2440: x_return_status := FND_API.G_RET_STS_ERROR;
2441: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2444: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2445: WHEN OTHERS THEN
2446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2439: WHEN FND_API.G_EXC_ERROR THEN
2440: x_return_status := FND_API.G_RET_STS_ERROR;
2441: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2444: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2445: WHEN OTHERS THEN
2446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2447: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2444: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2445: WHEN OTHERS THEN
2446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2447: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2448: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2449: END IF;
2450: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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;
2586: END IF;
2587:
2588: -- Initialize message list if p_init_msg_list is set to TRUE
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;
2586: END IF;
2587:
2588: -- Initialize message list if p_init_msg_list is set to TRUE
2589: IF FND_API.To_Boolean(p_init_msg_list) THEN
2585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2586: END IF;
2587:
2588: -- Initialize message list if p_init_msg_list is set to TRUE
2589: IF FND_API.To_Boolean(p_init_msg_list) THEN
2590: FND_MSG_PUB.initialize;
2591: END IF;
2592:
2593: -- Initialize API return status to success
2590: FND_MSG_PUB.initialize;
2591: END IF;
2592:
2593: -- Initialize API return status to success
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 || '...');
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:
2666: if l_DISB_LINE_REC.LINE_PERCENT is null then
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:
2676: if l_DISB_LINE_REC.PAYEE_PARTY_ID is null then
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:
2686: -- validate party_site for the party
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;
2701:
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
2752: FOR l_Count1 IN 1..l_DISB_LINES_TBL.COUNT LOOP
2752: FOR l_Count1 IN 1..l_DISB_LINES_TBL.COUNT LOOP
2753:
2754: UPDATE_DISB_LINE(
2755: P_API_VERSION => 1.0,
2756: P_INIT_MSG_LIST => FND_API.G_TRUE,
2757: P_COMMIT => FND_API.G_FALSE,
2758: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
2759: P_DISB_LINE_REC => l_DISB_LINES_TBL(l_Count1),
2760: X_RETURN_STATUS => l_return_status,
2753:
2754: UPDATE_DISB_LINE(
2755: P_API_VERSION => 1.0,
2756: P_INIT_MSG_LIST => FND_API.G_TRUE,
2757: P_COMMIT => FND_API.G_FALSE,
2758: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
2759: P_DISB_LINE_REC => l_DISB_LINES_TBL(l_Count1),
2760: X_RETURN_STATUS => l_return_status,
2761: X_MSG_COUNT => l_msg_count,
2754: UPDATE_DISB_LINE(
2755: P_API_VERSION => 1.0,
2756: P_INIT_MSG_LIST => FND_API.G_TRUE,
2757: P_COMMIT => FND_API.G_FALSE,
2758: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
2759: P_DISB_LINE_REC => l_DISB_LINES_TBL(l_Count1),
2760: X_RETURN_STATUS => l_return_status,
2761: X_MSG_COUNT => l_msg_count,
2762: X_MSG_DATA => l_msg_data);
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;
2770:
2767: END IF;
2768:
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:
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:
2781: -- Standard call to get message count and if count is 1, get message info
2782: FND_MSG_PUB.Count_And_Get(
2783: p_encoded => FND_API.G_FALSE,
2779: x_return_status := FND_API.G_RET_STS_SUCCESS;
2780:
2781: -- Standard call to get message count and if count is 1, get message info
2782: FND_MSG_PUB.Count_And_Get(
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 || ' -');
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;
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');
2788:
2789: EXCEPTION
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;
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);
2799: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
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);
2799: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
2800: WHEN OTHERS THEN
2801: ROLLBACK TO VALIDATE_DISB_LINES;
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
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);
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;
2943: END IF;
2944:
2945: -- Initialize message list if p_init_msg_list is set to TRUE
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;
2943: END IF;
2944:
2945: -- Initialize message list if p_init_msg_list is set to TRUE
2946: IF FND_API.To_Boolean(p_init_msg_list) THEN
2942: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2943: END IF;
2944:
2945: -- Initialize message list if p_init_msg_list is set to TRUE
2946: IF FND_API.To_Boolean(p_init_msg_list) THEN
2947: FND_MSG_PUB.initialize;
2948: END IF;
2949:
2950: -- Initialize API return status to success
2947: FND_MSG_PUB.initialize;
2948: END IF;
2949:
2950: -- Initialize API return status to success
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...');
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:
3016: if l_DISB_HEADER_REC.ACTIVITY_CODE is null then
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:
3026: if l_DISB_HEADER_REC.HEADER_PERCENT is null then
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:
3036: if l_DISB_HEADER_REC.TARGET_DATE is null then
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
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:
3058: if l_loan_status = 'INCOMPLETE' then
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;
3069:
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
3119: FOR l_Count1 IN 1..l_DISB_HEADERS_TBL.COUNT LOOP
3119: FOR l_Count1 IN 1..l_DISB_HEADERS_TBL.COUNT LOOP
3120:
3121: UPDATE_DISB_HEADER(
3122: P_API_VERSION => 1.0,
3123: P_INIT_MSG_LIST => FND_API.G_TRUE,
3124: P_COMMIT => FND_API.G_FALSE,
3125: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
3126: P_DISB_HEADER_REC => l_DISB_HEADERS_TBL(l_Count1),
3127: X_RETURN_STATUS => l_return_status,
3120:
3121: UPDATE_DISB_HEADER(
3122: P_API_VERSION => 1.0,
3123: P_INIT_MSG_LIST => FND_API.G_TRUE,
3124: P_COMMIT => FND_API.G_FALSE,
3125: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
3126: P_DISB_HEADER_REC => l_DISB_HEADERS_TBL(l_Count1),
3127: X_RETURN_STATUS => l_return_status,
3128: X_MSG_COUNT => l_msg_count,
3121: UPDATE_DISB_HEADER(
3122: P_API_VERSION => 1.0,
3123: P_INIT_MSG_LIST => FND_API.G_TRUE,
3124: P_COMMIT => FND_API.G_FALSE,
3125: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
3126: P_DISB_HEADER_REC => l_DISB_HEADERS_TBL(l_Count1),
3127: X_RETURN_STATUS => l_return_status,
3128: X_MSG_COUNT => l_msg_count,
3129: X_MSG_DATA => l_msg_data);
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(
3137: P_API_VERSION => 1.0,
3134: END IF;
3135:
3136: VALIDATE_DISB_LINES(
3137: P_API_VERSION => 1.0,
3138: P_INIT_MSG_LIST => FND_API.G_TRUE,
3139: P_COMMIT => FND_API.G_FALSE,
3140: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
3141: P_DISB_HEADER_ID => l_DISB_HEADERS_TBL(l_Count1).DISB_HEADER_ID,
3142: X_RETURN_STATUS => l_return_status,
3135:
3136: VALIDATE_DISB_LINES(
3137: P_API_VERSION => 1.0,
3138: P_INIT_MSG_LIST => FND_API.G_TRUE,
3139: P_COMMIT => FND_API.G_FALSE,
3140: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
3141: P_DISB_HEADER_ID => l_DISB_HEADERS_TBL(l_Count1).DISB_HEADER_ID,
3142: X_RETURN_STATUS => l_return_status,
3143: X_MSG_COUNT => l_msg_count,
3136: VALIDATE_DISB_LINES(
3137: P_API_VERSION => 1.0,
3138: P_INIT_MSG_LIST => FND_API.G_TRUE,
3139: P_COMMIT => FND_API.G_FALSE,
3140: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
3141: P_DISB_HEADER_ID => l_DISB_HEADERS_TBL(l_Count1).DISB_HEADER_ID,
3142: X_RETURN_STATUS => l_return_status,
3143: X_MSG_COUNT => l_msg_count,
3144: X_MSG_DATA => l_msg_data);
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;
3152:
3158: if l_move_maturity_date = -1 then
3159:
3160: lns_financials.shiftLoan(
3161: p_loan_id => P_LOAN_ID
3162: ,p_init_msg_list => FND_API.G_TRUE
3163: ,p_commit => FND_API.G_FALSE
3164: ,x_return_status => l_return_status
3165: ,x_msg_count => l_msg_count
3166: ,x_msg_data => l_msg_data);
3159:
3160: lns_financials.shiftLoan(
3161: p_loan_id => P_LOAN_ID
3162: ,p_init_msg_list => FND_API.G_TRUE
3163: ,p_commit => FND_API.G_FALSE
3164: ,x_return_status => l_return_status
3165: ,x_msg_count => l_msg_count
3166: ,x_msg_data => l_msg_data);
3167:
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;
3174:
3171: END IF;
3172:
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:
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:
3185: -- Standard call to get message count and if count is 1, get message info
3186: FND_MSG_PUB.Count_And_Get(
3187: p_encoded => FND_API.G_FALSE,
3183: x_return_status := FND_API.G_RET_STS_SUCCESS;
3184:
3185: -- Standard call to get message count and if count is 1, get message info
3186: FND_MSG_PUB.Count_And_Get(
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 || ' -');
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;
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');
3192:
3193: EXCEPTION
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;
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);
3203: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
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);
3203: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3204: WHEN OTHERS THEN
3205: ROLLBACK TO VALIDATE_DISB_HEADERS;
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
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);
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;
3295: END IF;
3296:
3297: -- Initialize message list if p_init_msg_list is set to TRUE
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;
3295: END IF;
3296:
3297: -- Initialize message list if p_init_msg_list is set to TRUE
3298: IF FND_API.To_Boolean(p_init_msg_list) THEN
3294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3295: END IF;
3296:
3297: -- Initialize message list if p_init_msg_list is set to TRUE
3298: IF FND_API.To_Boolean(p_init_msg_list) THEN
3299: FND_MSG_PUB.initialize;
3300: END IF;
3301:
3302: -- Initialize API return status to success
3299: FND_MSG_PUB.initialize;
3300: END IF;
3301:
3302: -- Initialize API return status to success
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:');
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,
3342: p_trxn_attributes_rec => l_Trxn_Attributes_Rec,
3343: x_return_status => l_return_status,
3344: x_msg_count => l_msg_count,
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;
3354: X_default_pmt_attrs_rec.Payment_Method_Code := l_Default_Pmt_Attrs_Rec.Payment_Method.Payment_Method_Code;
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:
3372: -- Standard call to get message count and if count is 1, get message info
3373: FND_MSG_PUB.Count_And_Get(
3374: p_encoded => FND_API.G_FALSE,
3370: x_return_status := FND_API.G_RET_STS_SUCCESS;
3371:
3372: -- Standard call to get message count and if count is 1, get message info
3373: FND_MSG_PUB.Count_And_Get(
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 || ' -');
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;
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');
3379:
3380: EXCEPTION
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;
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);
3390: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
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);
3390: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3391: WHEN OTHERS THEN
3392: ROLLBACK TO Get_Default_Payment_Attr;
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
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);
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;
3458: END IF;
3459: SELECT llh.primary_borrower_id
3460: ,llh.org_id
3461: ,llh.legal_entity_id
3474: l_Trxn_Attributes_Rec.Payment_Function := 'LOANS_PAYMENTS';
3475:
3476: IBY_DISBURSEMENT_COMP_PUB.Get_Default_Payment_Attributes(
3477: p_api_version => 1.0,
3478: p_init_msg_list => FND_API.G_TRUE,
3479: p_ignore_payee_pref => null,
3480: p_trxn_attributes_rec => l_Trxn_Attributes_Rec,
3481: x_return_status => l_return_status,
3482: x_msg_count => l_msg_count,
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 '
3543: || G_PKG_NAME || '.' || l_api_name);
3544:
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;
3771: END IF;
3772:
3773: -- Initialize message list if p_init_msg_list is set to TRUE
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;
3771: END IF;
3772:
3773: -- Initialize message list if p_init_msg_list is set to TRUE
3774: IF FND_API.To_Boolean(p_init_msg_list) THEN
3770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3771: END IF;
3772:
3773: -- Initialize message list if p_init_msg_list is set to TRUE
3774: IF FND_API.To_Boolean(p_init_msg_list) THEN
3775: FND_MSG_PUB.initialize;
3776: END IF;
3777:
3778: -- Initialize API return status to success
3775: FND_MSG_PUB.initialize;
3776: END IF;
3777:
3778: -- Initialize API return status to success
3779: l_return_status := FND_API.G_RET_STS_SUCCESS;
3780:
3781: -- START OF BODY OF API
3782:
3783: LogMessage(FND_LOG.LEVEL_STATEMENT, ' ');
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,
3878: p_loan_id => l_DISB_HEADER_REC.LOAN_ID,
3879: p_disb_header_id => l_DISB_LINE_REC.DISB_HEADER_ID,
3880: x_return_status => l_return_status,
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,
3878: p_loan_id => l_DISB_HEADER_REC.LOAN_ID,
3879: p_disb_header_id => l_DISB_LINE_REC.DISB_HEADER_ID,
3880: x_return_status => l_return_status,
3881: x_msg_count => l_msg_count,
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
3891: open liability_distr_cur(l_DISB_HEADER_REC.LOAN_ID);
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...');
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;
4454: RAISE FND_API.G_EXC_ERROR;
4455: END;
4456:
4457: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully inserted new invoice line.');
4458:
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,
4529: P_COMMIT => FND_API.G_TRUE,
4530: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
4531: P_DISB_LINE_REC => l_DISB_LINE_REC,
4532: X_RETURN_STATUS => l_return_status,
4525:
4526: UPDATE_DISB_LINE(
4527: P_API_VERSION => 1.0,
4528: P_INIT_MSG_LIST => FND_API.G_FALSE,
4529: P_COMMIT => FND_API.G_TRUE,
4530: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
4531: P_DISB_LINE_REC => l_DISB_LINE_REC,
4532: X_RETURN_STATUS => l_return_status,
4533: X_MSG_COUNT => l_msg_count,
4526: UPDATE_DISB_LINE(
4527: P_API_VERSION => 1.0,
4528: P_INIT_MSG_LIST => FND_API.G_FALSE,
4529: P_COMMIT => FND_API.G_TRUE,
4530: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
4531: P_DISB_LINE_REC => l_DISB_LINE_REC,
4532: X_RETURN_STATUS => l_return_status,
4533: X_MSG_COUNT => l_msg_count,
4534: X_MSG_DATA => l_msg_data);
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:
4590: ELSE
4591:
4592: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Submit payment request return status: ' || l_return_status);
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:
4597: COMMIT WORK;
4596:
4597: COMMIT WORK;
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
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,
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 || ' -');
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,
4637: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
4638: P_DISB_LINE_REC => l_DISB_LINE_REC,
4639: X_RETURN_STATUS => l_return_status,
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,
4637: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
4638: P_DISB_LINE_REC => l_DISB_LINE_REC,
4639: X_RETURN_STATUS => l_return_status,
4640: X_MSG_COUNT => l_msg_count,
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,
4637: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
4638: P_DISB_LINE_REC => l_DISB_LINE_REC,
4639: X_RETURN_STATUS => l_return_status,
4640: X_MSG_COUNT => l_msg_count,
4641: X_MSG_DATA => l_msg_data);
4645: END IF;
4646:
4647: COMMIT WORK;
4648:
4649: x_return_status := FND_API.G_RET_STS_ERROR;
4650: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4651: END;
4652:
4653:
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;
4730: END IF;
4731:
4732: -- Initialize message list if p_init_msg_list is set to TRUE
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;
4730: END IF;
4731:
4732: -- Initialize message list if p_init_msg_list is set to TRUE
4733: IF FND_API.To_Boolean(p_init_msg_list) THEN
4729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4730: END IF;
4731:
4732: -- Initialize message list if p_init_msg_list is set to TRUE
4733: IF FND_API.To_Boolean(p_init_msg_list) THEN
4734: FND_MSG_PUB.initialize;
4735: END IF;
4736:
4737: -- Initialize API return status to success
4734: FND_MSG_PUB.initialize;
4735: END IF;
4736:
4737: -- Initialize API return status to success
4738: l_return_status := FND_API.G_RET_STS_SUCCESS;
4739:
4740: -- START OF BODY OF API
4741:
4742: -- getting disbursement header info
4745: close disb_headers_cur;
4746:
4747: if l_autofunding_flag = 'Y' then
4748: SUBMIT_DISBURSEMENT(P_API_VERSION => 1.0,
4749: P_INIT_MSG_LIST => FND_API.G_FALSE,
4750: P_COMMIT => FND_API.G_FALSE,
4751: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
4752: P_DISB_HEADER_ID => l_disb_header_id,
4753: X_RETURN_STATUS => l_return_status,
4746:
4747: if l_autofunding_flag = 'Y' then
4748: SUBMIT_DISBURSEMENT(P_API_VERSION => 1.0,
4749: P_INIT_MSG_LIST => FND_API.G_FALSE,
4750: P_COMMIT => FND_API.G_FALSE,
4751: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
4752: P_DISB_HEADER_ID => l_disb_header_id,
4753: X_RETURN_STATUS => l_return_status,
4754: X_MSG_COUNT => l_msg_count,
4747: if l_autofunding_flag = 'Y' then
4748: SUBMIT_DISBURSEMENT(P_API_VERSION => 1.0,
4749: P_INIT_MSG_LIST => FND_API.G_FALSE,
4750: P_COMMIT => FND_API.G_FALSE,
4751: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
4752: P_DISB_HEADER_ID => l_disb_header_id,
4753: X_RETURN_STATUS => l_return_status,
4754: X_MSG_COUNT => l_msg_count,
4755: X_MSG_DATA => l_msg_data);
4755: X_MSG_DATA => l_msg_data);
4756:
4757: x_return_status := l_return_status;
4758: else
4759: x_return_status := FND_API.G_RET_STS_SUCCESS;
4760: return;
4761: end if;
4762:
4763: COMMIT WORK;
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,
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 || ' -');
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;
4780: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
4780: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4783: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4777: EXCEPTION
4778: WHEN FND_API.G_EXC_ERROR THEN
4779: x_return_status := FND_API.G_RET_STS_ERROR;
4780: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4783: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4784: WHEN OTHERS THEN
4785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4778: WHEN FND_API.G_EXC_ERROR THEN
4779: x_return_status := FND_API.G_RET_STS_ERROR;
4780: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4783: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4784: WHEN OTHERS THEN
4785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4786: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
4781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4783: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4784: WHEN OTHERS THEN
4785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4786: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
4787: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4788: END IF;
4789: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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;
4921: END IF;
4922:
4923: -- Initialize message list if p_init_msg_list is set to TRUE
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;
4921: END IF;
4922:
4923: -- Initialize message list if p_init_msg_list is set to TRUE
4924: IF FND_API.To_Boolean(p_init_msg_list) THEN
4920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4921: END IF;
4922:
4923: -- Initialize message list if p_init_msg_list is set to TRUE
4924: IF FND_API.To_Boolean(p_init_msg_list) THEN
4925: FND_MSG_PUB.initialize;
4926: END IF;
4927:
4928: -- Initialize API return status to success
4925: FND_MSG_PUB.initialize;
4926: END IF;
4927:
4928: -- Initialize API return status to success
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 || '...');
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:
4957: close loan_detail_cur;
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
4967: ,p_loan_id => l_loan_id
4968: ,p_budgetary_control_mode => 'R'
4969: ,x_budgetary_status_code => l_status_code
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
4967: ,p_loan_id => l_loan_id
4968: ,p_budgetary_control_mode => 'R'
4969: ,x_budgetary_status_code => l_status_code
4970: ,x_return_status => l_return_status
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
4980: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to lns_distributions_pub.budgetary_control failed');
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;
4985:
4983:
4984: end if;
4985:
4986: VALIDATE_DISB_FOR_SUBMIT(P_API_VERSION => 1.0,
4987: P_INIT_MSG_LIST => FND_API.G_TRUE,
4988: P_COMMIT => FND_API.G_FALSE,
4989: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
4990: P_DISB_HEADER_ID => P_DISB_HEADER_ID,
4991: X_RETURN_STATUS => l_return_status,
4984: end if;
4985:
4986: VALIDATE_DISB_FOR_SUBMIT(P_API_VERSION => 1.0,
4987: P_INIT_MSG_LIST => FND_API.G_TRUE,
4988: P_COMMIT => FND_API.G_FALSE,
4989: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
4990: P_DISB_HEADER_ID => P_DISB_HEADER_ID,
4991: X_RETURN_STATUS => l_return_status,
4992: X_MSG_COUNT => l_msg_count,
4985:
4986: VALIDATE_DISB_FOR_SUBMIT(P_API_VERSION => 1.0,
4987: P_INIT_MSG_LIST => FND_API.G_TRUE,
4988: P_COMMIT => FND_API.G_FALSE,
4989: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
4990: P_DISB_HEADER_ID => P_DISB_HEADER_ID,
4991: X_RETURN_STATUS => l_return_status,
4992: X_MSG_COUNT => l_msg_count,
4993: X_MSG_DATA => l_msg_data);
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
5001: open conditions_cur(P_DISB_HEADER_ID);
5004:
5005: if l_cond_count > 0 then
5006: FND_MESSAGE.SET_NAME('LNS', 'LNS_NOT_ALL_COND_MET');
5007: FND_MSG_PUB.Add;
5008: RAISE FND_API.G_EXC_ERROR;
5009: end if;
5010:
5011: -- create iby external payee
5012: CREATE_EXT_IBY_PAYEE(P_DISB_HEADER_ID);
5039: l_count := l_count + 1;
5040: l_DISB_LINES_TBL(l_count) := l_DISB_LINE_REC;
5041:
5042: SUBMIT_SINGLE_PAY_REQ(P_API_VERSION => 1.0,
5043: P_INIT_MSG_LIST => FND_API.G_FALSE,
5044: P_COMMIT => FND_API.G_FALSE,
5045: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
5046: P_DISB_LINE_ID => l_DISB_LINES_TBL(l_count).DISB_LINE_ID,
5047: X_RETURN_STATUS => l_return_status,
5040: l_DISB_LINES_TBL(l_count) := l_DISB_LINE_REC;
5041:
5042: SUBMIT_SINGLE_PAY_REQ(P_API_VERSION => 1.0,
5043: P_INIT_MSG_LIST => FND_API.G_FALSE,
5044: P_COMMIT => FND_API.G_FALSE,
5045: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
5046: P_DISB_LINE_ID => l_DISB_LINES_TBL(l_count).DISB_LINE_ID,
5047: X_RETURN_STATUS => l_return_status,
5048: X_MSG_COUNT => l_msg_count,
5041:
5042: SUBMIT_SINGLE_PAY_REQ(P_API_VERSION => 1.0,
5043: P_INIT_MSG_LIST => FND_API.G_FALSE,
5044: P_COMMIT => FND_API.G_FALSE,
5045: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
5046: P_DISB_LINE_ID => l_DISB_LINES_TBL(l_count).DISB_LINE_ID,
5047: X_RETURN_STATUS => l_return_status,
5048: X_MSG_COUNT => l_msg_count,
5049: X_MSG_DATA => l_msg_data);
5075:
5076: l_DISB_HEADER_REC.DISB_HEADER_ID := l_DISB_LINE_REC.DISB_HEADER_ID;
5077: UPDATE_DISB_HEADER(
5078: P_API_VERSION => 1.0,
5079: P_INIT_MSG_LIST => FND_API.G_FALSE,
5080: P_COMMIT => FND_API.G_FALSE,
5081: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
5082: P_DISB_HEADER_REC => l_DISB_HEADER_REC,
5083: X_RETURN_STATUS => l_return_status,
5076: l_DISB_HEADER_REC.DISB_HEADER_ID := l_DISB_LINE_REC.DISB_HEADER_ID;
5077: UPDATE_DISB_HEADER(
5078: P_API_VERSION => 1.0,
5079: P_INIT_MSG_LIST => FND_API.G_FALSE,
5080: P_COMMIT => FND_API.G_FALSE,
5081: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
5082: P_DISB_HEADER_REC => l_DISB_HEADER_REC,
5083: X_RETURN_STATUS => l_return_status,
5084: X_MSG_COUNT => l_msg_count,
5077: UPDATE_DISB_HEADER(
5078: P_API_VERSION => 1.0,
5079: P_INIT_MSG_LIST => FND_API.G_FALSE,
5080: P_COMMIT => FND_API.G_FALSE,
5081: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
5082: P_DISB_HEADER_REC => l_DISB_HEADER_REC,
5083: X_RETURN_STATUS => l_return_status,
5084: X_MSG_COUNT => l_msg_count,
5085: X_MSG_DATA => l_msg_data);
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:
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;
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;
5123:
5124: -- END OF BODY OF API
5125: x_return_status := FND_API.G_RET_STS_SUCCESS;
5121: RAISE FND_API.G_EXC_ERROR;
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(
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,
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 || ' -');
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;
5139: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5140:
5141: if x_msg_count = 0 then
5142: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBMIT_DISB_FAILED');
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:
5336: -- START OF BODY OF API
5337:
5338: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Processing payment...');
5393:
5394: -- updating disb line
5395: UPDATE_DISB_LINE(
5396: P_API_VERSION => 1.0,
5397: P_INIT_MSG_LIST => FND_API.G_TRUE,
5398: P_COMMIT => FND_API.G_FALSE,
5399: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
5400: P_DISB_LINE_REC => l_DISB_LINE_REC,
5401: X_RETURN_STATUS => l_return_status,
5394: -- updating disb line
5395: UPDATE_DISB_LINE(
5396: P_API_VERSION => 1.0,
5397: P_INIT_MSG_LIST => FND_API.G_TRUE,
5398: P_COMMIT => FND_API.G_FALSE,
5399: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
5400: P_DISB_LINE_REC => l_DISB_LINE_REC,
5401: X_RETURN_STATUS => l_return_status,
5402: X_MSG_COUNT => l_msg_count,
5395: UPDATE_DISB_LINE(
5396: P_API_VERSION => 1.0,
5397: P_INIT_MSG_LIST => FND_API.G_TRUE,
5398: P_COMMIT => FND_API.G_FALSE,
5399: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
5400: P_DISB_LINE_REC => l_DISB_LINE_REC,
5401: X_RETURN_STATUS => l_return_status,
5402: X_MSG_COUNT => l_msg_count,
5403: X_MSG_DATA => l_msg_data);
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
5411: open funded_count_cur(l_DISB_HEADER_REC.DISB_HEADER_ID);
5425:
5426: -- updating disb header
5427: UPDATE_DISB_HEADER(
5428: P_API_VERSION => 1.0,
5429: P_INIT_MSG_LIST => FND_API.G_TRUE,
5430: P_COMMIT => FND_API.G_FALSE,
5431: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
5432: P_DISB_HEADER_REC => l_DISB_HEADER_REC,
5433: X_RETURN_STATUS => l_return_status,
5426: -- updating disb header
5427: UPDATE_DISB_HEADER(
5428: P_API_VERSION => 1.0,
5429: P_INIT_MSG_LIST => FND_API.G_TRUE,
5430: P_COMMIT => FND_API.G_FALSE,
5431: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
5432: P_DISB_HEADER_REC => l_DISB_HEADER_REC,
5433: X_RETURN_STATUS => l_return_status,
5434: X_MSG_COUNT => l_msg_count,
5427: UPDATE_DISB_HEADER(
5428: P_API_VERSION => 1.0,
5429: P_INIT_MSG_LIST => FND_API.G_TRUE,
5430: P_COMMIT => FND_API.G_FALSE,
5431: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
5432: P_DISB_HEADER_REC => l_DISB_HEADER_REC,
5433: X_RETURN_STATUS => l_return_status,
5434: X_MSG_COUNT => l_msg_count,
5435: X_MSG_DATA => l_msg_data);
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);
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,
5479: p_phase => 'OPEN',
5480: p_loan_id => l_loan_header_rec.loan_id,
5481: p_disb_head_id => l_DISB_HEADER_REC.DISB_HEADER_ID,
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,
5479: p_phase => 'OPEN',
5480: p_loan_id => l_loan_header_rec.loan_id,
5481: p_disb_head_id => l_DISB_HEADER_REC.DISB_HEADER_ID,
5482: x_return_status => l_return_status,
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...');
5493: -- creating accounting event
5498: l_event_table(1).DISB_HEADER_ID := l_DISB_HEADER_REC.DISB_HEADER_ID;
5499:
5500: LNS_DISTRIBUTIONS_PUB.create_event(
5501: p_acc_event_tbl => l_event_table,
5502: p_init_msg_list => FND_API.G_TRUE,
5503: p_commit => FND_API.G_FALSE,
5504: x_return_status => l_return_status,
5505: x_msg_count => l_msg_count,
5506: x_msg_data => l_msg_data);
5499:
5500: LNS_DISTRIBUTIONS_PUB.create_event(
5501: p_acc_event_tbl => l_event_table,
5502: p_init_msg_list => FND_API.G_TRUE,
5503: p_commit => FND_API.G_FALSE,
5504: x_return_status => l_return_status,
5505: x_msg_count => l_msg_count,
5506: x_msg_data => l_msg_data);
5507:
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;
5515:
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);
5551: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New first payment date: ' || l_loan_details.first_payment_Date);
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);
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
5592:
5592:
5593: l_loan_header_rec.LOAN_START_DATE := l_loan_details.loan_start_date;
5594: l_loan_header_rec.LOAN_MATURITY_DATE := l_loan_details.maturity_date;
5595: l_loan_header_rec.current_phase := 'TERM';
5596: l_loan_header_rec.LAST_PAYMENT_NUMBER := FND_API.G_MISS_NUM;
5597: l_loan_header_rec.LAST_AMORTIZATION_ID := FND_API.G_MISS_NUM;
5598:
5599: if l_loan_header_rec.current_phase = 'OPEN' then
5600: l_loan_header_rec.secondary_status := 'CONVERTED_TO_TERM_PHASE';
5593: l_loan_header_rec.LOAN_START_DATE := l_loan_details.loan_start_date;
5594: l_loan_header_rec.LOAN_MATURITY_DATE := l_loan_details.maturity_date;
5595: l_loan_header_rec.current_phase := 'TERM';
5596: l_loan_header_rec.LAST_PAYMENT_NUMBER := FND_API.G_MISS_NUM;
5597: l_loan_header_rec.LAST_AMORTIZATION_ID := FND_API.G_MISS_NUM;
5598:
5599: if l_loan_header_rec.current_phase = 'OPEN' then
5600: l_loan_header_rec.secondary_status := 'CONVERTED_TO_TERM_PHASE';
5601: else
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:
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(
5645: p_init_msg_list => FND_API.G_TRUE,
5641: RAISE FND_API.G_EXC_ERROR;
5642: END IF;
5643:
5644: lns_fee_engine.processDisbursementFees(
5645: p_init_msg_list => FND_API.G_TRUE,
5646: p_commit => FND_API.G_FALSE,
5647: p_phase => 'TERM',
5648: p_loan_id => l_loan_header_rec.loan_id,
5649: p_disb_head_id => null,
5642: END IF;
5643:
5644: lns_fee_engine.processDisbursementFees(
5645: p_init_msg_list => FND_API.G_TRUE,
5646: p_commit => FND_API.G_FALSE,
5647: p_phase => 'TERM',
5648: p_loan_id => l_loan_header_rec.loan_id,
5649: p_disb_head_id => null,
5650: x_return_status => l_return_status,
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);
5708: end if;
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:
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;
5753:
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);
5778: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New open first payment date: ' || l_loan_details.first_payment_Date);
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;
5817: l_term_rec.NEXT_PAYMENT_DUE_DATE := l_loan_details.first_payment_Date;
5828:
5829:
5830:
5831: LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_TERM_VERSION_NUMBER,
5832: p_init_msg_list => FND_API.G_FALSE,
5833: p_loan_term_rec => l_term_rec,
5834: X_RETURN_STATUS => l_return_status,
5835: X_MSG_COUNT => l_msg_count,
5836: X_MSG_DATA => l_msg_data);
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
5851: l_loan_header_rec.LOAN_START_DATE := l_loan_details.loan_start_date;
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);
5876: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New first payment date: ' || l_loan_details.first_payment_Date);
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);
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
5917: l_loan_header_rec.LOAN_START_DATE := l_loan_details.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:
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;
5963:
5999: ,'', '', FALSE
6000: ,l_loan_header_rec.loan_id,'Y');
6001:
6002: if l_request_id = 0 then
6003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6004: FND_MESSAGE.SET_NAME('LNS', 'LNS_AGREEMENT_REQUEST_FAILED');
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;
6003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6004: FND_MESSAGE.SET_NAME('LNS', 'LNS_AGREEMENT_REQUEST_FAILED');
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:
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:
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
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,
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 || ' -');
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;
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');
6033:
6034: EXCEPTION
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;
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);
6044: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
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);
6044: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6045: WHEN OTHERS THEN
6046: ROLLBACK TO PAY_SINGLE_INVOICE;
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
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);
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:
6130: -- START OF BODY OF API
6131:
6132: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Processing payment event...');
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;
6161: close get_invoice_cur;
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:
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
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,
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 || ' -');
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;
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');
6178:
6179: EXCEPTION
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;
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);
6189: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
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);
6189: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6190: WHEN OTHERS THEN
6191: ROLLBACK TO SubscribeTo_Payment_Event;
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
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);
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;
6286: END IF;
6287:
6288: -- Initialize message list if p_init_msg_list is set to TRUE
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;
6286: END IF;
6287:
6288: -- Initialize message list if p_init_msg_list is set to TRUE
6289: IF FND_API.To_Boolean(p_init_msg_list) THEN
6285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6286: END IF;
6287:
6288: -- Initialize message list if p_init_msg_list is set to TRUE
6289: IF FND_API.To_Boolean(p_init_msg_list) THEN
6290: FND_MSG_PUB.initialize;
6291: END IF;
6292:
6293: -- Initialize API return status to success
6290: FND_MSG_PUB.initialize;
6291: END IF;
6292:
6293: -- Initialize API return status to success
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...');
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;
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:
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;
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
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,
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 || ' -');
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;
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');
6341:
6342: EXCEPTION
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;
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);
6352: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
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);
6352: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6353: WHEN OTHERS THEN
6354: ROLLBACK TO COMPLETE_ALL_DISB;
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
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);
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;
6476: END IF;
6477:
6478: -- Initialize API return status to success
6475: FND_MSG_PUB.initialize;
6476: END IF;
6477:
6478: -- Initialize API return status to success
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...');
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;
6560:
6585:
6586: -- updating disb line
6587: UPDATE_DISB_LINE(
6588: P_API_VERSION => 1.0,
6589: P_INIT_MSG_LIST => FND_API.G_TRUE,
6590: P_COMMIT => FND_API.G_FALSE,
6591: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
6592: P_DISB_LINE_REC => l_DISB_LINE_REC,
6593: X_RETURN_STATUS => l_return_status,
6586: -- updating disb line
6587: UPDATE_DISB_LINE(
6588: P_API_VERSION => 1.0,
6589: P_INIT_MSG_LIST => FND_API.G_TRUE,
6590: P_COMMIT => FND_API.G_FALSE,
6591: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
6592: P_DISB_LINE_REC => l_DISB_LINE_REC,
6593: X_RETURN_STATUS => l_return_status,
6594: X_MSG_COUNT => l_msg_count,
6587: UPDATE_DISB_LINE(
6588: P_API_VERSION => 1.0,
6589: P_INIT_MSG_LIST => FND_API.G_TRUE,
6590: P_COMMIT => FND_API.G_FALSE,
6591: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
6592: P_DISB_LINE_REC => l_DISB_LINE_REC,
6593: X_RETURN_STATUS => l_return_status,
6594: X_MSG_COUNT => l_msg_count,
6595: X_MSG_DATA => l_msg_data);
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;
6603:
6616:
6617: -- updating disb header
6618: UPDATE_DISB_HEADER(
6619: P_API_VERSION => 1.0,
6620: P_INIT_MSG_LIST => FND_API.G_TRUE,
6621: P_COMMIT => FND_API.G_FALSE,
6622: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
6623: P_DISB_HEADER_REC => l_DISB_HEADER_REC,
6624: X_RETURN_STATUS => l_return_status,
6617: -- updating disb header
6618: UPDATE_DISB_HEADER(
6619: P_API_VERSION => 1.0,
6620: P_INIT_MSG_LIST => FND_API.G_TRUE,
6621: P_COMMIT => FND_API.G_FALSE,
6622: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
6623: P_DISB_HEADER_REC => l_DISB_HEADER_REC,
6624: X_RETURN_STATUS => l_return_status,
6625: X_MSG_COUNT => l_msg_count,
6618: UPDATE_DISB_HEADER(
6619: P_API_VERSION => 1.0,
6620: P_INIT_MSG_LIST => FND_API.G_TRUE,
6621: P_COMMIT => FND_API.G_FALSE,
6622: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
6623: P_DISB_HEADER_REC => l_DISB_HEADER_REC,
6624: X_RETURN_STATUS => l_return_status,
6625: X_MSG_COUNT => l_msg_count,
6626: X_MSG_DATA => l_msg_data);
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;
6634:
6631: END IF;
6632:
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:
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;
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
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,
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 || ' -');
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;
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');
6652:
6653: EXCEPTION
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;
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);
6663: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
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);
6663: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6664: WHEN OTHERS THEN
6665: ROLLBACK TO CANCEL_SINGLE_DISB;
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
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);
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;
6771: END IF;
6772:
6773: -- Initialize message list if p_init_msg_list is set to TRUE
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;
6771: END IF;
6772:
6773: -- Initialize message list if p_init_msg_list is set to TRUE
6774: IF FND_API.To_Boolean(p_init_msg_list) THEN
6770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6771: END IF;
6772:
6773: -- Initialize message list if p_init_msg_list is set to TRUE
6774: IF FND_API.To_Boolean(p_init_msg_list) THEN
6775: FND_MSG_PUB.initialize;
6776: END IF;
6777:
6778: -- Initialize API return status to success
6775: FND_MSG_PUB.initialize;
6776: END IF;
6777:
6778: -- Initialize API return status to success
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...');
6794: exit when avail_disb_cur%NOTFOUND;
6795:
6796: CANCEL_SINGLE_DISB(
6797: P_API_VERSION => 1.0,
6798: P_INIT_MSG_LIST => FND_API.G_TRUE,
6799: P_COMMIT => FND_API.G_FALSE,
6800: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
6801: P_DISB_HEADER_ID => l_disb_header_id,
6802: X_RETURN_STATUS => l_return_status,
6795:
6796: CANCEL_SINGLE_DISB(
6797: P_API_VERSION => 1.0,
6798: P_INIT_MSG_LIST => FND_API.G_TRUE,
6799: P_COMMIT => FND_API.G_FALSE,
6800: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
6801: P_DISB_HEADER_ID => l_disb_header_id,
6802: X_RETURN_STATUS => l_return_status,
6803: X_MSG_COUNT => l_msg_count,
6796: CANCEL_SINGLE_DISB(
6797: P_API_VERSION => 1.0,
6798: P_INIT_MSG_LIST => FND_API.G_TRUE,
6799: P_COMMIT => FND_API.G_FALSE,
6800: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
6801: P_DISB_HEADER_ID => l_disb_header_id,
6802: X_RETURN_STATUS => l_return_status,
6803: X_MSG_COUNT => l_msg_count,
6804: X_MSG_DATA => l_msg_data);
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;
6812: close avail_disb_cur;
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:
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');
6853: -- Cancel budgetary disbursements if needed
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
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;
6866:
6867: IF P_COMMIT = FND_API.G_TRUE THEN
6868: COMMIT WORK;
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
6868: COMMIT WORK;
6869: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
6870: END IF;
6871:
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;
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
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,
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 || ' -');
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;
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');
6884:
6885: EXCEPTION
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;
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);
6895: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
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);
6895: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6896: WHEN OTHERS THEN
6897: ROLLBACK TO APPROVE_CANCEL_REM_DISB;
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
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);
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;
7003: END IF;
7004:
7005: -- Initialize message list if p_init_msg_list is set to TRUE
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;
7003: END IF;
7004:
7005: -- Initialize message list if p_init_msg_list is set to TRUE
7006: IF FND_API.To_Boolean(p_init_msg_list) THEN
7002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7003: END IF;
7004:
7005: -- Initialize message list if p_init_msg_list is set to TRUE
7006: IF FND_API.To_Boolean(p_init_msg_list) THEN
7007: FND_MSG_PUB.initialize;
7008: END IF;
7009:
7010: -- Initialize API return status to success
7007: FND_MSG_PUB.initialize;
7008: END IF;
7009:
7010: -- Initialize API return status to success
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...');
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:
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
7055: COMMIT WORK;
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
7055: COMMIT WORK;
7056: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
7057: end if;
7058:
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;
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
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,
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 || ' -');
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;
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');
7071:
7072: EXCEPTION
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;
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);
7082: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
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);
7082: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7083: WHEN OTHERS THEN
7084: ROLLBACK TO REJECT_CANCEL_DISB;
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
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);
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;
7182: END IF;
7183:
7184: -- Initialize message list if p_init_msg_list is set to TRUE
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;
7182: END IF;
7183:
7184: -- Initialize message list if p_init_msg_list is set to TRUE
7185: IF FND_API.To_Boolean(p_init_msg_list) THEN
7181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7182: END IF;
7183:
7184: -- Initialize message list if p_init_msg_list is set to TRUE
7185: IF FND_API.To_Boolean(p_init_msg_list) THEN
7186: FND_MSG_PUB.initialize;
7187: END IF;
7188:
7189: -- Initialize API return status to success
7186: FND_MSG_PUB.initialize;
7187: END IF;
7188:
7189: -- Initialize API return status to success
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...');
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:
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
7237:
7236: else
7237:
7238: APPROVE_CANCEL_REM_DISB(
7239: P_API_VERSION => 1.0,
7240: P_INIT_MSG_LIST => FND_API.G_FALSE,
7241: P_COMMIT => FND_API.G_FALSE,
7242: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
7243: P_LOAN_ID => P_LOAN_ID,
7244: X_RETURN_STATUS => l_return_status,
7237:
7238: APPROVE_CANCEL_REM_DISB(
7239: P_API_VERSION => 1.0,
7240: P_INIT_MSG_LIST => FND_API.G_FALSE,
7241: P_COMMIT => FND_API.G_FALSE,
7242: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
7243: P_LOAN_ID => P_LOAN_ID,
7244: X_RETURN_STATUS => l_return_status,
7245: X_MSG_COUNT => l_msg_count,
7238: APPROVE_CANCEL_REM_DISB(
7239: P_API_VERSION => 1.0,
7240: P_INIT_MSG_LIST => FND_API.G_FALSE,
7241: P_COMMIT => FND_API.G_FALSE,
7242: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
7243: P_LOAN_ID => P_LOAN_ID,
7244: X_RETURN_STATUS => l_return_status,
7245: X_MSG_COUNT => l_msg_count,
7246: X_MSG_DATA => l_msg_data);
7245: X_MSG_COUNT => l_msg_count,
7246: X_MSG_DATA => l_msg_data);
7247:
7248: IF l_return_status <> 'S' THEN
7249: RAISE FND_API.G_EXC_ERROR;
7250: END IF;
7251:
7252: end if;
7253:
7250: END IF;
7251:
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:
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;
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
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,
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 || ' -');
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;
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');
7271:
7272: EXCEPTION
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;
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);
7282: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
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);
7282: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7283: WHEN OTHERS THEN
7284: ROLLBACK TO CANCEL_DISB_SCHEDULE;
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
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);
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;
7825: END IF;
7826:
7827: -- Initialize message list if p_init_msg_list is set to TRUE
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;
7825: END IF;
7826:
7827: -- Initialize message list if p_init_msg_list is set to TRUE
7828: IF FND_API.To_Boolean(p_init_msg_list) THEN
7824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7825: END IF;
7826:
7827: -- Initialize message list if p_init_msg_list is set to TRUE
7828: IF FND_API.To_Boolean(p_init_msg_list) THEN
7829: FND_MSG_PUB.initialize;
7830: END IF;
7831:
7832: -- Initialize API return status to success
7829: FND_MSG_PUB.initialize;
7830: END IF;
7831:
7832: -- Initialize API return status to success
7833: l_return_status := FND_API.G_RET_STS_SUCCESS;
7834:
7835: -- START OF BODY OF API
7836:
7837: -- getting disbursement header info
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:
7856: X_RETURN_STATUS := l_return_status;
7863:
7864: -- validate headers and lines
7865: VALIDATE_DISB_HEADERS(
7866: P_API_VERSION => 1.0,
7867: P_INIT_MSG_LIST => FND_API.G_TRUE,
7868: P_COMMIT => FND_API.G_FALSE,
7869: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
7870: P_LOAN_ID => P_LOAN_ID,
7871: X_RETURN_STATUS => l_return_status,
7864: -- validate headers and lines
7865: VALIDATE_DISB_HEADERS(
7866: P_API_VERSION => 1.0,
7867: P_INIT_MSG_LIST => FND_API.G_TRUE,
7868: P_COMMIT => FND_API.G_FALSE,
7869: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
7870: P_LOAN_ID => P_LOAN_ID,
7871: X_RETURN_STATUS => l_return_status,
7872: X_MSG_COUNT => l_msg_count,
7865: VALIDATE_DISB_HEADERS(
7866: P_API_VERSION => 1.0,
7867: P_INIT_MSG_LIST => FND_API.G_TRUE,
7868: P_COMMIT => FND_API.G_FALSE,
7869: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
7870: P_LOAN_ID => P_LOAN_ID,
7871: X_RETURN_STATUS => l_return_status,
7872: X_MSG_COUNT => l_msg_count,
7873: X_MSG_DATA => l_msg_data);
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(
7881: P_API_VERSION => 1.0,
7878: END IF;
7879:
7880: VALIDATE_DISB_FOR_SUBMIT(
7881: P_API_VERSION => 1.0,
7882: P_INIT_MSG_LIST => FND_API.G_TRUE,
7883: P_COMMIT => FND_API.G_FALSE,
7884: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
7885: P_DISB_HEADER_ID => l_DISB_HEADER_REC.DISB_HEADER_ID,
7886: X_RETURN_STATUS => l_return_status,
7879:
7880: VALIDATE_DISB_FOR_SUBMIT(
7881: P_API_VERSION => 1.0,
7882: P_INIT_MSG_LIST => FND_API.G_TRUE,
7883: P_COMMIT => FND_API.G_FALSE,
7884: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
7885: P_DISB_HEADER_ID => l_DISB_HEADER_REC.DISB_HEADER_ID,
7886: X_RETURN_STATUS => l_return_status,
7887: X_MSG_COUNT => l_msg_count,
7880: VALIDATE_DISB_FOR_SUBMIT(
7881: P_API_VERSION => 1.0,
7882: P_INIT_MSG_LIST => FND_API.G_TRUE,
7883: P_COMMIT => FND_API.G_FALSE,
7884: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
7885: P_DISB_HEADER_ID => l_DISB_HEADER_REC.DISB_HEADER_ID,
7886: X_RETURN_STATUS => l_return_status,
7887: X_MSG_COUNT => l_msg_count,
7888: X_MSG_DATA => l_msg_data);
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
7896: open conditions_cur(l_DISB_HEADER_REC.DISB_HEADER_ID);
7899:
7900: if l_cond_count > 0 then
7901: FND_MESSAGE.SET_NAME('LNS', 'LNS_AUTOFUND_AND_MAND_CONDIT');
7902: FND_MSG_PUB.Add;
7903: RAISE FND_API.G_EXC_ERROR;
7904: end if;
7905:
7906: end if;
7907:
7913: l_DISB_HEADER_REC.AUTOFUNDING_FLAG := P_AUTOFUNDING_FLAG;
7914:
7915: UPDATE_DISB_HEADER(
7916: P_API_VERSION => 1.0,
7917: P_INIT_MSG_LIST => FND_API.G_TRUE,
7918: P_COMMIT => FND_API.G_FALSE,
7919: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
7920: P_DISB_HEADER_REC => l_DISB_HEADER_REC,
7921: X_RETURN_STATUS => l_return_status,
7914:
7915: UPDATE_DISB_HEADER(
7916: P_API_VERSION => 1.0,
7917: P_INIT_MSG_LIST => FND_API.G_TRUE,
7918: P_COMMIT => FND_API.G_FALSE,
7919: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
7920: P_DISB_HEADER_REC => l_DISB_HEADER_REC,
7921: X_RETURN_STATUS => l_return_status,
7922: X_MSG_COUNT => l_msg_count,
7915: UPDATE_DISB_HEADER(
7916: P_API_VERSION => 1.0,
7917: P_INIT_MSG_LIST => FND_API.G_TRUE,
7918: P_COMMIT => FND_API.G_FALSE,
7919: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
7920: P_DISB_HEADER_REC => l_DISB_HEADER_REC,
7921: X_RETURN_STATUS => l_return_status,
7922: X_MSG_COUNT => l_msg_count,
7923: X_MSG_DATA => l_msg_data);
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');
7931:
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');
7935: end if;
7936:
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;
7939:
7940: -- Standard call to get message count and if count is 1, get message info
7941: FND_MSG_PUB.Count_And_Get(
7942: p_encoded => FND_API.G_FALSE,
7938: x_return_status := FND_API.G_RET_STS_SUCCESS;
7939:
7940: -- Standard call to get message count and if count is 1, get message info
7941: FND_MSG_PUB.Count_And_Get(
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 || ' -');
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;
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');
7947:
7948: EXCEPTION
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;
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);
7958: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
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);
7958: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7959: WHEN OTHERS THEN
7960: ROLLBACK TO SET_AUTOFUNDING;
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
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);
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;
8650: END IF;
8651:
8652: -- Initialize message list if p_init_msg_list is set to TRUE
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;
8650: END IF;
8651:
8652: -- Initialize message list if p_init_msg_list is set to TRUE
8653: IF FND_API.To_Boolean(p_init_msg_list) THEN
8649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8650: END IF;
8651:
8652: -- Initialize message list if p_init_msg_list is set to TRUE
8653: IF FND_API.To_Boolean(p_init_msg_list) THEN
8654: FND_MSG_PUB.initialize;
8655: END IF;
8656:
8657: -- Initialize API return status to success
8654: FND_MSG_PUB.initialize;
8655: END IF;
8656:
8657: -- Initialize API return status to success
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...');
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');
8677:
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:
8681: -- Standard call to get message count and if count is 1, get message info
8682: FND_MSG_PUB.Count_And_Get(
8683: p_encoded => FND_API.G_FALSE,
8679: x_return_status := FND_API.G_RET_STS_SUCCESS;
8680:
8681: -- Standard call to get message count and if count is 1, get message info
8682: FND_MSG_PUB.Count_And_Get(
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 || ' -');
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;
8692: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
8692: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8695: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8689: EXCEPTION
8690: WHEN FND_API.G_EXC_ERROR THEN
8691: x_return_status := FND_API.G_RET_STS_ERROR;
8692: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8695: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8696: WHEN OTHERS THEN
8697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8690: WHEN FND_API.G_EXC_ERROR THEN
8691: x_return_status := FND_API.G_RET_STS_ERROR;
8692: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8695: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8696: WHEN OTHERS THEN
8697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8698: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
8693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8695: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8696: WHEN OTHERS THEN
8697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8698: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
8699: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
8700: END IF;
8701: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);