DBA Data[Home] [Help]

APPS.IEX_DUNNING_PUB dependencies on FND_FILE

Line 584: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Bucket');

580: Fetch C_Get_Bucket into l_bucket;
581: If ( C_GET_Bucket%NOTFOUND ) Then
582: -- Changed by gnramasa for bug 5661324 14-Mar-07
583: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - NO Bucket');
584: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Bucket');
585: x_return_status := FND_API.G_RET_STS_ERROR;
586: RAISE FND_API.G_EXC_ERROR;
587: end if;
588: CLOSE C_GET_Bucket;

Line 591: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Current Bucket='||l_bucket);

587: end if;
588: CLOSE C_GET_Bucket;
589: -- Changed by gnramasa for bug 5661324 14-Mar-07
590: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Bucket='||l_bucket);
591: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Current Bucket='||l_bucket);
592: --
593: -- Commented by gnramasa for bug 5661324 14-Mar-07
594: /*
595: IF (l_error = 0) THEN

Line 611: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Party');

607:
608: If ( C_GET_CUSTOMER%NOTFOUND ) Then
609: if (nIdx = 0) then
610: WriteLog('iexpdunb:SEND_DUNN: NO PARTY');
611: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Party');
612: end if;
613: WriteLog('iexpdunb:SEND_DUNN:NODATA');
614: --WriteLog('***iexpdunb:SEND_DUNN:PARTY_ID='||l_party_id);
615: exit;

Line 620: FND_FILE.PUT_LINE(FND_FILE.LOG, '*****Party Id='||l_party_id||'*****');

616: else
617: nIdx := nIdx + 1;
618: WriteLog('***iexpdunb:SEND_DUNN:nIdx='||nIdx);
619: WriteLog('***iexpdunb:SEND_DUNN:PARTY_ID='||l_party_id);
620: FND_FILE.PUT_LINE(FND_FILE.LOG, '*****Party Id='||l_party_id||'*****');
621: nDelIdx := 0;
622: Open C_Get_CUSTOMER_DEL(l_party_id, p_dunning_plan_id);
623: LOOP
624: Fetch C_Get_CUSTOMER_DEL

Line 681: FND_FILE.PUT_LINE(FND_FILE.LOG,'Validate correct scoring engine was run for this dunning plan.');

677: WriteLog('get scoring engine');
678: open c_scoring_engine(p_dunning_plan_id);
679: fetch c_scoring_engine into l_score_engine_id, l_score_engine_name;
680: close c_scoring_engine;
681: FND_FILE.PUT_LINE(FND_FILE.LOG,'Validate correct scoring engine was run for this dunning plan.');
682: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine Name: ' || l_score_engine_name);
683: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine ID: ' || l_score_engine_id);
684: l_repeat := false;
685: else

Line 682: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine Name: ' || l_score_engine_name);

678: open c_scoring_engine(p_dunning_plan_id);
679: fetch c_scoring_engine into l_score_engine_id, l_score_engine_name;
680: close c_scoring_engine;
681: FND_FILE.PUT_LINE(FND_FILE.LOG,'Validate correct scoring engine was run for this dunning plan.');
682: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine Name: ' || l_score_engine_name);
683: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine ID: ' || l_score_engine_id);
684: l_repeat := false;
685: else
686: l_return_status := FND_API.G_RET_STS_SUCCESS;

Line 683: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine ID: ' || l_score_engine_id);

679: fetch c_scoring_engine into l_score_engine_id, l_score_engine_name;
680: close c_scoring_engine;
681: FND_FILE.PUT_LINE(FND_FILE.LOG,'Validate correct scoring engine was run for this dunning plan.');
682: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine Name: ' || l_score_engine_name);
683: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine ID: ' || l_score_engine_id);
684: l_repeat := false;
685: else
686: l_return_status := FND_API.G_RET_STS_SUCCESS;
687: end if;

Line 712: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Account');

708:
709: If ( C_GET_ACCOUNT%NOTFOUND ) Then
710: if (nIdx = 0) then
711: WriteLog('iexpdunb:SEND_DUNN: NO ACCOUNT');
712: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Account');
713: --msg
714: -- Begin - Andre Araujo - 09/30/2004- Remove obsolete logging
715: */
716: /*

Line 731: FND_FILE.PUT_LINE(FND_FILE.LOG, '*****Account Id='||l_account_id||'*****');

727: else
728: nIdx := nIdx + 1;
729: WriteLog('***iexpdunb:SEND_DUNN:nIdx='||nIdx);
730: WriteLog('***iexpdunb:SEND_DUNN:ACCOUNT_ID='||l_account_id);
731: FND_FILE.PUT_LINE(FND_FILE.LOG, '*****Account Id='||l_account_id||'*****');
732: nDelIdx := 0;
733: Open C_Get_ACCOUNT_DEL(l_account_id, p_dunning_plan_id);
734: LOOP
735: Fetch C_Get_ACCOUNT_DEL

Line 793: FND_FILE.PUT_LINE(FND_FILE.LOG,'Validate correct scoring engine was run for this dunning plan.');

789: WriteLog('get scoring engine');
790: open c_scoring_engine(p_dunning_plan_id);
791: fetch c_scoring_engine into l_score_engine_id, l_score_engine_name;
792: close c_scoring_engine;
793: FND_FILE.PUT_LINE(FND_FILE.LOG,'Validate correct scoring engine was run for this dunning plan.');
794: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine Name: ' || l_score_engine_name);
795: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine ID: ' || l_score_engine_id);
796: l_repeat := false;
797: else

Line 794: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine Name: ' || l_score_engine_name);

790: open c_scoring_engine(p_dunning_plan_id);
791: fetch c_scoring_engine into l_score_engine_id, l_score_engine_name;
792: close c_scoring_engine;
793: FND_FILE.PUT_LINE(FND_FILE.LOG,'Validate correct scoring engine was run for this dunning plan.');
794: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine Name: ' || l_score_engine_name);
795: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine ID: ' || l_score_engine_id);
796: l_repeat := false;
797: else
798: l_return_status := FND_API.G_RET_STS_SUCCESS;

Line 795: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine ID: ' || l_score_engine_id);

791: fetch c_scoring_engine into l_score_engine_id, l_score_engine_name;
792: close c_scoring_engine;
793: FND_FILE.PUT_LINE(FND_FILE.LOG,'Validate correct scoring engine was run for this dunning plan.');
794: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine Name: ' || l_score_engine_name);
795: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine ID: ' || l_score_engine_id);
796: l_repeat := false;
797: else
798: l_return_status := FND_API.G_RET_STS_SUCCESS;
799: end if;

Line 822: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Bill To');

818:
819: If ( C_GET_SITE%NOTFOUND ) Then
820: if (nIdx = 0) then
821: WriteLog('iexpdunb:SEND_DUNN: NO BILL TO');
822: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Bill To');
823: end if;
824: WriteLog('iexpdunb:SEND_DUNN:NODATA');
825: exit;
826: else

Line 830: FND_FILE.PUT_LINE(FND_FILE.LOG, '*****customer_site_use_id ='||l_customer_site_use_id||'*****');

826: else
827: nIdx := nIdx + 1;
828: WriteLog('***iexpdunb:SEND_DUNN:nIdx='||nIdx);
829: WriteLog('***iexpdunb:SEND_DUNN:Customer_Site_use_id='||l_customer_site_use_id);
830: FND_FILE.PUT_LINE(FND_FILE.LOG, '*****customer_site_use_id ='||l_customer_site_use_id||'*****');
831: nDelIdx := 0;
832: Open C_Get_SITE_DEL(l_customer_site_use_id, p_dunning_plan_id);
833: LOOP
834: Fetch C_Get_SITE_DEL

Line 891: FND_FILE.PUT_LINE(FND_FILE.LOG,'Validate correct scoring engine was run for this dunning plan.');

887: WriteLog('get scoring engine');
888: open c_scoring_engine(p_dunning_plan_id);
889: fetch c_scoring_engine into l_score_engine_id, l_score_engine_name;
890: close c_scoring_engine;
891: FND_FILE.PUT_LINE(FND_FILE.LOG,'Validate correct scoring engine was run for this dunning plan.');
892: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine Name: ' || l_score_engine_name);
893: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine ID: ' || l_score_engine_id);
894: l_repeat := false;
895: else

Line 892: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine Name: ' || l_score_engine_name);

888: open c_scoring_engine(p_dunning_plan_id);
889: fetch c_scoring_engine into l_score_engine_id, l_score_engine_name;
890: close c_scoring_engine;
891: FND_FILE.PUT_LINE(FND_FILE.LOG,'Validate correct scoring engine was run for this dunning plan.');
892: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine Name: ' || l_score_engine_name);
893: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine ID: ' || l_score_engine_id);
894: l_repeat := false;
895: else
896: l_return_status := FND_API.G_RET_STS_SUCCESS;

Line 893: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine ID: ' || l_score_engine_id);

889: fetch c_scoring_engine into l_score_engine_id, l_score_engine_name;
890: close c_scoring_engine;
891: FND_FILE.PUT_LINE(FND_FILE.LOG,'Validate correct scoring engine was run for this dunning plan.');
892: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine Name: ' || l_score_engine_name);
893: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine ID: ' || l_score_engine_id);
894: l_repeat := false;
895: else
896: l_return_status := FND_API.G_RET_STS_SUCCESS;
897: end if;

Line 921: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Delinquency');

917:
918: If ( C_GET_DEL%NOTFOUND ) Then
919: if (nIdx = 0) then
920: WriteLog('iexpdunb:SEND_DUNN: NO Del');
921: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Delinquency');
922: x_return_status := FND_API.G_RET_STS_ERROR;
923: end if;
924: exit;
925: else

Line 975: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No filter object');

971: Open c_filter_object (p_dunning_plan_id);
972: Fetch c_filter_object into l_select_column,l_entity_name;
973: If ( c_filter_object%NOTFOUND ) Then
974: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - NO filter object');
975: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No filter object');
976: x_return_status := FND_API.G_RET_STS_ERROR;
977: RAISE FND_API.G_EXC_ERROR;
978: end if;
979: CLOSE c_filter_object;

Line 982: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_select_column: '|| l_select_column);

978: end if;
979: CLOSE c_filter_object;
980: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_select_column: '|| l_select_column);
981: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_entity_name: '||l_entity_name);
982: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_select_column: '|| l_select_column);
983: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_entity_name: '||l_entity_name);
984:
985: if p_running_level = 'CUSTOMER' then
986: vSelectColumn := 'party_cust_id';

Line 983: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_entity_name: '||l_entity_name);

979: CLOSE c_filter_object;
980: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_select_column: '|| l_select_column);
981: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_entity_name: '||l_entity_name);
982: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_select_column: '|| l_select_column);
983: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_entity_name: '||l_entity_name);
984:
985: if p_running_level = 'CUSTOMER' then
986: vSelectColumn := 'party_cust_id';
987: vPLSQL2 := ' select ' ||

Line 1141: FND_FILE.PUT_LINE(FND_FILE.LOG,'Validate correct scoring engine was run for this dunning plan.');

1137: WriteLog('get scoring engine');
1138: open c_scoring_engine(p_dunning_plan_id);
1139: fetch c_scoring_engine into l_score_engine_id, l_score_engine_name;
1140: close c_scoring_engine;
1141: FND_FILE.PUT_LINE(FND_FILE.LOG,'Validate correct scoring engine was run for this dunning plan.');
1142: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine Name: ' || l_score_engine_name);
1143: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine ID: ' || l_score_engine_id);
1144: l_repeat := false;
1145: else

Line 1142: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine Name: ' || l_score_engine_name);

1138: open c_scoring_engine(p_dunning_plan_id);
1139: fetch c_scoring_engine into l_score_engine_id, l_score_engine_name;
1140: close c_scoring_engine;
1141: FND_FILE.PUT_LINE(FND_FILE.LOG,'Validate correct scoring engine was run for this dunning plan.');
1142: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine Name: ' || l_score_engine_name);
1143: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine ID: ' || l_score_engine_id);
1144: l_repeat := false;
1145: else
1146: l_return_status := FND_API.G_RET_STS_SUCCESS;

Line 1143: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine ID: ' || l_score_engine_id);

1139: fetch c_scoring_engine into l_score_engine_id, l_score_engine_name;
1140: close c_scoring_engine;
1141: FND_FILE.PUT_LINE(FND_FILE.LOG,'Validate correct scoring engine was run for this dunning plan.');
1142: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine Name: ' || l_score_engine_name);
1143: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine ID: ' || l_score_engine_id);
1144: l_repeat := false;
1145: else
1146: l_return_status := FND_API.G_RET_STS_SUCCESS;
1147: end if;

Line 1156: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_object_id: '||l_object_id || ' does not exist in filter object :' ||l_entity_name || ' so skipping');

1152: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - send_level_Failed - CONTINUE');
1153: END IF;
1154: else
1155: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_object_id: '||l_object_id || ' does not exist in filter object :' ||l_entity_name || ' so skipping');
1156: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_object_id: '||l_object_id || ' does not exist in filter object :' ||l_entity_name || ' so skipping');
1157: end if;
1158: close sql_cur2 ;
1159: end loop; -- sql_cur
1160:

Line 1170: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Delinquency');

1166: LOOP
1167: Fetch C_Get_DEL into l_del_id, l_party_id, l_account_id, l_customer_site_use_id, l_score;
1168:
1169: --If ( C_GET_DEL%NOTFOUND ) Then
1170: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Delinquency');
1171: -- x_return_status := FND_API.G_RET_STS_ERROR;
1172: --end if;
1173:
1174: exit when C_GET_DEL%NOTFOUND;

Line 1391: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Callback_Concur');

1387:
1388: BEGIN
1389:
1390: l_api_name := 'callback_concur';
1391: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Callback_Concur');
1392: WriteLog('Send_Dunning: ' || G_PKG_NAME || ' ' || l_api_name || ' - starting CALLBACK_CONCUR');
1393:
1394: --Start MOAC
1395: mo_global.init('IEX');

Line 1401: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Operating Unit: '|| nvl(mo_global.get_ou_name(mo_global.get_current_org_id), 'All'));

1397: mo_global.set_policy_context('M',NULL);
1398: ELSE
1399: mo_global.set_policy_context('S',p_org_id);
1400: END IF;
1401: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Operating Unit: '|| nvl(mo_global.get_ou_name(mo_global.get_current_org_id), 'All'));
1402: --End MOAC
1403:
1404: l_default_rs_id := fnd_profile.value('IEX_STRY_DEFAULT_RESOURCE');
1405: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Default Resource Id = '||l_default_rs_id);

Line 1405: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Default Resource Id = '||l_default_rs_id);

1401: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Operating Unit: '|| nvl(mo_global.get_ou_name(mo_global.get_current_org_id), 'All'));
1402: --End MOAC
1403:
1404: l_default_rs_id := fnd_profile.value('IEX_STRY_DEFAULT_RESOURCE');
1405: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Default Resource Id = '||l_default_rs_id);
1406: WriteLog('Send_Dunning: ' || G_PKG_NAME || ' ' || l_api_name || ' - default_rs_id='||l_default_rs_id);
1407:
1408: if (l_default_rs_id = 0 or l_default_rs_id is null) then
1409: WriteLog('Send_Dunning: ' || G_PKG_NAME || ' ' || l_api_name || ' - CALLBACK_CONCUR:no rs_id');

Line 1419: FND_FILE.PUT_LINE(FND_FILE.LOG, 'no default resource_id');

1415: ( p_count => l_msg_count,
1416: p_data => l_msg_data
1417: );
1418:
1419: FND_FILE.PUT_LINE(FND_FILE.LOG, 'no default resource_id');
1420: errbuf := l_msg_data;
1421: retcode := '2'; --FND_API.G_RET_STS_ERROR;
1422: --retcode := FND_API.G_RET_STS_ERROR;
1423: WriteLog('Send_Dunning: ' || G_PKG_NAME || ' ' || l_api_name || ' - errbuf='||errbuf);

Line 1428: FND_FILE.PUT_LINE(FND_FILE.LOG, errmsg);

1424:
1425: for i in 1..l_msg_count loop
1426: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
1427: p_encoded => 'F');
1428: FND_FILE.PUT_LINE(FND_FILE.LOG, errmsg);
1429: WriteLog('Send_Dunning: ' || G_PKG_NAME || ' ' || l_api_name || ' - errmsg='||errmsg);
1430: end loop;
1431:
1432: --

Line 1447: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Dunning Running Level = '||l_running_level);

1443: END IF;
1444: CLOSE C_GET_LEVEL;
1445:
1446: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - running level='||l_running_level);
1447: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Dunning Running Level = '||l_running_level);
1448: IF (l_running_level is null or l_error = 1) then
1449: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - no running level');
1450: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Dunning Running Level');
1451: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_VALUE');

Line 1450: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Dunning Running Level');

1446: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - running level='||l_running_level);
1447: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Dunning Running Level = '||l_running_level);
1448: IF (l_running_level is null or l_error = 1) then
1449: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - no running level');
1450: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Dunning Running Level');
1451: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_VALUE');
1452: FND_MESSAGE.Set_Token('COLUMN', 'COLLECTIONS DUNNING LEVEL', FALSE);
1453: FND_MSG_PUB.Add;
1454:

Line 1468: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calback_Concur errmsg =' ||errmsg);

1464: for i in 1..l_msg_count loop
1465: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
1466: p_encoded => 'F');
1467: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg='||errmsg);
1468: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calback_Concur errmsg =' ||errmsg);
1469: end loop;
1470: --
1471: else
1472: FND_FILE.PUT_LINE(FND_FILE.LOG, '>>>>>Process Dunning Callbacks');

Line 1472: FND_FILE.PUT_LINE(FND_FILE.LOG, '>>>>>Process Dunning Callbacks');

1468: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calback_Concur errmsg =' ||errmsg);
1469: end loop;
1470: --
1471: else
1472: FND_FILE.PUT_LINE(FND_FILE.LOG, '>>>>>Process Dunning Callbacks');
1473: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - starting Daily_Dunning');
1474: IEX_DUNNING_PUB.Daily_Dunning(
1475: p_api_version => l_api_version
1476: , p_init_msg_list => FND_API.G_TRUE

Line 1485: FND_FILE.PUT_LINE(FND_FILE.LOG, '>>>>>End of Process Dunning Callbacks');

1481: , x_msg_data => ERRBUF
1482: );
1483:
1484: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Daily_Dunning status='||retcode);
1485: FND_FILE.PUT_LINE(FND_FILE.LOG, '>>>>>End of Process Dunning Callbacks');
1486: end if;
1487: --
1488: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - ProcessPromiseCallbacks');
1489: FND_FILE.PUT_LINE(FND_FILE.LOG, '>>>>>Process Promise Callbacks');

Line 1489: FND_FILE.PUT_LINE(FND_FILE.LOG, '>>>>>Process Promise Callbacks');

1485: FND_FILE.PUT_LINE(FND_FILE.LOG, '>>>>>End of Process Dunning Callbacks');
1486: end if;
1487: --
1488: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - ProcessPromiseCallbacks');
1489: FND_FILE.PUT_LINE(FND_FILE.LOG, '>>>>>Process Promise Callbacks');
1490:
1491: IEX_PROMISES_BATCH_PUB.PROCESS_PROMISE_CALLBACKS(
1492: p_api_version => l_api_version
1493: , p_init_msg_list => FND_API.G_TRUE

Line 1501: FND_FILE.PUT_LINE(FND_FILE.LOG, '>>>>>End of Process Promise Callbacks');

1497: , x_msg_data => l_msg_data);
1498:
1499: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - ProcessPromiseCallbacks status='||retcode);
1500: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - End ProcessPromiseCallbacks');
1501: FND_FILE.PUT_LINE(FND_FILE.LOG, '>>>>>End of Process Promise Callbacks');
1502:
1503: end if;
1504:
1505: EXCEPTION

Line 1508: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Callback_Concur Exception');

1504:
1505: EXCEPTION
1506: WHEN OTHERS THEN
1507: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Exception');
1508: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Callback_Concur Exception');
1509: errbuf := SQLERRM;
1510: retcode := '2';
1511: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errbuf='||errbuf);
1512: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Callback_Concur errbuf:'||errbuf);

Line 1512: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Callback_Concur errbuf:'||errbuf);

1508: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Callback_Concur Exception');
1509: errbuf := SQLERRM;
1510: retcode := '2';
1511: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errbuf='||errbuf);
1512: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Callback_Concur errbuf:'||errbuf);
1513:
1514: END CALLBACK_CONCUR;
1515:
1516:

Line 1553: FND_FILE.PUT_LINE(FND_FILE.LOG, 'SEND_DUNNING_CONCUR dunning_plan_id = ' || dunning_plan_id);

1549:
1550: BEGIN
1551:
1552: l_api_name := 'SEND_DUNNING_CONCUR';
1553: FND_FILE.PUT_LINE(FND_FILE.LOG, 'SEND_DUNNING_CONCUR dunning_plan_id = ' || dunning_plan_id);
1554: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RE-RERUN REQUEST: ' || p_previous_request_id);
1555: WriteLog('iexpdunb:starting SEND_DUNNING_CONCUR; dunning_plan_id = ' || dunning_plan_id);
1556: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - start');
1557: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - rerunning request ' || p_previous_request_id);

Line 1554: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RE-RERUN REQUEST: ' || p_previous_request_id);

1550: BEGIN
1551:
1552: l_api_name := 'SEND_DUNNING_CONCUR';
1553: FND_FILE.PUT_LINE(FND_FILE.LOG, 'SEND_DUNNING_CONCUR dunning_plan_id = ' || dunning_plan_id);
1554: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RE-RERUN REQUEST: ' || p_previous_request_id);
1555: WriteLog('iexpdunb:starting SEND_DUNNING_CONCUR; dunning_plan_id = ' || dunning_plan_id);
1556: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - start');
1557: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - rerunning request ' || p_previous_request_id);
1558:

Line 1560: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Org Id:'|| mo_global.get_current_org_id);

1556: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - start');
1557: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - rerunning request ' || p_previous_request_id);
1558:
1559: --Start MOAC
1560: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Org Id:'|| mo_global.get_current_org_id);
1561: --End MOAC
1562:
1563: retcode := FND_API.G_RET_STS_SUCCESS;
1564: --

Line 1565: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'chk bucket');

1561: --End MOAC
1562:
1563: retcode := FND_API.G_RET_STS_SUCCESS;
1564: --
1565: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'chk bucket');
1566: OPEN C_Get_Level (dunning_plan_id);
1567: FETCH C_Get_Level INTO l_running_level;
1568:
1569: IF (C_Get_Level%NOTFOUND)

Line 1575: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'running level='||l_running_level);

1571: l_error := 1;
1572: END IF;
1573: CLOSE C_GET_LEVEL;
1574:
1575: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'running level='||l_running_level);
1576: WriteLog('Send_Dunning: ' || G_PKG_NAME || ' ' || l_api_name || ' - running level='||l_running_level);
1577:
1578: if (l_running_level is null or l_error = 1) then
1579: -- IF PG_DEBUG < 10 THEN

Line 1592: FND_FILE.PUT_LINE(FND_FILE.LOG, 'no running level');

1588: ( p_count => l_msg_count,
1589: p_data => l_msg_data
1590: );
1591:
1592: FND_FILE.PUT_LINE(FND_FILE.LOG, 'no running level');
1593: errbuf := l_msg_data;
1594: retcode := '2';
1595: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errbuf='||errbuf);
1596:

Line 1600: FND_FILE.PUT_LINE(FND_FILE.LOG, errmsg);

1596:
1597: for i in 1..l_msg_count loop
1598: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
1599: p_encoded => 'F');
1600: FND_FILE.PUT_LINE(FND_FILE.LOG, errmsg);
1601: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg='||errmsg);
1602: end loop;
1603: --
1604: else

Line 1606: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'running level='||l_running_level);

1602: end loop;
1603: --
1604: else
1605:
1606: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'running level='||l_running_level);
1607: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'chk bucket');
1608: OPEN C_Get_Bucket (dunning_plan_id) ;
1609: FETCH C_Get_Bucket INTO l_bucket;
1610:

Line 1607: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'chk bucket');

1603: --
1604: else
1605:
1606: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'running level='||l_running_level);
1607: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'chk bucket');
1608: OPEN C_Get_Bucket (dunning_plan_id) ;
1609: FETCH C_Get_Bucket INTO l_bucket;
1610:
1611: IF (C_Get_Bucket%NOTFOUND) THEN

Line 1616: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'Aging Bucket='||l_bucket);

1612: l_error := 1;
1613: END IF;
1614: CLOSE C_GET_Bucket;
1615:
1616: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'Aging Bucket='||l_bucket);
1617: WriteLog('Send_Dunning: ' || G_PKG_NAME || ' ' || l_api_name || ' - bucket='||l_bucket);
1618:
1619: IF (l_bucket is null or l_error = 1) then
1620: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - no bucket');

Line 1631: FND_FILE.PUT_LINE(FND_FILE.LOG, 'no bucket');

1627: ( p_count => l_msg_count,
1628: p_data => l_msg_data
1629: );
1630:
1631: FND_FILE.PUT_LINE(FND_FILE.LOG, 'no bucket');
1632: errbuf := l_msg_data;
1633: retcode := '2';
1634: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errbuf='||errbuf);
1635:

Line 1639: FND_FILE.PUT_LINE(FND_FILE.LOG, errmsg);

1635:
1636: for i in 1..l_msg_count loop
1637: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
1638: p_encoded => 'F');
1639: FND_FILE.PUT_LINE(FND_FILE.LOG, errmsg);
1640: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg='||errmsg);
1641: end loop;
1642:
1643: --

Line 1647: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Dunning Running Level='||l_running_level);

1643: --
1644: ELSE
1645: -- Now, RunningLevel and Bucket are not null;
1646:
1647: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Dunning Running Level='||l_running_level);
1648: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Dunning Aging Bucket='||l_bucket);
1649: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Send_Dunning');
1650: -- IF PG_DEBUG < 10 THEN
1651: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 1648: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Dunning Aging Bucket='||l_bucket);

1644: ELSE
1645: -- Now, RunningLevel and Bucket are not null;
1646:
1647: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Dunning Running Level='||l_running_level);
1648: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Dunning Aging Bucket='||l_bucket);
1649: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Send_Dunning');
1650: -- IF PG_DEBUG < 10 THEN
1651: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1652: iex_debug_pub.LogMessage(G_PKG_NAME || ' ' || l_api_name || ' - runninglevel='||l_running_level);

Line 1649: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Send_Dunning');

1645: -- Now, RunningLevel and Bucket are not null;
1646:
1647: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Dunning Running Level='||l_running_level);
1648: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Dunning Aging Bucket='||l_bucket);
1649: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Send_Dunning');
1650: -- IF PG_DEBUG < 10 THEN
1651: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1652: iex_debug_pub.LogMessage(G_PKG_NAME || ' ' || l_api_name || ' - runninglevel='||l_running_level);
1653: iex_debug_pub.LogMessage(G_PKG_NAME || ' ' || l_api_name || ' - bucket='||l_bucket);

Line 1668: FND_FILE.PUT_LINE(FND_FILE.LOG, 'return_status='||retcode);

1664: , x_msg_count => l_msg_count
1665: , x_msg_data => ERRBUF
1666: );
1667:
1668: FND_FILE.PUT_LINE(FND_FILE.LOG, 'return_status='||retcode);
1669: -- IF PG_DEBUG < 10 THEN
1670: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1671: iex_debug_pub.LogMessage(G_PKG_NAME || ' ' || l_api_name || ' - status='||retcode);
1672: END IF;

Line 1687: FND_FILE.PUT_LINE(FND_FILE.LOG, errmsg);

1683:
1684: for i in 1..l_msg_count loop
1685: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
1686: p_encoded => 'F');
1687: FND_FILE.PUT_LINE(FND_FILE.LOG, errmsg);
1688: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg='||errmsg);
1689: end loop;
1690: END IF;
1691:

Line 1700: FND_FILE.PUT_LINE(FND_FILE.LOG, errbuf);

1696: EXCEPTION
1697: WHEN OTHERS THEN
1698: retcode := '2'; --FND_API.G_RET_STS_UNEXP_ERROR;
1699: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errbuf='||SQLERRM);
1700: FND_FILE.PUT_LINE(FND_FILE.LOG, errbuf);
1701:
1702: END SEND_DUNNING_CONCUR;
1703:
1704: