[Home] [Help]
2: /* $Header: appvndrb.pls 120.78.12010000.28 2009/02/02 11:19:33 skyadav ship $ */
3:
4: --Global constants for logging
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_VENDOR_PUB_PKG';
6: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
10: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
3:
4: --Global constants for logging
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_VENDOR_PUB_PKG';
6: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
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;
4: --Global constants for logging
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_VENDOR_PUB_PKG';
6: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
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;
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_VENDOR_PUB_PKG';
6: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
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:
6: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
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;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
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;
123:
124: IF l_count < 1 THEN
125: x_valid := FALSE;
126: FND_MESSAGE.SET_NAME('SQLGL','GL_API_INVALID_CURR');
127: FND_MSG_PUB.ADD;
128:
129: END IF;
130: END IF;
131:
161: WHEN NO_DATA_FOUND THEN
162: x_valid := FALSE;
163: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
164: FND_MESSAGE.SET_TOKEN('COLUMN_NAME', p_column_name );
165: FND_MSG_PUB.ADD;
166:
167: End;
168: ELSIF p_lookup_table = 'PO_LOOKUP_CODES' THEN
169: Begin
180: WHEN NO_DATA_FOUND THEN
181: x_valid := FALSE;
182: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
183: FND_MESSAGE.SET_TOKEN('COLUMN_NAME', p_column_name );
184: FND_MSG_PUB.ADD;
185:
186: End;
187:
188: ELSIF p_lookup_table = 'FND_LOOKUP_VALUES' THEN
199: WHEN NO_DATA_FOUND THEN
200: x_valid := FALSE;
201: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
202: FND_MESSAGE.SET_TOKEN('COLUMN_NAME', p_column_name );
203: FND_MSG_PUB.ADD;
204: End;
205:
206: END IF;
207:
245:
246: IF (l_dup_count_org_id > 0 OR l_dup_count_org_name > 0 ) THEN
247: x_valid := FALSE;
248: fnd_message.set_name('SQLAP','AP_VEN_DUPLICATE_VEN_SITE');
249: FND_MSG_PUB.ADD;
250: END IF;
251:
252: END Check_dup_vendor_site;
253:
266: x_valid := FALSE;
267: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
268: FND_MESSAGE.SET_TOKEN('ID','FEDERAL_REPORTABLE_FLAG');
269: FND_MESSAGE.SET_TOKEN('NAME','1099_TYPE');
270: FND_MSG_PUB.ADD;
271: END IF;
272:
273: END Check_Valid_1099_type;
274:
289: x_valid := FALSE;
290:
291: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
292: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','PAYMENT_PRIORITY' );
293: FND_MSG_PUB.ADD;
294: END IF;
295: END Check_Payment_Priority;
296:
297: --
317: x_valid := FALSE;
318:
319: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
320: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','EMPLOYEE_ID' );
321: FND_MSG_PUB.ADD;
322:
323: END Check_Valid_Employee;
324:
325: --
337: x_valid := FALSE;
338: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
339: FND_MESSAGE.SET_TOKEN('ID','INSPECTION_REQUIRED_FLAG');
340: FND_MESSAGE.SET_TOKEN('NAME','RECEIPT_REQUIRED_FLAG');
341: FND_MSG_PUB.ADD;
342: END IF;
343:
344: END Check_Valid_match_level;
345:
359:
360: x_valid := FALSE;
361: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
362: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','NAME_CONTROL' );
363: FND_MSG_PUB.ADD;
364: END IF;
365:
366: END Check_Valid_name_control;
367:
389: x_valid := FALSE;
390:
391: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
392: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SHIP_VIA_LOOKUP_CODE' );
393: FND_MSG_PUB.ADD;
394: END IF;
395:
396: END Check_Valid_ship_via;
397:
417: WHEN NO_DATA_FOUND THEN
418: x_valid := FALSE;
419: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
420: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SET_OF_BOOKS_ID' );
421: FND_MSG_PUB.ADD;
422: END Check_Valid_Sob_Id;
423:
424: --
425: -- Check if the Employee has already been assigned
443: IF l_count > 0 THEN
444: x_valid := FALSE;
445:
446: FND_MESSAGE.SET_NAME('SQLAP','AP_EMPLOYEE_ASSIGNED');
447: FND_MSG_PUB.ADD;
448: END IF;
449:
450: END Chk_Dup_Employee;
451:
469: IF l_count > 1 THEN
470: x_valid := FALSE;
471: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
472: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SEGMENT1' );
473: FND_MSG_PUB.ADD;
474: END IF;
475:
476: END Chk_Dup_segment1_int;
477:
499:
500: IF l_count > 1 THEN
501: x_valid := FALSE;
502: FND_MESSAGE.SET_NAME('SQLAP','AP_VEN_DUPLICATE_NAME');
503: FND_MSG_PUB.ADD;
504: END IF;
505:
506: END Chk_Dup_Vendor_Name_new;
507: Bug 6939863 */
547:
548: IF l_count > 0 THEN
549: x_valid := FALSE;
550: FND_MESSAGE.SET_NAME('SQLAP','AP_VEN_DUPLICATE_NAME');
551: FND_MSG_PUB.ADD;
552: END IF;
553:
554: END Chk_Dup_Vendor_Name_new;
555:
582:
583: IF l_count > 0 THEN
584: x_valid := FALSE;
585: FND_MESSAGE.SET_NAME('SQLAP','AP_VEN_DUPLICATE_VEN_NUM');
586: FND_MSG_PUB.ADD;
587: END IF;
588:
589: END Chk_Dup_Vendor_Number;
590:
610: WHEN NO_DATA_FOUND THEN
611: x_valid := FALSE;
612: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
613: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','RECEIVING_ROUTING_ID' );
614: FND_MSG_PUB.ADD;
615: END Chk_rcv_routing_id;
616:
617: --
618: -- This procedure should perform Other Employee Validations
634: p_valid := FALSE;
635: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
636: FND_MESSAGE.SET_TOKEN('ID','VENDOR_TYPE_LOOKUP_CODE');
637: FND_MESSAGE.SET_TOKEN('NAME','EMPLOYEE_ID');
638: FND_MSG_PUB.ADD;
639: END IF;
640:
641: END employee_type_checks;
642:
675:
676: IF (l_count = 0) THEN
677: FND_MESSAGE.SET_NAME('SQLAP','AP_API_INVALID_PAYMENT_CURR');
678: p_valid := FALSE;
679: FND_MSG_PUB.ADD;
680: END IF;
681:
682: END IF;
683:
702:
703: IF l_count < 1 THEN
704: x_valid := FALSE;
705: FND_MESSAGE.SET_NAME('SQLAP','AP_API_INVALID_IN_TAX_TYPE');
706: FND_MSG_PUB.ADD;
707: END IF;
708:
709: END Val_Income_Tax_Type;
710:
740: WHEN NO_DATA_FOUND THEN
741: x_valid := FALSE;
742: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
743: FND_MESSAGE.SET_TOKEN('COLUMN_NAME', p_column_name );
744: FND_MSG_PUB.ADD;
745: End;
746: ELSE
747: Begin
748: SELECT GCC.code_combination_id
759: WHEN NO_DATA_FOUND THEN
760: x_valid := FALSE;
761: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
762: FND_MESSAGE.SET_TOKEN('COLUMN_NAME', p_column_name );
763: FND_MSG_PUB.ADD;
764: End;
765: END IF;
766:
767: END validate_CCIDs;
812:
813: IF l_count > 0 THEN
814: x_valid := FALSE;
815: FND_MESSAGE.SET_NAME('SQLAP','AP_VEN_DUPLICATE_NAME');
816: FND_MSG_PUB.ADD;
817: END IF;
818:
819: END Chk_Dup_Vendor_Name_update;
820:
839: (p_segment1 is Null)) THEN
840: x_valid := FALSE;
841: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
842: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SEGMENT1');
843: FND_MSG_PUB.ADD;
844: ELSIF l_ven_num_code not in ('MANUAL','AUTOMATIC') then
845: x_valid := FALSE;
846: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
847: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','USER_DEFINED_VENDOR_NUM_CODE');
844: ELSIF l_ven_num_code not in ('MANUAL','AUTOMATIC') then
845: x_valid := FALSE;
846: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
847: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','USER_DEFINED_VENDOR_NUM_CODE');
848: FND_MSG_PUB.ADD;
849: END IF;
850:
851: END Chk_Null_Vendor_Number;
852:
913: IF p_country = 'US' THEN
914: IF (l_outcome = 'F') THEN
915: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
916: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','NUM_1099' );
917: FND_MSG_PUB.ADD; --bug6050423
918: l_ret_value := 'N';
919: END IF;
920: END IF;
921: IF p_country IN ('IT','ES','PT') THEN
923: THEN
924: FND_MESSAGE.SET_NAME('XLE', 'XLE_INVALID_REG_NUM_ERR');
925: FND_MESSAGE.SET_TOKEN('REG_CODE', l_registration_code);
926: FND_MESSAGE.SET_TOKEN('REG_NUM', p_taxpayer_id);
927: FND_MSG_PUB.ADD; --bug6050423
928: l_ret_value := 'N'; --bug6050423
929: END IF;
930: END IF;
931:
954:
955: x_valid := FALSE;
956: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
957: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SEGMENT1' );
958: FND_MSG_PUB.ADD;
959: END IF;
960:
961: END Check_valid_vendor_num;
962:
973: IF p_match_option not IN ('P','R') THEN
974: x_valid := FALSE;
975: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
976: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','MATCH_OPTION' );
977: FND_MSG_PUB.ADD;
978: END IF;
979:
980: END Check_Valid_Match_Option;
981:
1000: AND p_allow_awt_flag = 'Y' THEN
1001: x_valid := FALSE;
1002: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1003: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','ALLOW_AWT_FLAG' );
1004: FND_MSG_PUB.ADD;
1005: END IF;
1006:
1007: END Chk_allow_awt_flag;
1008:
1029: x_valid := FALSE;
1030: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
1031: FND_MESSAGE.SET_TOKEN('ID','ALLOW_AWT_FLAG');
1032: FND_MESSAGE.SET_TOKEN('NAME','AWT_GROUP_ID');
1033: FND_MSG_PUB.ADD;
1034: Elsif p_awt_name is NOT NULL Then
1035:
1036: x_valid := FALSE;
1037: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
1036: x_valid := FALSE;
1037: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
1038: FND_MESSAGE.SET_TOKEN('ID','ALLOW_AWT_FLAG');
1039: FND_MESSAGE.SET_TOKEN('NAME','AWT_GROUP_NAME');
1040: FND_MSG_PUB.ADD;
1041: End If;
1042:
1043: END;
1044:
1056: WHEN NO_DATA_FOUND THEN
1057: x_valid := FALSE;
1058: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1059: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','AWT_GROUP_ID' );
1060: FND_MSG_PUB.ADD;
1061: END;
1062:
1063: ELSIF (p_allow_awt_flag = 'Y' and (p_awt_id is NOT NULL and p_awt_name is NOT NULL)) THEN
1064: BEGIN
1076: x_valid := FALSE;
1077: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_NOT_MATCHED');
1078: FND_MESSAGE.SET_TOKEN('ID','AWT_GROUP_ID');
1079: FND_MESSAGE.SET_TOKEN('NAME','AWT_GROUP_NAME');
1080: FND_MSG_PUB.ADD;
1081: END;
1082:
1083: ELSIF (p_allow_awt_flag = 'Y' and (p_awt_id is NULL and p_awt_name is NOT NULL)) THEN
1084: BEGIN
1094: WHEN NO_DATA_FOUND THEN
1095: x_valid := FALSE;
1096: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1097: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','AWT_GROUP_NAME' );
1098: FND_MSG_PUB.ADD;
1099: END;
1100:
1101: END IF;
1102:
1125: x_valid := FALSE;
1126:
1127: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1128: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','HOLD_BY' );
1129: FND_MSG_PUB.ADD;
1130: END Check_Valid_Hold_by;
1131:
1132: --
1133: -- Check that terms_id and terms_name are in sync.
1163: x_valid := FALSE;
1164:
1165: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1166: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','TERMS_ID' );
1167: FND_MSG_PUB.ADD;
1168: END;
1169:
1170: ELSIF (p_terms_id is NOT NULL and p_terms_name is NOT NULL) THEN
1171: BEGIN
1184:
1185: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_NOT_MATCHED');
1186: FND_MESSAGE.SET_TOKEN('ID','TERMS_ID');
1187: FND_MESSAGE.SET_TOKEN('NAME','TERMS_NAME');
1188: FND_MSG_PUB.ADD;
1189: END;
1190:
1191: ELSIF (p_terms_id is NULL and p_terms_name is NOT NULL) THEN
1192: BEGIN
1203: x_valid := FALSE;
1204:
1205: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1206: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','TERMS_NAME' );
1207: FND_MSG_PUB.ADD;
1208: END;
1209:
1210: END IF;
1211:
1246:
1247: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_NOT_MATCHED');
1248: FND_MESSAGE.SET_TOKEN('ID','DISTRIBUTION_SET_ID');
1249: FND_MESSAGE.SET_TOKEN('NAME','DISTRIBUTION_SET_NAME');
1250: FND_MSG_PUB.ADD;
1251: END;
1252:
1253: ELSIF p_dist_id is NULL and p_dist_name is NOT NULL THEN
1254: BEGIN
1264: x_valid := FALSE;
1265:
1266: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1267: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','DISTRIBUTION_SET_NAME' );
1268: FND_MSG_PUB.ADD;
1269: END;
1270:
1271: ELSIF p_dist_id is NOT NULL and p_dist_name is NULL THEN
1272: BEGIN
1282: x_valid := FALSE;
1283:
1284: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1285: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','DISTRIBUTION_SET_ID' );
1286: FND_MSG_PUB.ADD;
1287: END;
1288:
1289: END IF;
1290:
1330: x_valid := FALSE;
1331:
1332: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1333: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SHIP_TO_LOCATION_ID' );
1334: FND_MSG_PUB.ADD;
1335: END;
1336:
1337: ELSIF (p_ship_location_id is NOT NULL and p_ship_location_code is NOT NULL) THEN
1338: BEGIN
1355:
1356: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_NOT_MATCHED');
1357: FND_MESSAGE.SET_TOKEN('ID','SHIP_TO_LOCATION_ID');
1358: FND_MESSAGE.SET_TOKEN('NAME','SHIP_TO_LOCATION_CODE');
1359: FND_MSG_PUB.ADD;
1360: END;
1361:
1362: ELSIF (p_ship_location_id is NULL and p_ship_location_code is NOT NULL) THEN
1363: BEGIN
1378: x_valid := FALSE;
1379:
1380: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1381: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SHIP_TO_LOCATION_CODE' );
1382: FND_MSG_PUB.ADD;
1383: END;
1384:
1385: END IF;
1386:
1424: x_valid := FALSE;
1425:
1426: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1427: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','BILL_TO_LOCATION_ID' );
1428: FND_MSG_PUB.ADD;
1429: END;
1430:
1431: ELSIF p_bill_location_id is NOT NULL and p_bill_location_code is NOT NULL THEN
1432:
1450:
1451: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_NOT_MATCHED');
1452: FND_MESSAGE.SET_TOKEN('ID','BILL_TO_LOCATION_ID');
1453: FND_MESSAGE.SET_TOKEN('NAME','BILL_TO_LOCATION_CODE');
1454: FND_MSG_PUB.ADD;
1455: END;
1456:
1457: ELSIF p_bill_location_id is NULL and p_bill_location_code is NOT NULL THEN
1458:
1474: x_valid := FALSE;
1475:
1476: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1477: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','BILL_TO_LOCATION_CODE' );
1478: FND_MSG_PUB.ADD;
1479: END;
1480:
1481: END IF;
1482:
1511: x_valid := FALSE;
1512:
1513: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1514: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','DEFAULT_PAY_SITE_ID' );
1515: FND_MSG_PUB.ADD;
1516: END Check_Default_pay_site;
1517:
1518: --
1519: -- This procedure should ensure the value for 'state' exists on the
1534: AND sysdate < nvl(inactive_date,sysdate+1);
1535:
1536: IF (l_count = 0) THEN
1537: FND_MESSAGE.SET_NAME('SQLAP','AP_API_INVALID_STATE');
1538: FND_MSG_PUB.ADD;
1539: p_valid := FALSE;
1540: END IF;
1541:
1542: END state_valid;
1590: END IF;
1591: ELSE
1592: -- Bug 5491139 hkaniven start --
1593: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_ORG_INFO');
1594: FND_MSG_PUB.ADD;
1595: -- Bug 5491139 hkaniven end --
1596: END IF;
1597: END;
1598:
1628: END IF;
1629: ELSE
1630: -- Bug 5491139 hkaniven start --
1631: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_ORG_INFO');
1632: FND_MSG_PUB.ADD;
1633: -- Bug 5491139 hkaniven end --
1634: END IF;
1635: END;
1636:
1666: END IF;
1667: ELSE
1668: -- Bug 5491139 hkaniven start --
1669: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_ORG_INFO');
1670: FND_MSG_PUB.ADD;
1671: -- Bug 5491139 hkaniven end --
1672: END IF;
1673: END;
1674: END IF;
1714: x_valid := FALSE;
1715: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
1716: FND_MESSAGE.SET_TOKEN('ID','PAY_ON_CODE');
1717: FND_MESSAGE.SET_TOKEN('NAME','PAY_ON_RECEIPT_SUMMARY_CODE');
1718: FND_MSG_PUB.ADD;
1719: END Check_pay_on_rec_sum_code;
1720:
1721: --
1722: -- Check if the Shipping_Control value is valid
1734: x_valid := FALSE;
1735:
1736: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1737: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SHIPPING_CONTROL' );
1738: FND_MSG_PUB.ADD;
1739: END IF;
1740:
1741: END Check_Shipping_Control;
1742:
1767: x_valid := FALSE;
1768: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
1769: FND_MESSAGE.SET_TOKEN('ID','PAY_ON_CODE');
1770: FND_MESSAGE.SET_TOKEN('NAME','PURCHASING_SITE_FLAG');
1771: FND_MSG_PUB.ADD;
1772: ELSIF (nvl(p_purchasing_site_flag,'N') = 'Y') THEN
1773:
1774: If p_pay_on_code IN ('RECEIPT','USE','RECEIPT_AND_USE') Then
1775: l_dummy := 'Y';
1779: IF l_dummy = 'N' THEN
1780: x_valid := FALSE;
1781: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1782: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','PAY_ON_CODE' );
1783: FND_MSG_PUB.ADD;
1784: ELSIF (p_pay_site_flag = 'N' and l_default_pay_site_id IS NULL) THEN
1785: x_valid := FALSE;
1786: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
1787: FND_MESSAGE.SET_TOKEN('ID','PAY_ON_CODE');
1785: x_valid := FALSE;
1786: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
1787: FND_MESSAGE.SET_TOKEN('ID','PAY_ON_CODE');
1788: FND_MESSAGE.SET_TOKEN('NAME','PAY_SITE_FLAG');
1789: FND_MSG_PUB.ADD;
1790: END IF;
1791:
1792: END IF;
1793:
1818: );
1819:
1820: IF (l_count = 0) THEN
1821: FND_MESSAGE.SET_NAME('SQLAP','AP_API_INVALID_RECPT_SUMM');
1822: FND_MSG_PUB.ADD;
1823: p_valid := FALSE;
1824: END IF;
1825:
1826: END pay_on_receipt_summary_valid;
2046: IF (l_dummy_1 > 0 or l_dummy_2 > 1) THEN
2047: x_valid := FALSE;
2048: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2049: FND_MESSAGE.SET_TOKEN('COLUMN_NAME', p_column_name );
2050: FND_MSG_PUB.ADD;
2051: END IF;
2052:
2053: End;
2054: ELSIF p_column_name = 'TAX_REPORTING_SITE_FLAG' THEN
2073: IF (l_dummy_1 > 0 or l_dummy_2 > 1) THEN
2074: x_valid := FALSE;
2075: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2076: FND_MESSAGE.SET_TOKEN('COLUMN_NAME', p_column_name );
2077: FND_MSG_PUB.ADD;
2078: END IF;
2079:
2080: END IF;
2081:
2099: WHERE territory_code = p_country_of_origin_code;
2100:
2101: IF (l_count = 0) THEN
2102: FND_MESSAGE.SET_NAME('SQLAP','AP_API_INVALID_COUNTRY_OF_ORIG');
2103: FND_MSG_PUB.ADD;
2104:
2105: p_valid := FALSE;
2106: END IF;
2107:
2131: IF (p_selling_company_identifier IS NULL OR
2132: p_selling_company_identifier = ap_null_char) THEN
2133: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2134: FND_MESSAGE.SET_TOKEN('COLUMN_NAME', l_column_name);
2135: FND_MSG_PUB.ADD;
2136: p_valid := FALSE;
2137: END IF;
2138: END IF;
2139:
2148:
2149: IF l_vendor_count > 0 THEN
2150: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2151: FND_MESSAGE.SET_TOKEN('COLUMN_NAME', l_column_name);
2152: FND_MSG_PUB.ADD;
2153: p_valid := FALSE;
2154: END IF;
2155:
2156: END IF;
2172: x_valid := FALSE;
2173:
2174: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2175: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SUPPLIER_NOTIF_METHOD' );
2176: FND_MSG_PUB.ADD;
2177: END IF;
2178:
2179: END Check_Valid_Sup_Notif_Method;
2180:
2258:
2259: IF p_tolerance_type = 'QUANTITY' THEN
2260: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2261: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','TOLERANCE_ID' );
2262: FND_MSG_PUB.ADD;
2263: ELSE
2264: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2265: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SERVICES_TOLERANCE_ID' );
2266: FND_MSG_PUB.ADD;
2262: FND_MSG_PUB.ADD;
2263: ELSE
2264: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2265: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SERVICES_TOLERANCE_ID' );
2266: FND_MSG_PUB.ADD;
2267: END IF;
2268: END;
2269:
2270: ELSIF (p_tolerance_id is NOT NULL and p_tolerance_name is NOT NULL) THEN
2283: IF p_tolerance_type = 'QUANTITY' THEN
2284: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_NOT_MATCHED');
2285: FND_MESSAGE.SET_TOKEN('ID','TOLERANCE_ID');
2286: FND_MESSAGE.SET_TOKEN('NAME','TOLERANCE_NAME');
2287: FND_MSG_PUB.ADD;
2288: ELSE
2289: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_NOT_MATCHED');
2290: FND_MESSAGE.SET_TOKEN('ID','SERVICES_TOLERANCE_ID');
2291: FND_MESSAGE.SET_TOKEN('NAME','SERVICES_TOLERANCE_NAME');
2288: ELSE
2289: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_NOT_MATCHED');
2290: FND_MESSAGE.SET_TOKEN('ID','SERVICES_TOLERANCE_ID');
2291: FND_MESSAGE.SET_TOKEN('NAME','SERVICES_TOLERANCE_NAME');
2292: FND_MSG_PUB.ADD;
2293: END IF;
2294: END;
2295:
2296: ELSIF (p_tolerance_id is NULL and p_tolerance_name is NOT NULL) THEN
2306: x_valid := FALSE;
2307: IF p_tolerance_type = 'QUANTITY' THEN
2308: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2309: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','TOLERANCE_NAME' );
2310: FND_MSG_PUB.ADD;
2311: ELSE
2312: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2313: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SERVICES_TOLERANCE_NAME' );
2314: FND_MSG_PUB.ADD;
2310: FND_MSG_PUB.ADD;
2311: ELSE
2312: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2313: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SERVICES_TOLERANCE_NAME' );
2314: FND_MSG_PUB.ADD;
2315: END IF;
2316: END;
2317: END IF;
2318:
2344: x_valid := FALSE;
2345:
2346: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2347: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SHIP_VIA_LOOKUP_CODE' );
2348: FND_MSG_PUB.ADD;
2349: END Check_Site_Ship_Via;
2350:
2351: --
2352: -- Check if the party_id is valid
2372: x_valid := FALSE;
2373:
2374: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2375: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','PARTY_ID' );
2376: FND_MSG_PUB.ADD;
2377:
2378: IF x_valid = TRUE THEN
2379: --check usage status
2380: SELECT count(party_id)
2388: x_valid := FALSE;
2389:
2390: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2391: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','PARTY_ID' );
2392: FND_MSG_PUB.ADD;
2393: END IF;
2394: END IF;
2395:
2396: END Check_Valid_Party_Id;
2418: x_valid := FALSE;
2419:
2420: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2421: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','LOCATION_ID' );
2422: FND_MSG_PUB.ADD;
2423: END IF;
2424:
2425: END Check_Valid_Location_Id;
2426:
2446: x_valid := FALSE;
2447:
2448: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2449: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','PARTY_SITE_ID' );
2450: FND_MSG_PUB.ADD;
2451: END IF;
2452:
2453:
2454: END Check_Valid_Party_Site_Id;
2478: x_valid := FALSE;
2479:
2480: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2481: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','RELATIONSHIP_ID' );
2482: FND_MSG_PUB.ADD;
2483:
2484: END Check_Valid_Relationship_Id;
2485:
2486: --
2507: x_valid := FALSE;
2508:
2509: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2510: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','ORG_CONTACT_ID' );
2511: FND_MSG_PUB.ADD;
2512:
2513: END Check_Valid_Org_Contact_Id;
2514:
2515: -- This procedure for Import functionality from 11i
2555: END IF;
2556: ELSE
2557: -- Bug 5491139 hkaniven start --
2558: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_VENDOR_SITE_ID');
2559: FND_MSG_PUB.ADD;
2560: -- Bug 5491139 hkaniven end --
2561: END IF;
2562: -- Trap unknown errors
2563: WHEN OTHERS THEN
2638: END IF;
2639: ELSE
2640: -- Bug 5491139 hkaniven start --
2641: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_VENDOR_SITE_CODE');
2642: FND_MSG_PUB.ADD;
2643: -- Bug 5491139 hkaniven end --
2644: END IF;
2645: END;
2646:
2681: END IF;
2682: ELSE
2683: -- Bug 5491139 hkaniven start --
2684: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_VENDOR_SITE_CODE');
2685: FND_MSG_PUB.ADD;
2686: -- Bug 5491139 hkaniven end --
2687: END IF;
2688: END;
2689:
2826: x_valid := FALSE;
2827:
2828: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2829: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','DUNS_NUMBER' );
2830: FND_MSG_PUB.ADD;
2831: END Chk_new_duns_number;
2832:
2833:
2834: -----------------------------------------------------------------------------
2860: WHEN e_apps_exception THEN
2861: x_valid := FALSE;
2862:
2863: FND_MESSAGE.SET_NAME('SQLAP','AP_CCR_NO_UPDATE');
2864: FND_MSG_PUB.ADD;
2865: END update_supplier_JFMIP_checks;
2866:
2867:
2868: -----------------------------------------------------------------------------
2904: -- Trap validation error
2905: WHEN e_apps_exception THEN
2906: x_valid := FALSE;
2907: FND_MESSAGE.SET_NAME('SQLAP','AP_CCR_NO_UPDATE');
2908: FND_MSG_PUB.ADD;
2909:
2910: END Chk_update_site_ccr_values;
2911:
2912:
3065: END IF;
3066:
3067: -- Initialize message list if p_init_msg_list is set to TRUE.
3068: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3069: FND_MSG_PUB.initialize;
3070: END IF;
3071:
3072: -- Initialize API return status to success
3073: x_return_status := FND_API.G_RET_STS_SUCCESS;
3472: END IF;
3473:
3474: -- Standard call to get message count and if count is 1,
3475: -- get message info.
3476: FND_MSG_PUB.Count_And_Get(
3477: p_count => x_msg_count ,
3478: p_data => x_msg_data
3479: );
3480:
3481: EXCEPTION
3482: WHEN FND_API.G_EXC_ERROR THEN
3483: ROLLBACK TO Create_Vendor_PUB;
3484: x_return_status := FND_API.G_RET_STS_ERROR ;
3485: FND_MSG_PUB.Count_And_Get
3486: ( p_count => x_msg_count,
3487: p_data => x_msg_data
3488: );
3489: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3488: );
3489: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3490: ROLLBACK TO Create_Vendor_PUB;
3491: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3492: FND_MSG_PUB.Count_And_Get
3493: ( p_count => x_msg_count,
3494: p_data => x_msg_data
3495: );
3496: WHEN OTHERS THEN
3495: );
3496: WHEN OTHERS THEN
3497: ROLLBACK TO Create_Vendor_PUB;
3498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3499: IF FND_MSG_PUB.Check_Msg_Level
3500: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3501: FND_MSG_PUB.Add_Exc_Msg
3502: ( G_PKG_NAME ,
3503: l_api_name
3496: WHEN OTHERS THEN
3497: ROLLBACK TO Create_Vendor_PUB;
3498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3499: IF FND_MSG_PUB.Check_Msg_Level
3500: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3501: FND_MSG_PUB.Add_Exc_Msg
3502: ( G_PKG_NAME ,
3503: l_api_name
3504: );
3497: ROLLBACK TO Create_Vendor_PUB;
3498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3499: IF FND_MSG_PUB.Check_Msg_Level
3500: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3501: FND_MSG_PUB.Add_Exc_Msg
3502: ( G_PKG_NAME ,
3503: l_api_name
3504: );
3505: END IF;
3502: ( G_PKG_NAME ,
3503: l_api_name
3504: );
3505: END IF;
3506: FND_MSG_PUB.Count_And_Get
3507: ( p_count => x_msg_count,
3508: p_data => x_msg_data
3509: );
3510: END Create_Vendor;
3562: END IF;
3563:
3564: -- Initialize message list if p_init_msg_list is set to TRUE.
3565: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3566: FND_MSG_PUB.initialize;
3567: END IF;
3568:
3569: -- Initialize API return status to success
3570: x_return_status := FND_API.G_RET_STS_SUCCESS;
4158: END IF;
4159:
4160: -- Standard call to get message count and if count is 1,
4161: -- get message info.
4162: FND_MSG_PUB.Count_And_Get(
4163: p_count => x_msg_count ,
4164: p_data => x_msg_data
4165: );
4166:
4167: EXCEPTION
4168: WHEN FND_API.G_EXC_ERROR THEN
4169: ROLLBACK TO Update_Vendor_PUB;
4170: x_return_status := FND_API.G_RET_STS_ERROR ;
4171: FND_MSG_PUB.Count_And_Get
4172: ( p_count => x_msg_count,
4173: p_data => x_msg_data
4174: );
4175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4174: );
4175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4176: ROLLBACK TO Update_Vendor_PUB;
4177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4178: FND_MSG_PUB.Count_And_Get
4179: ( p_count => x_msg_count,
4180: p_data => x_msg_data
4181: );
4182: WHEN OTHERS THEN
4181: );
4182: WHEN OTHERS THEN
4183: ROLLBACK TO Update_Vendor_PUB;
4184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4185: IF FND_MSG_PUB.Check_Msg_Level
4186: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4187: FND_MSG_PUB.Add_Exc_Msg
4188: ( G_PKG_NAME ,
4189: l_api_name
4182: WHEN OTHERS THEN
4183: ROLLBACK TO Update_Vendor_PUB;
4184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4185: IF FND_MSG_PUB.Check_Msg_Level
4186: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4187: FND_MSG_PUB.Add_Exc_Msg
4188: ( G_PKG_NAME ,
4189: l_api_name
4190: );
4183: ROLLBACK TO Update_Vendor_PUB;
4184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4185: IF FND_MSG_PUB.Check_Msg_Level
4186: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4187: FND_MSG_PUB.Add_Exc_Msg
4188: ( G_PKG_NAME ,
4189: l_api_name
4190: );
4191: END IF;
4188: ( G_PKG_NAME ,
4189: l_api_name
4190: );
4191: END IF;
4192: FND_MSG_PUB.Count_And_Get
4193: ( p_count => x_msg_count,
4194: p_data => x_msg_data
4195: );
4196: END Update_Vendor;
4240: END IF;
4241:
4242: -- Initialize message list if p_init_msg_list is set to TRUE.
4243: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4244: FND_MSG_PUB.initialize;
4245: END IF;
4246:
4247: -- Initialize API return status to success
4248: x_return_status := FND_API.G_RET_STS_SUCCESS;
4285: END IF;
4286: ELSE
4287: -- Bug 5491139 hkaniven start --
4288: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_INSP_REQ_FLAG');
4289: FND_MSG_PUB.ADD;
4290: -- Bug 5491139 hkaniven end --
4291: END IF;
4292: END IF;
4293: END IF;
4327:
4328: ELSE
4329: -- Bug 5491139 hkaniven start --
4330: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_REC_REQ_FLAG');
4331: FND_MSG_PUB.ADD;
4332: -- Bug 5491139 hkaniven end --
4333: END IF;
4334: END IF;
4335: END IF;
4370: END IF;
4371: ELSE
4372: -- Bug 5491139 hkaniven start --
4373: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAYMENT_PRIORITY');
4374: FND_MSG_PUB.ADD;
4375: -- Bug 5491139 hkaniven end --
4376: END IF;
4377: END IF;
4378: END IF;
4414: END IF;
4415: ELSE
4416: -- Bug 5491139 hkaniven start --
4417: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_1099_TYPE');
4418: FND_MSG_PUB.ADD;
4419: -- Bug 5491139 hkaniven end --
4420: END IF;
4421: END IF;
4422: END IF;
4479: END IF;
4480:
4481: ELSE
4482: FND_MESSAGE.SET_NAME('SQLAP','AP_DEFAULT_COUNTRY_CODE_NULL');
4483: FND_MSG_PUB.ADD;
4484: END IF;
4485:
4486: -- End of Bug 6852552
4487:
4519: END IF;
4520: END IF;
4521: ELSE
4522: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_TAXPAYER_ID');
4523: FND_MSG_PUB.ADD;
4524: END IF;
4525: END IF;
4526: END IF;
4527:
4559: END IF;
4560: END IF;
4561: ELSE
4562: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_EMPLOYEE_ID');
4563: FND_MSG_PUB.ADD;
4564: END IF;
4565: END IF;
4566: -- end added by abhsaxen for bug 7147735
4567: IF p_vendor_rec.employee_id is NOT NULL
4588: END IF;
4589: ELSE
4590: -- Bug 5491139 hkaniven start --
4591: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_EMPLOYEE_ID');
4592: FND_MSG_PUB.ADD;
4593: -- Bug 5491139 hkaniven end --
4594: END IF;
4595: END IF;
4596: -- start added by abhsaxen for bug 7147735
4624: END IF;
4625: END IF;
4626: ELSE
4627: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_EMPLOYEE_ID');
4628: FND_MSG_PUB.ADD;
4629: END IF;
4630: END;
4631: -- end added by abhsaxen for bug 7147735
4632: END IF;
4672: END IF;
4673: ELSE
4674: -- Bug 5491139 hkaniven start --
4675: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_INSPEC_RECEIPT');
4676: FND_MSG_PUB.ADD;
4677: -- Bug 5491139 hkaniven end --
4678: END IF;
4679: END IF;
4680: END IF;
4713: END IF;
4714: ELSE
4715: -- Bug 5491139 hkaniven start --
4716: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_NAME_CONTROL');
4717: FND_MSG_PUB.ADD;
4718: -- Bug 5491139 hkaniven end --
4719: END IF;
4720: END IF;
4721: END IF;
4762: END IF;
4763: ELSE
4764: -- Bug 5491139 hkaniven start --
4765: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_SHIP_INVENTORY');
4766: FND_MSG_PUB.ADD;
4767: -- Bug 5491139 hkaniven end --
4768: END IF;
4769: END IF;
4770: END IF;
4805: END IF;
4806: ELSE
4807: -- Bug 5491139 hkaniven start --
4808: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SOB');
4809: FND_MSG_PUB.ADD;
4810: -- Bug 5491139 hkaniven end --
4811: END IF;
4812: END IF;
4813: END IF;
4869: END IF;
4870: ELSE
4871: -- Bug 5491139 hkaniven start --
4872: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SEGMENT1_INT');
4873: FND_MSG_PUB.ADD;
4874: -- Bug 5491139 hkaniven end --
4875: END IF;
4876: END IF;
4877: END IF;
4970: END IF;
4971: ELSE
4972: -- Bug 5491139 hkaniven start --
4973: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_RCV_ROUTING');
4974: FND_MSG_PUB.ADD;
4975: -- Bug 5491139 hkaniven end --
4976: END IF;
4977: END IF;
4978: END IF;
5019: ELSE
5020:
5021: -- Bug 5491139 hkaniven start --
5022: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_VENDOR_TYPE');
5023: FND_MSG_PUB.ADD;
5024: -- Bug 5491139 hkaniven end --
5025:
5026: END IF;
5027: END IF;
5060: ELSE
5061:
5062: -- Bug 5491139 hkaniven start --
5063: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_INV_CURRENCY');
5064: FND_MSG_PUB.ADD;
5065: -- Bug 5491139 hkaniven end --
5066:
5067: END IF;
5068: END IF;
5102: ELSE
5103:
5104: -- Bug 5491139 hkaniven start --
5105: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_CURRENCY');
5106: FND_MSG_PUB.ADD;
5107: -- Bug 5491139 hkaniven end --
5108:
5109: END IF;
5110: END IF;
5145: ELSE
5146:
5147: -- Bug 5491139 hkaniven start --
5148: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_TYPE_1099');
5149: FND_MSG_PUB.ADD;
5150: -- Bug 5491139 hkaniven end --
5151:
5152: END IF;
5153: END IF;
5216:
5217: ELSE
5218:
5219: FND_MESSAGE.SET_NAME('SQLAP','AP_CANT_UPDATE_CCR_VENDOR');
5220: FND_MSG_PUB.ADD;
5221:
5222: END IF;
5223: END IF;
5224:
5315: ELSE
5316:
5317: -- Bug 5491139 hkaniven start --
5318: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAYEE');
5319: FND_MSG_PUB.ADD;
5320: -- Bug 5491139 hkaniven end --
5321:
5322: END IF;
5323: END IF;
5362: ELSE
5363:
5364: -- Bug 5491139 hkaniven start --
5365: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PARTY_ID');
5366: FND_MSG_PUB.ADD;
5367: -- Bug 5491139 hkaniven end --
5368:
5369: END IF;
5370: ELSE
5413: ELSE
5414:
5415: -- Bug 5491139 hkaniven start --
5416: FND_MESSAGE.SET_NAME('SQLAP','AP_NULL_VENDOR_NUMBER');
5417: FND_MSG_PUB.ADD;
5418: -- Bug 5491139 hkaniven end --
5419:
5420: END IF;
5421: END IF;
5463: ELSE
5464:
5465: -- Bug 5491139 hkaniven start --
5466: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_ONE_TIME_FLAG');
5467: FND_MSG_PUB.ADD;
5468: -- Bug 5491139 hkaniven end --
5469:
5470: END IF;
5471: END IF;
5508: END IF;
5509: ELSE
5510: -- Bug 5491139 hkaniven start --
5511: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SUMMARY_FLAG');
5512: FND_MSG_PUB.ADD;
5513: -- Bug 5491139 hkaniven end --
5514: END IF;
5515: END IF;
5516: END IF;
5552: END IF;
5553: ELSE
5554: -- Bug 5491139 hkaniven start --
5555: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_ENABLED_FLAG');
5556: FND_MSG_PUB.ADD;
5557: -- Bug 5491139 hkaniven end --
5558: END IF;
5559: END IF;
5560: END IF;
5597: END IF;
5598: ELSE
5599: -- Bug 5491139 hkaniven start --
5600: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_VENDOR_TYPE');
5601: FND_MSG_PUB.ADD;
5602: -- Bug 5491139 hkaniven end --
5603: END IF;
5604: END IF;
5605: END IF;
5642: END IF;
5643: ELSE
5644: -- Bug 5491139 hkaniven start --
5645: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_DATE_BASIS');
5646: FND_MSG_PUB.ADD;
5647: -- Bug 5491139 hkaniven end --
5648: END IF;
5649: END IF;
5650: END IF;
5686: END IF;
5687: ELSE
5688: -- Bug 5491139 hkaniven start --
5689: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_GROUP');
5690: FND_MSG_PUB.ADD;
5691: -- Bug 5491139 hkaniven end --
5692:
5693: END IF;
5694: END IF;
5733: END IF;
5734: ELSE
5735: -- Bug 5491139 hkaniven start --
5736: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_ORG_TYPE');
5737: FND_MSG_PUB.ADD;
5738: -- Bug 5491139 hkaniven end --
5739: END IF;
5740: END IF;
5741: END IF;
5778: END IF;
5779: ELSE
5780: -- Bug 5491139 hkaniven start --
5781: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_MINORITY_GROUP');
5782: FND_MSG_PUB.ADD;
5783: -- Bug 5491139 hkaniven end --
5784: END IF;
5785: END IF;
5786: END IF;
5823: END IF;
5824: ELSE
5825: -- Bug 5491139 hkaniven start --
5826: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_TERMS_DATE');
5827: FND_MSG_PUB.ADD;
5828: -- Bug 5491139 hkaniven end --
5829: END IF;
5830: END IF;
5831: END IF;
5868: END IF;
5869: ELSE
5870: -- Bug 5491139 hkaniven start --
5871: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_QTY_RCV_OPTION');
5872: FND_MSG_PUB.ADD;
5873: -- Bug 5491139 hkaniven end --
5874: END IF;
5875: END IF;
5876: END IF;
5913: END IF;
5914: ELSE
5915: -- Bug 5491139 hkaniven start --
5916: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SHIP_RCV_OPTION');
5917: FND_MSG_PUB.ADD;
5918: -- Bug 5491139 hkaniven end --
5919: END IF;
5920: END IF;
5921: END IF;
5958: END IF;
5959: ELSE
5960: -- Bug 5491139 hkaniven start --
5961: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_REC_RCV_OPTION');
5962: FND_MSG_PUB.ADD;
5963: -- Bug 5491139 hkaniven end --
5964: END IF;
5965: END IF;
5966: END IF;
6003: END IF;
6004: ELSE
6005: -- Bug 5491139 hkaniven start --
6006: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_DEBIT_MEMO');
6007: FND_MSG_PUB.ADD;
6008: -- Bug 5491139 hkaniven end --
6009: END IF;
6010: END IF;
6011: END IF;
6048: END IF;
6049: ELSE
6050: -- Bug 5491139 hkaniven start --
6051: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_FED_REPORTABLE');
6052: FND_MSG_PUB.ADD;
6053: -- Bug 5491139 hkaniven end --
6054: END IF;
6055: END IF;
6056: END IF;
6093: END IF;
6094: ELSE
6095: -- Bug 5491139 hkaniven start --
6096: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_STATE_REPORTABLE');
6097: FND_MSG_PUB.ADD;
6098: -- Bug 5491139 hkaniven end --
6099: END IF;
6100: END IF;
6101: END IF;
6138: END IF;
6139: ELSE
6140: -- Bug 5491139 hkaniven start --
6141: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_CALC_INT');
6142: FND_MSG_PUB.ADD;
6143: -- Bug 5491139 hkaniven end --
6144: END IF;
6145: END IF;
6146: END IF;
6183: END IF;
6184: ELSE
6185: -- Bug 5491139 hkaniven start --
6186: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_EXC_FR_DISC');
6187: FND_MSG_PUB.ADD;
6188: -- Bug 5491139 hkaniven end --
6189: END IF;
6190: END IF;
6191: END IF;
6228: END IF;
6229: ELSE
6230: -- Bug 5491139 hkaniven start --
6231: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_HOLD_UNMAT_INV');
6232: FND_MSG_PUB.ADD;
6233: -- Bug 5491139 hkaniven end --
6234: END IF;
6235: END IF;
6236: END IF;
6273: END IF;
6274: ELSE
6275: -- Bug 5491139 hkaniven start --
6276: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_UNORD_RCV');
6277: FND_MSG_PUB.ADD;
6278: -- Bug 5491139 hkaniven end --
6279: END IF;
6280: END IF;
6281: END IF;
6319: END IF;
6320: ELSE
6321: -- Bug 5491139 hkaniven start --
6322: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SUB_RCV');
6323: FND_MSG_PUB.ADD;
6324: -- Bug 5491139 hkaniven end --
6325: END IF;
6326: END IF;
6327: END IF;
6364: END IF;
6365: ELSE
6366: -- Bug 5491139 hkaniven start --
6367: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_HOLD');
6368: FND_MSG_PUB.ADD;
6369: -- Bug 5491139 hkaniven end --
6370: END IF;
6371: END IF;
6372: END IF;
6409: END IF;
6410: ELSE
6411: -- Bug 5491139 hkaniven start --
6412: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SMALL_BUSINESS');
6413: FND_MSG_PUB.ADD;
6414: -- Bug 5491139 hkaniven end --
6415: END IF;
6416: END IF;
6417: END IF;
6454: END IF;
6455: ELSE
6456: -- Bug 5491139 hkaniven start --
6457: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_WOMEN_OWNED');
6458: FND_MSG_PUB.ADD;
6459: -- Bug 5491139 hkaniven end --
6460: END IF;
6461: END IF;
6462: END IF;
6499: END IF;
6500: ELSE
6501: -- Bug 5491139 hkaniven start --
6502: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_HOLD_FUT_PAY');
6503: FND_MSG_PUB.ADD;
6504: -- Bug 5491139 hkaniven end --
6505: END IF;
6506: END IF;
6507: END IF;
6544: END IF;
6545: ELSE
6546: -- Bug 5491139 hkaniven start --
6547: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_HOLD_ALL_PAY');
6548: FND_MSG_PUB.ADD;
6549: -- Bug 5491139 hkaniven end --
6550: END IF;
6551: END IF;
6552: END IF;
6589: END IF;
6590: ELSE
6591: -- Bug 5491139 hkaniven start --
6592: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_TAKE_DISC');
6593: FND_MSG_PUB.ADD;
6594: -- Bug 5491139 hkaniven end --
6595: END IF;
6596: END IF;
6597: END IF;
6631: END IF;
6632: ELSE
6633: -- Bug 5491139 hkaniven start --
6634: FND_MESSAGE.SET_NAME('SQLAP','AP_NULL_VENDOR_NUMBER');
6635: FND_MSG_PUB.ADD;
6636: -- Bug 5491139 hkaniven end --
6637: END IF;
6638: END IF;
6639:
6675: END IF;
6676: ELSE
6677: -- Bug 5491139 hkaniven start --
6678: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_MATCH_OPTION');
6679: FND_MSG_PUB.ADD;
6680: -- Bug 5491139 hkaniven end --
6681: END IF;
6682: END IF;
6683: END IF;
6728: END IF;
6729: ELSE
6730: -- Bug 5491139 hkaniven start --
6731: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_AWT_GROUP');
6732: FND_MSG_PUB.ADD;
6733: -- Bug 5491139 hkaniven end --
6734: END IF;
6735: END IF;
6736:
6801: END IF;
6802: ELSE
6803: -- Bug 5491139 hkaniven start --
6804: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_TERM');
6805: FND_MSG_PUB.ADD;
6806: -- Bug 5491139 hkaniven end --
6807: END IF;
6808: END IF;
6809: END IF;
6820: END IF;
6821:
6822: -- Standard call to get message count and if count is 1,
6823: -- get message info.
6824: FND_MSG_PUB.Count_And_Get(
6825: p_count => x_msg_count ,
6826: p_data => x_msg_data
6827: );
6828:
6830: EXCEPTION
6831: WHEN FND_API.G_EXC_ERROR THEN
6832: ROLLBACK TO Validate_Vendor_PUB;
6833: x_return_status := FND_API.G_RET_STS_ERROR ;
6834: FND_MSG_PUB.Count_And_Get
6835: ( p_count => x_msg_count,
6836: p_data => x_msg_data
6837: );
6838: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6837: );
6838: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6839: ROLLBACK TO Validate_Vendor_PUB;
6840: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6841: FND_MSG_PUB.Count_And_Get
6842: ( p_count => x_msg_count,
6843: p_data => x_msg_data
6844: );
6845: WHEN OTHERS THEN
6844: );
6845: WHEN OTHERS THEN
6846: ROLLBACK TO Validate_Vendor_PUB;
6847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6848: IF FND_MSG_PUB.Check_Msg_Level
6849: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6850: FND_MSG_PUB.Add_Exc_Msg
6851: ( G_PKG_NAME ,
6852: l_api_name
6845: WHEN OTHERS THEN
6846: ROLLBACK TO Validate_Vendor_PUB;
6847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6848: IF FND_MSG_PUB.Check_Msg_Level
6849: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6850: FND_MSG_PUB.Add_Exc_Msg
6851: ( G_PKG_NAME ,
6852: l_api_name
6853: );
6846: ROLLBACK TO Validate_Vendor_PUB;
6847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6848: IF FND_MSG_PUB.Check_Msg_Level
6849: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6850: FND_MSG_PUB.Add_Exc_Msg
6851: ( G_PKG_NAME ,
6852: l_api_name
6853: );
6854: END IF;
6851: ( G_PKG_NAME ,
6852: l_api_name
6853: );
6854: END IF;
6855: FND_MSG_PUB.Count_And_Get
6856: ( p_count => x_msg_count,
6857: p_data => x_msg_data
6858: );
6859: END Validate_Vendor;
7078: END IF;
7079:
7080: -- Initialize message list if p_init_msg_list is set to TRUE.
7081: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7082: FND_MSG_PUB.initialize;
7083: END IF;
7084: -- Bug 5055120
7085: -- This call is incorrect. The correct call is to have the calling
7086: -- modules set the context and call this API with the right ORG_ID.
7156: END IF;
7157: ELSE
7158: -- Bug 5491139 hkaniven start --
7159: FND_MESSAGE.SET_NAME('SQLAP','AP_ORG_INFO_NULL');
7160: FND_MSG_PUB.ADD;
7161: -- Bug 5491139 hkaniven end --
7162: END IF;
7163: -- RAISE FND_API.G_EXC_ERROR; BUG 6739544
7164: RAISE ORG_ID_EXCEPTION; -- BUG 6739544
7191: END IF;
7192: ELSE
7193: -- Bug 5491139 hkaniven start --
7194: FND_MESSAGE.SET_NAME('SQLAP','AP_ORG_INFO_NULL');
7195: FND_MSG_PUB.ADD;
7196: -- Bug 5491139 hkaniven end --
7197: END IF;
7198: -- RAISE FND_API.G_EXC_ERROR;
7199: RAISE ORG_ID_EXCEPTION; -- BUG 6739544
7906: END IF;
7907:
7908: -- Standard call to get message count and if count is 1,
7909: -- get message info.
7910: FND_MSG_PUB.Count_And_Get(
7911: p_count => x_msg_count ,
7912: p_data => x_msg_data
7913: );
7914:
7915: EXCEPTION
7916: WHEN FND_API.G_EXC_ERROR THEN
7917: ROLLBACK TO Create_Vendor_Site_PUB;
7918: x_return_status := FND_API.G_RET_STS_ERROR ;
7919: FND_MSG_PUB.Count_And_Get
7920: ( p_count => x_msg_count,
7921: p_data => x_msg_data
7922: );
7923: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7922: );
7923: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7924: ROLLBACK TO Create_Vendor_Site_PUB;
7925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7926: FND_MSG_PUB.Count_And_Get
7927: ( p_count => x_msg_count,
7928: p_data => x_msg_data
7929: );
7930: -- BUG 6739544 START
7929: );
7930: -- BUG 6739544 START
7931: WHEN ORG_ID_EXCEPTION THEN
7932: x_return_status := FND_API.G_RET_STS_ERROR ;
7933: FND_MSG_PUB.Count_And_Get
7934: ( p_count => x_msg_count,
7935: p_data => x_msg_data
7936: );
7937: -- BUG 6739544 END.
7937: -- BUG 6739544 END.
7938: WHEN OTHERS THEN
7939: ROLLBACK TO Create_Vendor_Site_PUB;
7940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7941: IF FND_MSG_PUB.Check_Msg_Level
7942: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7943: FND_MSG_PUB.Add_Exc_Msg
7944: ( G_PKG_NAME ,
7945: l_api_name
7938: WHEN OTHERS THEN
7939: ROLLBACK TO Create_Vendor_Site_PUB;
7940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7941: IF FND_MSG_PUB.Check_Msg_Level
7942: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7943: FND_MSG_PUB.Add_Exc_Msg
7944: ( G_PKG_NAME ,
7945: l_api_name
7946: );
7939: ROLLBACK TO Create_Vendor_Site_PUB;
7940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7941: IF FND_MSG_PUB.Check_Msg_Level
7942: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7943: FND_MSG_PUB.Add_Exc_Msg
7944: ( G_PKG_NAME ,
7945: l_api_name
7946: );
7947: END IF;
7944: ( G_PKG_NAME ,
7945: l_api_name
7946: );
7947: END IF;
7948: FND_MSG_PUB.Count_And_Get
7949: ( p_count => x_msg_count,
7950: p_data => x_msg_data
7951: );
7952: END Create_Vendor_Site;
8005: END IF;
8006:
8007: -- Initialize message list if p_init_msg_list is set to TRUE.
8008: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8009: FND_MSG_PUB.initialize;
8010: END IF;
8011:
8012: -- Initialize API return status to success
8013: x_return_status := FND_API.G_RET_STS_SUCCESS;
8601: END IF;
8602:
8603: -- Standard call to get message count and if count is 1,
8604: -- get message info.
8605: FND_MSG_PUB.Count_And_Get(
8606: p_count => x_msg_count ,
8607: p_data => x_msg_data
8608: );
8609:
8610: EXCEPTION
8611: WHEN FND_API.G_EXC_ERROR THEN
8612: ROLLBACK TO Update_Vendor_Site_PUB;
8613: x_return_status := FND_API.G_RET_STS_ERROR ;
8614: FND_MSG_PUB.Count_And_Get
8615: ( p_count => x_msg_count,
8616: p_data => x_msg_data
8617: );
8618: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8617: );
8618: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8619: ROLLBACK TO Update_Vendor_Site_PUB;
8620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8621: FND_MSG_PUB.Count_And_Get
8622: ( p_count => x_msg_count,
8623: p_data => x_msg_data
8624: );
8625: WHEN OTHERS THEN
8624: );
8625: WHEN OTHERS THEN
8626: ROLLBACK TO Update_Vendor_Site_PUB;
8627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8628: IF FND_MSG_PUB.Check_Msg_Level
8629: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8630: FND_MSG_PUB.Add_Exc_Msg
8631: ( G_PKG_NAME ,
8632: l_api_name
8625: WHEN OTHERS THEN
8626: ROLLBACK TO Update_Vendor_Site_PUB;
8627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8628: IF FND_MSG_PUB.Check_Msg_Level
8629: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8630: FND_MSG_PUB.Add_Exc_Msg
8631: ( G_PKG_NAME ,
8632: l_api_name
8633: );
8626: ROLLBACK TO Update_Vendor_Site_PUB;
8627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8628: IF FND_MSG_PUB.Check_Msg_Level
8629: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8630: FND_MSG_PUB.Add_Exc_Msg
8631: ( G_PKG_NAME ,
8632: l_api_name
8633: );
8634: END IF;
8631: ( G_PKG_NAME ,
8632: l_api_name
8633: );
8634: END IF;
8635: FND_MSG_PUB.Count_And_Get
8636: ( p_count => x_msg_count,
8637: p_data => x_msg_data
8638: );
8639: END Update_Vendor_Site;
8692: END IF;
8693:
8694: -- Initialize message list if p_init_msg_list is set to TRUE.
8695: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8696: FND_MSG_PUB.initialize;
8697: END IF;
8698:
8699: -- Initialize API return status to success
8700: x_return_status := FND_API.G_RET_STS_SUCCESS;
8750: END IF;
8751: ELSE
8752: -- Bug 5491139 hkaniven start --
8753: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_HOLD_UNMAT_INV');
8754: FND_MSG_PUB.ADD;
8755: -- Bug 5491139 hkaniven end --
8756: END IF;
8757: END IF;
8758: END IF;
8794: END IF;
8795: ELSE
8796: -- Bug 5491139 hkaniven start --
8797: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_TAX_RS_FLAG');
8798: FND_MSG_PUB.ADD;
8799: -- Bug 5491139 hkaniven end --
8800: END IF;
8801: END IF;
8802: END IF;
8844: END IF;
8845: END IF;
8846: ELSE
8847: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INVALID_VAT_CODE');
8848: FND_MSG_PUB.ADD;
8849: END IF;
8850: END IF;
8851: END IF;
8852: -- Bug 6645014 ends
8893: END IF;
8894: ELSE
8895: -- Bug 5491139 hkaniven start --
8896: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_DEF_PAY_SITE');
8897: FND_MSG_PUB.ADD;
8898: -- Bug 5491139 hkaniven end --
8899: END IF;
8900: END IF;
8901: END IF;
8943: END IF;
8944: ELSE
8945: -- Bug 5491139 hkaniven start --
8946: FND_MESSAGE.SET_NAME('SQLAP','AP_DUPLICATE_VENDOR_SITE');
8947: FND_MSG_PUB.ADD;
8948: -- Bug 5491139 hkaniven end --
8949: END IF;
8950: END IF;
8951: END IF;
9015: END IF;
9016: ELSE
9017: -- Bug 5491139 hkaniven start --
9018: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_ON_RCE');
9019: FND_MSG_PUB.ADD;
9020: -- Bug 5491139 hkaniven end --
9021: END IF;
9022: END IF;
9023: END IF;
9059: END IF;
9060: ELSE
9061: -- Bug 5491139 hkaniven start --
9062: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SHIPPING_CONTROL');
9063: FND_MSG_PUB.ADD;
9064: -- Bug 5491139 hkaniven end --
9065: END IF;
9066: END IF;
9067: END IF;
9110: END IF;
9111: ELSE
9112: -- Bug 5491139 hkaniven start --
9113: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_TERM');
9114: FND_MSG_PUB.ADD;
9115: -- Bug 5491139 hkaniven end --
9116: END IF;
9117: END IF;
9118: END IF;
9158: END IF;
9159: ELSE
9160: -- Bug 5491139 hkaniven start --
9161: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_ON_CODE');
9162: FND_MSG_PUB.ADD;
9163: -- Bug 5491139 hkaniven end --
9164: END IF;
9165: END IF;
9166: END IF;
9202: END IF;
9203: ELSE
9204: -- Bug 5491139 hkaniven start --
9205: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_ON_RCE');
9206: FND_MSG_PUB.ADD;
9207: -- Bug 5491139 hkaniven end --
9208: END IF;
9209: END IF;
9210: END IF;
9245: END IF;
9246: ELSE
9247: -- Bug 5491139 hkaniven start --
9248: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAYMENT_PRIORITY');
9249: FND_MSG_PUB.ADD;
9250: -- Bug 5491139 hkaniven end --
9251: END IF;
9252: END IF;
9253: END IF;
9284: END IF;
9285: ELSE
9286: -- Bug 5491139 hkaniven start --
9287: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_INV_CURRENCY');
9288: FND_MSG_PUB.ADD;
9289: -- Bug 5491139 hkaniven end --
9290: END IF;
9291: END IF;
9292: END IF;
9327: END IF;
9328: ELSE
9329: -- Bug 5491139 hkaniven start --
9330: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_CURRENCY');
9331: FND_MSG_PUB.ADD;
9332: -- Bug 5491139 hkaniven end --
9333: END IF;
9334: END IF;
9335: END IF;
9372: END IF;
9373: ELSE
9374: -- Bug 5491139 hkaniven start --
9375: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_ACCOUNTS_PAY_CCID');
9376: FND_MSG_PUB.ADD;
9377: -- Bug 5491139 hkaniven end --
9378: END IF;
9379: END IF;
9380: END IF;
9416: END IF;
9417: ELSE
9418: -- Bug 5491139 hkaniven start --
9419: FND_MESSAGE.SET_NAME('SQLAP','AP_SUPP_INVALID_CCID');
9420: FND_MSG_PUB.ADD;
9421: -- Bug 5491139 hkaniven end --
9422: END IF;
9423: END IF;
9424: END IF;
9460: END IF;
9461: ELSE
9462: -- Bug 5491139 hkaniven start --
9463: FND_MESSAGE.SET_NAME('SQLAP','AP_SUPP_INVALID_CCID');
9464: FND_MSG_PUB.ADD;
9465: -- Bug 5491139 hkaniven end --
9466: END IF;
9467: END IF;
9468: END IF;
9505: END IF;
9506: END IF;
9507: ELSE
9508: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_DUNS_NUMBER');
9509: FND_MSG_PUB.ADD;
9510: END IF;
9511: END IF;
9512: END IF;
9513:
9554: END IF;
9555: END IF;
9556: ELSE
9557: FND_MESSAGE.SET_NAME('SQLAP','AP_CCR_NO_UPDATE');
9558: FND_MSG_PUB.ADD;
9559: END IF;
9560: END IF;
9561:
9562: ELSIF p_mode = 'I' THEN
9605: END IF;
9606: ELSE
9607: -- Bug 5491139 hkaniven start --
9608: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAYEE');
9609: FND_MSG_PUB.ADD;
9610: -- Bug 5491139 hkaniven end --
9611: END IF;
9612: END IF;
9613: ELSE
9661: END IF;
9662: END IF;
9663: ELSE
9664: FND_MESSAGE.SET_NAME('SQLAP','AP_API_INVALID_COUNTRY');
9665: FND_MSG_PUB.ADD;
9666: END IF; --import
9667: END IF; --country invalid
9668: END IF;
9669:
9705: END IF;
9706: END IF;
9707: ELSE
9708: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PARTY_SITE');
9709: FND_MSG_PUB.ADD;
9710: END IF;
9711: END IF;
9712: END IF;
9713: ------------------------------------------------------------------------
9783: END IF;
9784: ELSE
9785: -- Bug 5584046 --
9786: FND_MESSAGE.SET_NAME('SQLAP','AP_MULTIPLE_ADDRESS');
9787: FND_MSG_PUB.ADD;
9788: END IF; --import
9789: ELSIF x_loc_count = 0 AND
9790: p_vendor_site_rec.party_site_id IS NOT NULL THEN
9791: -- We have to ensure that no new locations are created in this case.
9813: END IF;
9814: ELSE
9815: -- Bug 5584046 --
9816: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_ADDRESS');
9817: FND_MSG_PUB.ADD;
9818: END IF; --import
9819: -- Bug 7429668 End
9820: ELSE
9821: /*bug 5584046 Before calling the HZ api we need to ensure that
9847: END IF;
9848: ELSE
9849: -- Bug 5584046 --
9850: FND_MESSAGE.SET_NAME('SQLAP','AP_NULL_COUNTRY_NAME');
9851: FND_MSG_PUB.ADD;
9852: END IF; --import
9853: END IF;
9854:
9855: IF(p_vendor_site_rec.address_line1 IS NULL)
9879: END IF;
9880: ELSE
9881: -- Bug 5584046
9882: FND_MESSAGE.SET_NAME('SQLAP','AP_NULL_ADDRESS_LINE1');
9883: FND_MSG_PUB.ADD;
9884: END IF; --import
9885: END IF;
9886: --bug 5584046
9887: END IF;
9964: END IF;
9965: ELSE
9966: -- Bug 5491139 hkaniven start --
9967: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PRIM_PAY_SITE');
9968: FND_MSG_PUB.ADD;
9969: -- Bug 5491139 hkaniven end --
9970: END IF;
9971: END IF;
9972: END IF;
10002: END IF;
10003: ELSE
10004: -- Bug 5491139 hkaniven start --
10005: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_COUNTRY_ORIGIN');
10006: FND_MSG_PUB.ADD;
10007: -- Bug 5491139 hkaniven end --
10008: END IF;
10009: END IF;
10010: END IF;
10049: END IF;
10050: ELSE
10051: -- Bug 5491139 hkaniven start --
10052: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PCARD_SITE');
10053: FND_MSG_PUB.ADD;
10054: -- Bug 5491139 hkaniven end --
10055: END IF;
10056: END IF;
10057: END IF;
10092: END IF;
10093: ELSE
10094: -- Bug 5491139 hkaniven start --
10095: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PURCHASING_FLAG');
10096: FND_MSG_PUB.ADD;
10097: -- Bug 5491139 hkaniven end --
10098: END IF;
10099: END IF;
10100: END IF;
10135: END IF;
10136: ELSE
10137: -- Bug 5491139 hkaniven start --
10138: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_RFQ_FLAG');
10139: FND_MSG_PUB.ADD;
10140: -- Bug 5491139 hkaniven end --
10141: END IF;
10142: END IF;
10143: END IF;
10178: END IF;
10179: ELSE
10180: -- Bug 5491139 hkaniven start --
10181: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_SITE_FLAG');
10182: FND_MSG_PUB.ADD;
10183: -- Bug 5491139 hkaniven end --
10184: END IF;
10185: END IF;
10186: END IF;
10221: END IF;
10222: ELSE
10223: -- Bug 5491139 hkaniven start --
10224: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_ATTN_AR_FLAG');
10225: FND_MSG_PUB.ADD;
10226: -- Bug 5491139 hkaniven end --
10227: END IF;
10228: END IF;
10229: END IF;
10264: END IF;
10265: ELSE
10266: -- Bug 5491139 hkaniven start --
10267: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PRIM_PAY_SITE');
10268: FND_MSG_PUB.ADD;
10269: -- Bug 5491139 hkaniven end --
10270: END IF;
10271: END IF;
10272: END IF;
10308: END IF;
10309: ELSE
10310: -- Bug 5491139 hkaniven start --
10311: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_FREIGHT_TERMS');
10312: FND_MSG_PUB.ADD;
10313: -- Bug 5491139 hkaniven end --
10314: END IF;
10315: END IF;
10316: END IF;
10351: END IF;
10352: ELSE
10353: -- Bug 5491139 hkaniven start --
10354: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_FOB');
10355: FND_MSG_PUB.ADD;
10356: -- Bug 5491139 hkaniven end --
10357: END IF;
10358: END IF;
10359: END IF;
10395: END IF;
10396: ELSE
10397: -- Bug 5491139 hkaniven start --
10398: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_DATE_BASIS');
10399: FND_MSG_PUB.ADD;
10400: -- Bug 5491139 hkaniven end --
10401: END IF;
10402: END IF;
10403: END IF;
10439: END IF;
10440: ELSE
10441: -- Bug 5491139 hkaniven start --
10442: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_GROUP');
10443: FND_MSG_PUB.ADD;
10444: -- Bug 5491139 hkaniven end --
10445: END IF;
10446: END IF;
10447: END IF;
10482: END IF;
10483: ELSE
10484: -- Bug 5491139 hkaniven start --
10485: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_TERMS_DATE');
10486: FND_MSG_PUB.ADD;
10487: -- Bug 5491139 hkaniven end --
10488: END IF;
10489: END IF;
10490: END IF;
10527: END IF;
10528: ELSE
10529: -- Bug 5491139 hkaniven start --
10530: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_DEBIT_MEMO');
10531: FND_MSG_PUB.ADD;
10532: -- Bug 5491139 hkaniven end --
10533: END IF;
10534: END IF;
10535: END IF;
10571: END IF;
10572: ELSE
10573: -- Bug 5491139 hkaniven start --
10574: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_EXC_FR_DISC');
10575: FND_MSG_PUB.ADD;
10576: -- Bug 5491139 hkaniven end --
10577: END IF;
10578: END IF;
10579: END IF;
10615: END IF;
10616: ELSE
10617: -- Bug 5491139 hkaniven start --
10618: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_HOLD_FUT_PAY');
10619: FND_MSG_PUB.ADD;
10620: -- Bug 5491139 hkaniven end --
10621: END IF;
10622: END IF;
10623: END IF;
10658: END IF;
10659: ELSE
10660: -- Bug 5491139 hkaniven start --
10661: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_HOLD_ALL_PAY');
10662: FND_MSG_PUB.ADD;
10663: -- Bug 5491139 hkaniven end --
10664: END IF;
10665: END IF;
10666: END IF;
10701: END IF;
10702: ELSE
10703: -- Bug 5491139 hkaniven start --
10704: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_TAKE_DISC');
10705: FND_MSG_PUB.ADD;
10706: -- Bug 5491139 hkaniven end --
10707: END IF;
10708: END IF;
10709: END IF;
10745: END IF;
10746: ELSE
10747: -- Bug 5491139 hkaniven start --
10748: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_MATCH_OPTION');
10749: FND_MSG_PUB.ADD;
10750: -- Bug 5491139 hkaniven end --
10751: END IF;
10752: END IF;
10753: END IF;
10790: END IF;
10791: ELSE
10792: -- Bug 5491139 hkaniven start --
10793: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_ALLOW_AWT');
10794: FND_MSG_PUB.ADD;
10795: -- Bug 5491139 hkaniven end --
10796: END IF;
10797: END IF;
10798: END IF;
10844: END IF;
10845: ELSE
10846: -- Bug 5491139 hkaniven start --
10847: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_AWT_GROUP');
10848: FND_MSG_PUB.ADD;
10849: -- Bug 5491139 hkaniven end --
10850: END IF;
10851: END IF;
10852: END IF;
10894: END IF;
10895: ELSE
10896: -- Bug 5491139 hkaniven start --
10897: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_DIST_SET');
10898: FND_MSG_PUB.ADD;
10899: -- Bug 5491139 hkaniven end --
10900: END IF;
10901: END IF;
10902: END IF;
10944: END IF;
10945: ELSE
10946: -- Bug 5491139 hkaniven start --
10947: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_SHIP_LOC');
10948: FND_MSG_PUB.ADD;
10949: -- Bug 5491139 hkaniven end --
10950: END IF;
10951: END IF;
10952: END IF;
10994: END IF;
10995: ELSE
10996: -- Bug 5491139 hkaniven start --
10997: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_BILL_LOC');
10998: FND_MSG_PUB.ADD;
10999: -- Bug 5491139 hkaniven end --
11000: END IF;
11001: END IF;
11002: END IF;
11038: END IF;
11039: ELSE
11040: -- Bug 5491139 hkaniven start --
11041: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_NOTIF_METHOD');
11042: FND_MSG_PUB.ADD;
11043: -- Bug 5491139 hkaniven end --
11044: END IF;
11045: END IF;
11046: END IF;
11088: END IF;
11089: ELSE
11090: -- Bug 5491139 hkaniven start --
11091: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_TOLERANCE');
11092: FND_MSG_PUB.ADD;
11093: -- Bug 5491139 hkaniven end --
11094: END IF;
11095: END IF;
11096: --END IF;
11138: END IF;
11139: ELSE
11140: -- Bug 5491139 hkaniven start --
11141: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSIS_SERVICE_TOL');
11142: FND_MSG_PUB.ADD;
11143: -- Bug 5491139 hkaniven end --
11144: END IF;
11145: END IF;
11146: --END IF;
11180: END IF;
11181: ELSE
11182: -- Bug 5491139 hkaniven start --
11183: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_RETAINAGE_RATE');
11184: FND_MSG_PUB.ADD;
11185: -- Bug 5491139 hkaniven end --
11186: END IF;
11187: END IF;
11188: END IF;
11225: END IF;
11226: ELSE
11227: -- Bug 5491139 hkaniven start --
11228: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SHIP_VIA');
11229: FND_MSG_PUB.ADD;
11230: -- Bug 5491139 hkaniven end --
11231: END IF;
11232: END IF;
11233: END IF;
11277: END IF;
11278: ELSE
11279: -- Bug 5491139 hkaniven start --
11280: FND_MESSAGE.SET_NAME('SQLAP','AP_DUPLICATE_TAX_RS');
11281: FND_MSG_PUB.ADD;
11282: -- Bug 5491139 hkaniven end --
11283: END IF;
11284: END IF;
11285: END IF;
11319: END IF;
11320: ELSE
11321: -- Bug 5491139 hkaniven start --
11322: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SHIPPING_CONTROL');
11323: FND_MSG_PUB.ADD;
11324: -- Bug 5491139 hkaniven end --
11325: END IF;
11326: END IF;
11327: END IF;
11338: END IF;
11339:
11340: -- Standard call to get message count and if count is 1,
11341: -- get message info.
11342: FND_MSG_PUB.Count_And_Get(
11343: p_count => x_msg_count ,
11344: p_data => x_msg_data
11345: );
11346:
11347: EXCEPTION
11348: WHEN FND_API.G_EXC_ERROR THEN
11349: ROLLBACK TO Validate_Vendor_Site_PUB;
11350: x_return_status := FND_API.G_RET_STS_ERROR ;
11351: FND_MSG_PUB.Count_And_Get
11352: ( p_count => x_msg_count,
11353: p_data => x_msg_data
11354: );
11355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11354: );
11355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11356: ROLLBACK TO Validate_Vendor_Site_PUB;
11357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11358: FND_MSG_PUB.Count_And_Get
11359: ( p_count => x_msg_count,
11360: p_data => x_msg_data
11361: );
11362: WHEN OTHERS THEN
11361: );
11362: WHEN OTHERS THEN
11363: ROLLBACK TO Validate_Vendor_Site_PUB;
11364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11365: IF FND_MSG_PUB.Check_Msg_Level
11366: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
11367: FND_MSG_PUB.Add_Exc_Msg
11368: ( G_PKG_NAME ,
11369: l_api_name
11362: WHEN OTHERS THEN
11363: ROLLBACK TO Validate_Vendor_Site_PUB;
11364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11365: IF FND_MSG_PUB.Check_Msg_Level
11366: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
11367: FND_MSG_PUB.Add_Exc_Msg
11368: ( G_PKG_NAME ,
11369: l_api_name
11370: );
11363: ROLLBACK TO Validate_Vendor_Site_PUB;
11364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11365: IF FND_MSG_PUB.Check_Msg_Level
11366: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
11367: FND_MSG_PUB.Add_Exc_Msg
11368: ( G_PKG_NAME ,
11369: l_api_name
11370: );
11371: END IF;
11368: ( G_PKG_NAME ,
11369: l_api_name
11370: );
11371: END IF;
11372: FND_MSG_PUB.Count_And_Get
11373: ( p_count => x_msg_count,
11374: p_data => x_msg_data
11375: );
11376: END Validate_Vendor_Site;
11490: END IF;
11491:
11492: -- Initialize message list if p_init_msg_list is set to TRUE.
11493: IF FND_API.to_Boolean( p_init_msg_list ) THEN
11494: FND_MSG_PUB.initialize;
11495: END IF;
11496:
11497: -- Initialize API return status to success
11498: x_return_status := FND_API.G_RET_STS_SUCCESS;
12027: END IF;
12028:
12029: -- Standard call to get message count and if count is 1,
12030: -- get message info.
12031: FND_MSG_PUB.Count_And_Get(
12032: p_count => x_msg_count ,
12033: p_data => x_msg_data
12034: );
12035:
12036: EXCEPTION
12037: WHEN FND_API.G_EXC_ERROR THEN
12038: ROLLBACK TO Create_Vendor_Contact_PUB;
12039: x_return_status := FND_API.G_RET_STS_ERROR ;
12040: FND_MSG_PUB.Count_And_Get
12041: ( p_count => x_msg_count,
12042: p_data => x_msg_data
12043: );
12044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12043: );
12044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12045: ROLLBACK TO Create_Vendor_Contact_PUB;
12046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12047: FND_MSG_PUB.Count_And_Get
12048: ( p_count => x_msg_count,
12049: p_data => x_msg_data
12050: );
12051: WHEN OTHERS THEN
12050: );
12051: WHEN OTHERS THEN
12052: ROLLBACK TO Create_Vendor_Contact_PUB;
12053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12054: IF FND_MSG_PUB.Check_Msg_Level
12055: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12056: FND_MSG_PUB.Add_Exc_Msg
12057: ( G_PKG_NAME ,
12058: l_api_name
12051: WHEN OTHERS THEN
12052: ROLLBACK TO Create_Vendor_Contact_PUB;
12053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12054: IF FND_MSG_PUB.Check_Msg_Level
12055: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12056: FND_MSG_PUB.Add_Exc_Msg
12057: ( G_PKG_NAME ,
12058: l_api_name
12059: );
12052: ROLLBACK TO Create_Vendor_Contact_PUB;
12053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12054: IF FND_MSG_PUB.Check_Msg_Level
12055: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12056: FND_MSG_PUB.Add_Exc_Msg
12057: ( G_PKG_NAME ,
12058: l_api_name
12059: );
12060: END IF;
12057: ( G_PKG_NAME ,
12058: l_api_name
12059: );
12060: END IF;
12061: FND_MSG_PUB.Count_And_Get
12062: ( p_count => x_msg_count,
12063: p_data => x_msg_data
12064: );
12065: END Create_Vendor_Contact;
12093: END IF;
12094:
12095: -- Initialize message list if p_init_msg_list is set to TRUE.
12096: IF FND_API.to_Boolean( p_init_msg_list ) THEN
12097: FND_MSG_PUB.initialize;
12098: END IF;
12099:
12100: -- Initialize API return status to success
12101: x_return_status := FND_API.G_RET_STS_SUCCESS;
12137: END IF;
12138:
12139: -- Standard call to get message count and if count is 1,
12140: -- get message info.
12141: FND_MSG_PUB.Count_And_Get(
12142: p_count => x_msg_count ,
12143: p_data => x_msg_data
12144: );
12145:
12146: EXCEPTION
12147: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12148: ROLLBACK TO Update_Vendor_Contact_PUB;
12149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12150: FND_MSG_PUB.Count_And_Get
12151: ( p_count => x_msg_count,
12152: p_data => x_msg_data
12153: );
12154: WHEN OTHERS THEN
12153: );
12154: WHEN OTHERS THEN
12155: ROLLBACK TO Update_Vendor_Contact_PUB;
12156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12157: IF FND_MSG_PUB.Check_Msg_Level
12158: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12159: FND_MSG_PUB.Add_Exc_Msg
12160: ( G_PKG_NAME ,
12161: l_api_name
12154: WHEN OTHERS THEN
12155: ROLLBACK TO Update_Vendor_Contact_PUB;
12156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12157: IF FND_MSG_PUB.Check_Msg_Level
12158: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12159: FND_MSG_PUB.Add_Exc_Msg
12160: ( G_PKG_NAME ,
12161: l_api_name
12162: );
12155: ROLLBACK TO Update_Vendor_Contact_PUB;
12156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12157: IF FND_MSG_PUB.Check_Msg_Level
12158: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12159: FND_MSG_PUB.Add_Exc_Msg
12160: ( G_PKG_NAME ,
12161: l_api_name
12162: );
12163: END IF;
12160: ( G_PKG_NAME ,
12161: l_api_name
12162: );
12163: END IF;
12164: FND_MSG_PUB.Count_And_Get
12165: ( p_count => x_msg_count,
12166: p_data => x_msg_data
12167: );
12168: END Update_Vendor_Contact;
12211: END IF;
12212:
12213: -- Initialize message list if p_init_msg_list is set to TRUE.
12214: IF FND_API.to_Boolean( p_init_msg_list ) THEN
12215: FND_MSG_PUB.initialize;
12216: END IF;
12217:
12218: -- Initialize API return status to success
12219: x_return_status := FND_API.G_RET_STS_SUCCESS;
12336: END IF;
12337: ELSE
12338: -- Bug 5491139 hkaniven start --
12339: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PARTY_SITE');
12340: FND_MSG_PUB.ADD;
12341: -- Bug 5491139 hkaniven end --
12342: END IF;
12343: ELSE
12344: --party_site_id was valid
12409: END IF;
12410: ELSE
12411: -- Bug 5491139 hkaniven start --
12412: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_PARTY_SITE');
12413: FND_MSG_PUB.ADD;
12414: -- Bug 5491139 hkaniven end --
12415: END IF;*/
12416: END IF;
12417:
12441: END IF;
12442: ELSE
12443: -- Bug 5491139 hkaniven start --
12444: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PARTY_SITE');
12445: FND_MSG_PUB.ADD;
12446: -- Bug 5491139 hkaniven end --
12447: END IF;
12448: END IF;
12449: -----------------------------------------------------------------------
12484: END IF;
12485: ELSE
12486: -- Bug 5491139 hkaniven start --
12487: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PARTY_SITE');
12488: FND_MSG_PUB.ADD;
12489: -- Bug 5491139 hkaniven end --
12490: END IF;
12491: ELSE
12492: x_per_party_valid := 'V';
12533: END IF;
12534: ELSE
12535: -- Bug 5491139 hkaniven start --
12536: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_REL_PARTY');
12537: FND_MSG_PUB.ADD;
12538: -- Bug 5491139 hkaniven end --
12539: END IF;
12540: ELSE
12541: x_rel_party_valid := 'V';
12584: END IF;
12585: ELSE
12586: -- Bug 5491139 hkaniven start --
12587: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_RELATIONSHIP');
12588: FND_MSG_PUB.ADD;
12589: -- Bug 5491139 hkaniven end --
12590: END IF;
12591: ELSE
12592: x_rel_valid := 'V';
12636: END IF;
12637: ELSE
12638: -- Bug 5491139 hkaniven start --
12639: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_ORG_CONTACT');
12640: FND_MSG_PUB.ADD;
12641: -- Bug 5491139 hkaniven end --
12642: END IF;
12643: ELSE
12644: x_org_contact_valid := 'V';
12654: END IF;
12655:
12656: -- Standard call to get message count and if count is 1,
12657: -- get message info.
12658: FND_MSG_PUB.Count_And_Get(
12659: p_count => x_msg_count ,
12660: p_data => x_msg_data
12661: );
12662:
12663: EXCEPTION
12664: WHEN FND_API.G_EXC_ERROR THEN
12665: ROLLBACK TO Validate_Vendor_Contact_PUB;
12666: x_return_status := FND_API.G_RET_STS_ERROR ;
12667: FND_MSG_PUB.Count_And_Get
12668: ( p_count => x_msg_count,
12669: p_data => x_msg_data
12670: );
12671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12670: );
12671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12672: ROLLBACK TO Validate_Vendor_Contact_PUB;
12673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12674: FND_MSG_PUB.Count_And_Get
12675: ( p_count => x_msg_count,
12676: p_data => x_msg_data
12677: );
12678: WHEN OTHERS THEN
12677: );
12678: WHEN OTHERS THEN
12679: ROLLBACK TO Validate_Vendor_Contact_PUB;
12680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12681: IF FND_MSG_PUB.Check_Msg_Level
12682: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12683: FND_MSG_PUB.Add_Exc_Msg
12684: ( G_PKG_NAME ,
12685: l_api_name
12678: WHEN OTHERS THEN
12679: ROLLBACK TO Validate_Vendor_Contact_PUB;
12680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12681: IF FND_MSG_PUB.Check_Msg_Level
12682: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12683: FND_MSG_PUB.Add_Exc_Msg
12684: ( G_PKG_NAME ,
12685: l_api_name
12686: );
12679: ROLLBACK TO Validate_Vendor_Contact_PUB;
12680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12681: IF FND_MSG_PUB.Check_Msg_Level
12682: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12683: FND_MSG_PUB.Add_Exc_Msg
12684: ( G_PKG_NAME ,
12685: l_api_name
12686: );
12687: END IF;
12684: ( G_PKG_NAME ,
12685: l_api_name
12686: );
12687: END IF;
12688: FND_MSG_PUB.Count_And_Get
12689: ( p_count => x_msg_count,
12690: p_data => x_msg_data
12691: );
12692: END Validate_Vendor_Contact;
12762: THEN
12763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12764: END IF;
12765:
12766: FND_MSG_PUB.initialize;
12767:
12768: g_user_id := FND_GLOBAL.USER_ID;
12769: g_login_id := FND_GLOBAL.LOGIN_ID;
12770: g_source := p_source;
13091: g_login_id,
13092: 'Import_Vendor') <> TRUE) THEN
13093: --
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: '
13103: END IF;
13104:
13105: -- Bug 5491139 hkaniven start --
13106: FND_MESSAGE.SET_NAME('SQLAP','AP_BANK_ACCT_CREATION');
13107: FND_MSG_PUB.ADD;
13108: -- Bug 5491139 hkaniven end --
13109: END IF; -- Bank Account Creation API
13110:
13111: ELSE
13121: g_login_id,
13122: 'Import_Vendor') <> TRUE) THEN
13123: --
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: '
13133: END IF;
13134:
13135: -- Bug 5491139 hkaniven start --
13136: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_BANK_ACCT_INFO');
13137: FND_MSG_PUB.ADD;
13138: -- Bug 5491139 hkaniven end --
13139: END IF; -- Bank Account Validation API
13140:
13141: END LOOP;
13150: g_login_id,
13151: 'Import_Vendor') <> TRUE) THEN
13152: --
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: '
13162: END IF;
13163:
13164: -- Bug 5491139 hkaniven start --
13165: FND_MESSAGE.SET_NAME('SQLAP','AP_PAYEE_CREATION');
13166: FND_MSG_PUB.ADD;
13167: -- Bug 5491139 hkaniven end --
13168: END IF; -- Payee Creation API
13169:
13170: ELSE
13176: g_login_id,
13177: 'Import_Vendor') <> TRUE) THEN
13178: --
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: '
13188: END IF;
13189:
13190: -- Bug 5491139 hkaniven start --
13191: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAYEE');
13192: FND_MSG_PUB.ADD;
13193: -- Bug 5491139 hkaniven end --
13194: END IF; -- Payee Validation API
13195:
13196: ELSE
13219: COMMIT WORK;
13220:
13221: -- Standard call to get message count and if count is 1,
13222: -- get message info.
13223: FND_MSG_PUB.Count_And_Get(
13224: p_count => x_msg_count,
13225: p_data => x_msg_data
13226: );
13227:
13228: EXCEPTION
13229: WHEN FND_API.G_EXC_ERROR THEN
13230: ROLLBACK TO Import_Vendor_PUB;
13231: x_return_status := FND_API.G_RET_STS_ERROR ;
13232: FND_MSG_PUB.Count_And_Get
13233: ( p_count => x_msg_count,
13234: p_data => x_msg_data
13235: );
13236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13235: );
13236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13237: ROLLBACK TO Import_Vendor_PUB;
13238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13239: FND_MSG_PUB.Count_And_Get
13240: ( p_count => x_msg_count,
13241: p_data => x_msg_data
13242: );
13243: WHEN OTHERS THEN
13242: );
13243: WHEN OTHERS THEN
13244: ROLLBACK TO Import_Vendor_PUB;
13245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13246: IF FND_MSG_PUB.Check_Msg_Level
13247: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13248: FND_MSG_PUB.Add_Exc_Msg
13249: ( G_PKG_NAME,
13250: l_api_name
13243: WHEN OTHERS THEN
13244: ROLLBACK TO Import_Vendor_PUB;
13245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13246: IF FND_MSG_PUB.Check_Msg_Level
13247: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13248: FND_MSG_PUB.Add_Exc_Msg
13249: ( G_PKG_NAME,
13250: l_api_name
13251: );
13244: ROLLBACK TO Import_Vendor_PUB;
13245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13246: IF FND_MSG_PUB.Check_Msg_Level
13247: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13248: FND_MSG_PUB.Add_Exc_Msg
13249: ( G_PKG_NAME,
13250: l_api_name
13251: );
13252: END IF;
13249: ( G_PKG_NAME,
13250: l_api_name
13251: );
13252: END IF;
13253: FND_MSG_PUB.Count_And_Get
13254: ( p_count => x_msg_count,
13255: p_data => x_msg_data
13256: );
13257: END Import_Vendors;
13329: THEN
13330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13331: END IF;
13332:
13333: FND_MSG_PUB.initialize;
13334:
13335: g_user_id := FND_GLOBAL.USER_ID;
13336: g_login_id := FND_GLOBAL.LOGIN_ID;
13337: g_source := p_source;
13721: g_login_id,
13722: 'Import_Vendor_Site') <> TRUE) THEN
13723: --
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: '
13733: END IF;
13734:
13735: -- Bug 5491139 hkaniven start --
13736: FND_MESSAGE.SET_NAME('SQLAP','AP_BANK_ACCT_CREATION');
13737: FND_MSG_PUB.ADD;
13738: -- Bug 5491139 hkaniven end --
13739: END IF; -- Bank Account Creation API
13740:
13741: ELSE -- Bank Account Validation API
13751: g_login_id,
13752: 'Import_Vendor_Site') <> TRUE) THEN
13753: --
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: '
13763: END IF;
13764:
13765: -- Bug 5491139 hkaniven start --
13766: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_BANK_ACCT_INFO');
13767: FND_MSG_PUB.ADD;
13768: -- Bug 5491139 hkaniven end --
13769: END IF; -- Bank Account Validation API
13770:
13771: END LOOP;
13780: g_login_id,
13781: 'Import_Vendor_Site') <> TRUE) THEN
13782: --
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: '
13792: END IF;
13793:
13794: -- Bug 5491139 hkaniven start --
13795: FND_MESSAGE.SET_NAME('SQLAP','AP_PAYEE_CREATION');
13796: FND_MSG_PUB.ADD;
13797: -- Bug 5491139 hkaniven end --
13798: END IF; -- Payee Creation API
13799:
13800: ELSE -- Payee Validation API
13806: g_login_id,
13807: 'Import_Vendor_Site') <> TRUE) THEN
13808: --
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: '
13818: END IF;
13819:
13820: -- Bug 5491139 hkaniven start --
13821: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAYEE_INFO');
13822: FND_MSG_PUB.ADD;
13823: -- Bug 5491139 hkaniven end --
13824: END IF; -- Payee Validation API
13825:
13826: ELSE -- Supplier Site Creation API
13851: COMMIT WORK;
13852:
13853: -- Standard call to get message count and if count is 1,
13854: -- get message info.
13855: FND_MSG_PUB.Count_And_Get(
13856: p_count => x_msg_count,
13857: p_data => x_msg_data
13858: );
13859:
13860: EXCEPTION
13861: WHEN FND_API.G_EXC_ERROR THEN
13862: ROLLBACK TO Import_Vendor_Sites_PUB;
13863: x_return_status := FND_API.G_RET_STS_ERROR ;
13864: FND_MSG_PUB.Count_And_Get
13865: ( p_count => x_msg_count,
13866: p_data => x_msg_data
13867: );
13868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13867: );
13868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13869: ROLLBACK TO Import_Vendor_Sites_PUB;
13870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13871: FND_MSG_PUB.Count_And_Get
13872: ( p_count => x_msg_count,
13873: p_data => x_msg_data
13874: );
13875: WHEN OTHERS THEN
13874: );
13875: WHEN OTHERS THEN
13876: ROLLBACK TO Import_Vendor_Sites_PUB;
13877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13878: IF FND_MSG_PUB.Check_Msg_Level
13879: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13880: FND_MSG_PUB.Add_Exc_Msg
13881: ( G_PKG_NAME,
13882: l_api_name
13875: WHEN OTHERS THEN
13876: ROLLBACK TO Import_Vendor_Sites_PUB;
13877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13878: IF FND_MSG_PUB.Check_Msg_Level
13879: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13880: FND_MSG_PUB.Add_Exc_Msg
13881: ( G_PKG_NAME,
13882: l_api_name
13883: );
13876: ROLLBACK TO Import_Vendor_Sites_PUB;
13877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13878: IF FND_MSG_PUB.Check_Msg_Level
13879: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13880: FND_MSG_PUB.Add_Exc_Msg
13881: ( G_PKG_NAME,
13882: l_api_name
13883: );
13884: END IF;
13881: ( G_PKG_NAME,
13882: l_api_name
13883: );
13884: END IF;
13885: FND_MSG_PUB.Count_And_Get
13886: ( p_count => x_msg_count,
13887: p_data => x_msg_data
13888: );
13889: END Import_Vendor_Sites;
13944: THEN
13945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13946: END IF;
13947:
13948: FND_MSG_PUB.initialize;
13949:
13950: g_user_id := FND_GLOBAL.USER_ID;
13951: g_login_id := FND_GLOBAL.LOGIN_ID;
13952: g_source := p_source;
14135: COMMIT WORK;
14136:
14137: -- Standard call to get message count and if count is 1,
14138: -- get message info.
14139: FND_MSG_PUB.Count_And_Get(
14140: p_count => x_msg_count,
14141: p_data => x_msg_data
14142: );
14143:
14144: EXCEPTION
14145: WHEN FND_API.G_EXC_ERROR THEN
14146: ROLLBACK TO Import_Vendor_Contact_PUB;
14147: x_return_status := FND_API.G_RET_STS_ERROR ;
14148: FND_MSG_PUB.Count_And_Get
14149: ( p_count => x_msg_count,
14150: p_data => x_msg_data
14151: );
14152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14151: );
14152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14153: ROLLBACK TO Import_Vendor_Contact_PUB;
14154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14155: FND_MSG_PUB.Count_And_Get
14156: ( p_count => x_msg_count,
14157: p_data => x_msg_data
14158: );
14159: WHEN OTHERS THEN
14158: );
14159: WHEN OTHERS THEN
14160: ROLLBACK TO Import_Vendor_Contact_PUB;
14161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14162: IF FND_MSG_PUB.Check_Msg_Level
14163: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
14164: FND_MSG_PUB.Add_Exc_Msg
14165: ( G_PKG_NAME,
14166: l_api_name
14159: WHEN OTHERS THEN
14160: ROLLBACK TO Import_Vendor_Contact_PUB;
14161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14162: IF FND_MSG_PUB.Check_Msg_Level
14163: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
14164: FND_MSG_PUB.Add_Exc_Msg
14165: ( G_PKG_NAME,
14166: l_api_name
14167: );
14160: ROLLBACK TO Import_Vendor_Contact_PUB;
14161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14162: IF FND_MSG_PUB.Check_Msg_Level
14163: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
14164: FND_MSG_PUB.Add_Exc_Msg
14165: ( G_PKG_NAME,
14166: l_api_name
14167: );
14168: END IF;
14165: ( G_PKG_NAME,
14166: l_api_name
14167: );
14168: END IF;
14169: FND_MSG_PUB.Count_And_Get
14170: ( p_count => x_msg_count,
14171: p_data => x_msg_data
14172: );
14173: END Import_Vendor_Contacts;
14224: END IF;
14225:
14226: -- Initialize message list if p_init_msg_list is set to TRUE.
14227: IF FND_API.to_Boolean( p_init_msg_list ) THEN
14228: FND_MSG_PUB.initialize;
14229: END IF;
14230:
14231: -- Initialize API return status to success
14232: x_return_status := FND_API.G_RET_STS_SUCCESS;
14297: END IF;
14298:
14299: -- Standard call to get message count and if count is 1,
14300: -- get message info.
14301: FND_MSG_PUB.Count_And_Get(
14302: p_count => x_msg_count ,
14303: p_data => x_msg_data
14304: );
14305:
14306: EXCEPTION
14307: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14308: ROLLBACK TO Update_Address_Assign_DFF_PUB;
14309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14310: FND_MSG_PUB.Count_And_Get
14311: ( p_count => x_msg_count,
14312: p_data => x_msg_data
14313: );
14314: WHEN OTHERS THEN
14313: );
14314: WHEN OTHERS THEN
14315: ROLLBACK TO Update_Address_Assign_DFF_PUB;
14316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14317: IF FND_MSG_PUB.Check_Msg_Level
14318: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
14319: FND_MSG_PUB.Add_Exc_Msg
14320: ( G_PKG_NAME ,
14321: l_api_name
14314: WHEN OTHERS THEN
14315: ROLLBACK TO Update_Address_Assign_DFF_PUB;
14316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14317: IF FND_MSG_PUB.Check_Msg_Level
14318: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
14319: FND_MSG_PUB.Add_Exc_Msg
14320: ( G_PKG_NAME ,
14321: l_api_name
14322: );
14315: ROLLBACK TO Update_Address_Assign_DFF_PUB;
14316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14317: IF FND_MSG_PUB.Check_Msg_Level
14318: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
14319: FND_MSG_PUB.Add_Exc_Msg
14320: ( G_PKG_NAME ,
14321: l_api_name
14322: );
14323: END IF;
14320: ( G_PKG_NAME ,
14321: l_api_name
14322: );
14323: END IF;
14324: FND_MSG_PUB.Count_And_Get
14325: ( p_count => x_msg_count,
14326: p_data => x_msg_data
14327: );
14328: END Update_Address_Assignments_DFF;