[Home] [Help]
10: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
11: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
12: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
13:
14: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
15: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
17: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
18: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
11: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
12: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
13:
14: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
15: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
17: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
18: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
19: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
13:
14: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
15: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
17: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
18: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
19: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
20: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13:
14: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
15: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
17: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
18: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
19: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
20: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
21: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_VENDOR_PUB_PKG';
14: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
15: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
17: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
18: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
19: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
20: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
21: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_VENDOR_PUB_PKG';
22:
15: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
17: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
18: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
19: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
20: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
21: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_VENDOR_PUB_PKG';
22:
23: G_Vendor_Type_Lookup_Code VARCHAR2(30);
16: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
17: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
18: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
19: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
20: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
21: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_VENDOR_PUB_PKG';
22:
23: G_Vendor_Type_Lookup_Code VARCHAR2(30);
24:
49: l_current_calling_sequence := 'AP_VENDOR_PUB_PKG.Insert_rejections<-'
50: ||P_calling_sequence;
51:
52: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
53: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
54: ||' p_parent_table: '|| p_parent_table
55: ||', p_parent_id: '||to_char(p_parent_id)
56: ||', p_reject_code: '||p_reject_code);
57: END IF;
59: l_debug_info := '(Insert Rejections 1) Insert into AP_SUPPLIER_INT_REJECTIONS, '||
60: 'REJECT CODE:'||p_reject_code;
61: --
62: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
63: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
64: END IF;
65:
66: INSERT INTO AP_SUPPLIER_INT_REJECTIONS(
67: parent_table,
93: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
94: END IF;
95: --
96: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
97: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,SQLERRM);
98: END IF;
99:
100: RETURN (FALSE);
101:
1848: g_login_id,
1849: 'Check_Org_Id_Name') <> TRUE) THEN
1850: --
1851: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1852: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
1853: ||' P_Org_Id: '|| p_org_id
1854: ||', P_Org_Name: '||p_org_name
1855: ||', P_Int_Table: '||p_int_table
1856: ||', P_Int_Key: '||p_int_key);
1886: g_login_id,
1887: 'Check_Org_Id_Name') <> TRUE) THEN
1888: --
1889: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1890: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
1891: ||' P_Org_Id: '|| p_org_id
1892: ||', P_Org_Name: '||p_org_name
1893: ||', P_Int_Table: '||p_int_table
1894: ||', P_Int_Key: '||p_int_key);
1924: g_login_id,
1925: 'Check_Org_Id_Name') <> TRUE) THEN
1926: --
1927: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1928: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
1929: ||' P_Org_Id: '|| p_org_id
1930: ||', P_Org_Name: '||p_org_name
1931: ||', P_Int_Table: '||p_int_table
1932: ||', P_Int_Key: '||p_int_key);
2859: g_login_id,
2860: 'Check_Vendor_Site_Id') <> TRUE) THEN
2861: --
2862: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2863: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
2864: ||' P_Vendor_Site_Id: '|| p_vendor_site_id
2865: ||', P_Int_Table: '||p_int_table
2866: ||', P_Int_Key: '||p_int_key);
2867: END IF;
2875: -- Trap unknown errors
2876: WHEN OTHERS THEN
2877: x_valid := FALSE;
2878: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2879: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
2880: ||' P_Vendor_Site_Id: '|| p_vendor_site_id
2881: ||', P_Int_Table: '||p_int_table
2882: ||', P_Int_Key: '||p_int_key
2883: ||', ERROR: '||SUBSTR(SQLERRM,1,200));
2930: g_login_id,
2931: 'Check_Org_Id_Name_Site_Code') <> TRUE) THEN
2932: --
2933: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2934: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
2935: ||' P_Org_Id: '||p_org_id
2936: ||', P_Org_Name: '||p_org_name
2937: ||', P_Vendor_Site_Code: '||p_vendor_site_code
2938: ||', P_Vendor_Site_Id: '|| p_vendor_site_id
2965: g_login_id,
2966: 'Check_Org_Id_Name_Site_Code') <> TRUE) THEN
2967: --
2968: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2969: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
2970: ||' P_Org_Id: '||p_org_id
2971: ||', P_Org_Name: '||p_org_name
2972: ||', P_Vendor_Site_Code: '||p_vendor_site_code
2973: ||', P_Vendor_Site_Id: '|| p_vendor_site_id
3019: g_login_id,
3020: 'Check_Org_Id_Name_Site_Code') <> TRUE) THEN
3021: --
3022: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3023: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
3024: ||' P_Org_Id: '||p_org_id
3025: ||', P_Org_Name: '||p_org_name
3026: ||', P_Vendor_Site_Code: '||p_vendor_site_code
3027: ||', P_Vendor_Site_Id: '|| p_vendor_site_id
3062: g_login_id,
3063: 'Check_Org_Id_Name_Site_Code') <> TRUE) THEN
3064: --
3065: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3066: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
3067: ||' P_Org_Id: '||p_org_id
3068: ||', P_Org_Name: '||p_org_name
3069: ||', P_Vendor_Site_Code: '||p_vendor_site_code
3070: ||', P_Vendor_Site_Id: '|| p_vendor_site_id
3086: -- Trap unknown errors
3087: WHEN OTHERS THEN
3088: x_valid := FALSE;
3089: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3090: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
3091: ||' P_Org_Id: '||p_org_id
3092: ||', P_Org_Name: '||p_org_name
3093: ||', P_Vendor_Site_Code: '||p_vendor_site_code
3094: ||', P_Vendor_Site_Id: '|| p_vendor_site_id
3191: AND hzps.party_site_id = aps.party_site_id
3192: AND aps.vendor_id = p_vendor_id;
3193: end if;
3194: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3195: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME,'Check_org_id_party_site_name : '
3196: ||' P_Party_Site_Id: '|| p_party_site_id);
3197: END IF;
3198: EXCEPTION
3199: -- Trap validation error
3229: -- Trap unknown errors
3230: WHEN OTHERS THEN
3231: x_valid := FALSE;
3232: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3233: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
3234: ||' P_Org_Id: '||p_org_id
3235: ||', P_Org_Name: '||p_org_name
3236: ||', p_party_site_name: '||p_party_site_name
3237: ||', p_party_site_id: '|| p_party_site_id
3726: l_debug_info := 'After call to hz_party_v2pub.create_organization';
3727: l_debug_info := l_debug_info||' Return status : '||l_org_return_status||' Error : '||l_org_msg_data;
3728: ------------------------------------------------------------------------
3729: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3730: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3731: END IF;
3732: END IF;
3733:
3734: l_vendor_rec.party_id := l_org_party_id;
3768: l_debug_info := 'After call to hz_contact_point_v2pub.create_web_contact_point';
3769: l_debug_info := l_debug_info||' Return status : '||l_url_return_status||' Error : '||l_url_msg_data;
3770: ------------------------------------------------------------------------
3771: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3772: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3773: END IF;
3774: END IF;
3775:
3776: END IF; -- B 7831956 ... end
3792: l_debug_info := 'After call to HZ_PARTY_USG_ASSIGNMENT_PVT.assign_party_usage';
3793: l_debug_info := l_debug_info||' Return status : '||l_org_return_status||' Error : '||l_org_msg_data;
3794: ------------------------------------------------------------------------
3795: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3796: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3797: END IF;
3798: END IF;
3799:
3800: IF l_payee_valid = 'N' THEN --payee record is valid
3858: ------------------------------------------------------------------------
3859: Raise FND_API.G_EXC_UNEXPECTED_ERROR ; /*Bug9955876 */
3860:
3861: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3862: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3863: END IF;
3864: END IF;
3865:
3866: END IF;
3880: l_debug_info := 'After call to zx_tcm_bes_registration_pvt.synch_ptp_code_assigment';
3881: l_debug_info := l_debug_info||' Return status : '||l_zx_return_status||' Error : '||l_zx_msg_data;
3882: ------------------------------------------------------------------------
3883: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3884: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3885: END IF;
3886: END IF;
3887:
3888: END IF;
3907: WHEN OTHERS THEN
3908: L_PARTY_TAX_PROFILE_ID := NULL;
3909: l_debug_info := 'No data returned from ZX_PARTY_TAX_PROFILE for party_id = '||l_party_id;
3910: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3911: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3912: END IF;
3913: END;
3914:
3915: l_vendor_rec.OFFSET_TAX_FLAG := nvl(l_vendor_rec.OFFSET_TAX_FLAG, l_offset_tax_flag);
3979: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3980: l_debug_info := 'ZX_PARTY_TAX_PROFILE_PKG.update_row';
3981: l_debug_info := l_debug_info||' Return status : '||l_return_status;
3982: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3983: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3984: END IF;
3985: END IF;
3986: END IF;
3987: END IF;
4009: ------------------------------------------------------------------------
4010: l_debug_info := 'After call to ap_vendors_pkg.insert_row';
4011: ------------------------------------------------------------------------
4012: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4013: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4014: END IF;
4015:
4016: --
4017: -- Added Call to Sync the Party Information into ap_supplier
4027: l_debug_info := 'After call to AP_TCA_SUPPLIER_SYNC_PKG.SYNC_Supplier';
4028: l_debug_info := l_debug_info||' Return status : '||l_sync_return_status||' Error : '||l_sync_msg_data;
4029: ------------------------------------------------------------------------
4030: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4031: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4032: END IF;
4033: END IF;
4034:
4035: IF l_sync_return_status = FND_API.G_RET_STS_SUCCESS THEN
4853: ------------------------------------------------------------------------
4854: l_debug_info := 'Call to Validate inspection_required_flag';
4855: ------------------------------------------------------------------------
4856: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4857: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4858: END IF;
4859: --
4860: -- Validate inspection_required_flag
4861: --
4875: g_login_id,
4876: 'Validate_Vendor') <> TRUE) THEN
4877: --
4878: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4879: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4880: l_api_name,'Parameters: '
4881: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4882: ||' ,Inspection_Required_Flag: '||p_vendor_rec.inspection_required_flag);
4883: END IF;
4897: ------------------------------------------------------------------------
4898: l_debug_info := 'Call to Validate vat_code';
4899: ------------------------------------------------------------------------
4900: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4901: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4902: l_api_name,l_debug_info);
4903: END IF;
4904: --
4905: -- Validate vat_code
4927: g_login_id,
4928: 'Validate_Vendor') <> TRUE) THEN
4929: --
4930: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4931: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4932: l_api_name,'Parameters: '
4933: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4934: ||' ,Vat_Code: '
4935: ||p_vendor_rec.vat_code);
4939: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INVALID_VAT_CODE');
4940: FND_MSG_PUB.ADD;
4941: -- Bug 8438716 Start
4942: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4943: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4944: l_api_name,'After call to VAT_CODE validation... Parameters: '
4945: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4946: ||' ,Vat_Code: '
4947: ||p_vendor_rec.vat_code);
4956: ------------------------------------------------------------------------
4957: l_debug_info := 'Call to Validate receipt_required_flag';
4958: ------------------------------------------------------------------------
4959: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4960: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME|| l_api_name,l_debug_info);
4961: END IF;
4962: --
4963: -- Validate receipt_required_flag
4964: --
4978: g_login_id,
4979: 'Validate_Vendor') <> TRUE) THEN
4980: --
4981: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4982: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4983: l_api_name,'Parameters: '
4984: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4985: ||' ,Receipt_Required_Flag: '||p_vendor_rec.receipt_required_flag);
4986: END IF;
4998: ------------------------------------------------------------------------
4999: l_debug_info := 'Call to Validate Payment_Priority';
5000: ------------------------------------------------------------------------
5001: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5002: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5003: l_api_name,l_debug_info);
5004: END IF;
5005: --
5006: -- Validate Payment_Priority
5022: g_login_id,
5023: 'Validate_Vendor') <> TRUE) THEN
5024: --
5025: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5026: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5027: l_api_name,'Parameters: '
5028: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5029: ||' ,Payment_Priority: '||p_vendor_rec.payment_priority);
5030: END IF;
5041: ------------------------------------------------------------------------
5042: l_debug_info := 'Call to Validate the 1099_type value';
5043: ------------------------------------------------------------------------
5044: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5045: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5046: l_api_name,l_debug_info);
5047: END IF;
5048: --
5049: -- Validate the 1099_type value
5065: g_login_id,
5066: 'Validate_Vendor') <> TRUE) THEN
5067: --
5068: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5069: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5070: l_api_name,'Parameters: '
5071: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5072: ||' ,Type_1099: '||p_vendor_rec.type_1099
5073: ||' ,Federal_Reportable_Flag: '||p_vendor_rec.federal_reportable_flag);
5097: ------------------------------------------------------------------------
5098: l_debug_info := 'Call to Validate the jgzz_fiscal_code value';
5099: ------------------------------------------------------------------------
5100: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5101: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5102: l_api_name,l_debug_info);
5103: END IF;
5104: --
5105: -- Validate the jgzz_fiscal_code value
5133: g_login_id,
5134: 'Validate_Vendor') <> TRUE) THEN
5135: --
5136: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5137: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5138: l_api_name,'Default Country is Null');
5139: END IF;
5140: END IF;
5141:
5164: g_login_id,
5165: 'Validate_Vendor') <> TRUE) THEN
5166: --
5167: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5168: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5169: l_api_name,'Parameters: '
5170: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5171: ||' ,NUM_1099: '||p_vendor_rec.jgzz_fiscal_code
5172: ||' ,Federal_Reportable_Flag: '||p_vendor_rec.federal_reportable_flag);
5185: ------------------------------------------------------------------------
5186: l_debug_info := 'Call to Validate the Employee_Id';
5187: ------------------------------------------------------------------------
5188: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5189: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5190: l_api_name,l_debug_info);
5191: END IF;
5192: --
5193: -- Employee_Id validation
5204: g_user_id,
5205: g_login_id,
5206: 'Validate_Vendor') <> TRUE) THEN
5207: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5208: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5209: l_api_name,'Parameters: '
5210: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5211: ||' ,Vendor_Type_Lookup_Code: '||p_vendor_rec.vendor_type_lookup_code
5212: ||' ,Employee_Id: NULL');
5233: g_login_id,
5234: 'Validate_Vendor') <> TRUE) THEN
5235: --
5236: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5237: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5238: l_api_name,'Parameters: '
5239: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5240: ||' ,Employee_Id: '||p_vendor_rec.employee_id);
5241: END IF;
5269: g_login_id,
5270: 'Validate_Vendor') <> TRUE) THEN
5271: --
5272: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5273: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5274: l_api_name,'Parameters: '
5275: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5276: ||' ,Vendor_Type_Lookup_Code: '||p_vendor_rec.vendor_type_lookup_code
5277: ||' ,Not able to get Party Id From Employee Id.');
5289: ------------------------------------------------------------------------
5290: l_debug_info := 'Call to Validate inspection_required_flag and receipt_required_flag';
5291: ------------------------------------------------------------------------
5292: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5293: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5294: l_api_name,l_debug_info);
5295: END IF;
5296: --
5297: -- Validate inspection_required_flag and receipt_required_flag
5316: g_login_id,
5317: 'Validate_Vendor') <> TRUE) THEN
5318: --
5319: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5320: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5321: l_api_name,'Parameters: '
5322: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5323: ||' ,Inspection_Required_Flag: '||p_vendor_rec.inspection_required_flag
5324: ||' ,Receipt_Required_Flag: '||p_vendor_rec.receipt_required_flag);
5336: ------------------------------------------------------------------------
5337: l_debug_info := 'Call to Validate Name Control';
5338: ------------------------------------------------------------------------
5339: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5340: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5341: l_api_name,l_debug_info);
5342: END IF;
5343: --
5344: -- Validate the Name Control value
5358: g_login_id,
5359: 'Validate_Vendor') <> TRUE) THEN
5360: --
5361: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5362: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5363: l_api_name,'Parameters: '
5364: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5365: ||' ,Name_Control: '||p_vendor_rec.name_control);
5366: END IF;
5378: ------------------------------------------------------------------------
5379: l_debug_info := 'Call to Validate ship_via_lookup_code';
5380: ------------------------------------------------------------------------
5381: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5382: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5383: l_api_name,l_debug_info);
5384: END IF;
5385: --
5386: -- Validate ship_via_lookup_code
5406: g_login_id,
5407: 'Validate_Vendor') <> TRUE) THEN
5408: --
5409: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5410: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5411: l_api_name,'Parameters: '
5412: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5413: ||' ,Ship_Via_Lookup_Code: '||p_vendor_rec.ship_via_lookup_code
5414: ||' ,Inventory_Organization_Id: '||p_vendor_rec.inventory_organization_id);
5427: ------------------------------------------------------------------------
5428: l_debug_info := 'Call to Validate set_of_books_id';
5429: ------------------------------------------------------------------------
5430: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5431: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5432: l_api_name,l_debug_info);
5433: END IF;
5434: --
5435: -- Set_of_books_Id validation
5450: g_login_id,
5451: 'Validate_Vendor') <> TRUE) THEN
5452: --
5453: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5454: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5455: l_api_name,'Parameters: '
5456: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5457: ||' ,Set_Of_Books_Id: '||p_vendor_rec.set_of_books_id);
5458: END IF;
5469: ------------------------------------------------------------------------
5470: l_debug_info := 'Call to Check for duplicate Employee assignment';
5471: ------------------------------------------------------------------------
5472: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5473: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5474: l_api_name,l_debug_info);
5475: END IF;
5476: --
5477: -- Check for duplicate employee assignment
5490: ------------------------------------------------------------------------
5491: l_debug_info := 'Call to Check for duplicate vendor number';
5492: ------------------------------------------------------------------------
5493: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5494: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5495: l_api_name,l_debug_info);
5496: END IF;
5497: --
5498: -- Check for potential duplicate vendor numbers in Interface table
5514: g_login_id,
5515: 'Validate_Vendor') <> TRUE) THEN
5516: --
5517: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5518: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5519: l_api_name,'Parameters: '
5520: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5521: ||' ,Segment1: '||p_vendor_rec.segment1);
5522: END IF;
5534: ------------------------------------------------------------------------
5535: l_debug_info := 'Call to Check for duplicate vendor name in interface table';
5536: ------------------------------------------------------------------------
5537: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5538: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5539: l_api_name,l_debug_info);
5540: END IF;
5541: --
5542: -- Check for duplicate vendor names in Interface table too
5554: ------------------------------------------------------------------------
5555: l_debug_info := 'Call to Check Duplicate Vendor Number in PO_VENDORS';
5556: ------------------------------------------------------------------------
5557: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5558: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5559: l_api_name,l_debug_info);
5560: END IF;
5561: --
5562: -- Check for duplicate vendor number
5578: g_login_id,
5579: 'Validate_Vendor') <> TRUE) THEN
5580:
5581: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5582: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5583: l_api_name,'Parameters: '
5584: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5585: ||' ,Segment1: '||p_vendor_rec.segment1);
5586: END IF;
5592: ------------------------------------------------------------------------
5593: l_debug_info := 'Call to Validate receiving_routing_id';
5594: ------------------------------------------------------------------------
5595: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5596: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5597: l_api_name,l_debug_info);
5598: END IF;
5599: --
5600: -- Validate receiving_routing_id
5615: g_login_id,
5616: 'Validate_Vendor') <> TRUE) THEN
5617: --
5618: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5619: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5620: l_api_name,'Parameters: '
5621: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5622: ||' ,Receiving_Routing_Id: '||p_vendor_rec.receiving_routing_id);
5623: END IF;
5634: ------------------------------------------------------------------------
5635: l_debug_info := 'Call to Validate Employee type Vendor`';
5636: ------------------------------------------------------------------------
5637: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5638: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5639: l_api_name,l_debug_info);
5640: END IF;
5641: --
5642: -- Employee type Vendor validations
5662: g_login_id,
5663: 'Validate_Vendor') <> TRUE) THEN
5664: --
5665: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5666: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5667: l_api_name,'Parameters: '
5668: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5669: ||' ,Vendor_Type_Lookup_Code: '||p_vendor_rec.vendor_type_lookup_code
5670: ||' ,Employee_Id: '||p_vendor_rec.employee_id);
5684: ------------------------------------------------------------------------
5685: l_debug_info := 'Call to Validate Invoice Currency Code';
5686: ------------------------------------------------------------------------
5687: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5688: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5689: l_api_name,l_debug_info);
5690: END IF;
5691:
5692: IF (p_vendor_rec.invoice_currency_code is not null
5704: g_login_id,
5705: 'Validate_Vendor') <> TRUE) THEN
5706: --
5707: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5708: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5709: l_api_name,'Parameters: '
5710: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5711: ||' ,Invoice_Currency_Code: '||p_vendor_rec.invoice_currency_code);
5712: END IF;
5745: g_login_id,
5746: 'Validate_Vendor') <> TRUE) THEN
5747: --
5748: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5749: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5750: l_api_name,'Parameters: '
5751: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5752: ||' ,Invoice_Currency_Code: '||p_vendor_rec.invoice_currency_code
5753: ||' ,Payment_Currency_Code: '||p_vendor_rec.payment_currency_code);
5767: ------------------------------------------------------------------------
5768: l_debug_info := 'Call to Validate Income Tax Type';
5769: ------------------------------------------------------------------------
5770: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5771: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5772: l_api_name,l_debug_info);
5773: END IF;
5774: --
5775: -- Validate the Income Tax Type
5789: g_login_id,
5790: 'Validate_Vendor') <> TRUE) THEN
5791: --
5792: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5793: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5794: l_api_name,'Parameters: '
5795: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5796: ||' ,Type_1099: '||p_vendor_rec.type_1099);
5797: END IF;
5814: ------------------------------------------------------------------------
5815: l_debug_info:= 'Call to Validate GDF attributes for FV';
5816: ------------------------------------------------------------------------
5817: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5818: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5819: END IF;
5820:
5821: CHECK_GDF(
5822: p_vendor_rec.vendor_interface_id,
5834: g_user_id,
5835: g_login_id,
5836: 'Validate_Vendor') <> TRUE) THEN
5837: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5838: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5839: l_api_name,'Parameters: '
5840: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id);
5841: END IF;
5842: END IF;
5876: ------------------------------------------------------------------------
5877: l_debug_info := 'Call to Validate vendor name';
5878: ------------------------------------------------------------------------
5879: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5880: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5881: l_api_name,l_debug_info);
5882: END IF;
5883: --
5884: -- Check for duplicate vendor names
5897: ------------------------------------------------------------------------
5898: l_debug_info := 'Call for prohibiting update of CCR vendor';
5899: ------------------------------------------------------------------------
5900: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5901: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME|| l_api_name,l_debug_info);
5902: END IF;
5903:
5904: --
5905: --calling the API to check if we are trying to update
5922: g_login_id,
5923: 'Validate_Vendor') <> TRUE) THEN
5924:
5925: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5926: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5927: l_api_name,'Parameters: '
5928: ||'Cannot Update CCR vendor, Vendor_id'||p_vendor_rec.vendor_id);
5929: END IF;
5930: END IF;
5944: l_debug_info := 'Call to Validate vendor name';
5945: ------------------------------------------------------------------------
5946: if g_source= 'IMPORT' Then
5947: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5948: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5949: l_api_name,l_debug_info);
5950: END IF;
5951: --
5952: -- Check for duplicate vendor names
5974: g_login_id,
5975: 'Validate_Vendor') <> TRUE) THEN
5976:
5977: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5978: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5979: l_api_name,'Parameters: '
5980: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5981: ||' ,Vendor_name: '||p_vendor_rec.vendor_name);
5982: END IF;
5990: ------------------------------------------------------------------------
5991: l_debug_info := 'Call to Validate payee';
5992: ------------------------------------------------------------------------
5993: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5994: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5995: l_api_name,l_debug_info);
5996: END IF;
5997: --
5998: -- Calling IBY Payee Validation API
6027: g_login_id,
6028: 'Validate_Vendor') <> TRUE) THEN
6029: --
6030: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6031: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6032: l_api_name,'Parameters: '
6033: ||' Vendor_Interface_Id:' ||
6034: p_vendor_rec.vendor_interface_id);
6035: END IF;
6081: ------------------------------------------------------------------------
6082: l_debug_info := 'Call to Validate party_id';
6083: ------------------------------------------------------------------------
6084: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6085: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6086: l_api_name,l_debug_info);
6087: END IF;
6088: --
6089: -- Check for validity of party_id
6105: g_login_id,
6106: 'Validate_Vendor') <> TRUE) THEN
6107: --
6108: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6109: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6110: l_api_name,'Parameters: '
6111: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
6112: ||' ,Party_Id: '||p_vendor_rec.party_id);
6113: END IF;
6134: ------------------------------------------------------------------------
6135: l_debug_info := 'Call to Validate vendor number';
6136: ------------------------------------------------------------------------
6137: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6138: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6139: l_api_name,l_debug_info);
6140: END IF;
6141: --
6142: -- Check for Null vendor number
6156: g_login_id,
6157: 'Validate_Vendor') <> TRUE) THEN
6158: --
6159: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6160: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6161: l_api_name,'Parameters: '
6162: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
6163: ||' ,Segment1: '||p_vendor_rec.segment1);
6164: END IF;
6181: ---------------------------------------------------------------
6182: l_debug_info := 'Call to Validate one_time_flag';
6183: ---------------------------------------------------------------
6184: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6185: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6186: l_api_name,l_debug_info);
6187: END IF;
6188: --
6189: -- Validate one_time_flag
6205: g_login_id,
6206: 'Validate_Vendor') <> TRUE) THEN
6207: --
6208: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6209: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6210: l_api_name,'Parameters: '
6211: ||' Vendor_Interface_Id:'
6212: ||p_vendor_rec.vendor_interface_id
6213: ||' ,One_Time_Flag: '||p_vendor_rec.one_time_flag);
6227: ----------------------------------------------------------------
6228: l_debug_info := 'Call to Validate Summary_flag';
6229: ---------------------------------------------------------------
6230: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6231: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6232: l_api_name,l_debug_info);
6233: END IF;
6234: --
6235: -- Validate Summary_flag
6251: g_login_id,
6252: 'Validate_Vendor') <> TRUE) THEN
6253: --
6254: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6255: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6256: l_api_name,'Parameters: '
6257: ||' Vendor_Interface_Id:'
6258: ||p_vendor_rec.vendor_interface_id
6259: ||' ,Summary_Flag: '||p_vendor_rec.summary_flag);
6271: ----------------------------------------------------------------
6272: l_debug_info := 'Call to Validate Enabled_flag';
6273: ---------------------------------------------------------------
6274: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6275: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6276: l_api_name,l_debug_info);
6277: END IF;
6278: --
6279: -- Validate Enabled_flag
6295: g_login_id,
6296: 'Validate_Vendor') <> TRUE) THEN
6297: --
6298: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6299: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6300: l_api_name,'Parameters: '
6301: ||' Vendor_Interface_Id:'
6302: ||p_vendor_rec.vendor_interface_id
6303: ||' ,Enabled_Flag: '||p_vendor_rec.enabled_flag);
6315: ---------------------------------------------------------------
6316: l_debug_info := 'Call to Validate vendor_type_lookup_code';
6317: ---------------------------------------------------------------
6318: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6319: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6320: l_api_name,l_debug_info);
6321: END IF;
6322:
6323: -- Validate vendor_type_lookup_code
6339: g_login_id,
6340: 'Validate_Vendor') <> TRUE) THEN
6341: --
6342: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6343: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6344: l_api_name,'Parameters: '
6345: ||' Vendor_Interface_Id:'
6346: ||p_vendor_rec.vendor_interface_id
6347: ||' ,Vendor_Type_Lookup_Code: '
6360: ---------------------------------------------------------------
6361: l_debug_info := 'Call to Validate pay_date_basis_lookup_code';
6362: ----------------------------------------------------------------
6363: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6364: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6365: l_api_name,l_debug_info);
6366: END IF;
6367: --
6368: -- Validate pay_date_basis_lookup_code
6384: g_login_id,
6385: 'Validate_Vendor') <> TRUE) THEN
6386: --
6387: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6388: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6389: l_api_name,'Parameters: '
6390: ||' Vendor_Interface_Id:'
6391: ||p_vendor_rec.vendor_interface_id
6392: ||' ,Pay_Date_Basis_Lookup_Code: '
6404: ---------------------------------------------------------------
6405: l_debug_info := 'Call to Validate pay_group_lookup_code';
6406: ----------------------------------------------------------------
6407: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6408: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6409: l_api_name,l_debug_info);
6410: END IF;
6411: --
6412: -- Validate pay_group_lookup_code
6428: g_login_id,
6429: 'Validate_Vendor') <> TRUE) THEN
6430: --
6431: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6432: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6433: l_api_name,'Parameters: '
6434: ||' Vendor_Interface_Id:'
6435: ||p_vendor_rec.vendor_interface_id
6436: ||' ,Pay_Group_Lookup_Code:'
6450: ----------------------------------------------------------------
6451: l_debug_info := 'Call to Validate org type_lookup code';
6452: ---------------------------------------------------------------
6453: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6454: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6455: l_api_name,l_debug_info);
6456: END IF;
6457: --
6458: -- Validate organization_type_lookup_code
6475: g_login_id,
6476: 'Validate_Vendor') <> TRUE) THEN
6477: --
6478: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6479: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6480: l_api_name,'Parameters: '
6481: ||' Vendor_Interface_Id:'
6482: ||p_vendor_rec.vendor_interface_id
6483: ||' ,Organization_Type_Lookup_Code:'
6496: ---------------------------------------------------------------
6497: l_debug_info := 'Call to Validate minority_group_lookup_code';
6498: ---------------------------------------------------------------
6499: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6500: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6501: l_api_name,l_debug_info);
6502: END IF;
6503: --
6504: -- Validate minority_group_lookup_code
6520: g_login_id,
6521: 'Validate_Vendor') <> TRUE) THEN
6522: --
6523: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6524: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6525: l_api_name,'Parameters: '
6526: ||' Vendor_Interface_Id:'
6527: ||p_vendor_rec.vendor_interface_id
6528: ||' ,Minority_Group_Lookup_Code:'
6541: ---------------------------------------------------------------
6542: l_debug_info := 'Call to Validate terms_date_basis';
6543: ----------------------------------------------------------------
6544: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6545: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6546: l_api_name,l_debug_info);
6547: END IF;
6548: --
6549: -- Validate terms_date_basis
6565: g_login_id,
6566: 'Validate_Vendor') <> TRUE) THEN
6567: --
6568: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6569: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6570: l_api_name,'Parameters: '
6571: ||' Vendor_Interface_Id:'
6572: ||p_vendor_rec.vendor_interface_id
6573: ||' ,Terms_Date_Basis:'
6586: ---------------------------------------------------------------
6587: l_debug_info := 'Call to Validate qty_rcv_exception_code';
6588: ---------------------------------------------------------------
6589: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6590: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6591: l_api_name,l_debug_info);
6592: END IF;
6593: --
6594: -- Validate qty_rcv_exception_code
6610: g_login_id,
6611: 'Validate_Vendor') <> TRUE) THEN
6612: --
6613: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6614: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6615: l_api_name,'Parameters: '
6616: ||' Vendor_Interface_Id:'
6617: ||p_vendor_rec.vendor_interface_id
6618: ||' ,Qty_Rcv_Execption_Code:'
6631: ------------------------------------------------------------------------
6632: l_debug_info := 'Call to Validate ship to loc code';
6633: ------------------------------------------------------------------------
6634: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6635: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6636: l_api_name,l_debug_info);
6637: END IF;
6638: --
6639: -- Validate enforce_ship_to_location_code
6655: g_login_id,
6656: 'Validate_Vendor') <> TRUE) THEN
6657: --
6658: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6659: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6660: l_api_name,'Parameters: '
6661: ||' Vendor_Interface_Id:'
6662: ||p_vendor_rec.vendor_interface_id
6663: ||' ,Enforce_Ship_To_Location_Code:'
6676: ---------------------------------------------------------------
6677: l_debug_info := 'Call to Validate receipt_days_exception_code';
6678: ----------------------------------------------------------------
6679: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6680: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6681: l_api_name,l_debug_info);
6682: END IF;
6683: --
6684: -- Validate receipt_days_exception_code
6700: g_login_id,
6701: 'Validate_Vendor') <> TRUE) THEN
6702: --
6703: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6704: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6705: l_api_name,'Parameters: '
6706: ||' Vendor_Interface_Id:'
6707: ||p_vendor_rec.vendor_interface_id
6708: ||' ,Receipt_Days_Exception_Code:'
6721: ---------------------------------------------------------------
6722: l_debug_info := 'Call to Validate create_debit_memo_flag';
6723: ----------------------------------------------------------------
6724: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6725: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6726: l_api_name,l_debug_info);
6727: END IF;
6728: --
6729: -- Validate create_debit_memo_flag
6745: g_login_id,
6746: 'Validate_Vendor') <> TRUE) THEN
6747: --
6748: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6749: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6750: l_api_name,'Parameters: '
6751: ||' Vendor_Interface_Id:'
6752: ||p_vendor_rec.vendor_interface_id
6753: ||' ,Create_Debit_Memo_Flag:'
6766: ---------------------------------------------------------------
6767: l_debug_info := 'Call to Validate federal_reportable_flag';
6768: ---------------------------------------------------------------
6769: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6770: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6771: l_api_name,l_debug_info);
6772: END IF;
6773: --
6774: -- Validate federal_reportable_flag
6790: g_login_id,
6791: 'Validate_Vendor') <> TRUE) THEN
6792: --
6793: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6794: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6795: l_api_name,'Parameters: '
6796: ||' Vendor_Interface_Id:'
6797: ||p_vendor_rec.vendor_interface_id
6798: ||' ,Federal_Reportable_Flag:'
6811: ----------------------------------------------------------------
6812: l_debug_info := 'Call to Validate state_reportable_flag';
6813: ----------------------------------------------------------------
6814: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6815: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6816: l_api_name,l_debug_info);
6817: END IF;
6818: --
6819: -- Validate state_reportable_flag
6835: g_login_id,
6836: 'Validate_Vendor') <> TRUE) THEN
6837: --
6838: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6839: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6840: l_api_name,'Parameters: '
6841: ||' Vendor_Interface_Id:'
6842: ||p_vendor_rec.vendor_interface_id
6843: ||' ,State_Reportable_Flag:'
6856: ---------------------------------------------------------------
6857: l_debug_info := 'Call to Validate auto_calculate_interest_flag';
6858: ----------------------------------------------------------------
6859: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6860: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6861: l_api_name,l_debug_info);
6862: END IF;
6863: --
6864: -- Validate auto_calculate_interest_flag
6880: g_login_id,
6881: 'Validate_Vendor') <> TRUE) THEN
6882: --
6883: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6884: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6885: l_api_name,'Parameters: '
6886: ||' Vendor_Interface_Id:'
6887: ||p_vendor_rec.vendor_interface_id
6888: ||' , Auto_Calculate_Interest_Flag'
6901: ---------------------------------------------------------------
6902: l_debug_info := 'Call to Validate excl freight from disc';
6903: ---------------------------------------------------------------
6904: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6905: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6906: l_api_name,l_debug_info);
6907: END IF;
6908: --
6909: -- Validate exclude_freight_from_discount
6925: g_login_id,
6926: 'Validate_Vendor') <> TRUE) THEN
6927: --
6928: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6929: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6930: l_api_name,'Parameters: '
6931: ||' Vendor_Interface_Id:'
6932: ||p_vendor_rec.vendor_interface_id
6933: ||' ,Exclude_Freight_From_Discount:'
6946: ----------------------------------------------------------------
6947: l_debug_info := 'Call to Validate hold_unmatched_invoices_flag';
6948: ----------------------------------------------------------------
6949: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6950: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6951: l_api_name,l_debug_info);
6952: END IF;
6953: --
6954: -- Validate hold_unmatched_invoices_flag
6970: g_login_id,
6971: 'Validate_Vendor') <> TRUE) THEN
6972: --
6973: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6974: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6975: l_api_name,'Parameters: '
6976: ||' Vendor_Interface_Id:'
6977: ||p_vendor_rec.vendor_interface_id
6978: ||' ,Hold_Unmatched_Invoices_Flag:'
6991: ---------------------------------------------------------------
6992: l_debug_info := 'Call to Validate allow_unord_receipts_flag';
6993: ---------------------------------------------------------------
6994: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6995: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6996: l_api_name,l_debug_info);
6997: END IF;
6998: --
6999: -- Validate allow_unord_receipts_flag
7015: g_login_id,
7016: 'Validate_Vendor') <> TRUE) THEN
7017: --
7018: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7019: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
7020: l_api_name,'Parameters: '
7021: ||' Vendor_Interface_Id:'
7022: ||p_vendor_rec.vendor_interface_id
7023: ||' ,Allow_Unordered_Receipts_Flag:'
7037: l_debug_info :=
7038: 'Call to Validate allow_substitute_receipts_flag';
7039: -------------------------------------------------------------
7040: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7041: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7042: l_api_name,l_debug_info);
7043: END IF;
7044: --
7045: -- Validate allow_substitute_receipts_flag
7061: g_login_id,
7062: 'Validate_Vendor') <> TRUE) THEN
7063: --
7064: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7065: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
7066: l_api_name,'Parameters: '
7067: ||' Vendor_Interface_Id:'
7068: ||p_vendor_rec.vendor_interface_id
7069: ||' ,Allow_Substitute_Receipts_Flag:'
7082: ---------------------------------------------------------------
7083: l_debug_info := 'Call to Validate hold_flag';
7084: ----------------------------------------------------------------
7085: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7086: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7087: l_api_name,l_debug_info);
7088: END IF;
7089: --
7090: -- Validate hold_flag
7106: g_login_id,
7107: 'Validate_Vendor') <> TRUE) THEN
7108: --
7109: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7110: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
7111: l_api_name,'Parameters: '
7112: ||' Vendor_Interface_Id:'
7113: ||p_vendor_rec.vendor_interface_id
7114: ||' ,Hold_Flag:'
7127: ----------------------------------------------------------------
7128: l_debug_info := 'Call to Validate small_business_flag';
7129: ---------------------------------------------------------------
7130: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7131: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7132: l_api_name,l_debug_info);
7133: END IF;
7134: --
7135: -- Validate small_business_flag
7151: g_login_id,
7152: 'Validate_Vendor') <> TRUE) THEN
7153: --
7154: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7155: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
7156: l_api_name,'Parameters: '
7157: ||' Vendor_Interface_Id:'
7158: ||p_vendor_rec.vendor_interface_id
7159: ||' ,Small_Business_Flag:'
7172: ----------------------------------------------------------------
7173: l_debug_info := 'Call to Validate women_owned_flag';
7174: ---------------------------------------------------------------
7175: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7176: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7177: l_api_name,l_debug_info);
7178: END IF;
7179: --
7180: -- Validate women_owned_flag
7196: g_login_id,
7197: 'Validate_Vendor') <> TRUE) THEN
7198: --
7199: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7200: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
7201: l_api_name,'Parameters: '
7202: ||' Vendor_Interface_Id:'
7203: ||p_vendor_rec.vendor_interface_id
7204: ||' ,Women_Owned_Flag:'
7217: --------------------------------------------------------------
7218: l_debug_info := 'Call to Validate hold_future_payments_flag';
7219: ---------------------------------------------------------------
7220: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7221: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7222: l_api_name,l_debug_info);
7223: END IF;
7224: --
7225: -- Validate hold_future_payments_flag
7241: g_login_id,
7242: 'Validate_Vendor') <> TRUE) THEN
7243: --
7244: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7245: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
7246: l_api_name,'Parameters: '
7247: ||' Vendor_Interface_Id:'
7248: ||p_vendor_rec.vendor_interface_id
7249: ||' ,Hold_Future_Payments_Flag:'
7262: ----------------------------------------------------------------
7263: l_debug_info := 'Call to Validate hold_all_payments_flag';
7264: ----------------------------------------------------------------
7265: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7266: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7267: l_api_name,l_debug_info);
7268: END IF;
7269: --
7270: -- Validate hold_all_payments_flag
7286: g_login_id,
7287: 'Validate_Vendor') <> TRUE) THEN
7288: --
7289: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7290: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
7291: l_api_name,'Parameters: '
7292: ||' Vendor_Interface_Id:'
7293: ||p_vendor_rec.vendor_interface_id
7294: ||' ,Hold_All_Payments_Flag:'
7307: ---------------------------------------------------------------
7308: l_debug_info := 'Call to Validate always_take_disc_flag';
7309: ----------------------------------------------------------------
7310: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7311: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7312: l_api_name,l_debug_info);
7313: END IF;
7314: --
7315: -- Validate always_take_disc_flag
7331: g_login_id,
7332: 'Validate_Vendor') <> TRUE) THEN
7333: --
7334: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7335: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
7336: l_api_name,'Parameters: '
7337: ||' Vendor_Interface_Id:'
7338: ||p_vendor_rec.vendor_interface_id
7339: ||' ,Always_Take_Disc_Flag:'
7352: ----------------------------------------------------------------
7353: l_debug_info := 'Call to Validate Vendor Number';
7354: ----------------------------------------------------------------
7355: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7356: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7357: l_api_name,l_debug_info);
7358: END IF;
7359:
7360: -- Generate and validate Vendor Number
7375: g_login_id,
7376: 'Validate_Vendor') <> TRUE) THEN
7377: --
7378: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7379: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
7380: l_api_name,'Parameters: '
7381: ||' Vendor_Interface_Id:'
7382: ||p_vendor_rec.vendor_interface_id);
7383: END IF;
7393: ----------------------------------------------------------------
7394: l_debug_info := 'Call to Validate match_option';
7395: ----------------------------------------------------------------
7396: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7397: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7398: l_api_name,l_debug_info);
7399: END IF;
7400: --
7401: -- Validate match_option
7417: g_login_id,
7418: 'Validate_Vendor') <> TRUE) THEN
7419: --
7420: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7421: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
7422: l_api_name,'Parameters: '
7423: ||' Vendor_Interface_Id:'
7424: ||p_vendor_rec.vendor_interface_id
7425: ||' ,Match_Option:'
7439: l_debug_info :=
7440: 'Call to Validate awt_group_id and awt_group_name';
7441: ---------------------------------------------------------------
7442: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7443: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7444: l_api_name,l_debug_info);
7445: END IF;
7446: --
7447: -- Validate awt_group_id and awt_group_name
7469: g_login_id,
7470: 'Validate_Vendor') <> TRUE) THEN
7471: --
7472: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7473: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
7474: l_api_name,'Parameters: '
7475: ||' Vendor_Interface_Id:'
7476: ||p_vendor_rec.vendor_interface_id
7477: ||' ,Awt_Group_Id: '||p_vendor_rec.awt_group_id
7494: l_debug_info :=
7495: 'Call to Validate pay_awt_group_id and pay_awt_group_name';
7496: ---------------------------------------------------------------
7497: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7498: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7499: l_api_name,l_debug_info);
7500: END IF;
7501: --
7502: -- Validate pay_awt_group_id and pay_awt_group_name
7525: g_login_id,
7526: 'Validate_Vendor') <> TRUE) THEN
7527: --
7528: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7529: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
7530: l_api_name,'Parameters: '
7531: ||' Vendor_Interface_Id:'
7532: ||p_vendor_rec.vendor_interface_id
7533: ||' ,Awt_Group_Id: '||p_vendor_rec.pay_awt_group_id
7547: ------------------------------------------------------------------------
7548: l_debug_info := 'Call to Validate Hold_by';
7549: ------------------------------------------------------------------------
7550: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7551: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7552: l_api_name,l_debug_info);
7553: END IF;
7554:
7555: -- Hold_by validation
7567: ------------------------------------------------------------------------
7568: l_debug_info := 'Call to Validate Terms_Id and Terms_Name';
7569: ------------------------------------------------------------------------
7570: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7571: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7572: l_api_name,l_debug_info);
7573: END IF;
7574:
7575: -- Terms_Id and Terms_Name validation
7598: g_login_id,
7599: 'Validate_Vendor') <> TRUE) THEN
7600: --
7601: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7602: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
7603: l_api_name,'Parameters: '
7604: ||' Vendor_Interface_Id: '
7605: ||p_vendor_rec.vendor_interface_id
7606: ||' ,Terms_Id: '||p_vendor_rec.terms_id
7974: ------------------------------------------------------------------------
7975: l_debug_info := 'Call Org_Id and Operating_unit_name validation for Import';
7976: ------------------------------------------------------------------------
7977: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7978: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7979: l_api_name,l_debug_info);
7980: END IF;
7981:
7982: -- Org_Id and Operating_unit_name validation
8015: g_login_id,
8016: 'Create_Vendor_Site') <> TRUE) THEN
8017: --
8018: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8019: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
8020: l_api_name,'Parameters: '
8021: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
8022: ||' ,Vendor_Site_Code: '||p_vendor_site_rec.vendor_site_code);
8023: END IF;
8028: FND_MSG_PUB.ADD;
8029: -- Bug 5491139 hkaniven end --
8030: -- Bug 8438716 Start
8031: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8032: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
8033: l_api_name,'Parameters: '
8034: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
8035: ||' ,Vendor_Site_Code: '||p_vendor_site_rec.vendor_site_code);
8036: END IF;
8059: g_login_id,
8060: 'Create_Vendor_Site') <> TRUE) THEN
8061: --
8062: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8063: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
8064: l_api_name,'Parameters: '
8065: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
8066: ||' ,Vendor_Site_Code: '||p_vendor_site_rec.vendor_site_code);
8067: END IF;
8072: FND_MSG_PUB.ADD;
8073: -- Bug 5491139 hkaniven end --
8074: -- Bug 8438716 Start
8075: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8076: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
8077: l_api_name,'Error after MO_GLOBAL.validate_orgid_pub_api Parameters: '
8078: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
8079: ||' ,Vendor_Site_Code: '||p_vendor_site_rec.vendor_site_code);
8080: END IF;
8101:
8102: --Open Issue 14 -- need to call initialize procedure due to MOAC changes
8103: l_debug_info := 'Call to default CCIDs from FINANCIAL_SYSTEM_PARAMETERS';
8104: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8105: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8106: END IF;
8107: --
8108: -- Get default CCIDs from FINANCIAL_SYSTEM_PARAMETERS
8109: --
8520:
8521: IF l_addr_val_status = 'W' THEN -- Warning case is accepted as Validate case.
8522: -- Please refer PM commments in Bug 9128869.
8523: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8524: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8525: END IF;
8526: END IF;
8527:
8528: IF l_addr_val_status not in ('S','W') THEN
8538: g_login_id,
8539: 'Validate_Vendor_Site') <> TRUE) THEN
8540:
8541: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8542: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8543: END IF;
8544: END IF;
8545: ELSE
8546: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_TCA_ERROR');
8545: ELSE
8546: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_TCA_ERROR');
8547: FND_MSG_PUB.ADD;
8548: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8549: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8550: END IF;
8551: END IF;
8552: END IF;
8553:
8559: l_debug_info := 'After call to hz_location_v2pub.create_location';
8560: l_debug_info := l_debug_info||' Return status : '||l_loc_return_status||' Error : '||l_loc_msg_data;
8561: ------------------------------------------------------------------------
8562: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8563: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8564: END IF;
8565: END IF;
8566: END IF;
8567: l_vendor_site_rec.location_id := l_loc_id;
8622: l_debug_info := 'After call to hz_party_site_v2pub.create_party_site';
8623: l_debug_info := l_debug_info||' Return status : '||l_site_return_status||' Error : '||l_site_msg_data;
8624: ------------------------------------------------------------------------
8625: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8626: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8627: END IF;
8628: END IF;
8629:
8630: /* Bug 12334398 start */
8652: l_debug_info := 'After call to hz_party_site_v2pub.create_party_site_use for PAY';
8653: l_debug_info := l_debug_info||' Return status : ' || l_site_use_return_status ||' Error : '|| l_site_use_msg_data;
8654: ------------------------------------------------------------------------
8655: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8656: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8657: END IF;
8658: END IF;
8659: END IF;
8660:
8672: l_debug_info := 'After call to hz_party_site_v2pub.create_party_site_use for RFQ';
8673: l_debug_info := l_debug_info||' Return status : ' || l_site_use_return_status ||' Error : ' || l_site_use_msg_data;
8674: ------------------------------------------------------------------------
8675: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8676: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8677: END IF;
8678: END IF;
8679: END IF;
8680:
8692: l_debug_info := 'After call to hz_party_site_v2pub.create_party_site_use for PURCHASING';
8693: l_debug_info := l_debug_info||' Return status : ' || l_site_use_return_status ||' Error : ' || l_site_use_msg_data;
8694: ------------------------------------------------------------------------
8695: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8696: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8697: END IF;
8698: END IF;
8699: END IF;
8700:
8731: EXCEPTION
8732: WHEN OTHERS THEN
8733: l_debug_info := 'No data returned from ZX_PARTY_TAX_PROFILE for party_id = '||l_party_id;
8734: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8735: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8736: END IF;
8737: END;
8738: /*Bug11664523 start */
8739: IF l_tax_classification_code is not null THEN
8751: l_tax_classification_code := null;
8752: l_debug_info := 'No data returned from ZX_INPUT_CLASSIFICATIONS_V for Lookup_Code = '||l_tax_classification_code
8753: || ' and org_id = '||L_Def_Org_Id;
8754: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8755: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8756: END IF;
8757: END;
8758: IF (L_Zic_tax_classification_code is not null and
8759: sysdate not between nvl(Zic_start_date_active, sysdate-1) and nvl(Zic_end_date_Active, sysdate+1)) THEN
8766: g_user_id,
8767: g_login_id,
8768: 'AP_VENDOR_PUB_PKG.Create_Vendor_Site') <> TRUE) THEN
8769: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8770: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
8771: l_api_name,'Parameters: '
8772: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
8773: ||' ,Vat_Code: '
8774: ||p_vendor_site_rec.vat_code);-- END_DATE_ACTIVE, INVALID VAT CODE
8777: Else
8778: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INVALID_VAT_CODE');
8779: Fnd_Msg_Pub.Add;
8780: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8781: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
8782: l_api_name,'After call to VAT_CODE validation... Parameters: '
8783: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
8784: ||' ,Vat_Code: '
8785: ||P_Vendor_Site_Rec.Vat_Code
8897: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8898: l_debug_info := 'ZX_PARTY_TAX_PROFILE_PKG.update_row';
8899: l_debug_info := l_debug_info||' Return status : '||l_return_status;
8900: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8901: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8902: END IF;
8903: END IF;
8904: END IF;
8905: END IF;
8941: ------------------------------------------------------------------------
8942: l_debug_info := 'After call to ap_vendor_sites_pkg.insert_row';
8943: ------------------------------------------------------------------------
8944: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8945: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8946: END IF;
8947: --Bug6648405
8948: --Bug 6753822 - Added NVL on vendor_type_lookup_code
8949: IF (NVL(l_vendor_type_lookup_code,'DUMMY') <> 'EMPLOYEE') then
8961: l_debug_info := 'After call to AP_TCA_SUPPLIER_SYNC_PKG.SYNC_Supplier_Sites';
8962: l_debug_info := l_debug_info||' Return status : '||l_sync_return_status||' Error : '||l_sync_msg_data;
8963: ------------------------------------------------------------------------
8964: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8965: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8966: END IF;
8967: END IF;
8968: END IF;
8969:
9115:
9116: Raise FND_API.G_EXC_UNEXPECTED_ERROR ; /* Bug9955876 */
9117:
9118: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9119: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9120: END IF;
9121: END IF;
9122: END IF;
9123:
10033: ------------------------------------------------------------------------
10034: l_debug_info := 'Call to Validate hold_unmatched_invoices_flag';
10035: ------------------------------------------------------------------------
10036: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10037: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10038: l_api_name,l_debug_info);
10039: END IF;
10040: --
10041: -- Validate hold_unmatched_invoices_flag
10057: g_login_id,
10058: 'Validate_Vendor_Site') <> TRUE) THEN
10059: --
10060: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10061: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10062: l_api_name,'Parameters: '
10063: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10064: ||' ,Hold_Unmatched_Invoices_Flag: '
10065: ||p_vendor_site_rec.hold_unmatched_invoices_flag);
10071: FND_MSG_PUB.ADD;
10072: -- Bug 5491139 hkaniven end --
10073: -- Bug 8438716 Start
10074: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10075: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10076: l_api_name,'After call Validate_Lookups(HOLD_UNMATCHED_INVOICES_FLAG..)... Parameters: '
10077: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10078: ||' ,Hold_Unmatched_Invoices_Flag: '
10079: ||p_vendor_site_rec.hold_unmatched_invoices_flag);
10087: ------------------------------------------------------------------------
10088: l_debug_info := 'Validate Vendor Site Code for Supplier type EMPLOYEE' ;
10089: ------------------------------------------------------------------------
10090: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10091: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10092: l_api_name,l_debug_info);
10093: END IF;
10094: --
10095: -- Validate Vendor Site Code for Supplier type EMPLOYEE
10110: g_login_id,
10111: 'Validate_Vendor_Site') <> TRUE) THEN
10112: --
10113: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10114: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10115: l_api_name,'Parameters: '
10116: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10117: ||' ,Vendor_Site_Code: '||p_vendor_site_rec.vendor_site_code);
10118: END IF;
10123: FND_MSG_PUB.ADD;
10124: -- Bug 5491139 hkaniven end --
10125: -- Bug 8438716 Start
10126: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10127: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10128: l_api_name,'After Validate Vendor Site Code for Supplier type EMPLOYEE ... '
10129: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10130: ||' ,Vendor_Site_Code: '||p_vendor_site_rec.vendor_site_code);
10131: END IF;
10146: ------------------------------------------------------------------------
10147: l_debug_info := 'Call to Validate tax_reporting_site_flag';
10148: ------------------------------------------------------------------------
10149: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10150: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10151: l_api_name,l_debug_info);
10152: END IF;
10153: --
10154: -- Validate tax_reporting_site_flag
10170: g_login_id,
10171: 'Validate_Vendor_Site') <> TRUE) THEN
10172: --
10173: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10174: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10175: l_api_name,'Parameters: '
10176: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10177: ||' ,Tax_Reporting_Site_Flag: '
10178: ||p_vendor_site_rec.tax_reporting_site_flag);
10184: FND_MSG_PUB.ADD;
10185: -- Bug 5491139 hkaniven end --
10186: -- Bug 8438716 Start
10187: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10188: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10189: l_api_name,'Validate_Lookups(TAX_REPORTING_SITE_FLAG...)... Parameters: '
10190: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10191: ||' ,Tax_Reporting_Site_Flag: '
10192: ||p_vendor_site_rec.tax_reporting_site_flag);
10200: ------------------------------------------------------------------------
10201: l_debug_info := 'Call to Validate vat_code';
10202: ------------------------------------------------------------------------
10203: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10204: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10205: l_api_name,l_debug_info);
10206: END IF;
10207: --
10208: -- Validate vat_code
10230: g_login_id,
10231: 'Validate_Vendor_Site') <> TRUE) THEN
10232: --
10233: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10234: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10235: l_api_name,'Parameters: '
10236: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10237: ||' ,Vat_Code: '
10238: ||p_vendor_site_rec.vat_code);
10242: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INVALID_VAT_CODE');
10243: FND_MSG_PUB.ADD;
10244: -- Bug 8438716 Start
10245: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10246: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10247: l_api_name,'After call to VAT_CODE validation... Parameters: '
10248: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10249: ||' ,Vat_Code: '
10250: ||p_vendor_site_rec.vat_code);
10259: ------------------------------------------------------------------------
10260: l_debug_info := 'Call to Validate default_pay_site_id';
10261: ------------------------------------------------------------------------
10262: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10263: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10264: l_api_name,l_debug_info);
10265: END IF;
10266: --
10267: -- We should check for Valid Sites for any default_pay_site_id
10285: g_login_id,
10286: 'Validate_Vendor_Site') <> TRUE) THEN
10287: --
10288: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10289: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10290: l_api_name,'Parameters: '
10291: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10292: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
10293: ||' ,Org_Id: '||p_vendor_site_rec.org_id
10301: FND_MSG_PUB.ADD;
10302: -- Bug 5491139 hkaniven end --
10303: -- Bug 8438716 Start
10304: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10305: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10306: l_api_name,'Call after Check_Default_pay_site... Parameters: '
10307: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10308: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
10309: ||' ,Org_Id: '||p_vendor_site_rec.org_id
10321: ------------------------------------------------------------------------
10322: l_debug_info := 'Call to Validate Vendor Site Code';
10323: ------------------------------------------------------------------------
10324: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10325: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10326: l_api_name,l_debug_info);
10327: END IF;
10328:
10329: IF p_vendor_site_rec.vendor_site_code is not null
10346: g_login_id,
10347: 'Validate_Vendor_Site') <> TRUE) THEN
10348: --
10349: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10350: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10351: l_api_name,'Parameters: '
10352: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10353: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
10354: ||' ,Org_Id: '||p_vendor_site_rec.org_id
10362: FND_MSG_PUB.ADD;
10363: -- Bug 5491139 hkaniven end --
10364: -- Bug 8438716 Start
10365: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10366: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10367: l_api_name,'Call after Check_dup_vendor_site... Parameters: '
10368: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10369: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
10370: ||' ,Org_Id: '||p_vendor_site_rec.org_id
10380: ------------------------------------------------------------------------
10381: l_debug_info := 'Call to validate unique EDI Location';
10382: ------------------------------------------------------------------------
10383: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10384: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10385: l_api_name,l_debug_info);
10386: END IF;
10387:
10388: IF p_vendor_site_rec.ece_tp_location_code is not null
10407: g_login_id,
10408: 'Validate_Vendor_Site') <> TRUE) THEN
10409: --
10410: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10411: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10412: l_api_name,'Parameters: '
10413: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10414: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
10415: ||' ,Org_Id: '||p_vendor_site_rec.org_id
10423: FND_MSG_PUB.ADD;
10424: -- Bug 5491139 hkaniven end --
10425: -- Bug 8438716 Start
10426: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10427: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10428: l_api_name,'Call after Check_duplicate_ece_code... Parameters: '
10429: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10430: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
10431: ||' ,Org_Id: '||p_vendor_site_rec.org_id
10442: ------------------------------------------------------------------------
10443: l_debug_info := 'Call Org_Id and Operating_unit_name validation';
10444: ------------------------------------------------------------------------
10445: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10446: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10447: l_api_name,l_debug_info);
10448: END IF;
10449:
10450: -- Org_Id and Operating_unit_name validation
10462: IF NOT x_valid THEN
10463: x_return_status := FND_API.G_RET_STS_ERROR;
10464: -- Bug 8438716 Start
10465: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10466: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10467: l_api_name,'Call after Check_org_id_name... Parameters: '
10468: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10469: ||' ,p_vendor_site_rec.org_name: '||p_vendor_site_rec.org_name);
10470: END IF;
10477: ------------------------------------------------------------------------
10478: l_debug_info := 'Call to Validate pay_on_receipt_summary_code';
10479: ------------------------------------------------------------------------
10480: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10481: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10482: l_api_name,l_debug_info);
10483: END IF;
10484: --
10485: -- Validate and default pay_on_receipt_summary_code
10501: g_login_id,
10502: 'Validate_Vendor_Site') <> TRUE) THEN
10503: --
10504: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10505: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10506: l_api_name,'Parameters: '
10507: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10508: ||' ,Pay_On_Code: '||p_vendor_site_rec.pay_on_code
10509: ||' ,Pay_On_Receipt_Summary_Code: '
10516: FND_MSG_PUB.ADD;
10517: -- Bug 5491139 hkaniven end --
10518: -- Bug 8438716 Start
10519: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10520: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10521: l_api_name,'Call after Check_pay_on_rec_sum_code... Parameters: '
10522: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10523: ||' ,Pay_On_Code: '||p_vendor_site_rec.pay_on_code
10524: ||' ,Pay_On_Receipt_Summary_Code: '
10532: ------------------------------------------------------------------------
10533: l_debug_info := 'Call to Validate shipping_control';
10534: ------------------------------------------------------------------------
10535: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10536: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10537: l_api_name,l_debug_info);
10538: END IF;
10539: --
10540: -- Validate shipping_control
10557: g_login_id,
10558: 'Validate_Vendor_Site') <> TRUE) THEN
10559: --
10560: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10561: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10562: l_api_name,'Parameters: '
10563: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10564: ||' ,Shipping_Control: '||p_vendor_site_rec.shipping_control);
10565: END IF;
10570: FND_MSG_PUB.ADD;
10571: -- Bug 5491139 hkaniven end --
10572: -- Bug 8438716 Start
10573: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10574: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10575: l_api_name,'Call Check_Shipping_Control after... Parameters: '
10576: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10577: ||' ,Shipping_Control: '||p_vendor_site_rec.shipping_control);
10578: END IF;
10584: ------------------------------------------------------------------------
10585: l_debug_info := 'Call to Validate Terms_Id and Terms_Name';
10586: ------------------------------------------------------------------------
10587: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10588: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10589: l_api_name,l_debug_info);
10590: END IF;
10591:
10592: -- Terms_Id and Terms_Name validation
10614: g_login_id,
10615: 'Validate_Vendor_Site') <> TRUE) THEN
10616: --
10617: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10618: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10619: l_api_name,'Parameters: '
10620: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10621: ||' ,Terms_Id: '||p_vendor_site_rec.terms_id
10622: ||' ,Terms_Name: '||p_vendor_site_rec.terms_name
10629: FND_MSG_PUB.ADD;
10630: -- Bug 5491139 hkaniven end --
10631: -- Bug 8438716 Start
10632: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10633: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10634: l_api_name,'Call after Check_terms_id_code... Parameters: '
10635: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10636: ||' ,Terms_Id: '||p_vendor_site_rec.terms_id
10637: ||' ,Terms_Name: '||p_vendor_site_rec.terms_name
10645: ------------------------------------------------------------------------
10646: l_debug_info := 'Call to Validate pay_on_code';
10647: ------------------------------------------------------------------------
10648: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10649: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10650: l_api_name,l_debug_info);
10651: END IF;
10652: --
10653: -- Validate pay_on_code
10672: g_login_id,
10673: 'Validate_Vendor_Site') <> TRUE) THEN
10674: --
10675: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10676: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10677: l_api_name,'Parameters: '
10678: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10679: ||' ,Pay_On_Code: '||p_vendor_site_rec.pay_on_code
10680: ||' ,Purchasing_Site_Flag: '||p_vendor_site_rec.purchasing_site_flag
10687: FND_MSG_PUB.ADD;
10688: -- Bug 5491139 hkaniven end --
10689: -- Bug 8438716 Start
10690: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10691: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10692: l_api_name,'Call after Check_Valid_pay_on_code... Parameters: '
10693: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10694: ||' ,Pay_On_Code: '||p_vendor_site_rec.pay_on_code
10695: ||' ,Purchasing_Site_Flag: '||p_vendor_site_rec.purchasing_site_flag
10703: ------------------------------------------------------------------------
10704: l_debug_info := 'Call to Validate pay_on_code and pay_on_receipt_summary_code';
10705: ------------------------------------------------------------------------
10706: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10707: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10708: l_api_name,l_debug_info);
10709: END IF;
10710:
10711: IF (p_vendor_site_rec.pay_on_receipt_summary_code is not null AND
10726: g_login_id,
10727: 'Validate_Vendor_Site') <> TRUE) THEN
10728: --
10729: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10730: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10731: l_api_name,'Parameters: '
10732: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10733: ||' ,Pay_On_Code: '||p_vendor_site_rec.pay_on_code
10734: ||' ,Pay_On_Receipt_Summary_Code: '
10741: FND_MSG_PUB.ADD;
10742: -- Bug 5491139 hkaniven end --
10743: -- Bug 8438716 Start
10744: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10745: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10746: l_api_name,'Call after pay_on_receipt_summary_valid... Parameters: '
10747: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10748: ||' ,Pay_On_Code: '||p_vendor_site_rec.pay_on_code
10749: ||' ,Pay_On_Receipt_Summary_Code: '
10757: ------------------------------------------------------------------------
10758: l_debug_info := 'Call to Validate Payment_Priority';
10759: ------------------------------------------------------------------------
10760: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10761: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10762: l_api_name,l_debug_info);
10763: END IF;
10764: --
10765: -- Validate Payment_Priority
10781: g_login_id,
10782: 'Validate_Vendor_Site') <> TRUE) THEN
10783: --
10784: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10785: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10786: l_api_name,'Parameters: '
10787: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10788: ||' ,Payment_Priority: '||p_vendor_site_rec.payment_priority);
10789: END IF;
10794: FND_MSG_PUB.ADD;
10795: -- Bug 5491139 hkaniven end --
10796: -- Bug 8438716 Start
10797: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10798: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10799: l_api_name,'Call after Check_payment_priority... Parameters: '
10800: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10801: ||' ,Payment_Priority: '||p_vendor_site_rec.payment_priority);
10802: END IF;
10808: ------------------------------------------------------------------------
10809: l_debug_info := 'Call to Validate Invoice Currency Code';
10810: ------------------------------------------------------------------------
10811: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10812: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10813: l_api_name,l_debug_info);
10814: END IF;
10815:
10816: IF (p_vendor_site_rec.invoice_currency_code is not null AND
10828: g_login_id,
10829: 'Validate_Vendor_Site') <> TRUE) THEN
10830: --
10831: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10832: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10833: l_api_name,'Parameters: '
10834: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10835: ||' ,Invoice_Currency_Code: '||p_vendor_site_rec.invoice_currency_code);
10836: END IF;
10841: FND_MSG_PUB.ADD;
10842: -- Bug 5491139 hkaniven end --
10843: -- Bug 8438716 Start
10844: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10845: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10846: l_api_name,'Call after val_currency_code... Parameters: '
10847: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10848: ||' ,Invoice_Currency_Code: '||p_vendor_site_rec.invoice_currency_code);
10849: END IF;
10855: ------------------------------------------------------------------------
10856: l_debug_info := 'Call to Validate Payment Currency Code';
10857: ------------------------------------------------------------------------
10858: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10859: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10860: l_api_name,l_debug_info);
10861: END IF;
10862:
10863: IF (p_vendor_site_rec.payment_currency_code is not null
10878: g_login_id,
10879: 'Validate_Vendor_Site') <> TRUE) THEN
10880: --
10881: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10882: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10883: l_api_name,'Parameters: '
10884: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10885: ||' ,Invoice_Currency_Code: '||p_vendor_site_rec.invoice_currency_code
10886: ||' ,Payment_Currency_Code: '||p_vendor_site_rec.payment_currency_code);
10892: FND_MSG_PUB.ADD;
10893: -- Bug 5491139 hkaniven end --
10894: -- Bug 8438716 Start
10895: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10896: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10897: l_api_name,'Call after payment_currency_code_valid... Parameters: '
10898: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10899: ||' ,Invoice_Currency_Code: '||p_vendor_site_rec.invoice_currency_code
10900: ||' ,Payment_Currency_Code: '||p_vendor_site_rec.payment_currency_code);
10907: ------------------------------------------------------------------------
10908: l_debug_info := 'Call to Validate accts_pay_ccid';
10909: ------------------------------------------------------------------------
10910: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10911: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10912: l_api_name,l_debug_info);
10913: END IF;
10914: --
10915: -- Validate accts_pay_ccid
10931: g_login_id,
10932: 'Validate_Vendor_Site') <> TRUE) THEN
10933: --
10934: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10935: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10936: l_api_name,'Parameters: '
10937: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10938: ||' ,Accts_Pay_Code_Comb_Id: '
10939: ||p_vendor_site_rec.accts_pay_code_combination_id
10946: FND_MSG_PUB.ADD;
10947: -- Bug 5491139 hkaniven end --
10948: -- Bug 8438716 Start
10949: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10950: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10951: l_api_name,'Call after Validate_CCIDs(ACCTS_PAY_CCID...) ... Parameters: '
10952: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10953: ||' ,Accts_Pay_Code_Comb_Id: '
10954: ||p_vendor_site_rec.accts_pay_code_combination_id
10962: ------------------------------------------------------------------------
10963: l_debug_info := 'Call to Validate prepay_ccid';
10964: ------------------------------------------------------------------------
10965: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10966: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10967: l_api_name,l_debug_info);
10968: END IF;
10969: --
10970: -- Validate prepay_code_combination_id
10985: g_login_id,
10986: 'Validate_Vendor_Site') <> TRUE) THEN
10987: --
10988: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10989: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10990: l_api_name,'Parameters: '
10991: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10992: ||' ,Prepay_Code_Combination_Id: '
10993: ||p_vendor_site_rec.prepay_code_combination_id
11000: FND_MSG_PUB.ADD;
11001: -- Bug 5491139 hkaniven end --
11002: -- Bug 8438716 Start
11003: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11004: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11005: l_api_name,'Call after Validate_CCIDs(PREPAY_CCID...)... Parameters: '
11006: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11007: ||' ,Prepay_Code_Combination_Id: '
11008: ||p_vendor_site_rec.prepay_code_combination_id
11016: ------------------------------------------------------------------------
11017: l_debug_info := 'Call to Validate future_dated_payment_ccid';
11018: ------------------------------------------------------------------------
11019: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11020: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
11021: l_api_name,l_debug_info);
11022: END IF;
11023: --
11024: -- Validate future_dated_payment_ccid
11039: g_login_id,
11040: 'Validate_Vendor_Site') <> TRUE) THEN
11041: --
11042: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11043: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11044: l_api_name,'Parameters: '
11045: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11046: ||' ,Future_Dated_Payment_Ccid: '
11047: ||p_vendor_site_rec.future_dated_payment_ccid
11054: FND_MSG_PUB.ADD;
11055: -- Bug 5491139 hkaniven end --
11056: -- Bug 8438716 Start
11057: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11058: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11059: l_api_name,'Call after Validate_CCIDs(FUTURE_DATED_PAYMENT_CCID...)... Parameters: '
11060: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11061: ||' ,Future_Dated_Payment_Ccid: '
11062: ||p_vendor_site_rec.future_dated_payment_ccid
11070: ------------------------------------------------------------------------
11071: l_debug_info := 'Call to Validate duns_number';
11072: ------------------------------------------------------------------------
11073: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11074: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
11075: l_api_name,l_debug_info);
11076: END IF;
11077: --
11078: -- Validate supplier site duns number
11096: g_login_id,
11097: 'Validate_Vendor_Site') <> TRUE) THEN
11098: --
11099: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11100: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11101: l_api_name,'Parameters: '
11102: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11103: ||' ,Invalid_Duns_number: '
11104: ||p_vendor_site_rec.duns_number);
11108: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_DUNS_NUMBER');
11109: FND_MSG_PUB.ADD;
11110: -- Bug 8438716 Start
11111: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11112: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11113: l_api_name,'Call after Chk_new_duns_number... Parameters: '
11114: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11115: ||' ,Invalid_Duns_number: '
11116: ||p_vendor_site_rec.duns_number);
11149: g_user_id,
11150: g_login_id,
11151: 'Validate_Vendor_Site') <> TRUE) THEN
11152: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11153: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME
11154: ||l_api_name,'Parameters: '
11155: ||' Vendor_Site_Interface_Id:'
11156: ||p_vendor_site_rec.vendor_site_interface_id
11157: ||' ISP page not available and CCR data available');
11187: g_user_id,
11188: g_login_id,
11189: 'Validate_Vendor_Site') <> TRUE) THEN
11190: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11191: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME
11192: ||l_api_name,'Parameters: '
11193: ||' Vendor site interface id '
11194: ||p_vendor_site_rec.vendor_site_interface_id
11195: ||', Small business code '
11215: ------------------------------------------------------------------------
11216: l_debug_info := 'check for prohibiting the update of CCR vendor site';
11217: ------------------------------------------------------------------------
11218: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11219: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
11220: l_api_name,l_debug_info);
11221: END IF;
11222: --
11223: -- Check if there is an attempt to update any restricted
11239: g_login_id,
11240: 'Validate_Vendor_Site') <> TRUE) THEN
11241:
11242: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11243: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11244: l_api_name,'Parameters: '
11245: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11246: ||' ,attempting to update non-updatablee elements on CCR site : '
11247: ||p_vendor_site_rec.vendor_site_id);
11251: FND_MESSAGE.SET_NAME('SQLAP','AP_CCR_NO_UPDATE');
11252: FND_MSG_PUB.ADD;
11253: -- Bug 8438716 Start
11254: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11255: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11256: l_api_name,'Call after Chk_update_site_ccr_values... Parameters: '
11257: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11258: ||' ,attempting to update non-updatablee elements on CCR site : '
11259: ||p_vendor_site_rec.vendor_site_id);
11269: ------------------------------------------------------------------------
11270: l_debug_info := 'Call to Validate payee';
11271: ------------------------------------------------------------------------
11272: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11273: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
11274: l_api_name,l_debug_info);
11275: END IF;
11276: --
11277: -- Calling IBY Payee Validation API
11307: g_login_id,
11308: 'Validate_Vendor_Site') <> TRUE) THEN
11309: --
11310: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11311: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11312: l_api_name,'Parameters: '
11313: ||' Vendor_Site_Interface_Id:' ||
11314: p_vendor_site_rec.vendor_interface_id);
11315: END IF;
11351: FND_MSG_PUB.ADD;
11352: -- Bug 5491139 hkaniven end --
11353: -- Bug 8438716 Start
11354: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11355: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11356: l_api_name,'Call after IBY_DISBURSEMENT_SETUP_PUB.Validate_External_Payee... Parameters: '
11357: ||' Vendor_Site_Interface_Id:' ||
11358: p_vendor_site_rec.vendor_interface_id);
11359: END IF;
11373: ----------------------------------------------------------------------------------------------------
11374: l_debug_info := 'Call to Validate country code';
11375: ----------------------------------------------------------------------------------------------------
11376: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11377: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
11378: l_api_name,l_debug_info);
11379: END IF;
11380:
11381: IF(p_vendor_site_rec.country IS NOT NULL) THEN
11402: g_user_id,
11403: g_login_id,
11404: 'Validate_Vendor_Site') <> TRUE) THEN
11405: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11406: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11407: l_api_name,'Parameters: '
11408: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11409: ||' ,Country code validation '
11410: ||p_vendor_site_rec.country);
11414: FND_MESSAGE.SET_NAME('SQLAP','AP_API_INVALID_COUNTRY');
11415: FND_MSG_PUB.ADD;
11416: -- Bug 8438716 Start
11417: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11418: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11419: l_api_name,'Error After validating p_vendor_site_rec.country... Parameters: '
11420: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11421: ||' ,Country code validation '
11422: ||p_vendor_site_rec.country);
11457: g_login_id,
11458: 'Validate_Vendor_Site') <> TRUE) THEN
11459:
11460: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11461: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
11462: ||' Org_Id: '||p_vendor_site_rec.org_id
11463: ||', Org_Name: '||p_vendor_site_rec.ORG_NAME
11464: ||', Party_site_name: '||p_vendor_site_rec.party_site_name
11465: ||', Party_site_id: '|| p_vendor_site_rec.party_site_id
11471: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PARTY_SITE');
11472: FND_MSG_PUB.ADD;
11473: -- Bug 8438716 Start
11474: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11475: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Call after Check_org_id_party_site_name... Parameters: '
11476: ||' Org_Id: '||p_vendor_site_rec.org_id
11477: ||', Org_Name: '||p_vendor_site_rec.ORG_NAME
11478: ||', Party_site_name: '||p_vendor_site_rec.party_site_name
11479: ||', Party_site_id: '|| p_vendor_site_rec.party_site_id
11487: ------------------------------------------------------------------------
11488: l_debug_info := 'Call to Validate location';
11489: ------------------------------------------------------------------------
11490: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11491: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
11492: l_api_name,l_debug_info);
11493: END IF;
11494: --
11495: -- Check for validity of location_id
11503: --location_id does not exist
11504: x_location_valid := 'F';
11505: -- Bug 8438716 Start
11506: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11507: FND_LOG.STRING (G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
11508: ||', x_location_valid: '||x_location_valid
11509: ||', P_Int_Key: '||p_vendor_site_rec.vendor_site_interface_id);
11510: END IF;
11511: -- Bug 8438716 End
11535: g_login_id,
11536: 'Create_Vendor_Site') <> TRUE)
11537: THEN
11538: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11539: FND_LOG.STRING (G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
11540: ||', P_Int_Table: '||'AP_SUPPLIER_SITES_INT'
11541: ||', P_Int_Key: '||p_vendor_site_rec.vendor_site_interface_id
11542: ||', P_Language: '||'LANGUAGE');
11543: END IF;
11566: g_login_id,
11567: 'Create_Vendor_Site') <> TRUE)
11568: THEN
11569: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11570: FND_LOG.STRING (G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
11571: ||', P_Int_Table: '||'AP_SUPPLIER_SITES_INT'
11572: ||', P_Int_Key: '||p_vendor_site_rec.vendor_site_interface_id
11573: ||',P_Language: '||'LANGUAGE');
11574: END IF;
11634: g_login_id,
11635: 'Validate_Vendor_Site') <> TRUE) THEN
11636:
11637: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11638: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11639: l_api_name,'Parameters: '
11640: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11641: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
11642: ||' ,Party_site_id: '||p_vendor_site_rec.party_site_id);
11648: FND_MESSAGE.SET_NAME('SQLAP','AP_MULTIPLE_ADDRESS');
11649: FND_MSG_PUB.ADD;
11650: -- Bug 8438716 Start
11651: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11652: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11653: l_api_name,'Call after Check_Valid_Location Error-AP_MULTIPLE_ADDRESS... Parameters: '
11654: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11655: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
11656: ||' ,Party_site_id: '||p_vendor_site_rec.party_site_id);
11673: g_login_id,
11674: 'Validate_Vendor_Site') <> TRUE) THEN
11675:
11676: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11677: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11678: l_api_name,'Parameters: '
11679: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11680: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
11681: ||' ,Party_site_id: '||p_vendor_site_rec.party_site_id);
11687: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_ADDRESS');
11688: FND_MSG_PUB.ADD;
11689: -- Bug 8438716 Start
11690: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11691: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11692: l_api_name,'Call after Check_Valid_Location... Error-AP_INCONSISTENT_ADDRESS... Parameters: '
11693: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11694: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
11695: ||' ,Party_site_id: '||p_vendor_site_rec.party_site_id);
11715: g_login_id,
11716: 'Validate_Vendor_Site') <> TRUE) THEN
11717:
11718: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11719: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11720: l_api_name,'Parameters: '
11721: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11722: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
11723: ||' ,Org_id: '||p_vendor_site_rec.org_id
11730: FND_MESSAGE.SET_NAME('SQLAP','AP_NULL_COUNTRY_NAME');
11731: FND_MSG_PUB.ADD;
11732: -- Bug 8438716 Start
11733: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11734: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11735: l_api_name,'Validation error-p_vendor_site_rec.country is null-AP_NULL_COUNTRY_NAME... Parameters: '
11736: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11737: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
11738: ||' ,Org_id: '||p_vendor_site_rec.org_id
11757: g_login_id,
11758: 'Validate_Vendor_Site') <> TRUE) THEN
11759:
11760: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11761: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11762: l_api_name,'Parameters: '
11763: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11764: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
11765: ||' ,Org_id: '||p_vendor_site_rec.org_id
11772: FND_MESSAGE.SET_NAME('SQLAP','AP_NULL_ADDRESS_LINE1');
11773: FND_MSG_PUB.ADD;
11774: -- Bug 8438716 Start
11775: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11776: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11777: l_api_name,'Validation error p_vendor_site_rec.address_line1-AP_NULL_ADDRESS_LINE1... Parameters: '
11778: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11779: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
11780: ||' ,Org_id: '||p_vendor_site_rec.org_id
11797: ------------------------------------------------------------------------
11798: l_debug_info := 'Call to Validate party_site_id';
11799: ------------------------------------------------------------------------
11800: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11801: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
11802: l_api_name,l_debug_info);
11803: END IF;
11804: --
11805: -- Check for validity of party_site_id
11815: --party_site_id does not exist
11816: x_party_site_valid := 'F';
11817: -- Bug 8438716 Start
11818: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11819: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11820: l_api_name,'Call after Check_Valid_Party_Site_ID - party_site_id does not exist');
11821: END IF;
11822: -- Bug 8438716 End
11823: ELSE
11829: x_party_site_valid := 'N';
11830:
11831: -- Bug 8438716 Start
11832: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11833: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11834: l_api_name,'Call after Check_Valid_Party_Site_ID - party_site_id is null');
11835: END IF;
11836: -- Bug 8438716 End
11837:
11852: g_login_id,
11853: 'Validate_Vendor_Site') <> TRUE) THEN
11854:
11855: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11856: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11857: l_api_name,'Parameters: '
11858: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11859: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
11860: ||' ,Org_id: '||p_vendor_site_rec.org_id
11867: FND_MESSAGE.SET_NAME('SQLAP','AP_DUP_PARTY_SITE_NAME');
11868: FND_MSG_PUB.ADD;
11869: -- Bug 8438716 Start
11870: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11871: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11872: l_api_name,'Validation error-p_vendor_site_rec.vendor_site_code is duplicate-AP_DUP_PARTY_SITE_NAME... Parameters: '
11873: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11874: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
11875: ||' ,Org_id: '||p_vendor_site_rec.org_id
11884: ------------------------------------------------------------------------
11885: l_debug_info := 'Call to Validate primary_pay_site_flag unique per Vendor';
11886: ------------------------------------------------------------------------
11887: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11888: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
11889: l_api_name,l_debug_info);
11890: END IF;
11891: --
11892: -- Validate primary_pay_site_flag - unique per vendor
11912: g_login_id,
11913: 'Validate_Vendor_Site') <> TRUE) THEN
11914: --
11915: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11916: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11917: l_api_name,'Parameters: '
11918: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11919: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
11920: ||' ,Org_id: '||p_vendor_site_rec.org_id
11927: FND_MSG_PUB.ADD;
11928: -- Bug 5491139 hkaniven end --
11929: -- Bug 8438716 Start
11930: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11931: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11932: l_api_name,'Call after Validate_unique_per_vendor... Parameters: '
11933: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11934: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
11935: ||' ,Org_id: '||p_vendor_site_rec.org_id
11943: ------------------------------------------------------------------------
11944: l_debug_info := 'Call to Validate Country of Origin Code';
11945: ------------------------------------------------------------------------
11946: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11947: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
11948: l_api_name,l_debug_info);
11949: END IF;
11950:
11951: IF (p_vendor_site_rec.country_of_origin_code is not null) THEN
11962: g_login_id,
11963: 'Validate_Vendor_Site') <> TRUE) THEN
11964: --
11965: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11966: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11967: l_api_name,'Parameters: '
11968: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11969: ||' ,Country_Of_Origin_Code: '||p_vendor_site_rec.country_of_origin_code);
11970: END IF;
11975: FND_MSG_PUB.ADD;
11976: -- Bug 5491139 hkaniven end --
11977: -- Bug 8438716 Start
11978: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11979: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11980: l_api_name,'Call after country_of_origin_valid... Parameters: '
11981: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
11982: ||' ,Country_Of_Origin_Code: '||p_vendor_site_rec.country_of_origin_code);
11983: END IF;
11993: ------------------------------------------------------------------------
11994: l_debug_info := 'Call to Validate pcard_site_flag';
11995: ------------------------------------------------------------------------
11996: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11997: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
11998: l_api_name,l_debug_info);
11999: END IF;
12000: --
12001: -- Validate pcard_site_flag
12015: g_login_id,
12016: 'Validate_Vendor_Site') <> TRUE) THEN
12017: --
12018: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12019: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12020: l_api_name,'Parameters: '
12021: ||' Vendor_Site_Interface_Id: '
12022: ||p_vendor_site_rec.vendor_site_interface_id
12023: ||' ,Pcard_Site_Flag: '
12030: FND_MSG_PUB.ADD;
12031: -- Bug 5491139 hkaniven end --
12032: -- Bug 8438716 Start
12033: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12034: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12035: l_api_name,'Call after Validate_Lookups(PCARD_SITE_FLAG...)... Parameters: '
12036: ||' Vendor_Site_Interface_Id: '
12037: ||p_vendor_site_rec.vendor_site_interface_id
12038: ||' ,Pcard_Site_Flag: '
12046: ------------------------------------------------------------------------
12047: l_debug_info := 'Call to Validate Purchasing Site Flag';
12048: ------------------------------------------------------------------------
12049: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12050: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12051: l_api_name,l_debug_info);
12052: END IF;
12053: --
12054: -- Validate purchasing_site_flag
12068: g_login_id,
12069: 'Validate_Vendor_Site') <> TRUE) THEN
12070: --
12071: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12072: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12073: l_api_name,'Parameters: '
12074: ||' Vendor_Site_Interface_Id: '
12075: ||p_vendor_site_rec.vendor_site_interface_id
12076: ||' ,Purchasing_Site_Flag: '
12083: FND_MSG_PUB.ADD;
12084: -- Bug 5491139 hkaniven end --
12085: -- Bug 8438716 Start
12086: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12087: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12088: l_api_name,'Call after Validate_Lookups(PURCHASING_SITE_FLAG...)... Parameters: '
12089: ||' Vendor_Site_Interface_Id: '
12090: ||p_vendor_site_rec.vendor_site_interface_id
12091: ||' ,Purchasing_Site_Flag: '
12099: ------------------------------------------------------------------------
12100: l_debug_info := 'Call to Validate rfq_only_site_flag';
12101: ------------------------------------------------------------------------
12102: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12103: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12104: l_api_name,l_debug_info);
12105: END IF;
12106: --
12107: -- Validate rfq_only_site_flag
12121: g_login_id,
12122: 'Validate_Vendor_Site') <> TRUE) THEN
12123: --
12124: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12125: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12126: l_api_name,'Parameters: '
12127: ||' Vendor_Site_Interface_Id: '
12128: ||p_vendor_site_rec.vendor_site_interface_id
12129: ||' ,Rfq_Only_Site_Flag: '
12136: FND_MSG_PUB.ADD;
12137: -- Bug 5491139 hkaniven end --
12138: -- Bug 8438716 Start
12139: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12140: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12141: l_api_name,'Call after Validate_Lookups(RFQ_ONLY_SITE_FLAG...)... Parameters: '
12142: ||' Vendor_Site_Interface_Id: '
12143: ||p_vendor_site_rec.vendor_site_interface_id
12144: ||' ,Rfq_Only_Site_Flag: '
12152: ------------------------------------------------------------------------
12153: l_debug_info := 'Call to Validate pay_site_flag';
12154: ------------------------------------------------------------------------
12155: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12156: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12157: l_api_name,l_debug_info);
12158: END IF;
12159: --
12160: -- Validate pay_site_flag
12174: g_login_id,
12175: 'Validate_Vendor_Site') <> TRUE) THEN
12176: --
12177: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12178: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12179: l_api_name,'Parameters: '
12180: ||' Vendor_Site_Interface_Id: '
12181: ||p_vendor_site_rec.vendor_site_interface_id
12182: ||' ,Pay_Site_Flag: '
12189: FND_MSG_PUB.ADD;
12190: -- Bug 5491139 hkaniven end --
12191: -- Bug 8438716 Start
12192: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12193: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12194: l_api_name,'Call after Validate_Lookups(PAY_SITE_FLAG...)... Parameters: '
12195: ||' Vendor_Site_Interface_Id: '
12196: ||p_vendor_site_rec.vendor_site_interface_id
12197: ||' ,Pay_Site_Flag: '
12205: ------------------------------------------------------------------------
12206: l_debug_info := 'Call to Validate attention_ar_flag';
12207: ------------------------------------------------------------------------
12208: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12209: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12210: l_api_name,l_debug_info);
12211: END IF;
12212: --
12213: -- Validate attention_ar_flag
12227: g_login_id,
12228: 'Validate_Vendor_Site') <> TRUE) THEN
12229: --
12230: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12231: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12232: l_api_name,'Parameters: '
12233: ||' Vendor_Site_Interface_Id: '
12234: ||p_vendor_site_rec.vendor_site_interface_id
12235: ||' ,Attention_Ar_Flag: '
12242: FND_MSG_PUB.ADD;
12243: -- Bug 5491139 hkaniven end --
12244: -- Bug 8438716 Start
12245: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12246: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12247: l_api_name,'Call after Validate_Lookups(ATTENTION_AR_FLAG...)... Parameters: '
12248: ||' Vendor_Site_Interface_Id: '
12249: ||p_vendor_site_rec.vendor_site_interface_id
12250: ||' ,Attention_Ar_Flag: '
12258: ------------------------------------------------------------------------
12259: l_debug_info := 'Call to Validate primary_pay_site_flag';
12260: ------------------------------------------------------------------------
12261: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12262: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12263: l_api_name,l_debug_info);
12264: END IF;
12265: --
12266: -- Validate primary_pay_site_flag
12280: g_login_id,
12281: 'Validate_Vendor_Site') <> TRUE) THEN
12282: --
12283: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12284: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12285: l_api_name,'Parameters: '
12286: ||' Vendor_Site_Interface_Id: '
12287: ||p_vendor_site_rec.vendor_site_interface_id
12288: ||' ,Primary_Pay_Site_Flag: '
12295: FND_MSG_PUB.ADD;
12296: -- Bug 5491139 hkaniven end --
12297: -- Bug 8438716 Start
12298: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12299: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12300: l_api_name,'Call after Validate_Lookups(PRIMARY_PAY_SITE_FLAG...)... Parameters: '
12301: ||' Vendor_Site_Interface_Id: '
12302: ||p_vendor_site_rec.vendor_site_interface_id
12303: ||' ,Primary_Pay_Site_Flag: '
12311: ------------------------------------------------------------------------
12312: l_debug_info := 'Call to Validate freight_terms_lookup_code';
12313: ------------------------------------------------------------------------
12314: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12315: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12316: l_api_name,l_debug_info);
12317: END IF;
12318: --
12319: -- Validate freight_terms_lookup_code
12334: g_login_id,
12335: 'Validate_Vendor_Site') <> TRUE) THEN
12336: --
12337: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12338: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12339: l_api_name,'Parameters: '
12340: ||' Vendor_Site_Interface_Id: '
12341: ||p_vendor_site_rec.vendor_site_interface_id
12342: ||' ,Freight_Terms_Lookup_Code '
12349: FND_MSG_PUB.ADD;
12350: -- Bug 5491139 hkaniven end --
12351: -- Bug 8438716 Start
12352: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12353: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12354: l_api_name,'Parameters: '
12355: ||' Vendor_Site_Interface_Id: '
12356: ||p_vendor_site_rec.vendor_site_interface_id
12357: ||' ,Freight_Terms_Lookup_Code '
12365: ------------------------------------------------------------------------
12366: l_debug_info := 'Call to Validate fob_lookup_code';
12367: ------------------------------------------------------------------------
12368: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12369: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12370: l_api_name,l_debug_info);
12371: END IF;
12372: --
12373: -- Validate fob_lookup_code
12387: g_login_id,
12388: 'Validate_Vendor_Site') <> TRUE) THEN
12389: --
12390: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12391: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12392: l_api_name,'Parameters: '
12393: ||' Vendor_Site_Interface_Id: '
12394: ||p_vendor_site_rec.vendor_site_interface_id
12395: ||' ,Fob_Lookup_Code '
12402: FND_MSG_PUB.ADD;
12403: -- Bug 5491139 hkaniven end --
12404: -- Bug 8438716 Start
12405: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12406: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12407: l_api_name,'Call after validating FOB_LOOKUP_CODE Parameters: '
12408: ||' Vendor_Site_Interface_Id: '
12409: ||p_vendor_site_rec.vendor_site_interface_id
12410: ||' ,Fob_Lookup_Code '
12418: ------------------------------------------------------------------------
12419: l_debug_info := 'Call to Validate pay_date_basis_lookup_code';
12420: ------------------------------------------------------------------------
12421: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12422: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12423: l_api_name,l_debug_info);
12424: END IF;
12425: --
12426: -- Validate pay_date_basis_lookup_code
12441: g_login_id,
12442: 'Validate_Vendor_Site') <> TRUE) THEN
12443: --
12444: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12445: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12446: l_api_name,'Parameters: '
12447: ||' Vendor_Site_Interface_Id: '
12448: ||p_vendor_site_rec.vendor_site_interface_id
12449: ||' ,Pay_Date_Basis_Lookup_Code '
12456: FND_MSG_PUB.ADD;
12457: -- Bug 5491139 hkaniven end --
12458: -- Bug 8438716 Start
12459: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12460: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12461: l_api_name,'Call after validating PAY_DATE_BASIS_LOOKUP_CODE... Parameters: '
12462: ||' Vendor_Site_Interface_Id: '
12463: ||p_vendor_site_rec.vendor_site_interface_id
12464: ||' ,Pay_Date_Basis_Lookup_Code '
12472: ------------------------------------------------------------------------
12473: l_debug_info := 'Call to Validate pay_group_lookup_code';
12474: ------------------------------------------------------------------------
12475: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12476: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12477: l_api_name,l_debug_info);
12478: END IF;
12479: --
12480: -- Validate pay_group_lookup_code
12495: g_login_id,
12496: 'Validate_Vendor_Site') <> TRUE) THEN
12497: --
12498: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12499: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12500: l_api_name,'Parameters: '
12501: ||' Vendor_Site_Interface_Id: '
12502: ||p_vendor_site_rec.vendor_site_interface_id
12503: ||' ,Pay_Group_Lookup_Code '
12510: FND_MSG_PUB.ADD;
12511: -- Bug 5491139 hkaniven end --
12512: -- Bug 8438716 Start
12513: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12514: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12515: l_api_name,'Call after validating PAY_GROUP_LOOKUP_CODE... Parameters: '
12516: ||' Vendor_Site_Interface_Id: '
12517: ||p_vendor_site_rec.vendor_site_interface_id
12518: ||' ,Pay_Group_Lookup_Code '
12526: ------------------------------------------------------------------------
12527: l_debug_info := 'Call to Validate terms_date_basis';
12528: ------------------------------------------------------------------------
12529: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12530: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12531: l_api_name,l_debug_info);
12532: END IF;
12533: --
12534: -- Validate terms_date_basis
12548: g_login_id,
12549: 'Validate_Vendor_Site') <> TRUE) THEN
12550: --
12551: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12552: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12553: l_api_name,'Parameters: '
12554: ||' Vendor_Site_Interface_Id: '
12555: ||p_vendor_site_rec.vendor_site_interface_id
12556: ||' ,Terms_Date_Basis '
12563: FND_MSG_PUB.ADD;
12564: -- Bug 5491139 hkaniven end --
12565: -- Bug 8438716 Start
12566: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12567: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12568: l_api_name,'Call after validating TERMS_DATE_BASIS... Parameters: '
12569: ||' Vendor_Site_Interface_Id: '
12570: ||p_vendor_site_rec.vendor_site_interface_id
12571: ||' ,Terms_Date_Basis '
12580: ------------------------------------------------------------------------
12581: l_debug_info := 'Call to Validate create_debit_memo_flag';
12582: ------------------------------------------------------------------------
12583: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12584: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12585: l_api_name,l_debug_info);
12586: END IF;
12587: --
12588: -- Validate create_debit_memo_flag
12603: g_login_id,
12604: 'Validate_Vendor_Site') <> TRUE) THEN
12605: --
12606: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12607: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12608: l_api_name,'Parameters: '
12609: ||' Vendor_Site_Interface_Id: '
12610: ||p_vendor_site_rec.vendor_site_interface_id
12611: ||' ,Create_Debit_Memo_Flag '
12618: FND_MSG_PUB.ADD;
12619: -- Bug 5491139 hkaniven end --
12620: -- Bug 8438716 Start
12621: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12622: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12623: l_api_name,'Call after validating CREATE_DEBIT_MEMO_FLAG... Parameters: '
12624: ||' Vendor_Site_Interface_Id: '
12625: ||p_vendor_site_rec.vendor_site_interface_id
12626: ||' ,Create_Debit_Memo_Flag '
12634: ------------------------------------------------------------------------
12635: l_debug_info := 'Call to Validate exclude_freight_from_discount';
12636: ------------------------------------------------------------------------
12637: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12638: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12639: l_api_name,l_debug_info);
12640: END IF;
12641: --
12642: -- Validate exclude_freight_from_discount
12657: g_login_id,
12658: 'Validate_Vendor_Site') <> TRUE) THEN
12659: --
12660: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12661: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12662: l_api_name,'Parameters: '
12663: ||' Vendor_Site_Interface_Id: '
12664: ||p_vendor_site_rec.vendor_site_interface_id
12665: ||' ,Exclude_Freight_From_Discount '
12672: FND_MSG_PUB.ADD;
12673: -- Bug 5491139 hkaniven end --
12674: -- Bug 8438716 Start
12675: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12676: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12677: l_api_name,'Call after validating EXCLUDE_FREIGHT_FROM_DISCOUNT... Parameters: '
12678: ||' Vendor_Site_Interface_Id: '
12679: ||p_vendor_site_rec.vendor_site_interface_id
12680: ||' ,Exclude_Freight_From_Discount '
12689: ------------------------------------------------------------------------
12690: l_debug_info := 'Call to Validate hold_future_payments_flag';
12691: ------------------------------------------------------------------------
12692: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12693: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12694: l_api_name,l_debug_info);
12695: END IF;
12696: --
12697: -- Validate hold_future_payments_flag
12711: g_login_id,
12712: 'Validate_Vendor_Site') <> TRUE) THEN
12713: --
12714: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12715: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12716: l_api_name,'Parameters: '
12717: ||' Vendor_Site_Interface_Id: '
12718: ||p_vendor_site_rec.vendor_site_interface_id
12719: ||' ,Hold_Future_Payments_Flag '
12726: FND_MSG_PUB.ADD;
12727: -- Bug 5491139 hkaniven end --
12728: -- Bug 8438716 Start
12729: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12730: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12731: l_api_name,'Call after validating HOLD_FUTURE_PAYMENTS_FLAG... Parameters: '
12732: ||' Vendor_Site_Interface_Id: '
12733: ||p_vendor_site_rec.vendor_site_interface_id
12734: ||' ,Hold_Future_Payments_Flag '
12742: ------------------------------------------------------------------------
12743: l_debug_info := 'Call to Validate hold_all_payments_flag';
12744: ------------------------------------------------------------------------
12745: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12746: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12747: l_api_name,l_debug_info);
12748: END IF;
12749: --
12750: -- Validate hold_all_payments_flag
12764: g_login_id,
12765: 'Validate_Vendor_Site') <> TRUE) THEN
12766: --
12767: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12768: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12769: l_api_name,'Parameters: '
12770: ||' Vendor_Site_Interface_Id: '
12771: ||p_vendor_site_rec.vendor_site_interface_id
12772: ||' ,Hold_All_Payments_Flag '
12779: FND_MSG_PUB.ADD;
12780: -- Bug 5491139 hkaniven end --
12781: -- Bug 8438716 Start
12782: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12783: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12784: l_api_name,'Call after validating HOLD_ALL_PAYMENTS_FLAG... Parameters: '
12785: ||' Vendor_Site_Interface_Id: '
12786: ||p_vendor_site_rec.vendor_site_interface_id
12787: ||' ,Hold_All_Payments_Flag '
12795: ------------------------------------------------------------------------
12796: l_debug_info := 'Call to Validate always_take_disc_flag';
12797: ------------------------------------------------------------------------
12798: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12799: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12800: l_api_name,l_debug_info);
12801: END IF;
12802: --
12803: -- Validate always_take_disc_flag
12817: g_login_id,
12818: 'Validate_Vendor_Site') <> TRUE) THEN
12819: --
12820: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12821: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12822: l_api_name,'Parameters: '
12823: ||' Vendor_Site_Interface_Id: '
12824: ||p_vendor_site_rec.vendor_site_interface_id
12825: ||' ,Always_Take_Disc_Flag '
12832: FND_MSG_PUB.ADD;
12833: -- Bug 5491139 hkaniven end --
12834: -- Bug 8438716 Start
12835: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12836: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12837: l_api_name,'Call after validating ALWAYS_TAKE_DISC_FLAG... Parameters: '
12838: ||' Vendor_Site_Interface_Id: '
12839: ||p_vendor_site_rec.vendor_site_interface_id
12840: ||' ,Always_Take_Disc_Flag '
12848: ------------------------------------------------------------------------
12849: l_debug_info := 'Call to Validate match_option';
12850: ------------------------------------------------------------------------
12851: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12852: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12853: l_api_name,l_debug_info);
12854: END IF;
12855: --
12856: -- Validate match_option
12871: g_login_id,
12872: 'Validate_Vendor_Site') <> TRUE) THEN
12873: --
12874: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12875: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12876: l_api_name,'Parameters: '
12877: ||' Vendor_Site_Interface_Id: '
12878: ||p_vendor_site_rec.vendor_site_interface_id
12879: ||' ,Match_Option '
12886: FND_MSG_PUB.ADD;
12887: -- Bug 5491139 hkaniven end --
12888: -- Bug 8438716 Start
12889: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12890: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12891: l_api_name,'Call after Check_Valid_Match_Option()... Parameters: '
12892: ||' Vendor_Site_Interface_Id: '
12893: ||p_vendor_site_rec.vendor_site_interface_id
12894: ||' ,Match_Option '
12902: ------------------------------------------------------------------------
12903: l_debug_info := 'Call to Validate allow_awt_flag';
12904: ------------------------------------------------------------------------
12905: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12906: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12907: l_api_name,l_debug_info);
12908: END IF;
12909: --
12910: -- Validate allow_awt_flag
12926: g_login_id,
12927: 'Validate_Vendor_Site') <> TRUE) THEN
12928: --
12929: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12930: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12931: l_api_name,'Parameters: '
12932: ||' Vendor_Site_Interface_Id: '
12933: ||p_vendor_site_rec.vendor_site_interface_id
12934: ||' ,Allow_Awt_Flag '
12941: FND_MSG_PUB.ADD;
12942: -- Bug 5491139 hkaniven end --
12943: -- Bug 8438716 Start
12944: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12945: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12946: l_api_name,'Call after Chk_allow_awt_flag()... Parameters: '
12947: ||' Vendor_Site_Interface_Id: '
12948: ||p_vendor_site_rec.vendor_site_interface_id
12949: ||' ,Allow_Awt_Flag '
12957: ------------------------------------------------------------------------
12958: l_debug_info := 'Call to Validate awt_group_id and awt_group_name';
12959: ------------------------------------------------------------------------
12960: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12961: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12962: l_api_name,l_debug_info);
12963: END IF;
12964: --
12965: -- Validate awt_group_id and awt_group_name
12988: g_login_id,
12989: 'Validate_Vendor_Site') <> TRUE) THEN
12990: --
12991: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12992: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12993: l_api_name,'Parameters: '
12994: ||' Vendor_Site_Interface_Id: '
12995: ||p_vendor_site_rec.vendor_site_interface_id
12996: ||' ,Allow_Awt_Flag '
13005: FND_MSG_PUB.ADD;
13006: -- Bug 5491139 hkaniven end --
13007: -- Bug 8438716 Start
13008: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13009: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13010: l_api_name,'Call after Chk_awt_grp_id_name()... Parameters: '
13011: ||' Vendor_Site_Interface_Id: '
13012: ||p_vendor_site_rec.vendor_site_interface_id
13013: ||' ,Allow_Awt_Flag '
13024: ------------------------------------------------------------------------
13025: l_debug_info := 'Call to Validate pay_awt_group_id and pay_awt_group_name';
13026: ------------------------------------------------------------------------
13027: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13028: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
13029: l_api_name,l_debug_info);
13030: END IF;
13031: --
13032: -- Validate awt_group_id and awt_group_name
13056: g_login_id,
13057: 'Validate_Vendor_Site') <> TRUE) THEN
13058: --
13059: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13060: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13061: l_api_name,'Parameters: '
13062: ||' Vendor_Site_Interface_Id: '
13063: ||p_vendor_site_rec.vendor_site_interface_id
13064: ||' ,Allow_Awt_Flag '
13072: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_AWT_GROUP');
13073: FND_MSG_PUB.ADD;
13074:
13075: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13076: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13077: l_api_name,'Call after Chk_pay_awt_grp_id_name()... Parameters: '
13078: ||' Vendor_Site_Interface_Id: '
13079: ||p_vendor_site_rec.vendor_site_interface_id
13080: ||' ,Allow_Awt_Flag '
13090: ------------------------------------------------------------------------
13091: l_debug_info := 'Call to Validate Distribution_set_Id and Distribution_set_name';
13092: ------------------------------------------------------------------------
13093: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13094: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
13095: l_api_name,l_debug_info);
13096: END IF;
13097:
13098: -- Distribution_set_Id and Distribution_set_name validation
13115: g_login_id,
13116: 'Validate_Vendor_Site') <> TRUE) THEN
13117: --
13118: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13119: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13120: l_api_name,'Parameters: '
13121: ||' Vendor_Site_Interface_Id: '
13122: ||p_vendor_site_rec.vendor_site_interface_id
13123: ||' ,Distribution_Set_Id '
13134: FND_MSG_PUB.ADD;
13135: -- Bug 5491139 hkaniven end --
13136: -- Bug 8438716 Start
13137: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13138: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13139: l_api_name,'Call after Check_dist_set_id_name() Parameters: '
13140: ||' Vendor_Site_Interface_Id: '
13141: ||p_vendor_site_rec.vendor_site_interface_id
13142: ||' ,Distribution_Set_Id '
13154: ------------------------------------------------------------------------
13155: l_debug_info := 'Call to Validate Ship_to_location_Id and Ship_to_location_code`';
13156: ------------------------------------------------------------------------
13157: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13158: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
13159: l_api_name,l_debug_info);
13160: END IF;
13161:
13162: -- Ship_to_location_Id and Ship_to_location_code validation
13179: g_login_id,
13180: 'Validate_Vendor_Site') <> TRUE) THEN
13181: --
13182: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13183: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13184: l_api_name,'Parameters: '
13185: ||' Vendor_Site_Interface_Id: '
13186: ||p_vendor_site_rec.vendor_site_interface_id
13187: ||' ,Ship_To_Location_Id '
13198: FND_MSG_PUB.ADD;
13199: -- Bug 5491139 hkaniven end --
13200: -- Bug 8438716 Start
13201: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13202: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13203: l_api_name,'Call after Check_ship_locn_id_code()... Parameters: '
13204: ||' Vendor_Site_Interface_Id: '
13205: ||p_vendor_site_rec.vendor_site_interface_id
13206: ||' ,Ship_To_Location_Id '
13218: ------------------------------------------------------------------------
13219: l_debug_info := 'Call to Validate Bill_to_location_Id and Bill_to_location_code';
13220: ------------------------------------------------------------------------
13221: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13222: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
13223: l_api_name,l_debug_info);
13224: END IF;
13225:
13226: -- Bill_to_location_Id and Bill_to_location_code validation
13243: g_login_id,
13244: 'Validate_Vendor_Site') <> TRUE) THEN
13245: --
13246: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13247: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13248: l_api_name,'Parameters: '
13249: ||' Vendor_Site_Interface_Id: '
13250: ||p_vendor_site_rec.vendor_site_interface_id
13251: ||' ,Bill_To_Location_Id '
13262: FND_MSG_PUB.ADD;
13263: -- Bug 5491139 hkaniven end --
13264: -- Bug 8438716 Start
13265: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13266: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13267: l_api_name,'Call after Check_bill_locn_id_code()... Parameters: '
13268: ||' Vendor_Site_Interface_Id: '
13269: ||p_vendor_site_rec.vendor_site_interface_id
13270: ||' ,Bill_To_Location_Id '
13282: ------------------------------------------------------------------------
13283: l_debug_info := 'Call to Validate supplier_notification_method';
13284: ------------------------------------------------------------------------
13285: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13286: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
13287: l_api_name,l_debug_info);
13288: END IF;
13289: --
13290: -- Validate supplier_notification_method
13305: g_login_id,
13306: 'Validate_Vendor_Site') <> TRUE) THEN
13307: --
13308: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13309: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13310: l_api_name,'Parameters: '
13311: ||' Vendor_Site_Interface_Id: '
13312: ||p_vendor_site_rec.vendor_site_interface_id
13313: ||' ,Supplier_Notif_Method: '
13320: FND_MSG_PUB.ADD;
13321: -- Bug 5491139 hkaniven end --
13322: -- Bug 8438716 Start
13323: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13324: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13325: l_api_name,'Call after Check_Valid_Sup_Notif_Method()... Parameters: '
13326: ||' Vendor_Site_Interface_Id: '
13327: ||p_vendor_site_rec.vendor_site_interface_id
13328: ||' ,Supplier_Notif_Method: '
13337: ------------------------------------------------------------------------
13338: l_debug_info := 'Call to Validate remit_advice_delivery_method';
13339: ------------------------------------------------------------------------
13340: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13341: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
13342: l_api_name,l_debug_info);
13343: END IF;
13344: --
13345: -- Validate remit_advice_delivery_method
13360: g_login_id,
13361: 'Validate_Vendor_Site') <> TRUE) THEN
13362: --
13363: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13364: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13365: l_api_name,'Parameters: '
13366: ||' Vendor_Site_Interface_Id: '
13367: ||p_vendor_site_rec.vendor_site_interface_id
13368: ||' ,Remit_Advice_Delivery_Method: '
13375: FND_MSG_PUB.ADD;
13376: -- Bug 5491139 hkaniven end --
13377: -- Bug 8438716 Start
13378: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13379: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13380: l_api_name,'Call after Check_Valid_Remit_Adv_Del_Mthd()... Parameters: '
13381: ||' Vendor_Site_Interface_Id: '
13382: ||p_vendor_site_rec.vendor_site_interface_id
13383: ||' ,Supplier_Notif_Method: '
13392: ------------------------------------------------------------------------
13393: l_debug_info := 'Checking Tolerance_Id / Name information';
13394: ------------------------------------------------------------------------
13395: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13396: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
13397: l_api_name,l_debug_info);
13398: END IF;
13399: --bug6335105
13400: /*IF (p_vendor_site_rec.tolerance_name is NOT NULL
13420: g_login_id,
13421: 'Validate_Vendor_Site') <> TRUE) THEN
13422: --
13423: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13424: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13425: l_api_name,'Parameters: '
13426: ||' Vendor_Site_Interface_Id: '
13427: ||p_vendor_site_rec.vendor_site_interface_id
13428: ||' ,Toleranace_Id: '
13436: FND_MSG_PUB.ADD;
13437: -- Bug 5491139 hkaniven end --
13438: -- Bug 8438716 Start
13439: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13440: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13441: l_api_name,'Call after Check_tolerance_id_code()... Parameters: '
13442: ||' Vendor_Site_Interface_Id: '
13443: ||p_vendor_site_rec.vendor_site_interface_id
13444: ||' ,Toleranace_Id: '
13453: ------------------------------------------------------------------------
13454: l_debug_info := 'Checking Services Tolerance_Id / Name information';
13455: ------------------------------------------------------------------------
13456: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13457: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
13458: l_api_name,l_debug_info);
13459: END IF;
13460: --bug6335105
13461: /*IF (p_vendor_site_rec.services_tolerance_name is NOT NULL
13481: g_login_id,
13482: 'Validate_Vendor_Site') <> TRUE) THEN
13483: --
13484: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13485: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13486: l_api_name,'Parameters: '
13487: ||' Vendor_Site_Interface_Id: '
13488: ||p_vendor_site_rec.vendor_site_interface_id
13489: ||' ,Toleranace_Id: '
13497: FND_MSG_PUB.ADD;
13498: -- Bug 5491139 hkaniven end --
13499: -- Bug 8438716 Start
13500: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13501: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13502: l_api_name,'Call after Check_tolerance_id_code()... Parameters: '
13503: ||' Vendor_Site_Interface_Id: '
13504: ||p_vendor_site_rec.vendor_site_interface_id
13505: ||' ,Toleranace_Id: '
13515: ------------------------------------------------------------------------
13516: l_debug_info := 'Call to Validate retainage_rate';
13517: ------------------------------------------------------------------------
13518: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13519: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
13520: l_api_name,l_debug_info);
13521: END IF;
13522:
13523: IF p_vendor_site_rec.retainage_rate is NOT NULL THEN
13537: g_login_id,
13538: 'Validate_Vendor_Site') <> TRUE) THEN
13539: --
13540: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13541: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13542: l_api_name,'Parameters: '
13543: ||' Vendor_Site_Interface_Id: '
13544: ||p_vendor_site_rec.vendor_site_interface_id
13545: ||' ,Retainage_Rate '
13552: FND_MSG_PUB.ADD;
13553: -- Bug 5491139 hkaniven end --
13554: -- Bug 8438716 Start
13555: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13556: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13557: l_api_name,'Call after validating p_vendor_site_rec.retainage_rate... Parameters: '
13558: ||' Vendor_Site_Interface_Id: '
13559: ||p_vendor_site_rec.vendor_site_interface_id
13560: ||' ,Retainage_Rate '
13568: ------------------------------------------------------------------------
13569: l_debug_info := 'Call to Validate ship_via_lookup_code';
13570: ------------------------------------------------------------------------
13571: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13572: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
13573: l_api_name,l_debug_info);
13574: END IF;
13575: --
13576: -- Validate ship_via_lookup_code
13592: g_login_id,
13593: 'Validate_Vendor_Site') <> TRUE) THEN
13594: --
13595: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13596: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13597: l_api_name,'Parameters: '
13598: ||' Vendor_Site_Interface_Id: '
13599: ||p_vendor_site_rec.vendor_site_interface_id
13600: ||' ,Ship_Via_Lookup_Code: '
13607: FND_MSG_PUB.ADD;
13608: -- Bug 5491139 hkaniven end --
13609: -- Bug 8438716 Start
13610: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13611: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13612: l_api_name,'Call after Check_Site_Ship_Via()... Parameters: '
13613: ||' Vendor_Site_Interface_Id: '
13614: ||p_vendor_site_rec.vendor_site_interface_id
13615: ||' ,Ship_Via_Lookup_Code: '
13623: ------------------------------------------------------------------------
13624: l_debug_info := 'Call to Validate tax_reporting_site_flag';
13625: ------------------------------------------------------------------------
13626: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13627: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
13628: l_api_name,l_debug_info);
13629: END IF;
13630: --
13631: -- Validate tax_reporting_site_flag
13650: g_login_id,
13651: 'Validate_Vendor_Site') <> TRUE) THEN
13652: --
13653: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13654: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13655: l_api_name,'Parameters: '
13656: ||' Vendor_Site_Interface_Id: '
13657: ||p_vendor_site_rec.vendor_site_interface_id
13658: ||' Vendor_Id: '||p_vendor_site_rec.vendor_id
13669: FND_MSG_PUB.ADD;
13670: -- Bug 5491139 hkaniven end --
13671: -- Bug 8438716 Start
13672: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13673: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13674: l_api_name,'Call after validating p_vendor_site_rec.tax_reporting_site_flag... Parameters: '
13675: ||' Vendor_Site_Interface_Id: '
13676: ||p_vendor_site_rec.vendor_site_interface_id
13677: ||' Vendor_Id: '||p_vendor_site_rec.vendor_id
13708: 'Validate_Vendor_Site') <> TRUE) THEN
13709: --
13710: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL)
13711: THEN
13712: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13713: l_api_name,'Parameters: '
13714: ||' Vendor_Site_Interface_Id: '
13715: ||p_vendor_site_rec.vendor_site_interface_id
13716: ||' Gapless Invoice Num Flag: '
13726: -- Bug 5491139 hkaniven end --
13727: -- Bug 8438716 Start
13728: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL)
13729: THEN
13730: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13731: l_api_name,'Call after Check_Gapless_Inv_Num()... Parameters: '
13732: ||' Vendor_Site_Interface_Id: '
13733: ||p_vendor_site_rec.vendor_site_interface_id
13734: ||' Gapless Invoice Num Flag: '
14005: l_debug_info := 'After call to hz_party_v2pub.create_person';
14006: l_debug_info := l_debug_info||' Return status : '||l_per_return_status||' Error : '||l_per_msg_data;
14007: ------------------------------------------------------------------------
14008: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14009: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
14010: END IF;
14011: -- Bug 6886893: Start
14012: IF g_source = 'IMPORT' THEN
14013:
14029: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,x_msg_data);
14030: END IF;
14031:
14032: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14033: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,x_msg_data);
14034: END IF;
14035:
14036: IF (Insert_Rejections(
14037: p_parent_table => 'AP_SUP_SITE_CONTACT_INT',
14042: p_calling_sequence => 'hz_party_v2pub.create_person'
14043: ) <> TRUE) THEN
14044:
14045: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
14046: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
14047: l_api_name,'Error logging into Rejections table');
14048: END IF;
14049: END IF;
14050: ELSE
14127: l_debug_info := 'After call to hz_party_contact_v2pub.create_org_contact';
14128: l_debug_info := l_debug_info||' Return status : '||l_org_contact_return_status||' Error : '||l_org_contact_msg_data;
14129: ------------------------------------------------------------------------
14130: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14131: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
14132: END IF;
14133: -- Bug 6886893: Start
14134: IF g_source = 'IMPORT' THEN
14135:
14151: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,x_msg_data);
14152: END IF;
14153:
14154: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14155: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,x_msg_data);
14156: END IF;
14157:
14158: IF (Insert_Rejections(
14159: p_parent_table => 'AP_SUP_SITE_CONTACT_INT',
14164: p_calling_sequence => 'hz_party_v2pub.create_org_contact'
14165: ) <> TRUE) THEN
14166:
14167: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
14168: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
14169: l_api_name,'Error logging into Rejections table');
14170: END IF;
14171: END IF;
14172: ELSE
14219: l_debug_info := 'After call to hz_party_site_v2pub.create_party_site';
14220: l_debug_info := l_debug_info||' Return status : '||l_site_return_status||' Error : '||l_site_msg_data;
14221: ------------------------------------------------------------------------
14222: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14223: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
14224: END IF;
14225:
14226: -- Bug 6886893: Start
14227: IF g_source = 'IMPORT' THEN
14244: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,x_msg_data);
14245: END IF;
14246:
14247: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14248: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,x_msg_data);
14249: END IF;
14250:
14251: IF (Insert_Rejections(
14252: p_parent_table => 'AP_SUP_SITE_CONTACT_INT',
14257: p_calling_sequence => 'hz_party_v2pub.create_party_site'
14258: ) <> TRUE) THEN
14259:
14260: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
14261: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
14262: l_api_name,'Error logging into Rejections table');
14263: END IF;
14264: END IF;
14265: ELSE
14317: l_debug_info := 'After call to hz_contact_point_v2pub.create_phone_contact_point Primary Phone';
14318: l_debug_info := l_debug_info||' Return status : '||l_phone_return_status||' Error : '||l_phone_msg_data;
14319: ------------------------------------------------------------------------
14320: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14321: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
14322: END IF;
14323:
14324: -- Bug 6886893: Start
14325: IF g_source = 'IMPORT' THEN
14342: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,x_msg_data);
14343: END IF;
14344:
14345: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14346: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,x_msg_data);
14347: END IF;
14348:
14349: IF (Insert_Rejections(
14350: p_parent_table => 'AP_SUP_SITE_CONTACT_INT',
14355: p_calling_sequence => 'hz_party_v2pub.create_phone_contact_point'
14356: ) <> TRUE) THEN
14357:
14358: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
14359: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
14360: l_api_name,'Error logging into Rejections table');
14361: END IF;
14362: END IF;
14363: ELSE
14402: l_debug_info := 'After call to hz_contact_point_v2pub.create_phone_contact_point Alt Phone';
14403: l_debug_info := l_debug_info||' Return status : '||l_alt_phone_return_status||' Error : '||l_alt_phone_msg_data;
14404: ------------------------------------------------------------------------
14405: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14406: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
14407: END IF;
14408:
14409: -- Bug 6886893: Start
14410: IF g_source = 'IMPORT' THEN
14427: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,x_msg_data);
14428: END IF;
14429:
14430: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14431: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,x_msg_data);
14432: END IF;
14433:
14434: IF (Insert_Rejections(
14435: p_parent_table => 'AP_SUP_SITE_CONTACT_INT',
14440: p_calling_sequence => 'hz_party_v2pub.create_phone_contact_point'
14441: ) <> TRUE) THEN
14442:
14443: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
14444: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
14445: l_api_name,'Error logging into Rejections table');
14446: END IF;
14447: END IF;
14448: ELSE
14483: l_debug_info := 'After call to hz_contact_point_v2pub.create_phone_contact_point Fax Phone';
14484: l_debug_info := l_debug_info||' Return status : '||l_fax_return_status||' Error : '||l_fax_msg_data;
14485: ------------------------------------------------------------------------
14486: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14487: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
14488: END IF;
14489:
14490: -- Bug 6886893: Start
14491: IF g_source = 'IMPORT' THEN
14508: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,x_msg_data);
14509: END IF;
14510:
14511: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14512: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,x_msg_data);
14513: END IF;
14514:
14515: IF (Insert_Rejections(
14516: p_parent_table => 'AP_SUP_SITE_CONTACT_INT',
14521: p_calling_sequence => 'hz_party_v2pub.create_phone_contact_point'
14522: ) <> TRUE) THEN
14523:
14524: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
14525: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
14526: l_api_name,'Error logging into Rejections table');
14527: END IF;
14528: END IF;
14529: ELSE
14561: l_debug_info := 'After call to hz_contact_point_v2pub.create_email_contact_point';
14562: l_debug_info := l_debug_info||' Return status : '||l_email_return_status||' Error : '||l_email_msg_data;
14563: ------------------------------------------------------------------------
14564: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14565: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
14566: END IF;
14567:
14568: -- Bug 6886893: Start
14569: IF g_source = 'IMPORT' THEN
14586: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,x_msg_data);
14587: END IF;
14588:
14589: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14590: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,x_msg_data);
14591: END IF;
14592:
14593: IF (Insert_Rejections(
14594: p_parent_table => 'AP_SUP_SITE_CONTACT_INT',
14599: p_calling_sequence => 'hz_party_v2pub.create_email_contact_point'
14600: ) <> TRUE) THEN
14601:
14602: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
14603: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
14604: l_api_name,'Error logging into Rejections table');
14605: END IF;
14606: END IF;
14607: ELSE
14641: l_debug_info := 'After call to hz_contact_point_v2pub.create_web_contact_point';
14642: l_debug_info := l_debug_info||' Return status : '||l_url_return_status||' Error : '||l_url_msg_data;
14643: ------------------------------------------------------------------------
14644: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14645: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
14646: END IF;
14647:
14648: -- Bug 6886893: Start
14649: IF g_source = 'IMPORT' THEN
14666: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,x_msg_data);
14667: END IF;
14668:
14669: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14670: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,x_msg_data);
14671: END IF;
14672:
14673: IF (Insert_Rejections(
14674: p_parent_table => 'AP_SUP_SITE_CONTACT_INT',
14679: p_calling_sequence => 'hz_party_v2pub.create_web_contact_point'
14680: ) <> TRUE) THEN
14681:
14682: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
14683: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
14684: l_api_name,'Error logging into Rejections table');
14685: END IF;
14686: END IF;
14687: ELSE
14832:
14833: FND_MSG_PUB.DELETE_MSG(p_msg_index => 1);
14834: END IF;
14835: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14836: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,x_msg_data);
14837: END IF;
14838: END IF; /* Bug 12590128 end */
14839: -- Standard call to get message count and if count is 1,
14840: -- get message info.
15088: g_login_id,
15089: 'Validate_Vendor_Contact') <> TRUE) THEN
15090:
15091: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15092: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
15093: l_api_name,'Parameters: '
15094: ||' Vendor_Contact_Interface_Id: '||
15095: p_vendor_contact_rec.vendor_contact_interface_id
15096: ||' Party_site_name: '||p_vendor_contact_rec.party_site_name
15174: ------------------------------------------------------------------------
15175: l_debug_info := 'Call to Validate party_site_id';
15176: ------------------------------------------------------------------------
15177: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15178: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
15179: l_api_name,l_debug_info);
15180: END IF;
15181: -- Check for validity of party_site_id
15182: --
15202: g_login_id,
15203: 'Validate_Vendor_Contact') <> TRUE) THEN
15204: --
15205: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15206: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
15207: l_api_name,'Parameters: '
15208: ||' Vendor_Contact_Interface_Id: '||
15209: p_vendor_contact_rec.vendor_contact_interface_id
15210: --||' Vendor_Site_Id: '||p_vendor_contact_rec.vendor_site_id
15277: g_login_id,
15278: 'Validate_Vendor_Contact') <> TRUE) THEN
15279: --
15280: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15281: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
15282: l_api_name,'Parameters: '
15283: ||' Vendor_Contact_Interface_Id: '||
15284: p_vendor_contact_rec.vendor_contact_interface_id
15285: ||',Vendor_Site_Id: '||p_vendor_contact_rec.vendor_site_id
15312: 'Validate_Vendor_Contact') <> TRUE) THEN
15313: --
15314:
15315: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15316: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
15317: l_api_name,'Parameters: '
15318: ||' Vendor_Contact_Interface_Id: '||
15319: p_vendor_contact_rec.vendor_contact_interface_id
15320: --||' Vendor_Site_Id: '||p_vendor_contact_rec.vendor_site_id
15331: -----------------------------------------------------------------------
15332: l_debug_info := 'Call to Validate party_id';
15333: --------------------------------------------------------------
15334: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15335: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
15336: l_api_name,l_debug_info);
15337: END IF;
15338:
15339: -- Check for validity of party_id
15358: g_login_id,
15359: 'Validate_Vendor_Contact') <> TRUE) THEN
15360: --
15361: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15362: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
15363: l_api_name,'Parameters: '
15364: ||' Vendor_Contact_Interface_Id: '||
15365: p_vendor_contact_rec.vendor_contact_interface_id
15366: --||' Vendor_Site_Id: '||p_vendor_contact_rec.vendor_site_id
15478: -- put true message to conc log file
15479: l_debug_info := '***** ERROR : Contact information you are trying to import is already associated ';
15480: l_debug_info := l_debug_info || 'with the Supplier .... Vendor_Id: ' ||p_vendor_contact_rec.vendor_id;
15481: AP_IMPORT_UTILITIES_PKG.Print( 'Y', l_debug_info) ;
15482: -- put true message to fnd log file
15483: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15484: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
15485: END IF ;
15486: -- 2nd part of message ...
15480: l_debug_info := l_debug_info || 'with the Supplier .... Vendor_Id: ' ||p_vendor_contact_rec.vendor_id;
15481: AP_IMPORT_UTILITIES_PKG.Print( 'Y', l_debug_info) ;
15482: -- put true message to fnd log file
15483: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15484: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
15485: END IF ;
15486: -- 2nd part of message ...
15487: l_debug_info := 'Contact last_name ' || p_vendor_contact_rec.person_last_name;
15488: l_debug_info := l_debug_info || ' first_name ' || p_vendor_contact_rec.person_first_name;
15488: l_debug_info := l_debug_info || ' first_name ' || p_vendor_contact_rec.person_first_name;
15489: l_debug_info := l_debug_info || ' middle_name ' || p_vendor_contact_rec.person_middle_name;
15490: AP_IMPORT_UTILITIES_PKG.Print( 'Y', l_debug_info) ;
15491: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15492: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
15493: END IF ;
15494: END IF;
15495: ELSE
15496:
15499: -- put true message to conc log file
15500: l_debug_info := '***** ERROR : Contact information you are trying to import is already associated ';
15501: l_debug_info := l_debug_info || 'with the Supplier .... Vendor_Id: ' ||p_vendor_contact_rec.vendor_id;
15502: AP_IMPORT_UTILITIES_PKG.Print( 'Y', l_debug_info) ;
15503: -- put true message to fnd log file
15504: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15505: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
15506: END IF ;
15507: -- 2nd part of message ...
15501: l_debug_info := l_debug_info || 'with the Supplier .... Vendor_Id: ' ||p_vendor_contact_rec.vendor_id;
15502: AP_IMPORT_UTILITIES_PKG.Print( 'Y', l_debug_info) ;
15503: -- put true message to fnd log file
15504: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15505: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
15506: END IF ;
15507: -- 2nd part of message ...
15508: l_debug_info := 'Contact last_name ' || p_vendor_contact_rec.person_last_name;
15509: l_debug_info := l_debug_info || ' first_name ' || p_vendor_contact_rec.person_first_name;
15509: l_debug_info := l_debug_info || ' first_name ' || p_vendor_contact_rec.person_first_name;
15510: l_debug_info := l_debug_info || ' middle_name ' || p_vendor_contact_rec.person_middle_name;
15511: AP_IMPORT_UTILITIES_PKG.Print( 'Y', l_debug_info) ;
15512: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15513: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
15514: END IF ;
15515: END IF;
15516: END IF ;
15517: END IF ;
15522: -----------------------------------------------------------------------
15523: l_debug_info := 'Call to Validate rel_party_id';
15524: --------------------------------------------------------------
15525: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15526: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
15527: l_api_name,l_debug_info);
15528: END IF;
15529:
15530: -- Check for validity of rel_party_id
15546: g_login_id,
15547: 'Validate_Vendor_Contact') <> TRUE) THEN
15548: --
15549: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15550: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
15551: l_api_name,'Parameters: '
15552: ||' Vendor_Contact_Interface_Id: '||
15553: p_vendor_contact_rec.vendor_contact_interface_id
15554: ||' Party_Site_Id: '||p_vendor_contact_rec.org_party_site_id
15573: --------------------------------------------------------------
15574: l_debug_info := 'Call to Validate relationship_id';
15575: --------------------------------------------------------------
15576: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15577: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
15578: l_api_name,l_debug_info);
15579: END IF;
15580:
15581: -- Check for validity of relationship_id
15597: g_login_id,
15598: 'Validate_Vendor_Contact') <> TRUE) THEN
15599: --
15600: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15601: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
15602: l_api_name,'Parameters: '
15603: ||' Vendor_Contact_Interface_Id: '||
15604: p_vendor_contact_rec.vendor_contact_interface_id
15605: ||' Vendor_Interface_Id: '||p_vendor_contact_rec.vendor_interface_id
15624: --------------------------------------------------------------
15625: l_debug_info := 'Call to Validate org_contact_id';
15626: --------------------------------------------------------------
15627: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15628: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
15629: l_api_name,l_debug_info);
15630: END IF;
15631:
15632: -- Check for validity of org_contact_id
15649: g_login_id,
15650: 'Validate_Vendor_Contact') <> TRUE) THEN
15651: --
15652: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15653: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
15654: l_api_name,'Parameters: '
15655: ||' Vendor_Contact_Interface_Id: '||
15656: p_vendor_contact_rec.vendor_contact_interface_id
15657: ||' Vendor_Interface_Id: '||p_vendor_contact_rec.vendor_id
15894: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15895: FND_MSG_PUB.Count_And_Get(
15896: p_count => l_msg_count,
15897: p_data => l_msg_data);
15898: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
15899: l_api_name,'Parameters: '
15900: ||' Vendor_Interface_Id: '||vendor_int_rec.vendor_interface_id
15901: ||' Vendor NUM_1099 : '||vendor_int_rec.num_1099);
15902: END IF;
15951: FND_MSG_PUB.Count_And_Get(
15952: p_count => l_msg_count,
15953: p_data => l_msg_data);
15954:
15955: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
15956: l_api_name,'Parameters: '
15957: ||' Vendor_Interface_Id: '||vendor_int_rec.vendor_interface_id
15958: ||' Vendor num_1099 : '||vendor_int_rec.num_1099);
15959: END IF;
16087: FND_MSG_PUB.Count_And_Get(
16088: p_count => l_msg_count,
16089: p_data => l_msg_data);
16090:
16091: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
16092: l_api_name,'Parameters: '
16093: ||' Vendor_Interface_Id: '||vendor_int_rec.vendor_interface_id
16094: ||' Vendor vat_registration_num : '||vendor_int_rec.vat_registration_num);
16095: END IF;
16336: l_msg_data := FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
16337:
16338: IF (FND_GLOBAL.conc_request_id = -1) THEN
16339: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16340: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
16341: l_api_name,'Parameters: '
16342: ||' Vendor_Interface_Id: '||vendor_rec.vendor_interface_id
16343: ||' Acct Validation Msg: '||l_msg_data);
16344: END IF;
16351: ELSIF (l_msg_data is not null) THEN
16352:
16353: IF (FND_GLOBAL.conc_request_id = -1) THEN
16354: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16355: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
16356: l_api_name,'Parameters: '
16357: ||' Vendor_Interface_Id: '||vendor_rec.vendor_interface_id
16358: ||' Acct Validation Msg: '||l_msg_data);
16359: END IF;
16376: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16377: FND_MSG_PUB.Count_And_Get(
16378: p_count => l_msg_count,
16379: p_data => l_msg_data);
16380: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
16381: l_api_name,'Parameters: '
16382: ||' Vendor_Interface_Id: '||vendor_rec.vendor_interface_id
16383: ||' Acct Validation Msg: '||l_msg_data);
16384: END IF;
16399: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16400: FND_MSG_PUB.Count_And_Get(
16401: p_count => l_msg_count,
16402: p_data => l_msg_data);
16403: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
16404: l_api_name,'Parameters: '
16405: ||' Vendor_Interface_Id: '||vendor_rec.vendor_interface_id
16406: ||' Payee Validation Msg: '||l_msg_data);
16407: END IF;
16426: l_msg_data := FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
16427:
16428: IF (FND_GLOBAL.conc_request_id = -1) THEN
16429: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16430: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
16431: l_api_name,'Parameters: '
16432: ||' Vendor_Interface_Id: '||vendor_rec.vendor_interface_id
16433: ||' Acct Validation Msg: '||l_msg_data);
16434: END IF;
16441: ELSIF (l_msg_data is not null) THEN
16442:
16443: IF (FND_GLOBAL.conc_request_id = -1) THEN
16444: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16445: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
16446: l_api_name,'Parameters: '
16447: ||' Vendor_Interface_Id: '||vendor_rec.vendor_interface_id
16448: ||' Acct Validation Msg: '||l_msg_data);
16449: END IF;
16466: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16467: FND_MSG_PUB.Count_And_Get(
16468: p_count => l_msg_count,
16469: p_data => l_msg_data);
16470: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
16471: l_api_name,'Parameters: '
16472: ||' Vendor_Interface_Id: '||vendor_rec.vendor_interface_id
16473: ||' Payee Validation Msg: '||l_msg_data);
16474: END IF;
16518: SET status = 'REJECTED'
16519: WHERE vendor_interface_id = vendor_rec.vendor_interface_id;
16520:
16521: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16522: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
16523: ' Rejected Vendor_Interface_Id: '
16524: ||vendor_rec.vendor_interface_id
16525: ||', No. of Messages from Create_Vendor API: '|| l_msg_count
16526: ||', Message From Create_Vendor API: '||l_msg_data);
17151: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17152: FND_MSG_PUB.Count_And_Get(
17153: p_count => l_msg_count,
17154: p_data => l_msg_data);
17155: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17156: l_api_name,'Parameters: '
17157: ||' Vendor_Site_Interface_Id: '||site_rec.vendor_site_interface_id
17158: ||' Acct Validation Msg: '||l_msg_data);
17159: END IF;
17186: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17187: FND_MSG_PUB.Count_And_Get(
17188: p_count => l_msg_count,
17189: p_data => l_msg_data);
17190: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17191: l_api_name,'Parameters: '
17192: ||' Vendor_Site_Interface_Id: '||site_rec.vendor_site_interface_id
17193: ||' Acct Validation Msg: '||l_msg_data);
17194: END IF;
17234: l_msg_data := FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
17235:
17236: IF (FND_GLOBAL.conc_request_id = -1) THEN
17237: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17238: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17239: l_api_name,'Parameters: '
17240: ||' Vendor_Site_Interface_Id: '||site_rec.vendor_site_interface_id
17241: ||' Acct Validation Msg: '||l_msg_data);
17242: END IF;
17249: ELSIF (l_msg_data is not null) THEN
17250:
17251: IF (FND_GLOBAL.conc_request_id = -1) THEN
17252: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17253: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17254: l_api_name,'Parameters: '
17255: ||' Vendor_Site_Interface_Id: '||site_rec.vendor_site_interface_id
17256: ||' Acct Validation Msg: '||l_msg_data);
17257: END IF;
17274: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17275: FND_MSG_PUB.Count_And_Get(
17276: p_count => l_msg_count,
17277: p_data => l_msg_data);
17278: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17279: l_api_name,'Parameters: '
17280: ||' Vendor_Site_Interface_Id: '||site_rec.vendor_site_interface_id
17281: ||' Acct Validation Msg: '||l_msg_data);
17282: END IF;
17300: l_msg_data := FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
17301:
17302: IF (FND_GLOBAL.conc_request_id = -1) THEN
17303: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17304: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17305: l_api_name,'Parameters: '
17306: ||' Vendor_Site_Interface_Id: '||site_rec.vendor_site_interface_id
17307: ||' Acct Validation Msg: '||l_msg_data);
17308: END IF;
17315: ELSIF (l_msg_data is not null) THEN
17316:
17317: IF (FND_GLOBAL.conc_request_id = -1) THEN
17318: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17319: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17320: l_api_name,'Parameters: '
17321: ||' Vendor_Site_Interface_Id: '||site_rec.vendor_site_interface_id
17322: ||' Acct Validation Msg: '||l_msg_data);
17323: END IF;
17339: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17340: FND_MSG_PUB.Count_And_Get(
17341: p_count => l_msg_count,
17342: p_data => l_msg_data);
17343: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17344: l_api_name,'Parameters: '
17345: ||' Vendor_Site_Interface_Id: '||site_rec.vendor_site_interface_id
17346: ||' Payee Validation Msg: '||l_msg_data);
17347: END IF;
17367: l_msg_data := FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
17368:
17369: IF (FND_GLOBAL.conc_request_id = -1) THEN
17370: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17371: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17372: l_api_name,'Parameters: '
17373: ||' Vendor_Site_Interface_Id: '||site_rec.vendor_site_interface_id
17374: ||' Acct Validation Msg: '||l_msg_data);
17375: END IF;
17382: ELSIF (l_msg_data is not null) THEN
17383:
17384: IF (FND_GLOBAL.conc_request_id = -1) THEN
17385: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17386: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17387: l_api_name,'Parameters: '
17388: ||' Vendor_Site_Interface_Id: '||site_rec.vendor_site_interface_id
17389: ||' Acct Validation Msg: '||l_msg_data);
17390: END IF;
17406: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17407: FND_MSG_PUB.Count_And_Get(
17408: p_count => l_msg_count,
17409: p_data => l_msg_data);
17410: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17411: l_api_name,'Parameters: '
17412: ||' Vendor_Site_Interface_Id: '||site_rec.vendor_site_interface_id
17413: ||' Payee Validation Msg: '||l_msg_data);
17414: END IF;
17461: AND mo_global.check_access(org_id)= 'Y' --bug13989575
17462: ;
17463:
17464: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17465: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
17466: ' Rejected Vendor_Site_Interface_Id: '
17467: ||site_rec.vendor_site_interface_id
17468: ||', No. of Messages from Create_Vendor_Site API: '|| l_msg_count
17469: ||', Message From Create_Vendor_Site API: '||l_msg_data);
17748: /*WHERE vendor_contact_interface_id =
17749: vendor_contact_rec.vendor_contact_interface_id;*/--Bug6413297
17750:
17751: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17752: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
17753: ' Rejected Vendor_Contact_Interface_Id: '
17754: ||vendor_contact_rec.vendor_contact_interface_id
17755: ||', No. of Messages from Create_Vendor_Contact API: '|| l_msg_count
17756: ||', Message From Create_Vendor_Contact API: '||l_msg_data);
17867: -- API body
17868:
17869:
17870: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17871: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
17872: 'Updating dffs for contact_party_id: ' || p_contact_party_id
17873: || ', org_party_site_id: '|| p_org_party_site_id);
17874: END IF;
17875:
17898:
17899: l_count := SQL%ROWCOUNT;
17900:
17901: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17902: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
17903: ' Updated '
17904: ||l_count
17905: ||' rows.');
17906: END IF;
17916: Raise_Supplier_Event( i_vendor_contact_id => l_event_vendor_contact_id );
17917: EXCEPTION
17918: WHEN NO_DATA_FOUND OR TOO_MANY_ROWS THEN
17919: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17920: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME || l_api_name, SQLERRM);
17921: END IF;
17922: APP_EXCEPTION.RAISE_EXCEPTION;
17923: END; -- Bug 7307669 : End
17924:
17981: || to_char(i_vendor_id) || ', i_vendor_site_id = '
17982: || to_char(i_vendor_site_id) || ', i_vendor_contact_id = '
17983: || to_char(i_vendor_contact_id);
17984: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17985: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_api_name,
17986: l_debug_info);
17987: END IF;
17988:
17989: -- If vendor_id was not passed then we should derive it based on
18028: || 'event_name = ' || l_event_name
18029: || ' event_key = ' || l_event_key ;
18030:
18031: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18032: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18033: l_debug_info);
18034: END IF;
18035:
18036: EXCEPTION
18035:
18036: EXCEPTION
18037: WHEN NO_DATA_FOUND OR TOO_MANY_ROWS THEN
18038: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
18039: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME || l_api_name,
18040: SQLERRM);
18041: END IF;
18042: APP_EXCEPTION.RAISE_EXCEPTION;
18043: WHEN OTHERS THEN
18100: ------------------------------------------------------------------------
18101: l_debug_info := 'Call to AP_INVOICES_UTILITY_PKG.CHECK_GDF_VALID';
18102: ------------------------------------------------------------------------
18103: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18104: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME,l_debug_info);
18105: END IF;
18106:
18107: AP_INVOICES_UTILITY_PKG.CHECK_GDF_VALID
18108: (p_vendor_id, --P_id
18116: l_debug_info := 'l_hold_reject_exists_flag: '||l_hold_reject_exists_flag||
18117: 'l_return_code: '||l_return_code;
18118: --------------------------------------------------------------------------
18119: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18120: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME,l_debug_info);
18121: END IF;
18122: IF(l_hold_reject_exists_flag = 'Y' AND
18123: l_return_code IS NOT NULL) THEN
18124: x_valid := FALSE;