2022:
2023: IF(P_REASON IS NULL OR P_REASON = '') THEN
2024: -- Retrieve default agreement reason
2025: FND_MESSAGE.SET_NAME('LNS', 'LNS_ORIG_AGR_REASON');
2026: FND_MSG_PUB.Add;
2027: l_reason := FND_MSG_PUB.Get(p_encoded => 'F');
2028: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
2029: ELSE
2030: l_reason := P_REASON;
2023: IF(P_REASON IS NULL OR P_REASON = '') THEN
2024: -- Retrieve default agreement reason
2025: FND_MESSAGE.SET_NAME('LNS', 'LNS_ORIG_AGR_REASON');
2026: FND_MSG_PUB.Add;
2027: l_reason := FND_MSG_PUB.Get(p_encoded => 'F');
2028: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
2029: ELSE
2030: l_reason := P_REASON;
2031: END IF;
2024: -- Retrieve default agreement reason
2025: FND_MESSAGE.SET_NAME('LNS', 'LNS_ORIG_AGR_REASON');
2026: FND_MSG_PUB.Add;
2027: l_reason := FND_MSG_PUB.Get(p_encoded => 'F');
2028: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
2029: ELSE
2030: l_reason := P_REASON;
2031: END IF;
2032:
2128:
2129: IF(P_AGREEMENT_REASON IS NULL OR P_AGREEMENT_REASON = '') THEN
2130: -- Retrieve default agreement reason
2131: FND_MESSAGE.SET_NAME('LNS', 'LNS_ORIG_AGR_REASON');
2132: FND_MSG_PUB.Add;
2133: l_reason := FND_MSG_PUB.Get(p_encoded => 'F');
2134: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
2135: ELSE
2136: l_reason := P_AGREEMENT_REASON;
2129: IF(P_AGREEMENT_REASON IS NULL OR P_AGREEMENT_REASON = '') THEN
2130: -- Retrieve default agreement reason
2131: FND_MESSAGE.SET_NAME('LNS', 'LNS_ORIG_AGR_REASON');
2132: FND_MSG_PUB.Add;
2133: l_reason := FND_MSG_PUB.Get(p_encoded => 'F');
2134: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
2135: ELSE
2136: l_reason := P_AGREEMENT_REASON;
2137: END IF;
2130: -- Retrieve default agreement reason
2131: FND_MESSAGE.SET_NAME('LNS', 'LNS_ORIG_AGR_REASON');
2132: FND_MSG_PUB.Add;
2133: l_reason := FND_MSG_PUB.Get(p_encoded => 'F');
2134: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
2135: ELSE
2136: l_reason := P_AGREEMENT_REASON;
2137: END IF;
2138: l_version := 1;
2220: if P_LOAN_ID is null then
2221:
2222: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2223: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_LOAN_ID' );
2224: FND_MSG_PUB.Add;
2225: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2226: RAISE FND_API.G_EXC_ERROR;
2227:
2228: end if;
2221:
2222: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2223: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_LOAN_ID' );
2224: FND_MSG_PUB.Add;
2225: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2226: RAISE FND_API.G_EXC_ERROR;
2227:
2228: end if;
2229:
2230: if P_AGREEMENT_REASON is null then
2231:
2232: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2233: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_AGREEMENT_REASON' );
2234: FND_MSG_PUB.Add;
2235: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2236: RAISE FND_API.G_EXC_ERROR;
2237:
2238: end if;
2231:
2232: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2233: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_AGREEMENT_REASON' );
2234: FND_MSG_PUB.Add;
2235: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2236: RAISE FND_API.G_EXC_ERROR;
2237:
2238: end if;
2239:
2276: ,P_AGREEMENT_REASON);
2277:
2278: if l_request_id = 0 then
2279: FND_MESSAGE.SET_NAME('LNS', 'LNS_AGREEMENT_REQUEST_FAILED');
2280: FND_MSG_PUB.Add;
2281: RAISE FND_API.G_EXC_ERROR;
2282: end if;
2283: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully submited Loan Agreement Report Generation Concurrent Program. Request id: ' || l_request_id);
2284:
2372: if P_FROM_LOAN_OFFICER is null then
2373: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2374: FND_MESSAGE.SET_TOKEN('PARAMETER', 'P_FROM_LOAN_OFFICER');
2375: FND_MESSAGE.SET_TOKEN('VALUE', P_FROM_LOAN_OFFICER);
2376: FND_MSG_PUB.ADD;
2377: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2378: RAISE FND_API.G_EXC_ERROR;
2379: end if;
2380:
2373: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2374: FND_MESSAGE.SET_TOKEN('PARAMETER', 'P_FROM_LOAN_OFFICER');
2375: FND_MESSAGE.SET_TOKEN('VALUE', P_FROM_LOAN_OFFICER);
2376: FND_MSG_PUB.ADD;
2377: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2378: RAISE FND_API.G_EXC_ERROR;
2379: end if;
2380:
2381: if P_TO_LOAN_OFFICER is null then
2381: if P_TO_LOAN_OFFICER is null then
2382: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2383: FND_MESSAGE.SET_TOKEN('PARAMETER', 'P_TO_LOAN_OFFICER');
2384: FND_MESSAGE.SET_TOKEN('VALUE', P_TO_LOAN_OFFICER);
2385: FND_MSG_PUB.ADD;
2386: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2387: RAISE FND_API.G_EXC_ERROR;
2388: end if;
2389:
2382: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2383: FND_MESSAGE.SET_TOKEN('PARAMETER', 'P_TO_LOAN_OFFICER');
2384: FND_MESSAGE.SET_TOKEN('VALUE', P_TO_LOAN_OFFICER);
2385: FND_MSG_PUB.ADD;
2386: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2387: RAISE FND_API.G_EXC_ERROR;
2388: end if;
2389:
2390: /* init variables */
2422:
2423: IF l_return_status <> 'S' THEN
2424: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'l_return_status: ' || l_return_status);
2425: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
2426: FND_MSG_PUB.Add;
2427: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2428: RAISE FND_API.G_EXC_ERROR;
2429: END IF;
2430:
2423: IF l_return_status <> 'S' THEN
2424: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'l_return_status: ' || l_return_status);
2425: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
2426: FND_MSG_PUB.Add;
2427: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2428: RAISE FND_API.G_EXC_ERROR;
2429: END IF;
2430:
2431: --Everything successful here then go ahead and commit the updates
3087: x_msg_data => l_msg_data);
3088:
3089: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
3090: IF l_return_status <> 'S' THEN
3091: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: ' || FND_MSG_PUB.Get(p_encoded => 'F'));
3092: RAISE FND_API.G_EXC_ERROR;
3093: END IF;
3094:
3095: LogMessage(FND_LOG.LEVEL_UNEXPECTED, l_BASED_ON_TERMS || ' amortization schedule:');
3222: x_msg_data => l_msg_data);
3223:
3224: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
3225: IF l_return_status <> 'S' THEN
3226: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: ' || FND_MSG_PUB.Get(p_encoded => 'F'));
3227: RAISE FND_API.G_EXC_ERROR;
3228: END IF;
3229:
3230: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ORIGINAL amortization schedule:');