[Home] [Help]
180: primary_flag = 'Y';
181:
182: BEGIN
183:
184: IF FND_API.to_Boolean( p_init_msg_list )
185: THEN
186: FND_MSG_PUB.initialize;
187: END IF;
188:
185: THEN
186: FND_MSG_PUB.initialize;
187: END IF;
188:
189: x_return_status := FND_API.G_RET_STS_SUCCESS;
190:
191: WriteLog('----------' || l_api_name || '----------');
192: WriteLog(l_api_name || ': input parameters:');
193: WriteLog(l_api_name || ': P_PARTY_ID: ' || P_PARTY_ID);
300: WriteLog(l_api_name || ': X_CONTACT_ID = ' || X_CONTACT_ID);
301: WriteLog(l_api_name || ': X_CONTACT_POINT_ID = ' || X_CONTACT_POINT_ID);
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 );
301: WriteLog(l_api_name || ': X_CONTACT_POINT_ID = ' || X_CONTACT_POINT_ID);
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);
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:
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 );
308: p_data => x_msg_data );
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);
315: p_data => x_msg_data );
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);
446: par_site.party_site_id = acct_site.party_site_id;
447:
448: BEGIN
449:
450: IF FND_API.to_Boolean( p_init_msg_list )
451: THEN
452: FND_MSG_PUB.initialize;
453: END IF;
454:
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:
457: x_return_status := FND_API.G_RET_STS_SUCCESS;
458:
459: WriteLog('----------' || l_api_name || '----------');
460: WriteLog(l_api_name || ': input parameters:');
461: WriteLog(l_api_name || ': P_SITE_USE_ID: ' || P_SITE_USE_ID);
614: ( p_count => x_msg_count,
615: p_data => x_msg_data );
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 );
615: p_data => x_msg_data );
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);
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:
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 );
622: p_data => x_msg_data );
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);
629: p_data => x_msg_data );
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);
780: -- End for bug 6500750 gnramasa 13-Nov-07
781:
782: BEGIN
783:
784: IF FND_API.to_Boolean( p_init_msg_list )
785: THEN
786: FND_MSG_PUB.initialize;
787: END IF;
788:
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:
791: x_return_status := FND_API.G_RET_STS_SUCCESS;
792:
793: WriteLog('----------' || l_api_name || '----------');
794: WriteLog(l_api_name || ': input parameters:');
795: WriteLog(l_api_name || ': P_CUST_ACCT_ID: ' || P_CUST_ACCT_ID);
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;
847: exit;
1053: ( p_count => x_msg_count,
1054: p_data => x_msg_data );
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 );
1054: p_data => x_msg_data );
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);
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:
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 );
1061: p_data => x_msg_data );
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);
1068: p_data => x_msg_data );
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);
1153: par_site.identifying_address_flag = P_IDENT_FLAG and
1154: site_use.primary_flag = P_PRIMARY_FLAG;
1155: BEGIN
1156:
1157: IF FND_API.to_Boolean( p_init_msg_list )
1158: THEN
1159: FND_MSG_PUB.initialize;
1160: END IF;
1161:
1158: THEN
1159: FND_MSG_PUB.initialize;
1160: END IF;
1161:
1162: x_return_status := FND_API.G_RET_STS_SUCCESS;
1163:
1164: WriteLog('----------' || l_api_name || '----------');
1165: WriteLog(l_api_name || ': input parameters:');
1166: WriteLog(l_api_name || ': P_PARTY_ID: ' || P_PARTY_ID);
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:');
1197: WriteLog(l_api_name || ': l_display_order: ' || l_display_order);
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
1219: WriteLog(l_api_name || ': Calling GET_ACCT_DUNNING_DATA for account ' || l_cust_account_id);
1217:
1218: -- call GET_ACCT_DUNNING_DATA for found account
1219: WriteLog(l_api_name || ': Calling GET_ACCT_DUNNING_DATA for account ' || l_cust_account_id);
1220: GET_ACCT_DUNNING_DATA(p_api_version => 1.0,
1221: p_init_msg_list => FND_API.G_FALSE,
1222: p_commit => FND_API.G_FALSE,
1223: P_CUST_ACCT_ID => l_cust_account_id,
1224: P_CONTACT_POINT_TYPE => P_CONTACT_POINT_TYPE,
1225: X_LOCATION_ID => X_LOCATION_ID,
1218: -- call GET_ACCT_DUNNING_DATA for found account
1219: WriteLog(l_api_name || ': Calling GET_ACCT_DUNNING_DATA for account ' || l_cust_account_id);
1220: GET_ACCT_DUNNING_DATA(p_api_version => 1.0,
1221: p_init_msg_list => FND_API.G_FALSE,
1222: p_commit => FND_API.G_FALSE,
1223: P_CUST_ACCT_ID => l_cust_account_id,
1224: P_CONTACT_POINT_TYPE => P_CONTACT_POINT_TYPE,
1225: X_LOCATION_ID => X_LOCATION_ID,
1226: X_CONTACT_ID => X_CONTACT_ID,
1241: ( p_count => x_msg_count,
1242: p_data => x_msg_data );
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 );
1242: p_data => x_msg_data );
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);
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:
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 );
1249: p_data => x_msg_data );
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);
1256: p_data => x_msg_data );
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);
1303: where delinquency_id = p_delinquency_id;
1304:
1305: begin
1306:
1307: IF FND_API.to_Boolean( p_init_msg_list )
1308: THEN
1309: FND_MSG_PUB.initialize;
1310: END IF;
1311:
1308: THEN
1309: FND_MSG_PUB.initialize;
1310: END IF;
1311:
1312: x_return_status := FND_API.G_RET_STS_SUCCESS;
1313:
1314: WriteLog('----------' || l_api_name || '----------');
1315: WriteLog(l_api_name || ': input parameters:');
1316: WriteLog(l_api_name || ': p_level: ' || p_level);
1338: WriteLog(l_api_name || ': party_id = ' || l_party_id);
1339:
1340: WriteLog(l_api_name || ': Calling GET_CUST_DUNNING_DATA_OW...');
1341: GET_CUST_DUNNING_DATA_OW(p_api_version => 1.0,
1342: p_init_msg_list => FND_API.G_TRUE,
1343: p_commit => FND_API.G_FALSE,
1344: P_PARTY_ID => l_party_id,
1345: P_CONTACT_POINT_TYPE => p_send_method,
1346: X_LOCATION_ID => X_LOCATION_ID,
1339:
1340: WriteLog(l_api_name || ': Calling GET_CUST_DUNNING_DATA_OW...');
1341: GET_CUST_DUNNING_DATA_OW(p_api_version => 1.0,
1342: p_init_msg_list => FND_API.G_TRUE,
1343: p_commit => FND_API.G_FALSE,
1344: P_PARTY_ID => l_party_id,
1345: P_CONTACT_POINT_TYPE => p_send_method,
1346: X_LOCATION_ID => X_LOCATION_ID,
1347: X_CONTACT_ID => X_CONTACT_ID,
1362: if p_level = 'CUSTOMER' then
1363:
1364: WriteLog(l_api_name || ': Calling GET_CUST_DUNNING_DATA...');
1365: GET_CUST_DUNNING_DATA(p_api_version => 1.0,
1366: p_init_msg_list => FND_API.G_TRUE,
1367: p_commit => FND_API.G_FALSE,
1368: P_PARTY_ID => p_source_id,
1369: P_CONTACT_POINT_TYPE => p_send_method,
1370: X_LOCATION_ID => X_LOCATION_ID,
1363:
1364: WriteLog(l_api_name || ': Calling GET_CUST_DUNNING_DATA...');
1365: GET_CUST_DUNNING_DATA(p_api_version => 1.0,
1366: p_init_msg_list => FND_API.G_TRUE,
1367: p_commit => FND_API.G_FALSE,
1368: P_PARTY_ID => p_source_id,
1369: P_CONTACT_POINT_TYPE => p_send_method,
1370: X_LOCATION_ID => X_LOCATION_ID,
1371: X_CONTACT_ID => X_CONTACT_ID,
1377: elsif p_level = 'ACCOUNT' then
1378:
1379: WriteLog(l_api_name || ': Calling GET_ACCT_DUNNING_DATA...');
1380: GET_ACCT_DUNNING_DATA(p_api_version => 1.0,
1381: p_init_msg_list => FND_API.G_TRUE,
1382: p_commit => FND_API.G_FALSE,
1383: P_CUST_ACCT_ID => p_source_id,
1384: P_CONTACT_POINT_TYPE => p_send_method,
1385: X_LOCATION_ID => X_LOCATION_ID,
1378:
1379: WriteLog(l_api_name || ': Calling GET_ACCT_DUNNING_DATA...');
1380: GET_ACCT_DUNNING_DATA(p_api_version => 1.0,
1381: p_init_msg_list => FND_API.G_TRUE,
1382: p_commit => FND_API.G_FALSE,
1383: P_CUST_ACCT_ID => p_source_id,
1384: P_CONTACT_POINT_TYPE => p_send_method,
1385: X_LOCATION_ID => X_LOCATION_ID,
1386: X_CONTACT_ID => X_CONTACT_ID,
1392: elsif p_level = 'BILL_TO' then
1393:
1394: WriteLog(l_api_name || ': Calling GET_SITE_DUNNING_DATA...');
1395: GET_SITE_DUNNING_DATA(p_api_version => 1.0,
1396: p_init_msg_list => FND_API.G_TRUE,
1397: p_commit => FND_API.G_FALSE,
1398: P_SITE_USE_ID => p_source_id,
1399: P_CONTACT_POINT_TYPE => p_send_method,
1400: X_LOCATION_ID => X_LOCATION_ID,
1393:
1394: WriteLog(l_api_name || ': Calling GET_SITE_DUNNING_DATA...');
1395: GET_SITE_DUNNING_DATA(p_api_version => 1.0,
1396: p_init_msg_list => FND_API.G_TRUE,
1397: p_commit => FND_API.G_FALSE,
1398: P_SITE_USE_ID => p_source_id,
1399: P_CONTACT_POINT_TYPE => p_send_method,
1400: X_LOCATION_ID => X_LOCATION_ID,
1401: X_CONTACT_ID => X_CONTACT_ID,
1408:
1409: WriteLog(l_api_name || ': site_use_id = ' || l_temp_site_use_id);
1410: WriteLog(l_api_name || ': Calling GET_SITE_DUNNING_DATA...');
1411: GET_SITE_DUNNING_DATA(p_api_version => 1.0,
1412: p_init_msg_list => FND_API.G_TRUE,
1413: p_commit => FND_API.G_FALSE,
1414: P_SITE_USE_ID => l_temp_site_use_id,
1415: P_CONTACT_POINT_TYPE => p_send_method,
1416: X_LOCATION_ID => X_LOCATION_ID,
1409: WriteLog(l_api_name || ': site_use_id = ' || l_temp_site_use_id);
1410: WriteLog(l_api_name || ': Calling GET_SITE_DUNNING_DATA...');
1411: GET_SITE_DUNNING_DATA(p_api_version => 1.0,
1412: p_init_msg_list => FND_API.G_TRUE,
1413: p_commit => FND_API.G_FALSE,
1414: P_SITE_USE_ID => l_temp_site_use_id,
1415: P_CONTACT_POINT_TYPE => p_send_method,
1416: X_LOCATION_ID => X_LOCATION_ID,
1417: X_CONTACT_ID => X_CONTACT_ID,
1432: WriteLog(l_api_name || ': x_return_status: ' || x_return_status);
1433: WriteLog(l_api_name || ': x_msg_count: ' || x_msg_count);
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 );
1433: WriteLog(l_api_name || ': x_msg_count: ' || x_msg_count);
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);
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:
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 );
1440: p_data => x_msg_data );
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);
1447: p_data => x_msg_data );
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);
1536: where customer_trx_id = p_cust_trx_id;
1537:
1538: begin
1539:
1540: IF FND_API.to_Boolean( p_init_msg_list )
1541: THEN
1542: FND_MSG_PUB.initialize;
1543: END IF;
1544:
1541: THEN
1542: FND_MSG_PUB.initialize;
1543: END IF;
1544:
1545: x_return_status := FND_API.G_RET_STS_SUCCESS;
1546:
1547: WriteLog('----------' || l_api_name || '----------');
1548: WriteLog(l_api_name || ': input parameters:');
1549: WriteLog(l_api_name || ': p_level: ' || p_level);
1891: end if;
1892:
1893: WriteLog(l_api_name || ': Calling GET_DEFAULT_DUN_DEST...');
1894: GET_DEFAULT_DUN_DEST(p_api_version => 1.0,
1895: p_init_msg_list => FND_API.G_TRUE,
1896: p_commit => FND_API.G_FALSE,
1897: p_level => p_level,
1898: p_source_id => p_source_id,
1899: p_send_method => p_send_method,
1892:
1893: WriteLog(l_api_name || ': Calling GET_DEFAULT_DUN_DEST...');
1894: GET_DEFAULT_DUN_DEST(p_api_version => 1.0,
1895: p_init_msg_list => FND_API.G_TRUE,
1896: p_commit => FND_API.G_FALSE,
1897: p_level => p_level,
1898: p_source_id => p_source_id,
1899: p_send_method => p_send_method,
1900: X_LOCATION_ID => l_location_id,
1958: WriteLog(l_api_name || ': x_return_status: ' || x_return_status);
1959: WriteLog(l_api_name || ': x_msg_count: ' || x_msg_count);
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 );
1959: WriteLog(l_api_name || ': x_msg_count: ' || x_msg_count);
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);
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:
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 );
1966: p_data => x_msg_data );
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);
1973: p_data => x_msg_data );
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);
1997: l_delinquency_id NUMBER;
1998:
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:
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;
2008:
2009: IF P_delinquency_ID is NULL
2010: or P_delinquency_ID = FND_API.G_MISS_NUM
2011: THEN
2006: -- Initialize API return status to SUCCESS
2007: x_return_status := FND_API.G_RET_STS_SUCCESS;
2008:
2009: IF P_delinquency_ID is NULL
2010: or P_delinquency_ID = FND_API.G_MISS_NUM
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);
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:
2020: OPEN C_Get_Del (p_delinquency_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;
2035: END IF;
2036:
2066:
2067: l_ag_dn_xref_rec := p_ag_dn_xref_rec;
2068:
2069: -- Standard call to check for call compatibility.
2070: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2071: p_api_version,
2072: l_api_name,
2073: G_PKG_NAME)
2074: THEN
2071: p_api_version,
2072: l_api_name,
2073: G_PKG_NAME)
2074: THEN
2075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2076: END IF;
2077:
2078: -- Initialize message list if p_init_msg_list is set to TRUE.
2079: IF FND_API.to_Boolean( p_init_msg_list )
2075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2076: END IF;
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:
2083:
2084: WriteLog(l_api_name || G_PKG_NAME || ' ' || l_api_name || ' - Start');
2085:
2086: -- Initialize API return status to SUCCESS
2087: x_return_status := FND_API.G_RET_STS_SUCCESS;
2088:
2089: --
2090: -- API body
2091: --
2124: -- End of API body
2125: --
2126:
2127: -- Standard check for p_commit
2128: IF FND_API.to_Boolean( p_commit )
2129: THEN
2130: COMMIT WORK;
2131: END IF;
2132:
2137: p_data => x_msg_data
2138: );
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 );
2138: );
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;
2145: p_data => x_msg_data );
2146: ROLLBACK TO CREATE_AG_DN_PVT;
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 );
2146: ROLLBACK TO CREATE_AG_DN_PVT;
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;
2154: ROLLBACK TO CREATE_AG_DN_PVT;
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;
2216:
2217: l_AG_DN_XREF_REC := p_AG_DN_XREF_rec;
2218:
2219: -- Standard call to check for call compatibility.
2220: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2221: p_api_version,
2222: l_api_name,
2223: G_PKG_NAME)
2224: THEN
2221: p_api_version,
2222: l_api_name,
2223: G_PKG_NAME)
2224: THEN
2225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2226: END IF;
2227:
2228: -- Initialize message list if p_init_msg_list is set to TRUE.
2229: IF FND_API.to_Boolean( p_init_msg_list )
2225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2226: END IF;
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:
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;
2236: --
2237: -- Api body
2238: --
2239: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Open C_GET_AGDN_XREF_REC');
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:
2273: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Close C_GET_AGDN_XREF_REC');
2274: Close C_Get_AG_DN_XREF_Rec;
2273: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Close C_GET_AGDN_XREF_REC');
2274: Close C_Get_AG_DN_XREF_Rec;
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');
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');
2288:
2289: -- Transfer Data into target record
2292:
2293: -- dont update aging_bucket_id and aging_bucket_line_id
2294: -- dont update dunning_level
2295:
2296: IF (l_ag_dn_xref_rec.callback_flag = FND_API.G_MISS_CHAR or
2297: l_ag_dn_xref_rec.callback_flag is null ) Then
2298: l_ag_dn_xref_rec.callback_flag := l_ag_dn_xref_REF_rec.callback_flag;
2299: END IF;
2300: IF (l_ag_dn_xref_rec.callback_days = FND_API.G_MISS_NUM or
2296: IF (l_ag_dn_xref_rec.callback_flag = FND_API.G_MISS_CHAR or
2297: l_ag_dn_xref_rec.callback_flag is null ) Then
2298: l_ag_dn_xref_rec.callback_flag := l_ag_dn_xref_REF_rec.callback_flag;
2299: END IF;
2300: IF (l_ag_dn_xref_rec.callback_days = FND_API.G_MISS_NUM or
2301: l_ag_dn_xref_rec.callback_days is null ) Then
2302: l_ag_dn_xref_rec.callback_days := l_ag_dn_xref_REF_rec.callback_days;
2303: END IF;
2304: IF (l_ag_dn_xref_rec.fm_method = FND_API.G_MISS_CHAR or
2300: IF (l_ag_dn_xref_rec.callback_days = FND_API.G_MISS_NUM or
2301: l_ag_dn_xref_rec.callback_days is null ) Then
2302: l_ag_dn_xref_rec.callback_days := l_ag_dn_xref_REF_rec.callback_days;
2303: END IF;
2304: IF (l_ag_dn_xref_rec.fm_method = FND_API.G_MISS_CHAR or
2305: l_ag_dn_xref_rec.fm_method is null) Then
2306: l_ag_dn_xref_rec.fm_method := l_ag_dn_xref_REF_rec.fm_method;
2307: END IF;
2308: IF (l_ag_dn_xref_rec.template_ID = FND_API.G_MISS_NUM or
2304: IF (l_ag_dn_xref_rec.fm_method = FND_API.G_MISS_CHAR or
2305: l_ag_dn_xref_rec.fm_method is null) Then
2306: l_ag_dn_xref_rec.fm_method := l_ag_dn_xref_REF_rec.fm_method;
2307: END IF;
2308: IF (l_ag_dn_xref_rec.template_ID = FND_API.G_MISS_NUM or
2309: l_ag_dn_xref_rec.template_id is null ) Then
2310: l_ag_dn_xref_rec.template_ID := l_ag_dn_xref_ref_rec.template_ID;
2311: END IF;
2312: IF (l_ag_dn_xref_rec.xdo_template_ID = FND_API.G_MISS_NUM or
2308: IF (l_ag_dn_xref_rec.template_ID = FND_API.G_MISS_NUM or
2309: l_ag_dn_xref_rec.template_id is null ) Then
2310: l_ag_dn_xref_rec.template_ID := l_ag_dn_xref_ref_rec.template_ID;
2311: END IF;
2312: IF (l_ag_dn_xref_rec.xdo_template_ID = FND_API.G_MISS_NUM or
2313: l_ag_dn_xref_rec.xdo_template_id is null ) Then
2314: l_ag_dn_xref_rec.xdo_template_ID := l_ag_dn_xref_ref_rec.xdo_template_ID;
2315: END IF;
2316: IF (l_ag_dn_xref_rec.score_range_low = FND_API.G_MISS_NUM or
2312: IF (l_ag_dn_xref_rec.xdo_template_ID = FND_API.G_MISS_NUM or
2313: l_ag_dn_xref_rec.xdo_template_id is null ) Then
2314: l_ag_dn_xref_rec.xdo_template_ID := l_ag_dn_xref_ref_rec.xdo_template_ID;
2315: END IF;
2316: IF (l_ag_dn_xref_rec.score_range_low = FND_API.G_MISS_NUM or
2317: l_ag_dn_xref_rec.score_range_low is null ) Then
2318: l_ag_dn_xref_rec.score_range_low := l_ag_dn_xref_ref_rec.score_range_low;
2319: END IF;
2320: IF (l_ag_dn_xref_rec.score_range_high = FND_API.G_MISS_NUM or
2316: IF (l_ag_dn_xref_rec.score_range_low = FND_API.G_MISS_NUM or
2317: l_ag_dn_xref_rec.score_range_low is null ) Then
2318: l_ag_dn_xref_rec.score_range_low := l_ag_dn_xref_ref_rec.score_range_low;
2319: END IF;
2320: IF (l_ag_dn_xref_rec.score_range_high = FND_API.G_MISS_NUM or
2321: l_ag_dn_xref_rec.score_range_high is null ) Then
2322: l_ag_dn_xref_rec.score_range_high := l_ag_dn_xref_ref_rec.score_range_high;
2323: END IF;
2324: IF (l_ag_dn_xref_rec.object_version_number = FND_API.G_MISS_NUM or
2320: IF (l_ag_dn_xref_rec.score_range_high = FND_API.G_MISS_NUM or
2321: l_ag_dn_xref_rec.score_range_high is null ) Then
2322: l_ag_dn_xref_rec.score_range_high := l_ag_dn_xref_ref_rec.score_range_high;
2323: END IF;
2324: IF (l_ag_dn_xref_rec.object_version_number = FND_API.G_MISS_NUM or
2325: l_ag_dn_xref_rec.object_version_number is null ) Then
2326: l_ag_dn_xref_rec.object_version_number := l_ag_dn_xref_ref_rec.object_version_number;
2327: END IF;
2328:
2353: -- End of API body.
2354: --
2355:
2356: -- Standard check for p_commit
2357: IF FND_API.to_Boolean( p_commit )
2358: THEN
2359: COMMIT WORK;
2360: END IF;
2361:
2365: ( p_count => x_msg_count,
2366: p_data => x_msg_data );
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 );
2366: p_data => x_msg_data );
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;
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 );
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;
2383: ROLLBACK TO UPDATE_AG_DN_PVT;
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;
2421: -- Standard Start of API savepoint
2422: SAVEPOINT DELETE_AG_DN_PVT;
2423:
2424: -- Standard call to check for call compatibility.
2425: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2426: p_api_version,
2427: l_api_name,
2428: G_PKG_NAME)
2429: THEN
2426: p_api_version,
2427: l_api_name,
2428: G_PKG_NAME)
2429: THEN
2430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2431: END IF;
2432:
2433: -- Initialize message list if p_init_msg_list is set to TRUE.
2434: IF FND_API.to_Boolean( p_init_msg_list )
2430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2431: END IF;
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:
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;
2441: --
2442: -- Api body
2443: --
2444: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Open Cursor');
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:
2462: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - agdnxerfid='||l_ag_dn_xref_id);
2463: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Close Cursor');
2467: -- Invoke table handler
2468: IEX_AG_DN_PKG.Delete_Row(
2469: p_AG_DN_XREF_ID => l_AG_DN_XREF_ID);
2470:
2471: IF x_return_status = FND_API.G_RET_STS_ERROR then
2472: raise FND_API.G_EXC_ERROR;
2473: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2474: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2475: END IF;
2468: IEX_AG_DN_PKG.Delete_Row(
2469: p_AG_DN_XREF_ID => l_AG_DN_XREF_ID);
2470:
2471: IF x_return_status = FND_API.G_RET_STS_ERROR then
2472: raise FND_API.G_EXC_ERROR;
2473: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2474: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2475: END IF;
2476:
2469: p_AG_DN_XREF_ID => l_AG_DN_XREF_ID);
2470:
2471: IF x_return_status = FND_API.G_RET_STS_ERROR then
2472: raise FND_API.G_EXC_ERROR;
2473: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2474: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2475: END IF;
2476:
2477: --
2470:
2471: IF x_return_status = FND_API.G_RET_STS_ERROR then
2472: raise FND_API.G_EXC_ERROR;
2473: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2474: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2475: END IF;
2476:
2477: --
2478: -- End of API body
2478: -- End of API body
2479: --
2480:
2481: -- Standard check for p_commit
2482: IF FND_API.to_Boolean( p_commit )
2483: THEN
2484: COMMIT WORK;
2485: END IF;
2486:
2490: ( p_count => x_msg_count,
2491: p_data => x_msg_data );
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 );
2491: p_data => x_msg_data );
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;
2498: p_data => x_msg_data );
2499: ROLLBACK TO DELETE_AG_DN_PVT;
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 );
2499: ROLLBACK TO DELETE_AG_DN_PVT;
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;
2507: ROLLBACK TO DELETE_AG_DN_PVT;
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;
2542:
2543: l_dunning_rec := p_dunning_rec;
2544:
2545: -- Standard call to check for call compatibility.
2546: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2547: p_api_version,
2548: l_api_name,
2549: G_PKG_NAME)
2550: THEN
2547: p_api_version,
2548: l_api_name,
2549: G_PKG_NAME)
2550: THEN
2551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2552: END IF;
2553:
2554: -- Initialize message list if p_init_msg_list is set to TRUE.
2555: IF FND_API.to_Boolean( p_init_msg_list )
2551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2552: END IF;
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:
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;
2562: --
2563: -- API body
2564: --
2565: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - InsertRow');
2609: , p_as_of_date => nvl(l_dunning_rec.as_of_date,trunc(sysdate))
2610: );
2611: --End adding for bug 8489610 by gnramasa 14-May-09
2612:
2613: IF x_return_status = FND_API.G_RET_STS_ERROR then
2614: raise FND_API.G_EXC_ERROR;
2615: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2616: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2617: END IF;
2610: );
2611: --End adding for bug 8489610 by gnramasa 14-May-09
2612:
2613: IF x_return_status = FND_API.G_RET_STS_ERROR then
2614: raise FND_API.G_EXC_ERROR;
2615: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2616: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2617: END IF;
2618:
2611: --End adding for bug 8489610 by gnramasa 14-May-09
2612:
2613: IF x_return_status = FND_API.G_RET_STS_ERROR then
2614: raise FND_API.G_EXC_ERROR;
2615: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2616: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2617: END IF;
2618:
2619: --
2612:
2613: IF x_return_status = FND_API.G_RET_STS_ERROR then
2614: raise FND_API.G_EXC_ERROR;
2615: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2616: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2617: END IF;
2618:
2619: --
2620: -- End of API body
2620: -- End of API body
2621: --
2622:
2623: -- Standard check for p_commit
2624: IF FND_API.to_Boolean( p_commit )
2625: THEN
2626: COMMIT WORK;
2627: END IF;
2628:
2632: p_data => x_msg_data
2633: );
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 );
2633: );
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;
2640: p_data => x_msg_data );
2641: ROLLBACK TO CREATE_DUNNING_PVT;
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 );
2641: ROLLBACK TO CREATE_DUNNING_PVT;
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;
2649: ROLLBACK TO CREATE_DUNNING_PVT;
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;
2730: -- Standard Start of API savepoint
2731: SAVEPOINT CREATE_STAGED_DUNNING_PVT;
2732:
2733: -- Standard call to check for call compatibility.
2734: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2735: p_api_version,
2736: l_api_name,
2737: G_PKG_NAME)
2738: THEN
2735: p_api_version,
2736: l_api_name,
2737: G_PKG_NAME)
2738: THEN
2739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2740: END IF;
2741:
2742: -- Initialize message list if p_init_msg_list is set to TRUE.
2743: IF FND_API.to_Boolean( p_init_msg_list )
2739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2740: END IF;
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:
2754: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_curr_count :'|| l_curr_count);
2755:
2756:
2757:
2758: x_return_status := FND_API.G_RET_STS_SUCCESS;
2759: --
2760: -- API body
2761: --
2762:
2884: );
2885:
2886: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
2887:
2888: IF x_return_status = FND_API.G_RET_STS_ERROR then
2889: raise FND_API.G_EXC_ERROR;
2890: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2891: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2892: END IF;
2885:
2886: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
2887:
2888: IF x_return_status = FND_API.G_RET_STS_ERROR then
2889: raise FND_API.G_EXC_ERROR;
2890: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2891: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2892: END IF;
2893:
2886: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
2887:
2888: IF x_return_status = FND_API.G_RET_STS_ERROR then
2889: raise FND_API.G_EXC_ERROR;
2890: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2891: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2892: END IF;
2893:
2894: /*
2887:
2888: IF x_return_status = FND_API.G_RET_STS_ERROR then
2889: raise FND_API.G_EXC_ERROR;
2890: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2891: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2892: END IF;
2893:
2894: /*
2895: if p_dunning_mode <> 'DRAFT' then
2956: );
2957:
2958: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
2959:
2960: IF x_return_status = FND_API.G_RET_STS_ERROR then
2961: raise FND_API.G_EXC_ERROR;
2962: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2963: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2964: END IF;
2957:
2958: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
2959:
2960: IF x_return_status = FND_API.G_RET_STS_ERROR then
2961: raise FND_API.G_EXC_ERROR;
2962: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2963: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2964: END IF;
2965:
2958: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
2959:
2960: IF x_return_status = FND_API.G_RET_STS_ERROR then
2961: raise FND_API.G_EXC_ERROR;
2962: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2963: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2964: END IF;
2965:
2966: /*
2959:
2960: IF x_return_status = FND_API.G_RET_STS_ERROR then
2961: raise FND_API.G_EXC_ERROR;
2962: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2963: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2964: END IF;
2965:
2966: /*
2967: if p_dunning_mode <> 'DRAFT' then
3069: );
3070:
3071: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
3072:
3073: IF x_return_status = FND_API.G_RET_STS_ERROR then
3074: raise FND_API.G_EXC_ERROR;
3075: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3076: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3077: END IF;
3070:
3071: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
3072:
3073: IF x_return_status = FND_API.G_RET_STS_ERROR then
3074: raise FND_API.G_EXC_ERROR;
3075: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3076: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3077: END IF;
3078:
3071: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
3072:
3073: IF x_return_status = FND_API.G_RET_STS_ERROR then
3074: raise FND_API.G_EXC_ERROR;
3075: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3076: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3077: END IF;
3078:
3079: /*
3072:
3073: IF x_return_status = FND_API.G_RET_STS_ERROR then
3074: raise FND_API.G_EXC_ERROR;
3075: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3076: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3077: END IF;
3078:
3079: /*
3080: if p_dunning_mode <> 'DRAFT' then
3156: );
3157:
3158: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
3159:
3160: IF x_return_status = FND_API.G_RET_STS_ERROR then
3161: raise FND_API.G_EXC_ERROR;
3162: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3163: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3164: END IF;
3157:
3158: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
3159:
3160: IF x_return_status = FND_API.G_RET_STS_ERROR then
3161: raise FND_API.G_EXC_ERROR;
3162: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3163: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3164: END IF;
3165:
3158: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
3159:
3160: IF x_return_status = FND_API.G_RET_STS_ERROR then
3161: raise FND_API.G_EXC_ERROR;
3162: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3163: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3164: END IF;
3165:
3166: /*
3159:
3160: IF x_return_status = FND_API.G_RET_STS_ERROR then
3161: raise FND_API.G_EXC_ERROR;
3162: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3163: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3164: END IF;
3165:
3166: /*
3167: if p_dunning_mode <> 'DRAFT' then
3262: );
3263:
3264: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
3265:
3266: IF x_return_status = FND_API.G_RET_STS_ERROR then
3267: raise FND_API.G_EXC_ERROR;
3268: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3269: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3270: END IF;
3263:
3264: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
3265:
3266: IF x_return_status = FND_API.G_RET_STS_ERROR then
3267: raise FND_API.G_EXC_ERROR;
3268: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3269: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3270: END IF;
3271:
3264: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
3265:
3266: IF x_return_status = FND_API.G_RET_STS_ERROR then
3267: raise FND_API.G_EXC_ERROR;
3268: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3269: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3270: END IF;
3271:
3272: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
3265:
3266: IF x_return_status = FND_API.G_RET_STS_ERROR then
3267: raise FND_API.G_EXC_ERROR;
3268: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3269: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3270: END IF;
3271:
3272: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
3273: x_dunning_trx_id := null;
3362: );
3363:
3364: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
3365:
3366: IF x_return_status = FND_API.G_RET_STS_ERROR then
3367: raise FND_API.G_EXC_ERROR;
3368: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3369: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3370: END IF;
3363:
3364: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
3365:
3366: IF x_return_status = FND_API.G_RET_STS_ERROR then
3367: raise FND_API.G_EXC_ERROR;
3368: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3369: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3370: END IF;
3371:
3364: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
3365:
3366: IF x_return_status = FND_API.G_RET_STS_ERROR then
3367: raise FND_API.G_EXC_ERROR;
3368: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3369: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3370: END IF;
3371:
3372: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
3365:
3366: IF x_return_status = FND_API.G_RET_STS_ERROR then
3367: raise FND_API.G_EXC_ERROR;
3368: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3369: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3370: END IF;
3371:
3372: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
3373: x_dunning_trx_id := null;
3442: );
3443:
3444: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
3445:
3446: IF x_return_status = FND_API.G_RET_STS_ERROR then
3447: raise FND_API.G_EXC_ERROR;
3448: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3449: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3450: END IF;
3443:
3444: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
3445:
3446: IF x_return_status = FND_API.G_RET_STS_ERROR then
3447: raise FND_API.G_EXC_ERROR;
3448: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3449: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3450: END IF;
3451:
3444: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
3445:
3446: IF x_return_status = FND_API.G_RET_STS_ERROR then
3447: raise FND_API.G_EXC_ERROR;
3448: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3449: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3450: END IF;
3451:
3452: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
3445:
3446: IF x_return_status = FND_API.G_RET_STS_ERROR then
3447: raise FND_API.G_EXC_ERROR;
3448: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3449: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3450: END IF;
3451:
3452: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
3453: x_dunning_trx_id := null;
3513: );
3514:
3515: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
3516:
3517: IF x_return_status = FND_API.G_RET_STS_ERROR then
3518: raise FND_API.G_EXC_ERROR;
3519: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3520: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3521: END IF;
3514:
3515: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
3516:
3517: IF x_return_status = FND_API.G_RET_STS_ERROR then
3518: raise FND_API.G_EXC_ERROR;
3519: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3520: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3521: END IF;
3522:
3515: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
3516:
3517: IF x_return_status = FND_API.G_RET_STS_ERROR then
3518: raise FND_API.G_EXC_ERROR;
3519: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3520: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3521: END IF;
3522:
3523: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
3516:
3517: IF x_return_status = FND_API.G_RET_STS_ERROR then
3518: raise FND_API.G_EXC_ERROR;
3519: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3520: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3521: END IF;
3522:
3523: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
3524: x_dunning_trx_id := null;
3535: -- End of API body
3536: --
3537:
3538: -- Standard check for p_commit
3539: IF FND_API.to_Boolean( p_commit )
3540: THEN
3541: COMMIT WORK;
3542: END IF;
3543:
3547: p_data => x_msg_data
3548: );
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 );
3548: );
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;
3555: p_data => x_msg_data );
3556: ROLLBACK TO CREATE_STAGED_DUNNING_PVT;
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 );
3556: ROLLBACK TO CREATE_STAGED_DUNNING_PVT;
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;
3564: ROLLBACK TO CREATE_STAGED_DUNNING_PVT;
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;
3647:
3648: l_dunning_rec := p_dunning_rec;
3649:
3650: -- Standard call to check for call compatibility.
3651: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3652: p_api_version,
3653: l_api_name,
3654: G_PKG_NAME)
3655: THEN
3652: p_api_version,
3653: l_api_name,
3654: G_PKG_NAME)
3655: THEN
3656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3657: END IF;
3658:
3659: -- Initialize message list if p_init_msg_list is set to TRUE.
3660: IF FND_API.to_Boolean( p_init_msg_list )
3656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3657: END IF;
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:
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;
3667: --
3668: -- Api body
3669: --
3670: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Open C_GET_DUNNING_REC');
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:
3725: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CLOSE C_GET_DUNNING_REC');
3726: Close C_Get_DUNNING_REC;
3726: Close C_Get_DUNNING_REC;
3727: -- Start bug 5924158 05/06/07 by gnramasa
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');
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: */
3741: -- End bug 5924158 05/06/07 by gnramasa
3742: -- Transfer Data into target record
3746: --l_dunning_rec.ffm_request_id := l_dunning_ref_rec.ffm_request_id;
3747: l_dunning_rec.dunning_method := l_dunning_ref_rec.dunning_method;
3748:
3749: --Start bug 9503251 gnramasa 22nd Apr 2010
3750: IF (l_dunning_rec.amount_due_remaining = FND_API.G_MISS_NUM OR
3751: l_dunning_rec.amount_due_remaining is null) Then
3752: l_dunning_rec.amount_due_remaining := l_dunning_ref_rec.amount_due_remaining;
3753: END IF;
3754: IF (l_dunning_rec.currency_code = FND_API.G_MISS_CHAR OR
3750: IF (l_dunning_rec.amount_due_remaining = FND_API.G_MISS_NUM OR
3751: l_dunning_rec.amount_due_remaining is null) Then
3752: l_dunning_rec.amount_due_remaining := l_dunning_ref_rec.amount_due_remaining;
3753: END IF;
3754: IF (l_dunning_rec.currency_code = FND_API.G_MISS_CHAR OR
3755: l_dunning_rec.currency_code is null) Then
3756: l_dunning_rec.currency_code := l_dunning_ref_rec.currency_code;
3757: END IF;
3758: --End bug 9503251 gnramasa 22nd Apr 2010
3769: -- dont update dunning_id and delinquency_id
3770: -- dont update dunning_method
3771: -- dont update dunning_object_id and dunning_level
3772:
3773: IF (l_dunning_rec.xml_request_id = FND_API.G_MISS_NUM OR
3774: l_dunning_rec.xml_request_id is null) Then
3775: l_dunning_rec.xml_request_id := l_dunning_ref_rec.xml_request_id;
3776: END IF;
3777: IF (l_dunning_rec.xml_template_id = FND_API.G_MISS_NUM OR
3773: IF (l_dunning_rec.xml_request_id = FND_API.G_MISS_NUM OR
3774: l_dunning_rec.xml_request_id is null) Then
3775: l_dunning_rec.xml_request_id := l_dunning_ref_rec.xml_request_id;
3776: END IF;
3777: IF (l_dunning_rec.xml_template_id = FND_API.G_MISS_NUM OR
3778: l_dunning_rec.xml_template_id is null) Then
3779: l_dunning_rec.xml_template_id := l_dunning_ref_rec.xml_template_id;
3780: END IF;
3781: IF (l_dunning_rec.addt_xml_template_id = FND_API.G_MISS_NUM OR
3777: IF (l_dunning_rec.xml_template_id = FND_API.G_MISS_NUM OR
3778: l_dunning_rec.xml_template_id is null) Then
3779: l_dunning_rec.xml_template_id := l_dunning_ref_rec.xml_template_id;
3780: END IF;
3781: IF (l_dunning_rec.addt_xml_template_id = FND_API.G_MISS_NUM OR
3782: l_dunning_rec.addt_xml_template_id is null) Then
3783: l_dunning_rec.addt_xml_template_id := l_dunning_ref_rec.addt_xml_template_id;
3784: END IF;
3785: IF (l_dunning_rec.ffm_request_id = FND_API.G_MISS_NUM OR
3781: IF (l_dunning_rec.addt_xml_template_id = FND_API.G_MISS_NUM OR
3782: l_dunning_rec.addt_xml_template_id is null) Then
3783: l_dunning_rec.addt_xml_template_id := l_dunning_ref_rec.addt_xml_template_id;
3784: END IF;
3785: IF (l_dunning_rec.ffm_request_id = FND_API.G_MISS_NUM OR
3786: l_dunning_rec.ffm_request_id is null) Then
3787: l_dunning_rec.ffm_request_id := l_dunning_ref_rec.ffm_request_id;
3788: END IF;
3789: IF (l_dunning_rec.callback_YN = FND_API.G_MISS_CHAR or
3785: IF (l_dunning_rec.ffm_request_id = FND_API.G_MISS_NUM OR
3786: l_dunning_rec.ffm_request_id is null) Then
3787: l_dunning_rec.ffm_request_id := l_dunning_ref_rec.ffm_request_id;
3788: END IF;
3789: IF (l_dunning_rec.callback_YN = FND_API.G_MISS_CHAR or
3790: l_dunning_rec.callback_YN is null ) Then
3791: l_dunning_rec.callback_YN := l_dunning_ref_rec.callback_YN;
3792: END IF;
3793: IF (l_dunning_rec.callback_date = FND_API.G_MISS_DATE or
3789: IF (l_dunning_rec.callback_YN = FND_API.G_MISS_CHAR or
3790: l_dunning_rec.callback_YN is null ) Then
3791: l_dunning_rec.callback_YN := l_dunning_ref_rec.callback_YN;
3792: END IF;
3793: IF (l_dunning_rec.callback_date = FND_API.G_MISS_DATE or
3794: l_dunning_rec.callback_date is null ) Then
3795: l_dunning_rec.callback_date := l_dunning_ref_rec.callback_date;
3796: END IF;
3797: IF (l_dunning_rec.status = FND_API.G_MISS_CHAR or
3793: IF (l_dunning_rec.callback_date = FND_API.G_MISS_DATE or
3794: l_dunning_rec.callback_date is null ) Then
3795: l_dunning_rec.callback_date := l_dunning_ref_rec.callback_date;
3796: END IF;
3797: IF (l_dunning_rec.status = FND_API.G_MISS_CHAR or
3798: l_dunning_rec.status is null ) Then
3799: l_dunning_rec.status := l_dunning_ref_rec.status;
3800: END IF;
3801: IF (l_dunning_rec.template_ID = FND_API.G_MISS_NUM or
3797: IF (l_dunning_rec.status = FND_API.G_MISS_CHAR or
3798: l_dunning_rec.status is null ) Then
3799: l_dunning_rec.status := l_dunning_ref_rec.status;
3800: END IF;
3801: IF (l_dunning_rec.template_ID = FND_API.G_MISS_NUM or
3802: l_dunning_rec.template_id is null ) Then
3803: l_dunning_rec.template_ID := l_dunning_ref_rec.template_ID;
3804: END IF;
3805: IF (l_dunning_rec.campaign_sched_id = FND_API.G_MISS_NUM or
3801: IF (l_dunning_rec.template_ID = FND_API.G_MISS_NUM or
3802: l_dunning_rec.template_id is null ) Then
3803: l_dunning_rec.template_ID := l_dunning_ref_rec.template_ID;
3804: END IF;
3805: IF (l_dunning_rec.campaign_sched_id = FND_API.G_MISS_NUM or
3806: l_dunning_rec.campaign_sched_id is null ) Then
3807: l_dunning_rec.campaign_sched_id := l_dunning_ref_rec.campaign_sched_id;
3808: END IF;
3809: IF (l_dunning_rec.object_ID = FND_API.G_MISS_NUM or
3805: IF (l_dunning_rec.campaign_sched_id = FND_API.G_MISS_NUM or
3806: l_dunning_rec.campaign_sched_id is null ) Then
3807: l_dunning_rec.campaign_sched_id := l_dunning_ref_rec.campaign_sched_id;
3808: END IF;
3809: IF (l_dunning_rec.object_ID = FND_API.G_MISS_NUM or
3810: l_dunning_rec.object_id is null ) Then
3811: l_dunning_rec.object_ID := l_dunning_ref_rec.object_ID;
3812: END IF;
3813: IF (l_dunning_rec.object_type = FND_API.G_MISS_CHAR or
3809: IF (l_dunning_rec.object_ID = FND_API.G_MISS_NUM or
3810: l_dunning_rec.object_id is null ) Then
3811: l_dunning_rec.object_ID := l_dunning_ref_rec.object_ID;
3812: END IF;
3813: IF (l_dunning_rec.object_type = FND_API.G_MISS_CHAR or
3814: l_dunning_rec.object_type is null ) Then
3815: l_dunning_rec.object_type := l_dunning_ref_rec.object_type;
3816: END IF;
3817: IF (l_dunning_rec.delivery_status = FND_API.G_MISS_CHAR or
3813: IF (l_dunning_rec.object_type = FND_API.G_MISS_CHAR or
3814: l_dunning_rec.object_type is null ) Then
3815: l_dunning_rec.object_type := l_dunning_ref_rec.object_type;
3816: END IF;
3817: IF (l_dunning_rec.delivery_status = FND_API.G_MISS_CHAR or
3818: l_dunning_rec.delivery_status is null ) Then
3819: l_dunning_rec.delivery_status := l_dunning_ref_rec.delivery_status;
3820: END IF;
3821: IF (l_dunning_rec.addt_delivery_status = FND_API.G_MISS_CHAR or
3817: IF (l_dunning_rec.delivery_status = FND_API.G_MISS_CHAR or
3818: l_dunning_rec.delivery_status is null ) Then
3819: l_dunning_rec.delivery_status := l_dunning_ref_rec.delivery_status;
3820: END IF;
3821: IF (l_dunning_rec.addt_delivery_status = FND_API.G_MISS_CHAR or
3822: l_dunning_rec.addt_delivery_status is null ) Then
3823: l_dunning_rec.addt_delivery_status := l_dunning_ref_rec.addt_delivery_status;
3824: END IF;
3825: IF (l_dunning_rec.PARENT_DUNNING_ID = FND_API.G_MISS_NUM or
3821: IF (l_dunning_rec.addt_delivery_status = FND_API.G_MISS_CHAR or
3822: l_dunning_rec.addt_delivery_status is null ) Then
3823: l_dunning_rec.addt_delivery_status := l_dunning_ref_rec.addt_delivery_status;
3824: END IF;
3825: IF (l_dunning_rec.PARENT_DUNNING_ID = FND_API.G_MISS_NUM or
3826: l_dunning_rec.PARENT_DUNNING_ID is null ) Then
3827: l_dunning_rec.PARENT_DUNNING_ID := l_dunning_ref_rec.PARENT_DUNNING_ID;
3828: END IF;
3829:
3827: l_dunning_rec.PARENT_DUNNING_ID := l_dunning_ref_rec.PARENT_DUNNING_ID;
3828: END IF;
3829:
3830: -- begin bug 3955222 ctlee 10/05/2005
3831: IF (l_dunning_rec.contact_destination = FND_API.G_MISS_CHAR or
3832: l_dunning_rec.contact_destination is null ) Then
3833: l_dunning_rec.contact_destination := l_dunning_ref_rec.contact_destination;
3834: END IF;
3835:
3832: l_dunning_rec.contact_destination is null ) Then
3833: l_dunning_rec.contact_destination := l_dunning_ref_rec.contact_destination;
3834: END IF;
3835:
3836: IF (l_dunning_rec.contact_party_id = FND_API.G_MISS_NUM or
3837: l_dunning_rec.contact_party_id is null ) Then
3838: l_dunning_rec.contact_party_id := l_dunning_ref_rec.contact_party_id;
3839: END IF;
3840:
3837: l_dunning_rec.contact_party_id is null ) Then
3838: l_dunning_rec.contact_party_id := l_dunning_ref_rec.contact_party_id;
3839: END IF;
3840:
3841: IF (l_dunning_rec.dunning_mode = FND_API.G_MISS_CHAR or
3842: l_dunning_rec.dunning_mode is null ) Then
3843: l_dunning_rec.dunning_mode := l_dunning_ref_rec.dunning_mode;
3844: END IF;
3845:
3842: l_dunning_rec.dunning_mode is null ) Then
3843: l_dunning_rec.dunning_mode := l_dunning_ref_rec.dunning_mode;
3844: END IF;
3845:
3846: IF (l_dunning_rec.confirmation_mode = FND_API.G_MISS_CHAR or
3847: l_dunning_rec.confirmation_mode is null ) Then
3848: l_dunning_rec.confirmation_mode := l_dunning_ref_rec.confirmation_mode;
3849: END IF;
3850:
3847: l_dunning_rec.confirmation_mode is null ) Then
3848: l_dunning_rec.confirmation_mode := l_dunning_ref_rec.confirmation_mode;
3849: END IF;
3850:
3851: IF (l_dunning_rec.request_id = FND_API.G_MISS_NUM or
3852: l_dunning_rec.request_id is null ) Then
3853: l_dunning_rec.request_id := l_dunning_ref_rec.request_id;
3854: END IF;
3855:
3852: l_dunning_rec.request_id is null ) Then
3853: l_dunning_rec.request_id := l_dunning_ref_rec.request_id;
3854: END IF;
3855:
3856: IF (l_dunning_rec.ag_dn_xref_id = FND_API.G_MISS_NUM or
3857: l_dunning_rec.ag_dn_xref_id is null ) Then
3858: l_dunning_rec.ag_dn_xref_id := l_dunning_ref_rec.ag_dn_xref_id;
3859: END IF;
3860:
3857: l_dunning_rec.ag_dn_xref_id is null ) Then
3858: l_dunning_rec.ag_dn_xref_id := l_dunning_ref_rec.ag_dn_xref_id;
3859: END IF;
3860:
3861: IF (l_dunning_rec.correspondence_date = FND_API.G_MISS_DATE or
3862: l_dunning_rec.correspondence_date is null ) Then
3863: l_dunning_rec.correspondence_date := l_dunning_ref_rec.correspondence_date;
3864: END IF;
3865:
3917: );
3918: --End adding for bug 9970624 gnramasa 4th Aug 10
3919: --End adding for bug 8489610 by gnramasa 14-May-09
3920:
3921: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3922: RAISE FND_API.G_EXC_ERROR;
3923: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3924: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3925: END IF;
3918: --End adding for bug 9970624 gnramasa 4th Aug 10
3919: --End adding for bug 8489610 by gnramasa 14-May-09
3920:
3921: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3922: RAISE FND_API.G_EXC_ERROR;
3923: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3924: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3925: END IF;
3926:
3919: --End adding for bug 8489610 by gnramasa 14-May-09
3920:
3921: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3922: RAISE FND_API.G_EXC_ERROR;
3923: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3924: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3925: END IF;
3926:
3927: --
3920:
3921: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3922: RAISE FND_API.G_EXC_ERROR;
3923: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3924: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3925: END IF;
3926:
3927: --
3928: -- End of API body.
3928: -- End of API body.
3929: --
3930:
3931: -- Standard check for p_commit
3932: IF FND_API.to_Boolean( p_commit )
3933: THEN
3934: COMMIT WORK;
3935: END IF;
3936:
3940: ( p_count => x_msg_count,
3941: p_data => x_msg_data );
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 );
3941: p_data => x_msg_data );
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;
3948: p_data => x_msg_data );
3949: ROLLBACK TO UPDATE_DUNNING_PVT;
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 );
3949: ROLLBACK TO UPDATE_DUNNING_PVT;
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;
3957: ROLLBACK TO UPDATE_DUNNING_PVT;
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;
4271: l_org_id:= mo_global.get_current_org_id;
4272: WriteLog(' org_id in send_level_dunning ' || l_org_id);
4273:
4274: -- Standard call to check for call compatibility.
4275: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4276: p_api_version,
4277: l_api_name,
4278: G_PKG_NAME)
4279: THEN
4276: p_api_version,
4277: l_api_name,
4278: G_PKG_NAME)
4279: THEN
4280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4281: END IF;
4282:
4283: -- Initialize message list if p_init_msg_list is set to TRUE.
4284: IF FND_API.to_Boolean( p_init_msg_list )
4280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4281: END IF;
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:
4299: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - p_parent_request_id ' || p_parent_request_id);
4300: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - delcnt= ' || p_delinquencies_tbl.count);
4301:
4302: -- Initialize API return status to SUCCESS
4303: x_return_status := FND_API.G_RET_STS_SUCCESS;
4304: --
4305: -- Api body
4306: --
4307: l_turnoff_coll_on_bankru := nvl(fnd_profile.value('IEX_TURNOFF_COLLECT_BANKRUPTCY'),'N');
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;
4437: END IF;
4438: Close C_Get_SCORE;
4439: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - get Score='||l_score);
4440:
4460: , x_msg_data => x_msg_data
4461: , x_aging_bucket_line_id => l_bucket_line_id);
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');
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;
4471: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - lineid='||l_bucket_line_id);
4472:
4473: /*===========================================
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;
4499:
4500: --WriteLog('iexvdunb:SendLevelDunn:close C_GET_TEMPLATE');
4501: Close C_Get_TEMPLATE;
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;
4526: Close C_TEMPLATE_STATUS;
4527: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template status= '||l_template_status);
4528:
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:
4548: end if;
4549: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
4550: open c_dunning_plan_dtl (p_dunning_plan_id);
4545: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Missing corresponding template');
4546: RAISE FND_API.G_EXC_ERROR;
4547:
4548: end if;
4549: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
4550: open c_dunning_plan_dtl (p_dunning_plan_id);
4551: fetch c_dunning_plan_dtl into l_include_current,l_use_grace_days, l_dun_disputed_items;
4552: close c_dunning_plan_dtl;
4553: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_include_current :'|| l_include_current);
4555: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_dun_disputed_items :'|| l_dun_disputed_items);
4556:
4557: if l_use_grace_days = 'Y' then
4558: iex_utilities.get_grace_days(p_api_version => p_api_version,
4559: p_init_msg_list => FND_API.G_TRUE,
4560: p_commit => FND_API.G_FALSE,
4561: p_validation_level => l_validation_level,
4562: p_level => p_running_level,
4563: p_party_id => l_party_cust_id,
4556:
4557: if l_use_grace_days = 'Y' then
4558: iex_utilities.get_grace_days(p_api_version => p_api_version,
4559: p_init_msg_list => FND_API.G_TRUE,
4560: p_commit => FND_API.G_FALSE,
4561: p_validation_level => l_validation_level,
4562: p_level => p_running_level,
4563: p_party_id => l_party_cust_id,
4564: p_account_id => l_account_id,
4566: x_msg_count => l_msg_count,
4567: x_msg_data => l_msg_data,
4568: x_return_status => l_return_status,
4569: x_grace_days => l_grace_days);
4570: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4571: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get grace days');
4572: x_return_status := FND_API.G_RET_STS_ERROR;
4573: END IF;
4574: end if;
4568: x_return_status => l_return_status,
4569: x_grace_days => l_grace_days);
4570: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4571: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get grace days');
4572: x_return_status := FND_API.G_RET_STS_ERROR;
4573: END IF;
4574: end if;
4575: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_grace_days :'|| l_grace_days);
4576:
4574: end if;
4575: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_grace_days :'|| l_grace_days);
4576:
4577: --Start adding for bug 9156833 gnramasa 27th Nov 09
4578: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
4579:
4580: /*===========================================
4581: * Check profile before send dunning
4582: *===========================================*/
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;
4619: end if;
4620: /* if (p_running_level <> 'CUSTOMER') then
4621: -- ctlee - check the hz_customer_profiles_amt min_dunning_invoice_amount and min_dunning_amount
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". ');
4649: FND_MESSAGE.Set_Name('IEX', 'IEX_DUN_CUST_PRF_INVALID');
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
4655: open c_cust_acct_amt_due_rem(l_object_id,l_org_id,p_correspondence_date, l_grace_days,l_dun_disputed_items);
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;
4677: end if;
4678:
4679: end if;
4830: , x_msg_data => x_msg_data);
4831:
4832: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CloseDunning status='|| x_return_status);
4833:
4834: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4835: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Close Dunning');
4836: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot Close Dunning');
4837: x_return_status := FND_API.G_RET_STS_ERROR;
4838: GOTO end_api;
4833:
4834: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4835: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Close Dunning');
4836: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot Close Dunning');
4837: x_return_status := FND_API.G_RET_STS_ERROR;
4838: GOTO end_api;
4839: END IF;
4840: --WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - EndCloseDunn');
4841: end if;
4854: *==================================================*/
4855: IF (l_callback_flag = 'Y') THEN
4856:
4857: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CallbackFlag is Y: GetCallbackDate');
4858: Get_Callback_Date(p_init_msg_list => FND_API.G_FALSE
4859: ,p_callback_days => l_callback_days
4860: ,x_callback_date => l_callback_date
4861: ,x_return_status => x_return_status
4862: ,x_msg_count => x_msg_count
4863: ,x_msg_data => x_msg_data);
4864:
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');
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;
4874: END IF;
4875:
4876: ELSE
4933: , x_msg_data => x_msg_data);
4934:
4935: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateDunning status='|| x_return_status);
4936:
4937: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4938: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Dunning');
4939: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot Create Dunning');
4940: x_return_status := FND_API.G_RET_STS_ERROR;
4941: GOTO end_api;
4936:
4937: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4938: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Dunning');
4939: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot Create Dunning');
4940: x_return_status := FND_API.G_RET_STS_ERROR;
4941: GOTO end_api;
4942: END IF;
4943:
4944: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - DunningId='||l_dunning_id);
4989: l_bind_tbl(5).key_type := 'NUMBER';
4990: l_bind_tbl(5).key_value := l_dunning_id;
4991:
4992: --Start adding for bug 9156833 gnramasa 27th Nov 09
4993: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
4994:
4995: if (p_running_level = 'BILL_TO') then
4996: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
4997: p_init_msg_list => FND_API.G_TRUE,
4993: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
4994:
4995: if (p_running_level = 'BILL_TO') then
4996: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
4997: p_init_msg_list => FND_API.G_TRUE,
4998: p_commit => FND_API.G_FALSE,
4999: p_validation_level => l_validation_level,
5000: p_level => 'DUNNING_BILLTO',
5001: p_level_id => l_customer_site_use_id,
4994:
4995: if (p_running_level = 'BILL_TO') then
4996: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
4997: p_init_msg_list => FND_API.G_TRUE,
4998: p_commit => FND_API.G_FALSE,
4999: p_validation_level => l_validation_level,
5000: p_level => 'DUNNING_BILLTO',
5001: p_level_id => l_customer_site_use_id,
5002: x_msg_count => l_msg_count,
5002: x_msg_count => l_msg_count,
5003: x_msg_data => l_msg_data,
5004: x_return_status => l_return_status,
5005: x_resource_tab => l_resource_tab);
5006: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5007: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
5008: x_return_status := FND_API.G_RET_STS_ERROR;
5009: GOTO end_get_resource;
5010: END IF;
5004: x_return_status => l_return_status,
5005: x_resource_tab => l_resource_tab);
5006: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5007: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
5008: x_return_status := FND_API.G_RET_STS_ERROR;
5009: GOTO end_get_resource;
5010: END IF;
5011: end if;
5012:
5011: end if;
5012:
5013: if l_resource_tab.count<1 and (p_running_level = 'ACCOUNT') then
5014: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
5015: p_init_msg_list => FND_API.G_TRUE,
5016: p_commit => FND_API.G_FALSE,
5017: p_validation_level => l_validation_level,
5018: p_level => 'DUNNING_ACCOUNT',
5019: p_level_id => l_account_id,
5012:
5013: if l_resource_tab.count<1 and (p_running_level = 'ACCOUNT') then
5014: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
5015: p_init_msg_list => FND_API.G_TRUE,
5016: p_commit => FND_API.G_FALSE,
5017: p_validation_level => l_validation_level,
5018: p_level => 'DUNNING_ACCOUNT',
5019: p_level_id => l_account_id,
5020: x_msg_count => l_msg_count,
5020: x_msg_count => l_msg_count,
5021: x_msg_data => l_msg_data,
5022: x_return_status => l_return_status,
5023: x_resource_tab => l_resource_tab);
5024: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5025: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
5026: x_return_status := FND_API.G_RET_STS_ERROR;
5027: GOTO end_get_resource;
5028: END IF;
5022: x_return_status => l_return_status,
5023: x_resource_tab => l_resource_tab);
5024: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5025: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
5026: x_return_status := FND_API.G_RET_STS_ERROR;
5027: GOTO end_get_resource;
5028: END IF;
5029: end if;
5030:
5029: end if;
5030:
5031: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
5032: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
5033: p_init_msg_list => FND_API.G_TRUE,
5034: p_commit => FND_API.G_FALSE,
5035: p_validation_level => l_validation_level,
5036: p_level => 'DUNNING_PARTY',
5037: p_level_id => l_party_cust_id,
5030:
5031: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
5032: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
5033: p_init_msg_list => FND_API.G_TRUE,
5034: p_commit => FND_API.G_FALSE,
5035: p_validation_level => l_validation_level,
5036: p_level => 'DUNNING_PARTY',
5037: p_level_id => l_party_cust_id,
5038: x_msg_count => l_msg_count,
5038: x_msg_count => l_msg_count,
5039: x_msg_data => l_msg_data,
5040: x_return_status => l_return_status,
5041: x_resource_tab => l_resource_tab);
5042: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5043: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
5044: x_return_status := FND_API.G_RET_STS_ERROR;
5045: GOTO end_get_resource;
5046: END IF;
5040: x_return_status => l_return_status,
5041: x_resource_tab => l_resource_tab);
5042: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5043: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
5044: x_return_status := FND_API.G_RET_STS_ERROR;
5045: GOTO end_get_resource;
5046: END IF;
5047:
5048: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
5046: END IF;
5047:
5048: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
5049: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
5050: p_init_msg_list => FND_API.G_TRUE,
5051: p_commit => FND_API.G_FALSE,
5052: p_validation_level => l_validation_level,
5053: p_level => 'DUNNING_PARTY_ACCOUNT',
5054: p_level_id => l_party_cust_id,
5047:
5048: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
5049: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
5050: p_init_msg_list => FND_API.G_TRUE,
5051: p_commit => FND_API.G_FALSE,
5052: p_validation_level => l_validation_level,
5053: p_level => 'DUNNING_PARTY_ACCOUNT',
5054: p_level_id => l_party_cust_id,
5055: x_msg_count => l_msg_count,
5055: x_msg_count => l_msg_count,
5056: x_msg_data => l_msg_data,
5057: x_return_status => l_return_status,
5058: x_resource_tab => l_resource_tab);
5059: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5060: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
5061: x_return_status := FND_API.G_RET_STS_ERROR;
5062: GOTO end_get_resource;
5063: END IF;
5057: x_return_status => l_return_status,
5058: x_resource_tab => l_resource_tab);
5059: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5060: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
5061: x_return_status := FND_API.G_RET_STS_ERROR;
5062: GOTO end_get_resource;
5063: END IF;
5064: end if;
5065: end if;
5077: */
5078: if (l_curr_dmethod = 'FFM') then
5079:
5080: Send_Fulfillment(p_api_version => p_api_version
5081: ,p_init_msg_list => FND_API.G_FALSE
5082: ,p_commit => FND_API.G_TRUE
5083: ,p_fulfillment_bind_tbl => l_bind_tbl
5084: ,p_template_id => l_template_id
5085: ,p_method => l_method
5078: if (l_curr_dmethod = 'FFM') then
5079:
5080: Send_Fulfillment(p_api_version => p_api_version
5081: ,p_init_msg_list => FND_API.G_FALSE
5082: ,p_commit => FND_API.G_TRUE
5083: ,p_fulfillment_bind_tbl => l_bind_tbl
5084: ,p_template_id => l_template_id
5085: ,p_method => l_method
5086: ,p_party_id => l_party_cust_id
5093: );
5094: else
5095:
5096: Send_XML(p_api_version => p_api_version
5097: ,p_init_msg_list => FND_API.G_FALSE
5098: ,p_commit => FND_API.G_TRUE
5099: ,p_resend => 'N'
5100: ,p_request_id => null
5101: ,p_fulfillment_bind_tbl => l_bind_tbl
5094: else
5095:
5096: Send_XML(p_api_version => p_api_version
5097: ,p_init_msg_list => FND_API.G_FALSE
5098: ,p_commit => FND_API.G_TRUE
5099: ,p_resend => 'N'
5100: ,p_request_id => null
5101: ,p_fulfillment_bind_tbl => l_bind_tbl
5102: ,p_template_id => l_xdo_template_id
5120:
5121: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - SEND status='|| x_return_status);
5122: --End adding for bug 8489610 by gnramasa 14-May-09
5123:
5124: IF x_return_status <> FND_API.G_RET_STS_SUCCESS and x_return_status <> 'W' THEN
5125: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Sending process failed');
5126: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Sending process failed ');
5127: x_return_status := FND_API.G_RET_STS_ERROR;
5128: GOTO end_api;
5123:
5124: IF x_return_status <> FND_API.G_RET_STS_SUCCESS and x_return_status <> 'W' THEN
5125: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Sending process failed');
5126: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Sending process failed ');
5127: x_return_status := FND_API.G_RET_STS_ERROR;
5128: GOTO end_api;
5129: elsif x_return_status = 'W' then
5130: l_warning_flag := 'W';
5131: END IF;
5142: end if;
5143:
5144: IEX_DUNNING_PVT.Update_DUNNING(
5145: p_api_version => 1.0
5146: , p_init_msg_list => FND_API.G_FALSE
5147: , p_commit => FND_API.G_TRUE
5148: , p_dunning_rec => l_dunning_rec_upd
5149: , x_return_status => l_return_status
5150: , x_msg_count => l_msg_count
5143:
5144: IEX_DUNNING_PVT.Update_DUNNING(
5145: p_api_version => 1.0
5146: , p_init_msg_list => FND_API.G_FALSE
5147: , p_commit => FND_API.G_TRUE
5148: , p_dunning_rec => l_dunning_rec_upd
5149: , x_return_status => l_return_status
5150: , x_msg_count => l_msg_count
5151: , x_msg_data => l_msg_data
5157: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Transaction doesn''t exist , so skipping...');
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
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)
5188:
5189: if l_warning_flag = 'W' then
5202: ( p_count => x_msg_count,
5203: p_data => x_msg_data );
5204:
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,
5204:
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');
5212: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
5213: FND_FILE.PUT_LINE(FND_FILE.LOG, 'expect exception' );
5214: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
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,
5214: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
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');
5224: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
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');
5464: l_org_id:= mo_global.get_current_org_id;
5465: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_org_id = ' || l_org_id);
5466:
5467: -- Standard call to check for call compatibility.
5468: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5469: p_api_version,
5470: l_api_name,
5471: G_PKG_NAME)
5472: THEN
5469: p_api_version,
5470: l_api_name,
5471: G_PKG_NAME)
5472: THEN
5473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5474: END IF;
5475:
5476: -- Initialize message list if p_init_msg_list is set to TRUE.
5477: IF FND_API.to_Boolean( p_init_msg_list )
5473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5474: END IF;
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:
5495:
5496:
5497:
5498: -- Initialize API return status to SUCCESS
5499: x_return_status := FND_API.G_RET_STS_SUCCESS;
5500: --
5501: -- Api body
5502: --
5503: l_turnoff_coll_on_bankru := nvl(fnd_profile.value('IEX_TURNOFF_COLLECT_BANKRUPTCY'),'N');
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;
5620: END IF;
5621: Close C_Get_SCORE;
5622: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - get Score='||l_score);
5623:
5620: END IF;
5621: Close C_Get_SCORE;
5622: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - get Score='||l_score);
5623:
5624: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
5625:
5626: open c_dunning_plan_dtl (p_dunning_plan_id);
5627: fetch c_dunning_plan_dtl into l_include_current,l_use_grace_days, l_dun_disputed_items;
5628: close c_dunning_plan_dtl;
5631: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_dun_disputed_items :'|| l_dun_disputed_items);
5632:
5633: if l_use_grace_days = 'Y' then
5634: iex_utilities.get_grace_days(p_api_version => p_api_version,
5635: p_init_msg_list => FND_API.G_TRUE,
5636: p_commit => FND_API.G_FALSE,
5637: p_validation_level => l_validation_level,
5638: p_level => p_running_level,
5639: p_party_id => l_del_tbl(1).party_cust_id,
5632:
5633: if l_use_grace_days = 'Y' then
5634: iex_utilities.get_grace_days(p_api_version => p_api_version,
5635: p_init_msg_list => FND_API.G_TRUE,
5636: p_commit => FND_API.G_FALSE,
5637: p_validation_level => l_validation_level,
5638: p_level => p_running_level,
5639: p_party_id => l_del_tbl(1).party_cust_id,
5640: p_account_id => l_del_tbl(1).cust_account_id,
5642: x_msg_count => l_msg_count,
5643: x_msg_data => l_msg_data,
5644: x_return_status => l_return_status,
5645: x_grace_days => l_grace_days);
5646: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5647: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get grace days');
5648: x_return_status := FND_API.G_RET_STS_ERROR;
5649: END IF;
5650: end if;
5644: x_return_status => l_return_status,
5645: x_grace_days => l_grace_days);
5646: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5647: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get grace days');
5648: x_return_status := FND_API.G_RET_STS_ERROR;
5649: END IF;
5650: end if;
5651: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_grace_days :'|| l_grace_days);
5652:
5650: end if;
5651: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_grace_days :'|| l_grace_days);
5652:
5653: --Start adding for bug 9156833 gnramasa 27th Nov 09
5654: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
5655:
5656: if (p_running_level = 'BILL_TO') then
5657: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
5658: p_init_msg_list => FND_API.G_TRUE,
5654: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
5655:
5656: if (p_running_level = 'BILL_TO') then
5657: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
5658: p_init_msg_list => FND_API.G_TRUE,
5659: p_commit => FND_API.G_FALSE,
5660: p_validation_level => l_validation_level,
5661: p_level => 'DUNNING_BILLTO',
5662: p_level_id => l_customer_site_use_id,
5655:
5656: if (p_running_level = 'BILL_TO') then
5657: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
5658: p_init_msg_list => FND_API.G_TRUE,
5659: p_commit => FND_API.G_FALSE,
5660: p_validation_level => l_validation_level,
5661: p_level => 'DUNNING_BILLTO',
5662: p_level_id => l_customer_site_use_id,
5663: x_msg_count => l_msg_count,
5663: x_msg_count => l_msg_count,
5664: x_msg_data => l_msg_data,
5665: x_return_status => l_return_status,
5666: x_resource_tab => l_resource_tab);
5667: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5668: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
5669: x_return_status := FND_API.G_RET_STS_ERROR;
5670: GOTO end_get_resource;
5671: END IF;
5665: x_return_status => l_return_status,
5666: x_resource_tab => l_resource_tab);
5667: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5668: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
5669: x_return_status := FND_API.G_RET_STS_ERROR;
5670: GOTO end_get_resource;
5671: END IF;
5672: end if;
5673:
5672: end if;
5673:
5674: if l_resource_tab.count<1 and (p_running_level = 'ACCOUNT') then
5675: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
5676: p_init_msg_list => FND_API.G_TRUE,
5677: p_commit => FND_API.G_FALSE,
5678: p_validation_level => l_validation_level,
5679: p_level => 'DUNNING_ACCOUNT',
5680: p_level_id => l_account_id,
5673:
5674: if l_resource_tab.count<1 and (p_running_level = 'ACCOUNT') then
5675: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
5676: p_init_msg_list => FND_API.G_TRUE,
5677: p_commit => FND_API.G_FALSE,
5678: p_validation_level => l_validation_level,
5679: p_level => 'DUNNING_ACCOUNT',
5680: p_level_id => l_account_id,
5681: x_msg_count => l_msg_count,
5681: x_msg_count => l_msg_count,
5682: x_msg_data => l_msg_data,
5683: x_return_status => l_return_status,
5684: x_resource_tab => l_resource_tab);
5685: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5686: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
5687: x_return_status := FND_API.G_RET_STS_ERROR;
5688: GOTO end_get_resource;
5689: END IF;
5683: x_return_status => l_return_status,
5684: x_resource_tab => l_resource_tab);
5685: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5686: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
5687: x_return_status := FND_API.G_RET_STS_ERROR;
5688: GOTO end_get_resource;
5689: END IF;
5690: end if;
5691:
5690: end if;
5691:
5692: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
5693: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
5694: p_init_msg_list => FND_API.G_TRUE,
5695: p_commit => FND_API.G_FALSE,
5696: p_validation_level => l_validation_level,
5697: p_level => 'DUNNING_PARTY',
5698: p_level_id => l_party_cust_id,
5691:
5692: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
5693: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
5694: p_init_msg_list => FND_API.G_TRUE,
5695: p_commit => FND_API.G_FALSE,
5696: p_validation_level => l_validation_level,
5697: p_level => 'DUNNING_PARTY',
5698: p_level_id => l_party_cust_id,
5699: x_msg_count => l_msg_count,
5699: x_msg_count => l_msg_count,
5700: x_msg_data => l_msg_data,
5701: x_return_status => l_return_status,
5702: x_resource_tab => l_resource_tab);
5703: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5704: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
5705: x_return_status := FND_API.G_RET_STS_ERROR;
5706: GOTO end_get_resource;
5707: END IF;
5701: x_return_status => l_return_status,
5702: x_resource_tab => l_resource_tab);
5703: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5704: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
5705: x_return_status := FND_API.G_RET_STS_ERROR;
5706: GOTO end_get_resource;
5707: END IF;
5708:
5709: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
5707: END IF;
5708:
5709: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
5710: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
5711: p_init_msg_list => FND_API.G_TRUE,
5712: p_commit => FND_API.G_FALSE,
5713: p_validation_level => l_validation_level,
5714: p_level => 'DUNNING_PARTY_ACCOUNT',
5715: p_level_id => l_party_cust_id,
5708:
5709: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
5710: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
5711: p_init_msg_list => FND_API.G_TRUE,
5712: p_commit => FND_API.G_FALSE,
5713: p_validation_level => l_validation_level,
5714: p_level => 'DUNNING_PARTY_ACCOUNT',
5715: p_level_id => l_party_cust_id,
5716: x_msg_count => l_msg_count,
5716: x_msg_count => l_msg_count,
5717: x_msg_data => l_msg_data,
5718: x_return_status => l_return_status,
5719: x_resource_tab => l_resource_tab);
5720: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5721: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
5722: x_return_status := FND_API.G_RET_STS_ERROR;
5723: GOTO end_get_resource;
5724: END IF;
5718: x_return_status => l_return_status,
5719: x_resource_tab => l_resource_tab);
5720: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5721: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
5722: x_return_status := FND_API.G_RET_STS_ERROR;
5723: GOTO end_get_resource;
5724: END IF;
5725: end if;
5726: end if;
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;
5856: end if;
5857:
5858: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - end check customer profile');
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;
5928: Close C_TEMPLATE_STATUS;
5929: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template status= '||l_template_status);
5930:
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:
5950: end if;
5951:
5952: /*===========================================
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;
5989: end if;
5990:
5991: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - p_dunning_mode :'|| p_dunning_mode);
6282:
6283: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CloseDunning status='|| x_return_status);
6284: FND_FILE.PUT_LINE(FND_FILE.LOG,'After close dunning');
6285:
6286: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6287: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Close Dunning');
6288: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot Close Dunning');
6289: x_return_status := FND_API.G_RET_STS_ERROR;
6290: GOTO end_api;
6285:
6286: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6287: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Close Dunning');
6288: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot Close Dunning');
6289: x_return_status := FND_API.G_RET_STS_ERROR;
6290: GOTO end_api;
6291: END IF;
6292: --WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - EndCloseDunn');
6293: end if;
6306: *==================================================*/
6307: IF (l_callback_flag = 'Y') THEN
6308:
6309: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CallbackFlag is Y: GetCallbackDate');
6310: Get_Callback_Date(p_init_msg_list => FND_API.G_FALSE
6311: ,p_callback_days => l_callback_days
6312: , p_correspondence_date => p_correspondence_date
6313: ,x_callback_date => l_callback_date
6314: ,x_return_status => x_return_status
6316: ,x_msg_data => x_msg_data);
6317:
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');
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;
6327: END IF;
6328:
6329: ELSE
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;
6359: Close C_TEMPLATE_STATUS;
6360: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template status= '||l_template_status);
6361:
6422: , x_msg_data => x_msg_data);
6423:
6424: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateDunning status='|| x_return_status);
6425:
6426: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6427: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Dunning');
6428: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot Create Dunning');
6429: x_return_status := FND_API.G_RET_STS_ERROR;
6430: GOTO end_api;
6425:
6426: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6427: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Dunning');
6428: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot Create Dunning');
6429: x_return_status := FND_API.G_RET_STS_ERROR;
6430: GOTO end_api;
6431: END IF;
6432:
6433: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - DunningId='||l_dunning_id);
6455:
6456: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Create Stage Dunning transactions status='|| x_return_status);
6457: FND_FILE.PUT_LINE(FND_FILE.LOG,'create staged dunning-->'||x_return_status);
6458:
6459: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6460: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Stage Dunning transactions');
6461: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot Create Stage Dunning transactions');
6462: x_return_status := FND_API.G_RET_STS_ERROR;
6463: GOTO end_api;
6458:
6459: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6460: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Stage Dunning transactions');
6461: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot Create Stage Dunning transactions');
6462: x_return_status := FND_API.G_RET_STS_ERROR;
6463: GOTO end_api;
6464: END IF;
6465:
6466: if (upper(p_single_staged_letter) = 'N') then
6500: */
6501: if (l_curr_dmethod = 'FFM') then
6502:
6503: Send_Fulfillment(p_api_version => p_api_version
6504: ,p_init_msg_list => FND_API.G_FALSE
6505: ,p_commit => FND_API.G_TRUE
6506: ,p_fulfillment_bind_tbl => l_bind_tbl
6507: ,p_template_id => l_template_id
6508: ,p_method => l_method
6501: if (l_curr_dmethod = 'FFM') then
6502:
6503: Send_Fulfillment(p_api_version => p_api_version
6504: ,p_init_msg_list => FND_API.G_FALSE
6505: ,p_commit => FND_API.G_TRUE
6506: ,p_fulfillment_bind_tbl => l_bind_tbl
6507: ,p_template_id => l_template_id
6508: ,p_method => l_method
6509: ,p_party_id => l_party_cust_id
6517:
6518: FND_FILE.PUT_LINE(FND_FILE.LOG,'send fulfillment');
6519:
6520: Send_XML(p_api_version => p_api_version
6521: ,p_init_msg_list => FND_API.G_FALSE
6522: ,p_commit => FND_API.G_TRUE
6523: ,p_resend => 'N'
6524: ,p_request_id => null
6525: ,p_fulfillment_bind_tbl => l_bind_tbl
6518: FND_FILE.PUT_LINE(FND_FILE.LOG,'send fulfillment');
6519:
6520: Send_XML(p_api_version => p_api_version
6521: ,p_init_msg_list => FND_API.G_FALSE
6522: ,p_commit => FND_API.G_TRUE
6523: ,p_resend => 'N'
6524: ,p_request_id => null
6525: ,p_fulfillment_bind_tbl => l_bind_tbl
6526: ,p_template_id => l_xdo_template_id
6545:
6546: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - SEND status='|| x_return_status);
6547: --End adding for bug 8489610 by gnramasa 14-May-09
6548:
6549: IF x_return_status <> FND_API.G_RET_STS_SUCCESS and x_return_status <> 'W' THEN
6550: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Sending process failed');
6551: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Sending process failed ');
6552: x_return_status := FND_API.G_RET_STS_ERROR;
6553: GOTO end_api;
6548:
6549: IF x_return_status <> FND_API.G_RET_STS_SUCCESS and x_return_status <> 'W' THEN
6550: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Sending process failed');
6551: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Sending process failed ');
6552: x_return_status := FND_API.G_RET_STS_ERROR;
6553: GOTO end_api;
6554: elsif x_return_status = 'W' then
6555: l_warning_flag := 'W';
6556: END IF;
6581: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_dunning_rec_upd.currency_code = ' ||l_dunning_rec_upd.currency_code);
6582:
6583: IEX_DUNNING_PVT.Update_DUNNING(
6584: p_api_version => 1.0
6585: , p_init_msg_list => FND_API.G_FALSE
6586: , p_commit => FND_API.G_TRUE
6587: , p_dunning_rec => l_dunning_rec_upd
6588: , x_return_status => l_return_status
6589: , x_msg_count => l_msg_count
6582:
6583: IEX_DUNNING_PVT.Update_DUNNING(
6584: p_api_version => 1.0
6585: , p_init_msg_list => FND_API.G_FALSE
6586: , p_commit => FND_API.G_TRUE
6587: , p_dunning_rec => l_dunning_rec_upd
6588: , x_return_status => l_return_status
6589: , x_msg_count => l_msg_count
6590: , x_msg_data => l_msg_data
6644: */
6645: if (l_curr_dmethod = 'FFM') then
6646:
6647: Send_Fulfillment(p_api_version => p_api_version
6648: ,p_init_msg_list => FND_API.G_FALSE
6649: ,p_commit => FND_API.G_TRUE
6650: ,p_fulfillment_bind_tbl => l_bind_tbl
6651: ,p_template_id => l_template_id
6652: ,p_method => l_method
6645: if (l_curr_dmethod = 'FFM') then
6646:
6647: Send_Fulfillment(p_api_version => p_api_version
6648: ,p_init_msg_list => FND_API.G_FALSE
6649: ,p_commit => FND_API.G_TRUE
6650: ,p_fulfillment_bind_tbl => l_bind_tbl
6651: ,p_template_id => l_template_id
6652: ,p_method => l_method
6653: ,p_party_id => l_party_cust_id
6660: );
6661: else
6662:
6663: Send_XML(p_api_version => p_api_version
6664: ,p_init_msg_list => FND_API.G_FALSE
6665: ,p_commit => FND_API.G_TRUE
6666: ,p_resend => 'N'
6667: ,p_request_id => null
6668: ,p_fulfillment_bind_tbl => l_bind_tbl
6661: else
6662:
6663: Send_XML(p_api_version => p_api_version
6664: ,p_init_msg_list => FND_API.G_FALSE
6665: ,p_commit => FND_API.G_TRUE
6666: ,p_resend => 'N'
6667: ,p_request_id => null
6668: ,p_fulfillment_bind_tbl => l_bind_tbl
6669: ,p_template_id => l_xdo_template_id
6688:
6689: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - SEND status='|| x_return_status);
6690: --End adding for bug 8489610 by gnramasa 14-May-09
6691:
6692: IF x_return_status <> FND_API.G_RET_STS_SUCCESS and x_return_status <> 'W' THEN
6693: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Sending process failed');
6694: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Sending process failed ');
6695: x_return_status := FND_API.G_RET_STS_ERROR;
6696: GOTO end_api;
6691:
6692: IF x_return_status <> FND_API.G_RET_STS_SUCCESS and x_return_status <> 'W' THEN
6693: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Sending process failed');
6694: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Sending process failed ');
6695: x_return_status := FND_API.G_RET_STS_ERROR;
6696: GOTO end_api;
6697: elsif x_return_status = 'W' then
6698: l_warning_flag := 'W';
6699: END IF;
6724: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_dunning_rec_upd.currency_code == ' ||l_dunning_rec_upd.currency_code);
6725:
6726: IEX_DUNNING_PVT.Update_DUNNING(
6727: p_api_version => 1.0
6728: , p_init_msg_list => FND_API.G_FALSE
6729: , p_commit => FND_API.G_TRUE
6730: , p_dunning_rec => l_dunning_rec_upd
6731: , x_return_status => l_return_status
6732: , x_msg_count => l_msg_count
6725:
6726: IEX_DUNNING_PVT.Update_DUNNING(
6727: p_api_version => 1.0
6728: , p_init_msg_list => FND_API.G_FALSE
6729: , p_commit => FND_API.G_TRUE
6730: , p_dunning_rec => l_dunning_rec_upd
6731: , x_return_status => l_return_status
6732: , x_msg_count => l_msg_count
6733: , x_msg_data => l_msg_data
6795: 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
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)
6826:
6827: if l_warning_flag = 'W' then
6840: ( p_count => x_msg_count,
6841: p_data => x_msg_data );
6842:
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,
6842:
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');
6850: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
6851: FND_FILE.PUT_LINE(FND_FILE.LOG, 'expect exception' );
6852: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
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,
6852: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
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');
6862: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
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');
7090: --l_org_id := fnd_profile.value('ORG_ID');
7091: l_org_id:= mo_global.get_current_org_id;
7092: WriteLog(' org_id in send dunning '|| l_org_id);
7093: -- Standard call to check for call compatibility.
7094: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
7095: p_api_version,
7096: l_api_name,
7097: G_PKG_NAME)
7098: THEN
7095: p_api_version,
7096: l_api_name,
7097: G_PKG_NAME)
7098: THEN
7099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7100: END IF;
7101:
7102: -- Initialize message list if p_init_msg_list is set to TRUE.
7103: IF FND_API.to_Boolean( p_init_msg_list )
7099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7100: END IF;
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:
7107:
7108: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
7109:
7110: -- Initialize API return status to SUCCESS
7111: x_return_status := FND_API.G_RET_STS_SUCCESS;
7112:
7113: --
7114: -- Api body
7115: --
7139: Fetch c_del_object_type into l_del_object_type;
7140: If ( c_del_object_type%NOTFOUND ) Then
7141: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Delinquency scoring engine donot have level');
7142: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Delinquency scoring engine donot have level');
7143: x_return_status := FND_API.G_RET_STS_ERROR;
7144: CLOSE c_del_object_type;
7145: RAISE FND_API.G_EXC_ERROR;
7146: end if;
7147: CLOSE c_del_object_type;
7141: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Delinquency scoring engine donot have level');
7142: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Delinquency scoring engine donot have level');
7143: x_return_status := FND_API.G_RET_STS_ERROR;
7144: CLOSE c_del_object_type;
7145: RAISE FND_API.G_EXC_ERROR;
7146: end if;
7147: CLOSE c_del_object_type;
7148:
7149: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_del_object_type: '|| l_del_object_type);
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;
7172: END IF;
7173:
7174: close c_get_score_del;
7284: , x_aging_bucket_line_id => l_bucket_line_id);
7285:
7286: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - AgingDel status='||x_return_status);
7287:
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;
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;
7364: Close C_TEMPLATE_STATUS;
7365: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template status= '||l_template_status);
7366:
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;
7388: end if;
7389:
7390: if l_use_grace_days = 'Y' then
7388: end if;
7389:
7390: if l_use_grace_days = 'Y' then
7391: iex_utilities.get_grace_days(p_api_version => p_api_version,
7392: p_init_msg_list => FND_API.G_TRUE,
7393: p_commit => FND_API.G_FALSE,
7394: p_validation_level => l_validation_level,
7395: p_level => l_running_level,
7396: p_party_id => l_party_cust_id,
7389:
7390: if l_use_grace_days = 'Y' then
7391: iex_utilities.get_grace_days(p_api_version => p_api_version,
7392: p_init_msg_list => FND_API.G_TRUE,
7393: p_commit => FND_API.G_FALSE,
7394: p_validation_level => l_validation_level,
7395: p_level => l_running_level,
7396: p_party_id => l_party_cust_id,
7397: p_account_id => l_account_id,
7399: x_msg_count => l_msg_count,
7400: x_msg_data => l_msg_data,
7401: x_return_status => l_return_status,
7402: x_grace_days => l_grace_days);
7403: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7404: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get grace days');
7405: -- x_return_status := FND_API.G_RET_STS_ERROR; -- bug 14797201
7406: END IF;
7407: end if;
7401: x_return_status => l_return_status,
7402: x_grace_days => l_grace_days);
7403: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7404: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get grace days');
7405: -- x_return_status := FND_API.G_RET_STS_ERROR; -- bug 14797201
7406: END IF;
7407: end if;
7408: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_grace_days :'|| l_grace_days);
7409:
7569: , x_msg_data => x_msg_data);
7570:
7571: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CloseDunning status='|| x_return_status);
7572:
7573: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7574: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Close Dunning');
7575: --msg
7576: GOTO end_loop;
7577: END IF;
7602:
7603: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - GetCallbackDate status='|| x_return_status);
7604: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CallbackDate='||l_callback_date);
7605:
7606: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7607: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Not Get CallbackDate');
7608: GOTO end_loop;
7609: END IF;
7610:
7685: , x_msg_data => x_msg_data);
7686:
7687: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateDunning status='|| x_return_status);
7688:
7689: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7690: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Dunning');
7691: GOTO end_loop;
7692: else
7693:
7749: l_bind_tbl(7).key_type := 'NUMBER';
7750: l_bind_tbl(7).key_value := l_dunning_id;
7751:
7752: --Start adding for bug 9156833 gnramasa 27th Nov 09
7753: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
7754:
7755: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
7756: p_init_msg_list => FND_API.G_TRUE,
7757: p_commit => FND_API.G_FALSE,
7752: --Start adding for bug 9156833 gnramasa 27th Nov 09
7753: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
7754:
7755: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
7756: p_init_msg_list => FND_API.G_TRUE,
7757: p_commit => FND_API.G_FALSE,
7758: p_validation_level => l_validation_level,
7759: p_level => 'DUNNING_BILLTO',
7760: p_level_id => l_customer_site_use_id,
7753: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
7754:
7755: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
7756: p_init_msg_list => FND_API.G_TRUE,
7757: p_commit => FND_API.G_FALSE,
7758: p_validation_level => l_validation_level,
7759: p_level => 'DUNNING_BILLTO',
7760: p_level_id => l_customer_site_use_id,
7761: x_msg_count => l_msg_count,
7761: x_msg_count => l_msg_count,
7762: x_msg_data => l_msg_data,
7763: x_return_status => l_return_status,
7764: x_resource_tab => l_resource_tab);
7765: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7766: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
7767: x_return_status := FND_API.G_RET_STS_ERROR;
7768: END IF;
7769:
7763: x_return_status => l_return_status,
7764: x_resource_tab => l_resource_tab);
7765: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7766: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
7767: x_return_status := FND_API.G_RET_STS_ERROR;
7768: END IF;
7769:
7770: if l_resource_tab.count>0 then
7771: l_resource_id := l_resource_tab(1).resource_id;
7774: --End adding for bug 9156833 gnramasa 27th Nov 09
7775:
7776: if (l_curr_dmethod = 'FFM') then
7777: Send_Fulfillment(p_api_version => p_api_version
7778: ,p_init_msg_list => FND_API.G_TRUE
7779: ,p_commit => FND_API.G_TRUE
7780: ,p_fulfillment_bind_tbl => l_bind_tbl
7781: ,p_template_id => l_template_id
7782: ,p_method => l_method
7775:
7776: if (l_curr_dmethod = 'FFM') then
7777: Send_Fulfillment(p_api_version => p_api_version
7778: ,p_init_msg_list => FND_API.G_TRUE
7779: ,p_commit => FND_API.G_TRUE
7780: ,p_fulfillment_bind_tbl => l_bind_tbl
7781: ,p_template_id => l_template_id
7782: ,p_method => l_method
7783: ,p_party_id => l_party_cust_id
7792: l_object_code := 'IEX_DELINQUENCY';
7793: l_object_id := l_delinquency_id;
7794:
7795: Send_XML(p_api_version => p_api_version
7796: ,p_init_msg_list => FND_API.G_TRUE
7797: ,p_commit => FND_API.G_TRUE
7798: ,p_resend => 'N'
7799: ,p_request_id => null
7800: ,p_fulfillment_bind_tbl => l_bind_tbl
7793: l_object_id := l_delinquency_id;
7794:
7795: Send_XML(p_api_version => p_api_version
7796: ,p_init_msg_list => FND_API.G_TRUE
7797: ,p_commit => FND_API.G_TRUE
7798: ,p_resend => 'N'
7799: ,p_request_id => null
7800: ,p_fulfillment_bind_tbl => l_bind_tbl
7801: ,p_template_id => l_xdo_template_id
7820:
7821: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Send status = ' || x_return_status);
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
7846: l_dunning_rec_upd.xml_request_id := l_request_id;
7847: end if;
7848:
7849: IEX_DUNNING_PVT.Update_DUNNING(p_api_version => 1.0
7850: , p_init_msg_list => FND_API.G_TRUE
7851: , p_commit => FND_API.G_TRUE
7852: , p_dunning_rec => l_dunning_rec_upd
7853: , x_return_status => l_return_status
7854: , x_msg_count => l_msg_count
7847: end if;
7848:
7849: IEX_DUNNING_PVT.Update_DUNNING(p_api_version => 1.0
7850: , p_init_msg_list => FND_API.G_TRUE
7851: , p_commit => FND_API.G_TRUE
7852: , p_dunning_rec => l_dunning_rec_upd
7853: , x_return_status => l_return_status
7854: , x_msg_count => l_msg_count
7855: , x_msg_data => l_msg_data);
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
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 );
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
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
7902: p_data => x_msg_data );
7903:
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 );
7910: p_data => x_msg_data );
7911:
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 );
8292: l_org_id:= mo_global.get_current_org_id;
8293: WriteLog(G_PKG_NAME || ' ' || l_api_name ||' org_id in send dunning '|| l_org_id);
8294:
8295: -- Standard call to check for call compatibility.
8296: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
8297: p_api_version,
8298: l_api_name,
8299: G_PKG_NAME)
8300: THEN
8297: p_api_version,
8298: l_api_name,
8299: G_PKG_NAME)
8300: THEN
8301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8302: END IF;
8303:
8304: -- Initialize message list if p_init_msg_list is set to TRUE.
8305: IF FND_API.to_Boolean( p_init_msg_list )
8301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8302: END IF;
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:
8309:
8310: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
8311:
8312: -- Initialize API return status to SUCCESS
8313: x_return_status := FND_API.G_RET_STS_SUCCESS;
8314:
8315: --
8316: -- Api body
8317: --
8318: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - ' || p_resend_flag);
8319: l_turnoff_coll_on_bankru := nvl(fnd_profile.value('IEX_TURNOFF_COLLECT_BANKRUPTCY'),'N');
8320: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_turnoff_coll_on_bankru: ' || l_turnoff_coll_on_bankru);
8321:
8322: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
8323:
8324: open c_dunning_plan_dtl (p_dunning_plan_id);
8325: fetch c_dunning_plan_dtl into l_use_grace_days, l_dun_disputed_items;
8326: close c_dunning_plan_dtl;
8350: If ( c_del_object_type%NOTFOUND ) Then
8351: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Delinquency scoring engine donot have level');
8352: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Delinquency scoring engine donot have level');
8353: close c_del_object_type;
8354: x_return_status := FND_API.G_RET_STS_ERROR;
8355: RAISE FND_API.G_EXC_ERROR;
8356: end if;
8357: CLOSE c_del_object_type;
8358:
8351: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Delinquency scoring engine donot have level');
8352: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Delinquency scoring engine donot have level');
8353: close c_del_object_type;
8354: x_return_status := FND_API.G_RET_STS_ERROR;
8355: RAISE FND_API.G_EXC_ERROR;
8356: end if;
8357: CLOSE c_del_object_type;
8358:
8359: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_del_object_type: '|| l_del_object_type);
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
8382: GOTO end_loop; -- restored from bug 14797201
8383: END IF;
8384:
8405: END IF;
8406:
8407: if l_use_grace_days = 'Y' then
8408: iex_utilities.get_grace_days(p_api_version => p_api_version,
8409: p_init_msg_list => FND_API.G_TRUE,
8410: p_commit => FND_API.G_FALSE,
8411: p_validation_level => l_validation_level,
8412: p_level => 'BILL_TO', --get the grace days from the site level profile
8413: p_party_id => l_party_cust_id,
8406:
8407: if l_use_grace_days = 'Y' then
8408: iex_utilities.get_grace_days(p_api_version => p_api_version,
8409: p_init_msg_list => FND_API.G_TRUE,
8410: p_commit => FND_API.G_FALSE,
8411: p_validation_level => l_validation_level,
8412: p_level => 'BILL_TO', --get the grace days from the site level profile
8413: p_party_id => l_party_cust_id,
8414: p_account_id => l_account_id,
8416: x_msg_count => l_msg_count,
8417: x_msg_data => l_msg_data,
8418: x_return_status => l_return_status,
8419: x_grace_days => l_grace_days);
8420: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8421: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get grace days');
8422: -- x_return_status := FND_API.G_RET_STS_ERROR; bug 14797201
8423: END IF;
8424: end if;
8418: x_return_status => l_return_status,
8419: x_grace_days => l_grace_days);
8420: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8421: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get grace days');
8422: -- x_return_status := FND_API.G_RET_STS_ERROR; bug 14797201
8423: END IF;
8424: end if;
8425: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_grace_days :'|| l_grace_days);
8426:
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
8499: end if;
8500:
8501: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - end check customer profile');
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;
8549: Close C_TEMPLATE_STATUS;
8550: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template status= '||l_template_status);
8551:
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
8626: end if;
8627:
8628: /*===========================================
8668: , x_msg_data => x_msg_data);
8669:
8670: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CloseDunning status='|| x_return_status);
8671:
8672: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8673: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Close Dunning');
8674: --msg
8675: goto c_dunning_plan_lines; -- GOTO end_loop; -- bug 14797201
8676: END IF;
8702:
8703: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - GetCallbackDate status='|| x_return_status);
8704: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CallbackDate='||l_callback_date);
8705:
8706: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8707: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Not Get CallbackDate');
8708: goto c_dunning_plan_lines; -- GOTO end_loop; -- bug 14797201
8709: END IF;
8710:
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;
8763: Close C_TEMPLATE_STATUS;
8764: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template status= '||l_template_status);
8765: ELSE
8818: , x_msg_data => x_msg_data);
8819:
8820: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateDunning status='|| x_return_status);
8821:
8822: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8823: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Dunning');
8824: goto c_dunning_plan_lines; -- GOTO end_loop; -- bug 14797201
8825: END IF;
8826:
8851: );
8852:
8853: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
8854:
8855: IF x_return_status = FND_API.G_RET_STS_ERROR then
8856: raise FND_API.G_EXC_ERROR;
8857: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
8858: raise FND_API.G_EXC_UNEXPECTED_ERROR;
8859: END IF;
8852:
8853: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
8854:
8855: IF x_return_status = FND_API.G_RET_STS_ERROR then
8856: raise FND_API.G_EXC_ERROR;
8857: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
8858: raise FND_API.G_EXC_UNEXPECTED_ERROR;
8859: END IF;
8860:
8853: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
8854:
8855: IF x_return_status = FND_API.G_RET_STS_ERROR then
8856: raise FND_API.G_EXC_ERROR;
8857: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
8858: raise FND_API.G_EXC_UNEXPECTED_ERROR;
8859: END IF;
8860:
8861: /*
8854:
8855: IF x_return_status = FND_API.G_RET_STS_ERROR then
8856: raise FND_API.G_EXC_ERROR;
8857: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
8858: raise FND_API.G_EXC_UNEXPECTED_ERROR;
8859: END IF;
8860:
8861: /*
8862: if p_dunning_mode <> 'DRAFT' then
8906: l_bind_tbl(7).key_type := 'NUMBER';
8907: l_bind_tbl(7).key_value := l_dunning_id;
8908:
8909: --Start adding for bug 9156833 gnramasa 27th Nov 09
8910: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
8911:
8912: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
8913: p_init_msg_list => FND_API.G_TRUE,
8914: p_commit => FND_API.G_FALSE,
8909: --Start adding for bug 9156833 gnramasa 27th Nov 09
8910: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
8911:
8912: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
8913: p_init_msg_list => FND_API.G_TRUE,
8914: p_commit => FND_API.G_FALSE,
8915: p_validation_level => l_validation_level,
8916: p_level => 'DUNNING_BILLTO',
8917: p_level_id => l_customer_site_use_id,
8910: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
8911:
8912: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
8913: p_init_msg_list => FND_API.G_TRUE,
8914: p_commit => FND_API.G_FALSE,
8915: p_validation_level => l_validation_level,
8916: p_level => 'DUNNING_BILLTO',
8917: p_level_id => l_customer_site_use_id,
8918: x_msg_count => l_msg_count,
8918: x_msg_count => l_msg_count,
8919: x_msg_data => l_msg_data,
8920: x_return_status => l_return_status,
8921: x_resource_tab => l_resource_tab);
8922: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8923: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
8924: x_return_status := FND_API.G_RET_STS_ERROR;
8925: END IF;
8926:
8920: x_return_status => l_return_status,
8921: x_resource_tab => l_resource_tab);
8922: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8923: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
8924: x_return_status := FND_API.G_RET_STS_ERROR;
8925: END IF;
8926:
8927: if l_resource_tab.count>0 then
8928: l_resource_id := l_resource_tab(1).resource_id;
8931: --End adding for bug 9156833 gnramasa 27th Nov 09
8932:
8933: if (l_curr_dmethod = 'FFM') then
8934: Send_Fulfillment(p_api_version => p_api_version
8935: ,p_init_msg_list => FND_API.G_TRUE
8936: ,p_commit => FND_API.G_TRUE
8937: ,p_fulfillment_bind_tbl => l_bind_tbl
8938: ,p_template_id => l_template_id
8939: ,p_method => l_method
8932:
8933: if (l_curr_dmethod = 'FFM') then
8934: Send_Fulfillment(p_api_version => p_api_version
8935: ,p_init_msg_list => FND_API.G_TRUE
8936: ,p_commit => FND_API.G_TRUE
8937: ,p_fulfillment_bind_tbl => l_bind_tbl
8938: ,p_template_id => l_template_id
8939: ,p_method => l_method
8940: ,p_party_id => l_party_cust_id
8949: l_object_code := 'IEX_DELINQUENCY';
8950: l_object_id := l_delinquency_id;
8951:
8952: Send_XML(p_api_version => p_api_version
8953: ,p_init_msg_list => FND_API.G_TRUE
8954: ,p_commit => FND_API.G_TRUE
8955: ,p_resend => 'N'
8956: ,p_request_id => null
8957: ,p_fulfillment_bind_tbl => l_bind_tbl
8950: l_object_id := l_delinquency_id;
8951:
8952: Send_XML(p_api_version => p_api_version
8953: ,p_init_msg_list => FND_API.G_TRUE
8954: ,p_commit => FND_API.G_TRUE
8955: ,p_resend => 'N'
8956: ,p_request_id => null
8957: ,p_fulfillment_bind_tbl => l_bind_tbl
8958: ,p_template_id => l_xdo_template_id
8978:
8979: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Send status = ' || x_return_status);
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
9004: l_dunning_rec_upd.xml_request_id := l_request_id;
9005: end if;
9006:
9007: IEX_DUNNING_PVT.Update_DUNNING(p_api_version => 1.0
9008: , p_init_msg_list => FND_API.G_TRUE
9009: , p_commit => FND_API.G_TRUE
9010: , p_dunning_rec => l_dunning_rec_upd
9011: , x_return_status => l_return_status
9012: , x_msg_count => l_msg_count
9005: end if;
9006:
9007: IEX_DUNNING_PVT.Update_DUNNING(p_api_version => 1.0
9008: , p_init_msg_list => FND_API.G_TRUE
9009: , p_commit => FND_API.G_TRUE
9010: , p_dunning_rec => l_dunning_rec_upd
9011: , x_return_status => l_return_status
9012: , x_msg_count => l_msg_count
9013: , x_msg_data => l_msg_data);
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
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 );
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
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
9095: p_data => x_msg_data );
9096:
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 );
9103: p_data => x_msg_data );
9104:
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 );
9314: --Value of profile ORG_ID shouldn't be used for getting ORG_ID after MOAC implementation
9315: l_org_id:= mo_global.get_current_org_id;
9316:
9317: -- Standard call to check for call compatibility.
9318: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
9319: p_api_version,
9320: l_api_name,
9321: G_PKG_NAME)
9322: THEN
9319: p_api_version,
9320: l_api_name,
9321: G_PKG_NAME)
9322: THEN
9323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9324: END IF;
9325:
9326: -- Initialize message list if p_init_msg_list is set to TRUE.
9327: IF FND_API.to_Boolean( p_init_msg_list )
9323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9324: END IF;
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:
9335: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
9336: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - running_level='||p_running_level);
9337:
9338: -- Initialize API return status to SUCCESS
9339: x_return_status := FND_API.G_RET_STS_SUCCESS;
9340:
9341: --
9342: -- Api body
9343: --
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;
9460: END IF;
9461:
9462: --WriteLog('iexvdunb:ResendLevelDunn:CLOSE C_GET_SCORE', l_write);
9486: , x_aging_bucket_line_id => l_bucket_line_id);
9487:
9488: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - AgingDel status='||x_return_status);
9489:
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;
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;
9499:
9500: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - lineid='||l_bucket_line_id);
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;
9524:
9525: Close C_Get_TEMPLATE;
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;
9550: Close C_TEMPLATE_STATUS;
9551: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template status= '||l_template_status);
9552:
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;
9574:
9575: open c_dunning_plan_dtl (p_dunning_plan_id);
9579: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_dun_disputed_items :'|| l_dun_disputed_items);
9580:
9581: if l_use_grace_days = 'Y' then
9582: iex_utilities.get_grace_days(p_api_version => p_api_version,
9583: p_init_msg_list => FND_API.G_TRUE,
9584: p_commit => FND_API.G_FALSE,
9585: p_validation_level => l_validation_level,
9586: p_level => p_running_level,
9587: p_party_id => l_party_cust_id,
9580:
9581: if l_use_grace_days = 'Y' then
9582: iex_utilities.get_grace_days(p_api_version => p_api_version,
9583: p_init_msg_list => FND_API.G_TRUE,
9584: p_commit => FND_API.G_FALSE,
9585: p_validation_level => l_validation_level,
9586: p_level => p_running_level,
9587: p_party_id => l_party_cust_id,
9588: p_account_id => l_account_id,
9590: x_msg_count => l_msg_count,
9591: x_msg_data => l_msg_data,
9592: x_return_status => l_return_status,
9593: x_grace_days => l_grace_days);
9594: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9595: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get grace days');
9596: x_return_status := FND_API.G_RET_STS_ERROR;
9597: END IF;
9598: end if;
9592: x_return_status => l_return_status,
9593: x_grace_days => l_grace_days);
9594: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9595: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get grace days');
9596: x_return_status := FND_API.G_RET_STS_ERROR;
9597: END IF;
9598: end if;
9599: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_grace_days :'|| l_grace_days);
9600:
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;
9643:
9644: /*if (p_running_level <> 'CUSTOMER') then
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;
9671: else
9672: open c_cust_acct_amt_due_rem(l_object_id,l_org_id,l_as_of_date, l_grace_days,l_dun_disputed_items);
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;
9694: end if;
9695:
9696: end if;
9829: l_bind_rec.key_value := p_dunning_id;
9830: l_bind_tbl(5) := l_bind_rec;
9831:
9832: --Start adding for bug 9156833 gnramasa 27th Nov 09
9833: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
9834:
9835: if (p_running_level = 'BILL_TO') then
9836: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
9837: p_init_msg_list => FND_API.G_TRUE,
9833: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
9834:
9835: if (p_running_level = 'BILL_TO') then
9836: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
9837: p_init_msg_list => FND_API.G_TRUE,
9838: p_commit => FND_API.G_FALSE,
9839: p_validation_level => l_validation_level,
9840: p_level => 'DUNNING_BILLTO',
9841: p_level_id => l_customer_site_use_id,
9834:
9835: if (p_running_level = 'BILL_TO') then
9836: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
9837: p_init_msg_list => FND_API.G_TRUE,
9838: p_commit => FND_API.G_FALSE,
9839: p_validation_level => l_validation_level,
9840: p_level => 'DUNNING_BILLTO',
9841: p_level_id => l_customer_site_use_id,
9842: x_msg_count => l_msg_count,
9842: x_msg_count => l_msg_count,
9843: x_msg_data => l_msg_data,
9844: x_return_status => l_return_status,
9845: x_resource_tab => l_resource_tab);
9846: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9847: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
9848: x_return_status := FND_API.G_RET_STS_ERROR;
9849: GOTO end_get_resource;
9850: END IF;
9844: x_return_status => l_return_status,
9845: x_resource_tab => l_resource_tab);
9846: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9847: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
9848: x_return_status := FND_API.G_RET_STS_ERROR;
9849: GOTO end_get_resource;
9850: END IF;
9851: end if;
9852:
9851: end if;
9852:
9853: if l_resource_tab.count<1 and (p_running_level = 'ACCOUNT') then
9854: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
9855: p_init_msg_list => FND_API.G_TRUE,
9856: p_commit => FND_API.G_FALSE,
9857: p_validation_level => l_validation_level,
9858: p_level => 'DUNNING_ACCOUNT',
9859: p_level_id => l_account_id,
9852:
9853: if l_resource_tab.count<1 and (p_running_level = 'ACCOUNT') then
9854: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
9855: p_init_msg_list => FND_API.G_TRUE,
9856: p_commit => FND_API.G_FALSE,
9857: p_validation_level => l_validation_level,
9858: p_level => 'DUNNING_ACCOUNT',
9859: p_level_id => l_account_id,
9860: x_msg_count => l_msg_count,
9860: x_msg_count => l_msg_count,
9861: x_msg_data => l_msg_data,
9862: x_return_status => l_return_status,
9863: x_resource_tab => l_resource_tab);
9864: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9865: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
9866: x_return_status := FND_API.G_RET_STS_ERROR;
9867: GOTO end_get_resource;
9868: END IF;
9862: x_return_status => l_return_status,
9863: x_resource_tab => l_resource_tab);
9864: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9865: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
9866: x_return_status := FND_API.G_RET_STS_ERROR;
9867: GOTO end_get_resource;
9868: END IF;
9869: end if;
9870:
9869: end if;
9870:
9871: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
9872: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
9873: p_init_msg_list => FND_API.G_TRUE,
9874: p_commit => FND_API.G_FALSE,
9875: p_validation_level => l_validation_level,
9876: p_level => 'DUNNING_PARTY',
9877: p_level_id => l_party_cust_id,
9870:
9871: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
9872: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
9873: p_init_msg_list => FND_API.G_TRUE,
9874: p_commit => FND_API.G_FALSE,
9875: p_validation_level => l_validation_level,
9876: p_level => 'DUNNING_PARTY',
9877: p_level_id => l_party_cust_id,
9878: x_msg_count => l_msg_count,
9878: x_msg_count => l_msg_count,
9879: x_msg_data => l_msg_data,
9880: x_return_status => l_return_status,
9881: x_resource_tab => l_resource_tab);
9882: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9883: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
9884: x_return_status := FND_API.G_RET_STS_ERROR;
9885: GOTO end_get_resource;
9886: END IF;
9880: x_return_status => l_return_status,
9881: x_resource_tab => l_resource_tab);
9882: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9883: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
9884: x_return_status := FND_API.G_RET_STS_ERROR;
9885: GOTO end_get_resource;
9886: END IF;
9887:
9888: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
9886: END IF;
9887:
9888: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
9889: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
9890: p_init_msg_list => FND_API.G_TRUE,
9891: p_commit => FND_API.G_FALSE,
9892: p_validation_level => l_validation_level,
9893: p_level => 'DUNNING_PARTY_ACCOUNT',
9894: p_level_id => l_party_cust_id,
9887:
9888: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
9889: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
9890: p_init_msg_list => FND_API.G_TRUE,
9891: p_commit => FND_API.G_FALSE,
9892: p_validation_level => l_validation_level,
9893: p_level => 'DUNNING_PARTY_ACCOUNT',
9894: p_level_id => l_party_cust_id,
9895: x_msg_count => l_msg_count,
9895: x_msg_count => l_msg_count,
9896: x_msg_data => l_msg_data,
9897: x_return_status => l_return_status,
9898: x_resource_tab => l_resource_tab);
9899: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9900: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
9901: x_return_status := FND_API.G_RET_STS_ERROR;
9902: GOTO end_get_resource;
9903: END IF;
9897: x_return_status => l_return_status,
9898: x_resource_tab => l_resource_tab);
9899: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9900: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
9901: x_return_status := FND_API.G_RET_STS_ERROR;
9902: GOTO end_get_resource;
9903: END IF;
9904: end if;
9905: end if;
9936:
9937: Send_XML(
9938: p_api_version => p_api_version
9939: , p_init_msg_list => p_init_msg_list
9940: , p_commit => FND_API.G_FALSE --p_commit --bug 8567312
9941: , p_resend => 'N'
9942: , p_request_id => null
9943: , p_fulfillment_bind_tbl => l_bind_tbl
9944: , p_template_id => l_xdo_template_id
9961: end if;
9962:
9963: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - SEND status='|| x_return_status);
9964:
9965: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9966: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Not Sending Letters', l_write);
9967: x_return_status := FND_API.G_RET_STS_ERROR;
9968: GOTO end_api;
9969: END IF;
9963: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - SEND status='|| x_return_status);
9964:
9965: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9966: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Not Sending Letters', l_write);
9967: x_return_status := FND_API.G_RET_STS_ERROR;
9968: GOTO end_api;
9969: END IF;
9970:
9971: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - request_id='||l_request_id, l_write);
9994: , x_msg_data => x_msg_data);
9995:
9996: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CloseDunning status='|| x_return_status, l_write);
9997:
9998: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9999: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Close Dunning', l_write);
10000: x_return_status := FND_API.G_RET_STS_ERROR;
10001: GOTO end_api;
10002: END IF;
9996: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CloseDunning status='|| x_return_status, l_write);
9997:
9998: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9999: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Close Dunning', l_write);
10000: x_return_status := FND_API.G_RET_STS_ERROR;
10001: GOTO end_api;
10002: END IF;
10003: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - EndCloseDunn', l_write);
10004:
10026: , x_msg_data => x_msg_data);
10027:
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;
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;
10037:
10038: ELSE
10082: , x_msg_data => x_msg_data);
10083:
10084: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateDunning status='|| x_return_status, l_write);
10085:
10086: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10087: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Dunning', l_write);
10088: x_return_status := FND_API.G_RET_STS_ERROR;
10089: GOTO end_api;
10090: else
10084: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateDunning status='|| x_return_status, l_write);
10085:
10086: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10087: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Dunning', l_write);
10088: x_return_status := FND_API.G_RET_STS_ERROR;
10089: GOTO end_api;
10090: else
10091:
10092: INSERT_DUNNING_TRANSACTION(
10123: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateDunn Cnt='|| l_dunn_cnt, l_write);
10124: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - ==========End Summary===========');
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 );
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);
10134: --Resend need return the exact status
10135: --x_return_status := 'SKIP'; --FND_API.G_EXC_ERROR;
10136: end if;
10137: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - end_api', l_write);
10138:
10139: ELSE -- l_noskip = 0
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;
10148:
10149: end if; -- end of if (l_noskip>0)
10150: --
10151: -- End of API body
10155: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - request_id='||x_request_id, l_write);
10156: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - status='||x_return_status, l_write);
10157:
10158: -- Standard check for p_commit
10159: IF FND_API.to_Boolean( p_commit )
10160: THEN
10161: COMMIT WORK;
10162: END IF;
10163:
10167: ( p_count => x_msg_count,
10168: p_data => x_msg_data );
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 );
10168: p_data => x_msg_data );
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;
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);
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 );
10176: ROLLBACK TO Resend_Level_DUNNING_PVT;
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;
10184: ROLLBACK TO Resend_Level_DUNNING_PVT;
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;
10378: --Value of profile ORG_ID shouldn't be used for getting ORG_ID after MOAC implementation
10379: l_org_id:= mo_global.get_current_org_id;
10380:
10381: -- Standard call to check for call compatibility.
10382: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
10383: p_api_version,
10384: l_api_name,
10385: G_PKG_NAME)
10386: THEN
10383: p_api_version,
10384: l_api_name,
10385: G_PKG_NAME)
10386: THEN
10387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10388: END IF;
10389:
10390: -- Initialize message list if p_init_msg_list is set to TRUE.
10391: IF FND_API.to_Boolean( p_init_msg_list )
10387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10388: END IF;
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:
10399: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
10400: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - running_level='||p_running_level);
10401:
10402: -- Initialize API return status to SUCCESS
10403: x_return_status := FND_API.G_RET_STS_SUCCESS;
10404:
10405: --
10406: -- Api body
10407: --
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;
10478: Close C_TEMPLATE_STATUS;
10479: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template status= '||l_template_status);
10480:
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;
10498: Close C_TEMPLATE_STATUS;
10499: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - addt template status= '||l_template_status);
10500: ELSE
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;
10596: END IF;
10597:
10598: --WriteLog('iexvdunb:ResendLevelDunn:CLOSE C_GET_SCORE', l_write);
10623: , x_aging_bucket_line_id => l_bucket_line_id);
10624:
10625: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - AgingDel status='||x_return_status);
10626:
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;
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;
10636:
10637: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - lineid='||l_bucket_line_id);
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;
10660:
10661: Close C_Get_TEMPLATE;
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;
10687:
10688: /*===========================================
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;
10730:
10731: /*
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;
10743:
10744: WriteLog('iexvdunb:ResendLevelDunn: end check customer profile');
10778: l_bind_tbl(5) := l_bind_rec;
10779:
10780: /*
10781: --Start adding for bug 9156833 gnramasa 27th Nov 09
10782: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
10783:
10784: if (p_running_level = 'BILL_TO') then
10785: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
10786: p_init_msg_list => FND_API.G_TRUE,
10782: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
10783:
10784: if (p_running_level = 'BILL_TO') then
10785: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
10786: p_init_msg_list => FND_API.G_TRUE,
10787: p_commit => FND_API.G_FALSE,
10788: p_validation_level => l_validation_level,
10789: p_level => 'DUNNING_BILLTO',
10790: p_level_id => l_customer_site_use_id,
10783:
10784: if (p_running_level = 'BILL_TO') then
10785: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
10786: p_init_msg_list => FND_API.G_TRUE,
10787: p_commit => FND_API.G_FALSE,
10788: p_validation_level => l_validation_level,
10789: p_level => 'DUNNING_BILLTO',
10790: p_level_id => l_customer_site_use_id,
10791: x_msg_count => l_msg_count,
10791: x_msg_count => l_msg_count,
10792: x_msg_data => l_msg_data,
10793: x_return_status => l_return_status,
10794: x_resource_tab => l_resource_tab);
10795: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10796: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
10797: x_return_status := FND_API.G_RET_STS_ERROR;
10798: GOTO end_get_resource;
10799: END IF;
10793: x_return_status => l_return_status,
10794: x_resource_tab => l_resource_tab);
10795: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10796: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
10797: x_return_status := FND_API.G_RET_STS_ERROR;
10798: GOTO end_get_resource;
10799: END IF;
10800: end if;
10801:
10800: end if;
10801:
10802: if l_resource_tab.count<1 and (p_running_level = 'ACCOUNT') then
10803: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
10804: p_init_msg_list => FND_API.G_TRUE,
10805: p_commit => FND_API.G_FALSE,
10806: p_validation_level => l_validation_level,
10807: p_level => 'DUNNING_ACCOUNT',
10808: p_level_id => l_account_id,
10801:
10802: if l_resource_tab.count<1 and (p_running_level = 'ACCOUNT') then
10803: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
10804: p_init_msg_list => FND_API.G_TRUE,
10805: p_commit => FND_API.G_FALSE,
10806: p_validation_level => l_validation_level,
10807: p_level => 'DUNNING_ACCOUNT',
10808: p_level_id => l_account_id,
10809: x_msg_count => l_msg_count,
10809: x_msg_count => l_msg_count,
10810: x_msg_data => l_msg_data,
10811: x_return_status => l_return_status,
10812: x_resource_tab => l_resource_tab);
10813: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10814: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
10815: x_return_status := FND_API.G_RET_STS_ERROR;
10816: GOTO end_get_resource;
10817: END IF;
10811: x_return_status => l_return_status,
10812: x_resource_tab => l_resource_tab);
10813: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10814: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
10815: x_return_status := FND_API.G_RET_STS_ERROR;
10816: GOTO end_get_resource;
10817: END IF;
10818: end if;
10819:
10818: end if;
10819:
10820: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
10821: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
10822: p_init_msg_list => FND_API.G_TRUE,
10823: p_commit => FND_API.G_FALSE,
10824: p_validation_level => l_validation_level,
10825: p_level => 'DUNNING_PARTY',
10826: p_level_id => l_party_cust_id,
10819:
10820: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
10821: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
10822: p_init_msg_list => FND_API.G_TRUE,
10823: p_commit => FND_API.G_FALSE,
10824: p_validation_level => l_validation_level,
10825: p_level => 'DUNNING_PARTY',
10826: p_level_id => l_party_cust_id,
10827: x_msg_count => l_msg_count,
10827: x_msg_count => l_msg_count,
10828: x_msg_data => l_msg_data,
10829: x_return_status => l_return_status,
10830: x_resource_tab => l_resource_tab);
10831: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10832: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
10833: x_return_status := FND_API.G_RET_STS_ERROR;
10834: GOTO end_get_resource;
10835: END IF;
10829: x_return_status => l_return_status,
10830: x_resource_tab => l_resource_tab);
10831: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10832: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
10833: x_return_status := FND_API.G_RET_STS_ERROR;
10834: GOTO end_get_resource;
10835: END IF;
10836:
10837: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
10835: END IF;
10836:
10837: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
10838: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
10839: p_init_msg_list => FND_API.G_TRUE,
10840: p_commit => FND_API.G_FALSE,
10841: p_validation_level => l_validation_level,
10842: p_level => 'DUNNING_PARTY_ACCOUNT',
10843: p_level_id => l_party_cust_id,
10836:
10837: if l_resource_tab.count<1 and (p_running_level = 'CUSTOMER') then
10838: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
10839: p_init_msg_list => FND_API.G_TRUE,
10840: p_commit => FND_API.G_FALSE,
10841: p_validation_level => l_validation_level,
10842: p_level => 'DUNNING_PARTY_ACCOUNT',
10843: p_level_id => l_party_cust_id,
10844: x_msg_count => l_msg_count,
10844: x_msg_count => l_msg_count,
10845: x_msg_data => l_msg_data,
10846: x_return_status => l_return_status,
10847: x_resource_tab => l_resource_tab);
10848: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10849: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
10850: x_return_status := FND_API.G_RET_STS_ERROR;
10851: GOTO end_get_resource;
10852: END IF;
10846: x_return_status => l_return_status,
10847: x_resource_tab => l_resource_tab);
10848: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10849: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
10850: x_return_status := FND_API.G_RET_STS_ERROR;
10851: GOTO end_get_resource;
10852: END IF;
10853: end if;
10854: end if;
10895:
10896: Send_XML(
10897: p_api_version => p_api_version
10898: , p_init_msg_list => p_init_msg_list
10899: , p_commit => FND_API.G_FALSE --p_commit --bug 8567312
10900: , p_resend => 'Y'
10901: , p_request_id => l_xml_request_id
10902: , p_fulfillment_bind_tbl => l_bind_tbl
10903: , p_template_id => l_xdo_template_id
10921: end if;
10922:
10923: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - SEND status='|| x_return_status);
10924:
10925: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10926: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Not Sending Letters', l_write);
10927: x_return_status := FND_API.G_RET_STS_ERROR;
10928: GOTO end_api;
10929: END IF;
10923: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - SEND status='|| x_return_status);
10924:
10925: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10926: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Not Sending Letters', l_write);
10927: x_return_status := FND_API.G_RET_STS_ERROR;
10928: GOTO end_api;
10929: END IF;
10930:
10931: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - request_id='||l_request_id, l_write);
10955: , x_msg_data => x_msg_data);
10956:
10957: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Close_Staged_Dunning status='|| x_return_status, l_write);
10958:
10959: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10960: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Close Dunning', l_write);
10961: x_return_status := FND_API.G_RET_STS_ERROR;
10962: GOTO end_api;
10963: END IF;
10957: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Close_Staged_Dunning status='|| x_return_status, l_write);
10958:
10959: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10960: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Close Dunning', l_write);
10961: x_return_status := FND_API.G_RET_STS_ERROR;
10962: GOTO end_api;
10963: END IF;
10964: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - End Close_Staged_Dunning', l_write);
10965:
10987: , x_msg_data => x_msg_data);
10988:
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;
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;
10998:
10999: ELSE
11059: , x_msg_data => x_msg_data);
11060:
11061: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateDunning status='|| x_return_status, l_write);
11062:
11063: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11064: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Dunning', l_write);
11065: x_return_status := FND_API.G_RET_STS_ERROR;
11066: GOTO end_api;
11067: END IF;
11061: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateDunning status='|| x_return_status, l_write);
11062:
11063: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11064: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Dunning', l_write);
11065: x_return_status := FND_API.G_RET_STS_ERROR;
11066: GOTO end_api;
11067: END IF;
11068:
11069: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - DunningId='||l_dunning_id, l_write);
11083: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateDunn Cnt='|| l_dunn_cnt, l_write);
11084: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - ==========End Summary===========');
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 );
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);
11094: --Resend need return the exact status
11095: --x_return_status := 'SKIP'; --FND_API.G_EXC_ERROR;
11096: end if;
11097: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - end_api', l_write);
11098:
11099: ELSE -- l_noskip = 0
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;
11108:
11109: end if; -- end of if (l_noskip>0)
11110: --
11111: -- End of API body
11115: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - request_id='||x_request_id, l_write);
11116: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - status='||x_return_status, l_write);
11117:
11118: -- Standard check for p_commit
11119: IF FND_API.to_Boolean( p_commit )
11120: THEN
11121: COMMIT WORK;
11122: END IF;
11123:
11127: ( p_count => x_msg_count,
11128: p_data => x_msg_data );
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 );
11128: p_data => x_msg_data );
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;
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);
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 );
11136: ROLLBACK TO Resend_Level_Stg_Dunn_PVT;
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;
11144: ROLLBACK TO Resend_Level_Stg_Dunn_PVT;
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;
11308: --l_org_id := fnd_profile.value('ORG_ID');
11309: l_org_id:= mo_global.get_current_org_id;
11310:
11311: -- Standard call to check for call compatibility.
11312: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
11313: p_api_version,
11314: l_api_name,
11315: G_PKG_NAME)
11316: THEN
11313: p_api_version,
11314: l_api_name,
11315: G_PKG_NAME)
11316: THEN
11317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11318: END IF;
11319:
11320: -- Initialize message list if p_init_msg_list is set to TRUE.
11321: IF FND_API.to_Boolean( p_init_msg_list )
11317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11318: END IF;
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:
11325:
11326: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
11327:
11328: -- Initialize API return status to SUCCESS
11329: x_return_status := FND_API.G_RET_STS_SUCCESS;
11330:
11331: --dont write into FND_FILE
11332: --l_write := 0;
11333:
11417: , x_aging_bucket_line_id => l_bucket_line_id);
11418:
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;
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;
11482: Close C_TEMPLATE_STATUS;
11483: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template status= '||l_template_status);
11484:
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;
11504:
11505: open c_dunning_plan_dtl (p_dunning_plan_id);
11509: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_dun_disputed_items :'|| l_dun_disputed_items);
11510:
11511: if l_use_grace_days = 'Y' then
11512: iex_utilities.get_grace_days(p_api_version => p_api_version,
11513: p_init_msg_list => FND_API.G_TRUE,
11514: p_commit => FND_API.G_FALSE,
11515: p_validation_level => l_validation_level,
11516: p_level => l_running_level,
11517: p_party_id => l_party_cust_id,
11510:
11511: if l_use_grace_days = 'Y' then
11512: iex_utilities.get_grace_days(p_api_version => p_api_version,
11513: p_init_msg_list => FND_API.G_TRUE,
11514: p_commit => FND_API.G_FALSE,
11515: p_validation_level => l_validation_level,
11516: p_level => l_running_level,
11517: p_party_id => l_party_cust_id,
11518: p_account_id => l_account_id,
11520: x_msg_count => l_msg_count,
11521: x_msg_data => l_msg_data,
11522: x_return_status => l_return_status,
11523: x_grace_days => l_grace_days);
11524: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11525: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get grace days');
11526: x_return_status := FND_API.G_RET_STS_ERROR;
11527: END IF;
11528: end if;
11522: x_return_status => l_return_status,
11523: x_grace_days => l_grace_days);
11524: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11525: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get grace days');
11526: x_return_status := FND_API.G_RET_STS_ERROR;
11527: END IF;
11528: end if;
11529: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_grace_days :'|| l_grace_days);
11530:
11619: l_bind_rec.key_value := p_dunning_id;
11620: l_bind_tbl(7) := l_bind_rec;
11621:
11622: --Start adding for bug 9156833 gnramasa 27th Nov 09
11623: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
11624:
11625: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
11626: p_init_msg_list => FND_API.G_TRUE,
11627: p_commit => FND_API.G_FALSE,
11622: --Start adding for bug 9156833 gnramasa 27th Nov 09
11623: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
11624:
11625: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
11626: p_init_msg_list => FND_API.G_TRUE,
11627: p_commit => FND_API.G_FALSE,
11628: p_validation_level => l_validation_level,
11629: p_level => 'DUNNING_BILLTO',
11630: p_level_id => l_customer_site_use_id,
11623: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
11624:
11625: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
11626: p_init_msg_list => FND_API.G_TRUE,
11627: p_commit => FND_API.G_FALSE,
11628: p_validation_level => l_validation_level,
11629: p_level => 'DUNNING_BILLTO',
11630: p_level_id => l_customer_site_use_id,
11631: x_msg_count => l_msg_count,
11631: x_msg_count => l_msg_count,
11632: x_msg_data => l_msg_data,
11633: x_return_status => l_return_status,
11634: x_resource_tab => l_resource_tab);
11635: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11636: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
11637: x_return_status := FND_API.G_RET_STS_ERROR;
11638: END IF;
11639:
11633: x_return_status => l_return_status,
11634: x_resource_tab => l_resource_tab);
11635: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11636: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
11637: x_return_status := FND_API.G_RET_STS_ERROR;
11638: END IF;
11639:
11640: if l_resource_tab.count>0 then
11641: l_resource_id := l_resource_tab(1).resource_id;
11697: end if;
11698:
11699: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - send status='|| x_return_status);
11700:
11701: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11702: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Sending process failed');
11703: GOTO end_loop;
11704: END IF;
11705:
11726: , x_msg_data => x_msg_data);
11727:
11728: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CloseDunning status='|| x_return_status);
11729:
11730: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11731: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Close Dunning');
11732: GOTO end_loop;
11733: END IF;
11734: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - EndCloseDunn');
11757:
11758: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - GetCallbackDate status='|| x_return_status);
11759: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CallbackDate='||l_callback_date);
11760:
11761: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11762: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Not Get CallbackDate');
11763: GOTO end_loop;
11764: END IF;
11765:
11831: , x_msg_data => x_msg_data);
11832:
11833: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateDunning status='|| x_return_status);
11834:
11835: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11836: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Dunning');
11837: GOTO end_loop;
11838: else
11839:
11891: -- End of API body
11892: --
11893:
11894: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status='||x_return_status);
11895: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11896: RAISE FND_API.G_EXC_ERROR;
11897: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
11898: raise FND_API.G_EXC_UNEXPECTED_ERROR;
11899: END IF;
11892: --
11893:
11894: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status='||x_return_status);
11895: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11896: RAISE FND_API.G_EXC_ERROR;
11897: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
11898: raise FND_API.G_EXC_UNEXPECTED_ERROR;
11899: END IF;
11900:
11893:
11894: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status='||x_return_status);
11895: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11896: RAISE FND_API.G_EXC_ERROR;
11897: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
11898: raise FND_API.G_EXC_UNEXPECTED_ERROR;
11899: END IF;
11900:
11901: -- Standard check for p_commit
11894: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status='||x_return_status);
11895: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11896: RAISE FND_API.G_EXC_ERROR;
11897: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
11898: raise FND_API.G_EXC_UNEXPECTED_ERROR;
11899: END IF;
11900:
11901: -- Standard check for p_commit
11902: IF FND_API.to_Boolean( p_commit )
11898: raise FND_API.G_EXC_UNEXPECTED_ERROR;
11899: END IF;
11900:
11901: -- Standard check for p_commit
11902: IF FND_API.to_Boolean( p_commit )
11903: THEN
11904: COMMIT WORK;
11905: END IF;
11906:
11911: ( p_count => x_msg_count,
11912: p_data => x_msg_data );
11913:
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,
11912: p_data => x_msg_data );
11913:
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);
11923: ROLLBACK TO Resend_DUNNING_PVT;
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,
11922: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
11923: ROLLBACK TO Resend_DUNNING_PVT;
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 );
11932: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
11933: ROLLBACK TO Resend_DUNNING_PVT;
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 );
12119: --l_org_id := fnd_profile.value('ORG_ID');
12120: l_org_id:= mo_global.get_current_org_id;
12121:
12122: -- Standard call to check for call compatibility.
12123: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
12124: p_api_version,
12125: l_api_name,
12126: G_PKG_NAME)
12127: THEN
12124: p_api_version,
12125: l_api_name,
12126: G_PKG_NAME)
12127: THEN
12128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12129: END IF;
12130:
12131: -- Initialize message list if p_init_msg_list is set to TRUE.
12132: IF FND_API.to_Boolean( p_init_msg_list )
12128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12129: END IF;
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:
12136:
12137: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
12138:
12139: -- Initialize API return status to SUCCESS
12140: x_return_status := FND_API.G_RET_STS_SUCCESS;
12141:
12142: --dont write into FND_FILE
12143: --l_write := 0;
12144:
12236: , x_aging_bucket_line_id => l_bucket_line_id);
12237:
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;
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;
12300:
12301: /*===========================================
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;
12321: Close C_TEMPLATE_STATUS;
12322: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template status= '||l_template_status);
12323:
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;
12341: Close C_TEMPLATE_STATUS;
12342: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template status= '||l_template_status);
12343: ELSE
12426: l_bind_rec.key_value := p_dunning_id;
12427: l_bind_tbl(6) := l_bind_rec;
12428:
12429: --Start adding for bug 9156833 gnramasa 27th Nov 09
12430: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
12431:
12432: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
12433: p_init_msg_list => FND_API.G_TRUE,
12434: p_commit => FND_API.G_FALSE,
12429: --Start adding for bug 9156833 gnramasa 27th Nov 09
12430: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
12431:
12432: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
12433: p_init_msg_list => FND_API.G_TRUE,
12434: p_commit => FND_API.G_FALSE,
12435: p_validation_level => l_validation_level,
12436: p_level => 'DUNNING_BILLTO',
12437: p_level_id => l_customer_site_use_id,
12430: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
12431:
12432: iex_utilities.get_dunning_resource(p_api_version => p_api_version,
12433: p_init_msg_list => FND_API.G_TRUE,
12434: p_commit => FND_API.G_FALSE,
12435: p_validation_level => l_validation_level,
12436: p_level => 'DUNNING_BILLTO',
12437: p_level_id => l_customer_site_use_id,
12438: x_msg_count => l_msg_count,
12438: x_msg_count => l_msg_count,
12439: x_msg_data => l_msg_data,
12440: x_return_status => l_return_status,
12441: x_resource_tab => l_resource_tab);
12442: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12443: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
12444: x_return_status := FND_API.G_RET_STS_ERROR;
12445: END IF;
12446:
12440: x_return_status => l_return_status,
12441: x_resource_tab => l_resource_tab);
12442: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12443: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
12444: x_return_status := FND_API.G_RET_STS_ERROR;
12445: END IF;
12446:
12447: if l_resource_tab.count>0 then
12448: l_resource_id := l_resource_tab(1).resource_id;
12507: end if;
12508:
12509: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - send status='|| x_return_status);
12510:
12511: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12512: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Sending process failed');
12513: GOTO end_loop;
12514: END IF;
12515:
12537: , x_msg_data => x_msg_data);
12538:
12539: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CloseDunning status='|| x_return_status);
12540:
12541: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12542: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Close Dunning');
12543: GOTO end_loop;
12544: END IF;
12545: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - EndCloseDunn');
12568:
12569: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - GetCallbackDate status='|| x_return_status);
12570: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CallbackDate='||l_callback_date);
12571:
12572: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12573: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Not Get CallbackDate');
12574: GOTO end_loop;
12575: END IF;
12576:
12658: , x_msg_data => x_msg_data);
12659:
12660: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateDunning status='|| x_return_status);
12661:
12662: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12663: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Dunning');
12664: GOTO end_loop;
12665: END IF;
12666:
12699: -- End of API body
12700: --
12701:
12702: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status='||x_return_status);
12703: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12704: RAISE FND_API.G_EXC_ERROR;
12705: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
12706: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12707: END IF;
12700: --
12701:
12702: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status='||x_return_status);
12703: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12704: RAISE FND_API.G_EXC_ERROR;
12705: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
12706: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12707: END IF;
12708:
12701:
12702: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status='||x_return_status);
12703: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12704: RAISE FND_API.G_EXC_ERROR;
12705: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
12706: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12707: END IF;
12708:
12709: -- Standard check for p_commit
12702: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status='||x_return_status);
12703: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12704: RAISE FND_API.G_EXC_ERROR;
12705: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
12706: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12707: END IF;
12708:
12709: -- Standard check for p_commit
12710: IF FND_API.to_Boolean( p_commit )
12706: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12707: END IF;
12708:
12709: -- Standard check for p_commit
12710: IF FND_API.to_Boolean( p_commit )
12711: THEN
12712: COMMIT WORK;
12713: END IF;
12714:
12719: ( p_count => x_msg_count,
12720: p_data => x_msg_data );
12721:
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,
12720: p_data => x_msg_data );
12721:
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);
12731: ROLLBACK TO Resend_Staged_Dunning_PVT;
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,
12730: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
12731: ROLLBACK TO Resend_Staged_Dunning_PVT;
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 );
12740: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
12741: ROLLBACK TO Resend_Staged_Dunning_PVT;
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 );
12851: BEGIN
12852: -- Standard Start of API savepoint
12853: SAVEPOINT AGING_DEL_PVT;
12854:
12855: l_commit := FND_API.G_TRUE;
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
12854:
12855: l_commit := FND_API.G_TRUE;
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:
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;
12865:
12866: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - p_object_code='||p_object_code);
12867: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - p_object_id='||p_object_id);
12868:
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;
12881: --
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;
12894: --
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;
12907: --
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;
12924: --
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
12940: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - bucketlineid='||l_bucket_line_id);
12945: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - end_get_line');
12946: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - status=' || l_return_status);
12947:
12948: x_return_status := l_return_status;
12949: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12950: l_bucket_line_id := 0;
12951: END IF;
12952: x_aging_bucket_line_id := l_bucket_line_id;
12953:
12958: ( p_count => x_msg_count,
12959: p_data => x_msg_data );
12960:
12961: EXCEPTION
12962: WHEN FND_API.G_EXC_ERROR THEN
12963: x_return_status := FND_API.G_RET_STS_ERROR;
12964: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
12965: errmsg := SQLERRM;
12966: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
12959: p_data => x_msg_data );
12960:
12961: EXCEPTION
12962: WHEN FND_API.G_EXC_ERROR THEN
12963: x_return_status := FND_API.G_RET_STS_ERROR;
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
12973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12974: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
12975: errmsg := SQLERRM;
12976: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||errmsg);
12969: ( p_count => x_msg_count,
12970: p_data => x_msg_data);
12971:
12972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
12979: ( p_count => x_msg_count,
12980: p_data => x_msg_data);
12981:
12982: WHEN OTHERS THEN
12983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
13080: BEGIN
13081:
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:
13085: THEN
13086: FND_MSG_PUB.initialize;
13087: END IF;
13088:
13089: l_return_status := FND_API.G_RET_STS_SUCCESS;
13090:
13091: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - start');
13092: if (p_template_id is null) then
13093: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No TEMPLATE_ID');
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
13101: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No PARTY_ID');
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
13109: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No METHOD');
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:
13117: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - TEMPLATE_ID='||p_template_id);
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;
13144: end if;
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;
13155: end if;
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;
13169:
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
13187:
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
13206: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Content_Id='||l_content_id);
13274: x_msg_data => l_msg_data);
13275:
13276: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - after send_ffm:'||l_return_status);
13277:
13278: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13279: l_return_status := FND_API.G_RET_STS_ERROR;
13280: x_msg_count := l_msg_count;
13281: x_msg_data := l_msg_data;
13282: --handle error_msg in main procedure (send_dunning)
13275:
13276: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - after send_ffm:'||l_return_status);
13277:
13278: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13279: l_return_status := FND_API.G_RET_STS_ERROR;
13280: x_msg_count := l_msg_count;
13281: x_msg_data := l_msg_data;
13282: --handle error_msg in main procedure (send_dunning)
13283: END IF;
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
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: );
13301: ( p_count => x_msg_count,
13302: p_data => x_msg_data
13303: );
13304:
13305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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;
13305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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: );
13315: WHEN OTHERS THEN
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: );
13367: vstr4 := 'SELECT to_date('' ' ;
13368: vstr5 := ' FROM DUAL ';
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:
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;
13378:
13379: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
13380:
13381: v_cursor := DBMS_SQL.OPEN_CURSOR;
13448: p_data => x_msg_data );
13449:
13450: EXCEPTION
13451: WHEN OTHERS THEN
13452: x_return_status := FND_API.G_RET_STS_ERROR;
13453: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - exception');
13454: errmsg := SQLERRM;
13455: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg='||errmsg);
13456:
13592: --Bug#4679639 schekuri 20-OCT-2005
13593: --Value of profile ORG_ID shouldn't be used for getting ORG_ID after MOAC implementation
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:
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');
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
13612: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No PARTY_ID or EMAIL');
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
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;
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
13619: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No METHOD');
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:
13626: --clchang updated 07/18/2003 subject cannot be hardcoded
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:
13637: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - TEMPLATE_ID='||p_template_id);
13644: * get the primary contact email first;
13645: * if not found, get org email address;
13646: =======================================*/
13647:
13648: if(p_email IS NULL OR p_email = FND_API.G_MISS_CHAR) THEN
13649:
13650: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Call GetContactInfo');
13651:
13652: GetContactInfo(
13665: );
13666:
13667: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - status='||l_return_status);
13668:
13669: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13670: l_return_status := FND_API.G_RET_STS_ERROR;
13671: x_msg_count := l_msg_count;
13672: x_msg_data := l_msg_data;
13673: --handle error_msg in main procedure
13666:
13667: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - status='||l_return_status);
13668:
13669: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13670: l_return_status := FND_API.G_RET_STS_ERROR;
13671: x_msg_count := l_msg_count;
13672: x_msg_data := l_msg_data;
13673: --handle error_msg in main procedure
13674: GOTO end_call_ffm;
13681: -- user could pass fax/email by p_email parameter,
13682: -- then dont call GetContactInfo
13683: --
13684: IF (p_method = 'EMAIL') THEN
13685: if(p_email IS NULL OR p_email = FND_API.G_MISS_CHAR) THEN
13686: l_email := l_contact;
13687: else
13688: l_email := p_email;
13689: end if;
13692: l_fax := '99999999';
13693: --
13694: ELSIF (p_method = 'PRINTER' or p_method = 'PRINT') THEN
13695: -- p_email could be fax or email
13696: if(p_email IS NULL OR p_email = FND_API.G_MISS_CHAR) THEN
13697: l_printer := l_contact;
13698: else
13699: l_printer := p_email;
13700: end if;
13704: --
13705: ELSIF (p_method = 'FAX') THEN
13706: -- clchang 07/09/03 updated
13707: -- p_email could be fax or email
13708: if(p_email IS NULL OR p_email = FND_API.G_MISS_CHAR) THEN
13709: l_fax := l_contact;
13710: else
13711: l_fax := p_email;
13712: end if;
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;
13734: else
13854:
13855: --
13856: -- If any errors(like template no contents), dont call send_ffm;
13857: --
13858: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
13859:
13860: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Call SEND_FFM');
13861: IEX_SEND_FFM_PVT.Send_FFM(
13862: p_api_version_number => l_api_version,
13877: x_msg_data => l_msg_data);
13878:
13879: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - After SEND_FFM:'||l_return_status);
13880:
13881: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13882: l_return_status := FND_API.G_RET_STS_ERROR;
13883: x_msg_count := l_msg_count;
13884: x_msg_data := l_msg_data;
13885: --handle error_msg in main procedure (send_dunning)
13878:
13879: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - After SEND_FFM:'||l_return_status);
13880:
13881: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13882: l_return_status := FND_API.G_RET_STS_ERROR;
13883: x_msg_count := l_msg_count;
13884: x_msg_data := l_msg_data;
13885: --handle error_msg in main procedure (send_dunning)
13886: GOTO end_call_ffm;
13930:
13931: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateDunning status='|| x_return_status);
13932: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - dunning_id='||l_dunning_id);
13933:
13934: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13935: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Dunning');
13936: l_return_status := FND_API.G_RET_STS_ERROR;
13937: x_msg_count := l_msg_count;
13938: x_msg_data := l_msg_data;
13932: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - dunning_id='||l_dunning_id);
13933:
13934: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13935: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Dunning');
13936: l_return_status := FND_API.G_RET_STS_ERROR;
13937: x_msg_count := l_msg_count;
13938: x_msg_data := l_msg_data;
13939: END IF;
13940: END IF; -- end of p_object
13950: ( p_count => x_msg_count,
13951: p_data => x_msg_data );
13952:
13953: EXCEPTION
13954: WHEN FND_API.G_EXC_ERROR THEN
13955: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
13956: errmsg := SQLERRM;
13957: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
13958: ROLLBACK TO SEND_FULFILLMENT_PVT;
13955: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc 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: );
13961: ( p_count => x_msg_count,
13962: p_data => x_msg_data
13963: );
13964:
13965: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13966: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
13967: errmsg := SQLERRM;
13968: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
13969: ROLLBACK TO SEND_FULFILLMENT_PVT;
13966: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
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: );
13977: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception');
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: );
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
14217: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No OBJECT_ID',0);
14218: FND_MESSAGE.Set_Name('IEX', 'IEX_SEND_FAILED_NO_OBJECT');
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:
14224: if (p_template_id is null) then
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:
14232: /*===========================================
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;
14252: END IF;
14253: Close C_TEMPLATE_STATUS;
14254: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template status= '||l_template_status);
14252: END IF;
14253: Close C_TEMPLATE_STATUS;
14254: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - template status= '||l_template_status);
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;
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:
14264: if (p_method is null) then
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:
14272: --clchang updated 07/18/2003 subject cannot be hardcoded
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:
14305: if (p_user_id is null) then
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;
14329: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - bind values count = ' || l_fulfillment_bind_tbl.count);
14380:
14381: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - InsertRow');
14382: WriteLog('before create dunning org_id ' || p_org_id);
14383: CREATE_DUNNING(p_api_version => 1.0
14384: ,p_init_msg_list => FND_API.G_FALSE
14385: ,p_commit => FND_API.G_TRUE
14386: ,p_dunning_rec => l_dunning_rec
14387: ,x_dunning_id => l_dunning_id
14388: ,x_return_status => l_return_status1
14381: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - InsertRow');
14382: WriteLog('before create dunning org_id ' || p_org_id);
14383: CREATE_DUNNING(p_api_version => 1.0
14384: ,p_init_msg_list => FND_API.G_FALSE
14385: ,p_commit => FND_API.G_TRUE
14386: ,p_dunning_rec => l_dunning_rec
14387: ,x_dunning_id => l_dunning_id
14388: ,x_return_status => l_return_status1
14389: ,x_msg_count => l_msg_count1
14391:
14392: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateDunning status='|| l_return_status1);
14393: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - dunning_id='||l_dunning_id);
14394:
14395: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14396: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Dunning');
14397: END IF;
14398:
14399: if p_object_code = 'IEX_INVOICES' then
14463: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Call SEND_COPY');
14464: WriteLog(' before send_copy org_id ' || p_org_id);
14465: BEGIN
14466: IEX_SEND_XML_PVT.Send_COPY(p_api_version_number => l_api_version
14467: ,p_init_msg_list => FND_API.G_FALSE
14468: ,p_commit => FND_API.G_TRUE
14469: ,p_resend => l_resend
14470: ,p_request_id => p_request_id
14471: ,p_user_id => l_user_id
14464: WriteLog(' before send_copy org_id ' || p_org_id);
14465: BEGIN
14466: IEX_SEND_XML_PVT.Send_COPY(p_api_version_number => l_api_version
14467: ,p_init_msg_list => FND_API.G_FALSE
14468: ,p_commit => FND_API.G_TRUE
14469: ,p_resend => l_resend
14470: ,p_request_id => p_request_id
14471: ,p_user_id => l_user_id
14472: ,p_party_id => p_party_id
14492: ,x_msg_data => l_msg_data);
14493:
14494: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - After SEND_COPY:'||l_return_status);
14495:
14496: IF l_return_status <> FND_API.G_RET_STS_SUCCESS or l_request_id is null THEN
14497: l_return_status := FND_API.G_RET_STS_ERROR;
14498: x_msg_count := l_msg_count;
14499: x_msg_data := l_msg_data;
14500: ELSE --xml creation is success, so update the dunning_id rec with xml_request_id
14493:
14494: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - After SEND_COPY:'||l_return_status);
14495:
14496: IF l_return_status <> FND_API.G_RET_STS_SUCCESS or l_request_id is null THEN
14497: l_return_status := FND_API.G_RET_STS_ERROR;
14498: x_msg_count := l_msg_count;
14499: x_msg_data := l_msg_data;
14500: ELSE --xml creation is success, so update the dunning_id rec with xml_request_id
14501: --For staged dunning, dunning record will be created with request_id from resend procedure.
14516: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Update dunning Row with xml request id');
14517:
14518: IEX_DUNNING_PVT.Update_DUNNING(
14519: p_api_version => 1.0
14520: , p_init_msg_list => FND_API.G_FALSE
14521: , p_commit => FND_API.G_TRUE
14522: , p_dunning_rec => l_dunning_upd_rec
14523: , x_return_status => l_return_status1
14524: , x_msg_count => l_msg_count1
14517:
14518: IEX_DUNNING_PVT.Update_DUNNING(
14519: p_api_version => 1.0
14520: , p_init_msg_list => FND_API.G_FALSE
14521: , p_commit => FND_API.G_TRUE
14522: , p_dunning_rec => l_dunning_upd_rec
14523: , x_return_status => l_return_status1
14524: , x_msg_count => l_msg_count1
14525: , x_msg_data => l_msg_data1);
14533:
14534: EXCEPTION
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:
14543:
14544: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Calling GET_DEFAULT_DUN_DATA...');
14545:
14546: GET_DEFAULT_DUN_DATA(p_api_version => 1.0,
14547: p_init_msg_list => FND_API.G_TRUE,
14548: p_commit => FND_API.G_FALSE,
14549: p_level => l_level,
14550: p_source_id => p_source_id,
14551: p_send_method => p_method,
14544: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Calling GET_DEFAULT_DUN_DATA...');
14545:
14546: GET_DEFAULT_DUN_DATA(p_api_version => 1.0,
14547: p_init_msg_list => FND_API.G_TRUE,
14548: p_commit => FND_API.G_FALSE,
14549: p_level => l_level,
14550: p_source_id => p_source_id,
14551: p_send_method => p_method,
14552: p_resend => l_resend,
14560: WriteLog('---------- continue ' || l_api_name || '----------');
14561: WriteLog(G_PKG_NAME || ' ' || l_api_name || ': l_return_status: ' || l_return_status);
14562: WriteLog(G_PKG_NAME || ' ' || l_api_name || ': l_msg_count: ' || l_msg_count);
14563:
14564: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
14565: GOTO end_call_ffm;
14566: end if;
14567:
14568: --reviewing default dunning data
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:
14586: -- setting destination
14585:
14586: -- setting destination
14587: IF (p_method = 'PRINTER' or p_method = 'PRINT') THEN
14588:
14589: if(p_email IS NULL OR p_email = FND_API.G_MISS_CHAR) THEN
14590: --Bug5233002. Fix by LKKUMAR on 31-May-2006. Start.
14591: OPEN C_GET_RES_USER_ID;
14592: FETCH C_GET_RES_USER_ID into l_resource_user_id;
14593: CLOSE C_GET_RES_USER_ID;
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:
14609: else
14617: WriteLog(G_PKG_NAME || ' ' || l_api_name || ': Will use printer: ' || l_dest);
14618:
14619: ELSE -- method is not PRINTER
14620:
14621: if(p_email IS NULL OR p_email = FND_API.G_MISS_CHAR) THEN
14622:
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');
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;
14636: end if;
14637:
14638: WriteLog(G_PKG_NAME || ' ' || l_api_name || ': Setting destination from defaulting data');
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;
14685: else
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;
14706: else
14712: end if;
14713: ----------------------------------------------------
14714:
14715: l_server_id := NULL; -- Using Default Server
14716: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
14717: --Create dunning record, before calling send_copy
14718: IF ( p_object_code = 'IEX_REVERSAL' or
14719: p_object_code = 'IEX_ADJUSTMENT' or
14720: p_object_code = 'IEX_PROMISE' or
14760:
14761: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - InsertRow');
14762: WriteLog(' before create dunning org_id ' || p_org_id);
14763: CREATE_DUNNING(p_api_version => 1.0
14764: ,p_init_msg_list => FND_API.G_FALSE
14765: ,p_commit => FND_API.G_TRUE
14766: ,p_dunning_rec => l_dunning_rec
14767: ,x_dunning_id => l_dunning_id
14768: ,x_return_status => l_return_status1
14761: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - InsertRow');
14762: WriteLog(' before create dunning org_id ' || p_org_id);
14763: CREATE_DUNNING(p_api_version => 1.0
14764: ,p_init_msg_list => FND_API.G_FALSE
14765: ,p_commit => FND_API.G_TRUE
14766: ,p_dunning_rec => l_dunning_rec
14767: ,x_dunning_id => l_dunning_id
14768: ,x_return_status => l_return_status1
14769: ,x_msg_count => l_msg_count1
14771:
14772: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateDunning status='|| l_return_status1);
14773: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - dunning_id='||l_dunning_id);
14774:
14775: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14776: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Dunning');
14777: END IF;
14778:
14779: if p_object_code = 'IEX_INVOICES' then
14825: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Call SEND_COPY');
14826: WriteLog( ' before send_copy org_id ' || p_org_id);
14827: BEGIN
14828: IEX_SEND_XML_PVT.Send_COPY(p_api_version_number => l_api_version
14829: ,p_init_msg_list => FND_API.G_FALSE
14830: ,p_commit => FND_API.G_TRUE
14831: ,p_resend => l_resend
14832: ,p_request_id => p_request_id
14833: ,p_user_id => l_user_id
14826: WriteLog( ' before send_copy org_id ' || p_org_id);
14827: BEGIN
14828: IEX_SEND_XML_PVT.Send_COPY(p_api_version_number => l_api_version
14829: ,p_init_msg_list => FND_API.G_FALSE
14830: ,p_commit => FND_API.G_TRUE
14831: ,p_resend => l_resend
14832: ,p_request_id => p_request_id
14833: ,p_user_id => l_user_id
14834: ,p_party_id => p_party_id
14854: ,x_msg_data => l_msg_data);
14855:
14856: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - After SEND_COPY:'||l_return_status);
14857:
14858: IF l_return_status <> FND_API.G_RET_STS_SUCCESS or l_request_id is null THEN
14859: l_return_status := FND_API.G_RET_STS_ERROR;
14860: x_msg_count := l_msg_count;
14861: x_msg_data := l_msg_data;
14862: ELSE --xml creation is success, so update the dunning_id rec with xml_request_id
14855:
14856: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - After SEND_COPY:'||l_return_status);
14857:
14858: IF l_return_status <> FND_API.G_RET_STS_SUCCESS or l_request_id is null THEN
14859: l_return_status := FND_API.G_RET_STS_ERROR;
14860: x_msg_count := l_msg_count;
14861: x_msg_data := l_msg_data;
14862: ELSE --xml creation is success, so update the dunning_id rec with xml_request_id
14863: if l_request_id is not null then
14876: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Update dunning Row with xml request id');
14877:
14878: IEX_DUNNING_PVT.Update_DUNNING(
14879: p_api_version => 1.0
14880: , p_init_msg_list => FND_API.G_FALSE
14881: , p_commit => FND_API.G_TRUE
14882: , p_dunning_rec => l_dunning_upd_rec
14883: , x_return_status => l_return_status1
14884: , x_msg_count => l_msg_count1
14877:
14878: IEX_DUNNING_PVT.Update_DUNNING(
14879: p_api_version => 1.0
14880: , p_init_msg_list => FND_API.G_FALSE
14881: , p_commit => FND_API.G_TRUE
14882: , p_dunning_rec => l_dunning_upd_rec
14883: , x_return_status => l_return_status1
14884: , x_msg_count => l_msg_count1
14885: , x_msg_data => l_msg_data1);
14892:
14893: EXCEPTION
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:
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:
14903: end if; --if l_resend = 'Y' and p_request_id is not null then
14904:
14905: <
14905: <
14906:
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);
14945: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UpdateRow');
14946:
14947: IEX_DUNNING_PVT.Update_DUNNING(
14948: p_api_version => 1.0
14949: , p_init_msg_list => FND_API.G_FALSE
14950: , p_commit => FND_API.G_TRUE
14951: , p_dunning_rec => l_dunning_rec
14952: , x_return_status => l_return_status1
14953: , x_msg_count => l_msg_count1
14946:
14947: IEX_DUNNING_PVT.Update_DUNNING(
14948: p_api_version => 1.0
14949: , p_init_msg_list => FND_API.G_FALSE
14950: , p_commit => FND_API.G_TRUE
14951: , p_dunning_rec => l_dunning_rec
14952: , x_return_status => l_return_status1
14953: , x_msg_count => l_msg_count1
14954: , x_msg_data => l_msg_data1);
14999:
15000: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - InsertRow');
15001: WriteLog(' before create dunning org_id ' || p_org_id);
15002: CREATE_DUNNING(p_api_version => 1.0
15003: ,p_init_msg_list => FND_API.G_FALSE
15004: ,p_commit => FND_API.G_TRUE
15005: ,p_dunning_rec => l_dunning_rec
15006: ,x_dunning_id => l_dunning_id
15007: ,x_return_status => l_return_status1
15000: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - InsertRow');
15001: WriteLog(' before create dunning org_id ' || p_org_id);
15002: CREATE_DUNNING(p_api_version => 1.0
15003: ,p_init_msg_list => FND_API.G_FALSE
15004: ,p_commit => FND_API.G_TRUE
15005: ,p_dunning_rec => l_dunning_rec
15006: ,x_dunning_id => l_dunning_id
15007: ,x_return_status => l_return_status1
15008: ,x_msg_count => l_msg_count1
15010:
15011: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateDunning status='|| l_return_status1);
15012: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - dunning_id='||l_dunning_id);
15013:
15014: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15015: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Dunning');
15016: END IF;
15017: */ -- uo to here
15018: --END IF; -- end of p_object
15051:
15052: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - InsertRow');
15053: WriteLog('before create dunning org_id ' || p_org_id);
15054: CREATE_DUNNING(p_api_version => 1.0
15055: ,p_init_msg_list => FND_API.G_FALSE
15056: ,p_commit => FND_API.G_TRUE
15057: ,p_dunning_rec => l_dunning_rec
15058: ,x_dunning_id => l_dunning_id
15059: ,x_return_status => l_return_status1
15052: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - InsertRow');
15053: WriteLog('before create dunning org_id ' || p_org_id);
15054: CREATE_DUNNING(p_api_version => 1.0
15055: ,p_init_msg_list => FND_API.G_FALSE
15056: ,p_commit => FND_API.G_TRUE
15057: ,p_dunning_rec => l_dunning_rec
15058: ,x_dunning_id => l_dunning_id
15059: ,x_return_status => l_return_status1
15060: ,x_msg_count => l_msg_count1
15062:
15063: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateDunning status='|| l_return_status1);
15064: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - dunning_id='||l_dunning_id);
15065:
15066: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15067: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Create Dunning');
15068: END IF;
15069: end if; --if l_dunning_type <> 'STAGED_DUNNING' then
15070: */
15075: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - end_call_ffm');
15076:
15077: --bug 8567312
15078: --commit work;
15079: IF FND_API.to_Boolean( p_commit )
15080: THEN
15081: COMMIT WORK;
15082: END IF;
15083:
15092: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_msg_count: '||x_msg_count);
15093: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_msg_data: '||x_msg_data);
15094:
15095: EXCEPTION
15096: WHEN FND_API.G_EXC_ERROR THEN
15097: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
15098: errmsg := SQLERRM;
15099: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
15100: -- ROLLBACK TO SEND_XML_PVT;
15097: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
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: );
15103: ( p_count => x_msg_count,
15104: p_data => x_msg_data
15105: );
15106:
15107: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15108: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
15109: errmsg := SQLERRM;
15110: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
15111: -- ROLLBACK TO SEND_XML_PVT;
15108: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
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: );
15119: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception');
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: );
15224: l_commit := p_commit;
15225: x_contact_party_id := p_party_id; -- default to origal party_id until updated #3955222
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:
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;
15235: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
15236:
15237: if (p_party_id is null) then
15238: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No PARTY_ID');
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
15245: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No METHOD');
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:
15252: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Party_id='||p_party_id);
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;
15272:
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;
15285: Close C_Get_PARTY_TYPE;
15307:
15308: -- person doesnt have dunning type
15309: -- so, we only check person contact point by GetContactPoint.
15310: IF (l_party_type = 'PERSON' and
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;
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: --
15320: -- if relationship or organization,
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;
15342: x_contact_party_id := l_party_id; -- default to org party_id until updated #3955222
15344: end if;
15345: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - org_party_id='||l_party_id);
15346: --
15347: if (l_party_type <> 'PERSON' and
15348: (x_contact is null or l_return_status <> FND_API.G_RET_STS_SUCCESS))
15349: THEN
15350:
15351: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - get dunning party_id');
15352: Open C_Get_DUNNING_ORG(l_party_id);
15355:
15356: If ( C_GET_DUNNING_ORG%NOTFOUND or l_dunning_party_id is null) Then
15357: if (nIdx = 0 ) then
15358: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No Dunning PartyId');
15359: l_return_status := FND_API.G_RET_STS_ERROR;
15360: end if;
15361:
15362: ELSE
15363: nIdx := nIdx + 1;
15361:
15362: ELSE
15363: nIdx := nIdx + 1;
15364: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - rel party_id = '||l_dunning_party_id );
15365: l_return_status := FND_API.G_RET_STS_SUCCESS;
15366: GetContactPoint(
15367: p_api_version => p_api_version
15368: , p_init_msg_list => p_init_msg_list
15369: , p_commit => p_commit
15379: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - status='||l_return_status);
15380: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - contact='||x_contact);
15381:
15382: if (x_contact is not null and
15383: l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
15384: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Found ContactPint!');
15385: end if;
15386:
15387: end if;
15393: -- if cannot find the contact point for dunning party id,
15394: -- try to get the contact point by the org party id (no dunning type).
15395: --
15396: if (x_contact is null or
15397: l_return_status <> FND_API.G_RET_STS_SUCCESS)
15398: THEN
15399: --
15400: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No ContactPoint for Duning Party');
15401: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - get party_id contactpoint');
15422: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_contact:'||x_contact);
15423:
15424: <
15425: x_return_status := l_return_status;
15426: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
15427: x_contact := '';
15428: END IF;
15429:
15430: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return_status:'||x_return_status);
15434: ( p_count => x_msg_count,
15435: p_data => x_msg_data );
15436:
15437: EXCEPTION
15438: WHEN FND_API.G_EXC_ERROR THEN
15439: ROLLBACK TO GetContactInfo_PVT;
15440: x_return_status := FND_API.G_RET_STS_ERROR;
15441: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exp Exception');
15442: errmsg := SQLERRM;
15436:
15437: EXCEPTION
15438: WHEN FND_API.G_EXC_ERROR THEN
15439: ROLLBACK TO GetContactInfo_PVT;
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:
15449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15450: ROLLBACK TO GetContactInfo_PVT;
15451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15452: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExp Exception');
15453: errmsg := SQLERRM;
15447: );
15448:
15449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15450: ROLLBACK TO GetContactInfo_PVT;
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
15459:
15460: WHEN OTHERS THEN
15461: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception');
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,
15566:
15567: l_commit := p_commit;
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:
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;
15577:
15578: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
15579:
15580: if (p_party_id is null) then
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
15588: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - No METHOD');
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:
15595: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Party_id='||p_party_id);
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;
15625: end if;
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;
15635: end if;
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;
15648:
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;
15676: end if;
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;
15686: end if;
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;
15699:
15709: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - fax:'||l_fax);
15710:
15711: <
15712: x_return_status := l_return_status;
15713: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
15714: x_contact := '';
15715: END IF;
15716:
15717: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return_status:'||x_return_status);
15721: ( p_count => x_msg_count,
15722: p_data => x_msg_data );
15723:
15724: EXCEPTION
15725: WHEN FND_API.G_EXC_ERROR THEN
15726: ROLLBACK TO GetContactPoint_PVT;
15727: x_return_status := FND_API.G_RET_STS_ERROR;
15728: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exp Exception');
15729: errmsg := SQLERRM;
15723:
15724: EXCEPTION
15725: WHEN FND_API.G_EXC_ERROR THEN
15726: ROLLBACK TO GetContactPoint_PVT;
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:
15736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15737: ROLLBACK TO GetContactPoint_PVT;
15738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15739: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExp Exception');
15740: errmsg := SQLERRM;
15734: );
15735:
15736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15737: ROLLBACK TO GetContactPoint_PVT;
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
15746:
15747: WHEN OTHERS THEN
15748: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Other Exception');
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,
15872: WriteLog (G_PKG_NAME || ' ' || l_api_name || ' - x_keep_flag='||l_keep_flag);
15873: WriteLog (G_PKG_NAME || ' ' || l_api_name || ' - end');
15874:
15875: EXCEPTION
15876: WHEN FND_API.G_EXC_ERROR THEN
15877: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
15878: errmsg := SQLERRM;
15879: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
15880: x_keep_flag := 1;
15878: errmsg := SQLERRM;
15879: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
15880: x_keep_flag := 1;
15881:
15882: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15883: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
15884: errmsg := SQLERRM;
15885: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
15886: x_keep_flag := 1;
15938: --
15939: BEGIN
15940: SAVEPOINT CLOSE_DUNNING_PVT;
15941:
15942: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
15943: p_api_version,
15944: l_api_name,
15945: G_PKG_NAME)
15946: THEN
15943: p_api_version,
15944: l_api_name,
15945: G_PKG_NAME)
15946: THEN
15947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15948: END IF;
15949:
15950: IF FND_API.to_Boolean( p_init_msg_list )
15951: THEN
15946: THEN
15947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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:
15954:
15955: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - start');
15956: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - running_level='||p_running_level);
15957:
15958: x_return_status := FND_API.G_RET_STS_SUCCESS;
15959: l_dunning_level := p_running_level;
15960:
15961: if (p_running_level = 'CUSTOMER') then
15962: l_dunning_object_id := p_delinquencies_tbl(1).party_cust_id;
16025: -- End of API body
16026: --
16027:
16028: -- Standard check for p_commit
16029: IF FND_API.to_Boolean( p_commit )
16030: THEN
16031: COMMIT WORK;
16032: END IF;
16033:
16035: ( p_count => x_msg_count,
16036: p_data => x_msg_data );
16037:
16038: EXCEPTION
16039: WHEN FND_API.G_EXC_ERROR THEN
16040: ROLLBACK TO CLOSE_DUNNING_PVT;
16041: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
16042: errmsg := SQLERRM;
16043: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
16040: ROLLBACK TO CLOSE_DUNNING_PVT;
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: );
16046: ( p_count => x_msg_count,
16047: p_data => x_msg_data
16048: );
16049:
16050: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16051: ROLLBACK TO CLOSE_DUNNING_PVT;
16052: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
16053: errmsg := SQLERRM;
16054: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
16051: ROLLBACK TO CLOSE_DUNNING_PVT;
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: );
16062: ROLLBACK TO CLOSE_DUNNING_PVT;
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: );
16117: --
16118: BEGIN
16119: SAVEPOINT Close_Staged_Dunning_PVT;
16120:
16121: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
16122: p_api_version,
16123: l_api_name,
16124: G_PKG_NAME)
16125: THEN
16122: p_api_version,
16123: l_api_name,
16124: G_PKG_NAME)
16125: THEN
16126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16127: END IF;
16128:
16129: IF FND_API.to_Boolean( p_init_msg_list )
16130: THEN
16125: THEN
16126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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:
16133:
16134: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - start');
16135: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - running_level='||p_running_level);
16136:
16137: x_return_status := FND_API.G_RET_STS_SUCCESS;
16138: l_dunning_level := p_running_level;
16139:
16140: if (p_running_level = 'CUSTOMER') then
16141: l_dunning_object_id := p_delinquencies_tbl(1).party_cust_id;
16205: -- End of API body
16206: --
16207:
16208: -- Standard check for p_commit
16209: IF FND_API.to_Boolean( p_commit )
16210: THEN
16211: COMMIT WORK;
16212: END IF;
16213:
16215: ( p_count => x_msg_count,
16216: p_data => x_msg_data );
16217:
16218: EXCEPTION
16219: WHEN FND_API.G_EXC_ERROR THEN
16220: ROLLBACK TO Close_Staged_Dunning_PVT;
16221: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
16222: errmsg := SQLERRM;
16223: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
16220: ROLLBACK TO Close_Staged_Dunning_PVT;
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: );
16226: ( p_count => x_msg_count,
16227: p_data => x_msg_data
16228: );
16229:
16230: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16231: ROLLBACK TO Close_Staged_Dunning_PVT;
16232: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
16233: errmsg := SQLERRM;
16234: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
16231: ROLLBACK TO Close_Staged_Dunning_PVT;
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: );
16242: ROLLBACK TO Close_Staged_Dunning_PVT;
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: );
16333: -- Standard Start of API savepoint
16334: SAVEPOINT DAILY_DUNNING_PVT;
16335:
16336: -- Standard call to check for call compatibility.
16337: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
16338: p_api_version,
16339: l_api_name,
16340: G_PKG_NAME)
16341: THEN
16338: p_api_version,
16339: l_api_name,
16340: G_PKG_NAME)
16341: THEN
16342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16343: END IF;
16344:
16345: -- Initialize message list if p_init_msg_list is set to TRUE.
16346: IF FND_API.to_Boolean( p_init_msg_list )
16342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16343: END IF;
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:
16352: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start') ;
16353: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - running_level='||p_running_level) ;
16354:
16355: -- Initialize API return status to SUCCESS
16356: x_return_status := FND_API.G_RET_STS_SUCCESS;
16357:
16358: l_curr_date := to_char(sysdate, 'YYYYMMDD');
16359: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CurrDate='||l_curr_date) ;
16360: FND_FILE.PUT_LINE(FND_FILE.LOG, 'current date=' || l_curr_date);
16384: exit;
16385: ELSE
16386:
16387: l_skip := 0;
16388: x_return_status := FND_API.G_RET_STS_SUCCESS;
16389: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - DunningID='||l_dunning_id) ;
16390: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - DunningObjectID='||l_dunning_object_id) ;
16391: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Callback_Date='||l_callback_date) ;
16392: FND_FILE.PUT_LINE(FND_FILE.LOG, '*****dunning_id='||l_dunning_id||'*****');
16484: , x_msg_count => x_msg_count
16485: , x_msg_data => x_msg_data
16486: );
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,
16551: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - DunnUpdatedNum='||dunning_tbl.count);
16552: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - ==========END SUMMARY=========');
16553:
16554: -- Standard check for p_commit
16555: IF FND_API.to_Boolean( p_commit )
16556: THEN
16557: COMMIT WORK;
16558: END IF;
16559:
16617:
16618: END LOOP;
16619: WriteLog(G_PKG_NAME || ' ' || l_api_name || 'Completed cancelling Dunning callback tasks correpsonding to current objects...');
16620:
16621: IF FND_API.to_Boolean( p_commit )
16622: THEN
16623: COMMIT WORK;
16624: END IF;
16625: --End bug 7317666 21-Nov-2008 barathsr
16625: --End bug 7317666 21-Nov-2008 barathsr
16626:
16627: -- clchang added 08/15/2003
16628: -- make return_status = 'S';
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
16638: WHEN FND_API.G_EXC_ERROR THEN
16639: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
16640: errmsg := SQLERRM;
16641: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
16642: ROLLBACK TO DAILY_DUNNING_PVT;
16639: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc 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: );
16645: ( p_count => x_msg_count,
16646: p_data => x_msg_data
16647: );
16648:
16649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16650: ROLLBACK TO DAILY_DUNNING_PVT;
16651: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UnExc Exception');
16652: errmsg := SQLERRM;
16653: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception errmsg='||errmsg);
16650: ROLLBACK TO DAILY_DUNNING_PVT;
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: );
16661: ROLLBACK TO DAILY_DUNNING_PVT;
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: );
16792: l_location varchar2(40); -- added for bug 14738490
16793: BEGIN
16794:
16795: -- Initialize API return status to SUCCESS
16796: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
16797: x_return_status := FND_API.G_RET_STS_SUCCESS;
16798: l_dunning_id := p_dunning_id;
16799:
16800: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - delid='||p_delinquency_id);
16793: BEGIN
16794:
16795: -- Initialize API return status to SUCCESS
16796: l_validation_level := FND_API.G_VALID_LEVEL_FULL;
16797: x_return_status := FND_API.G_RET_STS_SUCCESS;
16798: l_dunning_id := p_dunning_id;
16799:
16800: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - delid='||p_delinquency_id);
16801: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - dunningobjectid='||p_dunning_object_id);
16814: l_party_name;
16815:
16816: If ( C_GET_ACCOUNT%NOTFOUND) Then
16817: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - ACCOUNT NotFound');
16818: x_return_status := FND_API.G_RET_STS_ERROR;
16819: Close C_Get_ACCOUNT;
16820: GOTO end_new_task;
16821: end if;
16822: Close C_Get_ACCOUNT;
16831: l_party_name;
16832:
16833: If ( C_GET_CUSTOMER%NOTFOUND) Then
16834: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CUSTOMER NotFound');
16835: x_return_status := FND_API.G_RET_STS_ERROR;
16836: Close C_Get_CUSTOMER;
16837: GOTO end_new_task;
16838: end if;
16839: Close C_Get_CUSTOMER;
16853: l_location;
16854:
16855: If ( C_GET_SITE%NOTFOUND) Then
16856: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - ACCOUNT NotFound');
16857: x_return_status := FND_API.G_RET_STS_ERROR;
16858: Close C_Get_SITE;
16859: GOTO end_new_task;
16860: end if;
16861: Close C_Get_SITE;
16875: l_party_name;
16876:
16877: If ( C_GET_DEL%NOTFOUND) Then
16878: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Del NotFound');
16879: x_return_status := FND_API.G_RET_STS_ERROR;
16880: Close C_Get_DEL;
16881: GOTO end_new_task;
16882: end if;
16883: Close C_Get_DEL;
16885: END IF;
16886:
16887: If ( l_party_cust_id is null ) Then
16888: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - PartyCustId NotFound');
16889: x_return_status := FND_API.G_RET_STS_ERROR;
16890: GOTO end_new_task;
16891: end if;
16892:
16893: -- clchang updated 09/20/2002 for bug 2242346
16897: --Called iex_utilities.get_assigned_collector to get the resource from hz_customer_profiles table
16898: --instead of as_accesses. Removed the call to "get_resource".
16899: if l_customer_site_use_id is not null then
16900: iex_utilities.get_assigned_collector(p_api_version => l_api_version,
16901: p_init_msg_list => FND_API.G_TRUE,
16902: p_commit => FND_API.G_FALSE,
16903: p_validation_level => l_validation_level,
16904: p_level => 'DUNNING_BILLTO',
16905: p_level_id => l_customer_site_use_id,
16898: --instead of as_accesses. Removed the call to "get_resource".
16899: if l_customer_site_use_id is not null then
16900: iex_utilities.get_assigned_collector(p_api_version => l_api_version,
16901: p_init_msg_list => FND_API.G_TRUE,
16902: p_commit => FND_API.G_FALSE,
16903: p_validation_level => l_validation_level,
16904: p_level => 'DUNNING_BILLTO',
16905: p_level_id => l_customer_site_use_id,
16906: x_msg_count => l_msg_count,
16906: x_msg_count => l_msg_count,
16907: x_msg_data => l_msg_data,
16908: x_return_status => l_return_status,
16909: x_resource_tab => l_resource_tab);
16910: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16911: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
16912: x_return_status := FND_API.G_RET_STS_ERROR;
16913: GOTO end_new_task;
16914: END IF;
16908: x_return_status => l_return_status,
16909: x_resource_tab => l_resource_tab);
16910: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16911: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
16912: x_return_status := FND_API.G_RET_STS_ERROR;
16913: GOTO end_new_task;
16914: END IF;
16915: end if;
16916:
16915: end if;
16916:
16917: if l_resource_tab.count<1 and l_account_id is not null then
16918: iex_utilities.get_assigned_collector(p_api_version => l_api_version,
16919: p_init_msg_list => FND_API.G_TRUE,
16920: p_commit => FND_API.G_FALSE,
16921: p_validation_level => l_validation_level,
16922: p_level => 'DUNNING_ACCOUNT',
16923: p_level_id => l_account_id,
16916:
16917: if l_resource_tab.count<1 and l_account_id is not null then
16918: iex_utilities.get_assigned_collector(p_api_version => l_api_version,
16919: p_init_msg_list => FND_API.G_TRUE,
16920: p_commit => FND_API.G_FALSE,
16921: p_validation_level => l_validation_level,
16922: p_level => 'DUNNING_ACCOUNT',
16923: p_level_id => l_account_id,
16924: x_msg_count => l_msg_count,
16924: x_msg_count => l_msg_count,
16925: x_msg_data => l_msg_data,
16926: x_return_status => l_return_status,
16927: x_resource_tab => l_resource_tab);
16928: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16929: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
16930: x_return_status := FND_API.G_RET_STS_ERROR;
16931: GOTO end_new_task;
16932: END IF;
16926: x_return_status => l_return_status,
16927: x_resource_tab => l_resource_tab);
16928: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16929: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
16930: x_return_status := FND_API.G_RET_STS_ERROR;
16931: GOTO end_new_task;
16932: END IF;
16933: end if;
16934:
16933: end if;
16934:
16935: if l_resource_tab.count<1 and l_party_cust_id is not null then
16936: iex_utilities.get_assigned_collector(p_api_version => l_api_version,
16937: p_init_msg_list => FND_API.G_TRUE,
16938: p_commit => FND_API.G_FALSE,
16939: p_validation_level => l_validation_level,
16940: p_level => 'DUNNING_PARTY',
16941: p_level_id => l_party_cust_id,
16934:
16935: if l_resource_tab.count<1 and l_party_cust_id is not null then
16936: iex_utilities.get_assigned_collector(p_api_version => l_api_version,
16937: p_init_msg_list => FND_API.G_TRUE,
16938: p_commit => FND_API.G_FALSE,
16939: p_validation_level => l_validation_level,
16940: p_level => 'DUNNING_PARTY',
16941: p_level_id => l_party_cust_id,
16942: x_msg_count => l_msg_count,
16942: x_msg_count => l_msg_count,
16943: x_msg_data => l_msg_data,
16944: x_return_status => l_return_status,
16945: x_resource_tab => l_resource_tab);
16946: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16947: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
16948: x_return_status := FND_API.G_RET_STS_ERROR;
16949: GOTO end_new_task;
16950: END IF;
16944: x_return_status => l_return_status,
16945: x_resource_tab => l_resource_tab);
16946: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16947: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
16948: x_return_status := FND_API.G_RET_STS_ERROR;
16949: GOTO end_new_task;
16950: END IF;
16951:
16952: if l_resource_tab.count<1 and p_dunning_level = 'CUSTOMER' then
16950: END IF;
16951:
16952: if l_resource_tab.count<1 and p_dunning_level = 'CUSTOMER' then
16953: iex_utilities.get_assigned_collector(p_api_version => l_api_version,
16954: p_init_msg_list => FND_API.G_TRUE,
16955: p_commit => FND_API.G_FALSE,
16956: p_validation_level => l_validation_level,
16957: p_level => 'DUNNING_PARTY_ACCOUNT',
16958: p_level_id => l_party_cust_id,
16951:
16952: if l_resource_tab.count<1 and p_dunning_level = 'CUSTOMER' then
16953: iex_utilities.get_assigned_collector(p_api_version => l_api_version,
16954: p_init_msg_list => FND_API.G_TRUE,
16955: p_commit => FND_API.G_FALSE,
16956: p_validation_level => l_validation_level,
16957: p_level => 'DUNNING_PARTY_ACCOUNT',
16958: p_level_id => l_party_cust_id,
16959: x_msg_count => l_msg_count,
16959: x_msg_count => l_msg_count,
16960: x_msg_data => l_msg_data,
16961: x_return_status => l_return_status,
16962: x_resource_tab => l_resource_tab);
16963: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16964: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
16965: x_return_status := FND_API.G_RET_STS_ERROR;
16966: GOTO end_new_task;
16967: END IF;
16961: x_return_status => l_return_status,
16962: x_resource_tab => l_resource_tab);
16963: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16964: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource');
16965: x_return_status := FND_API.G_RET_STS_ERROR;
16966: GOTO end_new_task;
16967: END IF;
16968: end if;
16969: end if;
16973: else
16974: if l_default_rs_id is not null then
16975: l_resource_id := l_default_rs_id;
16976: else
16977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16978: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot get resource from customer profile and there is no default resource set');
16979: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No collector has been assigned to this customer '||l_party_name);
16980: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No default collector available to assign to callback. Please update default collector.');
16981: GOTO end_new_task;
17157: x_msg_data => x_msg_data,
17158: x_task_id => x_task_id );
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
17400: -- Standard Start of API savepoint
17401: SAVEPOINT GET_RESOURCE_PVT;
17402:
17403: -- Standard call to check for call compatibility.
17404: IF NOT FND_API.Compatible_API_Call (l_api_version,
17405: p_api_version,
17406: l_api_name,
17407: G_PKG_NAME)
17408: THEN
17405: p_api_version,
17406: l_api_name,
17407: G_PKG_NAME)
17408: THEN
17409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17410: END IF;
17411:
17412: -- Initialize API return status to SUCCESS
17413: x_return_status := FND_API.G_RET_STS_SUCCESS;
17409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17410: END IF;
17411:
17412: -- Initialize API return status to SUCCESS
17413: x_return_status := FND_API.G_RET_STS_SUCCESS;
17414:
17415: -- Api body
17416: --
17417:
17484: -- End of API body
17485: --
17486:
17487: -- Standard check for p_commit
17488: IF FND_API.to_Boolean( p_commit )
17489: THEN
17490: COMMIT WORK;
17491: END IF;
17492:
17498: p_data => x_msg_data
17499: );
17500:
17501: EXCEPTION
17502: WHEN FND_API.G_EXC_ERROR THEN
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);
17500:
17501: EXCEPTION
17502: WHEN FND_API.G_EXC_ERROR THEN
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,
17508: ( p_count => x_msg_count,
17509: p_data => x_msg_data
17510: );
17511:
17512: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
17510: );
17511:
17512: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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,
17520: );
17521:
17522: WHEN OTHERS THEN
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,
18330: end if;
18331: end loop;
18332: close sql_cur1;
18333:
18334: IF FND_API.to_Boolean( p_commit )
18335: THEN
18336: COMMIT WORK;
18337: END IF;
18338:
18335: THEN
18336: COMMIT WORK;
18337: END IF;
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,
18343: ( p_count => x_msg_count,
18344: p_data => x_msg_data );
18345:
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,
18345:
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');
18353: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exc Exception');
18354: FND_FILE.PUT_LINE(FND_FILE.LOG, 'expect exception' );
18355: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
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,
18355: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
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');
18365: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
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');
18436: -- Standard Start of API savepoint
18437: SAVEPOINT INSERT_DUNNING_TRANSACTION_PVT;
18438:
18439: -- Standard call to check for call compatibility.
18440: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
18441: p_api_version,
18442: l_api_name,
18443: G_PKG_NAME)
18444: THEN
18441: p_api_version,
18442: l_api_name,
18443: G_PKG_NAME)
18444: THEN
18445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18446: END IF;
18447:
18448: -- Initialize message list if p_init_msg_list is set to TRUE.
18449: IF FND_API.to_Boolean( p_init_msg_list )
18445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18446: END IF;
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:
18486: -- bug 14772139 l_include_curr_inv := 'N'; -- For Strategies we don't include current invoices
18487: -- bug 14772139 l_include_unapp_rec:= 'Y'; -- For Strategies we include upnapplied receipts
18488: end if;
18489:
18490: x_return_status := FND_API.G_RET_STS_SUCCESS;
18491: --
18492: -- API body
18493: --
18494:
18580: , p_object_version_number => 1.0);
18581:
18582: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
18583:
18584: IF x_return_status = FND_API.G_RET_STS_ERROR then
18585: raise FND_API.G_EXC_ERROR;
18586: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18587: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18588: END IF;
18581:
18582: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
18583:
18584: IF x_return_status = FND_API.G_RET_STS_ERROR then
18585: raise FND_API.G_EXC_ERROR;
18586: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18587: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18588: END IF;
18589:
18582: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
18583:
18584: IF x_return_status = FND_API.G_RET_STS_ERROR then
18585: raise FND_API.G_EXC_ERROR;
18586: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18587: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18588: END IF;
18589:
18590: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
18583:
18584: IF x_return_status = FND_API.G_RET_STS_ERROR then
18585: raise FND_API.G_EXC_ERROR;
18586: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18587: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18588: END IF;
18589:
18590: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
18591: x_dunning_trx_id := null;
18672: );
18673:
18674: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
18675:
18676: IF x_return_status = FND_API.G_RET_STS_ERROR then
18677: raise FND_API.G_EXC_ERROR;
18678: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18679: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18680: END IF;
18673:
18674: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
18675:
18676: IF x_return_status = FND_API.G_RET_STS_ERROR then
18677: raise FND_API.G_EXC_ERROR;
18678: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18679: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18680: END IF;
18681:
18674: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
18675:
18676: IF x_return_status = FND_API.G_RET_STS_ERROR then
18677: raise FND_API.G_EXC_ERROR;
18678: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18679: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18680: END IF;
18681:
18682: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
18675:
18676: IF x_return_status = FND_API.G_RET_STS_ERROR then
18677: raise FND_API.G_EXC_ERROR;
18678: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18679: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18680: END IF;
18681:
18682: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
18683: x_dunning_trx_id := null;
18746: );
18747:
18748: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
18749:
18750: IF x_return_status = FND_API.G_RET_STS_ERROR then
18751: raise FND_API.G_EXC_ERROR;
18752: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18753: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18754: END IF;
18747:
18748: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
18749:
18750: IF x_return_status = FND_API.G_RET_STS_ERROR then
18751: raise FND_API.G_EXC_ERROR;
18752: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18753: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18754: END IF;
18755:
18748: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
18749:
18750: IF x_return_status = FND_API.G_RET_STS_ERROR then
18751: raise FND_API.G_EXC_ERROR;
18752: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18753: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18754: END IF;
18755:
18756: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
18749:
18750: IF x_return_status = FND_API.G_RET_STS_ERROR then
18751: raise FND_API.G_EXC_ERROR;
18752: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18753: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18754: END IF;
18755:
18756: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
18757: x_dunning_trx_id := null;
18846: );
18847:
18848: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
18849:
18850: IF x_return_status = FND_API.G_RET_STS_ERROR then
18851: raise FND_API.G_EXC_ERROR;
18852: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18853: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18854: END IF;
18847:
18848: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
18849:
18850: IF x_return_status = FND_API.G_RET_STS_ERROR then
18851: raise FND_API.G_EXC_ERROR;
18852: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18853: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18854: END IF;
18855:
18848: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
18849:
18850: IF x_return_status = FND_API.G_RET_STS_ERROR then
18851: raise FND_API.G_EXC_ERROR;
18852: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18853: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18854: END IF;
18855:
18856: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
18849:
18850: IF x_return_status = FND_API.G_RET_STS_ERROR then
18851: raise FND_API.G_EXC_ERROR;
18852: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18853: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18854: END IF;
18855:
18856: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
18857: x_dunning_trx_id := null;
18926: );
18927:
18928: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
18929:
18930: IF x_return_status = FND_API.G_RET_STS_ERROR then
18931: raise FND_API.G_EXC_ERROR;
18932: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18933: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18934: END IF;
18927:
18928: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
18929:
18930: IF x_return_status = FND_API.G_RET_STS_ERROR then
18931: raise FND_API.G_EXC_ERROR;
18932: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18933: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18934: END IF;
18935:
18928: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
18929:
18930: IF x_return_status = FND_API.G_RET_STS_ERROR then
18931: raise FND_API.G_EXC_ERROR;
18932: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18933: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18934: END IF;
18935:
18936: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
18929:
18930: IF x_return_status = FND_API.G_RET_STS_ERROR then
18931: raise FND_API.G_EXC_ERROR;
18932: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
18933: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18934: END IF;
18935:
18936: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
18937: x_dunning_trx_id := null;
18998: );
18999:
19000: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
19001:
19002: IF x_return_status = FND_API.G_RET_STS_ERROR then
19003: raise FND_API.G_EXC_ERROR;
19004: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
19005: raise FND_API.G_EXC_UNEXPECTED_ERROR;
19006: END IF;
18999:
19000: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
19001:
19002: IF x_return_status = FND_API.G_RET_STS_ERROR then
19003: raise FND_API.G_EXC_ERROR;
19004: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
19005: raise FND_API.G_EXC_UNEXPECTED_ERROR;
19006: END IF;
19007:
19000: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - x_dunning_trx_id :'|| x_dunning_trx_id);
19001:
19002: IF x_return_status = FND_API.G_RET_STS_ERROR then
19003: raise FND_API.G_EXC_ERROR;
19004: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
19005: raise FND_API.G_EXC_UNEXPECTED_ERROR;
19006: END IF;
19007:
19008: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
19001:
19002: IF x_return_status = FND_API.G_RET_STS_ERROR then
19003: raise FND_API.G_EXC_ERROR;
19004: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
19005: raise FND_API.G_EXC_UNEXPECTED_ERROR;
19006: END IF;
19007:
19008: --reset the x_dunning_trx_id, so that will get new no when inserting 2nd record.
19009: x_dunning_trx_id := null;
19021: -- End of API body
19022: --
19023:
19024: -- Standard check for p_commit
19025: IF FND_API.to_Boolean( p_commit )
19026: THEN
19027: COMMIT WORK;
19028: END IF;
19029:
19033: p_data => x_msg_data
19034: );
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 );
19034: );
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;
19041: p_data => x_msg_data );
19042: ROLLBACK TO INSERT_DUNNING_TRANSACTION_PVT;
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 );
19042: ROLLBACK TO INSERT_DUNNING_TRANSACTION_PVT;
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;
19050: ROLLBACK TO INSERT_DUNNING_TRANSACTION_PVT;
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;