[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:
1580: g_login_id,
1581: 'Check_Org_Id_Name') <> TRUE) THEN
1582: --
1583: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1584: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
1585: ||' P_Org_Id: '|| p_org_id
1586: ||', P_Org_Name: '||p_org_name
1587: ||', P_Int_Table: '||p_int_table
1588: ||', P_Int_Key: '||p_int_key);
1618: g_login_id,
1619: 'Check_Org_Id_Name') <> TRUE) THEN
1620: --
1621: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1622: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
1623: ||' P_Org_Id: '|| p_org_id
1624: ||', P_Org_Name: '||p_org_name
1625: ||', P_Int_Table: '||p_int_table
1626: ||', P_Int_Key: '||p_int_key);
1656: g_login_id,
1657: 'Check_Org_Id_Name') <> TRUE) THEN
1658: --
1659: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1660: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
1661: ||' P_Org_Id: '|| p_org_id
1662: ||', P_Org_Name: '||p_org_name
1663: ||', P_Int_Table: '||p_int_table
1664: ||', P_Int_Key: '||p_int_key);
2546: g_login_id,
2547: 'Check_Vendor_Site_Id') <> TRUE) THEN
2548: --
2549: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2550: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
2551: ||' P_Vendor_Site_Id: '|| p_vendor_site_id
2552: ||', P_Int_Table: '||p_int_table
2553: ||', P_Int_Key: '||p_int_key);
2554: END IF;
2562: -- Trap unknown errors
2563: WHEN OTHERS THEN
2564: x_valid := FALSE;
2565: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2566: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
2567: ||' P_Vendor_Site_Id: '|| p_vendor_site_id
2568: ||', P_Int_Table: '||p_int_table
2569: ||', P_Int_Key: '||p_int_key
2570: ||', ERROR: '||SUBSTR(SQLERRM,1,200));
2626: g_login_id,
2627: 'Check_Org_Id_Name_Site_Code') <> TRUE) THEN
2628: --
2629: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2630: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
2631: ||' P_Org_Id: '||p_org_id
2632: ||', P_Org_Name: '||p_org_name
2633: ||', P_Vendor_Site_Code: '||p_vendor_site_code
2634: ||', P_Vendor_Site_Id: '|| p_vendor_site_id
2669: g_login_id,
2670: 'Check_Org_Id_Name_Site_Code') <> TRUE) THEN
2671: --
2672: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2673: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
2674: ||' P_Org_Id: '||p_org_id
2675: ||', P_Org_Name: '||p_org_name
2676: ||', P_Vendor_Site_Code: '||p_vendor_site_code
2677: ||', P_Vendor_Site_Id: '|| p_vendor_site_id
2693: -- Trap unknown errors
2694: WHEN OTHERS THEN
2695: x_valid := FALSE;
2696: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2697: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
2698: ||' P_Org_Id: '||p_org_id
2699: ||', P_Org_Name: '||p_org_name
2700: ||', P_Vendor_Site_Code: '||p_vendor_site_code
2701: ||', P_Vendor_Site_Id: '|| p_vendor_site_id
2750: AND hzps.party_site_id = aps.party_site_id
2751: AND aps.vendor_id = p_vendor_id;
2752: end if;
2753: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2754: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME,'Check_org_id_party_site_name : '
2755: ||' P_Party_Site_Id: '|| p_party_site_id);
2756: END IF;
2757: EXCEPTION
2758: -- Trap validation error
2787: -- Trap unknown errors
2788: WHEN OTHERS THEN
2789: x_valid := FALSE;
2790: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2791: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
2792: ||' P_Org_Id: '||p_org_id
2793: ||', P_Org_Name: '||p_org_name
2794: ||', p_party_site_name: '||p_party_site_name
2795: ||', p_party_site_id: '|| p_party_site_id
3285: l_debug_info := 'After call to hz_party_v2pub.create_organization';
3286: l_debug_info := l_debug_info||' Return status : '||l_org_return_status||' Error : '||l_org_msg_data;
3287: ------------------------------------------------------------------------
3288: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3289: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3290: END IF;
3291: END IF;
3292:
3293: l_vendor_rec.party_id := l_org_party_id;
3310: l_debug_info := 'After call to HZ_PARTY_USG_ASSIGNMENT_PVT.assign_party_usage';
3311: l_debug_info := l_debug_info||' Return status : '||l_org_return_status||' Error : '||l_org_msg_data;
3312: ------------------------------------------------------------------------
3313: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3314: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3315: END IF;
3316: END IF;
3317:
3318: IF l_payee_valid = 'N' THEN --payee record is valid
3368: l_debug_info := 'After call to IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee';
3369: l_debug_info := l_debug_info||' Return status : '||l_pay_return_status||' Error : '||l_pay_msg_data;
3370: ------------------------------------------------------------------------
3371: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3372: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3373: END IF;
3374: END IF;
3375:
3376: END IF;
3390: l_debug_info := 'After call to zx_tcm_bes_registration_pvt.synch_ptp_code_assigment';
3391: l_debug_info := l_debug_info||' Return status : '||l_zx_return_status||' Error : '||l_zx_msg_data;
3392: ------------------------------------------------------------------------
3393: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3394: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3395: END IF;
3396: END IF;
3397:
3398: END IF;
3419: ------------------------------------------------------------------------
3420: l_debug_info := 'After call to ap_vendors_pkg.insert_row';
3421: ------------------------------------------------------------------------
3422: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3423: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3424: END IF;
3425:
3426: --
3427: -- Added Call to Sync the Party Information into ap_supplier
3437: l_debug_info := 'After call to AP_TCA_SUPPLIER_SYNC_PKG.SYNC_Supplier';
3438: l_debug_info := l_debug_info||' Return status : '||l_sync_return_status||' Error : '||l_sync_msg_data;
3439: ------------------------------------------------------------------------
3440: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3441: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3442: END IF;
3443: END IF;
3444:
3445: IF l_sync_return_status = FND_API.G_RET_STS_SUCCESS THEN
4254: ------------------------------------------------------------------------
4255: l_debug_info := 'Call to Validate inspection_required_flag';
4256: ------------------------------------------------------------------------
4257: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4258: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4259: END IF;
4260: --
4261: -- Validate inspection_required_flag
4262: --
4276: g_login_id,
4277: 'Validate_Vendor') <> TRUE) THEN
4278: --
4279: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4280: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4281: l_api_name,'Parameters: '
4282: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4283: ||' ,Inspection_Required_Flag: '||p_vendor_rec.inspection_required_flag);
4284: END IF;
4295: ------------------------------------------------------------------------
4296: l_debug_info := 'Call to Validate receipt_required_flag';
4297: ------------------------------------------------------------------------
4298: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4299: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME|| l_api_name,l_debug_info);
4300: END IF;
4301: --
4302: -- Validate receipt_required_flag
4303: --
4317: g_login_id,
4318: 'Validate_Vendor') <> TRUE) THEN
4319: --
4320: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4321: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4322: l_api_name,'Parameters: '
4323: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4324: ||' ,Receipt_Required_Flag: '||p_vendor_rec.receipt_required_flag);
4325: END IF;
4337: ------------------------------------------------------------------------
4338: l_debug_info := 'Call to Validate Payment_Priority';
4339: ------------------------------------------------------------------------
4340: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4341: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4342: l_api_name,l_debug_info);
4343: END IF;
4344: --
4345: -- Validate Payment_Priority
4361: g_login_id,
4362: 'Validate_Vendor') <> TRUE) THEN
4363: --
4364: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4365: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4366: l_api_name,'Parameters: '
4367: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4368: ||' ,Payment_Priority: '||p_vendor_rec.payment_priority);
4369: END IF;
4380: ------------------------------------------------------------------------
4381: l_debug_info := 'Call to Validate the 1099_type value';
4382: ------------------------------------------------------------------------
4383: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4384: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4385: l_api_name,l_debug_info);
4386: END IF;
4387: --
4388: -- Validate the 1099_type value
4404: g_login_id,
4405: 'Validate_Vendor') <> TRUE) THEN
4406: --
4407: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4408: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4409: l_api_name,'Parameters: '
4410: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4411: ||' ,Type_1099: '||p_vendor_rec.type_1099
4412: ||' ,Federal_Reportable_Flag: '||p_vendor_rec.federal_reportable_flag);
4436: ------------------------------------------------------------------------
4437: l_debug_info := 'Call to Validate the jgzz_fiscal_code value';
4438: ------------------------------------------------------------------------
4439: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4440: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4441: l_api_name,l_debug_info);
4442: END IF;
4443: --
4444: -- Validate the jgzz_fiscal_code value
4472: g_login_id,
4473: 'Validate_Vendor') <> TRUE) THEN
4474: --
4475: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4476: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4477: l_api_name,'Default Country is Null');
4478: END IF;
4479: END IF;
4480:
4510: g_login_id,
4511: 'Validate_Vendor') <> TRUE) THEN
4512: --
4513: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4514: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4515: l_api_name,'Parameters: '
4516: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4517: ||' ,NUM_1099: '||p_vendor_rec.jgzz_fiscal_code
4518: ||' ,Federal_Reportable_Flag: '||p_vendor_rec.federal_reportable_flag);
4531: ------------------------------------------------------------------------
4532: l_debug_info := 'Call to Validate the Employee_Id';
4533: ------------------------------------------------------------------------
4534: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4535: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4536: l_api_name,l_debug_info);
4537: END IF;
4538: --
4539: -- Employee_Id validation
4550: g_user_id,
4551: g_login_id,
4552: 'Validate_Vendor') <> TRUE) THEN
4553: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4554: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4555: l_api_name,'Parameters: '
4556: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4557: ||' ,Vendor_Type_Lookup_Code: '||p_vendor_rec.vendor_type_lookup_code
4558: ||' ,Employee_Id: NULL');
4579: g_login_id,
4580: 'Validate_Vendor') <> TRUE) THEN
4581: --
4582: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4583: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4584: l_api_name,'Parameters: '
4585: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4586: ||' ,Employee_Id: '||p_vendor_rec.employee_id);
4587: END IF;
4615: g_login_id,
4616: 'Validate_Vendor') <> TRUE) THEN
4617: --
4618: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4619: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4620: l_api_name,'Parameters: '
4621: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4622: ||' ,Vendor_Type_Lookup_Code: '||p_vendor_rec.vendor_type_lookup_code
4623: ||' ,Not able to get Party Id From Employee Id.');
4635: ------------------------------------------------------------------------
4636: l_debug_info := 'Call to Validate inspection_required_flag and receipt_required_flag';
4637: ------------------------------------------------------------------------
4638: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4639: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4640: l_api_name,l_debug_info);
4641: END IF;
4642: --
4643: -- Validate inspection_required_flag and receipt_required_flag
4662: g_login_id,
4663: 'Validate_Vendor') <> TRUE) THEN
4664: --
4665: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4666: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4667: l_api_name,'Parameters: '
4668: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4669: ||' ,Inspection_Required_Flag: '||p_vendor_rec.inspection_required_flag
4670: ||' ,Receipt_Required_Flag: '||p_vendor_rec.receipt_required_flag);
4682: ------------------------------------------------------------------------
4683: l_debug_info := 'Call to Validate Name Control';
4684: ------------------------------------------------------------------------
4685: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4686: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4687: l_api_name,l_debug_info);
4688: END IF;
4689: --
4690: -- Validate the Name Control value
4704: g_login_id,
4705: 'Validate_Vendor') <> TRUE) THEN
4706: --
4707: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4708: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4709: l_api_name,'Parameters: '
4710: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4711: ||' ,Name_Control: '||p_vendor_rec.name_control);
4712: END IF;
4724: ------------------------------------------------------------------------
4725: l_debug_info := 'Call to Validate ship_via_lookup_code';
4726: ------------------------------------------------------------------------
4727: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4728: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4729: l_api_name,l_debug_info);
4730: END IF;
4731: --
4732: -- Validate ship_via_lookup_code
4752: g_login_id,
4753: 'Validate_Vendor') <> TRUE) THEN
4754: --
4755: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4756: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4757: l_api_name,'Parameters: '
4758: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4759: ||' ,Ship_Via_Lookup_Code: '||p_vendor_rec.ship_via_lookup_code
4760: ||' ,Inventory_Organization_Id: '||p_vendor_rec.inventory_organization_id);
4773: ------------------------------------------------------------------------
4774: l_debug_info := 'Call to Validate set_of_books_id';
4775: ------------------------------------------------------------------------
4776: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4777: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4778: l_api_name,l_debug_info);
4779: END IF;
4780: --
4781: -- Set_of_books_Id validation
4796: g_login_id,
4797: 'Validate_Vendor') <> TRUE) THEN
4798: --
4799: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4800: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4801: l_api_name,'Parameters: '
4802: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4803: ||' ,Set_Of_Books_Id: '||p_vendor_rec.set_of_books_id);
4804: END IF;
4815: ------------------------------------------------------------------------
4816: l_debug_info := 'Call to Check for duplicate Employee assignment';
4817: ------------------------------------------------------------------------
4818: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4819: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4820: l_api_name,l_debug_info);
4821: END IF;
4822: --
4823: -- Check for duplicate employee assignment
4836: ------------------------------------------------------------------------
4837: l_debug_info := 'Call to Check for duplicate vendor number';
4838: ------------------------------------------------------------------------
4839: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4840: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4841: l_api_name,l_debug_info);
4842: END IF;
4843: --
4844: -- Check for potential duplicate vendor numbers in Interface table
4860: g_login_id,
4861: 'Validate_Vendor') <> TRUE) THEN
4862: --
4863: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4864: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4865: l_api_name,'Parameters: '
4866: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4867: ||' ,Segment1: '||p_vendor_rec.segment1);
4868: END IF;
4880: ------------------------------------------------------------------------
4881: l_debug_info := 'Call to Check for duplicate vendor name in interface table';
4882: ------------------------------------------------------------------------
4883: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4884: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4885: l_api_name,l_debug_info);
4886: END IF;
4887: --
4888: -- Check for duplicate vendor names in Interface table too
4900: ------------------------------------------------------------------------
4901: l_debug_info := 'Call to Check Duplicate Vendor Number in PO_VENDORS';
4902: ------------------------------------------------------------------------
4903: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4904: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4905: l_api_name,l_debug_info);
4906: END IF;
4907: --
4908: -- Check for duplicate vendor number
4924: g_login_id,
4925: 'Validate_Vendor') <> TRUE) THEN
4926:
4927: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4928: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4929: l_api_name,'Parameters: '
4930: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4931: ||' ,Segment1: '||p_vendor_rec.segment1);
4932: END IF;
4938: ------------------------------------------------------------------------
4939: l_debug_info := 'Call to Validate receiving_routing_id';
4940: ------------------------------------------------------------------------
4941: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4942: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4943: l_api_name,l_debug_info);
4944: END IF;
4945: --
4946: -- Validate receiving_routing_id
4961: g_login_id,
4962: 'Validate_Vendor') <> TRUE) THEN
4963: --
4964: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4965: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4966: l_api_name,'Parameters: '
4967: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
4968: ||' ,Receiving_Routing_Id: '||p_vendor_rec.receiving_routing_id);
4969: END IF;
4980: ------------------------------------------------------------------------
4981: l_debug_info := 'Call to Validate Employee type Vendor`';
4982: ------------------------------------------------------------------------
4983: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4984: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4985: l_api_name,l_debug_info);
4986: END IF;
4987: --
4988: -- Employee type Vendor validations
5008: g_login_id,
5009: 'Validate_Vendor') <> TRUE) THEN
5010: --
5011: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5012: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5013: l_api_name,'Parameters: '
5014: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5015: ||' ,Vendor_Type_Lookup_Code: '||p_vendor_rec.vendor_type_lookup_code
5016: ||' ,Employee_Id: '||p_vendor_rec.employee_id);
5030: ------------------------------------------------------------------------
5031: l_debug_info := 'Call to Validate Invoice Currency Code';
5032: ------------------------------------------------------------------------
5033: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5034: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5035: l_api_name,l_debug_info);
5036: END IF;
5037:
5038: IF (p_vendor_rec.invoice_currency_code is not null
5050: g_login_id,
5051: 'Validate_Vendor') <> TRUE) THEN
5052: --
5053: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5054: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5055: l_api_name,'Parameters: '
5056: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5057: ||' ,Invoice_Currency_Code: '||p_vendor_rec.invoice_currency_code);
5058: END IF;
5091: g_login_id,
5092: 'Validate_Vendor') <> TRUE) THEN
5093: --
5094: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5095: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5096: l_api_name,'Parameters: '
5097: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5098: ||' ,Invoice_Currency_Code: '||p_vendor_rec.invoice_currency_code
5099: ||' ,Payment_Currency_Code: '||p_vendor_rec.payment_currency_code);
5113: ------------------------------------------------------------------------
5114: l_debug_info := 'Call to Validate Income Tax Type';
5115: ------------------------------------------------------------------------
5116: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5117: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5118: l_api_name,l_debug_info);
5119: END IF;
5120: --
5121: -- Validate the Income Tax Type
5135: g_login_id,
5136: 'Validate_Vendor') <> TRUE) THEN
5137: --
5138: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5139: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5140: l_api_name,'Parameters: '
5141: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5142: ||' ,Type_1099: '||p_vendor_rec.type_1099);
5143: END IF;
5161: ------------------------------------------------------------------------
5162: l_debug_info := 'Call to Validate vendor name';
5163: ------------------------------------------------------------------------
5164: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5165: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5166: l_api_name,l_debug_info);
5167: END IF;
5168: --
5169: -- Check for duplicate vendor names
5182: ------------------------------------------------------------------------
5183: l_debug_info := 'Call for prohibiting update of CCR vendor';
5184: ------------------------------------------------------------------------
5185: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5186: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME|| l_api_name,l_debug_info);
5187: END IF;
5188:
5189: --
5190: --calling the API to check if we are trying to update
5207: g_login_id,
5208: 'Validate_Vendor') <> TRUE) THEN
5209:
5210: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5211: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5212: l_api_name,'Parameters: '
5213: ||'Cannot Update CCR vendor, Vendor_id'||p_vendor_rec.vendor_id);
5214: END IF;
5215: END IF;
5229: l_debug_info := 'Call to Validate vendor name';
5230: ------------------------------------------------------------------------
5231: if g_source= 'IMPORT' Then
5232: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5233: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5234: l_api_name,l_debug_info);
5235: END IF;
5236: --
5237: -- Check for duplicate vendor names
5259: g_login_id,
5260: 'Validate_Vendor') <> TRUE) THEN
5261:
5262: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5263: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5264: l_api_name,'Parameters: '
5265: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5266: ||' ,Vendor_name: '||p_vendor_rec.vendor_name);
5267: END IF;
5275: ------------------------------------------------------------------------
5276: l_debug_info := 'Call to Validate payee';
5277: ------------------------------------------------------------------------
5278: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5279: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5280: l_api_name,l_debug_info);
5281: END IF;
5282: --
5283: -- Calling IBY Payee Validation API
5305: g_login_id,
5306: 'Validate_Vendor') <> TRUE) THEN
5307: --
5308: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5309: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5310: l_api_name,'Parameters: '
5311: ||' Vendor_Interface_Id:' ||
5312: p_vendor_rec.vendor_interface_id);
5313: END IF;
5328: ------------------------------------------------------------------------
5329: l_debug_info := 'Call to Validate party_id';
5330: ------------------------------------------------------------------------
5331: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5332: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5333: l_api_name,l_debug_info);
5334: END IF;
5335: --
5336: -- Check for validity of party_id
5352: g_login_id,
5353: 'Validate_Vendor') <> TRUE) THEN
5354: --
5355: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5356: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5357: l_api_name,'Parameters: '
5358: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5359: ||' ,Party_Id: '||p_vendor_rec.party_id);
5360: END IF;
5381: ------------------------------------------------------------------------
5382: l_debug_info := 'Call to Validate vendor number';
5383: ------------------------------------------------------------------------
5384: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5385: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5386: l_api_name,l_debug_info);
5387: END IF;
5388: --
5389: -- Check for Null vendor number
5403: g_login_id,
5404: 'Validate_Vendor') <> TRUE) THEN
5405: --
5406: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5407: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5408: l_api_name,'Parameters: '
5409: ||' Vendor_Interface_Id: '||p_vendor_rec.vendor_interface_id
5410: ||' ,Segment1: '||p_vendor_rec.segment1);
5411: END IF;
5428: ---------------------------------------------------------------
5429: l_debug_info := 'Call to Validate one_time_flag';
5430: ---------------------------------------------------------------
5431: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5432: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5433: l_api_name,l_debug_info);
5434: END IF;
5435: --
5436: -- Validate one_time_flag
5452: g_login_id,
5453: 'Validate_Vendor') <> TRUE) THEN
5454: --
5455: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5456: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5457: l_api_name,'Parameters: '
5458: ||' Vendor_Interface_Id:'
5459: ||p_vendor_rec.vendor_interface_id
5460: ||' ,One_Time_Flag: '||p_vendor_rec.one_time_flag);
5474: ----------------------------------------------------------------
5475: l_debug_info := 'Call to Validate Summary_flag';
5476: ---------------------------------------------------------------
5477: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5478: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5479: l_api_name,l_debug_info);
5480: END IF;
5481: --
5482: -- Validate Summary_flag
5498: g_login_id,
5499: 'Validate_Vendor') <> TRUE) THEN
5500: --
5501: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5502: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5503: l_api_name,'Parameters: '
5504: ||' Vendor_Interface_Id:'
5505: ||p_vendor_rec.vendor_interface_id
5506: ||' ,Summary_Flag: '||p_vendor_rec.summary_flag);
5518: ----------------------------------------------------------------
5519: l_debug_info := 'Call to Validate Enabled_flag';
5520: ---------------------------------------------------------------
5521: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5522: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5523: l_api_name,l_debug_info);
5524: END IF;
5525: --
5526: -- Validate Enabled_flag
5542: g_login_id,
5543: 'Validate_Vendor') <> TRUE) THEN
5544: --
5545: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5546: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5547: l_api_name,'Parameters: '
5548: ||' Vendor_Interface_Id:'
5549: ||p_vendor_rec.vendor_interface_id
5550: ||' ,Enabled_Flag: '||p_vendor_rec.enabled_flag);
5562: ---------------------------------------------------------------
5563: l_debug_info := 'Call to Validate vendor_type_lookup_code';
5564: ---------------------------------------------------------------
5565: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5566: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5567: l_api_name,l_debug_info);
5568: END IF;
5569:
5570: -- Validate vendor_type_lookup_code
5586: g_login_id,
5587: 'Validate_Vendor') <> TRUE) THEN
5588: --
5589: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5590: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5591: l_api_name,'Parameters: '
5592: ||' Vendor_Interface_Id:'
5593: ||p_vendor_rec.vendor_interface_id
5594: ||' ,Vendor_Type_Lookup_Code: '
5607: ---------------------------------------------------------------
5608: l_debug_info := 'Call to Validate pay_date_basis_lookup_code';
5609: ----------------------------------------------------------------
5610: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5611: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5612: l_api_name,l_debug_info);
5613: END IF;
5614: --
5615: -- Validate pay_date_basis_lookup_code
5631: g_login_id,
5632: 'Validate_Vendor') <> TRUE) THEN
5633: --
5634: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5635: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5636: l_api_name,'Parameters: '
5637: ||' Vendor_Interface_Id:'
5638: ||p_vendor_rec.vendor_interface_id
5639: ||' ,Pay_Date_Basis_Lookup_Code: '
5651: ---------------------------------------------------------------
5652: l_debug_info := 'Call to Validate pay_group_lookup_code';
5653: ----------------------------------------------------------------
5654: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5655: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5656: l_api_name,l_debug_info);
5657: END IF;
5658: --
5659: -- Validate pay_group_lookup_code
5675: g_login_id,
5676: 'Validate_Vendor') <> TRUE) THEN
5677: --
5678: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5679: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5680: l_api_name,'Parameters: '
5681: ||' Vendor_Interface_Id:'
5682: ||p_vendor_rec.vendor_interface_id
5683: ||' ,Pay_Group_Lookup_Code:'
5697: ----------------------------------------------------------------
5698: l_debug_info := 'Call to Validate org type_lookup code';
5699: ---------------------------------------------------------------
5700: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5701: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5702: l_api_name,l_debug_info);
5703: END IF;
5704: --
5705: -- Validate organization_type_lookup_code
5722: g_login_id,
5723: 'Validate_Vendor') <> TRUE) THEN
5724: --
5725: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5726: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5727: l_api_name,'Parameters: '
5728: ||' Vendor_Interface_Id:'
5729: ||p_vendor_rec.vendor_interface_id
5730: ||' ,Organization_Type_Lookup_Code:'
5743: ---------------------------------------------------------------
5744: l_debug_info := 'Call to Validate minority_group_lookup_code';
5745: ---------------------------------------------------------------
5746: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5747: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5748: l_api_name,l_debug_info);
5749: END IF;
5750: --
5751: -- Validate minority_group_lookup_code
5767: g_login_id,
5768: 'Validate_Vendor') <> TRUE) THEN
5769: --
5770: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5771: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5772: l_api_name,'Parameters: '
5773: ||' Vendor_Interface_Id:'
5774: ||p_vendor_rec.vendor_interface_id
5775: ||' ,Minority_Group_Lookup_Code:'
5788: ---------------------------------------------------------------
5789: l_debug_info := 'Call to Validate terms_date_basis';
5790: ----------------------------------------------------------------
5791: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5792: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5793: l_api_name,l_debug_info);
5794: END IF;
5795: --
5796: -- Validate terms_date_basis
5812: g_login_id,
5813: 'Validate_Vendor') <> TRUE) THEN
5814: --
5815: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5816: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5817: l_api_name,'Parameters: '
5818: ||' Vendor_Interface_Id:'
5819: ||p_vendor_rec.vendor_interface_id
5820: ||' ,Terms_Date_Basis:'
5833: ---------------------------------------------------------------
5834: l_debug_info := 'Call to Validate qty_rcv_exception_code';
5835: ---------------------------------------------------------------
5836: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5837: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5838: l_api_name,l_debug_info);
5839: END IF;
5840: --
5841: -- Validate qty_rcv_exception_code
5857: g_login_id,
5858: 'Validate_Vendor') <> TRUE) THEN
5859: --
5860: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5861: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5862: l_api_name,'Parameters: '
5863: ||' Vendor_Interface_Id:'
5864: ||p_vendor_rec.vendor_interface_id
5865: ||' ,Qty_Rcv_Execption_Code:'
5878: ------------------------------------------------------------------------
5879: l_debug_info := 'Call to Validate ship to loc code';
5880: ------------------------------------------------------------------------
5881: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5882: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5883: l_api_name,l_debug_info);
5884: END IF;
5885: --
5886: -- Validate enforce_ship_to_location_code
5902: g_login_id,
5903: 'Validate_Vendor') <> TRUE) THEN
5904: --
5905: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5906: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5907: l_api_name,'Parameters: '
5908: ||' Vendor_Interface_Id:'
5909: ||p_vendor_rec.vendor_interface_id
5910: ||' ,Enforce_Ship_To_Location_Code:'
5923: ---------------------------------------------------------------
5924: l_debug_info := 'Call to Validate receipt_days_exception_code';
5925: ----------------------------------------------------------------
5926: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5927: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5928: l_api_name,l_debug_info);
5929: END IF;
5930: --
5931: -- Validate receipt_days_exception_code
5947: g_login_id,
5948: 'Validate_Vendor') <> TRUE) THEN
5949: --
5950: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5951: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5952: l_api_name,'Parameters: '
5953: ||' Vendor_Interface_Id:'
5954: ||p_vendor_rec.vendor_interface_id
5955: ||' ,Receipt_Days_Exception_Code:'
5968: ---------------------------------------------------------------
5969: l_debug_info := 'Call to Validate create_debit_memo_flag';
5970: ----------------------------------------------------------------
5971: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5972: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5973: l_api_name,l_debug_info);
5974: END IF;
5975: --
5976: -- Validate create_debit_memo_flag
5992: g_login_id,
5993: 'Validate_Vendor') <> TRUE) THEN
5994: --
5995: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5996: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
5997: l_api_name,'Parameters: '
5998: ||' Vendor_Interface_Id:'
5999: ||p_vendor_rec.vendor_interface_id
6000: ||' ,Create_Debit_Memo_Flag:'
6013: ---------------------------------------------------------------
6014: l_debug_info := 'Call to Validate federal_reportable_flag';
6015: ---------------------------------------------------------------
6016: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6017: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6018: l_api_name,l_debug_info);
6019: END IF;
6020: --
6021: -- Validate federal_reportable_flag
6037: g_login_id,
6038: 'Validate_Vendor') <> TRUE) THEN
6039: --
6040: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6041: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6042: l_api_name,'Parameters: '
6043: ||' Vendor_Interface_Id:'
6044: ||p_vendor_rec.vendor_interface_id
6045: ||' ,Federal_Reportable_Flag:'
6058: ----------------------------------------------------------------
6059: l_debug_info := 'Call to Validate state_reportable_flag';
6060: ----------------------------------------------------------------
6061: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6062: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6063: l_api_name,l_debug_info);
6064: END IF;
6065: --
6066: -- Validate state_reportable_flag
6082: g_login_id,
6083: 'Validate_Vendor') <> TRUE) THEN
6084: --
6085: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6086: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6087: l_api_name,'Parameters: '
6088: ||' Vendor_Interface_Id:'
6089: ||p_vendor_rec.vendor_interface_id
6090: ||' ,State_Reportable_Flag:'
6103: ---------------------------------------------------------------
6104: l_debug_info := 'Call to Validate auto_calculate_interest_flag';
6105: ----------------------------------------------------------------
6106: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6107: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6108: l_api_name,l_debug_info);
6109: END IF;
6110: --
6111: -- Validate auto_calculate_interest_flag
6127: g_login_id,
6128: 'Validate_Vendor') <> TRUE) THEN
6129: --
6130: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6131: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6132: l_api_name,'Parameters: '
6133: ||' Vendor_Interface_Id:'
6134: ||p_vendor_rec.vendor_interface_id
6135: ||' , Auto_Calculate_Interest_Flag'
6148: ---------------------------------------------------------------
6149: l_debug_info := 'Call to Validate excl freight from disc';
6150: ---------------------------------------------------------------
6151: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6152: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6153: l_api_name,l_debug_info);
6154: END IF;
6155: --
6156: -- Validate exclude_freight_from_discount
6172: g_login_id,
6173: 'Validate_Vendor') <> TRUE) THEN
6174: --
6175: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6176: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6177: l_api_name,'Parameters: '
6178: ||' Vendor_Interface_Id:'
6179: ||p_vendor_rec.vendor_interface_id
6180: ||' ,Exclude_Freight_From_Discount:'
6193: ----------------------------------------------------------------
6194: l_debug_info := 'Call to Validate hold_unmatched_invoices_flag';
6195: ----------------------------------------------------------------
6196: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6197: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6198: l_api_name,l_debug_info);
6199: END IF;
6200: --
6201: -- Validate hold_unmatched_invoices_flag
6217: g_login_id,
6218: 'Validate_Vendor') <> TRUE) THEN
6219: --
6220: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6221: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6222: l_api_name,'Parameters: '
6223: ||' Vendor_Interface_Id:'
6224: ||p_vendor_rec.vendor_interface_id
6225: ||' ,Hold_Unmatched_Invoices_Flag:'
6238: ---------------------------------------------------------------
6239: l_debug_info := 'Call to Validate allow_unord_receipts_flag';
6240: ---------------------------------------------------------------
6241: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6242: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6243: l_api_name,l_debug_info);
6244: END IF;
6245: --
6246: -- Validate allow_unord_receipts_flag
6262: g_login_id,
6263: 'Validate_Vendor') <> TRUE) THEN
6264: --
6265: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6266: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6267: l_api_name,'Parameters: '
6268: ||' Vendor_Interface_Id:'
6269: ||p_vendor_rec.vendor_interface_id
6270: ||' ,Allow_Unordered_Receipts_Flag:'
6284: l_debug_info :=
6285: 'Call to Validate allow_substitute_receipts_flag';
6286: -------------------------------------------------------------
6287: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6288: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6289: l_api_name,l_debug_info);
6290: END IF;
6291: --
6292: -- Validate allow_substitute_receipts_flag
6308: g_login_id,
6309: 'Validate_Vendor') <> TRUE) THEN
6310: --
6311: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6312: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6313: l_api_name,'Parameters: '
6314: ||' Vendor_Interface_Id:'
6315: ||p_vendor_rec.vendor_interface_id
6316: ||' ,Allow_Substitute_Receipts_Flag:'
6329: ---------------------------------------------------------------
6330: l_debug_info := 'Call to Validate hold_flag';
6331: ----------------------------------------------------------------
6332: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6333: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6334: l_api_name,l_debug_info);
6335: END IF;
6336: --
6337: -- Validate hold_flag
6353: g_login_id,
6354: 'Validate_Vendor') <> TRUE) THEN
6355: --
6356: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6357: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6358: l_api_name,'Parameters: '
6359: ||' Vendor_Interface_Id:'
6360: ||p_vendor_rec.vendor_interface_id
6361: ||' ,Hold_Flag:'
6374: ----------------------------------------------------------------
6375: l_debug_info := 'Call to Validate small_business_flag';
6376: ---------------------------------------------------------------
6377: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6378: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6379: l_api_name,l_debug_info);
6380: END IF;
6381: --
6382: -- Validate small_business_flag
6398: g_login_id,
6399: 'Validate_Vendor') <> TRUE) THEN
6400: --
6401: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6402: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6403: l_api_name,'Parameters: '
6404: ||' Vendor_Interface_Id:'
6405: ||p_vendor_rec.vendor_interface_id
6406: ||' ,Small_Business_Flag:'
6419: ----------------------------------------------------------------
6420: l_debug_info := 'Call to Validate women_owned_flag';
6421: ---------------------------------------------------------------
6422: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6423: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6424: l_api_name,l_debug_info);
6425: END IF;
6426: --
6427: -- Validate women_owned_flag
6443: g_login_id,
6444: 'Validate_Vendor') <> TRUE) THEN
6445: --
6446: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6447: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6448: l_api_name,'Parameters: '
6449: ||' Vendor_Interface_Id:'
6450: ||p_vendor_rec.vendor_interface_id
6451: ||' ,Women_Owned_Flag:'
6464: --------------------------------------------------------------
6465: l_debug_info := 'Call to Validate hold_future_payments_flag';
6466: ---------------------------------------------------------------
6467: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6468: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6469: l_api_name,l_debug_info);
6470: END IF;
6471: --
6472: -- Validate hold_future_payments_flag
6488: g_login_id,
6489: 'Validate_Vendor') <> TRUE) THEN
6490: --
6491: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6492: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6493: l_api_name,'Parameters: '
6494: ||' Vendor_Interface_Id:'
6495: ||p_vendor_rec.vendor_interface_id
6496: ||' ,Hold_Future_Payments_Flag:'
6509: ----------------------------------------------------------------
6510: l_debug_info := 'Call to Validate hold_all_payments_flag';
6511: ----------------------------------------------------------------
6512: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6513: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6514: l_api_name,l_debug_info);
6515: END IF;
6516: --
6517: -- Validate hold_all_payments_flag
6533: g_login_id,
6534: 'Validate_Vendor') <> TRUE) THEN
6535: --
6536: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6537: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6538: l_api_name,'Parameters: '
6539: ||' Vendor_Interface_Id:'
6540: ||p_vendor_rec.vendor_interface_id
6541: ||' ,Hold_All_Payments_Flag:'
6554: ---------------------------------------------------------------
6555: l_debug_info := 'Call to Validate always_take_disc_flag';
6556: ----------------------------------------------------------------
6557: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6558: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6559: l_api_name,l_debug_info);
6560: END IF;
6561: --
6562: -- Validate always_take_disc_flag
6578: g_login_id,
6579: 'Validate_Vendor') <> TRUE) THEN
6580: --
6581: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6582: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6583: l_api_name,'Parameters: '
6584: ||' Vendor_Interface_Id:'
6585: ||p_vendor_rec.vendor_interface_id
6586: ||' ,Always_Take_Disc_Flag:'
6599: ----------------------------------------------------------------
6600: l_debug_info := 'Call to Validate Vendor Number';
6601: ----------------------------------------------------------------
6602: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6603: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6604: l_api_name,l_debug_info);
6605: END IF;
6606:
6607: -- Generate and validate Vendor Number
6622: g_login_id,
6623: 'Validate_Vendor') <> TRUE) THEN
6624: --
6625: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6626: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6627: l_api_name,'Parameters: '
6628: ||' Vendor_Interface_Id:'
6629: ||p_vendor_rec.vendor_interface_id);
6630: END IF;
6640: ----------------------------------------------------------------
6641: l_debug_info := 'Call to Validate match_option';
6642: ----------------------------------------------------------------
6643: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6644: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6645: l_api_name,l_debug_info);
6646: END IF;
6647: --
6648: -- Validate match_option
6664: g_login_id,
6665: 'Validate_Vendor') <> TRUE) THEN
6666: --
6667: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6668: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6669: l_api_name,'Parameters: '
6670: ||' Vendor_Interface_Id:'
6671: ||p_vendor_rec.vendor_interface_id
6672: ||' ,Match_Option:'
6686: l_debug_info :=
6687: 'Call to Validate awt_group_id and awt_group_name';
6688: ---------------------------------------------------------------
6689: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6690: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6691: l_api_name,l_debug_info);
6692: END IF;
6693: --
6694: -- Validate awt_group_id and awt_group_name
6716: g_login_id,
6717: 'Validate_Vendor') <> TRUE) THEN
6718: --
6719: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6720: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
6721: l_api_name,'Parameters: '
6722: ||' Vendor_Interface_Id:'
6723: ||p_vendor_rec.vendor_interface_id
6724: ||' ,Awt_Group_Id: '||p_vendor_rec.awt_group_id
6739: ------------------------------------------------------------------------
6740: l_debug_info := 'Call to Validate Hold_by';
6741: ------------------------------------------------------------------------
6742: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6743: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6744: l_api_name,l_debug_info);
6745: END IF;
6746:
6747: -- Hold_by validation
6759: ------------------------------------------------------------------------
6760: l_debug_info := 'Call to Validate Terms_Id and Terms_Name';
6761: ------------------------------------------------------------------------
6762: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6763: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6764: l_api_name,l_debug_info);
6765: END IF;
6766:
6767: -- Terms_Id and Terms_Name validation
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: ||' ,Terms_Id: '||p_vendor_rec.terms_id
7106: ------------------------------------------------------------------------
7107: l_debug_info := 'Call Org_Id and Operating_unit_name validation for Import';
7108: ------------------------------------------------------------------------
7109: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7110: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7111: l_api_name,l_debug_info);
7112: END IF;
7113:
7114: -- Org_Id and Operating_unit_name validation
7147: g_login_id,
7148: 'Create_Vendor_Site') <> TRUE) THEN
7149: --
7150: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7151: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
7152: l_api_name,'Parameters: '
7153: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
7154: ||' ,Vendor_Site_Code: '||p_vendor_site_rec.vendor_site_code);
7155: END IF;
7182: g_login_id,
7183: 'Create_Vendor_Site') <> TRUE) THEN
7184: --
7185: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7186: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
7187: l_api_name,'Parameters: '
7188: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
7189: ||' ,Vendor_Site_Code: '||p_vendor_site_rec.vendor_site_code);
7190: END IF;
7216:
7217: --Open Issue 14 -- need to call initialize procedure due to MOAC changes
7218: l_debug_info := 'Call to default CCIDs from FINANCIAL_SYSTEM_PARAMETERS';
7219: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7220: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
7221: END IF;
7222: --
7223: -- Get default CCIDs from FINANCIAL_SYSTEM_PARAMETERS
7224: --
7534: l_debug_info := 'After call to hz_location_v2pub.create_location';
7535: l_debug_info := l_debug_info||' Return status : '||l_loc_return_status||' Error : '||l_loc_msg_data;
7536: ------------------------------------------------------------------------
7537: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7538: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
7539: END IF;
7540: END IF;
7541: END IF;
7542: l_vendor_site_rec.location_id := l_loc_id;
7597: l_debug_info := 'After call to hz_party_site_v2pub.create_party_site';
7598: l_debug_info := l_debug_info||' Return status : '||l_site_return_status||' Error : '||l_site_msg_data;
7599: ------------------------------------------------------------------------
7600: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7601: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
7602: END IF;
7603: END IF;
7604: END IF;
7605: l_vendor_site_rec.party_site_id := l_party_site_id;
7625: EXCEPTION
7626: WHEN OTHERS THEN
7627: l_debug_info := 'No data returned from ZX_PARTY_TAX_PROFILE for party_id = '||l_party_id;
7628: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7629: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
7630: END IF;
7631: END;
7632: -- Bug#7642742 start
7633:
7719: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7720: l_debug_info := 'ZX_PARTY_TAX_PROFILE_PKG.update_row';
7721: l_debug_info := l_debug_info||' Return status : '||l_return_status;
7722: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7723: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
7724: END IF;
7725: END IF;
7726: END IF;
7727: END IF;
7761: ------------------------------------------------------------------------
7762: l_debug_info := 'After call to ap_vendor_sites_pkg.insert_row';
7763: ------------------------------------------------------------------------
7764: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7765: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
7766: END IF;
7767: --Bug6648405
7768: --Bug 6753822 - Added NVL on vendor_type_lookup_code
7769: IF (NVL(l_vendor_type_lookup_code,'DUMMY') <> 'EMPLOYEE') then
7779: l_debug_info := 'After call to AP_TCA_SUPPLIER_SYNC_PKG.SYNC_Supplier_Sites';
7780: l_debug_info := l_debug_info||' Return status : '||l_sync_return_status||' Error : '||l_sync_msg_data;
7781: ------------------------------------------------------------------------
7782: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7783: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
7784: END IF;
7785: END IF;
7786: END IF;
7787:
7887: l_debug_info := 'After call to IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee';
7888: l_debug_info := l_debug_info||' Return status : '||l_pay_return_status||' Error : '||l_pay_msg_data;
7889: ------------------------------------------------------------------------
7890: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7891: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
7892: END IF;
7893: END IF;
7894: END IF;
7895:
8716: ------------------------------------------------------------------------
8717: l_debug_info := 'Call to Validate hold_unmatched_invoices_flag';
8718: ------------------------------------------------------------------------
8719: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8720: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
8721: l_api_name,l_debug_info);
8722: END IF;
8723: --
8724: -- Validate hold_unmatched_invoices_flag
8740: g_login_id,
8741: 'Validate_Vendor_Site') <> TRUE) THEN
8742: --
8743: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8744: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
8745: l_api_name,'Parameters: '
8746: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
8747: ||' ,Hold_Unmatched_Invoices_Flag: '
8748: ||p_vendor_site_rec.hold_unmatched_invoices_flag);
8760: ------------------------------------------------------------------------
8761: l_debug_info := 'Call to Validate tax_reporting_site_flag';
8762: ------------------------------------------------------------------------
8763: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8764: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
8765: l_api_name,l_debug_info);
8766: END IF;
8767: --
8768: -- Validate tax_reporting_site_flag
8784: g_login_id,
8785: 'Validate_Vendor_Site') <> TRUE) THEN
8786: --
8787: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8788: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
8789: l_api_name,'Parameters: '
8790: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
8791: ||' ,Tax_Reporting_Site_Flag: '
8792: ||p_vendor_site_rec.tax_reporting_site_flag);
8805: ------------------------------------------------------------------------
8806: l_debug_info := 'Call to Validate vat_code';
8807: ------------------------------------------------------------------------
8808: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8809: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
8810: l_api_name,l_debug_info);
8811: END IF;
8812: --
8813: -- Validate vat_code
8835: g_login_id,
8836: 'Validate_Vendor_Site') <> TRUE) THEN
8837: --
8838: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8839: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
8840: l_api_name,'Parameters: '
8841: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
8842: ||' ,Vat_Code: '
8843: ||p_vendor_site_rec.vat_code);
8855: ------------------------------------------------------------------------
8856: l_debug_info := 'Call to Validate default_pay_site_id';
8857: ------------------------------------------------------------------------
8858: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8859: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
8860: l_api_name,l_debug_info);
8861: END IF;
8862: --
8863: -- We should check for Valid Sites for any default_pay_site_id
8881: g_login_id,
8882: 'Validate_Vendor_Site') <> TRUE) THEN
8883: --
8884: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8885: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
8886: l_api_name,'Parameters: '
8887: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
8888: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
8889: ||' ,Org_Id: '||p_vendor_site_rec.org_id
8906: ------------------------------------------------------------------------
8907: l_debug_info := 'Call to Validate Vendor Site Code';
8908: ------------------------------------------------------------------------
8909: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8910: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
8911: l_api_name,l_debug_info);
8912: END IF;
8913:
8914: IF p_vendor_site_rec.vendor_site_code is not null
8931: g_login_id,
8932: 'Validate_Vendor_Site') <> TRUE) THEN
8933: --
8934: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8935: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
8936: l_api_name,'Parameters: '
8937: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
8938: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
8939: ||' ,Org_Id: '||p_vendor_site_rec.org_id
8953: ------------------------------------------------------------------------
8954: l_debug_info := 'Call Org_Id and Operating_unit_name validation';
8955: ------------------------------------------------------------------------
8956: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8957: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
8958: l_api_name,l_debug_info);
8959: END IF;
8960:
8961: -- Org_Id and Operating_unit_name validation
8980: ------------------------------------------------------------------------
8981: l_debug_info := 'Call to Validate pay_on_receipt_summary_code';
8982: ------------------------------------------------------------------------
8983: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8984: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
8985: l_api_name,l_debug_info);
8986: END IF;
8987: --
8988: -- Validate and default pay_on_receipt_summary_code
9004: g_login_id,
9005: 'Validate_Vendor_Site') <> TRUE) THEN
9006: --
9007: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9008: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9009: l_api_name,'Parameters: '
9010: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9011: ||' ,Pay_On_Code: '||p_vendor_site_rec.pay_on_code
9012: ||' ,Pay_On_Receipt_Summary_Code: '
9025: ------------------------------------------------------------------------
9026: l_debug_info := 'Call to Validate shipping_control';
9027: ------------------------------------------------------------------------
9028: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9029: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
9030: l_api_name,l_debug_info);
9031: END IF;
9032: --
9033: -- Validate shipping_control
9050: g_login_id,
9051: 'Validate_Vendor_Site') <> TRUE) THEN
9052: --
9053: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9054: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9055: l_api_name,'Parameters: '
9056: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9057: ||' ,Shipping_Control: '||p_vendor_site_rec.shipping_control);
9058: END IF;
9069: ------------------------------------------------------------------------
9070: l_debug_info := 'Call to Validate Terms_Id and Terms_Name';
9071: ------------------------------------------------------------------------
9072: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9073: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
9074: l_api_name,l_debug_info);
9075: END IF;
9076:
9077: -- Terms_Id and Terms_Name validation
9099: g_login_id,
9100: 'Validate_Vendor_Site') <> TRUE) THEN
9101: --
9102: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9103: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9104: l_api_name,'Parameters: '
9105: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9106: ||' ,Terms_Id: '||p_vendor_site_rec.terms_id
9107: ||' ,Terms_Name: '||p_vendor_site_rec.terms_name
9120: ------------------------------------------------------------------------
9121: l_debug_info := 'Call to Validate pay_on_code';
9122: ------------------------------------------------------------------------
9123: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9124: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
9125: l_api_name,l_debug_info);
9126: END IF;
9127: --
9128: -- Validate pay_on_code
9147: g_login_id,
9148: 'Validate_Vendor_Site') <> TRUE) THEN
9149: --
9150: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9151: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9152: l_api_name,'Parameters: '
9153: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9154: ||' ,Pay_On_Code: '||p_vendor_site_rec.pay_on_code
9155: ||' ,Purchasing_Site_Flag: '||p_vendor_site_rec.purchasing_site_flag
9168: ------------------------------------------------------------------------
9169: l_debug_info := 'Call to Validate pay_on_code and pay_on_receipt_summary_code';
9170: ------------------------------------------------------------------------
9171: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9172: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
9173: l_api_name,l_debug_info);
9174: END IF;
9175:
9176: IF (p_vendor_site_rec.pay_on_receipt_summary_code is not null AND
9191: g_login_id,
9192: 'Validate_Vendor_Site') <> TRUE) THEN
9193: --
9194: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9195: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9196: l_api_name,'Parameters: '
9197: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9198: ||' ,Pay_On_Code: '||p_vendor_site_rec.pay_on_code
9199: ||' ,Pay_On_Receipt_Summary_Code: '
9212: ------------------------------------------------------------------------
9213: l_debug_info := 'Call to Validate Payment_Priority';
9214: ------------------------------------------------------------------------
9215: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9216: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
9217: l_api_name,l_debug_info);
9218: END IF;
9219: --
9220: -- Validate Payment_Priority
9236: g_login_id,
9237: 'Validate_Vendor_Site') <> TRUE) THEN
9238: --
9239: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9240: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9241: l_api_name,'Parameters: '
9242: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9243: ||' ,Payment_Priority: '||p_vendor_site_rec.payment_priority);
9244: END IF;
9255: ------------------------------------------------------------------------
9256: l_debug_info := 'Call to Validate Invoice Currency Code';
9257: ------------------------------------------------------------------------
9258: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9259: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
9260: l_api_name,l_debug_info);
9261: END IF;
9262:
9263: IF (p_vendor_site_rec.invoice_currency_code is not null AND
9275: g_login_id,
9276: 'Validate_Vendor_Site') <> TRUE) THEN
9277: --
9278: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9279: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9280: l_api_name,'Parameters: '
9281: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9282: ||' ,Invoice_Currency_Code: '||p_vendor_site_rec.invoice_currency_code);
9283: END IF;
9294: ------------------------------------------------------------------------
9295: l_debug_info := 'Call to Validate Payment Currency Code';
9296: ------------------------------------------------------------------------
9297: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9298: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
9299: l_api_name,l_debug_info);
9300: END IF;
9301:
9302: IF (p_vendor_site_rec.payment_currency_code is not null
9317: g_login_id,
9318: 'Validate_Vendor_Site') <> TRUE) THEN
9319: --
9320: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9321: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9322: l_api_name,'Parameters: '
9323: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9324: ||' ,Invoice_Currency_Code: '||p_vendor_site_rec.invoice_currency_code
9325: ||' ,Payment_Currency_Code: '||p_vendor_site_rec.payment_currency_code);
9337: ------------------------------------------------------------------------
9338: l_debug_info := 'Call to Validate accts_pay_ccid';
9339: ------------------------------------------------------------------------
9340: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9341: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
9342: l_api_name,l_debug_info);
9343: END IF;
9344: --
9345: -- Validate accts_pay_ccid
9361: g_login_id,
9362: 'Validate_Vendor_Site') <> TRUE) THEN
9363: --
9364: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9365: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9366: l_api_name,'Parameters: '
9367: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9368: ||' ,Accts_Pay_Code_Comb_Id: '
9369: ||p_vendor_site_rec.accts_pay_code_combination_id
9382: ------------------------------------------------------------------------
9383: l_debug_info := 'Call to Validate prepay_ccid';
9384: ------------------------------------------------------------------------
9385: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9386: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
9387: l_api_name,l_debug_info);
9388: END IF;
9389: --
9390: -- Validate prepay_code_combination_id
9405: g_login_id,
9406: 'Validate_Vendor_Site') <> TRUE) THEN
9407: --
9408: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9409: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9410: l_api_name,'Parameters: '
9411: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9412: ||' ,Prepay_Code_Combination_Id: '
9413: ||p_vendor_site_rec.prepay_code_combination_id
9426: ------------------------------------------------------------------------
9427: l_debug_info := 'Call to Validate future_dated_payment_ccid';
9428: ------------------------------------------------------------------------
9429: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9430: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
9431: l_api_name,l_debug_info);
9432: END IF;
9433: --
9434: -- Validate future_dated_payment_ccid
9449: g_login_id,
9450: 'Validate_Vendor_Site') <> TRUE) THEN
9451: --
9452: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9453: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9454: l_api_name,'Parameters: '
9455: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9456: ||' ,Future_Dated_Payment_Ccid: '
9457: ||p_vendor_site_rec.future_dated_payment_ccid
9470: ------------------------------------------------------------------------
9471: l_debug_info := 'Call to Validate duns_number';
9472: ------------------------------------------------------------------------
9473: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9474: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
9475: l_api_name,l_debug_info);
9476: END IF;
9477: --
9478: -- Validate supplier site duns number
9496: g_login_id,
9497: 'Validate_Vendor_Site') <> TRUE) THEN
9498: --
9499: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9500: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9501: l_api_name,'Parameters: '
9502: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9503: ||' ,Invalid_Duns_number: '
9504: ||p_vendor_site_rec.duns_number);
9521: ------------------------------------------------------------------------
9522: l_debug_info := 'check for prohibiting the update of CCR vendor site';
9523: ------------------------------------------------------------------------
9524: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9525: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
9526: l_api_name,l_debug_info);
9527: END IF;
9528: --
9529: -- Check if there is an attempt to update any restricted
9545: g_login_id,
9546: 'Validate_Vendor_Site') <> TRUE) THEN
9547:
9548: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9549: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9550: l_api_name,'Parameters: '
9551: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9552: ||' ,attempting to update non-updatablee elements on CCR site : '
9553: ||p_vendor_site_rec.vendor_site_id);
9566: ------------------------------------------------------------------------
9567: l_debug_info := 'Call to Validate payee';
9568: ------------------------------------------------------------------------
9569: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9570: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
9571: l_api_name,l_debug_info);
9572: END IF;
9573: --
9574: -- Calling IBY Payee Validation API
9596: g_login_id,
9597: 'Validate_Vendor_Site') <> TRUE) THEN
9598: --
9599: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9600: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9601: l_api_name,'Parameters: '
9602: ||' Vendor_Site_Interface_Id:' ||
9603: p_vendor_site_rec.vendor_interface_id);
9604: END IF;
9623: ----------------------------------------------------------------------------------------------------
9624: l_debug_info := 'Call to Validate country code';
9625: ----------------------------------------------------------------------------------------------------
9626: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9627: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
9628: l_api_name,l_debug_info);
9629: END IF;
9630:
9631: IF(p_vendor_site_rec.country IS NOT NULL) THEN
9652: g_user_id,
9653: g_login_id,
9654: 'Validate_Vendor_Site') <> TRUE) THEN
9655: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9656: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9657: l_api_name,'Parameters: '
9658: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9659: ||' ,Country code validation '
9660: ||p_vendor_site_rec.country);
9694: g_login_id,
9695: 'Validate_Vendor_Site') <> TRUE) THEN
9696:
9697: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9698: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
9699: ||' Org_Id: '||p_vendor_site_rec.org_id
9700: ||', Org_Name: '||p_vendor_site_rec.ORG_NAME
9701: ||', Party_site_name: '||p_vendor_site_rec.party_site_name
9702: ||', Party_site_id: '|| p_vendor_site_rec.party_site_id
9713: ------------------------------------------------------------------------
9714: l_debug_info := 'Call to Validate location';
9715: ------------------------------------------------------------------------
9716: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9717: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
9718: l_api_name,l_debug_info);
9719: END IF;
9720: --
9721: -- Check for validity of location_id
9772: g_login_id,
9773: 'Validate_Vendor_Site') <> TRUE) THEN
9774:
9775: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9776: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9777: l_api_name,'Parameters: '
9778: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9779: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
9780: ||' ,Party_site_id: '||p_vendor_site_rec.party_site_id);
9802: g_login_id,
9803: 'Validate_Vendor_Site') <> TRUE) THEN
9804:
9805: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9806: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9807: l_api_name,'Parameters: '
9808: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9809: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
9810: ||' ,Party_site_id: '||p_vendor_site_rec.party_site_id);
9835: g_login_id,
9836: 'Validate_Vendor_Site') <> TRUE) THEN
9837:
9838: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9839: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9840: l_api_name,'Parameters: '
9841: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9842: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
9843: ||' ,Org_id: '||p_vendor_site_rec.org_id
9867: g_login_id,
9868: 'Validate_Vendor_Site') <> TRUE) THEN
9869:
9870: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9871: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9872: l_api_name,'Parameters: '
9873: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9874: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
9875: ||' ,Org_id: '||p_vendor_site_rec.org_id
9897: ------------------------------------------------------------------------
9898: l_debug_info := 'Call to Validate party_site_id';
9899: ------------------------------------------------------------------------
9900: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9901: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
9902: l_api_name,l_debug_info);
9903: END IF;
9904: --
9905: -- Check for validity of party_site_id
9925: ------------------------------------------------------------------------
9926: l_debug_info := 'Call to Validate primary_pay_site_flag unique per Vendor';
9927: ------------------------------------------------------------------------
9928: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9929: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
9930: l_api_name,l_debug_info);
9931: END IF;
9932: --
9933: -- Validate primary_pay_site_flag - unique per vendor
9953: g_login_id,
9954: 'Validate_Vendor_Site') <> TRUE) THEN
9955: --
9956: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9957: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9958: l_api_name,'Parameters: '
9959: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9960: ||' ,Vendor_Id: '||p_vendor_site_rec.vendor_id
9961: ||' ,Org_id: '||p_vendor_site_rec.org_id
9974: ------------------------------------------------------------------------
9975: l_debug_info := 'Call to Validate Country of Origin Code';
9976: ------------------------------------------------------------------------
9977: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9978: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
9979: l_api_name,l_debug_info);
9980: END IF;
9981:
9982: IF (p_vendor_site_rec.country_of_origin_code is not null) THEN
9993: g_login_id,
9994: 'Validate_Vendor_Site') <> TRUE) THEN
9995: --
9996: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9997: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
9998: l_api_name,'Parameters: '
9999: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
10000: ||' ,Country_Of_Origin_Code: '||p_vendor_site_rec.country_of_origin_code);
10001: END IF;
10016: ------------------------------------------------------------------------
10017: l_debug_info := 'Call to Validate pcard_site_flag';
10018: ------------------------------------------------------------------------
10019: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10020: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10021: l_api_name,l_debug_info);
10022: END IF;
10023: --
10024: -- Validate pcard_site_flag
10038: g_login_id,
10039: 'Validate_Vendor_Site') <> TRUE) THEN
10040: --
10041: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10042: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10043: l_api_name,'Parameters: '
10044: ||' Vendor_Site_Interface_Id: '
10045: ||p_vendor_site_rec.vendor_site_interface_id
10046: ||' ,Pcard_Site_Flag: '
10059: ------------------------------------------------------------------------
10060: l_debug_info := 'Call to Validate Purchasing Site Flag';
10061: ------------------------------------------------------------------------
10062: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10063: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10064: l_api_name,l_debug_info);
10065: END IF;
10066: --
10067: -- Validate purchasing_site_flag
10081: g_login_id,
10082: 'Validate_Vendor_Site') <> TRUE) THEN
10083: --
10084: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10085: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10086: l_api_name,'Parameters: '
10087: ||' Vendor_Site_Interface_Id: '
10088: ||p_vendor_site_rec.vendor_site_interface_id
10089: ||' ,Purchasing_Site_Flag: '
10102: ------------------------------------------------------------------------
10103: l_debug_info := 'Call to Validate rfq_only_site_flag';
10104: ------------------------------------------------------------------------
10105: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10106: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10107: l_api_name,l_debug_info);
10108: END IF;
10109: --
10110: -- Validate rfq_only_site_flag
10124: g_login_id,
10125: 'Validate_Vendor_Site') <> TRUE) THEN
10126: --
10127: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10128: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10129: l_api_name,'Parameters: '
10130: ||' Vendor_Site_Interface_Id: '
10131: ||p_vendor_site_rec.vendor_site_interface_id
10132: ||' ,Rfq_Only_Site_Flag: '
10145: ------------------------------------------------------------------------
10146: l_debug_info := 'Call to Validate pay_site_flag';
10147: ------------------------------------------------------------------------
10148: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10149: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10150: l_api_name,l_debug_info);
10151: END IF;
10152: --
10153: -- Validate pay_site_flag
10167: g_login_id,
10168: 'Validate_Vendor_Site') <> TRUE) THEN
10169: --
10170: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10171: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10172: l_api_name,'Parameters: '
10173: ||' Vendor_Site_Interface_Id: '
10174: ||p_vendor_site_rec.vendor_site_interface_id
10175: ||' ,Pay_Site_Flag: '
10188: ------------------------------------------------------------------------
10189: l_debug_info := 'Call to Validate attention_ar_flag';
10190: ------------------------------------------------------------------------
10191: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10192: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10193: l_api_name,l_debug_info);
10194: END IF;
10195: --
10196: -- Validate attention_ar_flag
10210: g_login_id,
10211: 'Validate_Vendor_Site') <> TRUE) THEN
10212: --
10213: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10214: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10215: l_api_name,'Parameters: '
10216: ||' Vendor_Site_Interface_Id: '
10217: ||p_vendor_site_rec.vendor_site_interface_id
10218: ||' ,Attention_Ar_Flag: '
10231: ------------------------------------------------------------------------
10232: l_debug_info := 'Call to Validate primary_pay_site_flag';
10233: ------------------------------------------------------------------------
10234: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10235: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10236: l_api_name,l_debug_info);
10237: END IF;
10238: --
10239: -- Validate primary_pay_site_flag
10253: g_login_id,
10254: 'Validate_Vendor_Site') <> TRUE) THEN
10255: --
10256: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10257: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10258: l_api_name,'Parameters: '
10259: ||' Vendor_Site_Interface_Id: '
10260: ||p_vendor_site_rec.vendor_site_interface_id
10261: ||' ,Primary_Pay_Site_Flag: '
10274: ------------------------------------------------------------------------
10275: l_debug_info := 'Call to Validate freight_terms_lookup_code';
10276: ------------------------------------------------------------------------
10277: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10278: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10279: l_api_name,l_debug_info);
10280: END IF;
10281: --
10282: -- Validate freight_terms_lookup_code
10297: g_login_id,
10298: 'Validate_Vendor_Site') <> TRUE) THEN
10299: --
10300: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10301: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10302: l_api_name,'Parameters: '
10303: ||' Vendor_Site_Interface_Id: '
10304: ||p_vendor_site_rec.vendor_site_interface_id
10305: ||' ,Freight_Terms_Lookup_Code '
10318: ------------------------------------------------------------------------
10319: l_debug_info := 'Call to Validate fob_lookup_code';
10320: ------------------------------------------------------------------------
10321: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10322: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10323: l_api_name,l_debug_info);
10324: END IF;
10325: --
10326: -- Validate fob_lookup_code
10340: g_login_id,
10341: 'Validate_Vendor_Site') <> TRUE) THEN
10342: --
10343: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10344: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10345: l_api_name,'Parameters: '
10346: ||' Vendor_Site_Interface_Id: '
10347: ||p_vendor_site_rec.vendor_site_interface_id
10348: ||' ,Fob_Lookup_Code '
10361: ------------------------------------------------------------------------
10362: l_debug_info := 'Call to Validate pay_date_basis_lookup_code';
10363: ------------------------------------------------------------------------
10364: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10365: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10366: l_api_name,l_debug_info);
10367: END IF;
10368: --
10369: -- Validate pay_date_basis_lookup_code
10384: g_login_id,
10385: 'Validate_Vendor_Site') <> TRUE) THEN
10386: --
10387: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10388: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10389: l_api_name,'Parameters: '
10390: ||' Vendor_Site_Interface_Id: '
10391: ||p_vendor_site_rec.vendor_site_interface_id
10392: ||' ,Pay_Date_Basis_Lookup_Code '
10405: ------------------------------------------------------------------------
10406: l_debug_info := 'Call to Validate pay_group_lookup_code';
10407: ------------------------------------------------------------------------
10408: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10409: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10410: l_api_name,l_debug_info);
10411: END IF;
10412: --
10413: -- Validate pay_group_lookup_code
10428: g_login_id,
10429: 'Validate_Vendor_Site') <> TRUE) THEN
10430: --
10431: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10432: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10433: l_api_name,'Parameters: '
10434: ||' Vendor_Site_Interface_Id: '
10435: ||p_vendor_site_rec.vendor_site_interface_id
10436: ||' ,Pay_Group_Lookup_Code '
10449: ------------------------------------------------------------------------
10450: l_debug_info := 'Call to Validate terms_date_basis';
10451: ------------------------------------------------------------------------
10452: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10453: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10454: l_api_name,l_debug_info);
10455: END IF;
10456: --
10457: -- Validate terms_date_basis
10471: g_login_id,
10472: 'Validate_Vendor_Site') <> TRUE) THEN
10473: --
10474: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10475: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10476: l_api_name,'Parameters: '
10477: ||' Vendor_Site_Interface_Id: '
10478: ||p_vendor_site_rec.vendor_site_interface_id
10479: ||' ,Terms_Date_Basis '
10493: ------------------------------------------------------------------------
10494: l_debug_info := 'Call to Validate create_debit_memo_flag';
10495: ------------------------------------------------------------------------
10496: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10497: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10498: l_api_name,l_debug_info);
10499: END IF;
10500: --
10501: -- Validate create_debit_memo_flag
10516: g_login_id,
10517: 'Validate_Vendor_Site') <> TRUE) THEN
10518: --
10519: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10520: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10521: l_api_name,'Parameters: '
10522: ||' Vendor_Site_Interface_Id: '
10523: ||p_vendor_site_rec.vendor_site_interface_id
10524: ||' ,Create_Debit_Memo_Flag '
10537: ------------------------------------------------------------------------
10538: l_debug_info := 'Call to Validate exclude_freight_from_discount';
10539: ------------------------------------------------------------------------
10540: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10541: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10542: l_api_name,l_debug_info);
10543: END IF;
10544: --
10545: -- Validate exclude_freight_from_discount
10560: g_login_id,
10561: 'Validate_Vendor_Site') <> TRUE) THEN
10562: --
10563: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10564: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10565: l_api_name,'Parameters: '
10566: ||' Vendor_Site_Interface_Id: '
10567: ||p_vendor_site_rec.vendor_site_interface_id
10568: ||' ,Exclude_Freight_From_Discount '
10582: ------------------------------------------------------------------------
10583: l_debug_info := 'Call to Validate hold_future_payments_flag';
10584: ------------------------------------------------------------------------
10585: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10586: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10587: l_api_name,l_debug_info);
10588: END IF;
10589: --
10590: -- Validate hold_future_payments_flag
10604: g_login_id,
10605: 'Validate_Vendor_Site') <> TRUE) THEN
10606: --
10607: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10608: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10609: l_api_name,'Parameters: '
10610: ||' Vendor_Site_Interface_Id: '
10611: ||p_vendor_site_rec.vendor_site_interface_id
10612: ||' ,Hold_Future_Payments_Flag '
10625: ------------------------------------------------------------------------
10626: l_debug_info := 'Call to Validate hold_all_payments_flag';
10627: ------------------------------------------------------------------------
10628: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10629: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10630: l_api_name,l_debug_info);
10631: END IF;
10632: --
10633: -- Validate hold_all_payments_flag
10647: g_login_id,
10648: 'Validate_Vendor_Site') <> TRUE) THEN
10649: --
10650: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10651: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10652: l_api_name,'Parameters: '
10653: ||' Vendor_Site_Interface_Id: '
10654: ||p_vendor_site_rec.vendor_site_interface_id
10655: ||' ,Hold_All_Payments_Flag '
10668: ------------------------------------------------------------------------
10669: l_debug_info := 'Call to Validate always_take_disc_flag';
10670: ------------------------------------------------------------------------
10671: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10672: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10673: l_api_name,l_debug_info);
10674: END IF;
10675: --
10676: -- Validate always_take_disc_flag
10690: g_login_id,
10691: 'Validate_Vendor_Site') <> TRUE) THEN
10692: --
10693: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10694: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10695: l_api_name,'Parameters: '
10696: ||' Vendor_Site_Interface_Id: '
10697: ||p_vendor_site_rec.vendor_site_interface_id
10698: ||' ,Always_Take_Disc_Flag '
10711: ------------------------------------------------------------------------
10712: l_debug_info := 'Call to Validate match_option';
10713: ------------------------------------------------------------------------
10714: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10715: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10716: l_api_name,l_debug_info);
10717: END IF;
10718: --
10719: -- Validate match_option
10734: g_login_id,
10735: 'Validate_Vendor_Site') <> TRUE) THEN
10736: --
10737: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10738: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10739: l_api_name,'Parameters: '
10740: ||' Vendor_Site_Interface_Id: '
10741: ||p_vendor_site_rec.vendor_site_interface_id
10742: ||' ,Match_Option '
10755: ------------------------------------------------------------------------
10756: l_debug_info := 'Call to Validate allow_awt_flag';
10757: ------------------------------------------------------------------------
10758: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10759: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10760: l_api_name,l_debug_info);
10761: END IF;
10762: --
10763: -- Validate allow_awt_flag
10779: g_login_id,
10780: 'Validate_Vendor_Site') <> TRUE) THEN
10781: --
10782: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10783: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10784: l_api_name,'Parameters: '
10785: ||' Vendor_Site_Interface_Id: '
10786: ||p_vendor_site_rec.vendor_site_interface_id
10787: ||' ,Allow_Awt_Flag '
10800: ------------------------------------------------------------------------
10801: l_debug_info := 'Call to Validate awt_group_id and awt_group_name';
10802: ------------------------------------------------------------------------
10803: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10804: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10805: l_api_name,l_debug_info);
10806: END IF;
10807: --
10808: -- Validate awt_group_id and awt_group_name
10831: g_login_id,
10832: 'Validate_Vendor_Site') <> TRUE) THEN
10833: --
10834: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10835: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10836: l_api_name,'Parameters: '
10837: ||' Vendor_Site_Interface_Id: '
10838: ||p_vendor_site_rec.vendor_site_interface_id
10839: ||' ,Allow_Awt_Flag '
10854: ------------------------------------------------------------------------
10855: l_debug_info := 'Call to Validate Distribution_set_Id and Distribution_set_name';
10856: ------------------------------------------------------------------------
10857: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10858: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10859: l_api_name,l_debug_info);
10860: END IF;
10861:
10862: -- Distribution_set_Id and Distribution_set_name validation
10879: g_login_id,
10880: 'Validate_Vendor_Site') <> TRUE) THEN
10881: --
10882: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10883: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10884: l_api_name,'Parameters: '
10885: ||' Vendor_Site_Interface_Id: '
10886: ||p_vendor_site_rec.vendor_site_interface_id
10887: ||' ,Distribution_Set_Id '
10904: ------------------------------------------------------------------------
10905: l_debug_info := 'Call to Validate Ship_to_location_Id and Ship_to_location_code`';
10906: ------------------------------------------------------------------------
10907: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10908: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10909: l_api_name,l_debug_info);
10910: END IF;
10911:
10912: -- Ship_to_location_Id and Ship_to_location_code validation
10929: g_login_id,
10930: 'Validate_Vendor_Site') <> TRUE) THEN
10931: --
10932: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10933: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10934: l_api_name,'Parameters: '
10935: ||' Vendor_Site_Interface_Id: '
10936: ||p_vendor_site_rec.vendor_site_interface_id
10937: ||' ,Ship_To_Location_Id '
10954: ------------------------------------------------------------------------
10955: l_debug_info := 'Call to Validate Bill_to_location_Id and Bill_to_location_code';
10956: ------------------------------------------------------------------------
10957: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10958: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
10959: l_api_name,l_debug_info);
10960: END IF;
10961:
10962: -- Bill_to_location_Id and Bill_to_location_code validation
10979: g_login_id,
10980: 'Validate_Vendor_Site') <> TRUE) THEN
10981: --
10982: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10983: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10984: l_api_name,'Parameters: '
10985: ||' Vendor_Site_Interface_Id: '
10986: ||p_vendor_site_rec.vendor_site_interface_id
10987: ||' ,Bill_To_Location_Id '
11004: ------------------------------------------------------------------------
11005: l_debug_info := 'Call to Validate supplier_notification_method';
11006: ------------------------------------------------------------------------
11007: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11008: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
11009: l_api_name,l_debug_info);
11010: END IF;
11011: --
11012: -- Validate supplier_notification_method
11027: g_login_id,
11028: 'Validate_Vendor_Site') <> TRUE) THEN
11029: --
11030: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11031: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11032: l_api_name,'Parameters: '
11033: ||' Vendor_Site_Interface_Id: '
11034: ||p_vendor_site_rec.vendor_site_interface_id
11035: ||' ,Supplier_Notif_Method: '
11048: ------------------------------------------------------------------------
11049: l_debug_info := 'Checking Tolerance_Id / Name information';
11050: ------------------------------------------------------------------------
11051: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11052: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
11053: l_api_name,l_debug_info);
11054: END IF;
11055: --bug6335105
11056: /*IF (p_vendor_site_rec.tolerance_name is NOT NULL
11076: g_login_id,
11077: 'Validate_Vendor_Site') <> TRUE) THEN
11078: --
11079: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11080: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11081: l_api_name,'Parameters: '
11082: ||' Vendor_Site_Interface_Id: '
11083: ||p_vendor_site_rec.vendor_site_interface_id
11084: ||' ,Toleranace_Id: '
11098: ------------------------------------------------------------------------
11099: l_debug_info := 'Checking Services Tolerance_Id / Name information';
11100: ------------------------------------------------------------------------
11101: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11102: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
11103: l_api_name,l_debug_info);
11104: END IF;
11105: --bug6335105
11106: /*IF (p_vendor_site_rec.services_tolerance_name is NOT NULL
11126: g_login_id,
11127: 'Validate_Vendor_Site') <> TRUE) THEN
11128: --
11129: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11130: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11131: l_api_name,'Parameters: '
11132: ||' Vendor_Site_Interface_Id: '
11133: ||p_vendor_site_rec.vendor_site_interface_id
11134: ||' ,Toleranace_Id: '
11149: ------------------------------------------------------------------------
11150: l_debug_info := 'Call to Validate retainage_rate';
11151: ------------------------------------------------------------------------
11152: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11153: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
11154: l_api_name,l_debug_info);
11155: END IF;
11156:
11157: IF p_vendor_site_rec.retainage_rate is NOT NULL THEN
11169: g_login_id,
11170: 'Validate_Vendor_Site') <> TRUE) THEN
11171: --
11172: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11173: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11174: l_api_name,'Parameters: '
11175: ||' Vendor_Site_Interface_Id: '
11176: ||p_vendor_site_rec.vendor_site_interface_id
11177: ||' ,Retainage_Rate '
11190: ------------------------------------------------------------------------
11191: l_debug_info := 'Call to Validate ship_via_lookup_code';
11192: ------------------------------------------------------------------------
11193: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11194: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
11195: l_api_name,l_debug_info);
11196: END IF;
11197: --
11198: -- Validate ship_via_lookup_code
11214: g_login_id,
11215: 'Validate_Vendor_Site') <> TRUE) THEN
11216: --
11217: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11218: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11219: l_api_name,'Parameters: '
11220: ||' Vendor_Site_Interface_Id: '
11221: ||p_vendor_site_rec.vendor_site_interface_id
11222: ||' ,Ship_Via_Lookup_Code: '
11235: ------------------------------------------------------------------------
11236: l_debug_info := 'Call to Validate tax_reporting_site_flag';
11237: ------------------------------------------------------------------------
11238: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11239: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
11240: l_api_name,l_debug_info);
11241: END IF;
11242: --
11243: -- Validate tax_reporting_site_flag
11262: g_login_id,
11263: 'Validate_Vendor_Site') <> TRUE) THEN
11264: --
11265: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11266: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11267: l_api_name,'Parameters: '
11268: ||' Vendor_Site_Interface_Id: '
11269: ||p_vendor_site_rec.vendor_site_interface_id
11270: ||' Vendor_Id: '||p_vendor_site_rec.vendor_id
11306: 'Validate_Vendor_Site') <> TRUE) THEN
11307: --
11308: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL)
11309: THEN
11310: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11311: l_api_name,'Parameters: '
11312: ||' Vendor_Site_Interface_Id: '
11313: ||p_vendor_site_rec.vendor_site_interface_id
11314: ||' Gapless Invoice Num Flag: '
11587: l_debug_info := 'After call to hz_party_v2pub.create_person';
11588: l_debug_info := l_debug_info||' Return status : '||l_per_return_status||' Error : '||l_per_msg_data;
11589: ------------------------------------------------------------------------
11590: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11591: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
11592: END IF;
11593: END IF;
11594:
11595: l_vendor_contact_rec.per_party_id := l_per_party_id;
11663: l_debug_info := 'After call to hz_party_contact_v2pub.create_org_contact';
11664: l_debug_info := l_debug_info||' Return status : '||l_org_contact_return_status||' Error : '||l_org_contact_msg_data;
11665: ------------------------------------------------------------------------
11666: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11667: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
11668: END IF;
11669: END IF;
11670:
11671: l_vendor_contact_rec.relationship_id := l_rel_id;
11709: l_debug_info := 'After call to hz_party_site_v2pub.create_party_site';
11710: l_debug_info := l_debug_info||' Return status : '||l_site_return_status||' Error : '||l_site_msg_data;
11711: ------------------------------------------------------------------------
11712: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11713: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
11714: END IF;
11715: END IF;
11716:
11717: l_vendor_contact_rec.party_site_id := l_party_site_id;
11760: l_debug_info := 'After call to hz_contact_point_v2pub.create_phone_contact_point Primary Phone';
11761: l_debug_info := l_debug_info||' Return status : '||l_phone_return_status||' Error : '||l_phone_msg_data;
11762: ------------------------------------------------------------------------
11763: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11764: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
11765: END IF;
11766: END IF;
11767:
11768:
11798: l_debug_info := 'After call to hz_contact_point_v2pub.create_phone_contact_point Alt Phone';
11799: l_debug_info := l_debug_info||' Return status : '||l_alt_phone_return_status||' Error : '||l_alt_phone_msg_data;
11800: ------------------------------------------------------------------------
11801: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11802: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
11803: END IF;
11804: END IF;
11805:
11806:
11832: l_debug_info := 'After call to hz_contact_point_v2pub.create_phone_contact_point Fax Phone';
11833: l_debug_info := l_debug_info||' Return status : '||l_fax_return_status||' Error : '||l_fax_msg_data;
11834: ------------------------------------------------------------------------
11835: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11836: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
11837: END IF;
11838: END IF;
11839:
11840: END IF; --fax phone
11863: l_debug_info := 'After call to hz_contact_point_v2pub.create_email_contact_point';
11864: l_debug_info := l_debug_info||' Return status : '||l_email_return_status||' Error : '||l_email_msg_data;
11865: ------------------------------------------------------------------------
11866: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11867: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
11868: END IF;
11869: END IF;
11870:
11871: END IF; --email
11896: l_debug_info := 'After call to hz_contact_point_v2pub.create_web_contact_point';
11897: l_debug_info := l_debug_info||' Return status : '||l_url_return_status||' Error : '||l_url_msg_data;
11898: ------------------------------------------------------------------------
11899: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11900: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
11901: END IF;
11902: END IF;
11903:
11904: END IF; --url
12300: ------------------------------------------------------------------------
12301: l_debug_info := 'Call to Validate party_site_id';
12302: ------------------------------------------------------------------------
12303: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12304: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12305: l_api_name,l_debug_info);
12306: END IF;
12307: -- Check for validity of party_site_id
12308: --
12325: g_login_id,
12326: 'Validate_Vendor_Contact') <> TRUE) THEN
12327: --
12328: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12329: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12330: l_api_name,'Parameters: '
12331: ||' Vendor_Contact_Interface_Id: '||
12332: p_vendor_contact_rec.vendor_contact_interface_id
12333: --||' Vendor_Site_Id: '||p_vendor_contact_rec.vendor_site_id
12398: g_login_id,
12399: 'Validate_Vendor_Contact') <> TRUE) THEN
12400: --
12401: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12402: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12403: l_api_name,'Parameters: '
12404: ||' Vendor_Contact_Interface_Id: '||
12405: p_vendor_contact_rec.vendor_contact_interface_id
12406: ||',Vendor_Site_Id: '||p_vendor_contact_rec.vendor_site_id
12430: g_login_id,
12431: 'Validate_Vendor_Contact') <> TRUE) THEN
12432: --
12433: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12434: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12435: l_api_name,'Parameters: '
12436: ||' Vendor_Contact_Interface_Id: '||
12437: p_vendor_contact_rec.vendor_contact_interface_id
12438: --||' Vendor_Site_Id: '||p_vendor_contact_rec.vendor_site_id
12449: -----------------------------------------------------------------------
12450: l_debug_info := 'Call to Validate party_id';
12451: --------------------------------------------------------------
12452: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12453: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12454: l_api_name,l_debug_info);
12455: END IF;
12456:
12457: -- Check for validity of party_id
12473: g_login_id,
12474: 'Validate_Vendor_Contact') <> TRUE) THEN
12475: --
12476: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12477: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12478: l_api_name,'Parameters: '
12479: ||' Vendor_Contact_Interface_Id: '||
12480: p_vendor_contact_rec.vendor_contact_interface_id
12481: --||' Vendor_Site_Id: '||p_vendor_contact_rec.vendor_site_id
12498: -----------------------------------------------------------------------
12499: l_debug_info := 'Call to Validate rel_party_id';
12500: --------------------------------------------------------------
12501: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12502: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12503: l_api_name,l_debug_info);
12504: END IF;
12505:
12506: -- Check for validity of rel_party_id
12522: g_login_id,
12523: 'Validate_Vendor_Contact') <> TRUE) THEN
12524: --
12525: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12526: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12527: l_api_name,'Parameters: '
12528: ||' Vendor_Contact_Interface_Id: '||
12529: p_vendor_contact_rec.vendor_contact_interface_id
12530: ||' Party_Site_Id: '||p_vendor_contact_rec.org_party_site_id
12549: --------------------------------------------------------------
12550: l_debug_info := 'Call to Validate relationship_id';
12551: --------------------------------------------------------------
12552: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12553: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12554: l_api_name,l_debug_info);
12555: END IF;
12556:
12557: -- Check for validity of relationship_id
12573: g_login_id,
12574: 'Validate_Vendor_Contact') <> TRUE) THEN
12575: --
12576: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12577: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12578: l_api_name,'Parameters: '
12579: ||' Vendor_Contact_Interface_Id: '||
12580: p_vendor_contact_rec.vendor_contact_interface_id
12581: ||' Vendor_Interface_Id: '||p_vendor_contact_rec.vendor_interface_id
12600: --------------------------------------------------------------
12601: l_debug_info := 'Call to Validate org_contact_id';
12602: --------------------------------------------------------------
12603: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12604: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
12605: l_api_name,l_debug_info);
12606: END IF;
12607:
12608: -- Check for validity of org_contact_id
12625: g_login_id,
12626: 'Validate_Vendor_Contact') <> TRUE) THEN
12627: --
12628: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12629: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12630: l_api_name,'Parameters: '
12631: ||' Vendor_Contact_Interface_Id: '||
12632: p_vendor_contact_rec.vendor_contact_interface_id
12633: ||' Vendor_Interface_Id: '||p_vendor_contact_rec.vendor_id
13094: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13095: FND_MSG_PUB.Count_And_Get(
13096: p_count => l_msg_count,
13097: p_data => l_msg_data);
13098: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13099: l_api_name,'Parameters: '
13100: ||' Vendor_Interface_Id: '||vendor_rec.vendor_interface_id
13101: ||' Acct Validation Msg: '||l_msg_data);
13102: END IF;
13124: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13125: FND_MSG_PUB.Count_And_Get(
13126: p_count => l_msg_count,
13127: p_data => l_msg_data);
13128: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13129: l_api_name,'Parameters: '
13130: ||' Vendor_Interface_Id: '||vendor_rec.vendor_interface_id
13131: ||' Acct Validation Msg: '||l_msg_data);
13132: END IF;
13153: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13154: FND_MSG_PUB.Count_And_Get(
13155: p_count => l_msg_count,
13156: p_data => l_msg_data);
13157: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13158: l_api_name,'Parameters: '
13159: ||' Vendor_Interface_Id: '||vendor_rec.vendor_interface_id
13160: ||' Payee Validation Msg: '||l_msg_data);
13161: END IF;
13179: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13180: FND_MSG_PUB.Count_And_Get(
13181: p_count => l_msg_count,
13182: p_data => l_msg_data);
13183: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13184: l_api_name,'Parameters: '
13185: ||' Vendor_Interface_Id: '||vendor_rec.vendor_interface_id
13186: ||' Payee Validation Msg: '||l_msg_data);
13187: END IF;
13199: SET status = 'REJECTED'
13200: WHERE vendor_interface_id = vendor_rec.vendor_interface_id;
13201:
13202: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13203: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
13204: ' Rejected Vendor_Interface_Id: '
13205: ||vendor_rec.vendor_interface_id
13206: ||', No. of Messages from Create_Vendor API: '|| l_msg_count
13207: ||', Message From Create_Vendor API: '||l_msg_data);
13724: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13725: FND_MSG_PUB.Count_And_Get(
13726: p_count => l_msg_count,
13727: p_data => l_msg_data);
13728: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13729: l_api_name,'Parameters: '
13730: ||' Vendor_Site_Interface_Id: '||site_rec.vendor_site_interface_id
13731: ||' Acct Validation Msg: '||l_msg_data);
13732: END IF;
13754: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13755: FND_MSG_PUB.Count_And_Get(
13756: p_count => l_msg_count,
13757: p_data => l_msg_data);
13758: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13759: l_api_name,'Parameters: '
13760: ||' Vendor_Site_Interface_Id: '||site_rec.vendor_site_interface_id
13761: ||' Acct Validation Msg: '||l_msg_data);
13762: END IF;
13783: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13784: FND_MSG_PUB.Count_And_Get(
13785: p_count => l_msg_count,
13786: p_data => l_msg_data);
13787: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13788: l_api_name,'Parameters: '
13789: ||' Vendor_Site_Interface_Id: '||site_rec.vendor_site_interface_id
13790: ||' Payee Validation Msg: '||l_msg_data);
13791: END IF;
13809: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13810: FND_MSG_PUB.Count_And_Get(
13811: p_count => l_msg_count,
13812: p_data => l_msg_data);
13813: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13814: l_api_name,'Parameters: '
13815: ||' Vendor_Site_Interface_Id: '||site_rec.vendor_site_interface_id
13816: ||' Payee Validation Msg: '||l_msg_data);
13817: END IF;
13830: WHERE vendor_site_interface_id =
13831: site_rec.vendor_site_interface_id;
13832:
13833: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13834: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
13835: ' Rejected Vendor_Site_Interface_Id: '
13836: ||site_rec.vendor_site_interface_id
13837: ||', No. of Messages from Create_Vendor_Site API: '|| l_msg_count
13838: ||', Message From Create_Vendor_Site API: '||l_msg_data);
14115: /*WHERE vendor_contact_interface_id =
14116: vendor_contact_rec.vendor_contact_interface_id;*/--Bug6413297
14117:
14118: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
14119: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
14120: ' Rejected Vendor_Contact_Interface_Id: '
14121: ||vendor_contact_rec.vendor_contact_interface_id
14122: ||', No. of Messages from Create_Vendor_Contact API: '|| l_msg_count
14123: ||', Message From Create_Vendor_Contact API: '||l_msg_data);
14234: -- API body
14235:
14236:
14237: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
14238: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
14239: 'Updating dffs for contact_party_id: ' || p_contact_party_id
14240: || ', org_party_site_id: '|| p_org_party_site_id);
14241: END IF;
14242:
14265:
14266: l_count := SQL%ROWCOUNT;
14267:
14268: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
14269: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
14270: ' Updated '
14271: ||l_count
14272: ||' rows.');
14273: END IF;
14283: Raise_Supplier_Event( i_vendor_contact_id => l_event_vendor_contact_id );
14284: EXCEPTION
14285: WHEN NO_DATA_FOUND OR TOO_MANY_ROWS THEN
14286: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
14287: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME || l_api_name, SQLERRM);
14288: END IF;
14289: APP_EXCEPTION.RAISE_EXCEPTION;
14290: END; -- Bug 7307669 : End
14291:
14348: || to_char(i_vendor_id) || ', i_vendor_site_id = '
14349: || to_char(i_vendor_site_id) || ', i_vendor_contact_id = '
14350: || to_char(i_vendor_contact_id);
14351: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14352: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_api_name,
14353: l_debug_info);
14354: END IF;
14355:
14356: -- If vendor_id was not passed then we should derive it based on
14395: || 'event_name = ' || l_event_name
14396: || ' event_key = ' || l_event_key ;
14397:
14398: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14399: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14400: l_debug_info);
14401: END IF;
14402:
14403: EXCEPTION
14402:
14403: EXCEPTION
14404: WHEN NO_DATA_FOUND OR TOO_MANY_ROWS THEN
14405: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
14406: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME || l_api_name,
14407: SQLERRM);
14408: END IF;
14409: APP_EXCEPTION.RAISE_EXCEPTION;
14410: WHEN OTHERS THEN