165: IF pg_debug = 'Y'
166: THEN
167: debug ( 'Invalid Requestor Type ' || l_requestor_type );
168: END IF;
169: FND_MESSAGE.SET_NAME('AR','OCM_INVALID_REQUESTOR_TYPE');
170: FND_MSG_PUB.Add;
171: x_msg_data := 'OCM_INVALID_REQUESTOR_TYPE';
172: x_return_status := FND_API.G_RET_STS_ERROR;
173: return;
273: WHERE lookup_type = 'OCM_CREDIT_REQUEST_TYPE'
274: AND lookup_code = l_credit_request_type;
275: EXCEPTION
276: WHEN OTHERS THEN
277: FND_MESSAGE.SET_NAME('AR','OCM_UNKNOWN_CREDIT_REQUEST');
278: FND_MSG_PUB.Add;
279: x_return_status := FND_API.G_RET_STS_ERROR;
280: return;
281: END;
337: IF pg_debug = 'Y'
338: THEN
339: debug ( 'Appeal request is Out of date range');
340: END IF;
341: FND_MESSAGE.SET_NAME('AR','OCM_APPEAL_EXPIRATION_REQUEST');
342: FND_MSG_PUB.Add;
343: x_return_status := FND_API.G_RET_STS_ERROR;
344: END IF;
345: EXCEPTION
344: END IF;
345: EXCEPTION
346: WHEN NO_DATA_FOUND THEN
347: -- reject the application
348: FND_MESSAGE.SET_NAME('AR','OCM_NO_RECO_APPEAL_REQUEST');
349: FND_MSG_PUB.Add;
350: x_return_status := FND_API.G_RET_STS_ERROR;
351: WHEN OTHERS THEN
352: -- reject the application
349: FND_MSG_PUB.Add;
350: x_return_status := FND_API.G_RET_STS_ERROR;
351: WHEN OTHERS THEN
352: -- reject the application
353: FND_MESSAGE.SET_NAME('AR','OCM_NO_RECO_APPEAL_REQUEST');
354: FND_MSG_PUB.Add;
355: x_return_status := FND_API.G_RET_STS_ERROR;
356: END;
357: END IF; -- end APPEAL/APPEAL_REJECTION
357: END IF; -- end APPEAL/APPEAL_REJECTION
358:
359: ELSE
360: -- reject the application as parent request is not closed
361: FND_MESSAGE.SET_NAME('AR','OCM_NO_PARENT_APPEAL_REQUEST');
362: FND_MSG_PUB.Add;
363: x_return_status := FND_API.G_RET_STS_ERROR;
364: END IF;
365:
365:
366: EXCEPTION
367: WHEN NO_DATA_FOUND THEN
368: -- reject the application
369: FND_MESSAGE.SET_NAME('AR','OCM_NO_PARENT_APPEAL_REQUEST');
370: FND_MSG_PUB.Add;
371: x_return_status := FND_API.G_RET_STS_ERROR;
372: WHEN OTHERS THEN
373: -- reject the application
370: FND_MSG_PUB.Add;
371: x_return_status := FND_API.G_RET_STS_ERROR;
372: WHEN OTHERS THEN
373: -- reject the application
374: FND_MESSAGE.SET_NAME('AR','OCM_NO_PARENT_APPEAL_REQUEST');
375: FND_MSG_PUB.Add;
376: x_return_status := FND_API.G_RET_STS_ERROR;
377: END;
378:
377: END;
378:
379: ELSE
380: -- reject the application parent credit request id is null
381: FND_MESSAGE.SET_NAME('AR','OCM_NO_PARENT_APPEAL_REQUEST');
382: FND_MSG_PUB.Add;
383: x_return_status := FND_API.G_RET_STS_ERROR;
384: END IF; -- end parent_credit_request_id is not null
385: END IF; -- end APPEAL/REJECTION/RESUBMISSION
385: END IF; -- end APPEAL/REJECTION/RESUBMISSION
386:
387: ELSE
388: -- reject the application as request type is unknown
389: FND_MESSAGE.SET_NAME('AR','OCM_UNKNOWN_CREDIT_REQUEST');
390: FND_MSG_PUB.Add;
391: x_return_status := FND_API.G_RET_STS_ERROR;
392: END IF; -- end 'unknown' credit_request_type
393:
432: l_isupdateable := 'Y'; -- 7185336
433: EXCEPTION
434: WHEN OTHERS THEN
435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
436: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
437: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',
438: 'GETTING_MAX_CREDIT_REQUEST_FOR_UPDATE : '||SQLERRM);
439: FND_MSG_PUB.Add;
440: return;
433: EXCEPTION
434: WHEN OTHERS THEN
435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
436: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
437: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',
438: 'GETTING_MAX_CREDIT_REQUEST_FOR_UPDATE : '||SQLERRM);
439: FND_MSG_PUB.Add;
440: return;
441: END;
441: END;
442:
443: WHEN OTHERS THEN
444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
445: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
446: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',
447: 'GETTING_CREDIT_REQUEST_FOR_UPDATE : '||SQLERRM);
448: FND_MSG_PUB.Add;
449: return;
442:
443: WHEN OTHERS THEN
444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
445: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
446: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',
447: 'GETTING_CREDIT_REQUEST_FOR_UPDATE : '||SQLERRM);
448: FND_MSG_PUB.Add;
449: return;
450: END;
503: END IF;
504: END IF;
505: WHEN OTHERS THEN
506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
507: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
508: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',
509: 'GETTING_CASE_FOLDER_FOR_UPDATE : '||SQLERRM);
510: FND_MSG_PUB.Add;
511: return;
504: END IF;
505: WHEN OTHERS THEN
506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
507: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
508: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',
509: 'GETTING_CASE_FOLDER_FOR_UPDATE : '||SQLERRM);
510: FND_MSG_PUB.Add;
511: return;
512: END;
594: x_return_status := FND_API.G_RET_STS_ERROR;
595: END IF;
596: CLOSE cFndUser;
597: ELSE
598: FND_MESSAGE.SET_NAME('AR','OCM_INVALID_REQUESTOR');
599: FND_MSG_PUB.Add;
600: x_return_status := FND_API.G_RET_STS_ERROR;
601: END IF;
602:
602:
603: IF p_party_id IS NULL
604: THEN
605: --raise error message
606: FND_MESSAGE.SET_NAME('AR','AR_CMGT_NULL_PARTY_ID');
607: FND_MSG_PUB.Add;
608: x_return_status := FND_API.G_RET_STS_ERROR;
609: END IF;
610:
611: IF p_review_type IS NULL
612: THEN
613: --raise error message
614: debug('AR_CMGT_NULL_REVIEW_TYPE');
615: FND_MESSAGE.SET_NAME('AR','AR_CMGT_NULL_REVIEW_TYPE');
616: FND_MSG_PUB.Add;
617: x_return_status := FND_API.G_RET_STS_ERROR;
618: END IF;
619:
620: IF p_requested_currency IS NULL
621: THEN
622: --raise error message
623: debug('AR_CMGT_NULL_REQ_CURR');
624: FND_MESSAGE.SET_NAME('AR','AR_CMGT_NULL_REQ_CURR');
625: FND_MSG_PUB.Add;
626: x_return_status := FND_API.G_RET_STS_ERROR;
627: END IF;
628:
629: IF p_credit_type IS NULL
630: THEN
631: --raise error
632: debug('AR_CMGT_NULL_CREDIT_TYPE');
633: FND_MESSAGE.SET_NAME('AR','AR_CMGT_NULL_CREDIT_TYPE');
634: FND_MSG_PUB.Add;
635: x_return_status := FND_API.G_RET_STS_ERROR;
636: ELSE
637: --verify the specified value is from lookups
643:
644: EXCEPTION
645: WHEN OTHERS THEN
646: debug('AR_CMGT_INVALID_CREDIT_TYPE');
647: FND_MESSAGE.SET_NAME('AR','AR_CMGT_INVALID_CREDIT_TYPE');
648: FND_MSG_PUB.Add;
649: x_return_status := FND_API.G_RET_STS_ERROR;
650: END;
651: END IF;
658: ('SUBMIT','SAVE')
659: THEN
660: --raise error
661: debug('AR_CMGT_INVALID_CR_STATUS');
662: FND_MESSAGE.SET_NAME('AR','AR_CMGT_INVALID_CR_STATUS');
663: FND_MSG_PUB.Add;
664: x_return_status := FND_API.G_RET_STS_ERROR;
665: END IF;
666:
678: AND sysdate between start_date and
679: nvl(end_date,sysdate);
680: EXCEPTION
681: WHEN NO_DATA_FOUND THEN
682: FND_MESSAGE.SET_NAME('AR','AR_CMGT_SCORE_NAME_INVALID');
683: FND_MSG_PUB.Add;
684: x_return_status := FND_API.G_RET_STS_ERROR;
685: WHEN OTHERS THEN
686: x_return_status := FND_API.G_RET_STS_ERROR;
844: debug('FND_API.G_EXC_UNEXPECTED_ERROR, x_msg_data :'||x_msg_data|| ' SQLERRM :'||SQLERRM);
845: WHEN OTHERS THEN
846:
847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
848: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
849: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_CREDIT_REQUEST : '||SQLERRM);
850: FND_MSG_PUB.Add;
851:
852:
845: WHEN OTHERS THEN
846:
847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
848: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
849: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_CREDIT_REQUEST : '||SQLERRM);
850: FND_MSG_PUB.Add;
851:
852:
853: ROLLBACK TO Create_credit_req_PVT;