47: -- Standard Start of API savepoint
48: SAVEPOINT CREATE_AG_DN_PUB;
49:
50: -- Standard call to check for call compatibility.
51: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
52: p_api_version,
53: l_api_name,
54: G_PKG_NAME)
55: THEN
52: p_api_version,
53: l_api_name,
54: G_PKG_NAME)
55: THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
58:
59:
60: -- Initialize message list if p_init_msg_list is set to TRUE.
57: END IF;
58:
59:
60: -- Initialize message list if p_init_msg_list is set to TRUE.
61: IF FND_API.to_Boolean( p_init_msg_list )
62: THEN
63: FND_MSG_PUB.initialize;
64: END IF;
65:
68: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateAgDn: start ');
69:
70:
71: -- Initialize API return status to SUCCESS
72: x_return_status := FND_API.G_RET_STS_SUCCESS;
73:
74: --
75: -- API body
76: --
89: , x_msg_count => x_msg_count
90: , x_msg_data => x_msg_data
91: );
92:
93: IF x_return_status = FND_API.G_RET_STS_ERROR then
94: raise FND_API.G_EXC_ERROR;
95: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
96: raise FND_API.G_EXC_UNEXPECTED_ERROR;
97: END IF;
90: , x_msg_data => x_msg_data
91: );
92:
93: IF x_return_status = FND_API.G_RET_STS_ERROR then
94: raise FND_API.G_EXC_ERROR;
95: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
96: raise FND_API.G_EXC_UNEXPECTED_ERROR;
97: END IF;
98:
91: );
92:
93: IF x_return_status = FND_API.G_RET_STS_ERROR then
94: raise FND_API.G_EXC_ERROR;
95: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
96: raise FND_API.G_EXC_UNEXPECTED_ERROR;
97: END IF;
98:
99: l_ag_dn_xref_id_tbl(i) := x_ag_dn_xref_id;
92:
93: IF x_return_status = FND_API.G_RET_STS_ERROR then
94: raise FND_API.G_EXC_ERROR;
95: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
96: raise FND_API.G_EXC_UNEXPECTED_ERROR;
97: END IF;
98:
99: l_ag_dn_xref_id_tbl(i) := x_ag_dn_xref_id;
100:
107: -- End of API body
108: --
109:
110: -- Standard check for p_commit
111: IF FND_API.to_Boolean( p_commit )
112: THEN
113: COMMIT WORK;
114: END IF;
115:
123: p_data => x_msg_data
124: );
125:
126: EXCEPTION
127: WHEN FND_API.G_EXC_ERROR THEN
128: x_return_status := FND_API.G_RET_STS_ERROR;
129: ROLLBACK TO Create_Ag_Dn_PUB;
130: -- added by gnramasa for bug 5661324 14-Mar-07
131: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
124: );
125:
126: EXCEPTION
127: WHEN FND_API.G_EXC_ERROR THEN
128: x_return_status := FND_API.G_RET_STS_ERROR;
129: ROLLBACK TO Create_Ag_Dn_PUB;
130: -- added by gnramasa for bug 5661324 14-Mar-07
131: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
132: FND_MSG_PUB.Count_And_Get
132: FND_MSG_PUB.Count_And_Get
133: ( p_count => x_msg_count,
134: p_data => x_msg_data );
135:
136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
138: ROLLBACK TO Create_Ag_Dn_PUB;
139: -- added by gnramasa for bug 5661324 14-Mar-07
140: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
133: ( p_count => x_msg_count,
134: p_data => x_msg_data );
135:
136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
138: ROLLBACK TO Create_Ag_Dn_PUB;
139: -- added by gnramasa for bug 5661324 14-Mar-07
140: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
141: FND_MSG_PUB.Count_And_Get
142: ( p_count => x_msg_count,
143: p_data => x_msg_data );
144:
145: WHEN OTHERS THEN
146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
147: ROLLBACK TO Create_Ag_Dn_PUB;
148: -- added by gnramasa for bug 5661324 14-Mar-07
149: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
150: WriteLog('iexpdunb:CreateAgDn:Exc Exception');
179: SAVEPOINT UPDATE_AG_DN_PUB;
180:
181:
182: -- Initialize message list if p_init_msg_list is set to TRUE.
183: IF FND_API.to_Boolean( p_init_msg_list )
184: THEN
185: FND_MSG_PUB.initialize;
186: END IF;
187:
190: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UpdateAgDn: Start ');
191:
192:
193: -- Initialize API return status to SUCCESS
194: x_return_status := FND_API.G_RET_STS_SUCCESS;
195:
196: --
197: -- Api body
198: --
212: , x_msg_count => x_msg_count
213: , x_msg_data => x_msg_data
214: );
215:
216: IF x_return_status = FND_API.G_RET_STS_ERROR then
217: raise FND_API.G_EXC_ERROR;
218: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
219: raise FND_API.G_EXC_UNEXPECTED_ERROR;
220: END IF;
213: , x_msg_data => x_msg_data
214: );
215:
216: IF x_return_status = FND_API.G_RET_STS_ERROR then
217: raise FND_API.G_EXC_ERROR;
218: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
219: raise FND_API.G_EXC_UNEXPECTED_ERROR;
220: END IF;
221: END LOOP;
214: );
215:
216: IF x_return_status = FND_API.G_RET_STS_ERROR then
217: raise FND_API.G_EXC_ERROR;
218: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
219: raise FND_API.G_EXC_UNEXPECTED_ERROR;
220: END IF;
221: END LOOP;
222:
215:
216: IF x_return_status = FND_API.G_RET_STS_ERROR then
217: raise FND_API.G_EXC_ERROR;
218: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
219: raise FND_API.G_EXC_UNEXPECTED_ERROR;
220: END IF;
221: END LOOP;
222:
223: --
224: -- End of API body.
225: --
226:
227: -- Standard check for p_commit
228: IF FND_API.to_Boolean( p_commit )
229: THEN
230: COMMIT WORK;
231: END IF;
232:
239: ( p_count => x_msg_count,
240: p_data => x_msg_data );
241:
242: EXCEPTION
243: WHEN FND_API.G_EXC_ERROR THEN
244: x_return_status := FND_API.G_RET_STS_ERROR;
245: ROLLBACK TO Update_Ag_Dn_PUB;
246: -- Changed by gnramasa for bug 5661324 14-Mar-07
247: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UpdateAgDn:Exc Exception');
240: p_data => x_msg_data );
241:
242: EXCEPTION
243: WHEN FND_API.G_EXC_ERROR THEN
244: x_return_status := FND_API.G_RET_STS_ERROR;
245: ROLLBACK TO Update_Ag_Dn_PUB;
246: -- Changed by gnramasa for bug 5661324 14-Mar-07
247: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UpdateAgDn:Exc Exception');
248: errmsg := SQLERRM;
250: FND_MSG_PUB.Count_And_Get
251: ( p_count => x_msg_count,
252: p_data => x_msg_data );
253:
254: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
256: ROLLBACK TO Update_Ag_Dn_PUB;
257: -- Changed by gnramasa for bug 5661324 14-Mar-07
258: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UpdateAgDn:Exc Exception');
251: ( p_count => x_msg_count,
252: p_data => x_msg_data );
253:
254: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
256: ROLLBACK TO Update_Ag_Dn_PUB;
257: -- Changed by gnramasa for bug 5661324 14-Mar-07
258: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UpdateAgDn:Exc Exception');
259: errmsg := SQLERRM;
262: ( p_count => x_msg_count,
263: p_data => x_msg_data );
264:
265: WHEN OTHERS THEN
266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
267: ROLLBACK TO Update_Ag_Dn_PUB;
268: -- Changed by gnramasa for bug 5661324 14-Mar-07
269: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UpdateAgDn:Exc Exception');
270: errmsg := SQLERRM;
302: SAVEPOINT DELETE_AG_DN_PUB;
303:
304:
305: -- Initialize message list if p_init_msg_list is set to TRUE.
306: IF FND_API.to_Boolean( p_init_msg_list )
307: THEN
308: FND_MSG_PUB.initialize;
309: END IF;
310:
313: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start ');
314:
315:
316: -- Initialize API return status to SUCCESS
317: x_return_status := FND_API.G_RET_STS_SUCCESS;
318:
319: --
320: -- Api body
321: --
328: , x_msg_count => x_msg_count
329: , x_msg_data => x_msg_data
330: );
331:
332: IF x_return_status = FND_API.G_RET_STS_ERROR then
333: raise FND_API.G_EXC_ERROR;
334: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
335: raise FND_API.G_EXC_UNEXPECTED_ERROR;
336: END IF;
329: , x_msg_data => x_msg_data
330: );
331:
332: IF x_return_status = FND_API.G_RET_STS_ERROR then
333: raise FND_API.G_EXC_ERROR;
334: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
335: raise FND_API.G_EXC_UNEXPECTED_ERROR;
336: END IF;
337:
330: );
331:
332: IF x_return_status = FND_API.G_RET_STS_ERROR then
333: raise FND_API.G_EXC_ERROR;
334: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
335: raise FND_API.G_EXC_UNEXPECTED_ERROR;
336: END IF;
337:
338: --
331:
332: IF x_return_status = FND_API.G_RET_STS_ERROR then
333: raise FND_API.G_EXC_ERROR;
334: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
335: raise FND_API.G_EXC_UNEXPECTED_ERROR;
336: END IF;
337:
338: --
339: -- End of API body
339: -- End of API body
340: --
341:
342: -- Standard check for p_commit
343: IF FND_API.to_Boolean( p_commit )
344: THEN
345: COMMIT WORK;
346: END IF;
347:
353: ( p_count => x_msg_count,
354: p_data => x_msg_data );
355:
356: EXCEPTION
357: WHEN FND_API.G_EXC_ERROR THEN
358: x_return_status := FND_API.G_RET_STS_ERROR;
359: ROLLBACK TO Delete_Ag_Dn_PUB;
360: -- Changed by gnramasa for bug 5661324 14-Mar-07
361: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
354: p_data => x_msg_data );
355:
356: EXCEPTION
357: WHEN FND_API.G_EXC_ERROR THEN
358: x_return_status := FND_API.G_RET_STS_ERROR;
359: ROLLBACK TO Delete_Ag_Dn_PUB;
360: -- Changed by gnramasa for bug 5661324 14-Mar-07
361: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
362: FND_MSG_PUB.Count_And_Get
362: FND_MSG_PUB.Count_And_Get
363: ( p_count => x_msg_count,
364: p_data => x_msg_data );
365:
366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
368: ROLLBACK TO Delete_Ag_Dn_PUB;
369: -- Changed by gnramasa for bug 5661324 14-Mar-07
370: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
363: ( p_count => x_msg_count,
364: p_data => x_msg_data );
365:
366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
368: ROLLBACK TO Delete_Ag_Dn_PUB;
369: -- Changed by gnramasa for bug 5661324 14-Mar-07
370: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
371: FND_MSG_PUB.Count_And_Get
372: ( p_count => x_msg_count,
373: p_data => x_msg_data );
374:
375: WHEN OTHERS THEN
376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
377: ROLLBACK TO Delete_Ag_Dn_PUB;
378: -- Changed by gnramasa for bug 5661324 14-Mar-07
379: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
380: FND_MSG_PUB.Count_And_Get
715: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - p_parent_request_id '||p_parent_request_id);
716: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - dunning_plan_id '||p_dunning_plan_id);
717:
718: -- Initialize message list if p_init_msg_list is set to TRUE.
719: IF FND_API.to_Boolean( p_init_msg_list )
720: THEN
721: FND_MSG_PUB.initialize;
722: END IF;
723:
724: -- Debug Message
725:
726: if (p_dunning_plan_id is null)
727: THEN
728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
729: END IF;
730: -- Initialize API return status to SUCCESS
731: x_return_status := FND_API.G_RET_STS_SUCCESS;
732:
727: THEN
728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
729: END IF;
730: -- Initialize API return status to SUCCESS
731: x_return_status := FND_API.G_RET_STS_SUCCESS;
732:
733: select nvl(dunning_type,'DAYS_OVERDUE'),dunning_letter_set_id --Added for Bug 11656175 01-Mar-2011 barathsr
734: into l_dunning_type,l_dunning_letter_set_id
735: from IEX_DUNNING_PLANS_B
744: If ( C_GET_Bucket%NOTFOUND ) Then
745: -- Changed by gnramasa for bug 5661324 14-Mar-07
746: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - NO Bucket');
747: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Bucket');
748: x_return_status := FND_API.G_RET_STS_ERROR;
749: RAISE FND_API.G_EXC_ERROR;
750: end if;
751: CLOSE C_GET_Bucket;
752: -- Changed by gnramasa for bug 5661324 14-Mar-07
745: -- Changed by gnramasa for bug 5661324 14-Mar-07
746: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - NO Bucket');
747: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Bucket');
748: x_return_status := FND_API.G_RET_STS_ERROR;
749: RAISE FND_API.G_EXC_ERROR;
750: end if;
751: CLOSE C_GET_Bucket;
752: -- Changed by gnramasa for bug 5661324 14-Mar-07
753: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Bucket='||l_bucket);
761: Fetch c_filter_object into l_select_column,l_entity_name;
762: If ( c_filter_object%NOTFOUND ) Then
763: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - NO filter object');
764: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No filter object');
765: x_return_status := FND_API.G_RET_STS_ERROR;
766: RAISE FND_API.G_EXC_ERROR;
767: end if;
768: CLOSE c_filter_object;
769: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_select_column: '|| l_select_column);
762: If ( c_filter_object%NOTFOUND ) Then
763: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - NO filter object');
764: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No filter object');
765: x_return_status := FND_API.G_RET_STS_ERROR;
766: RAISE FND_API.G_EXC_ERROR;
767: end if;
768: CLOSE c_filter_object;
769: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_select_column: '|| l_select_column);
770: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - l_entity_name: '||l_entity_name);
1119: end if;
1120:
1121: IF l_return_status = 'SKIP' then
1122: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - skip this account');
1123: l_return_status := FND_API.G_RET_STS_SUCCESS;
1124:
1125: elsif l_return_status = 'X' then
1126: if l_repeat then
1127: WriteLog('get scoring engine');
1132: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine Name: ' || l_score_engine_name);
1133: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring Engine ID: ' || l_score_engine_id);
1134: l_repeat := false;
1135: else
1136: l_return_status := FND_API.G_RET_STS_SUCCESS;
1137: end if;
1138:
1139: ELSIF l_return_status = FND_API.G_RET_STS_ERROR then
1140: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - send_level_Failed - CONTINUE');
1135: else
1136: l_return_status := FND_API.G_RET_STS_SUCCESS;
1137: end if;
1138:
1139: ELSIF l_return_status = FND_API.G_RET_STS_ERROR then
1140: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - send_level_Failed - CONTINUE');
1141: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1142: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - send_level_Failed - CONTINUE');
1143: END IF;
1137: end if;
1138:
1139: ELSIF l_return_status = FND_API.G_RET_STS_ERROR then
1140: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - send_level_Failed - CONTINUE');
1141: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1142: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - send_level_Failed - CONTINUE');
1143: END IF;
1144:
1145: --end if; --if l_confirmation_mode is NULL then
1161: Fetch C_Get_DEL into l_del_id, l_party_id, l_account_id, l_customer_site_use_id, l_score;
1162:
1163: --If ( C_GET_DEL%NOTFOUND ) Then
1164: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Delinquency');
1165: -- x_return_status := FND_API.G_RET_STS_ERROR;
1166: --end if;
1167:
1168: exit when C_GET_DEL%NOTFOUND;
1169: */
1304: end if;
1305:
1306: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CloseDunning status='|| l_return_status);
1307:
1308: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1309: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Close Dunning');
1310: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot Close Dunning');
1311: l_return_status := FND_API.G_RET_STS_ERROR;
1312: END IF;
1307:
1308: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1309: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot Close Dunning');
1310: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot Close Dunning');
1311: l_return_status := FND_API.G_RET_STS_ERROR;
1312: END IF;
1313:
1314: --elsif l_confirmation_mode = 'REJECT' then
1315: -- l_dunning_rec_upd.confirmation_mode := 'REJECTED';
1319: l_dunning_rec_upd.status := 'OPEN';
1320:
1321: IEX_DUNNING_PVT.Update_DUNNING(
1322: p_api_version => 1.0
1323: , p_init_msg_list => FND_API.G_FALSE
1324: , p_commit => FND_API.G_TRUE
1325: , p_dunning_rec => l_dunning_rec_upd
1326: , x_return_status => l_return_status
1327: , x_msg_count => l_msg_count
1320:
1321: IEX_DUNNING_PVT.Update_DUNNING(
1322: p_api_version => 1.0
1323: , p_init_msg_list => FND_API.G_FALSE
1324: , p_commit => FND_API.G_TRUE
1325: , p_dunning_rec => l_dunning_rec_upd
1326: , x_return_status => l_return_status
1327: , x_msg_count => l_msg_count
1328: , x_msg_data => l_msg_data
1528: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start stage_dunning_inv_copy');
1529:
1530: IEX_DUNNING_PVT.stage_dunning_inv_copy(
1531: p_api_version => 1.0
1532: , p_init_msg_list => FND_API.G_FALSE
1533: , p_commit => FND_API.G_TRUE
1534: , p_no_of_workers => l_no_of_workers
1535: , p_process_err_rec_only => p_process_err_rec_only
1536: , p_request_id => l_req_id
1529:
1530: IEX_DUNNING_PVT.stage_dunning_inv_copy(
1531: p_api_version => 1.0
1532: , p_init_msg_list => FND_API.G_FALSE
1533: , p_commit => FND_API.G_TRUE
1534: , p_no_of_workers => l_no_of_workers
1535: , p_process_err_rec_only => p_process_err_rec_only
1536: , p_request_id => l_req_id
1537: , p_dunning_mode => p_dunning_mode
1546:
1547: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Return status of IEX_DUNNING_PVT.stage_dunning_inv_copy='||l_return_status);
1548: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Return status of IEX_DUNNING_PVT.stage_dunning_inv_copy='||l_return_status);
1549:
1550: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1551: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot create invoice copy');
1552: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot create invoice copy');
1553: l_return_status := FND_API.G_RET_STS_ERROR;
1554: END IF;
1549:
1550: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1551: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Cannot create invoice copy');
1552: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cannot create invoice copy');
1553: l_return_status := FND_API.G_RET_STS_ERROR;
1554: END IF;
1555: END IF;
1556: END IF; --IF (l_dunn_invoice_ct is null or l_dunn_invoice_ct = 0) then
1557:
1597:
1598: --*/
1599: -- Start bug 5924158 05/06/07 by gnramasa
1600: /* x_return_status := l_return_status;
1601: IF l_return_status = FND_API.G_RET_STS_ERROR then
1602: raise FND_API.G_EXC_ERROR;
1603: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1604: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1605: END IF;
1598: --*/
1599: -- Start bug 5924158 05/06/07 by gnramasa
1600: /* x_return_status := l_return_status;
1601: IF l_return_status = FND_API.G_RET_STS_ERROR then
1602: raise FND_API.G_EXC_ERROR;
1603: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1604: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1605: END IF;
1606: */
1599: -- Start bug 5924158 05/06/07 by gnramasa
1600: /* x_return_status := l_return_status;
1601: IF l_return_status = FND_API.G_RET_STS_ERROR then
1602: raise FND_API.G_EXC_ERROR;
1603: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1604: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1605: END IF;
1606: */
1607: -- End bug 5924158 05/06/07 by gnramasa
1600: /* x_return_status := l_return_status;
1601: IF l_return_status = FND_API.G_RET_STS_ERROR then
1602: raise FND_API.G_EXC_ERROR;
1603: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1604: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1605: END IF;
1606: */
1607: -- End bug 5924158 05/06/07 by gnramasa
1608: --
1611:
1612: <
1613: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - commit');
1614: -- Standard check for p_commit
1615: IF FND_API.to_Boolean( p_commit )
1616: THEN
1617: COMMIT WORK;
1618: END IF;
1619:
1723: ( p_count => x_msg_count,
1724: p_data => x_msg_data );
1725:
1726: EXCEPTION
1727: WHEN FND_API.G_EXC_ERROR THEN
1728: x_return_status := FND_API.G_RET_STS_ERROR;
1729: ROLLBACK TO Send_DUNNING_PUB;
1730: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
1731: FND_MSG_PUB.Count_And_Get
1724: p_data => x_msg_data );
1725:
1726: EXCEPTION
1727: WHEN FND_API.G_EXC_ERROR THEN
1728: x_return_status := FND_API.G_RET_STS_ERROR;
1729: ROLLBACK TO Send_DUNNING_PUB;
1730: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
1731: FND_MSG_PUB.Count_And_Get
1732: ( p_count => x_msg_count,
1731: FND_MSG_PUB.Count_And_Get
1732: ( p_count => x_msg_count,
1733: p_data => x_msg_data );
1734:
1735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1737: ROLLBACK TO Send_DUNNING_PUB;
1738: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
1739: FND_MSG_PUB.Count_And_Get
1732: ( p_count => x_msg_count,
1733: p_data => x_msg_data );
1734:
1735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1737: ROLLBACK TO Send_DUNNING_PUB;
1738: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
1739: FND_MSG_PUB.Count_And_Get
1740: ( p_count => x_msg_count,
1740: ( p_count => x_msg_count,
1741: p_data => x_msg_data );
1742:
1743: WHEN OTHERS THEN
1744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1745: ROLLBACK TO Send_DUNNING_PUB;
1746: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
1747: FND_MSG_PUB.Count_And_Get
1748: ( p_count => x_msg_count,
1771: -- Standard Start of API savepoint
1772: SAVEPOINT DAILY_DUNNING_PUB;
1773:
1774: -- Initialize message list if p_init_msg_list is set to TRUE.
1775: IF FND_API.to_Boolean( p_init_msg_list )
1776: THEN
1777: FND_MSG_PUB.initialize;
1778: END IF;
1779:
1781: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
1782: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - running_level='||p_running_level);
1783:
1784: -- Initialize API return status to SUCCESS
1785: x_return_status := FND_API.G_RET_STS_SUCCESS;
1786:
1787: --
1788: -- Api body
1789: --
1802: );
1803:
1804: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status='||x_return_status);
1805:
1806: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1807: IF x_return_status = FND_API.G_RET_STS_ERROR then
1808: raise FND_API.G_EXC_ERROR;
1809: else
1810: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1803:
1804: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status='||x_return_status);
1805:
1806: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1807: IF x_return_status = FND_API.G_RET_STS_ERROR then
1808: raise FND_API.G_EXC_ERROR;
1809: else
1810: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1811: END IF;
1804: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status='||x_return_status);
1805:
1806: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1807: IF x_return_status = FND_API.G_RET_STS_ERROR then
1808: raise FND_API.G_EXC_ERROR;
1809: else
1810: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1811: END IF;
1812: END IF;
1806: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1807: IF x_return_status = FND_API.G_RET_STS_ERROR then
1808: raise FND_API.G_EXC_ERROR;
1809: else
1810: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1811: END IF;
1812: END IF;
1813:
1814: --
1815: -- End of API body
1816: --
1817:
1818: -- Standard check for p_commit
1819: IF FND_API.to_Boolean( p_commit )
1820: THEN
1821: COMMIT WORK;
1822: END IF;
1823:
1828: ( p_count => x_msg_count,
1829: p_data => x_msg_data );
1830:
1831: EXCEPTION
1832: WHEN FND_API.G_EXC_ERROR THEN
1833: x_return_status := FND_API.G_RET_STS_ERROR;
1834: ROLLBACK TO DAILY_DUNNING_PUB;
1835: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
1836: FND_MSG_PUB.Count_And_Get
1829: p_data => x_msg_data );
1830:
1831: EXCEPTION
1832: WHEN FND_API.G_EXC_ERROR THEN
1833: x_return_status := FND_API.G_RET_STS_ERROR;
1834: ROLLBACK TO DAILY_DUNNING_PUB;
1835: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
1836: FND_MSG_PUB.Count_And_Get
1837: ( p_count => x_msg_count,
1836: FND_MSG_PUB.Count_And_Get
1837: ( p_count => x_msg_count,
1838: p_data => x_msg_data );
1839:
1840: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1842: ROLLBACK TO DAILY_DUNNING_PUB;
1843: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
1844: FND_MSG_PUB.Count_And_Get
1837: ( p_count => x_msg_count,
1838: p_data => x_msg_data );
1839:
1840: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1842: ROLLBACK TO DAILY_DUNNING_PUB;
1843: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
1844: FND_MSG_PUB.Count_And_Get
1845: ( p_count => x_msg_count,
1845: ( p_count => x_msg_count,
1846: p_data => x_msg_data );
1847:
1848: WHEN OTHERS THEN
1849: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1850: ROLLBACK TO DAILY_DUNNING_PUB;
1851: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
1852: FND_MSG_PUB.Count_And_Get
1853: ( p_count => x_msg_count,
1908: );
1909:
1910: FND_FILE.PUT_LINE(FND_FILE.LOG, 'no default resource_id');
1911: errbuf := l_msg_data;
1912: retcode := '2'; --FND_API.G_RET_STS_ERROR;
1913: --retcode := FND_API.G_RET_STS_ERROR;
1914: WriteLog('Send_Dunning: ' || G_PKG_NAME || ' ' || l_api_name || ' - errbuf='||errbuf);
1915:
1916: for i in 1..l_msg_count loop
1909:
1910: FND_FILE.PUT_LINE(FND_FILE.LOG, 'no default resource_id');
1911: errbuf := l_msg_data;
1912: retcode := '2'; --FND_API.G_RET_STS_ERROR;
1913: --retcode := FND_API.G_RET_STS_ERROR;
1914: WriteLog('Send_Dunning: ' || G_PKG_NAME || ' ' || l_api_name || ' - errbuf='||errbuf);
1915:
1916: for i in 1..l_msg_count loop
1917: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
1948: p_data => l_msg_data
1949: );
1950:
1951: errbuf := l_msg_data;
1952: retcode := '2'; --FND_API.G_RET_STS_ERROR;
1953: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errbuf='||errbuf);
1954:
1955: for i in 1..l_msg_count loop
1956: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
1963: FND_FILE.PUT_LINE(FND_FILE.LOG, '>>>>>Process Dunning Callbacks');
1964: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - starting Daily_Dunning');
1965: IEX_DUNNING_PUB.Daily_Dunning(
1966: p_api_version => l_api_version
1967: , p_init_msg_list => FND_API.G_TRUE
1968: , p_commit => FND_API.G_TRUE
1969: , p_running_level => l_running_level
1970: , x_return_status => RETCODE
1971: , x_msg_count => l_msg_count
1964: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - starting Daily_Dunning');
1965: IEX_DUNNING_PUB.Daily_Dunning(
1966: p_api_version => l_api_version
1967: , p_init_msg_list => FND_API.G_TRUE
1968: , p_commit => FND_API.G_TRUE
1969: , p_running_level => l_running_level
1970: , x_return_status => RETCODE
1971: , x_msg_count => l_msg_count
1972: , x_msg_data => ERRBUF
1980: FND_FILE.PUT_LINE(FND_FILE.LOG, '>>>>>Process Promise Callbacks');
1981:
1982: IEX_PROMISES_BATCH_PUB.PROCESS_PROMISE_CALLBACKS(
1983: p_api_version => l_api_version
1984: , p_init_msg_list => FND_API.G_TRUE
1985: , p_commit => FND_API.G_TRUE
1986: , x_return_status => RETCODE
1987: , x_msg_count => ERRBUF
1988: , x_msg_data => l_msg_data);
1981:
1982: IEX_PROMISES_BATCH_PUB.PROCESS_PROMISE_CALLBACKS(
1983: p_api_version => l_api_version
1984: , p_init_msg_list => FND_API.G_TRUE
1985: , p_commit => FND_API.G_TRUE
1986: , x_return_status => RETCODE
1987: , x_msg_count => ERRBUF
1988: , x_msg_data => l_msg_data);
1989:
2289: end if;
2290: end if;
2291: -- End added by snuthala for bug 10221334 21/10/2010
2292:
2293: retcode := FND_API.G_RET_STS_SUCCESS;
2294: --
2295: open c_dunning_type (dunning_plan_id);
2296: fetch c_dunning_type into l_dunning_type;
2297: close c_dunning_type;
2324: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Profile - IEX: Minimum Dunning Amount Profile Check= '||l_cust_prof_chk);
2325: FND_FILE.PUT_LINE(FND_FILE.LOG, ' When Dunning level is Account, value of profile "IEX: Minimum Dunning Amount Profile Check" can''t be "Bill To" or "Bill To and Account". ');
2326: l_con_update_re_st := fnd_concurrent.set_completion_status (status => 'ERROR',
2327: message => ' When Dunning level is Account, value of profile "IEX: Minimum Dunning Amount Profile Check" can''t be "Bill To" or "Bill To and Account". ');
2328: retcode := FND_API.G_RET_STS_ERROR;
2329: Return;
2330: end if;
2331: --end bug 15933013
2332: if (l_running_level is null or l_error = 1) then
2411: l_correspondence_date := trunc(nvl(to_date(substr(p_correspondence_date, 1, 10), 'YYYY/MM/DD'),to_date(to_char(sysdate,'YYYY/MM/DD'),'YYYY/MM/DD')));
2412:
2413: IEX_DUNNING_PUB.SEND_DUNNING(
2414: p_api_version => l_api_version
2415: , p_init_msg_list => FND_API.G_TRUE
2416: , p_commit => FND_API.G_TRUE
2417: , p_running_level => l_running_level
2418: , p_parent_request_id => p_parent_request_id
2419: , p_dunning_plan_id => dunning_plan_id
2412:
2413: IEX_DUNNING_PUB.SEND_DUNNING(
2414: p_api_version => l_api_version
2415: , p_init_msg_list => FND_API.G_TRUE
2416: , p_commit => FND_API.G_TRUE
2417: , p_running_level => l_running_level
2418: , p_parent_request_id => p_parent_request_id
2419: , p_dunning_plan_id => dunning_plan_id
2420: , p_correspondence_date => l_correspondence_date
2439: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2440: iex_debug_pub.LogMessage(G_PKG_NAME || ' ' || l_api_name || ' - status='||retcode);
2441: END IF;
2442:
2443: IF (retcode <> FND_API.G_RET_STS_SUCCESS) THEN
2444: FND_MSG_PUB.Count_And_Get
2445: ( p_count => l_msg_count,
2446: p_data => l_msg_data
2447: );
2463: End if; -- END of Chk RunningLevel
2464:
2465: EXCEPTION
2466: WHEN OTHERS THEN
2467: retcode := '2'; --FND_API.G_RET_STS_UNEXP_ERROR;
2468: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errbuf='||SQLERRM);
2469: FND_FILE.PUT_LINE(FND_FILE.LOG, errbuf);
2470:
2471: END SEND_DUNNING_CONCUR;
2610: elsif l_business_level = 'DELINQUENCY' then
2611: l_score_id := 2;
2612: end if;
2613:
2614: retcode := FND_API.G_RET_STS_SUCCESS;
2615:
2616: open c_template_id;
2617: fetch c_template_id into l_template_id;
2618: close c_template_id;
2967: end if;
2968:
2969: EXCEPTION
2970: WHEN OTHERS THEN
2971: retcode := '2'; --FND_API.G_RET_STS_UNEXP_ERROR;
2972: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errbuf='||SQLERRM);
2973: FND_FILE.PUT_LINE(FND_FILE.LOG, errbuf);
2974:
2975: END STG_DUNNING_MIG_CONCUR;