[Home] [Help]
539: FETCH csr_claim_num INTO l_claim_num, l_claim_amt,l_cust_billto_acct_site_id;
540: CLOSE csr_claim_num;
541:
542:
543: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Number: '||l_claim_num);
544: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Amount: '||l_claim_amt);
545:
546: IF l_cust_billto_acct_site_id IS NOT NULL
547: OR l_cust_billto_acct_site_id<>0 THEN
540: CLOSE csr_claim_num;
541:
542:
543: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Number: '||l_claim_num);
544: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Amount: '||l_claim_amt);
545:
546: IF l_cust_billto_acct_site_id IS NOT NULL
547: OR l_cust_billto_acct_site_id<>0 THEN
548:
545:
546: IF l_cust_billto_acct_site_id IS NOT NULL
547: OR l_cust_billto_acct_site_id<>0 THEN
548:
549: FND_FILE.PUT_LINE(FND_FILE.LOG, 'The claim is created for bill_to site: '||l_cust_billto_acct_site_id);
550: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'The claim is created for bill_to site: '|| l_cust_billto_acct_site_id );
551:
552: END IF;
553:
546: IF l_cust_billto_acct_site_id IS NOT NULL
547: OR l_cust_billto_acct_site_id<>0 THEN
548:
549: FND_FILE.PUT_LINE(FND_FILE.LOG, 'The claim is created for bill_to site: '||l_cust_billto_acct_site_id);
550: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'The claim is created for bill_to site: '|| l_cust_billto_acct_site_id );
551:
552: END IF;
553:
554: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim Number : '||l_claim_num );
550: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'The claim is created for bill_to site: '|| l_cust_billto_acct_site_id );
551:
552: END IF;
553:
554: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim Number : '||l_claim_num );
555: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim Amount : '||l_claim_amt );
556:
557: EXCEPTION
558: WHEN OTHERS THEN
551:
552: END IF;
553:
554: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim Number : '||l_claim_num );
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;
922: BEGIN
923:
924: SAVEPOINT AutoPay;
925:
926: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------ Claims Autopay Execution Report ------------------------------*');
927: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Starts On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
928: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
929:
930: -- Debug Message
923:
924: SAVEPOINT AutoPay;
925:
926: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------ Claims Autopay Execution Report ------------------------------*');
927: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Starts On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
928: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
929:
930: -- Debug Message
931: IF OZF_DEBUG_LOW_ON THEN
924: SAVEPOINT AutoPay;
925:
926: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------ Claims Autopay Execution Report ------------------------------*');
927: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Starts On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
928: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
929:
930: -- Debug Message
931: IF OZF_DEBUG_LOW_ON THEN
932: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
955: FOR m IN l_org_id.FIRST..l_org_id.LAST LOOP
956: BEGIN
957: MO_GLOBAL.set_policy_context('S',l_org_id(m));
958: -- Write OU info to OUT file
959: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Operating Unit: ' || MO_GLOBAL.get_ou_name(l_org_id(m)));
960: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '-----------------------------------------------------');
961: -- Write OU info to LOG file
962: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Operating Unit: ' || MO_GLOBAL.get_ou_name(l_org_id(m)));
963: FND_FILE.PUT_LINE(FND_FILE.LOG, '-----------------------------------------------------');
956: BEGIN
957: MO_GLOBAL.set_policy_context('S',l_org_id(m));
958: -- Write OU info to OUT file
959: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Operating Unit: ' || MO_GLOBAL.get_ou_name(l_org_id(m)));
960: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '-----------------------------------------------------');
961: -- Write OU info to LOG file
962: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Operating Unit: ' || MO_GLOBAL.get_ou_name(l_org_id(m)));
963: FND_FILE.PUT_LINE(FND_FILE.LOG, '-----------------------------------------------------');
964:
958: -- Write OU info to OUT file
959: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Operating Unit: ' || MO_GLOBAL.get_ou_name(l_org_id(m)));
960: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '-----------------------------------------------------');
961: -- Write OU info to LOG file
962: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Operating Unit: ' || MO_GLOBAL.get_ou_name(l_org_id(m)));
963: FND_FILE.PUT_LINE(FND_FILE.LOG, '-----------------------------------------------------');
964:
965: IF p_run_mode IS NOT NULL THEN
966: OPEN csr_meaning('OZF_CLAIM_AUTOPAY_RUNMODE', p_run_mode);
959: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Operating Unit: ' || MO_GLOBAL.get_ou_name(l_org_id(m)));
960: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '-----------------------------------------------------');
961: -- Write OU info to LOG file
962: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Operating Unit: ' || MO_GLOBAL.get_ou_name(l_org_id(m)));
963: FND_FILE.PUT_LINE(FND_FILE.LOG, '-----------------------------------------------------');
964:
965: IF p_run_mode IS NOT NULL THEN
966: OPEN csr_meaning('OZF_CLAIM_AUTOPAY_RUNMODE', p_run_mode);
967: FETCH csr_meaning INTO l_run_mode;
1042: FETCH csr_prod_name INTO l_prod_name;
1043: CLOSE csr_prod_name;
1044: END IF;
1045:
1046: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Run Mode', 40, ' ') || ': ' || l_run_mode);
1047: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Customer Name', 40, ' ') || ': '|| l_cust_name);
1048: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Relationship', 40, ' ') || ': ' || l_rlship);
1049: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Related Customer', 40, ' ') || ': ' || l_rel_cust_name);
1050: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Buying Group and Members', 40, ' ') || ': ' || l_buy_gp_name);
1043: CLOSE csr_prod_name;
1044: END IF;
1045:
1046: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Run Mode', 40, ' ') || ': ' || l_run_mode);
1047: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Customer Name', 40, ' ') || ': '|| l_cust_name);
1048: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Relationship', 40, ' ') || ': ' || l_rlship);
1049: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Related Customer', 40, ' ') || ': ' || l_rel_cust_name);
1050: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Buying Group and Members', 40, ' ') || ': ' || l_buy_gp_name);
1051: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Include All Member Earnings', 40, ' ') || ': ' || l_members_flag);
1044: END IF;
1045:
1046: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Run Mode', 40, ' ') || ': ' || l_run_mode);
1047: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Customer Name', 40, ' ') || ': '|| l_cust_name);
1048: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Relationship', 40, ' ') || ': ' || l_rlship);
1049: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Related Customer', 40, ' ') || ': ' || l_rel_cust_name);
1050: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Buying Group and Members', 40, ' ') || ': ' || l_buy_gp_name);
1051: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Include All Member Earnings', 40, ' ') || ': ' || l_members_flag);
1052: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Pay To', 40, ' ') || ': ' || l_pay_to);
1045:
1046: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Run Mode', 40, ' ') || ': ' || l_run_mode);
1047: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Customer Name', 40, ' ') || ': '|| l_cust_name);
1048: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Relationship', 40, ' ') || ': ' || l_rlship);
1049: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Related Customer', 40, ' ') || ': ' || l_rel_cust_name);
1050: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Buying Group and Members', 40, ' ') || ': ' || l_buy_gp_name);
1051: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Include All Member Earnings', 40, ' ') || ': ' || l_members_flag);
1052: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Pay To', 40, ' ') || ': ' || l_pay_to);
1053: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Fund Name', 40, ' ') || ': ' || l_fund_name);
1046: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Run Mode', 40, ' ') || ': ' || l_run_mode);
1047: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Customer Name', 40, ' ') || ': '|| l_cust_name);
1048: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Relationship', 40, ' ') || ': ' || l_rlship);
1049: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Related Customer', 40, ' ') || ': ' || l_rel_cust_name);
1050: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Buying Group and Members', 40, ' ') || ': ' || l_buy_gp_name);
1051: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Include All Member Earnings', 40, ' ') || ': ' || l_members_flag);
1052: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Pay To', 40, ' ') || ': ' || l_pay_to);
1053: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Fund Name', 40, ' ') || ': ' || l_fund_name);
1054: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Activity Type', 40, ' ') || ': ' || l_plan_type_name);
1047: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Customer Name', 40, ' ') || ': '|| l_cust_name);
1048: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Relationship', 40, ' ') || ': ' || l_rlship);
1049: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Related Customer', 40, ' ') || ': ' || l_rel_cust_name);
1050: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Buying Group and Members', 40, ' ') || ': ' || l_buy_gp_name);
1051: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Include All Member Earnings', 40, ' ') || ': ' || l_members_flag);
1052: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Pay To', 40, ' ') || ': ' || l_pay_to);
1053: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Fund Name', 40, ' ') || ': ' || l_fund_name);
1054: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Activity Type', 40, ' ') || ': ' || l_plan_type_name);
1055: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Offer Type', 40, ' ') || ': ' || l_offer_type_name);
1048: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Relationship', 40, ' ') || ': ' || l_rlship);
1049: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Related Customer', 40, ' ') || ': ' || l_rel_cust_name);
1050: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Buying Group and Members', 40, ' ') || ': ' || l_buy_gp_name);
1051: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Include All Member Earnings', 40, ' ') || ': ' || l_members_flag);
1052: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Pay To', 40, ' ') || ': ' || l_pay_to);
1053: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Fund Name', 40, ' ') || ': ' || l_fund_name);
1054: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Activity Type', 40, ' ') || ': ' || l_plan_type_name);
1055: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Offer Type', 40, ' ') || ': ' || l_offer_type_name);
1056: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Activity Name', 40, ' ') || ': ' || l_plan_name);
1049: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Related Customer', 40, ' ') || ': ' || l_rel_cust_name);
1050: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Buying Group and Members', 40, ' ') || ': ' || l_buy_gp_name);
1051: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Include All Member Earnings', 40, ' ') || ': ' || l_members_flag);
1052: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Pay To', 40, ' ') || ': ' || l_pay_to);
1053: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Fund Name', 40, ' ') || ': ' || l_fund_name);
1054: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Activity Type', 40, ' ') || ': ' || l_plan_type_name);
1055: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Offer Type', 40, ' ') || ': ' || l_offer_type_name);
1056: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Activity Name', 40, ' ') || ': ' || l_plan_name);
1057: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Product Category', 40, ' ') || ': ' || l_prod_cat_name);
1050: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Buying Group and Members', 40, ' ') || ': ' || l_buy_gp_name);
1051: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Include All Member Earnings', 40, ' ') || ': ' || l_members_flag);
1052: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Pay To', 40, ' ') || ': ' || l_pay_to);
1053: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Fund Name', 40, ' ') || ': ' || l_fund_name);
1054: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Activity Type', 40, ' ') || ': ' || l_plan_type_name);
1055: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Offer Type', 40, ' ') || ': ' || l_offer_type_name);
1056: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Activity Name', 40, ' ') || ': ' || l_plan_name);
1057: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Product Category', 40, ' ') || ': ' || l_prod_cat_name);
1058: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Product', 40, ' ') || ': ' || l_prod_name);
1051: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Include All Member Earnings', 40, ' ') || ': ' || l_members_flag);
1052: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Pay To', 40, ' ') || ': ' || l_pay_to);
1053: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Fund Name', 40, ' ') || ': ' || l_fund_name);
1054: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Activity Type', 40, ' ') || ': ' || l_plan_type_name);
1055: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Offer Type', 40, ' ') || ': ' || l_offer_type_name);
1056: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Activity Name', 40, ' ') || ': ' || l_plan_name);
1057: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Product Category', 40, ' ') || ': ' || l_prod_cat_name);
1058: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Product', 40, ' ') || ': ' || l_prod_name);
1059: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('End Date', 40, ' ') || ': ' || p_end_date);
1052: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Pay To', 40, ' ') || ': ' || l_pay_to);
1053: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Fund Name', 40, ' ') || ': ' || l_fund_name);
1054: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Activity Type', 40, ' ') || ': ' || l_plan_type_name);
1055: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Offer Type', 40, ' ') || ': ' || l_offer_type_name);
1056: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Activity Name', 40, ' ') || ': ' || l_plan_name);
1057: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Product Category', 40, ' ') || ': ' || l_prod_cat_name);
1058: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Product', 40, ' ') || ': ' || l_prod_name);
1059: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('End Date', 40, ' ') || ': ' || p_end_date);
1060: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Group By Offer', 40, ' ') || ': ' || p_group_by_offer);
1053: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Fund Name', 40, ' ') || ': ' || l_fund_name);
1054: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Activity Type', 40, ' ') || ': ' || l_plan_type_name);
1055: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Offer Type', 40, ' ') || ': ' || l_offer_type_name);
1056: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Activity Name', 40, ' ') || ': ' || l_plan_name);
1057: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Product Category', 40, ' ') || ': ' || l_prod_cat_name);
1058: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Product', 40, ' ') || ': ' || l_prod_name);
1059: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('End Date', 40, ' ') || ': ' || p_end_date);
1060: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Group By Offer', 40, ' ') || ': ' || p_group_by_offer);
1061: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1054: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Activity Type', 40, ' ') || ': ' || l_plan_type_name);
1055: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Offer Type', 40, ' ') || ': ' || l_offer_type_name);
1056: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Activity Name', 40, ' ') || ': ' || l_plan_name);
1057: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Product Category', 40, ' ') || ': ' || l_prod_cat_name);
1058: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Product', 40, ' ') || ': ' || l_prod_name);
1059: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('End Date', 40, ' ') || ': ' || p_end_date);
1060: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Group By Offer', 40, ' ') || ': ' || p_group_by_offer);
1061: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1062:
1055: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Offer Type', 40, ' ') || ': ' || l_offer_type_name);
1056: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Activity Name', 40, ' ') || ': ' || l_plan_name);
1057: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Product Category', 40, ' ') || ': ' || l_prod_cat_name);
1058: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Product', 40, ' ') || ': ' || l_prod_name);
1059: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('End Date', 40, ' ') || ': ' || p_end_date);
1060: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Group By Offer', 40, ' ') || ': ' || p_group_by_offer);
1061: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1062:
1063: /*------------ Autopay starts ---------------*/
1056: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Activity Name', 40, ' ') || ': ' || l_plan_name);
1057: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Product Category', 40, ' ') || ': ' || l_prod_cat_name);
1058: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Product', 40, ' ') || ': ' || l_prod_name);
1059: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('End Date', 40, ' ') || ': ' || p_end_date);
1060: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Group By Offer', 40, ' ') || ': ' || p_group_by_offer);
1061: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1062:
1063: /*------------ Autopay starts ---------------*/
1064:
1057: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Product Category', 40, ' ') || ': ' || l_prod_cat_name);
1058: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Product', 40, ' ') || ': ' || l_prod_name);
1059: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('End Date', 40, ' ') || ': ' || p_end_date);
1060: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Group By Offer', 40, ' ') || ': ' || p_group_by_offer);
1061: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1062:
1063: /*------------ Autopay starts ---------------*/
1064:
1065: -- get autopay_flag, reason_code_id
1235: FETCH csr_cust_name INTO l_cust_name_num;
1236: CLOSE csr_cust_name;
1237:
1238:
1239: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('l_bill_to_site_use_id', 40, ' ') || ': ' || l_bill_to_site_use_id);
1240:
1241: -- 1. get trade profile by site_use_id
1242: OPEN g_site_info_csr(l_bill_to_site_use_id);
1243: FETCH g_site_info_csr into l_customer_info;
1301: END IF;
1302: l_prev_site_use_id := l_bill_to_site_use_id;
1303:
1304: IF p_customer_id IS NULL THEN
1305: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Customer Name : '||l_cust_name_num );
1306: END IF;
1307: IF l_offer_pay_method IS NOT NULL THEN
1308: OPEN csr_offer_pay_name(l_offer_pay_method);
1309: FETCH csr_offer_pay_name INTO l_offer_pay_name;
1307: IF l_offer_pay_method IS NOT NULL THEN
1308: OPEN csr_offer_pay_name(l_offer_pay_method);
1309: FETCH csr_offer_pay_name INTO l_offer_pay_name;
1310: CLOSE csr_offer_pay_name;
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;
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,
1325: p_amount => l_amount,
1326: p_mode => 'N',
1327: p_auto_reason_code_id => l_auto_reason_code_id,
1342: IF l_trade_prf_exist THEN
1343: l_trd_prof_tbl(i) := l_customer_info.trade_profile_id;
1344: END IF;
1345:
1346: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Amount = '||l_amount);
1347: FND_FILE.PUT_LINE(FND_FILE.LOG, '===> Success.');
1348: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1349: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1350: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim Amount : '||l_amount );
1343: l_trd_prof_tbl(i) := l_customer_info.trade_profile_id;
1344: END IF;
1345:
1346: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Amount = '||l_amount);
1347: FND_FILE.PUT_LINE(FND_FILE.LOG, '===> Success.');
1348: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1349: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1350: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim Amount : '||l_amount );
1351: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Success. ');
1344: END IF;
1345:
1346: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Amount = '||l_amount);
1347: FND_FILE.PUT_LINE(FND_FILE.LOG, '===> Success.');
1348: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1349: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1350: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim Amount : '||l_amount );
1351: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Success. ');
1352: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1345:
1346: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Amount = '||l_amount);
1347: FND_FILE.PUT_LINE(FND_FILE.LOG, '===> Success.');
1348: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1349: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1350: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim Amount : '||l_amount );
1351: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Success. ');
1352: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1353: OZF_UTILITY_PVT.write_conc_log;
1346: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Amount = '||l_amount);
1347: FND_FILE.PUT_LINE(FND_FILE.LOG, '===> Success.');
1348: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1349: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1350: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim Amount : '||l_amount );
1351: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Success. ');
1352: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1353: OZF_UTILITY_PVT.write_conc_log;
1354: ELSE
1347: FND_FILE.PUT_LINE(FND_FILE.LOG, '===> Success.');
1348: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1349: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1350: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim Amount : '||l_amount );
1351: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Success. ');
1352: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1353: OZF_UTILITY_PVT.write_conc_log;
1354: ELSE
1355: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- Start AUTOPAY for customer '||l_cust_name_num||' ---*/');
1348: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1349: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1350: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim Amount : '||l_amount );
1351: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Success. ');
1352: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1353: OZF_UTILITY_PVT.write_conc_log;
1354: ELSE
1355: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- Start AUTOPAY for customer '||l_cust_name_num||' ---*/');
1356: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Autopay flag is not turned on in Trade Profile for customer '||l_cust_name_num);
1351: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Success. ');
1352: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1353: OZF_UTILITY_PVT.write_conc_log;
1354: ELSE
1355: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- Start AUTOPAY for customer '||l_cust_name_num||' ---*/');
1356: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Autopay flag is not turned on in Trade Profile for customer '||l_cust_name_num);
1357: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1358: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1359: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1352: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1353: OZF_UTILITY_PVT.write_conc_log;
1354: ELSE
1355: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- Start AUTOPAY for customer '||l_cust_name_num||' ---*/');
1356: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Autopay flag is not turned on in Trade Profile for customer '||l_cust_name_num);
1357: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1358: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1359: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1360: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Autopay flag is not turned on in Trade Profile for this customer. ');
1353: OZF_UTILITY_PVT.write_conc_log;
1354: ELSE
1355: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- Start AUTOPAY for customer '||l_cust_name_num||' ---*/');
1356: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Autopay flag is not turned on in Trade Profile for customer '||l_cust_name_num);
1357: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1358: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1359: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1360: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Autopay flag is not turned on in Trade Profile for this customer. ');
1361: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1354: ELSE
1355: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- Start AUTOPAY for customer '||l_cust_name_num||' ---*/');
1356: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Autopay flag is not turned on in Trade Profile for customer '||l_cust_name_num);
1357: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1358: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1359: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1360: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Autopay flag is not turned on in Trade Profile for this customer. ');
1361: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1362: END IF; -- end of if autopay flag is turning on
1355: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- Start AUTOPAY for customer '||l_cust_name_num||' ---*/');
1356: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Autopay flag is not turned on in Trade Profile for customer '||l_cust_name_num);
1357: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1358: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1359: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1360: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Autopay flag is not turned on in Trade Profile for this customer. ');
1361: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1362: END IF; -- end of if autopay flag is turning on
1363: ELSE
1356: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Autopay flag is not turned on in Trade Profile for customer '||l_cust_name_num);
1357: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1358: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1359: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1360: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Autopay flag is not turned on in Trade Profile for this customer. ');
1361: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1362: END IF; -- end of if autopay flag is turning on
1363: ELSE
1364: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- Start AUTOPAY for customer '||l_cust_name_num||' ---*/');
1357: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1358: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1359: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1360: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Autopay flag is not turned on in Trade Profile for this customer. ');
1361: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1362: END IF; -- end of if autopay flag is turning on
1363: ELSE
1364: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- Start AUTOPAY for customer '||l_cust_name_num||' ---*/');
1365: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Trade Profile is not existing for customer '||l_cust_name_num);
1360: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Autopay flag is not turned on in Trade Profile for this customer. ');
1361: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1362: END IF; -- end of if autopay flag is turning on
1363: ELSE
1364: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- Start AUTOPAY for customer '||l_cust_name_num||' ---*/');
1365: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Trade Profile is not existing for customer '||l_cust_name_num);
1366: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1367: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1368: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1361: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1362: END IF; -- end of if autopay flag is turning on
1363: ELSE
1364: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- Start AUTOPAY for customer '||l_cust_name_num||' ---*/');
1365: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Trade Profile is not existing for customer '||l_cust_name_num);
1366: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1367: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1368: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1369: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Trade Profile is not existing for this customer.');
1362: END IF; -- end of if autopay flag is turning on
1363: ELSE
1364: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- Start AUTOPAY for customer '||l_cust_name_num||' ---*/');
1365: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Trade Profile is not existing for customer '||l_cust_name_num);
1366: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1367: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1368: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1369: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Trade Profile is not existing for this customer.');
1370: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1363: ELSE
1364: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- Start AUTOPAY for customer '||l_cust_name_num||' ---*/');
1365: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Trade Profile is not existing for customer '||l_cust_name_num);
1366: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1367: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1368: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1369: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Trade Profile is not existing for this customer.');
1370: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1371: END IF; -- end of if l_trade_prf_exist
1364: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- Start AUTOPAY for customer '||l_cust_name_num||' ---*/');
1365: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Trade Profile is not existing for customer '||l_cust_name_num);
1366: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1367: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1368: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1369: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Trade Profile is not existing for this customer.');
1370: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1371: END IF; -- end of if l_trade_prf_exist
1372: END IF; -- end of if l_cust_account_id is not null
1365: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Trade Profile is not existing for customer '||l_cust_name_num);
1366: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1367: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1368: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1369: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Trade Profile is not existing for this customer.');
1370: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1371: END IF; -- end of if l_trade_prf_exist
1372: END IF; -- end of if l_cust_account_id is not null
1373:
1366: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1367: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1368: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1369: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Trade Profile is not existing for this customer.');
1370: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
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
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 ---*/');
1380: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1381: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
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 ---*/');
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, '');
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 ---*/');
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
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 ---*/');
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;
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.');
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.');
1387: OZF_UTILITY_PVT.write_conc_log;
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 ---*/');
1389: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1390: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
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 ---*/');
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, '');
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 ---*/');
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:
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 ---*/');
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
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;
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;
1396: FND_FILE.PUT_LINE(FND_FILE.LOG, '===> Failed.');
1392: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1393:
1394: WHEN OTHERS THEN
1395: ROLLBACK TO AUTOPAY_CUST;
1396: FND_FILE.PUT_LINE(FND_FILE.LOG, '===> Failed.');
1397: IF OZF_DEBUG_LOW_ON THEN
1398: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1399: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
1400: FND_MSG_PUB.Add;
1399: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
1400: FND_MSG_PUB.Add;
1401: END IF;
1402: OZF_UTILITY_PVT.write_conc_log;
1403: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1404: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1405: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1406: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || SQLCODE||SQLERRM);
1407: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1400: FND_MSG_PUB.Add;
1401: END IF;
1402: OZF_UTILITY_PVT.write_conc_log;
1403: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1404: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1405: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1406: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || SQLCODE||SQLERRM);
1407: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1408: END;
1401: END IF;
1402: OZF_UTILITY_PVT.write_conc_log;
1403: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1404: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1405: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1406: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || SQLCODE||SQLERRM);
1407: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1408: END;
1409:
1402: OZF_UTILITY_PVT.write_conc_log;
1403: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1404: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1405: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1406: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || SQLCODE||SQLERRM);
1407: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1408: END;
1409:
1410: ELSE
1403: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1404: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1405: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Auto Pay Failed. ');
1406: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || SQLCODE||SQLERRM);
1407: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1408: END;
1409:
1410: ELSE
1411: EXIT;
1430:
1431: -- Write all messages to a log
1432: OZF_UTILITY_PVT.Write_Conc_Log;
1433:
1434: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1435: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Successful' );
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:
1431: -- Write all messages to a log
1432: OZF_UTILITY_PVT.Write_Conc_Log;
1433:
1434: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1435: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Successful' );
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
1432: OZF_UTILITY_PVT.Write_Conc_Log;
1433:
1434: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1435: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Successful' );
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
1433:
1434: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1435: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Successful' );
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;
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
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
1451: ROLLBACK TO AutoPay;
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
1451: ROLLBACK TO AutoPay;
1452:
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
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
1461: ROLLBACK TO AutoPay;
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
1461: ROLLBACK TO AutoPay;
1462:
1462:
1463: OZF_UTILITY_PVT.Write_Conc_Log;
1464: ERRBUF := l_msg_data;
1465: RETCODE := 2;
1466: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' ||SQLCODE||SQLERRM || ')');
1467: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
1468: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1469:
1470: END;
1463: OZF_UTILITY_PVT.Write_Conc_Log;
1464: ERRBUF := l_msg_data;
1465: RETCODE := 2;
1466: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' ||SQLCODE||SQLERRM || ')');
1467: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
1468: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1469:
1470: END;
1471: END LOOP;
1464: ERRBUF := l_msg_data;
1465: RETCODE := 2;
1466: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' ||SQLCODE||SQLERRM || ')');
1467: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
1468: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
1469:
1470: END;
1471: END LOOP;
1472: END IF;