137:
138: --dbms_output.put_line('Site use number is ' || l_num_acct_site_uses);
139: if l_valid_acct_site_party <> 'Y' then
140: FND_MESSAGE.SET_NAME('LNS', 'LNS_BORROWER_NO_BILL_TO');
141: FND_MSG_PUB.ADD;
142: RAISE FND_API.G_EXC_ERROR;
143: end if;
144: exception
145: when NO_DATA_FOUND then
143: end if;
144: exception
145: when NO_DATA_FOUND then
146: FND_MESSAGE.SET_NAME('LNS', 'LNS_BORROWER_NO_BILL_TO');
147: FND_MSG_PUB.ADD;
148: RAISE FND_API.G_EXC_ERROR;
149: End;
150:
151: end if; --end if (l_loan_participant_type = 'PRIMARY_BORROWER') then
163: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
164: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
165: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
166: FND_MESSAGE.SET_TOKEN('VALUE', l_loan_id);
167: FND_MSG_PUB.ADD;
168: RAISE FND_API.G_EXC_ERROR;
169: end if;
170:
171: END IF;
188: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
189: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
190: FND_MESSAGE.SET_TOKEN('PARAMETER', 'HZ_PARTY_ID');
191: FND_MESSAGE.SET_TOKEN('VALUE', l_hz_party_id);
192: FND_MSG_PUB.ADD;
193: RAISE FND_API.G_EXC_ERROR;
194: end if;
195:
196: END IF;
213: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
214: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
215: FND_MESSAGE.SET_TOKEN('PARAMETER', 'PARTICIPANT_TYPE');
216: FND_MESSAGE.SET_TOKEN('VALUE', l_loan_participant_type);
217: FND_MSG_PUB.ADD;
218: RAISE FND_API.G_EXC_ERROR;
219: end if;
220:
221: END IF;
237: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
238: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
239: FND_MESSAGE.SET_TOKEN('PARAMETER', 'CUST_ACCOUNT_ID');
240: FND_MESSAGE.SET_TOKEN('VALUE', l_cust_account_id);
241: FND_MSG_PUB.ADD;
242: RAISE FND_API.G_EXC_ERROR;
243: end if;
244:
245: END IF;
249: if l_start_date is not null then
250: if l_end_date is not null then
251: if trunc(l_start_date) > trunc(l_end_date) then
252: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_ACTIVE_DATE');
253: FND_MSG_PUB.ADD;
254: RAISE FND_API.G_EXC_ERROR;
255: end if;
256: end if;
257: end if;
266: EXCEPTION
267: WHEN FND_API.G_EXC_ERROR THEN
268: --ROLLBACK TO validateParticipant;
269: x_return_status := FND_API.G_RET_STS_ERROR;
270: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
271:
272: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
273: --ROLLBACK TO validateParticipant;
274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271:
272: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
273: --ROLLBACK TO validateParticipant;
274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
275: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
276:
277: WHEN OTHERS THEN
278: --ROLLBACK TO Validate_any_id_PVT;
279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
276:
277: WHEN OTHERS THEN
278: --ROLLBACK TO Validate_any_id_PVT;
279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
280: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
281:
282: END validateParticipant;
283:
284: PROCEDURE do_create_participant(p_loan_participant_rec IN OUT NOCOPY loan_participant_rec_type,
414: SAVEPOINT createParticipant;
415:
416: -- initialize message list if l_init_msg_list is set to TRUE.
417: IF FND_API.to_Boolean(l_init_msg_list) THEN
418: FND_MSG_PUB.initialize;
419: END IF;
420: -- Get the default values of ContactPerson PartyId and ContactRel PartyId
421: getDefaultPrimaryContact(p_loan_participant_rec => l_loan_participant_rec,
422: x_return_status => l_return_status,
442: close c_get_party_type;
443:
444: if (l_party_type <> l_loan_party_type OR l_party_type NOT IN ('ORGANIZATION','PERSON')) then
445: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_PARTY_TYPE');
446: FND_MSG_PUB.ADD;
447: RAISE FND_API.G_EXC_ERROR;
448: end if;
449:
450: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
471: OPEN CheckDupParty(l_loan_id,l_hz_party_id);
472: FETCH CheckDupParty INTO l_dup_party_count;
473: IF (l_dup_party_count > 0) THEN
474: FND_MESSAGE.SET_NAME('LNS', 'LNS_PARTICIPANT_DUP_PARTY');
475: FND_MSG_PUB.ADD;
476: RAISE FND_API.G_EXC_ERROR;
477: END IF;
478:
479: if (l_loan_credit_review_flag = 'Y' and l_loan_status = 'INCOMPLETE' and (l_loan_sec_status is null OR l_loan_sec_status NOT IN ('IN_CREDIT_REVIEW','CREDIT_REVIEW_COMPLETE'))) then
521: WHEN FND_API.G_EXC_ERROR THEN
522: x_return_status := FND_API.G_RET_STS_ERROR;
523: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
524: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
525: FND_MSG_PUB.ADD;
526: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
527: ROLLBACK TO createParticipant;
528:
529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
522: x_return_status := FND_API.G_RET_STS_ERROR;
523: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
524: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
525: FND_MSG_PUB.ADD;
526: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
527: ROLLBACK TO createParticipant;
528:
529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
530: x_return_status := FND_API.G_RET_STS_ERROR;
529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
530: x_return_status := FND_API.G_RET_STS_ERROR;
531: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
532: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
533: FND_MSG_PUB.ADD;
534: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
535: ROLLBACK TO createParticipant;
536:
537: WHEN OTHERS THEN
530: x_return_status := FND_API.G_RET_STS_ERROR;
531: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
532: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
533: FND_MSG_PUB.ADD;
534: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
535: ROLLBACK TO createParticipant;
536:
537: WHEN OTHERS THEN
538: x_return_status := FND_API.G_RET_STS_ERROR;
537: WHEN OTHERS THEN
538: x_return_status := FND_API.G_RET_STS_ERROR;
539: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
540: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
541: FND_MSG_PUB.ADD;
542: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
543: ROLLBACK TO createParticipant;
544:
545: END createParticipant;
538: x_return_status := FND_API.G_RET_STS_ERROR;
539: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
540: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
541: FND_MSG_PUB.ADD;
542: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
543: ROLLBACK TO createParticipant;
544:
545: END createParticipant;
546:
578: END IF;
579:
580: -- initialize message list if l_init_msg_list is set to TRUE.
581: IF FND_API.to_Boolean(l_init_msg_list) THEN
582: FND_MSG_PUB.initialize;
583: END IF;
584:
585:
586: -- Get the default values of ContactPerson PartyId and ContactRel PartyId
613: )
614: THEN
615: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_RECORD_CHANGED');
616: FND_MESSAGE.SET_TOKEN('TABLE', 'lns_participants');
617: FND_MSG_PUB.ADD;
618: RAISE FND_API.G_EXC_ERROR;
619: END IF;
620:
621: x_object_version_number := nvl(x_object_version_number, 1) + 1;
623: EXCEPTION WHEN NO_DATA_FOUND THEN
624: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
625: FND_MESSAGE.SET_TOKEN('RECORD', 'loan participant');
626: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_loan_participant_rec.participant_id), 'null'));
627: FND_MSG_PUB.ADD;
628: RAISE FND_API.G_EXC_ERROR;
629: END;
630:
631: if (p_validation_level = FND_API.G_VALID_LEVEL_FULL) then
704: WHEN FND_API.G_EXC_ERROR THEN
705: x_return_status := FND_API.G_RET_STS_ERROR;
706: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
707: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
708: FND_MSG_PUB.ADD;
709: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
710: ROLLBACK TO updateParticipant;
711:
712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
705: x_return_status := FND_API.G_RET_STS_ERROR;
706: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
707: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
708: FND_MSG_PUB.ADD;
709: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
710: ROLLBACK TO updateParticipant;
711:
712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
713: x_return_status := FND_API.G_RET_STS_ERROR;
712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
713: x_return_status := FND_API.G_RET_STS_ERROR;
714: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
715: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
716: FND_MSG_PUB.ADD;
717: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
718: ROLLBACK TO updateParticipant;
719:
720: WHEN OTHERS THEN
713: x_return_status := FND_API.G_RET_STS_ERROR;
714: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
715: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
716: FND_MSG_PUB.ADD;
717: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
718: ROLLBACK TO updateParticipant;
719:
720: WHEN OTHERS THEN
721: x_return_status := FND_API.G_RET_STS_ERROR;
720: WHEN OTHERS THEN
721: x_return_status := FND_API.G_RET_STS_ERROR;
722: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
723: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
724: FND_MSG_PUB.ADD;
725: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
726: ROLLBACK TO updateParticipant;
727:
728: END updateParticipant;
721: x_return_status := FND_API.G_RET_STS_ERROR;
722: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
723: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
724: FND_MSG_PUB.ADD;
725: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
726: ROLLBACK TO updateParticipant;
727:
728: END updateParticipant;
729:
850: WHEN FND_API.G_EXC_ERROR THEN
851: x_return_status := FND_API.G_RET_STS_ERROR;
852: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
853: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
854: FND_MSG_PUB.ADD;
855: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
856: ROLLBACK TO createAppealCreditRequest;
857:
858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
851: x_return_status := FND_API.G_RET_STS_ERROR;
852: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
853: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
854: FND_MSG_PUB.ADD;
855: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
856: ROLLBACK TO createAppealCreditRequest;
857:
858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
859: x_return_status := FND_API.G_RET_STS_ERROR;
858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
859: x_return_status := FND_API.G_RET_STS_ERROR;
860: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
861: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
862: FND_MSG_PUB.ADD;
863: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
864: ROLLBACK TO createAppealCreditRequest;
865:
866: WHEN OTHERS THEN
859: x_return_status := FND_API.G_RET_STS_ERROR;
860: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
861: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
862: FND_MSG_PUB.ADD;
863: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
864: ROLLBACK TO createAppealCreditRequest;
865:
866: WHEN OTHERS THEN
867: x_return_status := FND_API.G_RET_STS_ERROR;
866: WHEN OTHERS THEN
867: x_return_status := FND_API.G_RET_STS_ERROR;
868: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
869: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
870: FND_MSG_PUB.ADD;
871: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
872: ROLLBACK TO createAppealCreditRequest;
873:
874: END createAppealCreditRequest;
867: x_return_status := FND_API.G_RET_STS_ERROR;
868: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
869: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
870: FND_MSG_PUB.ADD;
871: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
872: ROLLBACK TO createAppealCreditRequest;
873:
874: END createAppealCreditRequest;
875:
1005: x_msg_count := l_msg_count;
1006: x_msg_data := l_msg_data;
1007: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1008: FND_MESSAGE.Set_Name('LNS', 'LNS_CREDIT_REQUEST_API_FAILED');
1009: FND_MSG_PUB.Add;
1010: RAISE FND_API.G_EXC_ERROR;
1011: else
1012: p_loan_participant_rec.CREDIT_REQUEST_ID := l_credit_request_id;
1013: if (l_credit_request_type = 'RESUBMISSION') then
1109: x_msg_count := l_msg_count;
1110: x_msg_data := l_msg_data;
1111: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1112: FND_MESSAGE.Set_Name('LNS', 'LNS_G_CRDT_REQ_API_FAILED');
1113: FND_MSG_PUB.Add;
1114: RAISE FND_API.G_EXC_ERROR;
1115: else
1116: p_loan_participant_rec.CREDIT_REQUEST_ID := l_credit_request_id;
1117: end if;
1128: WHEN FND_API.G_EXC_ERROR THEN
1129: x_return_status := FND_API.G_RET_STS_ERROR;
1130: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1131: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
1132: FND_MSG_PUB.ADD;
1133: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1134: ROLLBACK TO createCreditRequest;
1135:
1136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1129: x_return_status := FND_API.G_RET_STS_ERROR;
1130: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1131: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
1132: FND_MSG_PUB.ADD;
1133: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1134: ROLLBACK TO createCreditRequest;
1135:
1136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1137: x_return_status := FND_API.G_RET_STS_ERROR;
1136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1137: x_return_status := FND_API.G_RET_STS_ERROR;
1138: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1139: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
1140: FND_MSG_PUB.ADD;
1141: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1142: ROLLBACK TO createCreditRequest;
1143:
1144: WHEN OTHERS THEN
1137: x_return_status := FND_API.G_RET_STS_ERROR;
1138: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1139: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
1140: FND_MSG_PUB.ADD;
1141: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1142: ROLLBACK TO createCreditRequest;
1143:
1144: WHEN OTHERS THEN
1145: x_return_status := FND_API.G_RET_STS_ERROR;
1144: WHEN OTHERS THEN
1145: x_return_status := FND_API.G_RET_STS_ERROR;
1146: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1147: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
1148: FND_MSG_PUB.ADD;
1149: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1150: ROLLBACK TO createCreditRequest;
1151:
1152: END createCreditRequest;
1145: x_return_status := FND_API.G_RET_STS_ERROR;
1146: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1147: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
1148: FND_MSG_PUB.ADD;
1149: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1150: ROLLBACK TO createCreditRequest;
1151:
1152: END createCreditRequest;
1153:
1217: WHEN FND_API.G_EXC_ERROR THEN
1218: x_return_status := FND_API.G_RET_STS_ERROR;
1219: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1220: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
1221: FND_MSG_PUB.ADD;
1222: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1223: ROLLBACK TO denormalizePrimaryInfo;
1224:
1225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1218: x_return_status := FND_API.G_RET_STS_ERROR;
1219: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1220: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
1221: FND_MSG_PUB.ADD;
1222: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1223: ROLLBACK TO denormalizePrimaryInfo;
1224:
1225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1226: x_return_status := FND_API.G_RET_STS_ERROR;
1225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1226: x_return_status := FND_API.G_RET_STS_ERROR;
1227: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1228: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
1229: FND_MSG_PUB.ADD;
1230: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1231: ROLLBACK TO denormalizePrimaryInfo;
1232:
1233: WHEN OTHERS THEN
1226: x_return_status := FND_API.G_RET_STS_ERROR;
1227: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1228: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
1229: FND_MSG_PUB.ADD;
1230: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1231: ROLLBACK TO denormalizePrimaryInfo;
1232:
1233: WHEN OTHERS THEN
1234: x_return_status := FND_API.G_RET_STS_ERROR;
1233: WHEN OTHERS THEN
1234: x_return_status := FND_API.G_RET_STS_ERROR;
1235: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1236: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
1237: FND_MSG_PUB.ADD;
1238: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1239: ROLLBACK TO denormalizePrimaryInfo;
1240: End denormalizePrimaryInfo;
1241:
1234: x_return_status := FND_API.G_RET_STS_ERROR;
1235: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1236: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: ' || l_last_api_called || ' SQLERRM: ' || SQLERRM);
1237: FND_MSG_PUB.ADD;
1238: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1239: ROLLBACK TO denormalizePrimaryInfo;
1240: End denormalizePrimaryInfo;
1241:
1242: ----------------------------------------------------------------
1325: COMMIT;
1326:
1327: else
1328:
1329: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1330: FND_MESSAGE.Set_Name('LNS', 'LNS_CRDT_REQ_SUBMIT_API_FAILED');
1331: FND_MSG_PUB.Add;
1332: RAISE FND_API.G_EXC_ERROR;
1333:
1327: else
1328:
1329: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1330: FND_MESSAGE.Set_Name('LNS', 'LNS_CRDT_REQ_SUBMIT_API_FAILED');
1331: FND_MSG_PUB.Add;
1332: RAISE FND_API.G_EXC_ERROR;
1333:
1334: end if;
1335:
1335:
1336: else
1337:
1338: FND_MESSAGE.Set_Name('LNS', 'LNS_CREDIT_REQUEST_NOT_FOUND');
1339: FND_MSG_PUB.Add;
1340: RAISE FND_API.G_EXC_ERROR;
1341:
1342: end if;
1343: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1610:
1611: EXCEPTION
1612: WHEN OTHERS THEN
1613: FND_MESSAGE.SET_TOKEN( 'GENERIC_TEXT' ,SQLERRM );
1614: FND_MSG_PUB.ADD;
1615: WF_CORE.CONTEXT(G_PKG_NAME,
1616: 'OCM_WORKFLOW_CREDIT_RECO_EVENT',
1617: p_event.getEventName(),
1618: p_subscription_guid);