147:
148: amount := 0;
149: total := 0;
150: -- Standard call to check for call compatibility.
151: IF NOT FND_API.Compatible_API_Call (l_api_version,
152: p_api_version,
153: l_api_name,
154: G_PKG_NAME) THEN
155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
151: IF NOT FND_API.Compatible_API_Call (l_api_version,
152: p_api_version,
153: l_api_name,
154: G_PKG_NAME) THEN
155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
156: END IF;
157:
158: -- Check p_init_msg_list
159: IF FND_API.to_Boolean( p_init_msg_list ) THEN
155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
156: END IF;
157:
158: -- Check p_init_msg_list
159: IF FND_API.to_Boolean( p_init_msg_list ) THEN
160: FND_MSG_PUB.initialize;
161: END IF;
162:
163: x_return_status := FND_API.G_RET_STS_SUCCESS;
159: IF FND_API.to_Boolean( p_init_msg_list ) THEN
160: FND_MSG_PUB.initialize;
161: END IF;
162:
163: x_return_status := FND_API.G_RET_STS_SUCCESS;
164:
165: SELECT nvl( SUM (acctd_amount_due_remaining), 0) AMOUNT
166: into Amount
167: FROM AR_PAYMENT_SCHEDULES
197: total := total + amount ;
198: x_balance := total ;
199:
200: -- Standard check of p_commit
201: IF FND_API.To_Boolean(p_commit) THEN
202: COMMIT WORK;
203: END IF;
204:
205: -- Standard call to get message count and if count is 1, get message info
205: -- Standard call to get message count and if count is 1, get message info
206: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
207:
208: EXCEPTION
209: WHEN FND_API.G_EXC_ERROR THEN
210: ROLLBACK TO Acct_Balance_PVT;
211: x_return_status := FND_API.G_RET_STS_ERROR;
212: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
213:
207:
208: EXCEPTION
209: WHEN FND_API.G_EXC_ERROR THEN
210: ROLLBACK TO Acct_Balance_PVT;
211: x_return_status := FND_API.G_RET_STS_ERROR;
212: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
213:
214: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
215: ROLLBACK TO Acct_Balance_PVT;
210: ROLLBACK TO Acct_Balance_PVT;
211: x_return_status := FND_API.G_RET_STS_ERROR;
212: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
213:
214: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
215: ROLLBACK TO Acct_Balance_PVT;
216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
217: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
218:
212: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
213:
214: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
215: ROLLBACK TO Acct_Balance_PVT;
216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
217: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
218:
219: WHEN OTHERS THEN
220: ROLLBACK TO Acct_Balance_PVT;
217: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
218:
219: WHEN OTHERS THEN
220: ROLLBACK TO Acct_Balance_PVT;
221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
222: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
223: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
224: END IF;
225: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
260: -- Standard Start of API savepoint
261: SAVEPOINT Validate_any_id_PVT;
262:
263: -- Initialize API return status to SUCCESS
264: x_return_status := FND_API.G_RET_STS_SUCCESS;
265:
266: vstr1 := ' Select ''X'' ';
267: vstr2 := ' From ';
268: vstr3 := ' Where exists ';
272: vstr7 := ' = :a1)';
273:
274:
275: -- Standard call to check for call compatibility.
276: IF NOT FND_API.Compatible_API_Call (l_api_version,
277: p_api_version,
278: l_api_name,
279: G_PKG_NAME)
280: THEN
277: p_api_version,
278: l_api_name,
279: G_PKG_NAME)
280: THEN
281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
282: END IF;
283:
284: -- Initialize message list if p_init_msg_list is set to TRUE.
285: IF FND_API.to_Boolean(p_init_msg_list)
281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
282: END IF;
283:
284: -- Initialize message list if p_init_msg_list is set to TRUE.
285: IF FND_API.to_Boolean(p_init_msg_list)
286: THEN
287: FND_MSG_PUB.initialize;
288: END IF;
289:
316:
317: if valid_id%FOUND then
318: --dbms_output.put_line('FOUND!!');
319: WriteLog('iexvutlb:validateid:Found!');
320: l_return_status := FND_API.G_RET_STS_SUCCESS;
321: else
322: --dbms_output.put_line('NOT FOUND!!');
323: WriteLog('iexvutlb:validateid:NotFound!');
324: l_return_status := FND_API.G_RET_STS_ERROR;
320: l_return_status := FND_API.G_RET_STS_SUCCESS;
321: else
322: --dbms_output.put_line('NOT FOUND!!');
323: WriteLog('iexvutlb:validateid:NotFound!');
324: l_return_status := FND_API.G_RET_STS_ERROR;
325: end if;
326: CLOSE valid_id;
327:
328: x_return_status := l_return_status;
327:
328: x_return_status := l_return_status;
329:
330: EXCEPTION
331: WHEN FND_API.G_EXC_ERROR THEN
332: ROLLBACK TO Validate_any_id_PVT;
333: x_return_status := FND_API.G_RET_STS_ERROR;
334: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
335:
329:
330: EXCEPTION
331: WHEN FND_API.G_EXC_ERROR THEN
332: ROLLBACK TO Validate_any_id_PVT;
333: x_return_status := FND_API.G_RET_STS_ERROR;
334: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
335:
336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
337: ROLLBACK TO Validate_any_id_PVT;
332: ROLLBACK TO Validate_any_id_PVT;
333: x_return_status := FND_API.G_RET_STS_ERROR;
334: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
335:
336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
337: ROLLBACK TO Validate_any_id_PVT;
338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
339: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
340:
334: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
335:
336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
337: ROLLBACK TO Validate_any_id_PVT;
338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
339: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
340:
341: WHEN OTHERS THEN
342: ROLLBACK TO Validate_any_id_PVT;
339: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
340:
341: WHEN OTHERS THEN
342: ROLLBACK TO Validate_any_id_PVT;
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
344: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
345: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
346: END IF;
347: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
384: -- Standard Start of API savepoint
385: SAVEPOINT Validate_any_varchar_PVT;
386:
387: -- Initialize API return status to SUCCESS
388: x_return_status := FND_API.G_RET_STS_SUCCESS;
389:
390:
391: vstr1 := ' Select ''X'' ';
392: vstr2 := ' From ';
396: vstr6 := ' Where ' ;
397: vstr7 := ' = :a1)';
398:
399: -- Standard call to check for call compatibility.
400: IF NOT FND_API.Compatible_API_Call (l_api_version,
401: p_api_version,
402: l_api_name,
403: G_PKG_NAME)
404: THEN
401: p_api_version,
402: l_api_name,
403: G_PKG_NAME)
404: THEN
405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
406: END IF;
407:
408: -- Initialize message list if p_init_msg_list is set to TRUE.
409: IF FND_API.to_Boolean(p_init_msg_list)
405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
406: END IF;
407:
408: -- Initialize message list if p_init_msg_list is set to TRUE.
409: IF FND_API.to_Boolean(p_init_msg_list)
410: THEN
411: FND_MSG_PUB.initialize;
412: END IF;
413:
436: FETCH valid_id INTO count_id;
437:
438: if valid_id%FOUND then
439: --dbms_output.put_line('FOUND!!');
440: l_return_status := FND_API.G_RET_STS_SUCCESS;
441: else
442: --dbms_output.put_line('NOT FOUND!!');
443: l_return_status := FND_API.G_RET_STS_ERROR;
444: end if;
439: --dbms_output.put_line('FOUND!!');
440: l_return_status := FND_API.G_RET_STS_SUCCESS;
441: else
442: --dbms_output.put_line('NOT FOUND!!');
443: l_return_status := FND_API.G_RET_STS_ERROR;
444: end if;
445: CLOSE valid_id;
446:
447: x_return_status := l_return_status;
446:
447: x_return_status := l_return_status;
448:
449: EXCEPTION
450: WHEN FND_API.G_EXC_ERROR THEN
451: ROLLBACK TO Validate_any_varchar_PVT;
452: x_return_status := FND_API.G_RET_STS_ERROR;
453: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
454:
448:
449: EXCEPTION
450: WHEN FND_API.G_EXC_ERROR THEN
451: ROLLBACK TO Validate_any_varchar_PVT;
452: x_return_status := FND_API.G_RET_STS_ERROR;
453: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
454:
455: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
456: ROLLBACK TO Validate_any_varchar_PVT;
451: ROLLBACK TO Validate_any_varchar_PVT;
452: x_return_status := FND_API.G_RET_STS_ERROR;
453: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
454:
455: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
456: ROLLBACK TO Validate_any_varchar_PVT;
457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
458: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
459:
453: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
454:
455: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
456: ROLLBACK TO Validate_any_varchar_PVT;
457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
458: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
459:
460: WHEN OTHERS THEN
461: ROLLBACK TO Validate_any_varchar_PVT;
458: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
459:
460: WHEN OTHERS THEN
461: ROLLBACK TO Validate_any_varchar_PVT;
462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
463: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
464: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
465: END IF;
466: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
502: -- Standard Start of API savepoint
503: SAVEPOINT Validate_any_varchar_PVT;
504:
505: -- Initialize API return status to SUCCESS
506: x_return_status := FND_API.G_RET_STS_SUCCESS;
507:
508: vstr1 := 'Select Count(LOOKUP_CODE) ';
509: vstr2 := 'From ';
510: vstr3 := 'Where LOOKUP_TYPE = :l_lookup_type ' ;
511: vstr4 := ' AND LOOKUP_CODE = :l_lookup_code ';
512: vstr5 := ' AND ENABLED_FLAG = ''Y''';
513:
514: -- Standard call to check for call compatibility.
515: IF NOT FND_API.Compatible_API_Call (l_api_version,
516: p_api_version,
517: l_api_name,
518: G_PKG_NAME)
519: THEN
516: p_api_version,
517: l_api_name,
518: G_PKG_NAME)
519: THEN
520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
521: END IF;
522:
523: -- Initialize message list if p_init_msg_list is set to TRUE.
524: IF FND_API.to_Boolean(p_init_msg_list)
520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
521: END IF;
522:
523: -- Initialize message list if p_init_msg_list is set to TRUE.
524: IF FND_API.to_Boolean(p_init_msg_list)
525: THEN
526: FND_MSG_PUB.initialize;
527: END IF;
528:
576:
577: WriteLog('iexvutlb:validatelookup:count_id='||count_id);
578:
579: IF (count_id > 0) then
580: l_return_status := FND_API.G_RET_STS_SUCCESS;
581: ELSE
582: l_return_status := FND_API.G_RET_STS_ERROR;
583: END IF ;
584: x_return_status := l_return_status;
578:
579: IF (count_id > 0) then
580: l_return_status := FND_API.G_RET_STS_SUCCESS;
581: ELSE
582: l_return_status := FND_API.G_RET_STS_ERROR;
583: END IF ;
584: x_return_status := l_return_status;
585:
586: EXCEPTION
583: END IF ;
584: x_return_status := l_return_status;
585:
586: EXCEPTION
587: WHEN FND_API.G_EXC_ERROR THEN
588: ROLLBACK TO Validate_any_varchar_PVT;
589: x_return_status := FND_API.G_RET_STS_ERROR;
590: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
591:
585:
586: EXCEPTION
587: WHEN FND_API.G_EXC_ERROR THEN
588: ROLLBACK TO Validate_any_varchar_PVT;
589: x_return_status := FND_API.G_RET_STS_ERROR;
590: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
591:
592: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
593: ROLLBACK TO Validate_any_varchar_PVT;
588: ROLLBACK TO Validate_any_varchar_PVT;
589: x_return_status := FND_API.G_RET_STS_ERROR;
590: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
591:
592: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
593: ROLLBACK TO Validate_any_varchar_PVT;
594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
595: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
596:
590: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
591:
592: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
593: ROLLBACK TO Validate_any_varchar_PVT;
594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
595: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
596:
597: WHEN OTHERS THEN
598: ROLLBACK TO Validate_any_varchar_PVT;
595: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
596:
597: WHEN OTHERS THEN
598: ROLLBACK TO Validate_any_varchar_PVT;
599: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
600: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
601: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
602: END IF;
603: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
656: END IF;
657: SAVEPOINT Access_Resources_Pvt;
658:
659: -- Standard call to check for call compatibility.
660: IF NOT FND_API.Compatible_API_Call (l_api_version,
661: p_api_version,
662: l_api_name,
663: G_PKG_NAME) THEN
664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
660: IF NOT FND_API.Compatible_API_Call (l_api_version,
661: p_api_version,
662: l_api_name,
663: G_PKG_NAME) THEN
664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
665: END IF;
666:
667: -- Check p_init_msg_list
668: IF FND_API.to_Boolean( p_init_msg_list ) THEN
664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
665: END IF;
666:
667: -- Check p_init_msg_list
668: IF FND_API.to_Boolean( p_init_msg_list ) THEN
669: FND_MSG_PUB.initialize;
670: END IF;
671:
672: x_return_status := FND_API.G_RET_STS_SUCCESS;
668: IF FND_API.to_Boolean( p_init_msg_list ) THEN
669: FND_MSG_PUB.initialize;
670: END IF;
671:
672: x_return_status := FND_API.G_RET_STS_SUCCESS;
673:
674: FOR r_person IN c_get_person LOOP
675: IF PG_DEBUG < 10 THEN
676: iex_debug_pub.logmessage ('employee_id = ' || r_person.employee_id);
694: CLOSE c_get_resource;
695: End LOOP;
696:
697: -- Standard check of p_commit
698: IF FND_API.To_Boolean(p_commit) THEN
699: COMMIT WORK;
700: END IF;
701:
702: -- Standard call to get message count and if count is 1, get message info
706: iex_debug_pub.logmessage ('**** END get_access_resources ************');
707: END IF;
708:
709: EXCEPTION
710: WHEN FND_API.G_EXC_ERROR THEN
711: ROLLBACK TO Access_Resources_Pvt;
712: x_return_status := FND_API.G_RET_STS_ERROR;
713: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
714:
708:
709: EXCEPTION
710: WHEN FND_API.G_EXC_ERROR THEN
711: ROLLBACK TO Access_Resources_Pvt;
712: x_return_status := FND_API.G_RET_STS_ERROR;
713: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
714:
715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
716: ROLLBACK TO Access_Resources_Pvt;
711: ROLLBACK TO Access_Resources_Pvt;
712: x_return_status := FND_API.G_RET_STS_ERROR;
713: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
714:
715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
716: ROLLBACK TO Access_Resources_Pvt;
717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
718: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
719:
713: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
714:
715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
716: ROLLBACK TO Access_Resources_Pvt;
717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
718: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
719:
720: WHEN OTHERS THEN
721: ROLLBACK TO Access_Resources_Pvt;
718: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
719:
720: WHEN OTHERS THEN
721: ROLLBACK TO Access_Resources_Pvt;
722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
723: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
724: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
725: END IF;
726: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
860:
861: SAVEPOINT get_assign_resources;
862:
863: -- Standard call to check for call compatibility.
864: IF NOT FND_API.Compatible_API_Call (l_api_version,
865: p_api_version,
866: l_api_name,
867: G_PKG_NAME) THEN
868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
864: IF NOT FND_API.Compatible_API_Call (l_api_version,
865: p_api_version,
866: l_api_name,
867: G_PKG_NAME) THEN
868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
869: END IF;
870:
871: -- Check p_init_msg_list
872: IF FND_API.to_Boolean( p_init_msg_list ) THEN
868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
869: END IF;
870:
871: -- Check p_init_msg_list
872: IF FND_API.to_Boolean( p_init_msg_list ) THEN
873: FND_MSG_PUB.initialize;
874: END IF;
875:
876: x_return_status := FND_API.G_RET_STS_SUCCESS;
872: IF FND_API.to_Boolean( p_init_msg_list ) THEN
873: FND_MSG_PUB.initialize;
874: END IF;
875:
876: x_return_status := FND_API.G_RET_STS_SUCCESS;
877:
878: FOR r_person IN c_get_person LOOP
879: idx := idx + 1;
880: iex_debug_pub.logmessage ('idx= ' || idx);
892: */
893:
894: /*
895: -- Standard check of p_commit
896: IF FND_API.To_Boolean(p_commit) THEN
897: COMMIT WORK;
898: END IF;
899:
900: -- Standard call to get message count and if count is 1, get message info
902:
903: iex_debug_pub.logmessage ('**** END get_access_resources ************');
904:
905: EXCEPTION
906: WHEN FND_API.G_EXC_ERROR THEN
907: ROLLBACK TO get_assign_resources;
908: x_return_status := FND_API.G_RET_STS_ERROR;
909: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
910:
904:
905: EXCEPTION
906: WHEN FND_API.G_EXC_ERROR THEN
907: ROLLBACK TO get_assign_resources;
908: x_return_status := FND_API.G_RET_STS_ERROR;
909: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
910:
911: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
912: ROLLBACK TO get_assign_resources;
907: ROLLBACK TO get_assign_resources;
908: x_return_status := FND_API.G_RET_STS_ERROR;
909: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
910:
911: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
912: ROLLBACK TO get_assign_resources;
913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
914: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
915:
909: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
910:
911: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
912: ROLLBACK TO get_assign_resources;
913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
914: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
915:
916: WHEN OTHERS THEN
917: ROLLBACK TO get_assign_resources;
914: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
915:
916: WHEN OTHERS THEN
917: ROLLBACK TO get_assign_resources;
918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
919: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
920: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
921: END IF;
922: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1033:
1034: SAVEPOINT get_assign_account_resources;
1035:
1036: -- Standard call to check for call compatibility.
1037: IF NOT FND_API.Compatible_API_Call (l_api_version,
1038: p_api_version,
1039: l_api_name,
1040: G_PKG_NAME) THEN
1041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1037: IF NOT FND_API.Compatible_API_Call (l_api_version,
1038: p_api_version,
1039: l_api_name,
1040: G_PKG_NAME) THEN
1041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1042: END IF;
1043:
1044: -- Check p_init_msg_list
1045: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1042: END IF;
1043:
1044: -- Check p_init_msg_list
1045: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1046: FND_MSG_PUB.initialize;
1047: END IF;
1048:
1049: x_return_status := FND_API.G_RET_STS_SUCCESS;
1045: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1046: FND_MSG_PUB.initialize;
1047: END IF;
1048:
1049: x_return_status := FND_API.G_RET_STS_SUCCESS;
1050:
1051: FOR r_person IN c_get_person LOOP
1052: idx := idx + 1;
1053: iex_debug_pub.logmessage ('idx= ' || idx);
1065: */
1066:
1067:
1068: -- Standard check of p_commit
1069: /* IF FND_API.To_Boolean(p_commit) THEN
1070: COMMIT WORK;
1071: END IF;
1072:
1073: -- Standard call to get message count and if count is 1, get message info
1075:
1076: iex_debug_pub.logmessage ('**** END get_access_resources ************');
1077:
1078: EXCEPTION
1079: WHEN FND_API.G_EXC_ERROR THEN
1080: ROLLBACK TO get_assign_account_resources;
1081: x_return_status := FND_API.G_RET_STS_ERROR;
1082: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1083:
1077:
1078: EXCEPTION
1079: WHEN FND_API.G_EXC_ERROR THEN
1080: ROLLBACK TO get_assign_account_resources;
1081: x_return_status := FND_API.G_RET_STS_ERROR;
1082: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1083:
1084: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1085: ROLLBACK TO get_assign_account_resources;
1080: ROLLBACK TO get_assign_account_resources;
1081: x_return_status := FND_API.G_RET_STS_ERROR;
1082: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1083:
1084: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1085: ROLLBACK TO get_assign_account_resources;
1086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1087: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1088:
1082: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1083:
1084: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1085: ROLLBACK TO get_assign_account_resources;
1086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1087: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1088:
1089: WHEN OTHERS THEN
1090: ROLLBACK TO get_assign_account_resources;
1087: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1088:
1089: WHEN OTHERS THEN
1090: ROLLBACK TO get_assign_account_resources;
1091: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1092: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1093: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1094: END IF;
1095: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1146:
1147: SAVEPOINT get_case_resources;
1148:
1149: -- Standard call to check for call compatibility.
1150: IF NOT FND_API.Compatible_API_Call (l_api_version,
1151: p_api_version,
1152: l_api_name,
1153: G_PKG_NAME) THEN
1154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1150: IF NOT FND_API.Compatible_API_Call (l_api_version,
1151: p_api_version,
1152: l_api_name,
1153: G_PKG_NAME) THEN
1154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1155: END IF;
1156:
1157: -- Check p_init_msg_list
1158: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1155: END IF;
1156:
1157: -- Check p_init_msg_list
1158: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1159: FND_MSG_PUB.initialize;
1160: END IF;
1161:
1162: x_return_status := FND_API.G_RET_STS_SUCCESS;
1158: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1159: FND_MSG_PUB.initialize;
1160: END IF;
1161:
1162: x_return_status := FND_API.G_RET_STS_SUCCESS;
1163:
1164: FOR r_person IN c_get_person LOOP
1165: idx := idx + 1;
1166: iex_debug_pub.logmessage ('idx= ' || idx);
1169: x_resource_tab(idx).person_id := r_person.employee_id;
1170: End LOOP;
1171:
1172: -- Standard check of p_commit
1173: IF FND_API.To_Boolean(p_commit) THEN
1174: COMMIT WORK;
1175: END IF;
1176:
1177: -- Standard call to get message count and if count is 1, get message info
1179:
1180: iex_debug_pub.logmessage ('**** END get_case_resources ************');
1181:
1182: EXCEPTION
1183: WHEN FND_API.G_EXC_ERROR THEN
1184: ROLLBACK TO get_case_resources;
1185: x_return_status := FND_API.G_RET_STS_ERROR;
1186: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1187:
1181:
1182: EXCEPTION
1183: WHEN FND_API.G_EXC_ERROR THEN
1184: ROLLBACK TO get_case_resources;
1185: x_return_status := FND_API.G_RET_STS_ERROR;
1186: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1187:
1188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1189: ROLLBACK TO get_case_resources;
1184: ROLLBACK TO get_case_resources;
1185: x_return_status := FND_API.G_RET_STS_ERROR;
1186: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1187:
1188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1189: ROLLBACK TO get_case_resources;
1190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1191: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1192:
1186: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1187:
1188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1189: ROLLBACK TO get_case_resources;
1190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1191: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1192:
1193: WHEN OTHERS THEN
1194: ROLLBACK TO get_case_resources;
1191: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1192:
1193: WHEN OTHERS THEN
1194: ROLLBACK TO get_case_resources;
1195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1196: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1197: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1198: END IF;
1199: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1358:
1359: SAVEPOINT get_assign_resources;
1360:
1361: -- Standard call to check for call compatibility.
1362: IF NOT FND_API.Compatible_API_Call (l_api_version,
1363: p_api_version,
1364: l_api_name,
1365: G_PKG_NAME) THEN
1366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1362: IF NOT FND_API.Compatible_API_Call (l_api_version,
1363: p_api_version,
1364: l_api_name,
1365: G_PKG_NAME) THEN
1366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1367: END IF;
1368:
1369: -- Check p_init_msg_list
1370: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1367: END IF;
1368:
1369: -- Check p_init_msg_list
1370: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1371: FND_MSG_PUB.initialize;
1372: END IF;
1373:
1374: x_return_status := FND_API.G_RET_STS_SUCCESS;
1370: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1371: FND_MSG_PUB.initialize;
1372: END IF;
1373:
1374: x_return_status := FND_API.G_RET_STS_SUCCESS;
1375:
1376: FOR r_person IN c_get_person LOOP
1377: idx := idx + 1;
1378: iex_debug_pub.logmessage ('idx= ' || idx);
1381: x_resource_tab(idx).person_id := r_person.employee_id;
1382: End LOOP;
1383:
1384: -- Standard check of p_commit
1385: IF FND_API.To_Boolean(p_commit) THEN
1386: COMMIT WORK;
1387: END IF;
1388:
1389: -- Standard call to get message count and if count is 1, get message info
1391:
1392: iex_debug_pub.logmessage ('**** END get_billto_resources ************');
1393:
1394: EXCEPTION
1395: WHEN FND_API.G_EXC_ERROR THEN
1396: ROLLBACK TO get_assign_resources;
1397: x_return_status := FND_API.G_RET_STS_ERROR;
1398: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1399:
1393:
1394: EXCEPTION
1395: WHEN FND_API.G_EXC_ERROR THEN
1396: ROLLBACK TO get_assign_resources;
1397: x_return_status := FND_API.G_RET_STS_ERROR;
1398: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1399:
1400: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1401: ROLLBACK TO get_assign_resources;
1396: ROLLBACK TO get_assign_resources;
1397: x_return_status := FND_API.G_RET_STS_ERROR;
1398: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1399:
1400: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1401: ROLLBACK TO get_assign_resources;
1402: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1403: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1404:
1398: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1399:
1400: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1401: ROLLBACK TO get_assign_resources;
1402: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1403: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1404:
1405: WHEN OTHERS THEN
1406: ROLLBACK TO get_assign_resources;
1403: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1404:
1405: WHEN OTHERS THEN
1406: ROLLBACK TO get_assign_resources;
1407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1408: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1409: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1410: END IF;
1411: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4925:
4926: SAVEPOINT get_assigned_collector;
4927:
4928: -- Standard call to check for call compatibility.
4929: IF NOT FND_API.Compatible_API_Call (l_api_version,
4930: p_api_version,
4931: l_api_name,
4932: G_PKG_NAME) THEN
4933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4929: IF NOT FND_API.Compatible_API_Call (l_api_version,
4930: p_api_version,
4931: l_api_name,
4932: G_PKG_NAME) THEN
4933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4934: END IF;
4935:
4936: -- Check p_init_msg_list
4937: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4934: END IF;
4935:
4936: -- Check p_init_msg_list
4937: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4938: FND_MSG_PUB.initialize;
4939: END IF;
4940:
4941: x_return_status := FND_API.G_RET_STS_SUCCESS;
4937: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4938: FND_MSG_PUB.initialize;
4939: END IF;
4940:
4941: x_return_status := FND_API.G_RET_STS_SUCCESS;
4942:
4943: --Start Bug 7134688 gnramasa 17th June 08
4944:
4945: -- Initialize SQL statements - REMEMBER CHANGING 1 MEANS CHANGING ALL
5172:
5173: CLOSE c_collector;
5174:
5175: -- Standard check of p_commit
5176: IF FND_API.To_Boolean(p_commit) THEN
5177: COMMIT WORK;
5178: END IF;
5179:
5180: -- Standard call to get message count and if count is 1, get message info
5182:
5183: iex_debug_pub.logmessage ('**** END get_assigned_collector ************');
5184:
5185: EXCEPTION
5186: WHEN FND_API.G_EXC_ERROR THEN
5187: ROLLBACK TO get_assigned_collector;
5188: x_return_status := FND_API.G_RET_STS_ERROR;
5189: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5190:
5184:
5185: EXCEPTION
5186: WHEN FND_API.G_EXC_ERROR THEN
5187: ROLLBACK TO get_assigned_collector;
5188: x_return_status := FND_API.G_RET_STS_ERROR;
5189: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5190:
5191: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5192: ROLLBACK TO get_assigned_collector;
5187: ROLLBACK TO get_assigned_collector;
5188: x_return_status := FND_API.G_RET_STS_ERROR;
5189: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5190:
5191: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5192: ROLLBACK TO get_assigned_collector;
5193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5194: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5195:
5189: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5190:
5191: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5192: ROLLBACK TO get_assigned_collector;
5193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5194: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5195:
5196: WHEN OTHERS THEN
5197: ROLLBACK TO get_assigned_collector;
5194: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5195:
5196: WHEN OTHERS THEN
5197: ROLLBACK TO get_assigned_collector;
5198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5199: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5200: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5201: END IF;
5202: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5246:
5247: SAVEPOINT get_dunning_resource;
5248:
5249: -- Standard call to check for call compatibility.
5250: IF NOT FND_API.Compatible_API_Call (l_api_version,
5251: p_api_version,
5252: l_api_name,
5253: G_PKG_NAME) THEN
5254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5250: IF NOT FND_API.Compatible_API_Call (l_api_version,
5251: p_api_version,
5252: l_api_name,
5253: G_PKG_NAME) THEN
5254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5255: END IF;
5256:
5257: -- Check p_init_msg_list
5258: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5255: END IF;
5256:
5257: -- Check p_init_msg_list
5258: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5259: FND_MSG_PUB.initialize;
5260: END IF;
5261:
5262: x_return_status := FND_API.G_RET_STS_SUCCESS;
5258: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5259: FND_MSG_PUB.initialize;
5260: END IF;
5261:
5262: x_return_status := FND_API.G_RET_STS_SUCCESS;
5263:
5264: -- Initialize SQL statements - REMEMBER CHANGING 1 MEANS CHANGING ALL
5265: l_select1 := 'SELECT ac.employee_id, ac.resource_id ';
5266: l_select1 := l_select1 || 'FROM hz_customer_profiles hp, ar_collectors ac,jtf_rs_resource_extns rs ';
5322:
5323: CLOSE c_collector;
5324:
5325: -- Standard check of p_commit
5326: IF FND_API.To_Boolean(p_commit) THEN
5327: COMMIT WORK;
5328: END IF;
5329:
5330: -- Standard call to get message count and if count is 1, get message info
5332:
5333: iex_debug_pub.logmessage ('**** END get_dunning_resource ************');
5334:
5335: EXCEPTION
5336: WHEN FND_API.G_EXC_ERROR THEN
5337: ROLLBACK TO get_dunning_resource;
5338: x_return_status := FND_API.G_RET_STS_ERROR;
5339: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5340:
5334:
5335: EXCEPTION
5336: WHEN FND_API.G_EXC_ERROR THEN
5337: ROLLBACK TO get_dunning_resource;
5338: x_return_status := FND_API.G_RET_STS_ERROR;
5339: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5340:
5341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5342: ROLLBACK TO get_dunning_resource;
5337: ROLLBACK TO get_dunning_resource;
5338: x_return_status := FND_API.G_RET_STS_ERROR;
5339: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5340:
5341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5342: ROLLBACK TO get_dunning_resource;
5343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5344: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5345:
5339: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5340:
5341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5342: ROLLBACK TO get_dunning_resource;
5343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5344: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5345:
5346: WHEN OTHERS THEN
5347: ROLLBACK TO get_dunning_resource;
5344: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5345:
5346: WHEN OTHERS THEN
5347: ROLLBACK TO get_dunning_resource;
5348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5349: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5350: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5351: END IF;
5352: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5405:
5406: SAVEPOINT get_grace_days;
5407:
5408: -- Standard call to check for call compatibility.
5409: IF NOT FND_API.Compatible_API_Call (l_api_version,
5410: p_api_version,
5411: l_api_name,
5412: G_PKG_NAME) THEN
5413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5409: IF NOT FND_API.Compatible_API_Call (l_api_version,
5410: p_api_version,
5411: l_api_name,
5412: G_PKG_NAME) THEN
5413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5414: END IF;
5415:
5416: -- Check p_init_msg_list
5417: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5414: END IF;
5415:
5416: -- Check p_init_msg_list
5417: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5418: FND_MSG_PUB.initialize;
5419: END IF;
5420:
5421: x_return_status := FND_API.G_RET_STS_SUCCESS;
5417: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5418: FND_MSG_PUB.initialize;
5419: END IF;
5420:
5421: x_return_status := FND_API.G_RET_STS_SUCCESS;
5422:
5423: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':Parameters: ');
5424: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':p_level: ' || p_level);
5425: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':p_party_id: ' || p_party_id);
5445:
5446: x_grace_days := l_grace_days;
5447:
5448: -- Standard check of p_commit
5449: IF FND_API.To_Boolean(p_commit) THEN
5450: COMMIT WORK;
5451: END IF;
5452:
5453: -- Standard call to get message count and if count is 1, get message info
5455:
5456: iex_debug_pub.logmessage ('**** END get_grace_days ************');
5457:
5458: EXCEPTION
5459: WHEN FND_API.G_EXC_ERROR THEN
5460: ROLLBACK TO get_grace_days;
5461: x_return_status := FND_API.G_RET_STS_ERROR;
5462: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5463:
5457:
5458: EXCEPTION
5459: WHEN FND_API.G_EXC_ERROR THEN
5460: ROLLBACK TO get_grace_days;
5461: x_return_status := FND_API.G_RET_STS_ERROR;
5462: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5463:
5464: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5465: ROLLBACK TO get_grace_days;
5460: ROLLBACK TO get_grace_days;
5461: x_return_status := FND_API.G_RET_STS_ERROR;
5462: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5463:
5464: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5465: ROLLBACK TO get_grace_days;
5466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5467: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5468:
5462: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5463:
5464: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5465: ROLLBACK TO get_grace_days;
5466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5467: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5468:
5469: WHEN OTHERS THEN
5470: ROLLBACK TO get_grace_days;
5467: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5468:
5469: WHEN OTHERS THEN
5470: ROLLBACK TO get_grace_days;
5471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5472: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5473: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5474: END IF;
5475: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);