73: l_response IBY_FNDCPT_COMMON_PUB.Result_rec_type;
74: l_joint_acct_owner_id NUMBER;
75: BEGIN
76: IBY_EXT_BANKACCT_PUB.add_joint_account_owner(p_api_version => 1.0,
77: p_init_msg_list => FND_API.G_TRUE,
78: p_bank_account_id => p_bank_account_id,
79: p_acct_owner_party_id => p_account_owner_party_id,
80: x_joint_acct_owner_id=>l_joint_acct_owner_id,
81: x_return_status=>l_return_status,
83: x_msg_data => l_msg_data,
84: x_response => l_response);
85: IF (l_joint_acct_owner_id IS NOT NULL) THEN
86: IBY_EXT_BANKACCT_PUB.change_primary_acct_owner (p_api_version => 1.0,
87: p_init_msg_list => FND_API.G_TRUE,
88: p_bank_acct_id => p_bank_account_id,
89: p_acct_owner_party_id => p_account_owner_party_id,
90: x_return_status=>l_return_status,
91: x_msg_count => l_msg_count,
548: BEGIN
549: l_module_name := 'fv.plsql.FV_CCR_UTIL_PVT.get_federal_indicator';
550: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,'BEGIN');
551:
552: l_init_msg_list := fnd_api.g_true;
553:
554:
555: l_duns:='';
556: IF(nvl(p_vendor_id,0)=0) THEN
573: x_msg_data => l_msg_data,
574: x_federal => x_federal,
575: x_error_code => l_error_code
576: );
577: if(nvl(l_return_status,'E')<>FND_API.G_RET_STS_SUCCESS) THEN
578: if(l_msg_count=1) THEN
579: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,l_module_name,
580: 'Get Federal Indicator:' || l_msg_data);
581: else
826: NULL;
827: WHEN OTHERS THEN
828: l_msg_text := l_module_name||': When others error: Error Code:'||SQLCODE||' Error Text:'||SQLERRM;
829: FV_UTILITY.LOG_MESG(l_msg_text);
830: x_return_status := FND_API.G_RET_STS_ERROR ;
831: insert_for_report(l_duns_for_report,19,l_msg_text||nvl(l_excp_msg,''),null,null,null,null);
832: RETURN;
833: END;
834:
862: FND_MSG_PUB.initialize;
863:
864:
865: -- Initialize API return status to success
866: x_return_status := FND_API.G_RET_STS_SUCCESS;
867:
868:
869: -- Get the site id if they exist
870:
1951: p_count => x_msg_count ,
1952: p_data => x_msg_data
1953: );
1954: EXCEPTION
1955: WHEN FND_API.G_EXC_ERROR THEN
1956: IF(x_vendor_id IS NULL) THEN
1957: x_vendor_id := p_prev_vendor_id;
1958: END IF;
1959:
1956: IF(x_vendor_id IS NULL) THEN
1957: x_vendor_id := p_prev_vendor_id;
1958: END IF;
1959:
1960: x_return_status := FND_API.G_RET_STS_ERROR ;
1961: FND_MSG_PUB.Count_And_Get
1962: ( p_count => x_msg_count ,
1963: p_data => x_msg_data
1964: );
1961: FND_MSG_PUB.Count_And_Get
1962: ( p_count => x_msg_count ,
1963: p_data => x_msg_data
1964: );
1965: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1966: IF(x_vendor_id IS NULL) THEN
1967: x_vendor_id := p_prev_vendor_id;
1968: END IF;
1969:
1966: IF(x_vendor_id IS NULL) THEN
1967: x_vendor_id := p_prev_vendor_id;
1968: END IF;
1969:
1970: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1971: FND_MSG_PUB.Count_And_Get
1972: ( p_count => x_msg_count ,
1973: p_data => x_msg_data
1974: );
1976: IF(x_vendor_id IS NULL) THEN
1977: x_vendor_id := p_prev_vendor_id;
1978: END IF;
1979:
1980: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1981: IF FND_MSG_PUB.Check_Msg_Level
1982: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1983: THEN
1984: FND_MSG_PUB.Add_Exc_Msg
2243:
2244:
2245: AP_VENDOR_PUB_PKG.create_vendor(
2246: p_api_version => l_version,
2247: p_init_msg_list => FND_API.G_TRUE,
2248: p_commit=> FND_API.G_FALSE,
2249: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
2250: x_return_status => l_ret_stat,
2251: x_msg_count=>l_msg_count,
2244:
2245: AP_VENDOR_PUB_PKG.create_vendor(
2246: p_api_version => l_version,
2247: p_init_msg_list => FND_API.G_TRUE,
2248: p_commit=> FND_API.G_FALSE,
2249: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
2250: x_return_status => l_ret_stat,
2251: x_msg_count=>l_msg_count,
2252: x_msg_data=>l_msg_data,
2245: AP_VENDOR_PUB_PKG.create_vendor(
2246: p_api_version => l_version,
2247: p_init_msg_list => FND_API.G_TRUE,
2248: p_commit=> FND_API.G_FALSE,
2249: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
2250: x_return_status => l_ret_stat,
2251: x_msg_count=>l_msg_count,
2252: x_msg_data=>l_msg_data,
2253: p_vendor_rec=>l_vendor_rec,
2423: end if;
2424:
2425: AP_VENDOR_PUB_PKG.create_vendor_site(
2426: p_api_version => l_version,
2427: p_init_msg_list => FND_API.G_TRUE,
2428: p_commit=> FND_API.G_FALSE,
2429: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
2430: x_return_status => l_ret_stat,
2431: x_msg_count=>l_msg_count,
2424:
2425: AP_VENDOR_PUB_PKG.create_vendor_site(
2426: p_api_version => l_version,
2427: p_init_msg_list => FND_API.G_TRUE,
2428: p_commit=> FND_API.G_FALSE,
2429: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
2430: x_return_status => l_ret_stat,
2431: x_msg_count=>l_msg_count,
2432: x_msg_data=>l_msg_data,
2425: AP_VENDOR_PUB_PKG.create_vendor_site(
2426: p_api_version => l_version,
2427: p_init_msg_list => FND_API.G_TRUE,
2428: p_commit=> FND_API.G_FALSE,
2429: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
2430: x_return_status => l_ret_stat,
2431: x_msg_count=>l_msg_count,
2432: x_msg_data=>l_msg_data,
2433: p_vendor_site_rec=>l_vendor_site_rec,
2561: l_vendor_site_rec.pay_site_flag := p_pay_site_flag;
2562:
2563: AP_VENDOR_PUB_PKG.update_vendor_site(
2564: p_api_version => l_version,
2565: p_init_msg_list => FND_API.G_TRUE,
2566: p_commit=> FND_API.G_FALSE,
2567: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
2568: x_return_status => l_ret_stat,
2569: x_msg_count=>l_msg_count,
2562:
2563: AP_VENDOR_PUB_PKG.update_vendor_site(
2564: p_api_version => l_version,
2565: p_init_msg_list => FND_API.G_TRUE,
2566: p_commit=> FND_API.G_FALSE,
2567: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
2568: x_return_status => l_ret_stat,
2569: x_msg_count=>l_msg_count,
2570: x_msg_data=>l_msg_data,
2563: AP_VENDOR_PUB_PKG.update_vendor_site(
2564: p_api_version => l_version,
2565: p_init_msg_list => FND_API.G_TRUE,
2566: p_commit=> FND_API.G_FALSE,
2567: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
2568: x_return_status => l_ret_stat,
2569: x_msg_count=>l_msg_count,
2570: x_msg_data=>l_msg_data,
2571: p_vendor_site_rec=>l_vendor_site_rec,
2614:
2615: l_location_rec.location_id := l_location_id;
2616:
2617: hz_location_v2pub.update_location(
2618: FND_API.G_TRUE,
2619: l_location_rec,
2620: l_object_version_number,
2621: l_ret_stat,
2622: l_msg_count,
2652: where party_site_id = l_party_site_id;
2653:
2654:
2655: hz_party_site_v2pub.update_party_site(
2656: FND_API.G_TRUE,
2657: l_party_site_rec,
2658: l_object_version_number,
2659: l_ret_stat,
2660: l_msg_count,
2723:
2724: BANK_EXCEPTION EXCEPTION;
2725: BEGIN
2726:
2727: x_return_status := FND_API.G_RET_STS_SUCCESS;
2728:
2729: if(nvl(p_created_bank_branch_id,0)=0) THEN
2730:
2731: -- Creation of Bank
2732: -- Check if bank exists
2733:
2734: IBY_EXT_BANKACCT_PUB.check_bank_exist(
2735: p_api_version => l_api_version,
2736: p_init_msg_list => FND_API.G_FALSE,
2737: p_country_code=> p_country_code,
2738: p_bank_name =>p_bank_name,
2739: p_bank_number => p_bank_num,
2740: x_return_status => l_return_status,
2747: if(l_bank_id IS NOT NULL) THEN
2748: if(l_end_date IS NOT NULL) THEN
2749: IBY_EXT_BANKACCT_PUB.set_bank_end_date(
2750: p_api_version => l_api_version,
2751: p_init_msg_list => FND_API.G_FALSE,
2752: p_bank_id => l_bank_id,
2753: p_end_date => null,
2754: x_return_status => l_return_status,
2755: x_msg_count => l_msg_count,
2755: x_msg_count => l_msg_count,
2756: x_msg_data => l_msg_data,
2757: x_response => l_response);
2758:
2759: if(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2760: RAISE BANK_EXCEPTION;
2761: end if;
2762: end if; -- l_end_date
2763: ELSE -- l_bank_id
2767: l_bank_rec.country_code := p_country_code;
2768:
2769: IBY_EXT_BANKACCT_PUB.create_ext_bank(
2770: p_api_version => l_api_version,
2771: p_init_msg_list => FND_API.G_FALSE,
2772: p_ext_bank_rec => l_bank_rec,
2773: x_bank_id => l_bank_id,
2774: x_return_status => l_return_status,
2775: x_msg_count => l_msg_count,
2775: x_msg_count => l_msg_count,
2776: x_msg_data => l_msg_data,
2777: x_response => l_response);
2778:
2779: if(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2780: RAISE BANK_EXCEPTION;
2781: end if;
2782: END IF;
2783:
2789: -- Check if Bank Branch Exists
2790:
2791: IBY_EXT_BANKACCT_PUB.check_ext_bank_branch_exist(
2792: p_api_version => l_api_version,
2793: p_init_msg_list => FND_API.G_FALSE,
2794: p_bank_id => l_bank_id,
2795: p_branch_name => p_branch_name,
2796: p_branch_number => p_bank_num,
2797: x_return_status => l_return_status,
2804: if(l_bank_branch_id IS NOT NULL) THEN
2805: if(l_end_date IS NOT NULL) THEN
2806: IBY_EXT_BANKACCT_PUB.set_ext_bank_branch_end_date(
2807: p_api_version => l_api_version,
2808: p_init_msg_list => FND_API.G_FALSE,
2809: p_branch_id => l_bank_branch_id,
2810: p_end_date => null,
2811: x_return_status => l_return_status,
2812: x_msg_count => l_msg_count,
2812: x_msg_count => l_msg_count,
2813: x_msg_data => l_msg_data,
2814: x_response => l_response);
2815:
2816: if(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2817: RAISE BANK_EXCEPTION;
2818: end if;
2819: end if; -- l_end_date
2820:
2830: end if;
2831:
2832: IBY_EXT_BANKACCT_PUB.create_ext_bank_branch(
2833: p_api_version => l_api_version,
2834: p_init_msg_list => FND_API.G_FALSE,
2835: p_ext_bank_branch_rec => l_bank_branch_rec,
2836: x_branch_id => l_bank_branch_id,
2837: x_return_status => l_return_status,
2838: x_msg_count => l_msg_count,
2838: x_msg_count => l_msg_count,
2839: x_msg_data => l_msg_data,
2840: x_response => l_response);
2841:
2842: if(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2843: RAISE BANK_EXCEPTION;
2844: end if;
2845: END IF; -- l_bank_branch_id
2846:
2856: -- Create Bank Account
2857:
2858: IBY_EXT_BANKACCT_PUB.check_ext_acct_exist(
2859: p_api_version => l_api_version,
2860: p_init_msg_list => FND_API.G_FALSE,
2861: p_bank_id => l_bank_id,
2862: p_branch_id => l_bank_branch_id,
2863: p_acct_number => p_bank_acct_num,
2864: p_acct_name => p_bank_acct_name,
2880: l_object_version_number := -1;
2881:
2882: IBY_EXT_BANKACCT_PUB.set_ext_bank_acct_dates(
2883: p_api_version => l_api_version,
2884: p_init_msg_list => FND_API.G_FALSE,
2885: p_acct_id => l_bank_account_id,
2886: p_start_date => l_start_date,
2887: p_end_date => null,
2888: p_object_version_number => l_object_version_number,
2890: x_msg_count => l_msg_count,
2891: x_msg_data => l_msg_data,
2892: x_response => l_response);
2893:
2894: if(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2895: RAISE BANK_EXCEPTION;
2896: end if;
2897: end if; -- l_end_date
2898:
2937:
2938:
2939: IBY_EXT_BANKACCT_PUB.create_ext_bank_acct(
2940: p_api_version => l_api_version,
2941: p_init_msg_list => FND_API.G_FALSE,
2942: p_ext_bank_acct_rec => l_bank_acct_rec,
2943: x_acct_id => l_bank_account_id,
2944: x_return_status => l_return_status,
2945: x_msg_count => l_msg_count,
2945: x_msg_count => l_msg_count,
2946: x_msg_data => l_msg_data,
2947: x_response => l_response);
2948:
2949: if(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2950: RAISE BANK_EXCEPTION;
2951: end if;
2952: END IF; -- l_bank_account_id
2953:
2960: x_bank_account_id := l_bank_account_id;
2961:
2962: EXCEPTION
2963: WHEN BANK_EXCEPTION THEN
2964: x_return_status := fnd_api.g_ret_sts_error;
2965:
2966: -- Print the messages from l_msg_data in log file
2967: WHEN OTHERS THEN
2968: x_return_status := fnd_api.g_ret_sts_unexp_error;
2964: x_return_status := fnd_api.g_ret_sts_error;
2965:
2966: -- Print the messages from l_msg_data in log file
2967: WHEN OTHERS THEN
2968: x_return_status := fnd_api.g_ret_sts_unexp_error;
2969: -- Print SQLERRM in log file
2970:
2971: END create_bank_account;
2972:
2990: UPDATE iby_ext_bank_accounts
2991: set BANK_ACCOUNT_TYPE = l_bank_account_type
2992: where EXT_BANK_ACCOUNT_ID = p_bank_account_id;
2993:
2994: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2995: EXCEPTION
2996: WHEN OTHERS THEN
2997: x_return_status := fnd_api.g_ret_sts_unexp_error;
2998: -- Print SQLERRM in log file
2993:
2994: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2995: EXCEPTION
2996: WHEN OTHERS THEN
2997: x_return_status := fnd_api.g_ret_sts_unexp_error;
2998: -- Print SQLERRM in log file
2999: fv_utility.log_mesg('When others error in update_bank_account.');
3000: END update_bank_account;
3001:
3094: 'Calling set payee instr assignment');
3095:
3096: IBY_DISBURSEMENT_SETUP_PUB.Set_Payee_Instr_Assignment(
3097: p_api_version => l_api_version,
3098: p_init_msg_list => FND_API.G_FALSE,
3099: p_commit => FND_API.G_FALSE,
3100: x_return_status => l_return_status,
3101: x_msg_count => l_msg_count,
3102: x_msg_data => l_msg_data,
3095:
3096: IBY_DISBURSEMENT_SETUP_PUB.Set_Payee_Instr_Assignment(
3097: p_api_version => l_api_version,
3098: p_init_msg_list => FND_API.G_FALSE,
3099: p_commit => FND_API.G_FALSE,
3100: x_return_status => l_return_status,
3101: x_msg_count => l_msg_count,
3102: x_msg_data => l_msg_data,
3103: p_payee => l_payee,
3104: p_assignment_attribs => l_assignment,
3105: x_assign_id => l_assign_id,
3106: x_response => l_response);
3107:
3108: if(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3109: RAISE BANK_USES_EXCEPTION;
3110: end if;
3111: END IF;
3112:
3135: IF(p_account_uses_insert_flag = 'U') THEN
3136:
3137: IBY_DISBURSEMENT_SETUP_PUB.Get_Payee_Instr_Assignments(
3138: p_api_version => l_api_version,
3139: p_init_msg_list => FND_API.G_FALSE,
3140: x_return_status => l_return_status,
3141: x_msg_count => l_msg_count,
3142: x_msg_data => l_msg_data,
3143: p_payee => l_payee,
3188: l_assignment.end_date := null;
3189:
3190: IBY_DISBURSEMENT_SETUP_PUB.Set_Payee_Instr_Assignment(
3191: p_api_version => l_api_version,
3192: p_init_msg_list => FND_API.G_FALSE,
3193: p_commit => FND_API.G_FALSE,
3194: x_return_status => l_return_status,
3195: x_msg_count => l_msg_count,
3196: x_msg_data => l_msg_data,
3189:
3190: IBY_DISBURSEMENT_SETUP_PUB.Set_Payee_Instr_Assignment(
3191: p_api_version => l_api_version,
3192: p_init_msg_list => FND_API.G_FALSE,
3193: p_commit => FND_API.G_FALSE,
3194: x_return_status => l_return_status,
3195: x_msg_count => l_msg_count,
3196: x_msg_data => l_msg_data,
3197: p_payee => l_payee,
3199: x_assign_id => l_assign_id,
3200: x_response => l_response);
3201:
3202:
3203: if(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3204: RAISE BANK_USES_EXCEPTION;
3205: end if;
3206: END IF;
3207: END IF;