[Home] [Help]
182: BEGIN
183:
184: IF FND_API.to_Boolean( p_init_msg_list )
185: THEN
186: FND_MSG_PUB.initialize;
187: END IF;
188:
189: x_return_status := FND_API.G_RET_STS_SUCCESS;
190:
302:
303: EXCEPTION
304: WHEN FND_API.G_EXC_ERROR THEN
305: x_return_status := FND_API.G_RET_STS_ERROR;
306: FND_MSG_PUB.Count_And_Get
307: ( p_count => x_msg_count,
308: p_data => x_msg_data );
309: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
310:
309: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
310:
311: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
313: FND_MSG_PUB.Count_And_Get
314: ( p_count => x_msg_count,
315: p_data => x_msg_data );
316: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
317:
316: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
317:
318: WHEN OTHERS THEN
319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
320: FND_MSG_PUB.Count_And_Get
321: ( p_count => x_msg_count,
322: p_data => x_msg_data );
323: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception error='||SQLERRM);
324: END;
448: BEGIN
449:
450: IF FND_API.to_Boolean( p_init_msg_list )
451: THEN
452: FND_MSG_PUB.initialize;
453: END IF;
454:
455: l_dun_contact_level := nvl(fnd_profile.value('IEX_DUNNING_CONTACT_SELECTION_METHOD'), 'ALL'); --Added for bug 6500750 gnramasa 13-Nov-07
456:
609:
610: WriteLog(l_api_name || ': X_CONTACT_ID = ' || X_CONTACT_ID);
611: WriteLog(l_api_name || ': X_CONTACT_POINT_ID = ' || X_CONTACT_POINT_ID);
612:
613: FND_MSG_PUB.Count_And_Get
614: ( p_count => x_msg_count,
615: p_data => x_msg_data );
616:
617: EXCEPTION
616:
617: EXCEPTION
618: WHEN FND_API.G_EXC_ERROR THEN
619: x_return_status := FND_API.G_RET_STS_ERROR;
620: FND_MSG_PUB.Count_And_Get
621: ( p_count => x_msg_count,
622: p_data => x_msg_data );
623: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
624:
623: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
624:
625: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
627: FND_MSG_PUB.Count_And_Get
628: ( p_count => x_msg_count,
629: p_data => x_msg_data );
630: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
631:
630: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
631:
632: WHEN OTHERS THEN
633: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
634: FND_MSG_PUB.Count_And_Get
635: ( p_count => x_msg_count,
636: p_data => x_msg_data );
637: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception error='||SQLERRM);
638: END;
782: BEGIN
783:
784: IF FND_API.to_Boolean( p_init_msg_list )
785: THEN
786: FND_MSG_PUB.initialize;
787: END IF;
788:
789: l_dun_contact_level := nvl(fnd_profile.value('IEX_DUNNING_CONTACT_SELECTION_METHOD'), 'ALL'); --Added for bug 6500750 gnramasa 13-Nov-07
790:
838: X_LOCATION_ID := null;
839: WriteLog(l_api_name || ': ERROR: Multiple Bill-To locations found');
840: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_MULT_LOC');
841: FND_MESSAGE.Set_Token('USAGE', 'bill-to', FALSE);
842: FND_MSG_PUB.Add;
843: x_return_status := FND_API.G_RET_STS_ERROR;
844: else
845: X_LOCATION_ID := l_location_id;
846: end if;
1048:
1049: WriteLog(l_api_name || ': X_CONTACT_ID = ' || X_CONTACT_ID);
1050: WriteLog(l_api_name || ': X_CONTACT_POINT_ID = ' || X_CONTACT_POINT_ID);
1051:
1052: FND_MSG_PUB.Count_And_Get
1053: ( p_count => x_msg_count,
1054: p_data => x_msg_data );
1055:
1056: EXCEPTION
1055:
1056: EXCEPTION
1057: WHEN FND_API.G_EXC_ERROR THEN
1058: x_return_status := FND_API.G_RET_STS_ERROR;
1059: FND_MSG_PUB.Count_And_Get
1060: ( p_count => x_msg_count,
1061: p_data => x_msg_data );
1062: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
1063:
1062: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
1063:
1064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1066: FND_MSG_PUB.Count_And_Get
1067: ( p_count => x_msg_count,
1068: p_data => x_msg_data );
1069: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
1070:
1069: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
1070:
1071: WHEN OTHERS THEN
1072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1073: FND_MSG_PUB.Count_And_Get
1074: ( p_count => x_msg_count,
1075: p_data => x_msg_data );
1076: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception error='||SQLERRM);
1077: END;
1155: BEGIN
1156:
1157: IF FND_API.to_Boolean( p_init_msg_list )
1158: THEN
1159: FND_MSG_PUB.initialize;
1160: END IF;
1161:
1162: x_return_status := FND_API.G_RET_STS_SUCCESS;
1163:
1188: CLOSE get_data_crs;
1189:
1190: if l_cust_account_id is null then
1191: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_ACCOUNT');
1192: FND_MSG_PUB.ADD;
1193: RAISE FND_API.G_EXC_ERROR;
1194: end if;
1195:
1196: WriteLog(l_api_name || ': Found account:');
1210: if l_count > 1 then
1211: WriteLog(l_api_name || ': ERROR: Multiple locations found');
1212: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_MULT_LOC');
1213: FND_MESSAGE.Set_Token('USAGE', l_site_use_code, FALSE);
1214: FND_MSG_PUB.Add;
1215: x_return_status := FND_API.G_RET_STS_ERROR;
1216: end if;
1217:
1218: -- call GET_ACCT_DUNNING_DATA for found account
1236: WriteLog(l_api_name || ': X_LOCATION_ID = ' || X_LOCATION_ID);
1237: WriteLog(l_api_name || ': X_CONTACT_ID = ' || X_CONTACT_ID);
1238: WriteLog(l_api_name || ': X_CONTACT_POINT_ID = ' || X_CONTACT_POINT_ID);
1239:
1240: FND_MSG_PUB.Count_And_Get
1241: ( p_count => x_msg_count,
1242: p_data => x_msg_data );
1243:
1244: EXCEPTION
1243:
1244: EXCEPTION
1245: WHEN FND_API.G_EXC_ERROR THEN
1246: x_return_status := FND_API.G_RET_STS_ERROR;
1247: FND_MSG_PUB.Count_And_Get
1248: ( p_count => x_msg_count,
1249: p_data => x_msg_data );
1250: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
1251:
1250: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
1251:
1252: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1254: FND_MSG_PUB.Count_And_Get
1255: ( p_count => x_msg_count,
1256: p_data => x_msg_data );
1257: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
1258:
1257: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
1258:
1259: WHEN OTHERS THEN
1260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1261: FND_MSG_PUB.Count_And_Get
1262: ( p_count => x_msg_count,
1263: p_data => x_msg_data );
1264: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception error='||SQLERRM);
1265: 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;
1538: begin
1539:
1540: IF FND_API.to_Boolean( p_init_msg_list )
1541: THEN
1542: FND_MSG_PUB.initialize;
1543: END IF;
1544:
1545: x_return_status := FND_API.G_RET_STS_SUCCESS;
1546:
1960:
1961: EXCEPTION
1962: WHEN FND_API.G_EXC_ERROR THEN
1963: x_return_status := FND_API.G_RET_STS_ERROR;
1964: FND_MSG_PUB.Count_And_Get
1965: ( p_count => x_msg_count,
1966: p_data => x_msg_data );
1967: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
1968:
1967: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
1968:
1969: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1970: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1971: FND_MSG_PUB.Count_And_Get
1972: ( p_count => x_msg_count,
1973: p_data => x_msg_data );
1974: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
1975:
1974: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
1975:
1976: WHEN OTHERS THEN
1977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1978: FND_MSG_PUB.Count_And_Get
1979: ( p_count => x_msg_count,
1980: p_data => x_msg_data );
1981: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception error='||SQLERRM);
1982: end;
1999: BEGIN
2000: -- Initialize message list IF p_init_msg_list is set to TRUE.
2001: IF FND_API.to_Boolean( p_init_msg_list )
2002: THEN
2003: FND_MSG_PUB.initialize;
2004: END IF;
2005:
2006: -- Initialize API return status to SUCCESS
2007: x_return_status := FND_API.G_RET_STS_SUCCESS;
2011: THEN
2012: FND_MESSAGE.Set_Name('IEX', 'API_INVALID_ID');
2013: FND_MESSAGE.Set_Token('COLUMN', 'delinquency_ID', FALSE);
2014: FND_MESSAGE.Set_Token('VALUE', p_delinquency_id, FALSE);
2015: FND_MSG_PUB.Add;
2016: x_return_status := FND_API.G_RET_STS_ERROR;
2017:
2018: ELSE
2019:
2021: FETCH C_Get_Del INTO l_delinquency_ID;
2022:
2023: IF (C_Get_Del%NOTFOUND)
2024: THEN
2025: IF FND_MSG_PUB.CHECK_MSG_LEVEL (FND_MSG_PUB.G_MSG_LVL_ERROR)
2026: THEN
2027: FND_MESSAGE.Set_Name('IEX', 'API_INVALID_ID');
2028: FND_MESSAGE.Set_Token('COLUMN', 'delinquency_ID', FALSE);
2029: FND_MESSAGE.Set_Token('VALUE', p_delinquency_id, FALSE);
2026: THEN
2027: FND_MESSAGE.Set_Name('IEX', 'API_INVALID_ID');
2028: FND_MESSAGE.Set_Token('COLUMN', 'delinquency_ID', FALSE);
2029: FND_MESSAGE.Set_Token('VALUE', p_delinquency_id, FALSE);
2030: FND_MSG_PUB.Add;
2031: END IF;
2032: x_return_status := FND_API.G_RET_STS_ERROR;
2033: END IF;
2034: CLOSE C_GET_Del;
2034: CLOSE C_GET_Del;
2035: END IF;
2036:
2037: -- Standard call to get message count and IF count is 1, get message info.
2038: FND_MSG_PUB.Count_And_Get
2039: ( p_count => x_msg_count,
2040: p_data => x_msg_data );
2041:
2042: END Validate_Delinquency;
2077:
2078: -- Initialize message list if p_init_msg_list is set to TRUE.
2079: IF FND_API.to_Boolean( p_init_msg_list )
2080: THEN
2081: FND_MSG_PUB.initialize;
2082: END IF;
2083:
2084: WriteLog(l_api_name || G_PKG_NAME || ' ' || l_api_name || ' - Start');
2085:
2131: END IF;
2132:
2133: WriteLog(l_api_name || G_PKG_NAME || ' ' || l_api_name || ' - End');
2134:
2135: FND_MSG_PUB.Count_And_Get
2136: ( p_count => x_msg_count,
2137: p_data => x_msg_data
2138: );
2139:
2139:
2140: EXCEPTION
2141: WHEN FND_API.G_EXC_ERROR THEN
2142: x_return_status := FND_API.G_RET_STS_ERROR;
2143: FND_MSG_PUB.Count_And_Get
2144: ( p_count => x_msg_count,
2145: p_data => x_msg_data );
2146: ROLLBACK TO CREATE_AG_DN_PVT;
2147: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
2147: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
2148:
2149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2151: FND_MSG_PUB.Count_And_Get
2152: ( p_count => x_msg_count,
2153: p_data => x_msg_data );
2154: ROLLBACK TO CREATE_AG_DN_PVT;
2155: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
2155: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
2156:
2157: WHEN OTHERS THEN
2158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2159: FND_MSG_PUB.Count_And_Get
2160: ( p_count => x_msg_count,
2161: p_data => x_msg_data );
2162: ROLLBACK TO CREATE_AG_DN_PVT;
2163: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
2227:
2228: -- Initialize message list if p_init_msg_list is set to TRUE.
2229: IF FND_API.to_Boolean( p_init_msg_list )
2230: THEN
2231: FND_MSG_PUB.initialize;
2232: END IF;
2233:
2234: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
2235: x_return_status := FND_API.G_RET_STS_SUCCESS;
2260: l_AG_DN_XREF_ref_rec.CREATED_BY,
2261: l_AG_DN_XREF_ref_rec.LAST_UPDATE_LOGIN;
2262:
2263: If ( C_Get_AG_DN_XREF_REC%NOTFOUND) Then
2264: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2265: THEN
2266: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
2267: FND_MESSAGE.Set_Token ('INFO', 'IEX_AG_DN_XREF', FALSE);
2268: FND_MSG_PUB.Add;
2264: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2265: THEN
2266: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
2267: FND_MESSAGE.Set_Token ('INFO', 'IEX_AG_DN_XREF', FALSE);
2268: FND_MSG_PUB.Add;
2269: END IF;
2270: raise FND_API.G_EXC_ERROR;
2271: END IF;
2272:
2275:
2276: If (l_ag_Dn_xref_rec.last_update_date is NULL or
2277: l_ag_Dn_xref_rec.last_update_date = FND_API.G_MISS_Date )
2278: Then
2279: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2280: THEN
2281: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
2282: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
2283: FND_MSG_PUB.ADD;
2279: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2280: THEN
2281: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
2282: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
2283: FND_MSG_PUB.ADD;
2284: END IF;
2285: raise FND_API.G_EXC_ERROR;
2286: End if;
2287: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Transfer Data into target rec');
2360: END IF;
2361:
2362: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UpdateAgDn:End ');
2363:
2364: FND_MSG_PUB.Count_And_Get
2365: ( p_count => x_msg_count,
2366: p_data => x_msg_data );
2367:
2368: EXCEPTION
2367:
2368: EXCEPTION
2369: WHEN FND_API.G_EXC_ERROR THEN
2370: x_return_status := FND_API.G_RET_STS_ERROR;
2371: FND_MSG_PUB.Count_And_Get
2372: ( p_count => x_msg_count,
2373: p_data => x_msg_data );
2374: ROLLBACK TO UPDATE_AG_DN_PVT;
2375: errmsg := SQLERRM;
2376: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
2377:
2378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR 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);
2384: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
2385:
2386: WHEN OTHERS THEN
2387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2388: FND_MSG_PUB.Count_And_Get
2389: ( p_count => x_msg_count,
2390: p_data => x_msg_data );
2391: ROLLBACK TO UPDATE_AG_DN_PVT;
2392: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
2432:
2433: -- Initialize message list if p_init_msg_list is set to TRUE.
2434: IF FND_API.to_Boolean( p_init_msg_list )
2435: THEN
2436: FND_MSG_PUB.initialize;
2437: END IF;
2438:
2439: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
2440: x_return_status := FND_API.G_RET_STS_SUCCESS;
2449:
2450: If ( C_Get_AG_DN_XREF%NOTFOUND) Then
2451: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - NotFound');
2452:
2453: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2454: THEN
2455: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
2456: FND_MESSAGE.Set_Token ('INFO', 'IEX_AG_DN_XREF', FALSE);
2457: FND_MSG_PUB.Add;
2453: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2454: THEN
2455: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
2456: FND_MESSAGE.Set_Token ('INFO', 'IEX_AG_DN_XREF', FALSE);
2457: FND_MSG_PUB.Add;
2458: END IF;
2459: raise FND_API.G_EXC_ERROR;
2460: END IF;
2461:
2485: END IF;
2486:
2487: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - End');
2488:
2489: FND_MSG_PUB.Count_And_Get
2490: ( p_count => x_msg_count,
2491: p_data => x_msg_data );
2492:
2493: EXCEPTION
2492:
2493: EXCEPTION
2494: WHEN FND_API.G_EXC_ERROR THEN
2495: x_return_status := FND_API.G_RET_STS_ERROR;
2496: FND_MSG_PUB.Count_And_Get
2497: ( p_count => x_msg_count,
2498: p_data => x_msg_data );
2499: ROLLBACK TO DELETE_AG_DN_PVT;
2500: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - DeleteAgDn:error='||SQLERRM);
2500: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - DeleteAgDn:error='||SQLERRM);
2501:
2502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2504: FND_MSG_PUB.Count_And_Get
2505: ( p_count => x_msg_count,
2506: p_data => x_msg_data );
2507: ROLLBACK TO DELETE_AG_DN_PVT;
2508: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - DeleteAgDn:error='||SQLERRM);
2508: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - DeleteAgDn:error='||SQLERRM);
2509:
2510: WHEN OTHERS THEN
2511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2512: FND_MSG_PUB.Count_And_Get
2513: ( p_count => x_msg_count,
2514: p_data => x_msg_data );
2515: ROLLBACK TO DELETE_AG_DN_PVT;
2516: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - DeleteAgDn:error='||SQLERRM);
2553:
2554: -- Initialize message list if p_init_msg_list is set to TRUE.
2555: IF FND_API.to_Boolean( p_init_msg_list )
2556: THEN
2557: FND_MSG_PUB.initialize;
2558: END IF;
2559:
2560: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - START');
2561: x_return_status := FND_API.G_RET_STS_SUCCESS;
2626: COMMIT WORK;
2627: END IF;
2628:
2629: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
2630: FND_MSG_PUB.Count_And_Get
2631: ( p_count => x_msg_count,
2632: p_data => x_msg_data
2633: );
2634:
2634:
2635: EXCEPTION
2636: WHEN FND_API.G_EXC_ERROR THEN
2637: x_return_status := FND_API.G_RET_STS_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 || 'exception ' || SQLERRM);
2642: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'exception ' || SQLERRM);
2643:
2644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2645: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2646: FND_MSG_PUB.Count_And_Get
2647: ( p_count => x_msg_count,
2648: p_data => x_msg_data );
2649: ROLLBACK TO CREATE_DUNNING_PVT;
2650: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'error ' || SQLERRM);
2650: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'error ' || SQLERRM);
2651:
2652: WHEN OTHERS THEN
2653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2654: FND_MSG_PUB.Count_And_Get
2655: ( p_count => x_msg_count,
2656: p_data => x_msg_data );
2657: ROLLBACK TO CREATE_DUNNING_PVT;
2658: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'error ' || SQLERRM);
2741:
2742: -- Initialize message list if p_init_msg_list is set to TRUE.
2743: IF FND_API.to_Boolean( p_init_msg_list )
2744: THEN
2745: FND_MSG_PUB.initialize;
2746: END IF;
2747:
2748: l_curr_count := p_inc_inv_curr.count;
2749:
3541: COMMIT WORK;
3542: END IF;
3543:
3544: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
3545: FND_MSG_PUB.Count_And_Get
3546: ( p_count => x_msg_count,
3547: p_data => x_msg_data
3548: );
3549:
3549:
3550: EXCEPTION
3551: WHEN FND_API.G_EXC_ERROR THEN
3552: x_return_status := FND_API.G_RET_STS_ERROR;
3553: FND_MSG_PUB.Count_And_Get
3554: ( p_count => x_msg_count,
3555: p_data => x_msg_data );
3556: ROLLBACK TO CREATE_STAGED_DUNNING_PVT;
3557: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'exception ' || SQLERRM);
3557: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'exception ' || SQLERRM);
3558:
3559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3561: FND_MSG_PUB.Count_And_Get
3562: ( p_count => x_msg_count,
3563: p_data => x_msg_data );
3564: ROLLBACK TO CREATE_STAGED_DUNNING_PVT;
3565: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'error ' || SQLERRM);
3565: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'error ' || SQLERRM);
3566:
3567: WHEN OTHERS THEN
3568: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3569: FND_MSG_PUB.Count_And_Get
3570: ( p_count => x_msg_count,
3571: p_data => x_msg_data );
3572: ROLLBACK TO CREATE_STAGED_DUNNING_PVT;
3573: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'error ' || SQLERRM);
3658:
3659: -- Initialize message list if p_init_msg_list is set to TRUE.
3660: IF FND_API.to_Boolean( p_init_msg_list )
3661: THEN
3662: FND_MSG_PUB.initialize;
3663: END IF;
3664:
3665: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - START');
3666: x_return_status := FND_API.G_RET_STS_SUCCESS;
3712: l_DUNNING_REF_REC.addt_xml_template_id,
3713: l_DUNNING_REF_REC.addt_delivery_status;
3714:
3715: If ( C_GET_DUNNING_REC%NOTFOUND) Then
3716: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3717: THEN
3718: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
3719: FND_MESSAGE.Set_Token ('INFO', 'iex_DUNNINGs', FALSE);
3720: FND_MSG_PUB.Add;
3716: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3717: THEN
3718: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
3719: FND_MESSAGE.Set_Token ('INFO', 'iex_DUNNINGs', FALSE);
3720: FND_MSG_PUB.Add;
3721: END IF;
3722: raise FND_API.G_EXC_ERROR;
3723: END IF;
3724:
3728: /*
3729: If (l_dunning_rec.last_update_date is NULL or
3730: l_dunning_rec.last_update_date = FND_API.G_MISS_Date )
3731: Then
3732: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3733: THEN
3734: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
3735: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
3736: FND_MSG_PUB.ADD;
3732: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3733: THEN
3734: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
3735: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
3736: FND_MSG_PUB.ADD;
3737: END IF;
3738: raise FND_API.G_EXC_ERROR;
3739: End if;
3740: */
3935: END IF;
3936:
3937: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
3938:
3939: FND_MSG_PUB.Count_And_Get
3940: ( p_count => x_msg_count,
3941: p_data => x_msg_data );
3942:
3943: EXCEPTION
3942:
3943: EXCEPTION
3944: WHEN FND_API.G_EXC_ERROR THEN
3945: x_return_status := FND_API.G_RET_STS_ERROR;
3946: FND_MSG_PUB.Count_And_Get
3947: ( p_count => x_msg_count,
3948: p_data => x_msg_data );
3949: ROLLBACK TO UPDATE_DUNNING_PVT;
3950: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
3950: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception error='||SQLERRM);
3951:
3952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3954: FND_MSG_PUB.Count_And_Get
3955: ( p_count => x_msg_count,
3956: p_data => x_msg_data );
3957: ROLLBACK TO UPDATE_DUNNING_PVT;
3958: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
3958: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception error='||SQLERRM);
3959:
3960: WHEN OTHERS THEN
3961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3962: FND_MSG_PUB.Count_And_Get
3963: ( p_count => x_msg_count,
3964: p_data => x_msg_data );
3965: ROLLBACK TO UPDATE_DUNNING_PVT;
3966: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception error='||SQLERRM);
4282:
4283: -- Initialize message list if p_init_msg_list is set to TRUE.
4284: IF FND_API.to_Boolean( p_init_msg_list )
4285: THEN
4286: FND_MSG_PUB.initialize;
4287: END IF;
4288:
4289: if (p_resend_flag = 'Y') then
4290: -- don't write into FILE
4416:
4417: IF (l_noskip > 0) THEN
4418:
4419: -- init the msg (not including the msg from dispute api)
4420: FND_MSG_PUB.initialize;
4421:
4422: /*===========================================
4423: * Get Score From IEX_SCORE_HISTORIES
4424: * If NotFound => Call API to getScore;
4428: Fetch C_Get_SCORE into l_score;
4429:
4430: If ( C_GET_SCORE%NOTFOUND) Then
4431: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_SCORE');
4432: FND_MSG_PUB.Add;
4433: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Missing Score');
4434: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Missing Score');
4435: Close C_Get_SCORE;
4436: RAISE FND_API.G_EXC_ERROR;
4462:
4463: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - AgingDel status='||x_return_status);
4464: If ( x_return_status <> FND_API.G_RET_STS_SUCCESS) Then
4465: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_AGINGBUCKETLINE');
4466: FND_MSG_PUB.Add;
4467: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - AgingBucketLineId notfound');
4468: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AgingBucketLineId NotFound');
4469: RAISE FND_API.G_EXC_ERROR;
4470: END IF;
4490: If ( C_GET_TEMPLATE%NOTFOUND) Then
4491: --FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
4492: --FND_MESSAGE.Set_Token ('INFO', 'Template_ID', FALSE);
4493: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
4494: FND_MSG_PUB.Add;
4495: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Missing corresponding template');
4496: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Missing corresponding template : SEND_LEVEL_DUNNING');
4497: RAISE FND_API.G_EXC_ERROR;
4498: END IF;
4517: Fetch C_TEMPLATE_NAME into l_template_name;
4518: close C_TEMPLATE_NAME;
4519:
4520: FND_MESSAGE.Set_Name('IEX', 'IEX_TEMPLATE_INACTIVE');
4521: FND_MSG_PUB.Add;
4522: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Template: ''' || l_template_name || ''' is inactive');
4523: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Template: ''' || l_template_name || ''' is inactive');
4524: RAISE FND_API.G_EXC_ERROR;
4525: END IF;
4539: if ( (l_curr_dmethod is null or l_curr_dmethod = '') or
4540: (l_curr_dmethod = 'FFM' and l_template_id is null) or
4541: (l_curr_dmethod = 'XML' and l_xdo_template_id is null ) ) then
4542: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
4543: FND_MSG_PUB.Add;
4544: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Missing corresponding template');
4545: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Missing corresponding template');
4546: RAISE FND_API.G_EXC_ERROR;
4547:
4610: , p_site_use_id => l_customer_site_use_id_check
4611: , p_delinquency_id => l_delinquency_id_check ) = 'N'
4612: ) then
4613: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_PROFILE_NO');
4614: FND_MSG_PUB.Add;
4615: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Send dunning in customer profile set to no ');
4616: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Send dunning in customer profile set to no ');
4617: x_return_status := FND_API.G_RET_STS_ERROR;
4618: GOTO end_api;
4640: ) ;
4641: if l_dun_yn = 'N' then
4642: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Required min Dunning amount in customer profile ');
4643: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_AMOUNT_MIN');
4644: FND_MSG_PUB.Add;
4645: x_return_status := FND_API.G_RET_STS_ERROR;
4646: GOTO end_api;
4647: elsif l_dun_yn = 'E' then
4648: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - When Dunning level is Account, value of profile "IEX: Minimum Dunning Amount Profile Check" can''t be "Bill To" or "Bill To and Account". ');
4646: GOTO end_api;
4647: elsif l_dun_yn = 'E' then
4648: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - When Dunning level is Account, value of profile "IEX: Minimum Dunning Amount Profile Check" can''t be "Bill To" or "Bill To and Account". ');
4649: FND_MESSAGE.Set_Name('IEX', 'IEX_DUN_CUST_PRF_INVALID');
4650: FND_MSG_PUB.Add;
4651: x_return_status := FND_API.G_RET_STS_ERROR;
4652: GOTO end_api;
4653: end if;
4654: else
4668: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - final Amount due remaining at customer level ' || l_total_amount_due_remaining);
4669:
4670: if l_total_amount_due_remaining <= 0 then
4671: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_AMOUNT_MIN');
4672: FND_MSG_PUB.Add;
4673: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Amount due remaining is less than 0 ');
4674: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Amount due remaining is less than 0 ');
4675: x_return_status := FND_API.G_RET_STS_ERROR;
4676: GOTO end_api;
4865: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - GetCallbackDate status='|| x_return_status);
4866:
4867: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4868: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_CALLBACKDATE');
4869: FND_MSG_PUB.Add;
4870: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot find callback date');
4871: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot find callback date');
4872: x_return_status := FND_API.G_RET_STS_ERROR;
4873: GOTO end_api;
5158: goto end_api;
5159: end if;
5160:
5161: if (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
5162: FND_MSG_PUB.Count_And_Get
5163: ( p_count => x_msg_count,
5164: p_data => x_msg_data );
5165: for i in 1..x_msg_count loop
5166: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
5162: FND_MSG_PUB.Count_And_Get
5163: ( p_count => x_msg_count,
5164: p_data => x_msg_data );
5165: for i in 1..x_msg_count loop
5166: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
5167: p_encoded => 'F');
5168: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error:'||errmsg);
5169: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg=' || errmsg);
5170: end loop;
5179: else
5180: FND_FILE.PUT_LINE(FND_FILE.LOG, 'all delinquencies disputed' );
5181: end if;
5182: FND_FILE.PUT_LINE(FND_FILE.LOG, 'skip this party/account/site' );
5183: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
5184: p_data => x_msg_data );
5185: x_return_status := 'SKIP'; --FND_API.G_EXC_ERROR;
5186:
5187: end if; -- end of if (l_noskip>0)
5197: COMMIT WORK;
5198:
5199: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
5200:
5201: FND_MSG_PUB.Count_And_Get
5202: ( p_count => x_msg_count,
5203: p_data => x_msg_data );
5204:
5205: EXCEPTION
5205: EXCEPTION
5206: WHEN FND_API.G_EXC_ERROR THEN
5207: COMMIT WORK;
5208: x_return_status := FND_API.G_RET_STS_ERROR;
5209: FND_MSG_PUB.Count_And_Get
5210: ( p_count => x_msg_count,
5211: p_data => x_msg_data );
5212: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
5213: FND_FILE.PUT_LINE(FND_FILE.LOG, 'expect exception' );
5215:
5216: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5217: COMMIT WORK;
5218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5219: FND_MSG_PUB.Count_And_Get
5220: ( p_count => x_msg_count,
5221: p_data => x_msg_data );
5222: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
5223: FND_FILE.PUT_LINE(FND_FILE.LOG, 'unexpect exception' );
5225:
5226: WHEN OTHERS THEN
5227: COMMIT WORK;
5228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5229: FND_MSG_PUB.Count_And_Get
5230: ( p_count => x_msg_count,
5231: p_data => x_msg_data );
5232: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception');
5233: FND_FILE.PUT_LINE(FND_FILE.LOG, 'unexpect exception' );
5475:
5476: -- Initialize message list if p_init_msg_list is set to TRUE.
5477: IF FND_API.to_Boolean( p_init_msg_list )
5478: THEN
5479: FND_MSG_PUB.initialize;
5480: END IF;
5481:
5482: if (p_resend_flag = 'Y') then
5483: -- don't write into FILE
5599:
5600: IF (l_noskip > 0) THEN
5601:
5602: -- init the msg (not including the msg from dispute api)
5603: FND_MSG_PUB.initialize;
5604:
5605: /*===========================================
5606: * Get Score From IEX_SCORE_HISTORIES
5607: * If NotFound => Call API to getScore;
5611: Fetch C_Get_SCORE into l_score;
5612:
5613: If ( C_GET_SCORE%NOTFOUND) Then
5614: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_SCORE');
5615: FND_MSG_PUB.Add;
5616: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Missing Score');
5617: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Missing Score');
5618: Close C_Get_SCORE;
5619: RAISE FND_API.G_EXC_ERROR;
5847: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_dunn_letters: ' || l_dunn_letters);
5848:
5849: if l_dunn_letters = 'N' then
5850: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_AMOUNT_MIN');
5851: FND_MSG_PUB.Add;
5852: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Required min Dunning amount in customer profile ');
5853: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Required min Dunning amount in customer profile ');
5854: x_return_status := FND_API.G_RET_STS_ERROR;
5855: GOTO end_api;
5919: Fetch C_TEMPLATE_NAME into l_template_name;
5920: close C_TEMPLATE_NAME;
5921:
5922: FND_MESSAGE.Set_Name('IEX', 'IEX_TEMPLATE_INACTIVE');
5923: FND_MSG_PUB.Add;
5924: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Template: ''' || l_template_name || ''' is inactive');
5925: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Template: ''' || l_template_name || ''' is inactive');
5926: RAISE FND_API.G_EXC_ERROR;
5927: END IF;
5941: if ( (l_curr_dmethod is null or l_curr_dmethod = '') or
5942: (l_curr_dmethod = 'FFM' and l_template_id is null) or
5943: (l_curr_dmethod = 'XML' and l_xdo_template_id is null ) ) then
5944: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
5945: FND_MSG_PUB.Add;
5946: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Missing corresponding template');
5947: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Missing corresponding template');
5948: RAISE FND_API.G_EXC_ERROR;
5949:
5980: , p_site_use_id => l_customer_site_use_id_check
5981: , p_delinquency_id => l_delinquency_id_check ) = 'N'
5982: ) then
5983: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_PROFILE_NO');
5984: FND_MSG_PUB.Add;
5985: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Send dunning in customer profile set to no ');
5986: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Send dunning in customer profile set to no ');
5987: x_return_status := FND_API.G_RET_STS_ERROR;
5988: GOTO end_api;
6318: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - GetCallbackDate status='|| x_return_status);
6319:
6320: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6321: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_CALLBACKDATE');
6322: FND_MSG_PUB.Add;
6323: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot find callback date');
6324: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot find callback date');
6325: x_return_status := FND_API.G_RET_STS_ERROR;
6326: GOTO end_api;
6350: Fetch C_TEMPLATE_NAME into l_template_name;
6351: close C_TEMPLATE_NAME;
6352:
6353: FND_MESSAGE.Set_Name('IEX', 'IEX_TEMPLATE_INACTIVE');
6354: FND_MSG_PUB.Add;
6355: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Template: ''' || l_template_name || ''' is inactive');
6356: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Template: ''' || l_template_name || ''' is inactive');
6357: RAISE FND_API.G_EXC_ERROR;
6358: END IF;
6796:
6797: --End bug 9696806 gnramasa 27th May 10
6798:
6799: if (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
6800: FND_MSG_PUB.Count_And_Get
6801: ( p_count => x_msg_count,
6802: p_data => x_msg_data );
6803: for i in 1..x_msg_count loop
6804: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
6800: FND_MSG_PUB.Count_And_Get
6801: ( p_count => x_msg_count,
6802: p_data => x_msg_data );
6803: for i in 1..x_msg_count loop
6804: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
6805: p_encoded => 'F');
6806: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error:'||errmsg);
6807: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg=' || errmsg);
6808: end loop;
6817: else
6818: FND_FILE.PUT_LINE(FND_FILE.LOG, 'all delinquencies disputed' );
6819: end if;
6820: FND_FILE.PUT_LINE(FND_FILE.LOG, 'skip this party/account/site' );
6821: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
6822: p_data => x_msg_data );
6823: x_return_status := 'SKIP'; --FND_API.G_EXC_ERROR;
6824:
6825: end if; -- end of if (l_noskip>0)
6835: COMMIT WORK;
6836:
6837: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
6838:
6839: FND_MSG_PUB.Count_And_Get
6840: ( p_count => x_msg_count,
6841: p_data => x_msg_data );
6842:
6843: EXCEPTION
6843: EXCEPTION
6844: WHEN FND_API.G_EXC_ERROR THEN
6845: COMMIT WORK;
6846: x_return_status := FND_API.G_RET_STS_ERROR;
6847: FND_MSG_PUB.Count_And_Get
6848: ( p_count => x_msg_count,
6849: p_data => x_msg_data );
6850: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
6851: FND_FILE.PUT_LINE(FND_FILE.LOG, 'expect exception' );
6853:
6854: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6855: COMMIT WORK;
6856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6857: FND_MSG_PUB.Count_And_Get
6858: ( p_count => x_msg_count,
6859: p_data => x_msg_data );
6860: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
6861: FND_FILE.PUT_LINE(FND_FILE.LOG, 'unexpect exception' );
6863:
6864: WHEN OTHERS THEN
6865: COMMIT WORK;
6866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6867: FND_MSG_PUB.Count_And_Get
6868: ( p_count => x_msg_count,
6869: p_data => x_msg_data );
6870: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception');
6871: FND_FILE.PUT_LINE(FND_FILE.LOG, 'unexpect exception' );
7101:
7102: -- Initialize message list if p_init_msg_list is set to TRUE.
7103: IF FND_API.to_Boolean( p_init_msg_list )
7104: THEN
7105: FND_MSG_PUB.initialize;
7106: END IF;
7107:
7108: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
7109:
7163: fetch c_get_score_del into l_score;
7164:
7165: If ( c_get_score_del%NOTFOUND) Then
7166: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_SCORE');
7167: FND_MSG_PUB.Add;
7168: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Score NotFound');
7169: Close c_get_score_del;
7170: x_return_status := FND_API.G_RET_STS_ERROR;
7171: GOTO end_loop;
7288: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7289: --FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
7290: --FND_MESSAGE.Set_Token ('INFO', 'iex:AginBucketLineId', FALSE);
7291: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_AGINGBUCKETLINE');
7292: FND_MSG_PUB.Add;
7293: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Get AgingBucketLineId');
7294: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot AgingBucketLineId' );
7295: --msg
7296: FND_MSG_PUB.Count_And_Get
7292: FND_MSG_PUB.Add;
7293: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Get AgingBucketLineId');
7294: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot AgingBucketLineId' );
7295: --msg
7296: FND_MSG_PUB.Count_And_Get
7297: ( p_count => x_msg_count,
7298: p_data => x_msg_data );
7299: for i in 1..x_msg_count loop
7300: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
7296: FND_MSG_PUB.Count_And_Get
7297: ( p_count => x_msg_count,
7298: p_data => x_msg_data );
7299: for i in 1..x_msg_count loop
7300: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
7301: p_encoded => 'F');
7302: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error:'||errmsg);
7303: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg=' || errmsg);
7304: end loop;
7326: l_bucket;
7327:
7328: If ( C_GET_TEMPLATE%NOTFOUND) Then
7329: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
7330: FND_MSG_PUB.Add;
7331: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Missing corresponding template');
7332: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Missing corresponding template' );
7333: Close C_Get_TEMPLATE;
7334: GOTO end_loop;
7355: Fetch C_TEMPLATE_NAME into l_template_name;
7356: close C_TEMPLATE_NAME;
7357:
7358: FND_MESSAGE.Set_Name('IEX', 'IEX_TEMPLATE_INACTIVE');
7359: FND_MSG_PUB.Add;
7360: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Template: ''' || l_template_name || ''' is inactive');
7361: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Template: ''' || l_template_name || ''' is inactive');
7362: RAISE FND_API.G_EXC_ERROR;
7363: END IF;
7379: (l_curr_dmethod = 'XML' and l_xdo_template_id is null ) ) then
7380: --FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
7381: --FND_MESSAGE.Set_Token ('INFO', 'Template_ID', FALSE);
7382: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
7383: FND_MSG_PUB.Add;
7384: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Missing corresponding template');
7385: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Missing corresponding template' );
7386: x_return_status := FND_API.G_RET_STS_ERROR;
7387: GOTO end_loop;
7419: , p_site_use_id => l_customer_site_use_id
7420: , p_delinquency_id => l_delinquency_id ) = 'N'
7421: ) then
7422: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_PROFILE_NO');
7423: FND_MSG_PUB.Add;
7424: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Send dunning in customer profile set to no ');
7425: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Send dunning in customer profile set to no ');
7426: GOTO end_loop;
7427: end if;
7445:
7446: If ( C_AMOUNT%NOTFOUND) Then
7447: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
7448: FND_MESSAGE.Set_Token ('INFO', 'iex:amount', FALSE);
7449: FND_MSG_PUB.Add;
7450: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - amount notfound');
7451: END IF;
7452: close C_AMOUNT;
7453:
7523: );
7524: IF l_dun_yn = 'N' then
7525: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Required min Dunning amount in customer profile ');
7526: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_AMOUNT_MIN');
7527: FND_MSG_PUB.Add;
7528: GOTO end_loop;
7529: ELSIF l_dun_yn = 'E' then
7530: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - When Dunning level is Account, value of profile "IEX: Minimum Dunning Amount Profile Check" can''t be "Bill To" or "Bill To and Account". ');
7531: FND_MESSAGE.Set_Name('IEX', 'IEX_DUN_CUST_PRF_INVALID');
7528: GOTO end_loop;
7529: ELSIF l_dun_yn = 'E' then
7530: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - When Dunning level is Account, value of profile "IEX: Minimum Dunning Amount Profile Check" can''t be "Bill To" or "Bill To and Account". ');
7531: FND_MESSAGE.Set_Name('IEX', 'IEX_DUN_CUST_PRF_INVALID');
7532: FND_MSG_PUB.Add;
7533: GOTO end_loop;
7534: END IF;
7535: -- end code for bug 15933013
7536: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - end check customer profile');
7622:
7623: If ( C_AMOUNT%NOTFOUND) Then
7624: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
7625: FND_MESSAGE.Set_Token ('INFO', 'iex:amount', FALSE);
7626: FND_MSG_PUB.Add;
7627: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - amount notfound');
7628: END IF;
7629:
7630: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - close C_AMOUNT');
7822: --End adding for bug 8489610 by gnramasa 14-May-09
7823:
7824: IF x_return_status <> FND_API.G_RET_STS_SUCCESS and x_return_status <> 'W' THEN
7825: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Not Sending Letters');
7826: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
7827: p_data => x_msg_data );
7828: for i in 1..x_msg_count loop
7829: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
7830: p_encoded => 'F');
7825: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Not Sending Letters');
7826: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
7827: p_data => x_msg_data );
7828: for i in 1..x_msg_count loop
7829: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
7830: p_encoded => 'F');
7831: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error:'||errmsg);
7832: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg=' || errmsg);
7833: end loop;
7887:
7888: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status = ' || x_return_status);
7889: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
7890:
7891: FND_MSG_PUB.Count_And_Get
7892: ( p_count => x_msg_count,
7893: p_data => x_msg_data );
7894:
7895: EXCEPTION
7896: WHEN FND_API.G_EXC_ERROR THEN
7897: COMMIT WORK;
7898: x_return_status := FND_API.G_RET_STS_ERROR;
7899: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
7900: FND_MSG_PUB.Count_And_Get
7901: ( p_count => x_msg_count,
7902: p_data => x_msg_data );
7903:
7904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7905: COMMIT WORK;
7906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7907: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
7908: FND_MSG_PUB.Count_And_Get
7909: ( p_count => x_msg_count,
7910: p_data => x_msg_data );
7911:
7912: WHEN OTHERS THEN
7912: WHEN OTHERS THEN
7913: COMMIT WORK;
7914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7915: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
7916: FND_MSG_PUB.Count_And_Get
7917: ( p_count => x_msg_count,
7918: p_data => x_msg_data );
7919:
7920: END Send_Dunning;
8303:
8304: -- Initialize message list if p_init_msg_list is set to TRUE.
8305: IF FND_API.to_Boolean( p_init_msg_list )
8306: THEN
8307: FND_MSG_PUB.initialize;
8308: END IF;
8309:
8310: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
8311:
8373: fetch c_get_score_del into l_score;
8374:
8375: If ( c_get_score_del%NOTFOUND) Then
8376: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_SCORE');
8377: FND_MSG_PUB.Add;
8378: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Score NotFound');
8379: Close c_get_score_del;
8380: x_return_status := FND_API.G_RET_STS_ERROR;
8381: -- GOTO end_loop_noCloseCursor; -- end_loop; bug 14797201
8490: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_dunn_letters: ' || l_dunn_letters);
8491:
8492: if l_dunn_letters = 'N' then
8493: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_AMOUNT_MIN');
8494: FND_MSG_PUB.Add;
8495: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Required min Dunning amount in customer profile ');
8496: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Required min Dunning amount in customer profile ');
8497: x_return_status := FND_API.G_RET_STS_ERROR;
8498: GOTO end_loop; -- GOTO end_api; -- bug 14797201
8540: Fetch C_TEMPLATE_NAME into l_template_name;
8541: close C_TEMPLATE_NAME;
8542:
8543: FND_MESSAGE.Set_Name('IEX', 'IEX_TEMPLATE_INACTIVE');
8544: FND_MSG_PUB.Add;
8545: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Template: ''' || l_template_name || ''' is inactive');
8546: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Template: ''' || l_template_name || ''' is inactive');
8547: RAISE FND_API.G_EXC_ERROR;
8548: END IF;
8617: (l_curr_dmethod = 'XML' and l_xdo_template_id is null ) ) then
8618: --FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
8619: --FND_MESSAGE.Set_Token ('INFO', 'Template_ID', FALSE);
8620: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
8621: FND_MSG_PUB.Add;
8622: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Missing corresponding template');
8623: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Missing corresponding template' );
8624: x_return_status := FND_API.G_RET_STS_ERROR;
8625: goto c_dunning_plan_lines; -- GOTO end_loop; -- bug 14797201
8637: , p_site_use_id => l_customer_site_use_id
8638: , p_delinquency_id => l_delinquency_id ) = 'N'
8639: ) then
8640: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_PROFILE_NO');
8641: FND_MSG_PUB.Add;
8642: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Send dunning in customer profile set to no ');
8643: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Send dunning in customer profile set to no ');
8644: goto c_dunning_plan_lines; -- GOTO end_loop; -- bug 14797201
8645: GOTO end_loop;
8722:
8723: If ( C_AMOUNT%NOTFOUND) Then
8724: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
8725: FND_MESSAGE.Set_Token ('INFO', 'iex:amount', FALSE);
8726: FND_MSG_PUB.Add;
8727: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - amount notfound');
8728: END IF;
8729:
8730: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - close C_AMOUNT');
8754: Fetch C_TEMPLATE_NAME into l_template_name;
8755: close C_TEMPLATE_NAME;
8756:
8757: FND_MESSAGE.Set_Name('IEX', 'IEX_TEMPLATE_INACTIVE');
8758: FND_MSG_PUB.Add;
8759: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Template: ''' || l_template_name || ''' is inactive');
8760: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Template: ''' || l_template_name || ''' is inactive');
8761: RAISE FND_API.G_EXC_ERROR;
8762: END IF;
8980: --End adding for bug 8489610 by gnramasa 14-May-09
8981:
8982: IF x_return_status <> FND_API.G_RET_STS_SUCCESS and x_return_status <> 'W' THEN
8983: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Not Sending Letters');
8984: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
8985: p_data => x_msg_data );
8986: for i in 1..x_msg_count loop
8987: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
8988: p_encoded => 'F');
8983: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Not Sending Letters');
8984: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
8985: p_data => x_msg_data );
8986: for i in 1..x_msg_count loop
8987: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
8988: p_encoded => 'F');
8989: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error:'||errmsg);
8990: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg=' || errmsg);
8991: end loop;
9080:
9081: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status = ' || x_return_status);
9082: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
9083:
9084: FND_MSG_PUB.Count_And_Get
9085: ( p_count => x_msg_count,
9086: p_data => x_msg_data );
9087:
9088: EXCEPTION
9089: WHEN FND_API.G_EXC_ERROR THEN
9090: COMMIT WORK;
9091: x_return_status := FND_API.G_RET_STS_ERROR;
9092: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
9093: FND_MSG_PUB.Count_And_Get
9094: ( p_count => x_msg_count,
9095: p_data => x_msg_data );
9096:
9097: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9097: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9098: COMMIT WORK;
9099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9100: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
9101: FND_MSG_PUB.Count_And_Get
9102: ( p_count => x_msg_count,
9103: p_data => x_msg_data );
9104:
9105: WHEN OTHERS THEN
9105: WHEN OTHERS THEN
9106: COMMIT WORK;
9107: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9108: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
9109: FND_MSG_PUB.Count_And_Get
9110: ( p_count => x_msg_count,
9111: p_data => x_msg_data );
9112:
9113: END Send_Staged_Dunning;
9325:
9326: -- Initialize message list if p_init_msg_list is set to TRUE.
9327: IF FND_API.to_Boolean( p_init_msg_list )
9328: THEN
9329: FND_MSG_PUB.initialize;
9330: END IF;
9331:
9332: -- don't write into FILE
9333: l_write := 0;
9435:
9436: IF (l_noskip > 0) THEN
9437:
9438: -- init the msg (not including the msg from dispute api)
9439: FND_MSG_PUB.initialize;
9440:
9441: /*===========================================
9442: * Get Score From IEX_SCORE_HISTORIES
9443: * If NotFound => Call API to getScore;
9451: If ( C_GET_SCORE%NOTFOUND) Then
9452: --FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
9453: --FND_MESSAGE.Set_Token ('INFO', 'Score', FALSE);
9454: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_SCORE');
9455: FND_MSG_PUB.Add;
9456: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Score NotFound');
9457: Close C_Get_SCORE;
9458: x_return_status := FND_API.G_RET_STS_ERROR;
9459: GOTO end_api;
9490: If ( x_return_status <> FND_API.G_RET_STS_SUCCESS) Then
9491: --FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
9492: --FND_MESSAGE.Set_Token ('INFO', 'AgingBucketLineId', FALSE);
9493: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_AGINGBUCKETLINE');
9494: FND_MSG_PUB.Add;
9495: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - AgingBucketLineId notfound');
9496: x_return_status := FND_API.G_RET_STS_ERROR;
9497: GOTO end_api;
9498: END IF;
9515: l_callback_days;
9516:
9517: If ( C_GET_TEMPLATE%NOTFOUND) Then
9518: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
9519: FND_MSG_PUB.Add;
9520: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template notfound');
9521: x_return_status := FND_API.G_RET_STS_ERROR;
9522: GOTO end_api;
9523: END IF;
9541: Fetch C_TEMPLATE_NAME into l_template_name;
9542: close C_TEMPLATE_NAME;
9543:
9544: FND_MESSAGE.Set_Name('IEX', 'IEX_TEMPLATE_INACTIVE');
9545: FND_MSG_PUB.Add;
9546: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Template: ''' || l_template_name || ''' is inactive');
9547: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Template: ''' || l_template_name || ''' is inactive');
9548: RAISE FND_API.G_EXC_ERROR;
9549: END IF;
9565: (l_curr_dmethod = 'XML' and l_xdo_template_id is null ) ) then
9566: --FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
9567: --FND_MESSAGE.Set_Token ('INFO', 'Template_ID', FALSE);
9568: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
9569: FND_MSG_PUB.Add;
9570: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Template notfound');
9571: x_return_status := FND_API.G_RET_STS_ERROR;
9572: GOTO end_api;
9573: end if;
9634: , p_site_use_id => l_customer_site_use_id_check
9635: , p_delinquency_id => l_delinquency_id_check ) = 'N'
9636: ) then
9637: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_PROFILE_NO');
9638: FND_MSG_PUB.Add;
9639: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Send dunning in customer profile set to no ');
9640: x_return_status := FND_API.G_RET_STS_ERROR;
9641: GOTO end_api;
9642: end if;
9662: , p_running_level=> p_running_level
9663: ) <> 'Y'
9664: ) then -- end bug 15933013
9665: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_AMOUNT_MIN');
9666: FND_MSG_PUB.Add;
9667: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Required min Dunning amount in customer profile ');
9668: x_return_status := FND_API.G_RET_STS_ERROR;
9669: GOTO end_api;
9670: end if;
9685: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - final Amount due remaining at customer level ' || l_total_amount_due_remaining);
9686:
9687: if l_total_amount_due_remaining <= 0 then
9688: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_AMOUNT_MIN');
9689: FND_MSG_PUB.Add;
9690: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Amount due remaining is less than 0 ');
9691: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Amount due remaining is less than 0 ');
9692: x_return_status := FND_API.G_RET_STS_ERROR;
9693: GOTO end_api;
10028: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - GetCallbackDate status='|| x_return_status, l_write);
10029:
10030: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10031: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_CALLBACKDATE');
10032: FND_MSG_PUB.Add;
10033: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Not Get CallbackDate', l_write);
10034: x_return_status := FND_API.G_RET_STS_ERROR;
10035: GOTO end_api;
10036: END IF;
10125:
10126: <
10127: if (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
10128: ROLLBACK TO Resend_Level_DUNNING_PVT;
10129: FND_MSG_PUB.Count_And_Get
10130: ( p_count => x_msg_count,
10131: p_data => x_msg_data );
10132: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - end_api:error on this party/accnt/site', l_write);
10133: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - end_api:status='||x_return_status, l_write);
10139: ELSE -- l_noskip = 0
10140: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - all del disputed', l_write);
10141: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - skip this party/accnt/site', l_write);
10142: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - end_api:status='||x_return_status, l_write);
10143: FND_MSG_PUB.Count_And_Get
10144: ( p_count => x_msg_count,
10145: p_data => x_msg_data );
10146: --Resend need return the exact status
10147: --x_return_status := 'SKIP'; --FND_API.G_EXC_ERROR;
10162: END IF;
10163:
10164: WriteLog('iexvdunb:ResendLevelDunn:END', l_write);
10165:
10166: FND_MSG_PUB.Count_And_Get
10167: ( p_count => x_msg_count,
10168: p_data => x_msg_data );
10169:
10170: EXCEPTION
10169:
10170: EXCEPTION
10171: WHEN FND_API.G_EXC_ERROR THEN
10172: x_return_status := FND_API.G_RET_STS_ERROR;
10173: FND_MSG_PUB.Count_And_Get
10174: ( p_count => x_msg_count,
10175: p_data => x_msg_data );
10176: ROLLBACK TO Resend_Level_DUNNING_PVT;
10177: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM, l_write);
10177: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM, l_write);
10178:
10179: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10181: FND_MSG_PUB.Count_And_Get
10182: ( p_count => x_msg_count,
10183: p_data => x_msg_data );
10184: ROLLBACK TO Resend_Level_DUNNING_PVT;
10185: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM, l_write);
10185: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM, l_write);
10186:
10187: WHEN OTHERS THEN
10188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10189: FND_MSG_PUB.Count_And_Get
10190: ( p_count => x_msg_count,
10191: p_data => x_msg_data );
10192: ROLLBACK TO Resend_Level_DUNNING_PVT;
10193: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM, l_write);
10389:
10390: -- Initialize message list if p_init_msg_list is set to TRUE.
10391: IF FND_API.to_Boolean( p_init_msg_list )
10392: THEN
10393: FND_MSG_PUB.initialize;
10394: END IF;
10395:
10396: -- don't write into FILE
10397: l_write := 0;
10469: Fetch C_TEMPLATE_NAME into l_template_name;
10470: close C_TEMPLATE_NAME;
10471:
10472: FND_MESSAGE.Set_Name('IEX', 'IEX_TEMPLATE_INACTIVE');
10473: FND_MSG_PUB.Add;
10474: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Template: ''' || l_template_name || ''' is inactive');
10475: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Template: ''' || l_template_name || ''' is inactive');
10476: RAISE FND_API.G_EXC_ERROR;
10477: END IF;
10489: Fetch C_TEMPLATE_NAME into l_template_name;
10490: close C_TEMPLATE_NAME;
10491:
10492: FND_MESSAGE.Set_Name('IEX', 'IEX_TEMPLATE_INACTIVE');
10493: FND_MSG_PUB.Add;
10494: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Addt Template: ''' || l_template_name || ''' is inactive');
10495: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Addt Template: ''' || l_template_name || ''' is inactive');
10496: RAISE FND_API.G_EXC_ERROR;
10497: END IF;
10570: */
10571: IF (l_noskip > 0) THEN
10572:
10573: -- init the msg (not including the msg from dispute api)
10574: --FND_MSG_PUB.initialize;
10575:
10576: /*===========================================
10577: * Get Score From IEX_SCORE_HISTORIES
10578: * If NotFound => Call API to getScore;
10587: If ( C_GET_SCORE%NOTFOUND) Then
10588: --FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
10589: --FND_MESSAGE.Set_Token ('INFO', 'Score', FALSE);
10590: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_SCORE');
10591: FND_MSG_PUB.Add;
10592: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Score NotFound');
10593: Close C_Get_SCORE;
10594: x_return_status := FND_API.G_RET_STS_ERROR;
10595: GOTO end_api;
10627: If ( x_return_status <> FND_API.G_RET_STS_SUCCESS) Then
10628: --FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
10629: --FND_MESSAGE.Set_Token ('INFO', 'AgingBucketLineId', FALSE);
10630: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_AGINGBUCKETLINE');
10631: FND_MSG_PUB.Add;
10632: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - AgingBucketLineId notfound');
10633: x_return_status := FND_API.G_RET_STS_ERROR;
10634: GOTO end_api;
10635: END IF;
10651: l_callback_days;
10652:
10653: If ( C_GET_TEMPLATE%NOTFOUND) Then
10654: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
10655: FND_MSG_PUB.Add;
10656: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template notfound');
10657: x_return_status := FND_API.G_RET_STS_ERROR;
10658: GOTO end_api;
10659: END IF;
10678: (l_curr_dmethod = 'XML' and l_xdo_template_id is null ) ) then
10679: --FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
10680: --FND_MESSAGE.Set_Token ('INFO', 'Template_ID', FALSE);
10681: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
10682: FND_MSG_PUB.Add;
10683: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Template notfound');
10684: x_return_status := FND_API.G_RET_STS_ERROR;
10685: GOTO end_api;
10686: end if;
10721: , p_site_use_id => l_customer_site_use_id_check
10722: , p_delinquency_id => l_delinquency_id_check ) = 'N'
10723: ) then
10724: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_PROFILE_NO');
10725: FND_MSG_PUB.Add;
10726: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Send dunning in customer profile set to no ');
10727: x_return_status := FND_API.G_RET_STS_ERROR;
10728: GOTO end_api;
10729: end if;
10734: p_cust_account_id => l_account_id_check
10735: , p_site_use_id => l_customer_site_use_id_check) = 'N'
10736: ) then
10737: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_AMOUNT_MIN');
10738: FND_MSG_PUB.Add;
10739: WriteLog('iexvdunb:ResendLevelDunn: Required min Dunning amount in customer profile ');
10740: x_return_status := FND_API.G_RET_STS_ERROR;
10741: GOTO end_api;
10742: end if;
10989: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - GetCallbackDate status='|| x_return_status, l_write);
10990:
10991: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10992: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_CALLBACKDATE');
10993: FND_MSG_PUB.Add;
10994: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Not Get CallbackDate', l_write);
10995: x_return_status := FND_API.G_RET_STS_ERROR;
10996: GOTO end_api;
10997: END IF;
11085:
11086: <
11087: if (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
11088: ROLLBACK TO Resend_Level_Stg_Dunn_PVT;
11089: FND_MSG_PUB.Count_And_Get
11090: ( p_count => x_msg_count,
11091: p_data => x_msg_data );
11092: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - end_api:error on this party/accnt/site', l_write);
11093: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - end_api:status='||x_return_status, l_write);
11099: ELSE -- l_noskip = 0
11100: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - all del disputed', l_write);
11101: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - skip this party/accnt/site', l_write);
11102: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - end_api:status='||x_return_status, l_write);
11103: FND_MSG_PUB.Count_And_Get
11104: ( p_count => x_msg_count,
11105: p_data => x_msg_data );
11106: --Resend need return the exact status
11107: --x_return_status := 'SKIP'; --FND_API.G_EXC_ERROR;
11122: END IF;
11123:
11124: WriteLog('iexvdunb:ResendLevelDunn:END', l_write);
11125:
11126: FND_MSG_PUB.Count_And_Get
11127: ( p_count => x_msg_count,
11128: p_data => x_msg_data );
11129:
11130: EXCEPTION
11129:
11130: EXCEPTION
11131: WHEN FND_API.G_EXC_ERROR THEN
11132: x_return_status := FND_API.G_RET_STS_ERROR;
11133: FND_MSG_PUB.Count_And_Get
11134: ( p_count => x_msg_count,
11135: p_data => x_msg_data );
11136: ROLLBACK TO Resend_Level_Stg_Dunn_PVT;
11137: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM, l_write);
11137: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM, l_write);
11138:
11139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11141: FND_MSG_PUB.Count_And_Get
11142: ( p_count => x_msg_count,
11143: p_data => x_msg_data );
11144: ROLLBACK TO Resend_Level_Stg_Dunn_PVT;
11145: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM, l_write);
11145: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM, l_write);
11146:
11147: WHEN OTHERS THEN
11148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11149: FND_MSG_PUB.Count_And_Get
11150: ( p_count => x_msg_count,
11151: p_data => x_msg_data );
11152: ROLLBACK TO Resend_Level_Stg_Dunn_PVT;
11153: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM, l_write);
11319:
11320: -- Initialize message list if p_init_msg_list is set to TRUE.
11321: IF FND_API.to_Boolean( p_init_msg_list )
11322: THEN
11323: FND_MSG_PUB.initialize;
11324: END IF;
11325:
11326: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
11327:
11390: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No Dispute or status is COMPLETE');
11391: END IF;
11392:
11393: -- init msg (not from dispute api)
11394: FND_MSG_PUB.initialize;
11395:
11396: /*===========================================
11397: * Get Score From IEX_SCORE_HISTORIES
11398: * If NotFound => Call API to getScore;
11419: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - AgingDel status='||x_return_status);
11420:
11421: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11422: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_AGINGBUCKETLINE');
11423: FND_MSG_PUB.Add;
11424: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Get AgingBucketLineId');
11425: GOTO end_loop;
11426: END IF;
11427:
11445: l_bucket;
11446:
11447: If ( C_GET_TEMPLATE%NOTFOUND) Then
11448: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
11449: FND_MSG_PUB.Add;
11450: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template notfound');
11451: Close C_Get_TEMPLATE;
11452: GOTO end_loop;
11453: END IF;
11473: Fetch C_TEMPLATE_NAME into l_template_name;
11474: close C_TEMPLATE_NAME;
11475:
11476: FND_MESSAGE.Set_Name('IEX', 'IEX_TEMPLATE_INACTIVE');
11477: FND_MSG_PUB.Add;
11478: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Template: ''' || l_template_name || ''' is inactive');
11479: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Template: ''' || l_template_name || ''' is inactive');
11480: RAISE FND_API.G_EXC_ERROR;
11481: END IF;
11495: if ( (l_curr_dmethod is null or l_curr_dmethod = '') or
11496: (l_curr_dmethod = 'FFM' and l_template_id is null) or
11497: (l_curr_dmethod = 'XML' and l_xdo_template_id is null ) ) then
11498: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
11499: FND_MSG_PUB.Add;
11500: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Template notfound');
11501: x_return_status := FND_API.G_RET_STS_ERROR;
11502: GOTO end_loop;
11503: end if;
11544: , p_site_use_id => l_customer_site_use_id
11545: , p_delinquency_id => l_delinquency_id ) = 'N'
11546: ) then
11547: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_PROFILE_NO');
11548: FND_MSG_PUB.Add;
11549: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Send dunning in customer profile set to no ');
11550: GOTO end_loop;
11551: end if;
11552:
11568: , p_dun_disputed_items => l_dun_disputed_items
11569: , p_running_level => l_running_level) <> 'Y'
11570: ) then --end bug 15933013
11571: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_AMOUNT_MIN');
11572: FND_MSG_PUB.Add;
11573: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Required min Dunning amount in customer profile ');
11574: GOTO end_loop;
11575: end if;
11576:
11777:
11778: If ( C_AMOUNT%NOTFOUND) Then
11779: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
11780: FND_MESSAGE.Set_Token ('INFO', 'amount', FALSE);
11781: FND_MSG_PUB.Add;
11782: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - amount notfound');
11783: END IF;
11784:
11785: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - close C_AMOUNT');
11906:
11907: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status='||x_return_status);
11908: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
11909:
11910: FND_MSG_PUB.Count_And_Get
11911: ( p_count => x_msg_count,
11912: p_data => x_msg_data );
11913:
11914: EXCEPTION
11914: EXCEPTION
11915: WHEN FND_API.G_EXC_ERROR THEN
11916: x_return_status := FND_API.G_RET_STS_ERROR;
11917: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
11918: FND_MSG_PUB.Count_And_Get
11919: ( p_count => x_msg_count,
11920: p_data => x_msg_data );
11921: errmsg := SQLERRM;
11922: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
11924:
11925: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11926: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11927: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
11928: FND_MSG_PUB.Count_And_Get
11929: ( p_count => x_msg_count,
11930: p_data => x_msg_data );
11931: errmsg := SQLERRM;
11932: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
11934:
11935: WHEN OTHERS THEN
11936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11937: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception');
11938: FND_MSG_PUB.Count_And_Get
11939: ( p_count => x_msg_count,
11940: p_data => x_msg_data );
11941: errmsg := SQLERRM;
11942: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
12130:
12131: -- Initialize message list if p_init_msg_list is set to TRUE.
12132: IF FND_API.to_Boolean( p_init_msg_list )
12133: THEN
12134: FND_MSG_PUB.initialize;
12135: END IF;
12136:
12137: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
12138:
12209: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No Dispute or status is COMPLETE');
12210: END IF;
12211:
12212: -- init msg (not from dispute api)
12213: FND_MSG_PUB.initialize;
12214: */
12215: /*===========================================
12216: * Get Score From IEX_SCORE_HISTORIES
12217: * If NotFound => Call API to getScore;
12238: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - AgingDel status='||x_return_status);
12239:
12240: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12241: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_AGINGBUCKETLINE');
12242: FND_MSG_PUB.Add;
12243: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Get AgingBucketLineId');
12244: GOTO end_loop;
12245: END IF;
12246:
12263: l_bucket;
12264:
12265: If ( C_GET_TEMPLATE%NOTFOUND) Then
12266: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
12267: FND_MSG_PUB.Add;
12268: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template notfound');
12269: Close C_Get_TEMPLATE;
12270: GOTO end_loop;
12271: END IF;
12291: if ( (l_curr_dmethod is null or l_curr_dmethod = '') or
12292: (l_curr_dmethod = 'FFM' and l_template_id is null) or
12293: (l_curr_dmethod = 'XML' and l_xdo_template_id is null ) ) then
12294: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_TEMPLATE');
12295: FND_MSG_PUB.Add;
12296: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Template notfound');
12297: x_return_status := FND_API.G_RET_STS_ERROR;
12298: GOTO end_loop;
12299: end if;
12312: Fetch C_TEMPLATE_NAME into l_template_name;
12313: close C_TEMPLATE_NAME;
12314:
12315: FND_MESSAGE.Set_Name('IEX', 'IEX_TEMPLATE_INACTIVE');
12316: FND_MSG_PUB.Add;
12317: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Template: ''' || l_template_name || ''' is inactive');
12318: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Template: ''' || l_template_name || ''' is inactive');
12319: RAISE FND_API.G_EXC_ERROR;
12320: END IF;
12332: Fetch C_TEMPLATE_NAME into l_template_name;
12333: close C_TEMPLATE_NAME;
12334:
12335: FND_MESSAGE.Set_Name('IEX', 'IEX_TEMPLATE_INACTIVE');
12336: FND_MSG_PUB.Add;
12337: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Template: ''' || l_template_name || ''' is inactive');
12338: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Template: ''' || l_template_name || ''' is inactive');
12339: RAISE FND_API.G_EXC_ERROR;
12340: END IF;
12360: , p_site_use_id => l_customer_site_use_id
12361: , p_delinquency_id => l_delinquency_id ) = 'N'
12362: ) then
12363: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_PROFILE_NO');
12364: FND_MSG_PUB.Add;
12365: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Send dunning in customer profile set to no ');
12366: GOTO end_loop;
12367: end if;
12368:
12372: p_cust_account_id => l_account_id
12373: , p_site_use_id => l_customer_site_use_id) = 'N'
12374: ) then
12375: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_DUNNING_AMOUNT_MIN');
12376: FND_MSG_PUB.Add;
12377: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Required min Dunning amount in customer profile ');
12378: GOTO end_loop;
12379: end if;
12380:
12588:
12589: If ( C_AMOUNT%NOTFOUND) Then
12590: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
12591: FND_MESSAGE.Set_Token ('INFO', 'amount', FALSE);
12592: FND_MSG_PUB.Add;
12593: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - amount notfound');
12594: END IF;
12595:
12596: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - close C_AMOUNT');
12714:
12715: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status='||x_return_status);
12716: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
12717:
12718: FND_MSG_PUB.Count_And_Get
12719: ( p_count => x_msg_count,
12720: p_data => x_msg_data );
12721:
12722: EXCEPTION
12722: EXCEPTION
12723: WHEN FND_API.G_EXC_ERROR THEN
12724: x_return_status := FND_API.G_RET_STS_ERROR;
12725: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
12726: FND_MSG_PUB.Count_And_Get
12727: ( p_count => x_msg_count,
12728: p_data => x_msg_data );
12729: errmsg := SQLERRM;
12730: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
12732:
12733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12735: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
12736: FND_MSG_PUB.Count_And_Get
12737: ( p_count => x_msg_count,
12738: p_data => x_msg_data );
12739: errmsg := SQLERRM;
12740: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
12742:
12743: WHEN OTHERS THEN
12744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12745: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception');
12746: FND_MSG_PUB.Count_And_Get
12747: ( p_count => x_msg_count,
12748: p_data => x_msg_data );
12749: errmsg := SQLERRM;
12750: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
12856:
12857: -- Initialize message list IF p_init_msg_list is set to TRUE.
12858: IF FND_API.to_Boolean( p_init_msg_list )
12859: THEN
12860: FND_MSG_PUB.initialize;
12861: END IF;
12862:
12863: -- Initialize API return status to SUCCESS
12864: l_return_status := FND_API.G_RET_STS_SUCCESS;
12872: Fetch C_Get_PARTY_DAYS into l_days;
12873: If ( C_GET_PARTY_DAYS%NOTFOUND) Then
12874: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - PaymentSchedId NotFound');
12875: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_PAYMENTSCHEDULE');
12876: FND_MSG_PUB.Add;
12877: l_return_status := FND_API.G_RET_STS_ERROR;
12878: Close C_Get_PARTY_DAYS;
12879: GOTO end_get_line;
12880: end if;
12885: Fetch C_Get_ACCT_DAYS into l_days;
12886: If ( C_GET_ACCT_DAYS%NOTFOUND) Then
12887: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - PaymentSchedId NotFound');
12888: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_PAYMENTSCHEDULE');
12889: FND_MSG_PUB.Add;
12890: l_return_status := FND_API.G_RET_STS_ERROR;
12891: Close C_Get_ACCT_DAYS;
12892: GOTO end_get_line;
12893: end if;
12898: Fetch C_Get_SITE_DAYS into l_days;
12899: If ( C_GET_SITE_DAYS%NOTFOUND) Then
12900: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - PaymentSchedId NotFound');
12901: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_PAYMENTSCHEDULE');
12902: FND_MSG_PUB.Add;
12903: l_return_status := FND_API.G_RET_STS_ERROR;
12904: Close C_Get_SITE_DAYS;
12905: GOTO end_get_line;
12906: end if;
12915: Fetch C_Get_DAYS into l_days;
12916: If ( C_GET_DAYS%NOTFOUND) Then
12917: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - PaymentSchedId NotFound');
12918: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_PAYMENTSCHEDULE');
12919: FND_MSG_PUB.Add;
12920: l_return_status := FND_API.G_RET_STS_ERROR;
12921: Close C_Get_DAYS;
12922: GOTO end_get_line;
12923: end if;
12931: Fetch C_Get_BUCKET_LINE into l_bucket_line_id;
12932: If ( C_GET_BUCKET_LINE%NOTFOUND) Then
12933: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - BucketLine NotFound');
12934: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_BUCKET_LINE');
12935: FND_MSG_PUB.Add;
12936: l_return_status := FND_API.G_RET_STS_ERROR;
12937: Close C_Get_BUCKET_LINE;
12938: GOTO end_get_line;
12939: else
12953:
12954: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return_status:'||x_return_status);
12955: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - lineId:'||x_aging_bucket_line_id);
12956:
12957: FND_MSG_PUB.Count_And_Get
12958: ( p_count => x_msg_count,
12959: p_data => x_msg_data );
12960:
12961: EXCEPTION
12964: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
12965: errmsg := SQLERRM;
12966: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
12967: ROLLBACK TO AGING_DEL_PVT;
12968: FND_MSG_PUB.Count_And_Get
12969: ( p_count => x_msg_count,
12970: p_data => x_msg_data);
12971:
12972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12974: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
12975: errmsg := SQLERRM;
12976: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
12977: ROLLBACK TO AGING_DEL_PVT;
12978: FND_MSG_PUB.Count_And_Get
12979: ( p_count => x_msg_count,
12980: p_data => x_msg_data);
12981:
12982: WHEN OTHERS THEN
12984: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception');
12985: errmsg := SQLERRM;
12986: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
12987: ROLLBACK TO AGING_DEL_PVT;
12988: FND_MSG_PUB.Count_And_Get
12989: ( p_count => x_msg_count,
12990: p_data => x_msg_data);
12991:
12992: END AGING_DEL;
13082: SAVEPOINT CALL_FFM_PVT;
13083:
13084: IF FND_API.to_Boolean( p_init_msg_list )
13085: THEN
13086: FND_MSG_PUB.initialize;
13087: END IF;
13088:
13089: l_return_status := FND_API.G_RET_STS_SUCCESS;
13090:
13092: if (p_template_id is null) then
13093: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No TEMPLATE_ID');
13094: FND_MESSAGE.Set_Name('IEX', 'API_FAIL_SEND_FFM');
13095: FND_MESSAGE.Set_Token ('INFO', 'No Template_ID');
13096: FND_MSG_PUB.Add;
13097: l_return_status := FND_API.G_RET_STS_ERROR;
13098: GOTO end_call_ffm;
13099: end if;
13100: if (p_party_id is null) then
13100: if (p_party_id is null) then
13101: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No PARTY_ID');
13102: FND_MESSAGE.Set_Name('IEX', 'API_FAIL_SEND_FFM');
13103: FND_MESSAGE.Set_Token ('INFO', 'No Party_Id');
13104: FND_MSG_PUB.Add;
13105: l_return_status := FND_API.G_RET_STS_ERROR;
13106: GOTO end_call_ffm;
13107: end if;
13108: if (p_method is null) then
13108: if (p_method is null) then
13109: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No METHOD');
13110: FND_MESSAGE.Set_Name('IEX', 'API_FAIL_SEND_FFM');
13111: FND_MESSAGE.Set_Token ('INFO', 'No Method');
13112: FND_MSG_PUB.Add;
13113: l_return_status := FND_API.G_RET_STS_ERROR;
13114: GOTO end_call_ffm;
13115: end if;
13116:
13135: If ( C_GET_ORG_EMAIL%NOTFOUND) Then
13136: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Customer NotFound');
13137: FND_MESSAGE.Set_Name('IEX', 'API_FAIL_SEND_FFM');
13138: FND_MESSAGE.Set_Token ('INFO', 'Customer NotFound');
13139: FND_MSG_PUB.Add;
13140: l_return_status := FND_API.G_RET_STS_ERROR;
13141: Close C_Get_ORG_EMAIL;
13142: Close C_Get_CONTACT_EMAIL;
13143: GOTO end_call_ffm;
13146: If ( l_email is null ) Then
13147: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No Email');
13148: FND_MESSAGE.Set_Name('IEX', 'API_FAIL_SEND_FFM');
13149: FND_MESSAGE.Set_Token ('INFO', 'No Email_Address');
13150: FND_MSG_PUB.Add;
13151: l_return_status := FND_API.G_RET_STS_ERROR;
13152: Close C_Get_ORG_EMAIL;
13153: Close C_Get_CONTACT_EMAIL;
13154: GOTO end_call_ffm;
13160: If ( l_email is null ) Then
13161: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No Email');
13162: FND_MESSAGE.Set_Name('IEX', 'API_FAIL_SEND_FFM');
13163: FND_MESSAGE.Set_Token ('INFO', 'No Email_Address');
13164: FND_MSG_PUB.Add;
13165: l_return_status := FND_API.G_RET_STS_ERROR;
13166: Close C_Get_CONTACT_EMAIL;
13167: GOTO end_call_ffm;
13168: END if;
13178: IEX_DEBUG_PUB.LogMessage(G_PKG_NAME || ' ' || l_api_name || ' - No Printer');
13179: END IF;
13180: FND_MESSAGE.Set_Name('IEX', 'API_FAIL_SEND_FFM');
13181: FND_MESSAGE.Set_Token ('INFO', 'No Printer');
13182: FND_MSG_PUB.Add;
13183: l_return_status := FND_API.G_RET_STS_ERROR;
13184: GOTO end_call_ffm;
13185: end if;
13186: END IF; -- end of p_method=EMAIL
13197: if (nIdx = 0) then
13198: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No Contents');
13199: FND_MESSAGE.Set_Name('IEX', 'API_FAIL_SEND_FFM');
13200: FND_MESSAGE.Set_Token ('INFO', 'No Contents for selected template ');
13201: FND_MSG_PUB.Add;
13202: l_return_status := FND_API.G_RET_STS_ERROR;
13203: end if;
13204: exit;
13205: else
13287: x_request_id := l_request_id;
13288: x_return_status := l_return_status;
13289: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return_status:'||x_return_status);
13290:
13291: FND_MSG_PUB.Count_And_Get
13292: ( p_count => x_msg_count,
13293: p_data => x_msg_data );
13294:
13295: EXCEPTION
13296: WHEN FND_API.G_EXC_ERROR THEN
13297: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
13298: ROLLBACK TO CALL_FFM_PVT;
13299: x_return_status := FND_API.G_RET_STS_ERROR;
13300: FND_MSG_PUB.Count_And_Get
13301: ( p_count => x_msg_count,
13302: p_data => x_msg_data
13303: );
13304:
13306: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
13307: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
13308: ROLLBACK TO CALL_FFM_PVT;
13309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13310: FND_MSG_PUB.Count_And_Get
13311: ( p_count => x_msg_count,
13312: p_data => x_msg_data
13313: );
13314:
13316: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception');
13317: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
13318: ROLLBACK TO CALL_FFM_PVT;
13319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13320: FND_MSG_PUB.Count_And_Get
13321: ( p_count => x_msg_count,
13322: p_data => x_msg_data
13323: );
13324:
13369:
13370: -- Initialize message list IF p_init_msg_list is set to TRUE.
13371: IF FND_API.to_Boolean( p_init_msg_list )
13372: THEN
13373: FND_MSG_PUB.initialize;
13374: END IF;
13375:
13376: -- Initialize API return status to SUCCESS
13377: x_return_status := FND_API.G_RET_STS_SUCCESS;
13442: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - callback_date='||x_callback_date);
13443:
13444: -- Standard call to get message count and IF count is 1, get message info.
13445:
13446: FND_MSG_PUB.Count_And_Get
13447: ( p_count => x_msg_count,
13448: p_data => x_msg_data );
13449:
13450: EXCEPTION
13594: l_org_id:= mo_global.get_current_org_id;
13595:
13596: IF FND_API.to_Boolean( p_init_msg_list )
13597: THEN
13598: FND_MSG_PUB.initialize;
13599: END IF;
13600:
13601: l_return_status := FND_API.G_RET_STS_SUCCESS;
13602:
13603: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - SEND_FFM:');
13604: if (p_template_id is null) then
13605: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No TEMPLATE_ID');
13606: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_TEMPLATE');
13607: FND_MSG_PUB.Add;
13608: l_return_status := FND_API.G_RET_STS_ERROR;
13609: GOTO end_call_ffm;
13610: end if;
13611: if (p_party_id is null AND (p_email IS NULL OR p_email = FND_API.G_MISS_CHAR)) then
13610: end if;
13611: if (p_party_id is null AND (p_email IS NULL OR p_email = FND_API.G_MISS_CHAR)) then
13612: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No PARTY_ID or EMAIL');
13613: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_PARTY');
13614: FND_MSG_PUB.Add;
13615: l_return_status := FND_API.G_RET_STS_ERROR;
13616: GOTO end_call_ffm;
13617: end if;
13618: if (p_method is null) then
13617: end if;
13618: if (p_method is null) then
13619: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No METHOD');
13620: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_METHOD');
13621: FND_MSG_PUB.Add;
13622: l_return_status := FND_API.G_RET_STS_ERROR;
13623: GOTO end_call_ffm;
13624: end if;
13625:
13628: l_subject := NVL(FND_PROFILE.value('IEX_FULFILL_SUBJECT'), '');
13629: if (l_subject is null or l_subject = '') then
13630: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No FFM Subject',0);
13631: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_SUBJECT');
13632: FND_MSG_PUB.Add;
13633: l_return_status := FND_API.G_RET_STS_ERROR;
13634: GOTO end_call_ffm;
13635: end if;
13636:
13725: If ( C_GET_CONTENTS%NOTFOUND ) Then
13726: if (nIdx = 0) then
13727: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Contents NotFound');
13728: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_FFMCONTENT');
13729: FND_MSG_PUB.Add;
13730: l_return_status := FND_API.G_RET_STS_ERROR;
13731: end if;
13732: GOTO end_call_ffm;
13733: --exit;
13945: x_return_status := l_return_status;
13946:
13947: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return_status:'||x_return_status);
13948:
13949: FND_MSG_PUB.Count_And_Get
13950: ( p_count => x_msg_count,
13951: p_data => x_msg_data );
13952:
13953: EXCEPTION
13956: errmsg := SQLERRM;
13957: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
13958: ROLLBACK TO SEND_FULFILLMENT_PVT;
13959: x_return_status := FND_API.G_RET_STS_ERROR;
13960: FND_MSG_PUB.Count_And_Get
13961: ( p_count => x_msg_count,
13962: p_data => x_msg_data
13963: );
13964:
13967: errmsg := SQLERRM;
13968: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
13969: ROLLBACK TO SEND_FULFILLMENT_PVT;
13970: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13971: FND_MSG_PUB.Count_And_Get
13972: ( p_count => x_msg_count,
13973: p_data => x_msg_data
13974: );
13975:
13978: errmsg := SQLERRM;
13979: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
13980: ROLLBACK TO SEND_FULFILLMENT_PVT;
13981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13982: FND_MSG_PUB.Count_And_Get
13983: ( p_count => x_msg_count,
13984: p_data => x_msg_data
13985: );
13986:
14208: l_resend := 'N';
14209: END IF;
14210: -- end clchang added 11/08/04 for 11.5.11
14211:
14212: FND_MSG_PUB.initialize;
14213:
14214: l_return_status := FND_API.G_RET_STS_SUCCESS;
14215:
14216: if (p_object_code is null) then
14215:
14216: if (p_object_code is null) then
14217: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No OBJECT_ID',0);
14218: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_OBJECT');
14219: FND_MSG_PUB.Add;
14220: l_return_status := FND_API.G_RET_STS_ERROR;
14221: GOTO end_call_ffm;
14222: end if;
14223:
14223:
14224: if (p_template_id is null) then
14225: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No TEMPLATE_ID',0);
14226: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_TEMPLATE');
14227: FND_MSG_PUB.Add;
14228: l_return_status := FND_API.G_RET_STS_ERROR;
14229: GOTO end_call_ffm;
14230: end if;
14231:
14243: Fetch C_TEMPLATE_NAME into l_template_name;
14244: close C_TEMPLATE_NAME;
14245:
14246: FND_MESSAGE.Set_Name('IEX', 'IEX_TEMPLATE_INACTIVE');
14247: FND_MSG_PUB.Add;
14248: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Template: ''' || l_template_name || ''' is inactive');
14249: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Template: ''' || l_template_name || ''' is inactive');
14250: l_return_status := FND_API.G_RET_STS_ERROR;
14251: GOTO end_call_ffm;
14255:
14256: if (p_party_id is null AND (p_email IS NULL OR p_email = FND_API.G_MISS_CHAR)) then
14257: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No PARTY_ID or EMAIL',0);
14258: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_PARTY');
14259: FND_MSG_PUB.Add;
14260: l_return_status := FND_API.G_RET_STS_ERROR;
14261: GOTO end_call_ffm;
14262: end if;
14263:
14263:
14264: if (p_method is null) then
14265: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No METHOD',0);
14266: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_METHOD');
14267: FND_MSG_PUB.Add;
14268: l_return_status := FND_API.G_RET_STS_ERROR;
14269: GOTO end_call_ffm;
14270: end if;
14271:
14296:
14297: if (l_subject is null or l_subject = '') then
14298: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No XML Subject');
14299: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_SUBJECT');
14300: FND_MSG_PUB.Add;
14301: l_return_status := FND_API.G_RET_STS_ERROR;
14302: GOTO end_call_ffm;
14303: end if;
14304:
14320:
14321: if (l_resource_id is null) then
14322: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No Resource for user '||l_user_id);
14323: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_RESOURCE');
14324: FND_MSG_PUB.Add;
14325: l_return_status := FND_API.G_RET_STS_ERROR;
14326: GOTO end_call_ffm;
14327: end if;
14328: l_fulfillment_bind_tbl := p_fulfillment_bind_tbl;
14535: WHEN OTHERS THEN
14536: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' throws exception');
14537: l_return_status := FND_API.G_RET_STS_ERROR;
14538: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_DELIVERY');
14539: FND_MSG_PUB.Add;
14540: END;
14541:
14542: else -- either resending after error or sending for the first time
14543:
14577: -- checking for location
14578: IF l_location_id is null then
14579: WriteLog(G_PKG_NAME || ' ' || l_api_name || ': No location found');
14580: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_ADDRESS');
14581: FND_MSG_PUB.Add;
14582: l_return_status := FND_API.G_RET_STS_ERROR;
14583: GOTO end_call_ffm;
14584: end if;
14585:
14600:
14601: IF (l_printer = '' or l_printer is null) THEN
14602: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No Printer',0);
14603: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_PRINTER');
14604: FND_MSG_PUB.Add;
14605: l_return_status := FND_API.G_RET_STS_ERROR;
14606: GOTO end_call_ffm;
14607: END IF;
14608:
14623: if l_contact_point_id is null then
14624: if p_method = 'EMAIL' then
14625: WriteLog(G_PKG_NAME || ' ' || l_api_name || ': No email found');
14626: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_EMAIL');
14627: FND_MSG_PUB.Add;
14628: ELSIF p_method = 'FAX' THEN
14629: WriteLog(G_PKG_NAME || ' ' || l_api_name || ': No fax found');
14630: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_FAX');
14631: FND_MSG_PUB.Add;
14627: FND_MSG_PUB.Add;
14628: ELSIF p_method = 'FAX' THEN
14629: WriteLog(G_PKG_NAME || ' ' || l_api_name || ': No fax found');
14630: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_FAX');
14631: FND_MSG_PUB.Add;
14632: end if;
14633:
14634: l_return_status := FND_API.G_RET_STS_ERROR;
14635: GOTO end_call_ffm;
14676: If ( C_GET_QUERY%NOTFOUND ) Then
14677: if (nIdx = 0) then
14678: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Query NotFound');
14679: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_QUERY');
14680: FND_MSG_PUB.Add;
14681: l_return_status := FND_API.G_RET_STS_ERROR;
14682: GOTO end_call_ffm;
14683: end if;
14684: exit;
14697: If ( C_GET_QUERY%NOTFOUND ) Then
14698: if (nIdx = 0) then
14699: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Query NotFound for invoice copy');
14700: --FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_QUERY');
14701: --FND_MSG_PUB.Add;
14702: --l_return_status := FND_API.G_RET_STS_ERROR;
14703: --GOTO end_call_ffm;
14704: end if;
14705: exit;
14894: WHEN OTHERS THEN
14895: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' throws exception');
14896: l_return_status := FND_API.G_RET_STS_ERROR;
14897: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_DELIVERY');
14898: FND_MSG_PUB.Add;
14899: END;
14900:
14901: END IF; -- IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
14902:
14907: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_return_status='||l_return_status);
14908:
14909: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14910:
14911: l_msg := FND_MSG_PUB.Get(p_msg_index => 1, p_encoded => 'T');
14912: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_msg: ' || l_msg);
14913: FND_MESSAGE.PARSE_ENCODED(l_msg, l_app, l_msg_name);
14914: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Error name: ' || l_msg_name);
14915:
15083:
15084: x_request_id := l_request_id;
15085: x_return_status := l_return_status;
15086:
15087: FND_MSG_PUB.Count_And_Get
15088: ( p_count => x_msg_count,
15089: p_data => x_msg_data );
15090:
15091: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_return_status: '||x_return_status);
15098: errmsg := SQLERRM;
15099: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
15100: -- ROLLBACK TO SEND_XML_PVT;
15101: x_return_status := FND_API.G_RET_STS_ERROR;
15102: FND_MSG_PUB.Count_And_Get
15103: ( p_count => x_msg_count,
15104: p_data => x_msg_data
15105: );
15106:
15109: errmsg := SQLERRM;
15110: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
15111: -- ROLLBACK TO SEND_XML_PVT;
15112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15113: FND_MSG_PUB.Count_And_Get
15114: ( p_count => x_msg_count,
15115: p_data => x_msg_data
15116: );
15117:
15120: errmsg := SQLERRM;
15121: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
15122: -- ROLLBACK TO SEND_XML_PVT;
15123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15124: FND_MSG_PUB.Count_And_Get
15125: ( p_count => x_msg_count,
15126: p_data => x_msg_data
15127: );
15128:
15226:
15227: -- Initialize message list IF p_init_msg_list is set to TRUE.
15228: IF FND_API.to_Boolean( p_init_msg_list )
15229: THEN
15230: FND_MSG_PUB.initialize;
15231: END IF;
15232:
15233: -- Initialize API return status to SUCCESS
15234: l_return_status := FND_API.G_RET_STS_SUCCESS;
15236:
15237: if (p_party_id is null) then
15238: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No PARTY_ID');
15239: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_PARTY');
15240: FND_MSG_PUB.Add;
15241: l_return_status := FND_API.G_RET_STS_ERROR;
15242: GOTO end_getcontact;
15243: end if;
15244: if (p_method is null) then
15243: end if;
15244: if (p_method is null) then
15245: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No METHOD');
15246: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_METHOD');
15247: FND_MSG_PUB.Add;
15248: l_return_status := FND_API.G_RET_STS_ERROR;
15249: GOTO end_getcontact;
15250: end if;
15251:
15263: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Printer:'||l_printer);
15264: if (l_printer = '' or l_printer is null) then
15265: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No Printer');
15266: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_PRINTER');
15267: FND_MSG_PUB.Add;
15268: l_return_status := FND_API.G_RET_STS_ERROR;
15269: GOTO end_getcontact;
15270: end if;
15271: x_contact := l_printer;
15276: Fetch C_Get_PARTY_TYPE into l_party_type;
15277: If ( C_GET_PARTY_TYPE%NOTFOUND ) Then
15278: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - cannot find party type');
15279: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_PARTYTYPE');
15280: FND_MSG_PUB.Add;
15281: l_return_status := FND_API.G_RET_STS_ERROR;
15282: Close C_Get_PARTY_TYPE;
15283: GOTO end_getcontact;
15284: END IF;
15311: (x_contact is null or l_return_status <> FND_API.G_RET_STS_SUCCESS))
15312: then
15313: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - person contact NotFound');
15314: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_CONTACTINFO');
15315: FND_MSG_PUB.Add;
15316: l_return_status := FND_API.G_RET_STS_ERROR;
15317: GOTO end_getcontact;
15318: end if;
15319: --
15333: Fetch C_Get_ORG_PARTY into l_party_id;
15334: If ( C_GET_ORG_PARTY%NOTFOUND ) Then
15335: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - cannot find org party');
15336: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_ORG');
15337: FND_MSG_PUB.Add;
15338: l_return_status := FND_API.G_RET_STS_ERROR;
15339: Close C_Get_ORG_PARTY;
15340: GOTO end_getcontact;
15341: end if;
15429:
15430: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return_status:'||x_return_status);
15431: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - ContactInfo:'||x_contact);
15432:
15433: FND_MSG_PUB.Count_And_Get
15434: ( p_count => x_msg_count,
15435: p_data => x_msg_data );
15436:
15437: EXCEPTION
15440: x_return_status := FND_API.G_RET_STS_ERROR;
15441: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exp Exception');
15442: errmsg := SQLERRM;
15443: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
15444: FND_MSG_PUB.Count_And_Get
15445: ( p_count => x_msg_count,
15446: p_data => x_msg_data
15447: );
15448:
15451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15452: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExp Exception');
15453: errmsg := SQLERRM;
15454: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
15455: FND_MSG_PUB.Count_And_Get
15456: ( p_count => x_msg_count,
15457: p_data => x_msg_data
15458: );
15459:
15462: ROLLBACK TO GetContactInfo_PVT;
15463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15464: errmsg := SQLERRM;
15465: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
15466: FND_MSG_PUB.Count_And_Get
15467: ( p_count => x_msg_count,
15468: p_data => x_msg_data
15469: );
15470:
15568:
15569: -- Initialize message list IF p_init_msg_list is set to TRUE.
15570: IF FND_API.to_Boolean( p_init_msg_list )
15571: THEN
15572: FND_MSG_PUB.initialize;
15573: END IF;
15574:
15575: -- Initialize API return status to SUCCESS
15576: l_return_status := FND_API.G_RET_STS_SUCCESS;
15579:
15580: if (p_party_id is null) then
15581: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No PARTY_ID');
15582: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_PARTY');
15583: FND_MSG_PUB.Add;
15584: l_return_status := FND_API.G_RET_STS_ERROR;
15585: GOTO end_getcontact;
15586: end if;
15587: if (p_method is null) then
15586: end if;
15587: if (p_method is null) then
15588: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No METHOD');
15589: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_METHOD');
15590: FND_MSG_PUB.Add;
15591: l_return_status := FND_API.G_RET_STS_ERROR;
15592: GOTO end_getcontact;
15593: end if;
15594:
15616:
15617: If ( C_GET_CONTACT_EMAIL2%NOTFOUND) Then
15618: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Customer NotFound');
15619: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_EMAIL');
15620: FND_MSG_PUB.Add;
15621: l_return_status := FND_API.G_RET_STS_ERROR;
15622: Close C_Get_CONTACT_EMAIL2;
15623: Close C_Get_CONTACT_EMAIL;
15624: GOTO end_getcontact;
15626: --
15627: If ( l_email is null ) Then
15628: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - EmailAddress NotFound in C_GET_ORG_EMAIL');
15629: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_EMAIL');
15630: FND_MSG_PUB.Add;
15631: l_return_status := FND_API.G_RET_STS_ERROR;
15632: Close C_Get_CONTACT_EMAIL2;
15633: Close C_Get_CONTACT_EMAIL;
15634: GOTO end_getcontact;
15639:
15640: If ( l_email is null ) Then
15641: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - EmailAddress is null');
15642: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_EMAIL');
15643: FND_MSG_PUB.Add;
15644: l_return_status := FND_API.G_RET_STS_ERROR;
15645: Close C_Get_CONTACT_EMAIL;
15646: GOTO end_getcontact;
15647: end if;
15667:
15668: If ( C_GET_CONTACT_FAX2%NOTFOUND) Then
15669: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Customer NotFound');
15670: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_FAX');
15671: FND_MSG_PUB.Add;
15672: l_return_status := FND_API.G_RET_STS_ERROR;
15673: Close C_Get_CONTACT_FAX2;
15674: Close C_Get_CONTACT_FAX;
15675: GOTO end_getcontact;
15677: --
15678: If ( l_fax is null ) Then
15679: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Fax NotFound in C_GET_CONTACT_FAX');
15680: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_FAX');
15681: FND_MSG_PUB.Add;
15682: l_return_status := FND_API.G_RET_STS_ERROR;
15683: Close C_Get_CONTACT_FAX2;
15684: Close C_Get_CONTACT_FAX;
15685: GOTO end_getcontact;
15690:
15691: If ( l_fax is null ) Then
15692: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - FAX NotFound');
15693: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_FAX');
15694: FND_MSG_PUB.Add;
15695: l_return_status := FND_API.G_RET_STS_ERROR;
15696: Close C_Get_CONTACT_FAX;
15697: GOTO end_getcontact;
15698: end if;
15716:
15717: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return_status:'||x_return_status);
15718: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - ContactInfo:'||x_contact);
15719:
15720: FND_MSG_PUB.Count_And_Get
15721: ( p_count => x_msg_count,
15722: p_data => x_msg_data );
15723:
15724: EXCEPTION
15727: x_return_status := FND_API.G_RET_STS_ERROR;
15728: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exp Exception');
15729: errmsg := SQLERRM;
15730: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
15731: FND_MSG_PUB.Count_And_Get
15732: ( p_count => x_msg_count,
15733: p_data => x_msg_data
15734: );
15735:
15738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15739: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExp Exception');
15740: errmsg := SQLERRM;
15741: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
15742: FND_MSG_PUB.Count_And_Get
15743: ( p_count => x_msg_count,
15744: p_data => x_msg_data
15745: );
15746:
15749: ROLLBACK TO GetContactPoint_PVT;
15750: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15751: errmsg := SQLERRM;
15752: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
15753: FND_MSG_PUB.Count_And_Get
15754: ( p_count => x_msg_count,
15755: p_data => x_msg_data
15756: );
15757: END GetContactPoint;
15948: END IF;
15949:
15950: IF FND_API.to_Boolean( p_init_msg_list )
15951: THEN
15952: FND_MSG_PUB.initialize;
15953: END IF;
15954:
15955: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - start');
15956: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - running_level='||p_running_level);
16030: THEN
16031: COMMIT WORK;
16032: END IF;
16033:
16034: FND_MSG_PUB.Count_And_Get
16035: ( p_count => x_msg_count,
16036: p_data => x_msg_data );
16037:
16038: EXCEPTION
16041: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
16042: errmsg := SQLERRM;
16043: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
16044: x_return_status := FND_API.G_RET_STS_ERROR;
16045: FND_MSG_PUB.Count_And_Get
16046: ( p_count => x_msg_count,
16047: p_data => x_msg_data
16048: );
16049:
16052: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
16053: errmsg := SQLERRM;
16054: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
16055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16056: FND_MSG_PUB.Count_And_Get
16057: ( p_count => x_msg_count,
16058: p_data => x_msg_data
16059: );
16060:
16063: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
16064: errmsg := SQLERRM;
16065: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
16066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16067: FND_MSG_PUB.Count_And_Get
16068: ( p_count => x_msg_count,
16069: p_data => x_msg_data
16070: );
16071:
16127: END IF;
16128:
16129: IF FND_API.to_Boolean( p_init_msg_list )
16130: THEN
16131: FND_MSG_PUB.initialize;
16132: END IF;
16133:
16134: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - start');
16135: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - running_level='||p_running_level);
16210: THEN
16211: COMMIT WORK;
16212: END IF;
16213:
16214: FND_MSG_PUB.Count_And_Get
16215: ( p_count => x_msg_count,
16216: p_data => x_msg_data );
16217:
16218: EXCEPTION
16221: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
16222: errmsg := SQLERRM;
16223: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
16224: x_return_status := FND_API.G_RET_STS_ERROR;
16225: FND_MSG_PUB.Count_And_Get
16226: ( p_count => x_msg_count,
16227: p_data => x_msg_data
16228: );
16229:
16232: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
16233: errmsg := SQLERRM;
16234: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
16235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16236: FND_MSG_PUB.Count_And_Get
16237: ( p_count => x_msg_count,
16238: p_data => x_msg_data
16239: );
16240:
16243: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
16244: errmsg := SQLERRM;
16245: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
16246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16247: FND_MSG_PUB.Count_And_Get
16248: ( p_count => x_msg_count,
16249: p_data => x_msg_data
16250: );
16251:
16344:
16345: -- Initialize message list if p_init_msg_list is set to TRUE.
16346: IF FND_API.to_Boolean( p_init_msg_list )
16347: THEN
16348: FND_MSG_PUB.initialize;
16349: END IF;
16350:
16351: -- Debug Message
16352: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start') ;
16487:
16488: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16489: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot create new Task');
16490: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot create new task');
16491: FND_MSG_PUB.Count_And_Get
16492: ( p_count => x_msg_count,
16493: p_data => x_msg_data );
16494: for i in 1..x_msg_count loop
16495: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
16491: FND_MSG_PUB.Count_And_Get
16492: ( p_count => x_msg_count,
16493: p_data => x_msg_data );
16494: for i in 1..x_msg_count loop
16495: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
16496: p_encoded => 'F');
16497: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error:'||errmsg);
16498: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg=' || errmsg);
16499: end loop;
16629: x_return_status := FND_API.G_RET_STS_SUCCESS;
16630: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status='||x_return_status);
16631: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
16632:
16633: FND_MSG_PUB.Count_And_Get
16634: ( p_count => x_msg_count,
16635: p_data => x_msg_data );
16636:
16637: EXCEPTION
16640: errmsg := SQLERRM;
16641: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
16642: ROLLBACK TO DAILY_DUNNING_PVT;
16643: x_return_status := FND_API.G_RET_STS_ERROR;
16644: FND_MSG_PUB.Count_And_Get
16645: ( p_count => x_msg_count,
16646: p_data => x_msg_data
16647: );
16648:
16651: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
16652: errmsg := SQLERRM;
16653: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
16654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16655: FND_MSG_PUB.Count_And_Get
16656: ( p_count => x_msg_count,
16657: p_data => x_msg_data
16658: );
16659:
16662: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Others Exception');
16663: errmsg := SQLERRM;
16664: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
16665: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16666: FND_MSG_PUB.Count_And_Get
16667: ( p_count => x_msg_count,
16668: p_data => x_msg_data
16669: );
16670:
17159:
17160: <
17161: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17162: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Task');
17163: FND_MSG_PUB.Count_And_Get
17164: ( p_count => x_msg_count,
17165: p_data => x_msg_data
17166: );
17167: for i in 1..x_msg_count loop
17164: ( p_count => x_msg_count,
17165: p_data => x_msg_data
17166: );
17167: for i in 1..x_msg_count loop
17168: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
17169: p_encoded => 'F');
17170: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg='||errmsg);
17171: end loop;
17172:
17492:
17493: WriteLog('iexvdunb.pls:GetRS:END');
17494:
17495: -- Standard call to get message count and if count is 1, get message info.
17496: FND_MSG_PUB.Count_And_Get
17497: ( p_count => x_msg_count,
17498: p_data => x_msg_data
17499: );
17500:
17503: ROLLBACK TO GET_RESOURCE_PVT;
17504: x_return_status := FND_API.G_RET_STS_ERROR;
17505: l_errmsg := SQLERRM;
17506: WriteLog('iexvdunb:GetRs-G_EXC_EXCEPTION::' || l_errmsg);
17507: FND_MSG_PUB.Count_And_Get
17508: ( p_count => x_msg_count,
17509: p_data => x_msg_data
17510: );
17511:
17513: ROLLBACK TO GET_RESOURCE_PVT;
17514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17515: l_errmsg := SQLERRM;
17516: WriteLog('iexvdunb:GetRs-G_EXC_UNEXP_EXCEPTION:OTHERS:' || l_errmsg);
17517: FND_MSG_PUB.Count_And_Get
17518: ( p_count => x_msg_count,
17519: p_data => x_msg_data
17520: );
17521:
17523: ROLLBACK TO GET_RESOURCE_PVT;
17524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17525: l_errmsg := SQLERRM;
17526: WriteLog('iexvdunb:GetRs-EXCEPTION:OTHERS:' || l_errmsg);
17527: FND_MSG_PUB.Count_And_Get
17528: ( p_count => x_msg_count,
17529: p_data => x_msg_data
17530: );*/
17531: NULL;
18338:
18339: x_return_status := FND_API.G_RET_STS_SUCCESS;
18340: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
18341:
18342: FND_MSG_PUB.Count_And_Get
18343: ( p_count => x_msg_count,
18344: p_data => x_msg_data );
18345:
18346: EXCEPTION
18346: EXCEPTION
18347: WHEN FND_API.G_EXC_ERROR THEN
18348: COMMIT WORK;
18349: x_return_status := FND_API.G_RET_STS_ERROR;
18350: FND_MSG_PUB.Count_And_Get
18351: ( p_count => x_msg_count,
18352: p_data => x_msg_data );
18353: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
18354: FND_FILE.PUT_LINE(FND_FILE.LOG, 'expect exception' );
18356:
18357: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
18358: COMMIT WORK;
18359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18360: FND_MSG_PUB.Count_And_Get
18361: ( p_count => x_msg_count,
18362: p_data => x_msg_data );
18363: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
18364: FND_FILE.PUT_LINE(FND_FILE.LOG, 'unexpect exception' );
18366:
18367: WHEN OTHERS THEN
18368: COMMIT WORK;
18369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18370: FND_MSG_PUB.Count_And_Get
18371: ( p_count => x_msg_count,
18372: p_data => x_msg_data );
18373: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception');
18374: FND_FILE.PUT_LINE(FND_FILE.LOG, 'unexpect exception' );
18447:
18448: -- Initialize message list if p_init_msg_list is set to TRUE.
18449: IF FND_API.to_Boolean( p_init_msg_list )
18450: THEN
18451: FND_MSG_PUB.initialize;
18452: END IF;
18453:
18454: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - START');
18455: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - p_dunning_id :'|| p_dunning_id);
19027: COMMIT WORK;
19028: END IF;
19029:
19030: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
19031: FND_MSG_PUB.Count_And_Get
19032: ( p_count => x_msg_count,
19033: p_data => x_msg_data
19034: );
19035:
19035:
19036: EXCEPTION
19037: WHEN FND_API.G_EXC_ERROR THEN
19038: x_return_status := FND_API.G_RET_STS_ERROR;
19039: FND_MSG_PUB.Count_And_Get
19040: ( p_count => x_msg_count,
19041: p_data => x_msg_data );
19042: ROLLBACK TO INSERT_DUNNING_TRANSACTION_PVT;
19043: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'exception ' || SQLERRM);
19043: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'exception ' || SQLERRM);
19044:
19045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
19046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19047: FND_MSG_PUB.Count_And_Get
19048: ( p_count => x_msg_count,
19049: p_data => x_msg_data );
19050: ROLLBACK TO INSERT_DUNNING_TRANSACTION_PVT;
19051: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'error ' || SQLERRM);
19051: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'error ' || SQLERRM);
19052:
19053: WHEN OTHERS THEN
19054: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19055: FND_MSG_PUB.Count_And_Get
19056: ( p_count => x_msg_count,
19057: p_data => x_msg_data );
19058: ROLLBACK TO INSERT_DUNNING_TRANSACTION_PVT;
19059: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'error ' || SQLERRM);