[Home] [Help]
176: BEGIN
177:
178: IF FND_API.to_Boolean( p_init_msg_list )
179: THEN
180: FND_MSG_PUB.initialize;
181: END IF;
182:
183: x_return_status := FND_API.G_RET_STS_SUCCESS;
184:
296:
297: EXCEPTION
298: WHEN FND_API.G_EXC_ERROR THEN
299: x_return_status := FND_API.G_RET_STS_ERROR;
300: FND_MSG_PUB.Count_And_Get
301: ( p_count => x_msg_count,
302: p_data => x_msg_data );
303: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
304:
303: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
304:
305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
307: FND_MSG_PUB.Count_And_Get
308: ( p_count => x_msg_count,
309: p_data => x_msg_data );
310: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
311:
310: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
311:
312: WHEN OTHERS THEN
313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
314: FND_MSG_PUB.Count_And_Get
315: ( p_count => x_msg_count,
316: p_data => x_msg_data );
317: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception error='||SQLERRM);
318: END;
442: BEGIN
443:
444: IF FND_API.to_Boolean( p_init_msg_list )
445: THEN
446: FND_MSG_PUB.initialize;
447: END IF;
448:
449: l_dun_contact_level := nvl(fnd_profile.value('IEX_DUNNING_CONTACT_SELECTION_METHOD'), 'ALL'); --Added for bug 6500750 gnramasa 13-Nov-07
450:
603:
604: WriteLog(l_api_name || ': X_CONTACT_ID = ' || X_CONTACT_ID);
605: WriteLog(l_api_name || ': X_CONTACT_POINT_ID = ' || X_CONTACT_POINT_ID);
606:
607: FND_MSG_PUB.Count_And_Get
608: ( p_count => x_msg_count,
609: p_data => x_msg_data );
610:
611: EXCEPTION
610:
611: EXCEPTION
612: WHEN FND_API.G_EXC_ERROR THEN
613: x_return_status := FND_API.G_RET_STS_ERROR;
614: FND_MSG_PUB.Count_And_Get
615: ( p_count => x_msg_count,
616: p_data => x_msg_data );
617: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
618:
617: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
618:
619: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
621: FND_MSG_PUB.Count_And_Get
622: ( p_count => x_msg_count,
623: p_data => x_msg_data );
624: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
625:
624: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
625:
626: WHEN OTHERS THEN
627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
628: FND_MSG_PUB.Count_And_Get
629: ( p_count => x_msg_count,
630: p_data => x_msg_data );
631: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception error='||SQLERRM);
632: END;
778: BEGIN
779:
780: IF FND_API.to_Boolean( p_init_msg_list )
781: THEN
782: FND_MSG_PUB.initialize;
783: END IF;
784:
785: l_dun_contact_level := nvl(fnd_profile.value('IEX_DUNNING_CONTACT_SELECTION_METHOD'), 'ALL'); --Added for bug 6500750 gnramasa 13-Nov-07
786:
834: X_LOCATION_ID := null;
835: WriteLog(l_api_name || ': ERROR: Multiple Bill-To locations found');
836: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_MULT_LOC');
837: FND_MESSAGE.Set_Token('USAGE', 'bill-to', FALSE);
838: FND_MSG_PUB.Add;
839: x_return_status := FND_API.G_RET_STS_ERROR;
840: else
841: X_LOCATION_ID := l_location_id;
842: end if;
1044:
1045: WriteLog(l_api_name || ': X_CONTACT_ID = ' || X_CONTACT_ID);
1046: WriteLog(l_api_name || ': X_CONTACT_POINT_ID = ' || X_CONTACT_POINT_ID);
1047:
1048: FND_MSG_PUB.Count_And_Get
1049: ( p_count => x_msg_count,
1050: p_data => x_msg_data );
1051:
1052: EXCEPTION
1051:
1052: EXCEPTION
1053: WHEN FND_API.G_EXC_ERROR THEN
1054: x_return_status := FND_API.G_RET_STS_ERROR;
1055: FND_MSG_PUB.Count_And_Get
1056: ( p_count => x_msg_count,
1057: p_data => x_msg_data );
1058: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
1059:
1058: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
1059:
1060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1062: FND_MSG_PUB.Count_And_Get
1063: ( p_count => x_msg_count,
1064: p_data => x_msg_data );
1065: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
1066:
1065: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
1066:
1067: WHEN OTHERS THEN
1068: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1069: FND_MSG_PUB.Count_And_Get
1070: ( p_count => x_msg_count,
1071: p_data => x_msg_data );
1072: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception error='||SQLERRM);
1073: END;
1153: BEGIN
1154:
1155: IF FND_API.to_Boolean( p_init_msg_list )
1156: THEN
1157: FND_MSG_PUB.initialize;
1158: END IF;
1159:
1160: x_return_status := FND_API.G_RET_STS_SUCCESS;
1161:
1186: CLOSE get_data_crs;
1187:
1188: if l_cust_account_id is null then
1189: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_ACCOUNT');
1190: FND_MSG_PUB.ADD;
1191: RAISE FND_API.G_EXC_ERROR;
1192: end if;
1193:
1194: WriteLog(l_api_name || ': Found account:');
1208: if l_count > 1 then
1209: WriteLog(l_api_name || ': ERROR: Multiple locations found');
1210: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_MULT_LOC');
1211: FND_MESSAGE.Set_Token('USAGE', l_site_use_code, FALSE);
1212: FND_MSG_PUB.Add;
1213: x_return_status := FND_API.G_RET_STS_ERROR;
1214: end if;
1215:
1216: -- call GET_ACCT_DUNNING_DATA for found account
1234: WriteLog(l_api_name || ': X_LOCATION_ID = ' || X_LOCATION_ID);
1235: WriteLog(l_api_name || ': X_CONTACT_ID = ' || X_CONTACT_ID);
1236: WriteLog(l_api_name || ': X_CONTACT_POINT_ID = ' || X_CONTACT_POINT_ID);
1237:
1238: FND_MSG_PUB.Count_And_Get
1239: ( p_count => x_msg_count,
1240: p_data => x_msg_data );
1241:
1242: EXCEPTION
1241:
1242: EXCEPTION
1243: WHEN FND_API.G_EXC_ERROR THEN
1244: x_return_status := FND_API.G_RET_STS_ERROR;
1245: FND_MSG_PUB.Count_And_Get
1246: ( p_count => x_msg_count,
1247: p_data => x_msg_data );
1248: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
1249:
1248: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
1249:
1250: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1252: FND_MSG_PUB.Count_And_Get
1253: ( p_count => x_msg_count,
1254: p_data => x_msg_data );
1255: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
1256:
1255: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
1256:
1257: WHEN OTHERS THEN
1258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1259: FND_MSG_PUB.Count_And_Get
1260: ( p_count => x_msg_count,
1261: p_data => x_msg_data );
1262: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception error='||SQLERRM);
1263: END;
1305: begin
1306:
1307: IF FND_API.to_Boolean( p_init_msg_list )
1308: THEN
1309: FND_MSG_PUB.initialize;
1310: END IF;
1311:
1312: x_return_status := FND_API.G_RET_STS_SUCCESS;
1313:
1434:
1435: EXCEPTION
1436: WHEN FND_API.G_EXC_ERROR THEN
1437: x_return_status := FND_API.G_RET_STS_ERROR;
1438: FND_MSG_PUB.Count_And_Get
1439: ( p_count => x_msg_count,
1440: p_data => x_msg_data );
1441: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
1442:
1441: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
1442:
1443: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1445: FND_MSG_PUB.Count_And_Get
1446: ( p_count => x_msg_count,
1447: p_data => x_msg_data );
1448: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
1449:
1448: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
1449:
1450: WHEN OTHERS THEN
1451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1452: FND_MSG_PUB.Count_And_Get
1453: ( p_count => x_msg_count,
1454: p_data => x_msg_data );
1455: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception error='||SQLERRM);
1456: END;
1534: begin
1535:
1536: IF FND_API.to_Boolean( p_init_msg_list )
1537: THEN
1538: FND_MSG_PUB.initialize;
1539: END IF;
1540:
1541: x_return_status := FND_API.G_RET_STS_SUCCESS;
1542:
1941:
1942: EXCEPTION
1943: WHEN FND_API.G_EXC_ERROR THEN
1944: x_return_status := FND_API.G_RET_STS_ERROR;
1945: FND_MSG_PUB.Count_And_Get
1946: ( p_count => x_msg_count,
1947: p_data => x_msg_data );
1948: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
1949:
1948: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
1949:
1950: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1952: FND_MSG_PUB.Count_And_Get
1953: ( p_count => x_msg_count,
1954: p_data => x_msg_data );
1955: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
1956:
1955: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
1956:
1957: WHEN OTHERS THEN
1958: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1959: FND_MSG_PUB.Count_And_Get
1960: ( p_count => x_msg_count,
1961: p_data => x_msg_data );
1962: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception error='||SQLERRM);
1963: end;
1982: BEGIN
1983: -- Initialize message list IF p_init_msg_list is set to TRUE.
1984: IF FND_API.to_Boolean( p_init_msg_list )
1985: THEN
1986: FND_MSG_PUB.initialize;
1987: END IF;
1988:
1989: -- Initialize API return status to SUCCESS
1990: x_return_status := FND_API.G_RET_STS_SUCCESS;
1994: THEN
1995: FND_MESSAGE.Set_Name('IEX', 'API_INVALID_ID');
1996: FND_MESSAGE.Set_Token('COLUMN', 'delinquency_ID', FALSE);
1997: FND_MESSAGE.Set_Token('VALUE', p_delinquency_id, FALSE);
1998: FND_MSG_PUB.Add;
1999: x_return_status := FND_API.G_RET_STS_ERROR;
2000:
2001: ELSE
2002:
2004: FETCH C_Get_Del INTO l_delinquency_ID;
2005:
2006: IF (C_Get_Del%NOTFOUND)
2007: THEN
2008: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
2009: THEN
2010: FND_MESSAGE.Set_Name('IEX', 'API_INVALID_ID');
2011: FND_MESSAGE.Set_Token('COLUMN', 'delinquency_ID', FALSE);
2012: FND_MESSAGE.Set_Token('VALUE', p_delinquency_id, FALSE);
2009: THEN
2010: FND_MESSAGE.Set_Name('IEX', 'API_INVALID_ID');
2011: FND_MESSAGE.Set_Token('COLUMN', 'delinquency_ID', FALSE);
2012: FND_MESSAGE.Set_Token('VALUE', p_delinquency_id, FALSE);
2013: FND_MSG_PUB.Add;
2014: END IF;
2015: x_return_status := FND_API.G_RET_STS_ERROR;
2016: END IF;
2017: CLOSE C_GET_Del;
2017: CLOSE C_GET_Del;
2018: END IF;
2019:
2020: -- Standard call to get message count and IF count is 1, get message info.
2021: FND_MSG_PUB.Count_And_Get
2022: ( p_count => x_msg_count,
2023: p_data => x_msg_data );
2024:
2025: END Validate_Delinquency;
2063:
2064: -- Initialize message list if p_init_msg_list is set to TRUE.
2065: IF FND_API.to_Boolean( p_init_msg_list )
2066: THEN
2067: FND_MSG_PUB.initialize;
2068: END IF;
2069:
2070: WriteLog(l_api_name || G_PKG_NAME || ' ' || l_api_name || ' - Start');
2071:
2120: WriteLog(l_api_name || G_PKG_NAME || ' ' || l_api_name || ' - End');
2121:
2122:
2123:
2124: FND_MSG_PUB.Count_And_Get
2125: ( p_count => x_msg_count,
2126: p_data => x_msg_data
2127: );
2128:
2128:
2129: EXCEPTION
2130: WHEN FND_API.G_EXC_ERROR THEN
2131: x_return_status := FND_API.G_RET_STS_ERROR;
2132: FND_MSG_PUB.Count_And_Get
2133: ( p_count => x_msg_count,
2134: p_data => x_msg_data );
2135: ROLLBACK TO CREATE_AG_DN_PVT;
2136: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
2136: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
2137:
2138: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2140: FND_MSG_PUB.Count_And_Get
2141: ( p_count => x_msg_count,
2142: p_data => x_msg_data );
2143: ROLLBACK TO CREATE_AG_DN_PVT;
2144: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
2144: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
2145:
2146: WHEN OTHERS THEN
2147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2148: FND_MSG_PUB.Count_And_Get
2149: ( p_count => x_msg_count,
2150: p_data => x_msg_data );
2151: ROLLBACK TO CREATE_AG_DN_PVT;
2152: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
2218:
2219: -- Initialize message list if p_init_msg_list is set to TRUE.
2220: IF FND_API.to_Boolean( p_init_msg_list )
2221: THEN
2222: FND_MSG_PUB.initialize;
2223: END IF;
2224:
2225: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
2226: x_return_status := FND_API.G_RET_STS_SUCCESS;
2252: l_AG_DN_XREF_ref_rec.CREATED_BY,
2253: l_AG_DN_XREF_ref_rec.LAST_UPDATE_LOGIN;
2254:
2255: If ( C_Get_AG_DN_XREF_REC%NOTFOUND) Then
2256: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2257: THEN
2258: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
2259: FND_MESSAGE.Set_Token ('INFO', 'IEX_AG_DN_XREF', FALSE);
2260: FND_MSG_PUB.Add;
2256: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2257: THEN
2258: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
2259: FND_MESSAGE.Set_Token ('INFO', 'IEX_AG_DN_XREF', FALSE);
2260: FND_MSG_PUB.Add;
2261: END IF;
2262: raise FND_API.G_EXC_ERROR;
2263: END IF;
2264:
2267:
2268: If (l_ag_Dn_xref_rec.last_update_date is NULL or
2269: l_ag_Dn_xref_rec.last_update_date = FND_API.G_MISS_Date )
2270: Then
2271: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2272: THEN
2273: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
2274: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
2275: FND_MSG_PUB.ADD;
2271: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2272: THEN
2273: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
2274: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
2275: FND_MSG_PUB.ADD;
2276: END IF;
2277: raise FND_API.G_EXC_ERROR;
2278: End if;
2279: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Transfer Data into target rec');
2352: END IF;
2353:
2354: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UpdateAgDn:End ');
2355:
2356: FND_MSG_PUB.Count_And_Get
2357: ( p_count => x_msg_count,
2358: p_data => x_msg_data );
2359:
2360: EXCEPTION
2359:
2360: EXCEPTION
2361: WHEN FND_API.G_EXC_ERROR THEN
2362: x_return_status := FND_API.G_RET_STS_ERROR;
2363: FND_MSG_PUB.Count_And_Get
2364: ( p_count => x_msg_count,
2365: p_data => x_msg_data );
2366: ROLLBACK TO UPDATE_AG_DN_PVT;
2367: errmsg := SQLERRM;
2368: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
2369:
2370: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2371: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2372: FND_MSG_PUB.Count_And_Get
2373: ( p_count => x_msg_count,
2374: p_data => x_msg_data );
2375: ROLLBACK TO UPDATE_AG_DN_PVT;
2376: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
2376: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
2377:
2378: WHEN OTHERS THEN
2379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2380: FND_MSG_PUB.Count_And_Get
2381: ( p_count => x_msg_count,
2382: p_data => x_msg_data );
2383: ROLLBACK TO UPDATE_AG_DN_PVT;
2384: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
2425:
2426: -- Initialize message list if p_init_msg_list is set to TRUE.
2427: IF FND_API.to_Boolean( p_init_msg_list )
2428: THEN
2429: FND_MSG_PUB.initialize;
2430: END IF;
2431:
2432: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
2433: x_return_status := FND_API.G_RET_STS_SUCCESS;
2443: If ( C_Get_AG_DN_XREF%NOTFOUND) Then
2444: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - NotFound');
2445:
2446:
2447: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2448: THEN
2449: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
2450: FND_MESSAGE.Set_Token ('INFO', 'IEX_AG_DN_XREF', FALSE);
2451: FND_MSG_PUB.Add;
2447: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2448: THEN
2449: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
2450: FND_MESSAGE.Set_Token ('INFO', 'IEX_AG_DN_XREF', FALSE);
2451: FND_MSG_PUB.Add;
2452: END IF;
2453: raise FND_API.G_EXC_ERROR;
2454: END IF;
2455:
2479: END IF;
2480:
2481: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - End');
2482:
2483: FND_MSG_PUB.Count_And_Get
2484: ( p_count => x_msg_count,
2485: p_data => x_msg_data );
2486:
2487: EXCEPTION
2486:
2487: EXCEPTION
2488: WHEN FND_API.G_EXC_ERROR THEN
2489: x_return_status := FND_API.G_RET_STS_ERROR;
2490: FND_MSG_PUB.Count_And_Get
2491: ( p_count => x_msg_count,
2492: p_data => x_msg_data );
2493: ROLLBACK TO DELETE_AG_DN_PVT;
2494: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - DeleteAgDn:error='||SQLERRM);
2494: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - DeleteAgDn:error='||SQLERRM);
2495:
2496: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2498: FND_MSG_PUB.Count_And_Get
2499: ( p_count => x_msg_count,
2500: p_data => x_msg_data );
2501: ROLLBACK TO DELETE_AG_DN_PVT;
2502: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - DeleteAgDn:error='||SQLERRM);
2502: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - DeleteAgDn:error='||SQLERRM);
2503:
2504: WHEN OTHERS THEN
2505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2506: FND_MSG_PUB.Count_And_Get
2507: ( p_count => x_msg_count,
2508: p_data => x_msg_data );
2509: ROLLBACK TO DELETE_AG_DN_PVT;
2510: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - DeleteAgDn:error='||SQLERRM);
2549:
2550: -- Initialize message list if p_init_msg_list is set to TRUE.
2551: IF FND_API.to_Boolean( p_init_msg_list )
2552: THEN
2553: FND_MSG_PUB.initialize;
2554: END IF;
2555:
2556: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - START');
2557: x_return_status := FND_API.G_RET_STS_SUCCESS;
2610: COMMIT WORK;
2611: END IF;
2612:
2613: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
2614: FND_MSG_PUB.Count_And_Get
2615: ( p_count => x_msg_count,
2616: p_data => x_msg_data
2617: );
2618:
2618:
2619: EXCEPTION
2620: WHEN FND_API.G_EXC_ERROR THEN
2621: x_return_status := FND_API.G_RET_STS_ERROR;
2622: FND_MSG_PUB.Count_And_Get
2623: ( p_count => x_msg_count,
2624: p_data => x_msg_data );
2625: ROLLBACK TO CREATE_DUNNING_PVT;
2626: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'exception ' || SQLERRM);
2626: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'exception ' || SQLERRM);
2627:
2628: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2630: FND_MSG_PUB.Count_And_Get
2631: ( p_count => x_msg_count,
2632: p_data => x_msg_data );
2633: ROLLBACK TO CREATE_DUNNING_PVT;
2634: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'error ' || SQLERRM);
2634: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'error ' || SQLERRM);
2635:
2636: WHEN OTHERS THEN
2637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2638: FND_MSG_PUB.Count_And_Get
2639: ( p_count => x_msg_count,
2640: p_data => x_msg_data );
2641: ROLLBACK TO CREATE_DUNNING_PVT;
2642: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'error ' || SQLERRM);
2721:
2722: -- Initialize message list if p_init_msg_list is set to TRUE.
2723: IF FND_API.to_Boolean( p_init_msg_list )
2724: THEN
2725: FND_MSG_PUB.initialize;
2726: END IF;
2727:
2728: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - START');
2729: x_return_status := FND_API.G_RET_STS_SUCCESS;
2768: l_DUNNING_REF_REC.contact_destination, -- bug 3955222
2769: l_DUNNING_REF_REC.contact_party_id; -- bug 3955222
2770:
2771: If ( C_GET_DUNNING_REC%NOTFOUND) Then
2772: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2773: THEN
2774: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
2775: FND_MESSAGE.Set_Token ('INFO', 'iex_DUNNINGs', FALSE);
2776: FND_MSG_PUB.Add;
2772: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2773: THEN
2774: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
2775: FND_MESSAGE.Set_Token ('INFO', 'iex_DUNNINGs', FALSE);
2776: FND_MSG_PUB.Add;
2777: END IF;
2778: raise FND_API.G_EXC_ERROR;
2779: END IF;
2780:
2784: /*
2785: If (l_dunning_rec.last_update_date is NULL or
2786: l_dunning_rec.last_update_date = FND_API.G_MISS_Date )
2787: Then
2788: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2789: THEN
2790: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
2791: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
2792: FND_MSG_PUB.ADD;
2788: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2789: THEN
2790: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
2791: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
2792: FND_MSG_PUB.ADD;
2793: END IF;
2794: raise FND_API.G_EXC_ERROR;
2795: End if;
2796: */
2934: END IF;
2935:
2936: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
2937:
2938: FND_MSG_PUB.Count_And_Get
2939: ( p_count => x_msg_count,
2940: p_data => x_msg_data );
2941:
2942: EXCEPTION
2941:
2942: EXCEPTION
2943: WHEN FND_API.G_EXC_ERROR THEN
2944: x_return_status := FND_API.G_RET_STS_ERROR;
2945: FND_MSG_PUB.Count_And_Get
2946: ( p_count => x_msg_count,
2947: p_data => x_msg_data );
2948: ROLLBACK TO UPDATE_DUNNING_PVT;
2949: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
2949: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
2950:
2951: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2953: FND_MSG_PUB.Count_And_Get
2954: ( p_count => x_msg_count,
2955: p_data => x_msg_data );
2956: ROLLBACK TO UPDATE_DUNNING_PVT;
2957: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
2957: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
2958:
2959: WHEN OTHERS THEN
2960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2961: FND_MSG_PUB.Count_And_Get
2962: ( p_count => x_msg_count,
2963: p_data => x_msg_data );
2964: ROLLBACK TO UPDATE_DUNNING_PVT;
2965: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception error='||SQLERRM);
3148:
3149: -- Initialize message list if p_init_msg_list is set to TRUE.
3150: IF FND_API.to_Boolean( p_init_msg_list )
3151: THEN
3152: FND_MSG_PUB.initialize;
3153: END IF;
3154:
3155: if (p_resend_flag = 'Y') then
3156: -- don't write into FILE
3265:
3266: IF (l_noskip > 0) THEN
3267:
3268: -- init the msg (not including the msg from dispute api)
3269: FND_MSG_PUB.initialize;
3270:
3271:
3272: /*===========================================
3273: * Get Score From IEX_SCORE_HISTORIES
3278: Fetch C_Get_SCORE into l_score;
3279:
3280: If ( C_GET_SCORE%NOTFOUND) Then
3281: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_SCORE');
3282: FND_MSG_PUB.Add;
3283: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Missing Score');
3284: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Missing Score');
3285: Close C_Get_SCORE;
3286: RAISE FND_API.G_EXC_ERROR;
3312:
3313: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - AgingDel status='||x_return_status);
3314: If ( x_return_status <> FND_API.G_RET_STS_SUCCESS) Then
3315: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_AGINGBUCKETLINE');
3316: FND_MSG_PUB.Add;
3317: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - AgingBucketLineId notfound');
3318: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AgingBucketLineId NotFound');
3319: RAISE FND_API.G_EXC_ERROR;
3320: END IF;
3336: If ( C_GET_TEMPLATE%NOTFOUND) Then
3337: --FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
3338: --FND_MESSAGE.Set_Token ('INFO', 'Template_ID', FALSE);
3339: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
3340: FND_MSG_PUB.Add;
3341: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Missing corresponding template');
3342: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Missing corresponding template');
3343: RAISE FND_API.G_EXC_ERROR;
3344: END IF;
3363: if ( (l_curr_dmethod is null or l_curr_dmethod = '') or
3364: (l_curr_dmethod = 'FFM' and l_template_id is null) or
3365: (l_curr_dmethod = 'XML' and l_xdo_template_id is null ) ) then
3366: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
3367: FND_MSG_PUB.Add;
3368: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Missing corresponding template');
3369: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Missing corresponding template');
3370: RAISE FND_API.G_EXC_ERROR;
3371:
3402: , p_site_use_id => l_customer_site_use_id_check
3403: , p_delinquency_id => l_delinquency_id_check ) = 'N'
3404: ) then
3405: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_PROFILE_NO');
3406: FND_MSG_PUB.Add;
3407: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Send dunning in customer profile set to no ');
3408: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Send dunning in customer profile set to no ');
3409: x_return_status := FND_API.G_RET_STS_ERROR;
3410: GOTO end_api;
3416: p_cust_account_id => l_account_id_check
3417: , p_site_use_id => l_customer_site_use_id_check) = 'N'
3418: ) then
3419: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_AMOUNT_MIN');
3420: FND_MSG_PUB.Add;
3421: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Required min Dunning amount in customer profile ');
3422: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Required min Dunning amount in customer profile ');
3423: x_return_status := FND_API.G_RET_STS_ERROR;
3424: GOTO end_api;
3478: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - GetCallbackDate status='|| x_return_status);
3479:
3480: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3481: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_CALLBACKDATE');
3482: FND_MSG_PUB.Add;
3483: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot find callback date');
3484: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot find callback date');
3485: x_return_status := FND_API.G_RET_STS_ERROR;
3486: GOTO end_api;
3642:
3643: <
3644:
3645: if (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3646: FND_MSG_PUB.Count_And_Get
3647: ( p_count => x_msg_count,
3648: p_data => x_msg_data );
3649: for i in 1..x_msg_count loop
3650: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
3646: FND_MSG_PUB.Count_And_Get
3647: ( p_count => x_msg_count,
3648: p_data => x_msg_data );
3649: for i in 1..x_msg_count loop
3650: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
3651: p_encoded => 'F');
3652: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error:'||errmsg);
3653: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg=' || errmsg);
3654: end loop;
3659: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - all del disputed');
3660: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - skip this party/accnt/site');
3661: FND_FILE.PUT_LINE(FND_FILE.LOG, 'all delinquencies disputed' );
3662: FND_FILE.PUT_LINE(FND_FILE.LOG, 'skip this party/account/site' );
3663: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
3664: p_data => x_msg_data );
3665: x_return_status := 'SKIP'; --FND_API.G_EXC_ERROR;
3666:
3667: end if; -- end of if (l_noskip>0)
3677: COMMIT WORK;
3678:
3679: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
3680:
3681: FND_MSG_PUB.Count_And_Get
3682: ( p_count => x_msg_count,
3683: p_data => x_msg_data );
3684:
3685: EXCEPTION
3685: EXCEPTION
3686: WHEN FND_API.G_EXC_ERROR THEN
3687: COMMIT WORK;
3688: x_return_status := FND_API.G_RET_STS_ERROR;
3689: FND_MSG_PUB.Count_And_Get
3690: ( p_count => x_msg_count,
3691: p_data => x_msg_data );
3692: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
3693: FND_FILE.PUT_LINE(FND_FILE.LOG, 'expect exception' );
3696:
3697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3698: COMMIT WORK;
3699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3700: FND_MSG_PUB.Count_And_Get
3701: ( p_count => x_msg_count,
3702: p_data => x_msg_data );
3703: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
3704: FND_FILE.PUT_LINE(FND_FILE.LOG, 'unexpect exception' );
3707:
3708: WHEN OTHERS THEN
3709: COMMIT WORK;
3710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3711: FND_MSG_PUB.Count_And_Get
3712: ( p_count => x_msg_count,
3713: p_data => x_msg_data );
3714: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception');
3715: FND_FILE.PUT_LINE(FND_FILE.LOG, 'unexpect exception' );
3857:
3858: -- Initialize message list if p_init_msg_list is set to TRUE.
3859: IF FND_API.to_Boolean( p_init_msg_list )
3860: THEN
3861: FND_MSG_PUB.initialize;
3862: END IF;
3863:
3864: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
3865:
3953: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3954: --FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
3955: --FND_MESSAGE.Set_Token ('INFO', 'iex:AginBucketLineId', FALSE);
3956: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_AGINGBUCKETLINE');
3957: FND_MSG_PUB.Add;
3958: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Get AgingBucketLineId');
3959: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot AgingBucketLineId' );
3960: --msg
3961: FND_MSG_PUB.Count_And_Get
3957: FND_MSG_PUB.Add;
3958: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Get AgingBucketLineId');
3959: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot AgingBucketLineId' );
3960: --msg
3961: FND_MSG_PUB.Count_And_Get
3962: ( p_count => x_msg_count,
3963: p_data => x_msg_data );
3964: for i in 1..x_msg_count loop
3965: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
3961: FND_MSG_PUB.Count_And_Get
3962: ( p_count => x_msg_count,
3963: p_data => x_msg_data );
3964: for i in 1..x_msg_count loop
3965: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
3966: p_encoded => 'F');
3967: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error:'||errmsg);
3968: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg=' || errmsg);
3969: end loop;
3991: l_bucket;
3992:
3993: If ( C_GET_TEMPLATE%NOTFOUND) Then
3994: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
3995: FND_MSG_PUB.Add;
3996: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Missing corresponding template');
3997: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Missing corresponding template' );
3998: Close C_Get_TEMPLATE;
3999: GOTO end_loop;
4021: (l_curr_dmethod = 'XML' and l_xdo_template_id is null ) ) then
4022: --FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
4023: --FND_MESSAGE.Set_Token ('INFO', 'Template_ID', FALSE);
4024: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
4025: FND_MSG_PUB.Add;
4026: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Missing corresponding template');
4027: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Missing corresponding template' );
4028: x_return_status := FND_API.G_RET_STS_ERROR;
4029: GOTO end_loop;
4041: , p_site_use_id => l_customer_site_use_id
4042: , p_delinquency_id => l_delinquency_id ) = 'N'
4043: ) then
4044: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_PROFILE_NO');
4045: FND_MSG_PUB.Add;
4046: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Send dunning in customer profile set to no ');
4047: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Send dunning in customer profile set to no ');
4048: GOTO end_loop;
4049: end if;
4054: p_cust_account_id => l_account_id
4055: , p_site_use_id => l_customer_site_use_id) = 'N'
4056: ) then
4057: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_AMOUNT_MIN');
4058: FND_MSG_PUB.Add;
4059: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Required min Dunning amount in customer profile ');
4060: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Required min Dunning amount in customer profile ');
4061: GOTO end_loop;
4062: end if;
4135:
4136: If ( C_AMOUNT%NOTFOUND) Then
4137: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
4138: FND_MESSAGE.Set_Token ('INFO', 'iex:amount', FALSE);
4139: FND_MSG_PUB.Add;
4140: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - amount notfound');
4141: END IF;
4142:
4143: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - close C_AMOUNT');
4268: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Send status = ' || x_return_status);
4269:
4270: IF x_return_status <> FND_API.G_RET_STS_SUCCESS and x_return_status <> 'W' THEN
4271: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Not Sending Letters');
4272: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4273: p_data => x_msg_data );
4274: for i in 1..x_msg_count loop
4275: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
4276: p_encoded => 'F');
4271: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Not Sending Letters');
4272: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4273: p_data => x_msg_data );
4274: for i in 1..x_msg_count loop
4275: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
4276: p_encoded => 'F');
4277: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error:'||errmsg);
4278: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg=' || errmsg);
4279: end loop;
4333:
4334: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status = ' || x_return_status);
4335: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
4336:
4337: FND_MSG_PUB.Count_And_Get
4338: ( p_count => x_msg_count,
4339: p_data => x_msg_data );
4340:
4341: EXCEPTION
4342: WHEN FND_API.G_EXC_ERROR THEN
4343: COMMIT WORK;
4344: x_return_status := FND_API.G_RET_STS_ERROR;
4345: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
4346: FND_MSG_PUB.Count_And_Get
4347: ( p_count => x_msg_count,
4348: p_data => x_msg_data );
4349:
4350: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4350: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4351: COMMIT WORK;
4352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4353: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
4354: FND_MSG_PUB.Count_And_Get
4355: ( p_count => x_msg_count,
4356: p_data => x_msg_data );
4357:
4358: WHEN OTHERS THEN
4358: WHEN OTHERS THEN
4359: COMMIT WORK;
4360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4361: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
4362: FND_MSG_PUB.Count_And_Get
4363: ( p_count => x_msg_count,
4364: p_data => x_msg_data );
4365:
4366: END Send_Dunning;
4497:
4498: -- Initialize message list if p_init_msg_list is set to TRUE.
4499: IF FND_API.to_Boolean( p_init_msg_list )
4500: THEN
4501: FND_MSG_PUB.initialize;
4502: END IF;
4503:
4504: -- don't write into FILE
4505: l_write := 0;
4607:
4608: IF (l_noskip > 0) THEN
4609:
4610: -- init the msg (not including the msg from dispute api)
4611: FND_MSG_PUB.initialize;
4612:
4613: /*===========================================
4614: * Get Score From IEX_SCORE_HISTORIES
4615: * If NotFound => Call API to getScore;
4623: If ( C_GET_SCORE%NOTFOUND) Then
4624: --FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
4625: --FND_MESSAGE.Set_Token ('INFO', 'Score', FALSE);
4626: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_SCORE');
4627: FND_MSG_PUB.Add;
4628: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Score NotFound');
4629: Close C_Get_SCORE;
4630: x_return_status := FND_API.G_RET_STS_ERROR;
4631: GOTO end_api;
4663: If ( x_return_status <> FND_API.G_RET_STS_SUCCESS) Then
4664: --FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
4665: --FND_MESSAGE.Set_Token ('INFO', 'AgingBucketLineId', FALSE);
4666: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_AGINGBUCKETLINE');
4667: FND_MSG_PUB.Add;
4668: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - AgingBucketLineId notfound');
4669: x_return_status := FND_API.G_RET_STS_ERROR;
4670: GOTO end_api;
4671: END IF;
4687: l_callback_days;
4688:
4689: If ( C_GET_TEMPLATE%NOTFOUND) Then
4690: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
4691: FND_MSG_PUB.Add;
4692: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template notfound');
4693: x_return_status := FND_API.G_RET_STS_ERROR;
4694: GOTO end_api;
4695: END IF;
4714: (l_curr_dmethod = 'XML' and l_xdo_template_id is null ) ) then
4715: --FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
4716: --FND_MESSAGE.Set_Token ('INFO', 'Template_ID', FALSE);
4717: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
4718: FND_MSG_PUB.Add;
4719: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Template notfound');
4720: x_return_status := FND_API.G_RET_STS_ERROR;
4721: GOTO end_api;
4722: end if;
4753: , p_site_use_id => l_customer_site_use_id_check
4754: , p_delinquency_id => l_delinquency_id_check ) = 'N'
4755: ) then
4756: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_PROFILE_NO');
4757: FND_MSG_PUB.Add;
4758: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Send dunning in customer profile set to no ');
4759: x_return_status := FND_API.G_RET_STS_ERROR;
4760: GOTO end_api;
4761: end if;
4766: p_cust_account_id => l_account_id_check
4767: , p_site_use_id => l_customer_site_use_id_check) = 'N'
4768: ) then
4769: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_AMOUNT_MIN');
4770: FND_MSG_PUB.Add;
4771: WriteLog('iexvdunb:ResendLevelDunn: Required min Dunning amount in customer profile ');
4772: x_return_status := FND_API.G_RET_STS_ERROR;
4773: GOTO end_api;
4774: end if;
4919: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - GetCallbackDate status='|| x_return_status, l_write);
4920:
4921: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4922: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_CALLBACKDATE');
4923: FND_MSG_PUB.Add;
4924: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Not Get CallbackDate', l_write);
4925: x_return_status := FND_API.G_RET_STS_ERROR;
4926: GOTO end_api;
4927: END IF;
4999:
5000: <
5001: if (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
5002: ROLLBACK TO Resend_Level_DUNNING_PVT;
5003: FND_MSG_PUB.Count_And_Get
5004: ( p_count => x_msg_count,
5005: p_data => x_msg_data );
5006: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - end_api:error on this party/accnt/site', l_write);
5007: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - end_api:status='||x_return_status, l_write);
5013: ELSE -- l_noskip = 0
5014: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - all del disputed', l_write);
5015: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - skip this party/accnt/site', l_write);
5016: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - end_api:status='||x_return_status, l_write);
5017: FND_MSG_PUB.Count_And_Get
5018: ( p_count => x_msg_count,
5019: p_data => x_msg_data );
5020: --Resend need return the exact status
5021: --x_return_status := 'SKIP'; --FND_API.G_EXC_ERROR;
5036: END IF;
5037:
5038: WriteLog('iexvdunb:ResendLevelDunn:END', l_write);
5039:
5040: FND_MSG_PUB.Count_And_Get
5041: ( p_count => x_msg_count,
5042: p_data => x_msg_data );
5043:
5044: EXCEPTION
5043:
5044: EXCEPTION
5045: WHEN FND_API.G_EXC_ERROR THEN
5046: x_return_status := FND_API.G_RET_STS_ERROR;
5047: FND_MSG_PUB.Count_And_Get
5048: ( p_count => x_msg_count,
5049: p_data => x_msg_data );
5050: ROLLBACK TO Resend_Level_DUNNING_PVT;
5051: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM, l_write);
5051: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM, l_write);
5052:
5053: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5054: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5055: FND_MSG_PUB.Count_And_Get
5056: ( p_count => x_msg_count,
5057: p_data => x_msg_data );
5058: ROLLBACK TO Resend_Level_DUNNING_PVT;
5059: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM, l_write);
5059: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM, l_write);
5060:
5061: WHEN OTHERS THEN
5062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5063: FND_MSG_PUB.Count_And_Get
5064: ( p_count => x_msg_count,
5065: p_data => x_msg_data );
5066: ROLLBACK TO Resend_Level_DUNNING_PVT;
5067: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM, l_write);
5196:
5197: -- Initialize message list if p_init_msg_list is set to TRUE.
5198: IF FND_API.to_Boolean( p_init_msg_list )
5199: THEN
5200: FND_MSG_PUB.initialize;
5201: END IF;
5202:
5203: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
5204:
5267: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No Dispute or status is COMPLETE');
5268: END IF;
5269:
5270: -- init msg (not from dispute api)
5271: FND_MSG_PUB.initialize;
5272:
5273: /*===========================================
5274: * Get Score From IEX_SCORE_HISTORIES
5275: * If NotFound => Call API to getScore;
5296: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - AgingDel status='||x_return_status);
5297:
5298: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5299: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_AGINGBUCKETLINE');
5300: FND_MSG_PUB.Add;
5301: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Get AgingBucketLineId');
5302: GOTO end_loop;
5303: END IF;
5304:
5321: l_bucket;
5322:
5323: If ( C_GET_TEMPLATE%NOTFOUND) Then
5324: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
5325: FND_MSG_PUB.Add;
5326: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template notfound');
5327: Close C_Get_TEMPLATE;
5328: GOTO end_loop;
5329: END IF;
5349: if ( (l_curr_dmethod is null or l_curr_dmethod = '') or
5350: (l_curr_dmethod = 'FFM' and l_template_id is null) or
5351: (l_curr_dmethod = 'XML' and l_xdo_template_id is null ) ) then
5352: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
5353: FND_MSG_PUB.Add;
5354: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Template notfound');
5355: x_return_status := FND_API.G_RET_STS_ERROR;
5356: GOTO end_loop;
5357: end if;
5368: , p_site_use_id => l_customer_site_use_id
5369: , p_delinquency_id => l_delinquency_id ) = 'N'
5370: ) then
5371: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_PROFILE_NO');
5372: FND_MSG_PUB.Add;
5373: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Send dunning in customer profile set to no ');
5374: GOTO end_loop;
5375: end if;
5376:
5380: p_cust_account_id => l_account_id
5381: , p_site_use_id => l_customer_site_use_id) = 'N'
5382: ) then
5383: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_AMOUNT_MIN');
5384: FND_MSG_PUB.Add;
5385: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Required min Dunning amount in customer profile ');
5386: GOTO end_loop;
5387: end if;
5388:
5559:
5560: If ( C_AMOUNT%NOTFOUND) Then
5561: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
5562: FND_MESSAGE.Set_Token ('INFO', 'amount', FALSE);
5563: FND_MSG_PUB.Add;
5564: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - amount notfound');
5565: END IF;
5566:
5567: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - close C_AMOUNT');
5667:
5668: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status='||x_return_status);
5669: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
5670:
5671: FND_MSG_PUB.Count_And_Get
5672: ( p_count => x_msg_count,
5673: p_data => x_msg_data );
5674:
5675:
5676: EXCEPTION
5677: WHEN FND_API.G_EXC_ERROR THEN
5678: x_return_status := FND_API.G_RET_STS_ERROR;
5679: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
5680: FND_MSG_PUB.Count_And_Get
5681: ( p_count => x_msg_count,
5682: p_data => x_msg_data );
5683: errmsg := SQLERRM;
5684: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
5686:
5687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5689: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
5690: FND_MSG_PUB.Count_And_Get
5691: ( p_count => x_msg_count,
5692: p_data => x_msg_data );
5693: errmsg := SQLERRM;
5694: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
5696:
5697: WHEN OTHERS THEN
5698: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5699: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception');
5700: FND_MSG_PUB.Count_And_Get
5701: ( p_count => x_msg_count,
5702: p_data => x_msg_data );
5703: errmsg := SQLERRM;
5704: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
5803:
5804: -- Initialize message list IF p_init_msg_list is set to TRUE.
5805: IF FND_API.to_Boolean( p_init_msg_list )
5806: THEN
5807: FND_MSG_PUB.initialize;
5808: END IF;
5809:
5810: -- Initialize API return status to SUCCESS
5811: l_return_status := FND_API.G_RET_STS_SUCCESS;
5819: Fetch C_Get_PARTY_DAYS into l_days;
5820: If ( C_GET_PARTY_DAYS%NOTFOUND) Then
5821: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - PaymentSchedId NotFound');
5822: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_PAYMENTSCHEDULE');
5823: FND_MSG_PUB.Add;
5824: l_return_status := FND_API.G_RET_STS_ERROR;
5825: Close C_Get_PARTY_DAYS;
5826: GOTO end_get_line;
5827: end if;
5832: Fetch C_Get_ACCT_DAYS into l_days;
5833: If ( C_GET_ACCT_DAYS%NOTFOUND) Then
5834: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - PaymentSchedId NotFound');
5835: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_PAYMENTSCHEDULE');
5836: FND_MSG_PUB.Add;
5837: l_return_status := FND_API.G_RET_STS_ERROR;
5838: Close C_Get_ACCT_DAYS;
5839: GOTO end_get_line;
5840: end if;
5845: Fetch C_Get_SITE_DAYS into l_days;
5846: If ( C_GET_SITE_DAYS%NOTFOUND) Then
5847: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - PaymentSchedId NotFound');
5848: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_PAYMENTSCHEDULE');
5849: FND_MSG_PUB.Add;
5850: l_return_status := FND_API.G_RET_STS_ERROR;
5851: Close C_Get_SITE_DAYS;
5852: GOTO end_get_line;
5853: end if;
5862: Fetch C_Get_DAYS into l_days;
5863: If ( C_GET_DAYS%NOTFOUND) Then
5864: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - PaymentSchedId NotFound');
5865: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_PAYMENTSCHEDULE');
5866: FND_MSG_PUB.Add;
5867: l_return_status := FND_API.G_RET_STS_ERROR;
5868: Close C_Get_DAYS;
5869: GOTO end_get_line;
5870: end if;
5878: Fetch C_Get_BUCKET_LINE into l_bucket_line_id;
5879: If ( C_GET_BUCKET_LINE%NOTFOUND) Then
5880: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - BucketLine NotFound');
5881: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_BUCKET_LINE');
5882: FND_MSG_PUB.Add;
5883: l_return_status := FND_API.G_RET_STS_ERROR;
5884: Close C_Get_BUCKET_LINE;
5885: GOTO end_get_line;
5886: else
5900:
5901: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return_status:'||x_return_status);
5902: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - lineId:'||x_aging_bucket_line_id);
5903:
5904: FND_MSG_PUB.Count_And_Get
5905: ( p_count => x_msg_count,
5906: p_data => x_msg_data );
5907:
5908: EXCEPTION
5911: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
5912: errmsg := SQLERRM;
5913: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
5914: ROLLBACK TO AGING_DEL_PVT;
5915: FND_MSG_PUB.Count_And_Get
5916: ( p_count => x_msg_count,
5917: p_data => x_msg_data);
5918:
5919: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5921: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
5922: errmsg := SQLERRM;
5923: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
5924: ROLLBACK TO AGING_DEL_PVT;
5925: FND_MSG_PUB.Count_And_Get
5926: ( p_count => x_msg_count,
5927: p_data => x_msg_data);
5928:
5929: WHEN OTHERS THEN
5931: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception');
5932: errmsg := SQLERRM;
5933: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
5934: ROLLBACK TO AGING_DEL_PVT;
5935: FND_MSG_PUB.Count_And_Get
5936: ( p_count => x_msg_count,
5937: p_data => x_msg_data);
5938:
5939: END AGING_DEL;
6029: SAVEPOINT CALL_FFM_PVT;
6030:
6031: IF FND_API.to_Boolean( p_init_msg_list )
6032: THEN
6033: FND_MSG_PUB.initialize;
6034: END IF;
6035:
6036: l_return_status := FND_API.G_RET_STS_SUCCESS;
6037:
6039: if (p_template_id is null) then
6040: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No TEMPLATE_ID');
6041: FND_MESSAGE.Set_Name('IEX', 'API_FAIL_SEND_FFM');
6042: FND_MESSAGE.Set_Token ('INFO', 'No Template_ID');
6043: FND_MSG_PUB.Add;
6044: l_return_status := FND_API.G_RET_STS_ERROR;
6045: GOTO end_call_ffm;
6046: end if;
6047: if (p_party_id is null) then
6047: if (p_party_id is null) then
6048: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No PARTY_ID');
6049: FND_MESSAGE.Set_Name('IEX', 'API_FAIL_SEND_FFM');
6050: FND_MESSAGE.Set_Token ('INFO', 'No Party_Id');
6051: FND_MSG_PUB.Add;
6052: l_return_status := FND_API.G_RET_STS_ERROR;
6053: GOTO end_call_ffm;
6054: end if;
6055: if (p_method is null) then
6055: if (p_method is null) then
6056: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No METHOD');
6057: FND_MESSAGE.Set_Name('IEX', 'API_FAIL_SEND_FFM');
6058: FND_MESSAGE.Set_Token ('INFO', 'No Method');
6059: FND_MSG_PUB.Add;
6060: l_return_status := FND_API.G_RET_STS_ERROR;
6061: GOTO end_call_ffm;
6062: end if;
6063:
6083: If ( C_GET_ORG_EMAIL%NOTFOUND) Then
6084: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Customer NotFound');
6085: FND_MESSAGE.Set_Name('IEX', 'API_FAIL_SEND_FFM');
6086: FND_MESSAGE.Set_Token ('INFO', 'Customer NotFound');
6087: FND_MSG_PUB.Add;
6088: l_return_status := FND_API.G_RET_STS_ERROR;
6089: Close C_Get_ORG_EMAIL;
6090: Close C_Get_CONTACT_EMAIL;
6091: GOTO end_call_ffm;
6094: If ( l_email is null ) Then
6095: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No Email');
6096: FND_MESSAGE.Set_Name('IEX', 'API_FAIL_SEND_FFM');
6097: FND_MESSAGE.Set_Token ('INFO', 'No Email_Address');
6098: FND_MSG_PUB.Add;
6099: l_return_status := FND_API.G_RET_STS_ERROR;
6100: Close C_Get_ORG_EMAIL;
6101: Close C_Get_CONTACT_EMAIL;
6102: GOTO end_call_ffm;
6108: If ( l_email is null ) Then
6109: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No Email');
6110: FND_MESSAGE.Set_Name('IEX', 'API_FAIL_SEND_FFM');
6111: FND_MESSAGE.Set_Token ('INFO', 'No Email_Address');
6112: FND_MSG_PUB.Add;
6113: l_return_status := FND_API.G_RET_STS_ERROR;
6114: Close C_Get_CONTACT_EMAIL;
6115: GOTO end_call_ffm;
6116: END if;
6126: IEX_DEBUG_PUB.LogMessage(G_PKG_NAME || ' ' || l_api_name || ' - No Printer');
6127: END IF;
6128: FND_MESSAGE.Set_Name('IEX', 'API_FAIL_SEND_FFM');
6129: FND_MESSAGE.Set_Token ('INFO', 'No Printer');
6130: FND_MSG_PUB.Add;
6131: l_return_status := FND_API.G_RET_STS_ERROR;
6132: GOTO end_call_ffm;
6133: end if;
6134: END IF; -- end of p_method=EMAIL
6146: if (nIdx = 0) then
6147: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No Contents');
6148: FND_MESSAGE.Set_Name('IEX', 'API_FAIL_SEND_FFM');
6149: FND_MESSAGE.Set_Token ('INFO', 'No Contents for selected template ');
6150: FND_MSG_PUB.Add;
6151: l_return_status := FND_API.G_RET_STS_ERROR;
6152: end if;
6153: exit;
6154: else
6237: x_request_id := l_request_id;
6238: x_return_status := l_return_status;
6239: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return_status:'||x_return_status);
6240:
6241: FND_MSG_PUB.Count_And_Get
6242: ( p_count => x_msg_count,
6243: p_data => x_msg_data );
6244:
6245: EXCEPTION
6246: WHEN FND_API.G_EXC_ERROR THEN
6247: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
6248: ROLLBACK TO CALL_FFM_PVT;
6249: x_return_status := FND_API.G_RET_STS_ERROR;
6250: FND_MSG_PUB.Count_And_Get
6251: ( p_count => x_msg_count,
6252: p_data => x_msg_data
6253: );
6254:
6256: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
6257: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
6258: ROLLBACK TO CALL_FFM_PVT;
6259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6260: FND_MSG_PUB.Count_And_Get
6261: ( p_count => x_msg_count,
6262: p_data => x_msg_data
6263: );
6264:
6266: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception');
6267: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
6268: ROLLBACK TO CALL_FFM_PVT;
6269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6270: FND_MSG_PUB.Count_And_Get
6271: ( p_count => x_msg_count,
6272: p_data => x_msg_data
6273: );
6274:
6314:
6315: -- Initialize message list IF p_init_msg_list is set to TRUE.
6316: IF FND_API.to_Boolean( p_init_msg_list )
6317: THEN
6318: FND_MSG_PUB.initialize;
6319: END IF;
6320:
6321: -- Initialize API return status to SUCCESS
6322: x_return_status := FND_API.G_RET_STS_SUCCESS;
6384: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - callback_date='||x_callback_date);
6385:
6386: -- Standard call to get message count and IF count is 1, get message info.
6387:
6388: FND_MSG_PUB.Count_And_Get
6389: ( p_count => x_msg_count,
6390: p_data => x_msg_data );
6391:
6392: EXCEPTION
6538: l_org_id:= mo_global.get_current_org_id;
6539:
6540: IF FND_API.to_Boolean( p_init_msg_list )
6541: THEN
6542: FND_MSG_PUB.initialize;
6543: END IF;
6544:
6545: l_return_status := FND_API.G_RET_STS_SUCCESS;
6546:
6547: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - SEND_FFM:');
6548: if (p_template_id is null) then
6549: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No TEMPLATE_ID');
6550: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_TEMPLATE');
6551: FND_MSG_PUB.Add;
6552: l_return_status := FND_API.G_RET_STS_ERROR;
6553: GOTO end_call_ffm;
6554: end if;
6555: if (p_party_id is null AND (p_email IS NULL OR p_email = FND_API.G_MISS_CHAR)) then
6554: end if;
6555: if (p_party_id is null AND (p_email IS NULL OR p_email = FND_API.G_MISS_CHAR)) then
6556: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No PARTY_ID or EMAIL');
6557: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_PARTY');
6558: FND_MSG_PUB.Add;
6559: l_return_status := FND_API.G_RET_STS_ERROR;
6560: GOTO end_call_ffm;
6561: end if;
6562: if (p_method is null) then
6561: end if;
6562: if (p_method is null) then
6563: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No METHOD');
6564: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_METHOD');
6565: FND_MSG_PUB.Add;
6566: l_return_status := FND_API.G_RET_STS_ERROR;
6567: GOTO end_call_ffm;
6568: end if;
6569:
6572: l_subject := NVL(FND_PROFILE.value('IEX_FULFILL_SUBJECT'), '');
6573: if (l_subject is null or l_subject = '') then
6574: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No FFM Subject',0);
6575: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_SUBJECT');
6576: FND_MSG_PUB.Add;
6577: l_return_status := FND_API.G_RET_STS_ERROR;
6578: GOTO end_call_ffm;
6579: end if;
6580:
6671: If ( C_GET_CONTENTS%NOTFOUND ) Then
6672: if (nIdx = 0) then
6673: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Contents NotFound');
6674: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_FFMCONTENT');
6675: FND_MSG_PUB.Add;
6676: l_return_status := FND_API.G_RET_STS_ERROR;
6677: end if;
6678: GOTO end_call_ffm;
6679: --exit;
6891: x_return_status := l_return_status;
6892:
6893: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return_status:'||x_return_status);
6894:
6895: FND_MSG_PUB.Count_And_Get
6896: ( p_count => x_msg_count,
6897: p_data => x_msg_data );
6898:
6899: EXCEPTION
6902: errmsg := SQLERRM;
6903: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
6904: ROLLBACK TO SEND_FULFILLMENT_PVT;
6905: x_return_status := FND_API.G_RET_STS_ERROR;
6906: FND_MSG_PUB.Count_And_Get
6907: ( p_count => x_msg_count,
6908: p_data => x_msg_data
6909: );
6910:
6913: errmsg := SQLERRM;
6914: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
6915: ROLLBACK TO SEND_FULFILLMENT_PVT;
6916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6917: FND_MSG_PUB.Count_And_Get
6918: ( p_count => x_msg_count,
6919: p_data => x_msg_data
6920: );
6921:
6924: errmsg := SQLERRM;
6925: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
6926: ROLLBACK TO SEND_FULFILLMENT_PVT;
6927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6928: FND_MSG_PUB.Count_And_Get
6929: ( p_count => x_msg_count,
6930: p_data => x_msg_data
6931: );
6932:
7110: l_resend := 'N';
7111: END IF;
7112: -- end clchang added 11/08/04 for 11.5.11
7113:
7114: FND_MSG_PUB.initialize;
7115:
7116: l_return_status := FND_API.G_RET_STS_SUCCESS;
7117:
7118: if (p_object_code is null) then
7117:
7118: if (p_object_code is null) then
7119: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No OBJECT_ID',0);
7120: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_OBJECT');
7121: FND_MSG_PUB.Add;
7122: l_return_status := FND_API.G_RET_STS_ERROR;
7123: GOTO end_call_ffm;
7124: end if;
7125:
7125:
7126: if (p_template_id is null) then
7127: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No TEMPLATE_ID',0);
7128: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_TEMPLATE');
7129: FND_MSG_PUB.Add;
7130: l_return_status := FND_API.G_RET_STS_ERROR;
7131: GOTO end_call_ffm;
7132: end if;
7133:
7133:
7134: if (p_party_id is null AND (p_email IS NULL OR p_email = FND_API.G_MISS_CHAR)) then
7135: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No PARTY_ID or EMAIL',0);
7136: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_PARTY');
7137: FND_MSG_PUB.Add;
7138: l_return_status := FND_API.G_RET_STS_ERROR;
7139: GOTO end_call_ffm;
7140: end if;
7141:
7141:
7142: if (p_method is null) then
7143: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No METHOD',0);
7144: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_METHOD');
7145: FND_MSG_PUB.Add;
7146: l_return_status := FND_API.G_RET_STS_ERROR;
7147: GOTO end_call_ffm;
7148: end if;
7149:
7152: l_subject := NVL(FND_PROFILE.value('IEX_FULFILL_SUBJECT'), '');
7153: if (l_subject is null or l_subject = '') then
7154: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No XML Subject');
7155: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_SUBJECT');
7156: FND_MSG_PUB.Add;
7157: l_return_status := FND_API.G_RET_STS_ERROR;
7158: GOTO end_call_ffm;
7159: end if;
7160:
7176:
7177: if (l_resource_id is null) then
7178: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No Resource for user '||l_user_id);
7179: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_RESOURCE');
7180: FND_MSG_PUB.Add;
7181: l_return_status := FND_API.G_RET_STS_ERROR;
7182: GOTO end_call_ffm;
7183: end if;
7184: l_fulfillment_bind_tbl := p_fulfillment_bind_tbl;
7241: WHEN OTHERS THEN
7242: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' throws exception');
7243: l_return_status := FND_API.G_RET_STS_ERROR;
7244: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_DELIVERY');
7245: FND_MSG_PUB.Add;
7246: END;
7247:
7248: else -- either resending after error or sending for the first time
7249:
7283: -- checking for location
7284: IF l_location_id is null then
7285: WriteLog(G_PKG_NAME || ' ' || l_api_name || ': No location found');
7286: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_ADDRESS');
7287: FND_MSG_PUB.Add;
7288: l_return_status := FND_API.G_RET_STS_ERROR;
7289: GOTO end_call_ffm;
7290: end if;
7291:
7307:
7308: IF (l_printer = '' or l_printer is null) THEN
7309: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No Printer',0);
7310: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_PRINTER');
7311: FND_MSG_PUB.Add;
7312: l_return_status := FND_API.G_RET_STS_ERROR;
7313: GOTO end_call_ffm;
7314: END IF;
7315:
7330: if l_contact_point_id is null then
7331: if p_method = 'EMAIL' then
7332: WriteLog(G_PKG_NAME || ' ' || l_api_name || ': No email found');
7333: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_EMAIL');
7334: FND_MSG_PUB.Add;
7335: ELSIF p_method = 'FAX' THEN
7336: WriteLog(G_PKG_NAME || ' ' || l_api_name || ': No fax found');
7337: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_FAX');
7338: FND_MSG_PUB.Add;
7334: FND_MSG_PUB.Add;
7335: ELSIF p_method = 'FAX' THEN
7336: WriteLog(G_PKG_NAME || ' ' || l_api_name || ': No fax found');
7337: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_FAX');
7338: FND_MSG_PUB.Add;
7339: end if;
7340:
7341: l_return_status := FND_API.G_RET_STS_ERROR;
7342: GOTO end_call_ffm;
7383: If ( C_GET_QUERY%NOTFOUND ) Then
7384: if (nIdx = 0) then
7385: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Query NotFound');
7386: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_QUERY');
7387: FND_MSG_PUB.Add;
7388: l_return_status := FND_API.G_RET_STS_ERROR;
7389: GOTO end_call_ffm;
7390: end if;
7391: exit;
7436: WHEN OTHERS THEN
7437: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' throws exception');
7438: l_return_status := FND_API.G_RET_STS_ERROR;
7439: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_DELIVERY');
7440: FND_MSG_PUB.Add;
7441: END;
7442:
7443: END IF;
7444:
7449: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_return_status='||l_return_status);
7450:
7451: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7452:
7453: l_msg := FND_MSG_PUB.Get(p_msg_index => 1, p_encoded => 'T');
7454: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_msg: ' || l_msg);
7455: FND_MESSAGE.PARSE_ENCODED(l_msg, l_app, l_msg_name);
7456: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Error name: ' || l_msg_name);
7457:
7570: x_return_status := l_return_status;
7571:
7572:
7573:
7574: FND_MSG_PUB.Count_And_Get
7575: ( p_count => x_msg_count,
7576: p_data => x_msg_data );
7577:
7578: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_return_status: '||x_return_status);
7585: errmsg := SQLERRM;
7586: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
7587: -- ROLLBACK TO SEND_XML_PVT;
7588: x_return_status := FND_API.G_RET_STS_ERROR;
7589: FND_MSG_PUB.Count_And_Get
7590: ( p_count => x_msg_count,
7591: p_data => x_msg_data
7592: );
7593:
7596: errmsg := SQLERRM;
7597: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
7598: -- ROLLBACK TO SEND_XML_PVT;
7599: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7600: FND_MSG_PUB.Count_And_Get
7601: ( p_count => x_msg_count,
7602: p_data => x_msg_data
7603: );
7604:
7607: errmsg := SQLERRM;
7608: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
7609: -- ROLLBACK TO SEND_XML_PVT;
7610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7611: FND_MSG_PUB.Count_And_Get
7612: ( p_count => x_msg_count,
7613: p_data => x_msg_data
7614: );
7615:
7715:
7716: -- Initialize message list IF p_init_msg_list is set to TRUE.
7717: IF FND_API.to_Boolean( p_init_msg_list )
7718: THEN
7719: FND_MSG_PUB.initialize;
7720: END IF;
7721:
7722: -- Initialize API return status to SUCCESS
7723: l_return_status := FND_API.G_RET_STS_SUCCESS;
7725:
7726: if (p_party_id is null) then
7727: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No PARTY_ID');
7728: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_PARTY');
7729: FND_MSG_PUB.Add;
7730: l_return_status := FND_API.G_RET_STS_ERROR;
7731: GOTO end_getcontact;
7732: end if;
7733: if (p_method is null) then
7732: end if;
7733: if (p_method is null) then
7734: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No METHOD');
7735: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_METHOD');
7736: FND_MSG_PUB.Add;
7737: l_return_status := FND_API.G_RET_STS_ERROR;
7738: GOTO end_getcontact;
7739: end if;
7740:
7752: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Printer:'||l_printer);
7753: if (l_printer = '' or l_printer is null) then
7754: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No Printer');
7755: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_PRINTER');
7756: FND_MSG_PUB.Add;
7757: l_return_status := FND_API.G_RET_STS_ERROR;
7758: GOTO end_getcontact;
7759: end if;
7760: x_contact := l_printer;
7765: Fetch C_Get_PARTY_TYPE into l_party_type;
7766: If ( C_GET_PARTY_TYPE%NOTFOUND ) Then
7767: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - cannot find party type');
7768: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_PARTYTYPE');
7769: FND_MSG_PUB.Add;
7770: l_return_status := FND_API.G_RET_STS_ERROR;
7771: Close C_Get_PARTY_TYPE;
7772: GOTO end_getcontact;
7773: END IF;
7800: (x_contact is null or l_return_status <> FND_API.G_RET_STS_SUCCESS))
7801: then
7802: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - person contact NotFound');
7803: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_CONTACTINFO');
7804: FND_MSG_PUB.Add;
7805: l_return_status := FND_API.G_RET_STS_ERROR;
7806: GOTO end_getcontact;
7807: end if;
7808: --
7822: Fetch C_Get_ORG_PARTY into l_party_id;
7823: If ( C_GET_ORG_PARTY%NOTFOUND ) Then
7824: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - cannot find org party');
7825: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_ORG');
7826: FND_MSG_PUB.Add;
7827: l_return_status := FND_API.G_RET_STS_ERROR;
7828: Close C_Get_ORG_PARTY;
7829: GOTO end_getcontact;
7830: end if;
7922:
7923: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return_status:'||x_return_status);
7924: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - ContactInfo:'||x_contact);
7925:
7926: FND_MSG_PUB.Count_And_Get
7927: ( p_count => x_msg_count,
7928: p_data => x_msg_data );
7929:
7930: EXCEPTION
7933: x_return_status := FND_API.G_RET_STS_ERROR;
7934: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exp Exception');
7935: errmsg := SQLERRM;
7936: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
7937: FND_MSG_PUB.Count_And_Get
7938: ( p_count => x_msg_count,
7939: p_data => x_msg_data
7940: );
7941:
7944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7945: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExp Exception');
7946: errmsg := SQLERRM;
7947: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
7948: FND_MSG_PUB.Count_And_Get
7949: ( p_count => x_msg_count,
7950: p_data => x_msg_data
7951: );
7952:
7955: ROLLBACK TO GetContactInfo_PVT;
7956: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7957: errmsg := SQLERRM;
7958: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
7959: FND_MSG_PUB.Count_And_Get
7960: ( p_count => x_msg_count,
7961: p_data => x_msg_data
7962: );
7963:
8061:
8062: -- Initialize message list IF p_init_msg_list is set to TRUE.
8063: IF FND_API.to_Boolean( p_init_msg_list )
8064: THEN
8065: FND_MSG_PUB.initialize;
8066: END IF;
8067:
8068: -- Initialize API return status to SUCCESS
8069: l_return_status := FND_API.G_RET_STS_SUCCESS;
8072:
8073: if (p_party_id is null) then
8074: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No PARTY_ID');
8075: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_PARTY');
8076: FND_MSG_PUB.Add;
8077: l_return_status := FND_API.G_RET_STS_ERROR;
8078: GOTO end_getcontact;
8079: end if;
8080: if (p_method is null) then
8079: end if;
8080: if (p_method is null) then
8081: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No METHOD');
8082: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_METHOD');
8083: FND_MSG_PUB.Add;
8084: l_return_status := FND_API.G_RET_STS_ERROR;
8085: GOTO end_getcontact;
8086: end if;
8087:
8109:
8110: If ( C_GET_CONTACT_EMAIL2%NOTFOUND) Then
8111: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Customer NotFound');
8112: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_EMAIL');
8113: FND_MSG_PUB.Add;
8114: l_return_status := FND_API.G_RET_STS_ERROR;
8115: Close C_Get_CONTACT_EMAIL2;
8116: Close C_Get_CONTACT_EMAIL;
8117: GOTO end_getcontact;
8119: --
8120: If ( l_email is null ) Then
8121: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - EmailAddress NotFound in C_GET_ORG_EMAIL');
8122: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_EMAIL');
8123: FND_MSG_PUB.Add;
8124: l_return_status := FND_API.G_RET_STS_ERROR;
8125: Close C_Get_CONTACT_EMAIL2;
8126: Close C_Get_CONTACT_EMAIL;
8127: GOTO end_getcontact;
8132:
8133: If ( l_email is null ) Then
8134: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - EmailAddress is null');
8135: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_EMAIL');
8136: FND_MSG_PUB.Add;
8137: l_return_status := FND_API.G_RET_STS_ERROR;
8138: Close C_Get_CONTACT_EMAIL;
8139: GOTO end_getcontact;
8140: end if;
8160:
8161: If ( C_GET_CONTACT_FAX2%NOTFOUND) Then
8162: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Customer NotFound');
8163: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_FAX');
8164: FND_MSG_PUB.Add;
8165: l_return_status := FND_API.G_RET_STS_ERROR;
8166: Close C_Get_CONTACT_FAX2;
8167: Close C_Get_CONTACT_FAX;
8168: GOTO end_getcontact;
8170: --
8171: If ( l_fax is null ) Then
8172: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Fax NotFound in C_GET_CONTACT_FAX');
8173: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_FAX');
8174: FND_MSG_PUB.Add;
8175: l_return_status := FND_API.G_RET_STS_ERROR;
8176: Close C_Get_CONTACT_FAX2;
8177: Close C_Get_CONTACT_FAX;
8178: GOTO end_getcontact;
8183:
8184: If ( l_fax is null ) Then
8185: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - FAX NotFound');
8186: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_FAX');
8187: FND_MSG_PUB.Add;
8188: l_return_status := FND_API.G_RET_STS_ERROR;
8189: Close C_Get_CONTACT_FAX;
8190: GOTO end_getcontact;
8191: end if;
8210:
8211: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return_status:'||x_return_status);
8212: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - ContactInfo:'||x_contact);
8213:
8214: FND_MSG_PUB.Count_And_Get
8215: ( p_count => x_msg_count,
8216: p_data => x_msg_data );
8217:
8218: EXCEPTION
8221: x_return_status := FND_API.G_RET_STS_ERROR;
8222: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exp Exception');
8223: errmsg := SQLERRM;
8224: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
8225: FND_MSG_PUB.Count_And_Get
8226: ( p_count => x_msg_count,
8227: p_data => x_msg_data
8228: );
8229:
8232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8233: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExp Exception');
8234: errmsg := SQLERRM;
8235: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
8236: FND_MSG_PUB.Count_And_Get
8237: ( p_count => x_msg_count,
8238: p_data => x_msg_data
8239: );
8240:
8243: ROLLBACK TO GetContactPoint_PVT;
8244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8245: errmsg := SQLERRM;
8246: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
8247: FND_MSG_PUB.Count_And_Get
8248: ( p_count => x_msg_count,
8249: p_data => x_msg_data
8250: );
8251: END GetContactPoint;
8439: END IF;
8440:
8441: IF FND_API.to_Boolean( p_init_msg_list )
8442: THEN
8443: FND_MSG_PUB.initialize;
8444: END IF;
8445:
8446: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - start');
8447: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - running_level='||p_running_level);
8521: THEN
8522: COMMIT WORK;
8523: END IF;
8524:
8525: FND_MSG_PUB.Count_And_Get
8526: ( p_count => x_msg_count,
8527: p_data => x_msg_data );
8528:
8529: EXCEPTION
8532: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
8533: errmsg := SQLERRM;
8534: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
8535: x_return_status := FND_API.G_RET_STS_ERROR;
8536: FND_MSG_PUB.Count_And_Get
8537: ( p_count => x_msg_count,
8538: p_data => x_msg_data
8539: );
8540:
8543: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
8544: errmsg := SQLERRM;
8545: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
8546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8547: FND_MSG_PUB.Count_And_Get
8548: ( p_count => x_msg_count,
8549: p_data => x_msg_data
8550: );
8551:
8554: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
8555: errmsg := SQLERRM;
8556: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
8557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8558: FND_MSG_PUB.Count_And_Get
8559: ( p_count => x_msg_count,
8560: p_data => x_msg_data
8561: );
8562:
8653:
8654: -- Initialize message list if p_init_msg_list is set to TRUE.
8655: IF FND_API.to_Boolean( p_init_msg_list )
8656: THEN
8657: FND_MSG_PUB.initialize;
8658: END IF;
8659:
8660: -- Debug Message
8661: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start') ;
8798:
8799: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8800: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot create new Task');
8801: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot create new task');
8802: FND_MSG_PUB.Count_And_Get
8803: ( p_count => x_msg_count,
8804: p_data => x_msg_data );
8805: for i in 1..x_msg_count loop
8806: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
8802: FND_MSG_PUB.Count_And_Get
8803: ( p_count => x_msg_count,
8804: p_data => x_msg_data );
8805: for i in 1..x_msg_count loop
8806: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
8807: p_encoded => 'F');
8808: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error:'||errmsg);
8809: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg=' || errmsg);
8810: end loop;
8942: x_return_status := FND_API.G_RET_STS_SUCCESS;
8943: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status='||x_return_status);
8944: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
8945:
8946: FND_MSG_PUB.Count_And_Get
8947: ( p_count => x_msg_count,
8948: p_data => x_msg_data );
8949:
8950: EXCEPTION
8953: errmsg := SQLERRM;
8954: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
8955: ROLLBACK TO DAILY_DUNNING_PVT;
8956: x_return_status := FND_API.G_RET_STS_ERROR;
8957: FND_MSG_PUB.Count_And_Get
8958: ( p_count => x_msg_count,
8959: p_data => x_msg_data
8960: );
8961:
8964: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
8965: errmsg := SQLERRM;
8966: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
8967: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8968: FND_MSG_PUB.Count_And_Get
8969: ( p_count => x_msg_count,
8970: p_data => x_msg_data
8971: );
8972:
8975: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Others Exception');
8976: errmsg := SQLERRM;
8977: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
8978: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8979: FND_MSG_PUB.Count_And_Get
8980: ( p_count => x_msg_count,
8981: p_data => x_msg_data
8982: );
8983:
9444:
9445: <
9446: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9447: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Task');
9448: FND_MSG_PUB.Count_And_Get
9449: ( p_count => x_msg_count,
9450: p_data => x_msg_data
9451: );
9452: for i in 1..x_msg_count loop
9449: ( p_count => x_msg_count,
9450: p_data => x_msg_data
9451: );
9452: for i in 1..x_msg_count loop
9453: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
9454: p_encoded => 'F');
9455: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg='||errmsg);
9456: end loop;
9457:
9782:
9783: WriteLog('iexvdunb.pls:GetRS:END');
9784:
9785: -- Standard call to get message count and if count is 1, get message info.
9786: FND_MSG_PUB.Count_And_Get
9787: ( p_count => x_msg_count,
9788: p_data => x_msg_data
9789: );
9790:
9793: ROLLBACK TO GET_RESOURCE_PVT;
9794: x_return_status := FND_API.G_RET_STS_ERROR;
9795: l_errmsg := SQLERRM;
9796: WriteLog('iexvdunb:GetRs-G_EXC_EXCEPTION::' || l_errmsg);
9797: FND_MSG_PUB.Count_And_Get
9798: ( p_count => x_msg_count,
9799: p_data => x_msg_data
9800: );
9801:
9803: ROLLBACK TO GET_RESOURCE_PVT;
9804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9805: l_errmsg := SQLERRM;
9806: WriteLog('iexvdunb:GetRs-G_EXC_UNEXP_EXCEPTION:OTHERS:' || l_errmsg);
9807: FND_MSG_PUB.Count_And_Get
9808: ( p_count => x_msg_count,
9809: p_data => x_msg_data
9810: );
9811:
9813: ROLLBACK TO GET_RESOURCE_PVT;
9814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9815: l_errmsg := SQLERRM;
9816: WriteLog('iexvdunb:GetRs-EXCEPTION:OTHERS:' || l_errmsg);
9817: FND_MSG_PUB.Count_And_Get
9818: ( p_count => x_msg_count,
9819: p_data => x_msg_data
9820: );*/
9821: NULL;