[Home] [Help]
123: l_active_vendor_num NUMBER ; --Bug 16301629
124:
125: BEGIN
126: -- Initialize API return status to sucess
127: x_return_status := FND_API.G_RET_STS_SUCCESS;
128:
129: IF p_customer_info.claim_currency is null THEN
130: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
131: OPEN csr_cust_name(l_cust_account_id);
135: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_CURRENCY_MISS');
136: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
137: FND_MSG_PUB.ADD;
138: END IF;
139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
140: END IF;
141:
142: IF p_customer_info.payment_method is null THEN
143: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
148: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_PYMTHD_MISS');
149: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
150: FND_MSG_PUB.ADD;
151: END IF;
152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
153: END IF;
154:
155: IF p_customer_info.payment_method = 'CHECK' THEN
156: IF p_customer_info.vendor_id is NULL OR
163: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_VENDOR_MISS');
164: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
165: FND_MSG_PUB.ADD;
166: END IF;
167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
168: --Added for Bug 16301629
169: ELSE
170: OPEN csr_active_vendor(p_customer_info.vendor_id, p_customer_info.vendor_site_id);
171: FETCH csr_active_vendor INTO l_active_vendor_num;
178: FND_MESSAGE.Set_Name('OZF', 'OZF_TRADE_VENDOR_INACTIVE');
179: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
180: FND_MSG_PUB.ADD;
181: END IF;
182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
183: END IF;
184: --end bug 16301629
185: END IF;
186: --nepanda : fix for bug # 9539273 - issue #2
194: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_SITEID_MISS');
195: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
196: FND_MSG_PUB.ADD;
197: END IF;
198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
199: END IF;*/
200: END IF;
201:
202: /*
209: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_ORG_ID_MISS');
210: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
211: FND_MSG_PUB.add;
212: END IF;FND_MSG_PUB.ADD;
213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
214: END IF;
215: */
216:
217: EXCEPTION
215: */
216:
217: EXCEPTION
218: WHEN OTHERS THEN
219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
220: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
221: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ATPY_CUSTOMER_ERR');
222: FND_MSG_PUB.add;
223: END IF;
250: IS
251: l_return_date date;
252: BEGIN
253: -- Initialize API return status to sucess
254: x_return_status := FND_API.G_RET_STS_SUCCESS;
255:
256: IF p_type = G_DAILY THEN
257: l_return_date := p_last_date + p_period;
258: ELSIF p_type = G_WEEKLY THEN
269: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
270: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ATPY_AUPD_MISS');
271: FND_MSG_PUB.add;
272: END IF;
273: RAISE FND_API.G_EXC_ERROR;
274: END IF;
275: x_pay_date := l_return_date;
276: EXCEPTION
277: WHEN FND_API.G_EXC_ERROR THEN
273: RAISE FND_API.G_EXC_ERROR;
274: END IF;
275: x_pay_date := l_return_date;
276: EXCEPTION
277: WHEN FND_API.G_EXC_ERROR THEN
278: x_return_status := FND_API.G_RET_STS_ERROR;
279: END get_pay_date;
280:
281: ---------------------------------------------------------------------
274: END IF;
275: x_pay_date := l_return_date;
276: EXCEPTION
277: WHEN FND_API.G_EXC_ERROR THEN
278: x_return_status := FND_API.G_RET_STS_ERROR;
279: END get_pay_date;
280:
281: ---------------------------------------------------------------------
282: -- PROCEDURE
366: OZF_Utility_PVT.debug_message('create_claim_for_cust START');
367: END IF;
368:
369: -- Initialize API return status to sucess
370: x_return_status := FND_API.G_RET_STS_SUCCESS;
371:
372: -- For this customer: check whether there is a need to create a claim
373: -- check sum of acctd_amount from utiliztion only create claims with positvit amount
374: IF l_amount is NOT NULL AND l_amount > 0 THEN
373: -- check sum of acctd_amount from utiliztion only create claims with positvit amount
374: IF l_amount is NOT NULL AND l_amount > 0 THEN
375: IF p_mode = 'B' THEN
376: -- IF the mode is 'Backdated'
377: l_eligible_flag := FND_API.g_true;
378: ELSE
379: IF p_customer_info.autopay_flag = FND_API.G_TRUE THEN
380: -- create a claim for this customer
381: IF (p_customer_info.claim_threshold is NOT NULL AND
375: IF p_mode = 'B' THEN
376: -- IF the mode is 'Backdated'
377: l_eligible_flag := FND_API.g_true;
378: ELSE
379: IF p_customer_info.autopay_flag = FND_API.G_TRUE THEN
380: -- create a claim for this customer
381: IF (p_customer_info.claim_threshold is NOT NULL AND
382: l_amount > p_customer_info.claim_threshold) THEN
383: -- create a claim record based on l_cust_id_tbl(i).amount > l_cust_id_tbl(i).claim_threshold
380: -- create a claim for this customer
381: IF (p_customer_info.claim_threshold is NOT NULL AND
382: l_amount > p_customer_info.claim_threshold) THEN
383: -- create a claim record based on l_cust_id_tbl(i).amount > l_cust_id_tbl(i).claim_threshold
384: l_eligible_flag := FND_API.g_true;
385: ELSE
386: -- create a claim based on frequency.
387: -- Need to get last pay date
388: IF p_customer_info.LAST_PAID_DATE is NULL THEN
404: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_PERIOD_MISS');
405: FND_MESSAGE.Set_Token('ID', l_cust_name_num);
406: FND_MSG_PUB.ADD;
407: END IF;
408: RAISE FND_API.g_exc_unexpected_error;
409: --goto end_loop;
410: END IF;
411: l_autopay_periodicity := p_autopay_periodicity;
412: l_autopay_periodicity_type := p_autopay_periodicity_type;
424: p_last_date => p_customer_info.last_paid_date,
425: x_pay_date => l_last_pay_date,
426: x_return_status => l_return_status
427: );
428: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
429: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
430: OPEN csr_cust_name(p_customer_info.cust_account_id);
431: FETCH csr_cust_name INTO l_cust_name_num;
432: CLOSE csr_cust_name;
434: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_PAY_DATE_MISS');
435: FND_MESSAGE.Set_Token('ID', l_cust_name_num);
436: FND_MSG_PUB.ADD;
437: END IF;
438: RAISE FND_API.g_exc_unexpected_error;
439: END IF;
440: END IF;
441:
442: -- pay customer is last_pay_date has passed.
443: IF l_last_pay_date <= sysdate THEN
444: -- create a claim record based on frequency
445: -- NOTE: There is not exchange info here since the functional
446: -- currency is the default claim currency.
447: l_eligible_flag := FND_API.g_true;
448: END IF;
449: END IF;
450: END IF; -- end of if p_customer_info.autopay_flag checking
451: END IF; -- end of if p_mode checking
449: END IF;
450: END IF; -- end of if p_customer_info.autopay_flag checking
451: END IF; -- end of if p_mode checking
452:
453: IF l_eligible_flag = FND_API.g_true THEN
454: l_claim_rec.claim_class := 'CLAIM';
455: l_claim_rec.claim_type_id := p_auto_claim_type_id;
456: l_claim_rec.reason_code_id := p_auto_reason_code_id;
457: -- Modified for FXGL Enhancement
472: ELSE
473: l_claim_rec.payment_method := p_customer_info.payment_method;
474: END IF;*/
475: IF p_offer_payment_method IS NOT NULL AND
476: p_offer_payment_method <> FND_API.G_MISS_CHAR THEN
477: l_claim_rec.payment_method := p_offer_payment_method;
478: ELSIF p_customer_info.payment_method IS NOT NULL AND
479: p_customer_info.payment_method <> FND_API.G_MISS_CHAR THEN
480: l_claim_rec.payment_method := p_customer_info.payment_method;
475: IF p_offer_payment_method IS NOT NULL AND
476: p_offer_payment_method <> FND_API.G_MISS_CHAR THEN
477: l_claim_rec.payment_method := p_offer_payment_method;
478: ELSIF p_customer_info.payment_method IS NOT NULL AND
479: p_customer_info.payment_method <> FND_API.G_MISS_CHAR THEN
480: l_claim_rec.payment_method := p_customer_info.payment_method;
481: ELSE
482: l_claim_rec.payment_method := NULL;
483: END IF;
491: END IF;
492:
493: OZF_CLAIM_ACCRUAL_PVT.Create_Claim_For_Accruals(
494: p_api_version => 1.0
495: ,p_init_msg_list => FND_API.g_false
496: ,p_commit => FND_API.g_false
497: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
498: ,x_return_status => l_return_status
499: ,x_msg_count => l_msg_count
492:
493: OZF_CLAIM_ACCRUAL_PVT.Create_Claim_For_Accruals(
494: p_api_version => 1.0
495: ,p_init_msg_list => FND_API.g_false
496: ,p_commit => FND_API.g_false
497: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
498: ,x_return_status => l_return_status
499: ,x_msg_count => l_msg_count
500: ,x_msg_data => l_msg_data
493: OZF_CLAIM_ACCRUAL_PVT.Create_Claim_For_Accruals(
494: p_api_version => 1.0
495: ,p_init_msg_list => FND_API.g_false
496: ,p_commit => FND_API.g_false
497: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
498: ,x_return_status => l_return_status
499: ,x_msg_count => l_msg_count
500: ,x_msg_data => l_msg_data
501: ,p_claim_rec => l_claim_rec
501: ,p_claim_rec => l_claim_rec
502: ,p_funds_util_flt => l_funds_util_flt
503: ,x_claim_id => l_claim_id
504: );
505: IF l_return_status <> FND_API.g_ret_sts_success THEN
506: x_return_status := FND_API.G_RET_STS_ERROR;
507: RETURN;
508: END IF;
509:
502: ,p_funds_util_flt => l_funds_util_flt
503: ,x_claim_id => l_claim_id
504: );
505: IF l_return_status <> FND_API.g_ret_sts_success THEN
506: x_return_status := FND_API.G_RET_STS_ERROR;
507: RETURN;
508: END IF;
509:
510:
537: END IF;
538:
539: OZF_claim_PVT.Update_claim(
540: P_Api_Version => 1.0,
541: P_Init_Msg_List => FND_API.G_FALSE,
542: P_Commit => FND_API.G_FALSE,
543: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
544: X_Return_Status => l_return_status,
545: X_Msg_Count => l_msg_count,
538:
539: OZF_claim_PVT.Update_claim(
540: P_Api_Version => 1.0,
541: P_Init_Msg_List => FND_API.G_FALSE,
542: P_Commit => FND_API.G_FALSE,
543: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
544: X_Return_Status => l_return_status,
545: X_Msg_Count => l_msg_count,
546: X_Msg_Data => l_msg_data,
539: OZF_claim_PVT.Update_claim(
540: P_Api_Version => 1.0,
541: P_Init_Msg_List => FND_API.G_FALSE,
542: P_Commit => FND_API.G_FALSE,
543: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
544: X_Return_Status => l_return_status,
545: X_Msg_Count => l_msg_count,
546: X_Msg_Data => l_msg_data,
547: P_claim => l_claim_settle_Rec,
548: p_event => 'UPDATE',
549: p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE,
550: X_Object_Version_Number => l_object_version_number
551: );
552: IF l_return_status <> FND_API.g_ret_sts_success THEN
553: x_return_status := FND_API.G_RET_STS_ERROR;
554: RETURN;
555: END IF;
556: END IF;
549: p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE,
550: X_Object_Version_Number => l_object_version_number
551: );
552: IF l_return_status <> FND_API.g_ret_sts_success THEN
553: x_return_status := FND_API.G_RET_STS_ERROR;
554: RETURN;
555: END IF;
556: END IF;
557:
564: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_CUST_INELIG');
565: FND_MESSAGE.Set_Token('ID', l_cust_name_num);
566: FND_MSG_PUB.ADD;
567: END IF;
568: RAISE FND_API.g_exc_unexpected_error;
569: END IF;
570: ELSE
571: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
572: OPEN csr_cust_name(p_customer_info.cust_account_id);
576: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_AMT_SMALL');
577: FND_MESSAGE.Set_Token('ID', l_cust_name_num);
578: FND_MSG_PUB.ADD;
579: END IF;
580: RAISE FND_API.g_exc_unexpected_error;
581: END IF;
582:
583: OPEN csr_claim_num(l_claim_id);
584: FETCH csr_claim_num INTO l_claim_num, l_claim_amt,l_cust_billto_acct_site_id;
600: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim Amount : '||l_claim_amt );
601:
602: EXCEPTION
603: WHEN OTHERS THEN
604: x_return_status := FND_API.G_RET_STS_ERROR;
605: END create_claim_for_cust;
606:
607:
608: ---------------------------------------------------------------------
617: --
618: ---------------------------------------------------------------------
619: PROCEDURE Create_Claim_for_BD_Offer(
620: p_api_version IN NUMBER
621: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
622: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
623: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
624: ,x_return_status OUT NOCOPY VARCHAR2
625: ,x_msg_data OUT NOCOPY VARCHAR2
618: ---------------------------------------------------------------------
619: PROCEDURE Create_Claim_for_BD_Offer(
620: p_api_version IN NUMBER
621: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
622: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
623: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
624: ,x_return_status OUT NOCOPY VARCHAR2
625: ,x_msg_data OUT NOCOPY VARCHAR2
626: ,x_msg_count OUT NOCOPY NUMBER
619: PROCEDURE Create_Claim_for_BD_Offer(
620: p_api_version IN NUMBER
621: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
622: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
623: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
624: ,x_return_status OUT NOCOPY VARCHAR2
625: ,x_msg_data OUT NOCOPY VARCHAR2
626: ,x_msg_count OUT NOCOPY NUMBER
627: ,p_offer_tbl IN offer_tbl_type
684: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
685: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_CD_MISSING');
686: FND_MSG_PUB.add;
687: END IF;
688: RAISE FND_API.g_exc_unexpected_error;
689: END IF;
690:
691: IF l_auto_claim_type_id is NULL THEN
692: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
692: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
693: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CLAIM_TYPE_MISSING');
694: FND_MSG_PUB.add;
695: END IF;
696: RAISE FND_API.g_exc_unexpected_error;
697: END IF;
698:
699: -- Loop through p_offer table
700: For i in p_offer_tbl.FIRST..p_offer_tbl.COUNT LOOP
708: p_customer_info => l_customer_info,
709: x_return_status => l_return_status
710: );
711: -- skip this customer if we can not get all the info.
712: IF l_return_status = FND_API.g_ret_sts_error or
713: l_return_status = FND_API.g_ret_sts_unexp_error THEN
714: RAISE FND_API.g_exc_unexpected_error;
715: --goto end_loop;
716: END IF;
709: x_return_status => l_return_status
710: );
711: -- skip this customer if we can not get all the info.
712: IF l_return_status = FND_API.g_ret_sts_error or
713: l_return_status = FND_API.g_ret_sts_unexp_error THEN
714: RAISE FND_API.g_exc_unexpected_error;
715: --goto end_loop;
716: END IF;
717:
710: );
711: -- skip this customer if we can not get all the info.
712: IF l_return_status = FND_API.g_ret_sts_error or
713: l_return_status = FND_API.g_ret_sts_unexp_error THEN
714: RAISE FND_API.g_exc_unexpected_error;
715: --goto end_loop;
716: END IF;
717:
718: -- But, we need to overwrite the payment method for the customer;
735: p_offer_payment_method=> null,
736: p_funds_util_flt => l_funds_util_flt,
737: x_return_status => l_return_status
738: );
739: IF l_return_status = FND_API.g_ret_sts_error THEN
740: RAISE FND_API.g_exc_error;
741: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
742: RAISE FND_API.g_exc_unexpected_error;
743: END IF;
736: p_funds_util_flt => l_funds_util_flt,
737: x_return_status => l_return_status
738: );
739: IF l_return_status = FND_API.g_ret_sts_error THEN
740: RAISE FND_API.g_exc_error;
741: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
742: RAISE FND_API.g_exc_unexpected_error;
743: END IF;
744: END IF;
737: x_return_status => l_return_status
738: );
739: IF l_return_status = FND_API.g_ret_sts_error THEN
740: RAISE FND_API.g_exc_error;
741: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
742: RAISE FND_API.g_exc_unexpected_error;
743: END IF;
744: END IF;
745: END LOOP;
738: );
739: IF l_return_status = FND_API.g_ret_sts_error THEN
740: RAISE FND_API.g_exc_error;
741: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
742: RAISE FND_API.g_exc_unexpected_error;
743: END IF;
744: END IF;
745: END LOOP;
746:
751: FND_MSG_PUB.Add;
752: END IF;
753:
754: EXCEPTION
755: WHEN FND_API.g_exc_error THEN
756: ROLLBACK TO BDOffer;
757: FND_MSG_PUB.count_and_get (
758: p_encoded => FND_API.g_false
759: ,p_count => l_msg_count
754: EXCEPTION
755: WHEN FND_API.g_exc_error THEN
756: ROLLBACK TO BDOffer;
757: FND_MSG_PUB.count_and_get (
758: p_encoded => FND_API.g_false
759: ,p_count => l_msg_count
760: ,p_data => l_msg_data
761: );
762: WHEN FND_API.g_exc_unexpected_error THEN
758: p_encoded => FND_API.g_false
759: ,p_count => l_msg_count
760: ,p_data => l_msg_data
761: );
762: WHEN FND_API.g_exc_unexpected_error THEN
763: ROLLBACK TO BDOffer;
764: FND_MSG_PUB.count_and_get (
765: p_encoded => FND_API.g_false
766: ,p_count => l_msg_count
761: );
762: WHEN FND_API.g_exc_unexpected_error THEN
763: ROLLBACK TO BDOffer;
764: FND_MSG_PUB.count_and_get (
765: p_encoded => FND_API.g_false
766: ,p_count => l_msg_count
767: ,p_data => l_msg_data
768: );
769: WHEN OTHERS THEN
768: );
769: WHEN OTHERS THEN
770: ROLLBACK TO BDOffer;
771: FND_MSG_PUB.count_and_get (
772: p_encoded => FND_API.g_false
773: ,p_count => l_msg_count
774: ,p_data => l_msg_data
775: );
776: END Create_claim_for_bd_offer;
1123: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1124: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_CD_MISSING');
1125: FND_MSG_PUB.add;
1126: END IF;
1127: RAISE FND_API.g_exc_unexpected_error;
1128: END IF;
1129:
1130: IF l_auto_claim_type_id is NULL THEN
1131: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1131: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1132: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CLAIM_TYPE_MISSING');
1133: FND_MSG_PUB.add;
1134: END IF;
1135: RAISE FND_API.g_exc_unexpected_error;
1136: END IF;
1137:
1138: -- construct the following sql based on the inputs
1139: l_funds_util_flt.run_mode := p_run_mode;
1174: l_currency_rec.universal_currency_code := FND_PROFILE.VALUE('OZF_TP_COMMON_CURRENCY');
1175:
1176: OZF_Claim_Accrual_Pvt.Get_Utiz_Sql_Stmt(
1177: p_api_version => 1.0
1178: ,p_init_msg_list => FND_API.g_false
1179: ,p_commit => FND_API.g_false
1180: ,p_validation_level => FND_API.g_valid_level_full
1181: ,x_return_status => l_return_status
1182: ,x_msg_count => l_msg_count
1175:
1176: OZF_Claim_Accrual_Pvt.Get_Utiz_Sql_Stmt(
1177: p_api_version => 1.0
1178: ,p_init_msg_list => FND_API.g_false
1179: ,p_commit => FND_API.g_false
1180: ,p_validation_level => FND_API.g_valid_level_full
1181: ,x_return_status => l_return_status
1182: ,x_msg_count => l_msg_count
1183: ,x_msg_data => l_msg_data
1176: OZF_Claim_Accrual_Pvt.Get_Utiz_Sql_Stmt(
1177: p_api_version => 1.0
1178: ,p_init_msg_list => FND_API.g_false
1179: ,p_commit => FND_API.g_false
1180: ,p_validation_level => FND_API.g_valid_level_full
1181: ,x_return_status => l_return_status
1182: ,x_msg_count => l_msg_count
1183: ,x_msg_data => l_msg_data
1184: ,p_summary_view => 'AUTOPAY'
1187: ,p_cust_account_id => p_customer_id
1188: ,x_utiz_sql_stmt => l_stmt
1189: );
1190:
1191: IF l_return_status <> FND_API.g_ret_sts_success THEN
1192: RAISE FND_API.g_exc_error;
1193: END IF;
1194:
1195: -- log query for debugging
1188: ,x_utiz_sql_stmt => l_stmt
1189: );
1190:
1191: IF l_return_status <> FND_API.g_ret_sts_success THEN
1192: RAISE FND_API.g_exc_error;
1193: END IF;
1194:
1195: -- log query for debugging
1196: IF OZF_DEBUG_LOW_ON THEN
1352: p_customer_info => l_customer_info,
1353: x_return_status => l_return_status
1354: );
1355: -- skip this customer if we can not get all the info.
1356: IF l_return_status = FND_API.g_ret_sts_error or
1357: l_return_status = FND_API.g_ret_sts_unexp_error THEN
1358: l_cust_info_invalid := true;
1359: ELSE
1360: l_cust_info_invalid := FALSE;
1353: x_return_status => l_return_status
1354: );
1355: -- skip this customer if we can not get all the info.
1356: IF l_return_status = FND_API.g_ret_sts_error or
1357: l_return_status = FND_API.g_ret_sts_unexp_error THEN
1358: l_cust_info_invalid := true;
1359: ELSE
1360: l_cust_info_invalid := FALSE;
1361: END IF;
1373: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Offer Payment Method: '||l_offer_pay_name);
1374: END IF;
1375:
1376: IF l_cust_info_invalid THEN
1377: RAISE FND_API.g_exc_unexpected_error;
1378: END IF;
1379:
1380: IF l_trade_prf_exist THEN
1381:
1378: END IF;
1379:
1380: IF l_trade_prf_exist THEN
1381:
1382: IF l_customer_info.autopay_flag = FND_API.g_true THEN
1383: l_funds_util_flt.bill_to_site_use_id := l_bill_to_site_use_id; --R12.1 enhancements
1384: /*
1385: l_funds_util_flt.run_mode := p_run_mode;
1386: l_funds_util_flt.utilization_type := null;
1419: p_offer_payment_method => l_offer_pay_method,
1420: p_funds_util_flt => l_funds_util_flt,
1421: x_return_status => l_return_status
1422: );
1423: IF l_return_status = FND_API.g_ret_sts_error THEN
1424: RAISE FND_API.g_exc_error;
1425: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1426: RAISE FND_API.g_exc_unexpected_error;
1427: END IF;
1420: p_funds_util_flt => l_funds_util_flt,
1421: x_return_status => l_return_status
1422: );
1423: IF l_return_status = FND_API.g_ret_sts_error THEN
1424: RAISE FND_API.g_exc_error;
1425: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1426: RAISE FND_API.g_exc_unexpected_error;
1427: END IF;
1428:
1421: x_return_status => l_return_status
1422: );
1423: IF l_return_status = FND_API.g_ret_sts_error THEN
1424: RAISE FND_API.g_exc_error;
1425: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1426: RAISE FND_API.g_exc_unexpected_error;
1427: END IF;
1428:
1429: -- Store Trade Profile for later updation
1422: );
1423: IF l_return_status = FND_API.g_ret_sts_error THEN
1424: RAISE FND_API.g_exc_error;
1425: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1426: RAISE FND_API.g_exc_unexpected_error;
1427: END IF;
1428:
1429: -- Store Trade Profile for later updation
1430: IF l_trade_prf_exist THEN
1459: END IF; -- end of if l_trade_prf_exist
1460: END IF; -- end of if l_cust_account_id is not null
1461:
1462: EXCEPTION
1463: WHEN FND_API.G_EXC_ERROR THEN
1464: ROLLBACK TO AUTOPAY_CUST;
1465: FND_FILE.PUT_LINE(FND_FILE.LOG, '===> Failed.');
1466: OZF_UTILITY_PVT.write_conc_log;
1467: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1466: OZF_UTILITY_PVT.write_conc_log;
1467: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1468: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1469: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1470: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.count_msg, FND_API.g_false));
1471: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1473: ROLLBACK TO AUTOPAY_CUST;
1474: FND_FILE.PUT_LINE(FND_FILE.LOG, '===> Failed.');
1468: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1469: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1470: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.count_msg, FND_API.g_false));
1471: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1473: ROLLBACK TO AUTOPAY_CUST;
1474: FND_FILE.PUT_LINE(FND_FILE.LOG, '===> Failed.');
1475: OZF_UTILITY_PVT.write_conc_log;
1476: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1475: OZF_UTILITY_PVT.write_conc_log;
1476: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1477: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1478: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1479: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.count_msg, FND_API.g_false));
1480: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1481:
1482: WHEN OTHERS THEN
1483: ROLLBACK TO AUTOPAY_CUST;
1524: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
1525: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1526:
1527: EXCEPTION
1528: WHEN FND_API.g_exc_error THEN
1529: ROLLBACK TO AutoPay;
1530:
1531: OZF_UTILITY_PVT.Write_Conc_Log;
1532: ERRBUF := l_msg_data;
1530:
1531: OZF_UTILITY_PVT.Write_Conc_Log;
1532: ERRBUF := l_msg_data;
1533: RETCODE := 2;
1534: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || FND_MSG_PUB.get(1, FND_API.g_false)||')');
1535: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
1536: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1537:
1538: WHEN FND_API.g_exc_unexpected_error THEN
1534: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || FND_MSG_PUB.get(1, FND_API.g_false)||')');
1535: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
1536: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1537:
1538: WHEN FND_API.g_exc_unexpected_error THEN
1539: ROLLBACK TO AutoPay;
1540:
1541: OZF_UTILITY_PVT.Write_Conc_Log;
1542: ERRBUF := l_msg_data;
1540:
1541: OZF_UTILITY_PVT.Write_Conc_Log;
1542: ERRBUF := l_msg_data;
1543: RETCODE := 1; -- show status as warning if claim type/reason is missing, Fix for 5158782
1544: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: ( Warning:' || FND_MSG_PUB.get(1, FND_API.g_false)||')');
1545: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
1546: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1547:
1548: WHEN OTHERS THEN