[Home] [Help]
113: l_cust_name_num VARCHAR2(70);
114:
115: BEGIN
116: -- Initialize API return status to sucess
117: x_return_status := FND_API.G_RET_STS_SUCCESS;
118:
119: IF p_customer_info.claim_currency is null THEN
120: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
121: OPEN csr_cust_name(l_cust_account_id);
125: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_CURRENCY_MISS');
126: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
127: FND_MSG_PUB.ADD;
128: END IF;
129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
130: END IF;
131:
132: IF p_customer_info.payment_method is null THEN
133: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
138: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_PYMTHD_MISS');
139: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
140: FND_MSG_PUB.ADD;
141: END IF;
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
143: END IF;
144:
145: IF p_customer_info.payment_method = 'CHECK' THEN
146: IF p_customer_info.vendor_id is NULL OR
153: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_VENDOR_MISS');
154: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
155: FND_MSG_PUB.ADD;
156: END IF;
157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
158: END IF;
159: ELSIF p_customer_info.payment_method = 'CREDIT_MEMO' THEN
160: IF p_customer_info.site_use_id is NULL THEN
161: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
166: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_SITEID_MISS');
167: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
168: FND_MSG_PUB.ADD;
169: END IF;
170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
171: END IF;
172: END IF;
173:
174: /*
181: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_ORG_ID_MISS');
182: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
183: FND_MSG_PUB.add;
184: END IF;FND_MSG_PUB.ADD;
185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
186: END IF;
187: */
188:
189: EXCEPTION
187: */
188:
189: EXCEPTION
190: WHEN OTHERS THEN
191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
192: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
193: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ATPY_CUSTOMER_ERR');
194: FND_MSG_PUB.add;
195: END IF;
222: IS
223: l_return_date date;
224: BEGIN
225: -- Initialize API return status to sucess
226: x_return_status := FND_API.G_RET_STS_SUCCESS;
227:
228: IF p_type = G_DAILY THEN
229: l_return_date := p_last_date + p_period;
230: ELSIF p_type = G_WEEKLY THEN
241: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
242: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ATPY_AUPD_MISS');
243: FND_MSG_PUB.add;
244: END IF;
245: RAISE FND_API.G_EXC_ERROR;
246: END IF;
247: x_pay_date := l_return_date;
248: EXCEPTION
249: WHEN FND_API.G_EXC_ERROR THEN
245: RAISE FND_API.G_EXC_ERROR;
246: END IF;
247: x_pay_date := l_return_date;
248: EXCEPTION
249: WHEN FND_API.G_EXC_ERROR THEN
250: x_return_status := FND_API.G_RET_STS_ERROR;
251: END get_pay_date;
252:
253: ---------------------------------------------------------------------
246: END IF;
247: x_pay_date := l_return_date;
248: EXCEPTION
249: WHEN FND_API.G_EXC_ERROR THEN
250: x_return_status := FND_API.G_RET_STS_ERROR;
251: END get_pay_date;
252:
253: ---------------------------------------------------------------------
254: -- PROCEDURE
333: l_eligible_flag varchar2(1);
334:
335: BEGIN
336: -- Initialize API return status to sucess
337: x_return_status := FND_API.G_RET_STS_SUCCESS;
338:
339: -- For this customer: check whether there is a need to create a claim
340: -- check sum of acctd_amount from utiliztion only create claims with positvit amount
341: IF l_amount is NOT NULL AND l_amount > 0 THEN
340: -- check sum of acctd_amount from utiliztion only create claims with positvit amount
341: IF l_amount is NOT NULL AND l_amount > 0 THEN
342: IF p_mode = 'B' THEN
343: -- IF the mode is 'Backdated'
344: l_eligible_flag := FND_API.g_true;
345: ELSE
346: IF p_customer_info.autopay_flag = FND_API.G_TRUE THEN
347: -- create a claim for this customer
348: IF (p_customer_info.claim_threshold is NOT NULL AND
342: IF p_mode = 'B' THEN
343: -- IF the mode is 'Backdated'
344: l_eligible_flag := FND_API.g_true;
345: ELSE
346: IF p_customer_info.autopay_flag = FND_API.G_TRUE THEN
347: -- create a claim for this customer
348: IF (p_customer_info.claim_threshold is NOT NULL AND
349: l_amount > p_customer_info.claim_threshold) THEN
350: -- create a claim record based on l_cust_id_tbl(i).amount > l_cust_id_tbl(i).claim_threshold
347: -- create a claim for this customer
348: IF (p_customer_info.claim_threshold is NOT NULL AND
349: l_amount > p_customer_info.claim_threshold) THEN
350: -- create a claim record based on l_cust_id_tbl(i).amount > l_cust_id_tbl(i).claim_threshold
351: l_eligible_flag := FND_API.g_true;
352: ELSE
353: -- create a claim based on frequency.
354: -- Need to get last pay date
355: IF p_customer_info.LAST_PAID_DATE is NULL THEN
371: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_PERIOD_MISS');
372: FND_MESSAGE.Set_Token('ID', l_cust_name_num);
373: FND_MSG_PUB.ADD;
374: END IF;
375: RAISE FND_API.g_exc_unexpected_error;
376: --goto end_loop;
377: END IF;
378: l_autopay_periodicity := p_autopay_periodicity;
379: l_autopay_periodicity_type := p_autopay_periodicity_type;
391: p_last_date => p_customer_info.last_paid_date,
392: x_pay_date => l_last_pay_date,
393: x_return_status => l_return_status
394: );
395: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
396: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
397: OPEN csr_cust_name(p_customer_info.cust_account_id);
398: FETCH csr_cust_name INTO l_cust_name_num;
399: CLOSE csr_cust_name;
401: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_PAY_DATE_MISS');
402: FND_MESSAGE.Set_Token('ID', l_cust_name_num);
403: FND_MSG_PUB.ADD;
404: END IF;
405: RAISE FND_API.g_exc_unexpected_error;
406: END IF;
407: END IF;
408:
409: -- pay customer is last_pay_date has passed.
410: IF l_last_pay_date <= sysdate THEN
411: -- create a claim record based on frequency
412: -- NOTE: There is not exchange info here since the functional
413: -- currency is the default claim currency.
414: l_eligible_flag := FND_API.g_true;
415: END IF;
416: END IF;
417: END IF; -- end of if p_customer_info.autopay_flag checking
418: END IF; -- end of if p_mode checking
416: END IF;
417: END IF; -- end of if p_customer_info.autopay_flag checking
418: END IF; -- end of if p_mode checking
419:
420: IF l_eligible_flag = FND_API.g_true THEN
421: l_claim_rec.claim_class := 'CLAIM';
422: l_claim_rec.claim_type_id := p_auto_claim_type_id;
423: l_claim_rec.reason_code_id := p_auto_reason_code_id;
424: -- Modified for FXGL Enhancement
447: END IF;
448:
449: OZF_CLAIM_ACCRUAL_PVT.Create_Claim_For_Accruals(
450: p_api_version => 1.0
451: ,p_init_msg_list => FND_API.g_false
452: ,p_commit => FND_API.g_false
453: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
454: ,x_return_status => l_return_status
455: ,x_msg_count => l_msg_count
448:
449: OZF_CLAIM_ACCRUAL_PVT.Create_Claim_For_Accruals(
450: p_api_version => 1.0
451: ,p_init_msg_list => FND_API.g_false
452: ,p_commit => FND_API.g_false
453: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
454: ,x_return_status => l_return_status
455: ,x_msg_count => l_msg_count
456: ,x_msg_data => l_msg_data
449: OZF_CLAIM_ACCRUAL_PVT.Create_Claim_For_Accruals(
450: p_api_version => 1.0
451: ,p_init_msg_list => FND_API.g_false
452: ,p_commit => FND_API.g_false
453: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
454: ,x_return_status => l_return_status
455: ,x_msg_count => l_msg_count
456: ,x_msg_data => l_msg_data
457: ,p_claim_rec => l_claim_rec
457: ,p_claim_rec => l_claim_rec
458: ,p_funds_util_flt => l_funds_util_flt
459: ,x_claim_id => l_claim_id
460: );
461: IF l_return_status <> FND_API.g_ret_sts_success THEN
462: x_return_status := FND_API.G_RET_STS_ERROR;
463: RETURN;
464: END IF;
465:
458: ,p_funds_util_flt => l_funds_util_flt
459: ,x_claim_id => l_claim_id
460: );
461: IF l_return_status <> FND_API.g_ret_sts_success THEN
462: x_return_status := FND_API.G_RET_STS_ERROR;
463: RETURN;
464: END IF;
465:
466: IF l_claim_id is not NULL THEN
492: END IF;
493:
494: OZF_claim_PVT.Update_claim(
495: P_Api_Version => 1.0,
496: P_Init_Msg_List => FND_API.G_FALSE,
497: P_Commit => FND_API.G_FALSE,
498: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
499: X_Return_Status => l_return_status,
500: X_Msg_Count => l_msg_count,
493:
494: OZF_claim_PVT.Update_claim(
495: P_Api_Version => 1.0,
496: P_Init_Msg_List => FND_API.G_FALSE,
497: P_Commit => FND_API.G_FALSE,
498: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
499: X_Return_Status => l_return_status,
500: X_Msg_Count => l_msg_count,
501: X_Msg_Data => l_msg_data,
494: OZF_claim_PVT.Update_claim(
495: P_Api_Version => 1.0,
496: P_Init_Msg_List => FND_API.G_FALSE,
497: P_Commit => FND_API.G_FALSE,
498: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
499: X_Return_Status => l_return_status,
500: X_Msg_Count => l_msg_count,
501: X_Msg_Data => l_msg_data,
502: P_claim => l_claim_settle_Rec,
503: p_event => 'UPDATE',
504: p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE,
505: X_Object_Version_Number => l_object_version_number
506: );
507: IF l_return_status <> FND_API.g_ret_sts_success THEN
508: x_return_status := FND_API.G_RET_STS_ERROR;
509: RETURN;
510: END IF;
511: END IF;
504: p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE,
505: X_Object_Version_Number => l_object_version_number
506: );
507: IF l_return_status <> FND_API.g_ret_sts_success THEN
508: x_return_status := FND_API.G_RET_STS_ERROR;
509: RETURN;
510: END IF;
511: END IF;
512:
519: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_CUST_INELIG');
520: FND_MESSAGE.Set_Token('ID', l_cust_name_num);
521: FND_MSG_PUB.ADD;
522: END IF;
523: RAISE FND_API.g_exc_unexpected_error;
524: END IF;
525: ELSE
526: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
527: OPEN csr_cust_name(p_customer_info.cust_account_id);
531: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_AMT_SMALL');
532: FND_MESSAGE.Set_Token('ID', l_cust_name_num);
533: FND_MSG_PUB.ADD;
534: END IF;
535: RAISE FND_API.g_exc_unexpected_error;
536: END IF;
537:
538: OPEN csr_claim_num(l_claim_id);
539: FETCH csr_claim_num INTO l_claim_num, l_claim_amt,l_cust_billto_acct_site_id;
555: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim Amount : '||l_claim_amt );
556:
557: EXCEPTION
558: WHEN OTHERS THEN
559: x_return_status := FND_API.G_RET_STS_ERROR;
560: END create_claim_for_cust;
561:
562:
563: ---------------------------------------------------------------------
572: --
573: ---------------------------------------------------------------------
574: PROCEDURE Create_Claim_for_BD_Offer(
575: p_api_version IN NUMBER
576: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
577: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
578: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
579: ,x_return_status OUT NOCOPY VARCHAR2
580: ,x_msg_data OUT NOCOPY VARCHAR2
573: ---------------------------------------------------------------------
574: PROCEDURE Create_Claim_for_BD_Offer(
575: p_api_version IN NUMBER
576: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
577: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
578: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
579: ,x_return_status OUT NOCOPY VARCHAR2
580: ,x_msg_data OUT NOCOPY VARCHAR2
581: ,x_msg_count OUT NOCOPY NUMBER
574: PROCEDURE Create_Claim_for_BD_Offer(
575: p_api_version IN NUMBER
576: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
577: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
578: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
579: ,x_return_status OUT NOCOPY VARCHAR2
580: ,x_msg_data OUT NOCOPY VARCHAR2
581: ,x_msg_count OUT NOCOPY NUMBER
582: ,p_offer_tbl IN offer_tbl_type
639: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
640: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_CD_MISSING');
641: FND_MSG_PUB.add;
642: END IF;
643: RAISE FND_API.g_exc_unexpected_error;
644: END IF;
645:
646: IF l_auto_claim_type_id is NULL THEN
647: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
647: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
648: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CLAIM_TYPE_MISSING');
649: FND_MSG_PUB.add;
650: END IF;
651: RAISE FND_API.g_exc_unexpected_error;
652: END IF;
653:
654: -- Loop through p_offer table
655: For i in p_offer_tbl.FIRST..p_offer_tbl.COUNT LOOP
663: p_customer_info => l_customer_info,
664: x_return_status => l_return_status
665: );
666: -- skip this customer if we can not get all the info.
667: IF l_return_status = FND_API.g_ret_sts_error or
668: l_return_status = FND_API.g_ret_sts_unexp_error THEN
669: RAISE FND_API.g_exc_unexpected_error;
670: --goto end_loop;
671: END IF;
664: x_return_status => l_return_status
665: );
666: -- skip this customer if we can not get all the info.
667: IF l_return_status = FND_API.g_ret_sts_error or
668: l_return_status = FND_API.g_ret_sts_unexp_error THEN
669: RAISE FND_API.g_exc_unexpected_error;
670: --goto end_loop;
671: END IF;
672:
665: );
666: -- skip this customer if we can not get all the info.
667: IF l_return_status = FND_API.g_ret_sts_error or
668: l_return_status = FND_API.g_ret_sts_unexp_error THEN
669: RAISE FND_API.g_exc_unexpected_error;
670: --goto end_loop;
671: END IF;
672:
673: -- But, we need to overwrite the payment method for the customer;
690: p_offer_payment_method=> null,
691: p_funds_util_flt => l_funds_util_flt,
692: x_return_status => l_return_status
693: );
694: IF l_return_status = FND_API.g_ret_sts_error THEN
695: RAISE FND_API.g_exc_error;
696: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
697: RAISE FND_API.g_exc_unexpected_error;
698: END IF;
691: p_funds_util_flt => l_funds_util_flt,
692: x_return_status => l_return_status
693: );
694: IF l_return_status = FND_API.g_ret_sts_error THEN
695: RAISE FND_API.g_exc_error;
696: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
697: RAISE FND_API.g_exc_unexpected_error;
698: END IF;
699: END IF;
692: x_return_status => l_return_status
693: );
694: IF l_return_status = FND_API.g_ret_sts_error THEN
695: RAISE FND_API.g_exc_error;
696: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
697: RAISE FND_API.g_exc_unexpected_error;
698: END IF;
699: END IF;
700: END LOOP;
693: );
694: IF l_return_status = FND_API.g_ret_sts_error THEN
695: RAISE FND_API.g_exc_error;
696: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
697: RAISE FND_API.g_exc_unexpected_error;
698: END IF;
699: END IF;
700: END LOOP;
701:
706: FND_MSG_PUB.Add;
707: END IF;
708:
709: EXCEPTION
710: WHEN FND_API.g_exc_error THEN
711: ROLLBACK TO BDOffer;
712: FND_MSG_PUB.count_and_get (
713: p_encoded => FND_API.g_false
714: ,p_count => l_msg_count
709: EXCEPTION
710: WHEN FND_API.g_exc_error THEN
711: ROLLBACK TO BDOffer;
712: FND_MSG_PUB.count_and_get (
713: p_encoded => FND_API.g_false
714: ,p_count => l_msg_count
715: ,p_data => l_msg_data
716: );
717: WHEN FND_API.g_exc_unexpected_error THEN
713: p_encoded => FND_API.g_false
714: ,p_count => l_msg_count
715: ,p_data => l_msg_data
716: );
717: WHEN FND_API.g_exc_unexpected_error THEN
718: ROLLBACK TO BDOffer;
719: FND_MSG_PUB.count_and_get (
720: p_encoded => FND_API.g_false
721: ,p_count => l_msg_count
716: );
717: WHEN FND_API.g_exc_unexpected_error THEN
718: ROLLBACK TO BDOffer;
719: FND_MSG_PUB.count_and_get (
720: p_encoded => FND_API.g_false
721: ,p_count => l_msg_count
722: ,p_data => l_msg_data
723: );
724: WHEN OTHERS THEN
723: );
724: WHEN OTHERS THEN
725: ROLLBACK TO BDOffer;
726: FND_MSG_PUB.count_and_get (
727: p_encoded => FND_API.g_false
728: ,p_count => l_msg_count
729: ,p_data => l_msg_data
730: );
731: END Create_claim_for_bd_offer;
1076: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1077: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_CD_MISSING');
1078: FND_MSG_PUB.add;
1079: END IF;
1080: RAISE FND_API.g_exc_unexpected_error;
1081: END IF;
1082:
1083: IF l_auto_claim_type_id is NULL THEN
1084: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1084: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1085: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CLAIM_TYPE_MISSING');
1086: FND_MSG_PUB.add;
1087: END IF;
1088: RAISE FND_API.g_exc_unexpected_error;
1089: END IF;
1090:
1091: -- construct the following sql based on the inputs
1092: l_funds_util_flt.run_mode := p_run_mode;
1121: -- The amount_remaining is in utiz_curency and not in functional currency
1122:
1123: OZF_Claim_Accrual_Pvt.Get_Utiz_Sql_Stmt(
1124: p_api_version => 1.0
1125: ,p_init_msg_list => FND_API.g_false
1126: ,p_commit => FND_API.g_false
1127: ,p_validation_level => FND_API.g_valid_level_full
1128: ,x_return_status => l_return_status
1129: ,x_msg_count => l_msg_count
1122:
1123: OZF_Claim_Accrual_Pvt.Get_Utiz_Sql_Stmt(
1124: p_api_version => 1.0
1125: ,p_init_msg_list => FND_API.g_false
1126: ,p_commit => FND_API.g_false
1127: ,p_validation_level => FND_API.g_valid_level_full
1128: ,x_return_status => l_return_status
1129: ,x_msg_count => l_msg_count
1130: ,x_msg_data => l_msg_data
1123: OZF_Claim_Accrual_Pvt.Get_Utiz_Sql_Stmt(
1124: p_api_version => 1.0
1125: ,p_init_msg_list => FND_API.g_false
1126: ,p_commit => FND_API.g_false
1127: ,p_validation_level => FND_API.g_valid_level_full
1128: ,x_return_status => l_return_status
1129: ,x_msg_count => l_msg_count
1130: ,x_msg_data => l_msg_data
1131: ,p_summary_view => 'AUTOPAY'
1133: ,p_cust_account_id => p_customer_id
1134: ,x_utiz_sql_stmt => l_stmt
1135: );
1136:
1137: IF l_return_status <> FND_API.g_ret_sts_success THEN
1138: RAISE FND_API.g_exc_error;
1139: END IF;
1140:
1141: -- log query for debugging
1134: ,x_utiz_sql_stmt => l_stmt
1135: );
1136:
1137: IF l_return_status <> FND_API.g_ret_sts_success THEN
1138: RAISE FND_API.g_exc_error;
1139: END IF;
1140:
1141: -- log query for debugging
1142: IF OZF_DEBUG_LOW_ON THEN
1290: p_customer_info => l_customer_info,
1291: x_return_status => l_return_status
1292: );
1293: -- skip this customer if we can not get all the info.
1294: IF l_return_status = FND_API.g_ret_sts_error or
1295: l_return_status = FND_API.g_ret_sts_unexp_error THEN
1296: l_cust_info_invalid := true;
1297: ELSE
1298: l_cust_info_invalid := FALSE;
1291: x_return_status => l_return_status
1292: );
1293: -- skip this customer if we can not get all the info.
1294: IF l_return_status = FND_API.g_ret_sts_error or
1295: l_return_status = FND_API.g_ret_sts_unexp_error THEN
1296: l_cust_info_invalid := true;
1297: ELSE
1298: l_cust_info_invalid := FALSE;
1299: END IF;
1311: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Offer Payment Method: '||l_offer_pay_name);
1312: END IF;
1313:
1314: IF l_cust_info_invalid THEN
1315: RAISE FND_API.g_exc_unexpected_error;
1316: END IF;
1317:
1318: IF l_trade_prf_exist THEN
1319:
1316: END IF;
1317:
1318: IF l_trade_prf_exist THEN
1319:
1320: IF l_customer_info.autopay_flag = FND_API.g_true THEN
1321: l_funds_util_flt.bill_to_site_use_id := l_bill_to_site_use_id; --R12.1 enhancements
1322:
1323: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- Start AUTOPAY for customer '||l_cust_name_num||' ---*/');
1324: create_claim_for_cust(p_customer_info => l_customer_info,
1331: p_offer_payment_method => l_offer_pay_method,
1332: p_funds_util_flt => l_funds_util_flt,
1333: x_return_status => l_return_status
1334: );
1335: IF l_return_status = FND_API.g_ret_sts_error THEN
1336: RAISE FND_API.g_exc_error;
1337: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1338: RAISE FND_API.g_exc_unexpected_error;
1339: END IF;
1332: p_funds_util_flt => l_funds_util_flt,
1333: x_return_status => l_return_status
1334: );
1335: IF l_return_status = FND_API.g_ret_sts_error THEN
1336: RAISE FND_API.g_exc_error;
1337: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1338: RAISE FND_API.g_exc_unexpected_error;
1339: END IF;
1340:
1333: x_return_status => l_return_status
1334: );
1335: IF l_return_status = FND_API.g_ret_sts_error THEN
1336: RAISE FND_API.g_exc_error;
1337: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1338: RAISE FND_API.g_exc_unexpected_error;
1339: END IF;
1340:
1341: -- Store Trade Profile for later updation
1334: );
1335: IF l_return_status = FND_API.g_ret_sts_error THEN
1336: RAISE FND_API.g_exc_error;
1337: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1338: RAISE FND_API.g_exc_unexpected_error;
1339: END IF;
1340:
1341: -- Store Trade Profile for later updation
1342: IF l_trade_prf_exist THEN
1371: END IF; -- end of if l_trade_prf_exist
1372: END IF; -- end of if l_cust_account_id is not null
1373:
1374: EXCEPTION
1375: WHEN FND_API.G_EXC_ERROR THEN
1376: ROLLBACK TO AUTOPAY_CUST;
1377: FND_FILE.PUT_LINE(FND_FILE.LOG, '===> Failed.');
1378: OZF_UTILITY_PVT.write_conc_log;
1379: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1378: OZF_UTILITY_PVT.write_conc_log;
1379: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1380: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1381: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1382: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.count_msg, FND_API.g_false));
1383: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1385: ROLLBACK TO AUTOPAY_CUST;
1386: FND_FILE.PUT_LINE(FND_FILE.LOG, '===> Failed.');
1380: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1381: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1382: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.count_msg, FND_API.g_false));
1383: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1385: ROLLBACK TO AUTOPAY_CUST;
1386: FND_FILE.PUT_LINE(FND_FILE.LOG, '===> Failed.');
1387: OZF_UTILITY_PVT.write_conc_log;
1388: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1387: OZF_UTILITY_PVT.write_conc_log;
1388: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1389: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1390: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1391: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.count_msg, FND_API.g_false));
1392: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1393:
1394: WHEN OTHERS THEN
1395: ROLLBACK TO AUTOPAY_CUST;
1436: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
1437: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1438:
1439: EXCEPTION
1440: WHEN FND_API.g_exc_error THEN
1441: ROLLBACK TO AutoPay;
1442:
1443: OZF_UTILITY_PVT.Write_Conc_Log;
1444: ERRBUF := l_msg_data;
1442:
1443: OZF_UTILITY_PVT.Write_Conc_Log;
1444: ERRBUF := l_msg_data;
1445: RETCODE := 2;
1446: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || FND_MSG_PUB.get(1, FND_API.g_false)||')');
1447: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
1448: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1449:
1450: WHEN FND_API.g_exc_unexpected_error THEN
1446: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || FND_MSG_PUB.get(1, FND_API.g_false)||')');
1447: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
1448: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1449:
1450: WHEN FND_API.g_exc_unexpected_error THEN
1451: ROLLBACK TO AutoPay;
1452:
1453: OZF_UTILITY_PVT.Write_Conc_Log;
1454: ERRBUF := l_msg_data;
1452:
1453: OZF_UTILITY_PVT.Write_Conc_Log;
1454: ERRBUF := l_msg_data;
1455: RETCODE := 1; -- show status as warning if claim type/reason is missing, Fix for 5158782
1456: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: ( Warning:' || FND_MSG_PUB.get(1, FND_API.g_false)||')');
1457: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
1458: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1459:
1460: WHEN OTHERS THEN