[Home] [Help]
2: /* $Header: appvndrb.pls 120.202.12020000.4 2013/02/11 05:18:39 sbonala 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
202: WHEN NO_DATA_FOUND THEN
203: x_valid := FALSE;
204: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
205: FND_MESSAGE.SET_TOKEN('COLUMN_NAME', p_column_name );
206: FND_MSG_PUB.ADD;
207: End;
208:
209: END IF;
210:
248:
249: IF (l_dup_count_org_id > 0 OR l_dup_count_org_name > 0 ) THEN
250: x_valid := FALSE;
251: fnd_message.set_name('SQLAP','AP_VEN_DUPLICATE_VEN_SITE');
252: FND_MSG_PUB.ADD;
253: END IF;
254:
255: END Check_dup_vendor_site;
256:
278: IF l_count > 0 THEN
279: x_valid := FALSE;
280: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
281: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','VENDOR_SITE_CODE' );
282: FND_MSG_PUB.ADD;
283: END IF;
284:
285: END Chk_Dup_party_site_name;
286: /* Bug 14493264 end */
332:
333: IF (l_dup_count_org_id > 0 OR l_dup_count_org_name > 0 ) THEN
334: x_valid := FALSE;
335: fnd_message.set_name('SQLAP','AP_VEN_DUPLICATE_ECE_CODE');
336: FND_MSG_PUB.ADD;
337: END IF;
338:
339: END Check_duplicate_ece_code;
340:
356: x_valid := FALSE;
357: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
358: FND_MESSAGE.SET_TOKEN('ID','FEDERAL_REPORTABLE_FLAG');
359: FND_MESSAGE.SET_TOKEN('NAME','1099_TYPE');
360: FND_MSG_PUB.ADD;
361: END IF;
362:
363: END Check_Valid_1099_type;
364:
379: x_valid := FALSE;
380:
381: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
382: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','PAYMENT_PRIORITY' );
383: FND_MSG_PUB.ADD;
384: END IF;
385: END Check_Payment_Priority;
386:
387: --
416: FND_MESSAGE.SET_NAME('SQLAP','AP_EMPLOYEE_INACTIVE'); /* Bug 9398195 */
417:
418: /* FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
419: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','EMPLOYEE_ID' );Commented for Bug9398195 */
420: FND_MSG_PUB.ADD;
421:
422: END Check_Valid_Employee;
423:
424: --
436: x_valid := FALSE;
437: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
438: FND_MESSAGE.SET_TOKEN('ID','INSPECTION_REQUIRED_FLAG');
439: FND_MESSAGE.SET_TOKEN('NAME','RECEIPT_REQUIRED_FLAG');
440: FND_MSG_PUB.ADD;
441: END IF;
442:
443: END Check_Valid_match_level;
444:
458:
459: x_valid := FALSE;
460: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
461: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','NAME_CONTROL' );
462: FND_MSG_PUB.ADD;
463: END IF;
464:
465: END Check_Valid_name_control;
466:
488: x_valid := FALSE;
489:
490: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
491: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SHIP_VIA_LOOKUP_CODE' );
492: FND_MSG_PUB.ADD;
493: END IF;
494:
495: END Check_Valid_ship_via;
496:
516: WHEN NO_DATA_FOUND THEN
517: x_valid := FALSE;
518: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
519: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SET_OF_BOOKS_ID' );
520: FND_MSG_PUB.ADD;
521: END Check_Valid_Sob_Id;
522:
523: --
524: -- Check if the Employee has already been assigned
542: IF l_count > 0 THEN
543: x_valid := FALSE;
544:
545: FND_MESSAGE.SET_NAME('SQLAP','AP_EMPLOYEE_ASSIGNED');
546: FND_MSG_PUB.ADD;
547: END IF;
548:
549: END Chk_Dup_Employee;
550:
568: IF l_count > 1 THEN
569: x_valid := FALSE;
570: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
571: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SEGMENT1' );
572: FND_MSG_PUB.ADD;
573: END IF;
574:
575: END Chk_Dup_segment1_int;
576:
598:
599: IF l_count > 1 THEN
600: x_valid := FALSE;
601: FND_MESSAGE.SET_NAME('SQLAP','AP_VEN_DUPLICATE_NAME');
602: FND_MSG_PUB.ADD;
603: END IF;
604:
605: END Chk_Dup_Vendor_Name_new;
606: Bug 6939863 */
680:
681: IF l_count > 0 THEN
682: x_valid := FALSE;
683: FND_MESSAGE.SET_NAME('SQLAP','AP_VEN_DUPLICATE_NAME');
684: FND_MSG_PUB.ADD;
685: END IF;
686:
687: END Chk_Dup_Vendor_Name_new;
688:
715:
716: IF l_count > 0 THEN
717: x_valid := FALSE;
718: FND_MESSAGE.SET_NAME('SQLAP','AP_VEN_DUPLICATE_VEN_NUM');
719: FND_MSG_PUB.ADD;
720: END IF;
721:
722: END Chk_Dup_Vendor_Number;
723:
743: WHEN NO_DATA_FOUND THEN
744: x_valid := FALSE;
745: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
746: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','RECEIVING_ROUTING_ID' );
747: FND_MSG_PUB.ADD;
748: END Chk_rcv_routing_id;
749:
750: --
751: -- This procedure should perform Other Employee Validations
767: p_valid := FALSE;
768: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
769: FND_MESSAGE.SET_TOKEN('ID','VENDOR_TYPE_LOOKUP_CODE');
770: FND_MESSAGE.SET_TOKEN('NAME','EMPLOYEE_ID');
771: FND_MSG_PUB.ADD;
772: END IF;
773:
774: END employee_type_checks;
775:
808:
809: IF (l_count = 0) THEN
810: FND_MESSAGE.SET_NAME('SQLAP','AP_API_INVALID_PAYMENT_CURR');
811: p_valid := FALSE;
812: FND_MSG_PUB.ADD;
813: END IF;
814:
815: END IF;
816:
835:
836: IF l_count < 1 THEN
837: x_valid := FALSE;
838: FND_MESSAGE.SET_NAME('SQLAP','AP_API_INVALID_IN_TAX_TYPE');
839: FND_MSG_PUB.ADD;
840: END IF;
841:
842: END Val_Income_Tax_Type;
843:
873: WHEN NO_DATA_FOUND THEN
874: x_valid := FALSE;
875: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
876: FND_MESSAGE.SET_TOKEN('COLUMN_NAME', p_column_name );
877: FND_MSG_PUB.ADD;
878: End;
879: ELSE
880: Begin
881: SELECT GCC.code_combination_id
892: WHEN NO_DATA_FOUND THEN
893: x_valid := FALSE;
894: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
895: FND_MESSAGE.SET_TOKEN('COLUMN_NAME', p_column_name );
896: FND_MSG_PUB.ADD;
897: End;
898: END IF;
899:
900: END validate_CCIDs;
980:
981: IF l_count > 0 THEN
982: x_valid := FALSE;
983: FND_MESSAGE.SET_NAME('SQLAP','AP_VEN_DUPLICATE_NAME');
984: FND_MSG_PUB.ADD;
985: END IF;
986:
987: END Chk_Dup_Vendor_Name_update;
988:
1007: (p_segment1 is Null)) THEN
1008: x_valid := FALSE;
1009: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1010: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SEGMENT1');
1011: FND_MSG_PUB.ADD;
1012: ELSIF l_ven_num_code not in ('MANUAL','AUTOMATIC') then
1013: x_valid := FALSE;
1014: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1015: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','USER_DEFINED_VENDOR_NUM_CODE');
1012: ELSIF l_ven_num_code not in ('MANUAL','AUTOMATIC') then
1013: x_valid := FALSE;
1014: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1015: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','USER_DEFINED_VENDOR_NUM_CODE');
1016: FND_MSG_PUB.ADD;
1017: END IF;
1018:
1019: END Chk_Null_Vendor_Number;
1020:
1081: IF p_country = 'US' THEN
1082: IF (l_outcome = 'F') THEN
1083: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1084: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','NUM_1099' );
1085: FND_MSG_PUB.ADD; --bug6050423
1086: l_ret_value := 'N';
1087: END IF;
1088: END IF;
1089: IF p_country IN ('IT','ES','PT') THEN
1091: THEN
1092: FND_MESSAGE.SET_NAME('XLE', 'XLE_INVALID_REG_NUM_ERR');
1093: FND_MESSAGE.SET_TOKEN('REG_CODE', l_registration_code);
1094: FND_MESSAGE.SET_TOKEN('REG_NUM', p_taxpayer_id);
1095: FND_MSG_PUB.ADD; --bug6050423
1096: l_ret_value := 'N'; --bug6050423
1097: END IF;
1098: END IF;
1099:
1122:
1123: x_valid := FALSE;
1124: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1125: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SEGMENT1' );
1126: FND_MSG_PUB.ADD;
1127: END IF;
1128:
1129: END Check_valid_vendor_num;
1130:
1141: IF p_match_option not IN ('P','R') THEN
1142: x_valid := FALSE;
1143: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1144: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','MATCH_OPTION' );
1145: FND_MSG_PUB.ADD;
1146: END IF;
1147:
1148: END Check_Valid_Match_Option;
1149:
1168: AND p_allow_awt_flag = 'Y' THEN
1169: x_valid := FALSE;
1170: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1171: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','ALLOW_AWT_FLAG' );
1172: FND_MSG_PUB.ADD;
1173: END IF;
1174:
1175: END Chk_allow_awt_flag;
1176:
1197: x_valid := FALSE;
1198: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
1199: FND_MESSAGE.SET_TOKEN('ID','ALLOW_AWT_FLAG');
1200: FND_MESSAGE.SET_TOKEN('NAME','AWT_GROUP_ID');
1201: FND_MSG_PUB.ADD;
1202: Elsif p_awt_name is NOT NULL Then
1203:
1204: x_valid := FALSE;
1205: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
1204: x_valid := FALSE;
1205: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
1206: FND_MESSAGE.SET_TOKEN('ID','ALLOW_AWT_FLAG');
1207: FND_MESSAGE.SET_TOKEN('NAME','AWT_GROUP_NAME');
1208: FND_MSG_PUB.ADD;
1209: End If;
1210:
1211: END;
1212:
1224: WHEN NO_DATA_FOUND THEN
1225: x_valid := FALSE;
1226: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1227: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','AWT_GROUP_ID' );
1228: FND_MSG_PUB.ADD;
1229: END;
1230:
1231: ELSIF (p_allow_awt_flag = 'Y' and (p_awt_id is NOT NULL and p_awt_name is NOT NULL)) THEN
1232: BEGIN
1244: x_valid := FALSE;
1245: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_NOT_MATCHED');
1246: FND_MESSAGE.SET_TOKEN('ID','AWT_GROUP_ID');
1247: FND_MESSAGE.SET_TOKEN('NAME','AWT_GROUP_NAME');
1248: FND_MSG_PUB.ADD;
1249: END;
1250:
1251: ELSIF (p_allow_awt_flag = 'Y' and (p_awt_id is NULL and p_awt_name is NOT NULL)) THEN
1252: BEGIN
1262: WHEN NO_DATA_FOUND THEN
1263: x_valid := FALSE;
1264: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1265: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','AWT_GROUP_NAME' );
1266: FND_MSG_PUB.ADD;
1267: END;
1268:
1269: END IF;
1270:
1297: x_valid := FALSE;
1298: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
1299: FND_MESSAGE.SET_TOKEN('ID','ALLOW_AWT_FLAG');
1300: FND_MESSAGE.SET_TOKEN('NAME','AWT_GROUP_ID');
1301: FND_MSG_PUB.ADD;
1302: Elsif p_pay_awt_name is NOT NULL Then
1303:
1304: x_valid := FALSE;
1305: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
1304: x_valid := FALSE;
1305: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
1306: FND_MESSAGE.SET_TOKEN('ID','ALLOW_AWT_FLAG');
1307: FND_MESSAGE.SET_TOKEN('NAME','AWT_GROUP_NAME');
1308: FND_MSG_PUB.ADD;
1309: End If;
1310:
1311: END;
1312:
1325: WHEN NO_DATA_FOUND THEN
1326: x_valid := FALSE;
1327: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1328: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','AWT_GROUP_ID' );
1329: FND_MSG_PUB.ADD;
1330: END;
1331:
1332: ELSIF (p_allow_awt_flag = 'Y' and (p_pay_awt_id is NOT NULL and p_pay_awt_name is NOT NULL)) THEN
1333: BEGIN
1345: x_valid := FALSE;
1346: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_NOT_MATCHED');
1347: FND_MESSAGE.SET_TOKEN('ID','AWT_GROUP_ID');
1348: FND_MESSAGE.SET_TOKEN('NAME','AWT_GROUP_NAME');
1349: FND_MSG_PUB.ADD;
1350: END;
1351:
1352: ELSIF (p_allow_awt_flag = 'Y' and (p_pay_awt_id is NULL and p_pay_awt_name is NOT NULL)) THEN
1353: BEGIN
1363: WHEN NO_DATA_FOUND THEN
1364: x_valid := FALSE;
1365: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1366: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','AWT_GROUP_NAME' );
1367: FND_MSG_PUB.ADD;
1368: END;
1369:
1370: END IF;
1371:
1393: x_valid := FALSE;
1394:
1395: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1396: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','HOLD_BY' );
1397: FND_MSG_PUB.ADD;
1398: END Check_Valid_Hold_by;
1399:
1400: --
1401: -- Check that terms_id and terms_name are in sync.
1431: x_valid := FALSE;
1432:
1433: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1434: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','TERMS_ID' );
1435: FND_MSG_PUB.ADD;
1436: END;
1437:
1438: ELSIF (p_terms_id is NOT NULL and p_terms_name is NOT NULL) THEN
1439: BEGIN
1452:
1453: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_NOT_MATCHED');
1454: FND_MESSAGE.SET_TOKEN('ID','TERMS_ID');
1455: FND_MESSAGE.SET_TOKEN('NAME','TERMS_NAME');
1456: FND_MSG_PUB.ADD;
1457: END;
1458:
1459: ELSIF (p_terms_id is NULL and p_terms_name is NOT NULL) THEN
1460: BEGIN
1471: x_valid := FALSE;
1472:
1473: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1474: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','TERMS_NAME' );
1475: FND_MSG_PUB.ADD;
1476: END;
1477:
1478: END IF;
1479:
1514:
1515: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_NOT_MATCHED');
1516: FND_MESSAGE.SET_TOKEN('ID','DISTRIBUTION_SET_ID');
1517: FND_MESSAGE.SET_TOKEN('NAME','DISTRIBUTION_SET_NAME');
1518: FND_MSG_PUB.ADD;
1519: END;
1520:
1521: ELSIF p_dist_id is NULL and p_dist_name is NOT NULL THEN
1522: BEGIN
1532: x_valid := FALSE;
1533:
1534: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1535: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','DISTRIBUTION_SET_NAME' );
1536: FND_MSG_PUB.ADD;
1537: END;
1538:
1539: ELSIF p_dist_id is NOT NULL and p_dist_name is NULL THEN
1540: BEGIN
1550: x_valid := FALSE;
1551:
1552: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1553: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','DISTRIBUTION_SET_ID' );
1554: FND_MSG_PUB.ADD;
1555: END;
1556:
1557: END IF;
1558:
1598: x_valid := FALSE;
1599:
1600: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1601: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SHIP_TO_LOCATION_ID' );
1602: FND_MSG_PUB.ADD;
1603: END;
1604:
1605: ELSIF (p_ship_location_id is NOT NULL and p_ship_location_code is NOT NULL) THEN
1606: BEGIN
1623:
1624: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_NOT_MATCHED');
1625: FND_MESSAGE.SET_TOKEN('ID','SHIP_TO_LOCATION_ID');
1626: FND_MESSAGE.SET_TOKEN('NAME','SHIP_TO_LOCATION_CODE');
1627: FND_MSG_PUB.ADD;
1628: END;
1629:
1630: ELSIF (p_ship_location_id is NULL and p_ship_location_code is NOT NULL) THEN
1631: BEGIN
1646: x_valid := FALSE;
1647:
1648: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1649: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SHIP_TO_LOCATION_CODE' );
1650: FND_MSG_PUB.ADD;
1651: END;
1652:
1653: END IF;
1654:
1692: x_valid := FALSE;
1693:
1694: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1695: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','BILL_TO_LOCATION_ID' );
1696: FND_MSG_PUB.ADD;
1697: END;
1698:
1699: ELSIF p_bill_location_id is NOT NULL and p_bill_location_code is NOT NULL THEN
1700:
1718:
1719: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_NOT_MATCHED');
1720: FND_MESSAGE.SET_TOKEN('ID','BILL_TO_LOCATION_ID');
1721: FND_MESSAGE.SET_TOKEN('NAME','BILL_TO_LOCATION_CODE');
1722: FND_MSG_PUB.ADD;
1723: END;
1724:
1725: ELSIF p_bill_location_id is NULL and p_bill_location_code is NOT NULL THEN
1726:
1742: x_valid := FALSE;
1743:
1744: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1745: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','BILL_TO_LOCATION_CODE' );
1746: FND_MSG_PUB.ADD;
1747: END;
1748:
1749: END IF;
1750:
1779: x_valid := FALSE;
1780:
1781: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
1782: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','DEFAULT_PAY_SITE_ID' );
1783: FND_MSG_PUB.ADD;
1784: END Check_Default_pay_site;
1785:
1786: --
1787: -- This procedure should ensure the value for 'state' exists on the
1802: AND sysdate < nvl(inactive_date,sysdate+1);
1803:
1804: IF (l_count = 0) THEN
1805: FND_MESSAGE.SET_NAME('SQLAP','AP_API_INVALID_STATE');
1806: FND_MSG_PUB.ADD;
1807: p_valid := FALSE;
1808: END IF;
1809:
1810: END state_valid;
1858: END IF;
1859: ELSE
1860: -- Bug 5491139 hkaniven start --
1861: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_ORG_INFO');
1862: FND_MSG_PUB.ADD;
1863: -- Bug 5491139 hkaniven end --
1864: END IF;
1865: END;
1866:
1896: END IF;
1897: ELSE
1898: -- Bug 5491139 hkaniven start --
1899: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_ORG_INFO');
1900: FND_MSG_PUB.ADD;
1901: -- Bug 5491139 hkaniven end --
1902: END IF;
1903: END;
1904:
1934: END IF;
1935: ELSE
1936: -- Bug 5491139 hkaniven start --
1937: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_ORG_INFO');
1938: FND_MSG_PUB.ADD;
1939: -- Bug 5491139 hkaniven end --
1940: END IF;
1941: END;
1942: END IF;
1982: x_valid := FALSE;
1983: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
1984: FND_MESSAGE.SET_TOKEN('ID','PAY_ON_CODE');
1985: FND_MESSAGE.SET_TOKEN('NAME','PAY_ON_RECEIPT_SUMMARY_CODE');
1986: FND_MSG_PUB.ADD;
1987: END Check_pay_on_rec_sum_code;
1988:
1989: --
1990: -- Check if the Shipping_Control value is valid
2002: x_valid := FALSE;
2003:
2004: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2005: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SHIPPING_CONTROL' );
2006: FND_MSG_PUB.ADD;
2007: END IF;
2008:
2009: END Check_Shipping_Control;
2010:
2035: x_valid := FALSE;
2036: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
2037: FND_MESSAGE.SET_TOKEN('ID','PAY_ON_CODE');
2038: FND_MESSAGE.SET_TOKEN('NAME','PURCHASING_SITE_FLAG');
2039: FND_MSG_PUB.ADD;
2040: ELSIF (nvl(p_purchasing_site_flag,'N') = 'Y') THEN
2041:
2042: If p_pay_on_code IN ('RECEIPT','USE','RECEIPT_AND_USE') Then
2043: l_dummy := 'Y';
2047: IF l_dummy = 'N' THEN
2048: x_valid := FALSE;
2049: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2050: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','PAY_ON_CODE' );
2051: FND_MSG_PUB.ADD;
2052: ELSIF (p_pay_site_flag = 'N' and l_default_pay_site_id IS NULL) THEN
2053: x_valid := FALSE;
2054: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
2055: FND_MESSAGE.SET_TOKEN('ID','PAY_ON_CODE');
2053: x_valid := FALSE;
2054: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_INCONSISTENT');
2055: FND_MESSAGE.SET_TOKEN('ID','PAY_ON_CODE');
2056: FND_MESSAGE.SET_TOKEN('NAME','PAY_SITE_FLAG');
2057: FND_MSG_PUB.ADD;
2058: END IF;
2059:
2060: END IF;
2061:
2086: );
2087:
2088: IF (l_count = 0) THEN
2089: FND_MESSAGE.SET_NAME('SQLAP','AP_API_INVALID_RECPT_SUMM');
2090: FND_MSG_PUB.ADD;
2091: p_valid := FALSE;
2092: END IF;
2093:
2094: END pay_on_receipt_summary_valid;
2333: IF (l_dummy_1 > 0 or l_dummy_2 > 1) THEN
2334: x_valid := FALSE;
2335: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2336: FND_MESSAGE.SET_TOKEN('COLUMN_NAME', p_column_name );
2337: FND_MSG_PUB.ADD;
2338: END IF;
2339:
2340: End;
2341: ELSIF p_column_name = 'TAX_REPORTING_SITE_FLAG' THEN
2360: IF (l_dummy_1 > 0 or l_dummy_2 > 1) THEN
2361: x_valid := FALSE;
2362: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2363: FND_MESSAGE.SET_TOKEN('COLUMN_NAME', p_column_name );
2364: FND_MSG_PUB.ADD;
2365: END IF;
2366:
2367: END IF;
2368:
2386: WHERE territory_code = p_country_of_origin_code;
2387:
2388: IF (l_count = 0) THEN
2389: FND_MESSAGE.SET_NAME('SQLAP','AP_API_INVALID_COUNTRY_OF_ORIG');
2390: FND_MSG_PUB.ADD;
2391:
2392: p_valid := FALSE;
2393: END IF;
2394:
2418: IF (p_selling_company_identifier IS NULL OR
2419: p_selling_company_identifier = ap_null_char) THEN
2420: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2421: FND_MESSAGE.SET_TOKEN('COLUMN_NAME', l_column_name);
2422: FND_MSG_PUB.ADD;
2423: p_valid := FALSE;
2424: END IF;
2425: END IF;
2426:
2435:
2436: IF l_vendor_count > 0 THEN
2437: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2438: FND_MESSAGE.SET_TOKEN('COLUMN_NAME', l_column_name);
2439: FND_MSG_PUB.ADD;
2440: p_valid := FALSE;
2441: END IF;
2442:
2443: END IF;
2459: x_valid := FALSE;
2460:
2461: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2462: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SUPPLIER_NOTIF_METHOD' );
2463: FND_MSG_PUB.ADD;
2464: END IF;
2465:
2466: END Check_Valid_Sup_Notif_Method;
2467:
2482: x_valid := FALSE;
2483:
2484: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2485: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','REMIT_ADVICE_DELIVERY_METHOD' );
2486: FND_MSG_PUB.ADD;
2487: END IF;
2488:
2489: END Check_Valid_Remit_Adv_Del_Mthd ;
2490: -- end Bug 8422781
2569:
2570: IF p_tolerance_type = 'QUANTITY' THEN
2571: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2572: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','TOLERANCE_ID' );
2573: FND_MSG_PUB.ADD;
2574: ELSE
2575: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2576: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SERVICES_TOLERANCE_ID' );
2577: FND_MSG_PUB.ADD;
2573: FND_MSG_PUB.ADD;
2574: ELSE
2575: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2576: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SERVICES_TOLERANCE_ID' );
2577: FND_MSG_PUB.ADD;
2578: END IF;
2579: END;
2580:
2581: ELSIF (p_tolerance_id is NOT NULL and p_tolerance_name is NOT NULL) THEN
2594: IF p_tolerance_type = 'QUANTITY' THEN
2595: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_NOT_MATCHED');
2596: FND_MESSAGE.SET_TOKEN('ID','TOLERANCE_ID');
2597: FND_MESSAGE.SET_TOKEN('NAME','TOLERANCE_NAME');
2598: FND_MSG_PUB.ADD;
2599: ELSE
2600: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_NOT_MATCHED');
2601: FND_MESSAGE.SET_TOKEN('ID','SERVICES_TOLERANCE_ID');
2602: FND_MESSAGE.SET_TOKEN('NAME','SERVICES_TOLERANCE_NAME');
2599: ELSE
2600: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMNS_NOT_MATCHED');
2601: FND_MESSAGE.SET_TOKEN('ID','SERVICES_TOLERANCE_ID');
2602: FND_MESSAGE.SET_TOKEN('NAME','SERVICES_TOLERANCE_NAME');
2603: FND_MSG_PUB.ADD;
2604: END IF;
2605: END;
2606:
2607: ELSIF (p_tolerance_id is NULL and p_tolerance_name is NOT NULL) THEN
2617: x_valid := FALSE;
2618: IF p_tolerance_type = 'QUANTITY' THEN
2619: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2620: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','TOLERANCE_NAME' );
2621: FND_MSG_PUB.ADD;
2622: ELSE
2623: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2624: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SERVICES_TOLERANCE_NAME' );
2625: FND_MSG_PUB.ADD;
2621: FND_MSG_PUB.ADD;
2622: ELSE
2623: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2624: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SERVICES_TOLERANCE_NAME' );
2625: FND_MSG_PUB.ADD;
2626: END IF;
2627: END;
2628: END IF;
2629:
2655: x_valid := FALSE;
2656:
2657: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2658: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','SHIP_VIA_LOOKUP_CODE' );
2659: FND_MSG_PUB.ADD;
2660: END Check_Site_Ship_Via;
2661:
2662: --
2663: -- Check if the party_id is valid
2683: x_valid := FALSE;
2684:
2685: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2686: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','PARTY_ID' );
2687: FND_MSG_PUB.ADD;
2688:
2689: IF x_valid = TRUE THEN
2690: --check usage status
2691: SELECT count(party_id)
2699: x_valid := FALSE;
2700:
2701: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2702: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','PARTY_ID' );
2703: FND_MSG_PUB.ADD;
2704: END IF;
2705: END IF;
2706:
2707: END Check_Valid_Party_Id;
2729: x_valid := FALSE;
2730:
2731: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2732: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','LOCATION_ID' );
2733: FND_MSG_PUB.ADD;
2734: END IF;
2735:
2736: END Check_Valid_Location_Id;
2737:
2759: x_valid := FALSE;
2760:
2761: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2762: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','PARTY_SITE_ID' );
2763: FND_MSG_PUB.ADD;
2764: END IF;
2765:
2766:
2767: END Check_Valid_Party_Site_Id;
2791: x_valid := FALSE;
2792:
2793: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2794: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','RELATIONSHIP_ID' );
2795: FND_MSG_PUB.ADD;
2796:
2797: END Check_Valid_Relationship_Id;
2798:
2799: --
2820: x_valid := FALSE;
2821:
2822: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
2823: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','ORG_CONTACT_ID' );
2824: FND_MSG_PUB.ADD;
2825:
2826: END Check_Valid_Org_Contact_Id;
2827:
2828: -- This procedure for Import functionality from 11i
2868: END IF;
2869: ELSE
2870: -- Bug 5491139 hkaniven start --
2871: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_VENDOR_SITE_ID');
2872: FND_MSG_PUB.ADD;
2873: -- Bug 5491139 hkaniven end --
2874: END IF;
2875: -- Trap unknown errors
2876: WHEN OTHERS THEN
2941: END IF;
2942: END IF;
2943: ELSE
2944: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_VENDOR_SITE_CODE');
2945: FND_MSG_PUB.ADD;
2946: END IF;
2947: ELSE
2948: SELECT vendor_site_code, vendor_site_id
2949: INTO l_vendor_site_code,p_vendor_site_id
2976: END IF;
2977: END IF;
2978: ELSE
2979: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_VENDOR_SITE_CODE');
2980: FND_MSG_PUB.ADD;
2981: END IF;
2982: END;
2983: ELSE
2984: /* Bug 12590128 end */
3031: END IF;
3032: ELSE
3033: -- Bug 5491139 hkaniven start --
3034: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_VENDOR_SITE_CODE');
3035: FND_MSG_PUB.ADD;
3036: -- Bug 5491139 hkaniven end --
3037: END IF;
3038: END;
3039:
3074: END IF;
3075: ELSE
3076: -- Bug 5491139 hkaniven start --
3077: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_VENDOR_SITE_CODE');
3078: FND_MSG_PUB.ADD;
3079: -- Bug 5491139 hkaniven end --
3080: END IF;
3081: END;
3082:
3280: x_valid := FALSE;
3281:
3282: FND_MESSAGE.SET_NAME('SQLAP','AP_IMPORT_COLUMN_INVALID');
3283: FND_MESSAGE.SET_TOKEN('COLUMN_NAME','DUNS_NUMBER' );
3284: FND_MSG_PUB.ADD;
3285: END Chk_new_duns_number;
3286:
3287:
3288: -----------------------------------------------------------------------------
3314: WHEN e_apps_exception THEN
3315: x_valid := FALSE;
3316:
3317: FND_MESSAGE.SET_NAME('SQLAP','AP_CCR_NO_UPDATE');
3318: FND_MSG_PUB.ADD;
3319: END update_supplier_JFMIP_checks;
3320:
3321:
3322: -----------------------------------------------------------------------------
3364: -- Trap validation error
3365: WHEN e_apps_exception THEN
3366: x_valid := FALSE;
3367: FND_MESSAGE.SET_NAME('SQLAP','AP_CCR_NO_UPDATE');
3368: FND_MSG_PUB.ADD;
3369:
3370: END Chk_update_site_ccr_values;
3371:
3372:
3541: END IF;
3542:
3543: -- Initialize message list if p_init_msg_list is set to TRUE.
3544: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3545: FND_MSG_PUB.initialize;
3546: END IF;
3547:
3548: -- Initialize API return status to success
3549: x_return_status := FND_API.G_RET_STS_SUCCESS;
4062: END IF;
4063:
4064: -- Standard call to get message count and if count is 1,
4065: -- get message info.
4066: FND_MSG_PUB.Count_And_Get(
4067: p_count => x_msg_count ,
4068: p_data => x_msg_data
4069: );
4070:
4071: EXCEPTION
4072: WHEN FND_API.G_EXC_ERROR THEN
4073: ROLLBACK TO Create_Vendor_PUB;
4074: x_return_status := FND_API.G_RET_STS_ERROR ;
4075: FND_MSG_PUB.Count_And_Get
4076: ( p_count => x_msg_count,
4077: p_data => x_msg_data
4078: );
4079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4078: );
4079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4080: ROLLBACK TO Create_Vendor_PUB;
4081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4082: FND_MSG_PUB.Count_And_Get
4083: ( p_count => x_msg_count,
4084: p_data => x_msg_data
4085: );
4086: WHEN OTHERS THEN
4085: );
4086: WHEN OTHERS THEN
4087: ROLLBACK TO Create_Vendor_PUB;
4088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4089: IF FND_MSG_PUB.Check_Msg_Level
4090: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4091: FND_MSG_PUB.Add_Exc_Msg
4092: ( G_PKG_NAME ,
4093: l_api_name
4086: WHEN OTHERS THEN
4087: ROLLBACK TO Create_Vendor_PUB;
4088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4089: IF FND_MSG_PUB.Check_Msg_Level
4090: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4091: FND_MSG_PUB.Add_Exc_Msg
4092: ( G_PKG_NAME ,
4093: l_api_name
4094: );
4087: ROLLBACK TO Create_Vendor_PUB;
4088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4089: IF FND_MSG_PUB.Check_Msg_Level
4090: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4091: FND_MSG_PUB.Add_Exc_Msg
4092: ( G_PKG_NAME ,
4093: l_api_name
4094: );
4095: END IF;
4092: ( G_PKG_NAME ,
4093: l_api_name
4094: );
4095: END IF;
4096: FND_MSG_PUB.Count_And_Get
4097: ( p_count => x_msg_count,
4098: p_data => x_msg_data
4099: );
4100: END Create_Vendor;
4152: END IF;
4153:
4154: -- Initialize message list if p_init_msg_list is set to TRUE.
4155: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4156: FND_MSG_PUB.initialize;
4157: END IF;
4158:
4159: -- Initialize API return status to success
4160: x_return_status := FND_API.G_RET_STS_SUCCESS;
4751: END IF;
4752:
4753: -- Standard call to get message count and if count is 1,
4754: -- get message info.
4755: FND_MSG_PUB.Count_And_Get(
4756: p_count => x_msg_count ,
4757: p_data => x_msg_data
4758: );
4759:
4760: EXCEPTION
4761: WHEN FND_API.G_EXC_ERROR THEN
4762: ROLLBACK TO Update_Vendor_PUB;
4763: x_return_status := FND_API.G_RET_STS_ERROR ;
4764: FND_MSG_PUB.Count_And_Get
4765: ( p_count => x_msg_count,
4766: p_data => x_msg_data
4767: );
4768: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4767: );
4768: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4769: ROLLBACK TO Update_Vendor_PUB;
4770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4771: FND_MSG_PUB.Count_And_Get
4772: ( p_count => x_msg_count,
4773: p_data => x_msg_data
4774: );
4775: WHEN OTHERS THEN
4774: );
4775: WHEN OTHERS THEN
4776: ROLLBACK TO Update_Vendor_PUB;
4777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4778: IF FND_MSG_PUB.Check_Msg_Level
4779: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4780: FND_MSG_PUB.Add_Exc_Msg
4781: ( G_PKG_NAME ,
4782: l_api_name
4775: WHEN OTHERS THEN
4776: ROLLBACK TO Update_Vendor_PUB;
4777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4778: IF FND_MSG_PUB.Check_Msg_Level
4779: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4780: FND_MSG_PUB.Add_Exc_Msg
4781: ( G_PKG_NAME ,
4782: l_api_name
4783: );
4776: ROLLBACK TO Update_Vendor_PUB;
4777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4778: IF FND_MSG_PUB.Check_Msg_Level
4779: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4780: FND_MSG_PUB.Add_Exc_Msg
4781: ( G_PKG_NAME ,
4782: l_api_name
4783: );
4784: END IF;
4781: ( G_PKG_NAME ,
4782: l_api_name
4783: );
4784: END IF;
4785: FND_MSG_PUB.Count_And_Get
4786: ( p_count => x_msg_count,
4787: p_data => x_msg_data
4788: );
4789: END Update_Vendor;
4839: END IF;
4840:
4841: -- Initialize message list if p_init_msg_list is set to TRUE.
4842: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4843: FND_MSG_PUB.initialize;
4844: END IF;
4845:
4846: -- Initialize API return status to success
4847: x_return_status := FND_API.G_RET_STS_SUCCESS;
4884: END IF;
4885: ELSE
4886: -- Bug 5491139 hkaniven start --
4887: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_INSP_REQ_FLAG');
4888: FND_MSG_PUB.ADD;
4889: -- Bug 5491139 hkaniven end --
4890: END IF;
4891: END IF;
4892: END IF;
4936: END IF;
4937: END IF;
4938: ELSE
4939: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INVALID_VAT_CODE');
4940: FND_MSG_PUB.ADD;
4941: -- Bug 8438716 Start
4942: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4943: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
4944: l_api_name,'After call to VAT_CODE validation... Parameters: '
4988:
4989: ELSE
4990: -- Bug 5491139 hkaniven start --
4991: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_REC_REQ_FLAG');
4992: FND_MSG_PUB.ADD;
4993: -- Bug 5491139 hkaniven end --
4994: END IF;
4995: END IF;
4996: END IF;
5031: END IF;
5032: ELSE
5033: -- Bug 5491139 hkaniven start --
5034: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAYMENT_PRIORITY');
5035: FND_MSG_PUB.ADD;
5036: -- Bug 5491139 hkaniven end --
5037: END IF;
5038: END IF;
5039: END IF;
5075: END IF;
5076: ELSE
5077: -- Bug 5491139 hkaniven start --
5078: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_1099_TYPE');
5079: FND_MSG_PUB.ADD;
5080: -- Bug 5491139 hkaniven end --
5081: END IF;
5082: END IF;
5083: END IF;
5140: END IF;
5141:
5142: ELSE
5143: FND_MESSAGE.SET_NAME('SQLAP','AP_DEFAULT_COUNTRY_CODE_NULL');
5144: FND_MSG_PUB.ADD;
5145: END IF;
5146:
5147: -- End of Bug 6852552
5148: END IF;
5173: END IF;
5174: END IF;
5175: ELSE
5176: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_TAXPAYER_ID');
5177: FND_MSG_PUB.ADD;
5178: END IF;
5179: END IF;
5180: END IF;
5181:
5213: END IF;
5214: END IF;
5215: ELSE
5216: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_EMPLOYEE_ID');
5217: FND_MSG_PUB.ADD;
5218: END IF;
5219: END IF;
5220: -- end added by abhsaxen for bug 7147735
5221: IF p_vendor_rec.employee_id is NOT NULL
5242: End If;
5243: /* ELSE
5244: -- Bug 5491139 hkaniven start --
5245: Fnd_Message.Set_Name('SQLAP','AP_INVALID_EMPLOYEE_ID');
5246: FND_MSG_PUB.ADD;*/ --Commented for Bug9398195
5247: -- Bug 5491139 hkaniven end --
5248: END IF;
5249: END IF;
5250: -- start added by abhsaxen for bug 7147735
5278: END IF;
5279: END IF;
5280: ELSE
5281: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_EMPLOYEE_ID');
5282: FND_MSG_PUB.ADD;
5283: END IF;
5284: END;
5285: -- end added by abhsaxen for bug 7147735
5286: END IF;
5326: END IF;
5327: ELSE
5328: -- Bug 5491139 hkaniven start --
5329: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_INSPEC_RECEIPT');
5330: FND_MSG_PUB.ADD;
5331: -- Bug 5491139 hkaniven end --
5332: END IF;
5333: END IF;
5334: END IF;
5367: END IF;
5368: ELSE
5369: -- Bug 5491139 hkaniven start --
5370: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_NAME_CONTROL');
5371: FND_MSG_PUB.ADD;
5372: -- Bug 5491139 hkaniven end --
5373: END IF;
5374: END IF;
5375: END IF;
5416: END IF;
5417: ELSE
5418: -- Bug 5491139 hkaniven start --
5419: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_SHIP_INVENTORY');
5420: FND_MSG_PUB.ADD;
5421: -- Bug 5491139 hkaniven end --
5422: END IF;
5423: END IF;
5424: END IF;
5459: END IF;
5460: ELSE
5461: -- Bug 5491139 hkaniven start --
5462: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SOB');
5463: FND_MSG_PUB.ADD;
5464: -- Bug 5491139 hkaniven end --
5465: END IF;
5466: END IF;
5467: END IF;
5523: END IF;
5524: ELSE
5525: -- Bug 5491139 hkaniven start --
5526: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SEGMENT1_INT');
5527: FND_MSG_PUB.ADD;
5528: -- Bug 5491139 hkaniven end --
5529: END IF;
5530: END IF;
5531: END IF;
5624: END IF;
5625: ELSE
5626: -- Bug 5491139 hkaniven start --
5627: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_RCV_ROUTING');
5628: FND_MSG_PUB.ADD;
5629: -- Bug 5491139 hkaniven end --
5630: END IF;
5631: END IF;
5632: END IF;
5673: ELSE
5674:
5675: -- Bug 5491139 hkaniven start --
5676: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_VENDOR_TYPE');
5677: FND_MSG_PUB.ADD;
5678: -- Bug 5491139 hkaniven end --
5679:
5680: END IF;
5681: END IF;
5714: ELSE
5715:
5716: -- Bug 5491139 hkaniven start --
5717: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_INV_CURRENCY');
5718: FND_MSG_PUB.ADD;
5719: -- Bug 5491139 hkaniven end --
5720:
5721: END IF;
5722: END IF;
5756: ELSE
5757:
5758: -- Bug 5491139 hkaniven start --
5759: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_CURRENCY');
5760: FND_MSG_PUB.ADD;
5761: -- Bug 5491139 hkaniven end --
5762:
5763: END IF;
5764: END IF;
5799: ELSE
5800:
5801: -- Bug 5491139 hkaniven start --
5802: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_TYPE_1099');
5803: FND_MSG_PUB.ADD;
5804: -- Bug 5491139 hkaniven end --
5805:
5806: END IF;
5807: END IF;
5841: END IF;
5842: END IF;
5843: ELSE
5844: FND_MESSAGE.SET_NAME('SQLAP','AP_INCORRECT_GTAS_INFO');
5845: FND_MSG_PUB.ADD;
5846: END IF;
5847: END IF;
5848:
5849: IF(AP_INVOICES_UTILITY_PKG.FV_ENABLED)THEN
5931:
5932: ELSE
5933:
5934: FND_MESSAGE.SET_NAME('SQLAP','AP_CANT_UPDATE_CCR_VENDOR');
5935: FND_MSG_PUB.ADD;
5936:
5937: END IF;
5938: END IF;
5939:
6000: IF p_vendor_rec.ext_payee_rec.payer_org_type IS NOT NULL THEN
6001:
6002: /*Bug 7572325- added the call to count_and_get to get the count
6003: before call to IBY API in local variable*/
6004: FND_MSG_PUB.Count_And_Get(p_count => l_msg_count,
6005: p_data => l_msg_data);
6006:
6007: IBY_DISBURSEMENT_SETUP_PUB.Validate_External_Payee
6008: ( p_api_version => 1.0,
6049: -- more than one error. The calling module will need to get
6050: -- them from the message stack
6051: FOR i IN l_msg_count..l_payee_msg_count
6052: LOOP
6053: l_error_code := FND_MSG_PUB.Get(p_msg_index => i,
6054: p_encoded => 'F');
6055:
6056: If i = l_msg_count then
6057: l_error_code := '1)Error in '||l_debug_info||
6068:
6069: -- Bug 5491139 hkaniven start --
6070: --FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAYEE'); --bug 7572325
6071: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAYEE_INFO'); --bug 7572325
6072: FND_MSG_PUB.ADD;
6073: -- Bug 5491139 hkaniven end --
6074:
6075: END IF;
6076: END IF;
6115: ELSE
6116:
6117: -- Bug 5491139 hkaniven start --
6118: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PARTY_ID');
6119: FND_MSG_PUB.ADD;
6120: -- Bug 5491139 hkaniven end --
6121:
6122: END IF;
6123: ELSE
6166: ELSE
6167:
6168: -- Bug 5491139 hkaniven start --
6169: FND_MESSAGE.SET_NAME('SQLAP','AP_NULL_VENDOR_NUMBER');
6170: FND_MSG_PUB.ADD;
6171: -- Bug 5491139 hkaniven end --
6172:
6173: END IF;
6174: END IF;
6216: ELSE
6217:
6218: -- Bug 5491139 hkaniven start --
6219: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_ONE_TIME_FLAG');
6220: FND_MSG_PUB.ADD;
6221: -- Bug 5491139 hkaniven end --
6222:
6223: END IF;
6224: END IF;
6261: END IF;
6262: ELSE
6263: -- Bug 5491139 hkaniven start --
6264: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SUMMARY_FLAG');
6265: FND_MSG_PUB.ADD;
6266: -- Bug 5491139 hkaniven end --
6267: END IF;
6268: END IF;
6269: END IF;
6305: END IF;
6306: ELSE
6307: -- Bug 5491139 hkaniven start --
6308: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_ENABLED_FLAG');
6309: FND_MSG_PUB.ADD;
6310: -- Bug 5491139 hkaniven end --
6311: END IF;
6312: END IF;
6313: END IF;
6350: END IF;
6351: ELSE
6352: -- Bug 5491139 hkaniven start --
6353: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_VENDOR_TYPE');
6354: FND_MSG_PUB.ADD;
6355: -- Bug 5491139 hkaniven end --
6356: END IF;
6357: END IF;
6358: END IF;
6395: END IF;
6396: ELSE
6397: -- Bug 5491139 hkaniven start --
6398: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_DATE_BASIS');
6399: FND_MSG_PUB.ADD;
6400: -- Bug 5491139 hkaniven end --
6401: END IF;
6402: END IF;
6403: END IF;
6439: END IF;
6440: ELSE
6441: -- Bug 5491139 hkaniven start --
6442: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_GROUP');
6443: FND_MSG_PUB.ADD;
6444: -- Bug 5491139 hkaniven end --
6445:
6446: END IF;
6447: END IF;
6486: END IF;
6487: ELSE
6488: -- Bug 5491139 hkaniven start --
6489: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_ORG_TYPE');
6490: FND_MSG_PUB.ADD;
6491: -- Bug 5491139 hkaniven end --
6492: END IF;
6493: END IF;
6494: END IF;
6531: END IF;
6532: ELSE
6533: -- Bug 5491139 hkaniven start --
6534: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_MINORITY_GROUP');
6535: FND_MSG_PUB.ADD;
6536: -- Bug 5491139 hkaniven end --
6537: END IF;
6538: END IF;
6539: END IF;
6576: END IF;
6577: ELSE
6578: -- Bug 5491139 hkaniven start --
6579: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_TERMS_DATE');
6580: FND_MSG_PUB.ADD;
6581: -- Bug 5491139 hkaniven end --
6582: END IF;
6583: END IF;
6584: END IF;
6621: END IF;
6622: ELSE
6623: -- Bug 5491139 hkaniven start --
6624: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_QTY_RCV_OPTION');
6625: FND_MSG_PUB.ADD;
6626: -- Bug 5491139 hkaniven end --
6627: END IF;
6628: END IF;
6629: END IF;
6666: END IF;
6667: ELSE
6668: -- Bug 5491139 hkaniven start --
6669: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SHIP_RCV_OPTION');
6670: FND_MSG_PUB.ADD;
6671: -- Bug 5491139 hkaniven end --
6672: END IF;
6673: END IF;
6674: END IF;
6711: END IF;
6712: ELSE
6713: -- Bug 5491139 hkaniven start --
6714: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_REC_RCV_OPTION');
6715: FND_MSG_PUB.ADD;
6716: -- Bug 5491139 hkaniven end --
6717: END IF;
6718: END IF;
6719: END IF;
6756: END IF;
6757: ELSE
6758: -- Bug 5491139 hkaniven start --
6759: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_DEBIT_MEMO');
6760: FND_MSG_PUB.ADD;
6761: -- Bug 5491139 hkaniven end --
6762: END IF;
6763: END IF;
6764: END IF;
6801: END IF;
6802: ELSE
6803: -- Bug 5491139 hkaniven start --
6804: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_FED_REPORTABLE');
6805: FND_MSG_PUB.ADD;
6806: -- Bug 5491139 hkaniven end --
6807: END IF;
6808: END IF;
6809: END IF;
6846: END IF;
6847: ELSE
6848: -- Bug 5491139 hkaniven start --
6849: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_STATE_REPORTABLE');
6850: FND_MSG_PUB.ADD;
6851: -- Bug 5491139 hkaniven end --
6852: END IF;
6853: END IF;
6854: END IF;
6891: END IF;
6892: ELSE
6893: -- Bug 5491139 hkaniven start --
6894: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_CALC_INT');
6895: FND_MSG_PUB.ADD;
6896: -- Bug 5491139 hkaniven end --
6897: END IF;
6898: END IF;
6899: END IF;
6936: END IF;
6937: ELSE
6938: -- Bug 5491139 hkaniven start --
6939: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_EXC_FR_DISC');
6940: FND_MSG_PUB.ADD;
6941: -- Bug 5491139 hkaniven end --
6942: END IF;
6943: END IF;
6944: END IF;
6981: END IF;
6982: ELSE
6983: -- Bug 5491139 hkaniven start --
6984: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_HOLD_UNMAT_INV');
6985: FND_MSG_PUB.ADD;
6986: -- Bug 5491139 hkaniven end --
6987: END IF;
6988: END IF;
6989: END IF;
7026: END IF;
7027: ELSE
7028: -- Bug 5491139 hkaniven start --
7029: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_UNORD_RCV');
7030: FND_MSG_PUB.ADD;
7031: -- Bug 5491139 hkaniven end --
7032: END IF;
7033: END IF;
7034: END IF;
7072: END IF;
7073: ELSE
7074: -- Bug 5491139 hkaniven start --
7075: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SUB_RCV');
7076: FND_MSG_PUB.ADD;
7077: -- Bug 5491139 hkaniven end --
7078: END IF;
7079: END IF;
7080: END IF;
7117: END IF;
7118: ELSE
7119: -- Bug 5491139 hkaniven start --
7120: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_HOLD');
7121: FND_MSG_PUB.ADD;
7122: -- Bug 5491139 hkaniven end --
7123: END IF;
7124: END IF;
7125: END IF;
7162: END IF;
7163: ELSE
7164: -- Bug 5491139 hkaniven start --
7165: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SMALL_BUSINESS');
7166: FND_MSG_PUB.ADD;
7167: -- Bug 5491139 hkaniven end --
7168: END IF;
7169: END IF;
7170: END IF;
7207: END IF;
7208: ELSE
7209: -- Bug 5491139 hkaniven start --
7210: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_WOMEN_OWNED');
7211: FND_MSG_PUB.ADD;
7212: -- Bug 5491139 hkaniven end --
7213: END IF;
7214: END IF;
7215: END IF;
7252: END IF;
7253: ELSE
7254: -- Bug 5491139 hkaniven start --
7255: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_HOLD_FUT_PAY');
7256: FND_MSG_PUB.ADD;
7257: -- Bug 5491139 hkaniven end --
7258: END IF;
7259: END IF;
7260: END IF;
7297: END IF;
7298: ELSE
7299: -- Bug 5491139 hkaniven start --
7300: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_HOLD_ALL_PAY');
7301: FND_MSG_PUB.ADD;
7302: -- Bug 5491139 hkaniven end --
7303: END IF;
7304: END IF;
7305: END IF;
7342: END IF;
7343: ELSE
7344: -- Bug 5491139 hkaniven start --
7345: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_TAKE_DISC');
7346: FND_MSG_PUB.ADD;
7347: -- Bug 5491139 hkaniven end --
7348: END IF;
7349: END IF;
7350: END IF;
7384: END IF;
7385: ELSE
7386: -- Bug 5491139 hkaniven start --
7387: FND_MESSAGE.SET_NAME('SQLAP','AP_NULL_VENDOR_NUMBER');
7388: FND_MSG_PUB.ADD;
7389: -- Bug 5491139 hkaniven end --
7390: END IF;
7391: END IF;
7392:
7428: END IF;
7429: ELSE
7430: -- Bug 5491139 hkaniven start --
7431: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_MATCH_OPTION');
7432: FND_MSG_PUB.ADD;
7433: -- Bug 5491139 hkaniven end --
7434: END IF;
7435: END IF;
7436: END IF;
7481: END IF;
7482: ELSE
7483: -- Bug 5491139 hkaniven start --
7484: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_AWT_GROUP');
7485: FND_MSG_PUB.ADD;
7486: -- Bug 5491139 hkaniven end --
7487: END IF;
7488: END IF;
7489:
7537: END IF;
7538: ELSE
7539:
7540: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_AWT_GROUP');
7541: FND_MSG_PUB.ADD;
7542:
7543: END IF;
7544: END IF;
7545:
7609: END IF;
7610: ELSE
7611: -- Bug 5491139 hkaniven start --
7612: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_TERM');
7613: FND_MSG_PUB.ADD;
7614: -- Bug 5491139 hkaniven end --
7615: END IF;
7616: END IF;
7617: END IF;
7628: END IF;
7629:
7630: -- Standard call to get message count and if count is 1,
7631: -- get message info.
7632: FND_MSG_PUB.Count_And_Get(
7633: p_count => x_msg_count ,
7634: p_data => x_msg_data
7635: );
7636:
7638: EXCEPTION
7639: WHEN FND_API.G_EXC_ERROR THEN
7640: ROLLBACK TO Validate_Vendor_PUB;
7641: x_return_status := FND_API.G_RET_STS_ERROR ;
7642: FND_MSG_PUB.Count_And_Get
7643: ( p_count => x_msg_count,
7644: p_data => x_msg_data
7645: );
7646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7645: );
7646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7647: ROLLBACK TO Validate_Vendor_PUB;
7648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7649: FND_MSG_PUB.Count_And_Get
7650: ( p_count => x_msg_count,
7651: p_data => x_msg_data
7652: );
7653: WHEN OTHERS THEN
7652: );
7653: WHEN OTHERS THEN
7654: ROLLBACK TO Validate_Vendor_PUB;
7655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7656: IF FND_MSG_PUB.Check_Msg_Level
7657: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7658: FND_MSG_PUB.Add_Exc_Msg
7659: ( G_PKG_NAME ,
7660: l_api_name
7653: WHEN OTHERS THEN
7654: ROLLBACK TO Validate_Vendor_PUB;
7655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7656: IF FND_MSG_PUB.Check_Msg_Level
7657: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7658: FND_MSG_PUB.Add_Exc_Msg
7659: ( G_PKG_NAME ,
7660: l_api_name
7661: );
7654: ROLLBACK TO Validate_Vendor_PUB;
7655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7656: IF FND_MSG_PUB.Check_Msg_Level
7657: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7658: FND_MSG_PUB.Add_Exc_Msg
7659: ( G_PKG_NAME ,
7660: l_api_name
7661: );
7662: END IF;
7659: ( G_PKG_NAME ,
7660: l_api_name
7661: );
7662: END IF;
7663: FND_MSG_PUB.Count_And_Get
7664: ( p_count => x_msg_count,
7665: p_data => x_msg_data
7666: );
7667: END Validate_Vendor;
7946: END IF;
7947:
7948: -- Initialize message list if p_init_msg_list is set to TRUE.
7949: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7950: FND_MSG_PUB.initialize;
7951: END IF;
7952: -- Bug 5055120
7953: -- This call is incorrect. The correct call is to have the calling
7954: -- modules set the context and call this API with the right ORG_ID.
8024: END IF;
8025: ELSE
8026: -- Bug 5491139 hkaniven start --
8027: FND_MESSAGE.SET_NAME('SQLAP','AP_ORG_INFO_NULL');
8028: FND_MSG_PUB.ADD;
8029: -- Bug 5491139 hkaniven end --
8030: -- Bug 8438716 Start
8031: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8032: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
8068: END IF;
8069: ELSE
8070: -- Bug 5491139 hkaniven start --
8071: FND_MESSAGE.SET_NAME('SQLAP','AP_ORG_INFO_NULL');
8072: FND_MSG_PUB.ADD;
8073: -- Bug 5491139 hkaniven end --
8074: -- Bug 8438716 Start
8075: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8076: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
8543: END IF;
8544: END IF;
8545: ELSE
8546: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_TCA_ERROR');
8547: FND_MSG_PUB.ADD;
8548: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8549: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8550: END IF;
8551: END IF;
8775: END IF;
8776: END IF;
8777: Else
8778: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INVALID_VAT_CODE');
8779: Fnd_Msg_Pub.Add;
8780: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8781: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
8782: l_api_name,'After call to VAT_CODE validation... Parameters: '
8783: ||' Vendor_Site_Interface_Id: '||p_vendor_site_rec.vendor_site_interface_id
9134: END IF;
9135:
9136: -- Standard call to get message count and if count is 1,
9137: -- get message info.
9138: FND_MSG_PUB.Count_And_Get(
9139: p_count => x_msg_count ,
9140: p_data => x_msg_data
9141: );
9142:
9143: EXCEPTION
9144: WHEN FND_API.G_EXC_ERROR THEN
9145: ROLLBACK TO Create_Vendor_Site_PUB;
9146: x_return_status := FND_API.G_RET_STS_ERROR ;
9147: FND_MSG_PUB.Count_And_Get
9148: ( p_count => x_msg_count,
9149: p_data => x_msg_data
9150: );
9151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9150: );
9151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9152: ROLLBACK TO Create_Vendor_Site_PUB;
9153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9154: FND_MSG_PUB.Count_And_Get
9155: ( p_count => x_msg_count,
9156: p_data => x_msg_data
9157: );
9158: /* BUG 11664523 */
9158: /* BUG 11664523 */
9159: WHEN VAT_CODE_EXCEPTION THEN
9160: ROLLBACK TO Create_Vendor_Site_PUB;
9161: x_return_status := FND_API.G_RET_STS_ERROR;
9162: FND_MSG_PUB.Count_And_Get
9163: ( p_count => x_msg_count,
9164: p_data => x_msg_data
9165: );
9166: -- BUG 6739544 START
9165: );
9166: -- BUG 6739544 START
9167: WHEN ORG_ID_EXCEPTION THEN
9168: x_return_status := FND_API.G_RET_STS_ERROR ;
9169: FND_MSG_PUB.Count_And_Get
9170: ( p_count => x_msg_count,
9171: p_data => x_msg_data
9172: );
9173: -- BUG 6739544 END.
9173: -- BUG 6739544 END.
9174: WHEN OTHERS THEN
9175: ROLLBACK TO Create_Vendor_Site_PUB;
9176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9177: IF FND_MSG_PUB.Check_Msg_Level
9178: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9179: FND_MSG_PUB.Add_Exc_Msg
9180: ( G_PKG_NAME ,
9181: l_api_name
9174: WHEN OTHERS THEN
9175: ROLLBACK TO Create_Vendor_Site_PUB;
9176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9177: IF FND_MSG_PUB.Check_Msg_Level
9178: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9179: FND_MSG_PUB.Add_Exc_Msg
9180: ( G_PKG_NAME ,
9181: l_api_name
9182: );
9175: ROLLBACK TO Create_Vendor_Site_PUB;
9176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9177: IF FND_MSG_PUB.Check_Msg_Level
9178: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9179: FND_MSG_PUB.Add_Exc_Msg
9180: ( G_PKG_NAME ,
9181: l_api_name
9182: );
9183: END IF;
9180: ( G_PKG_NAME ,
9181: l_api_name
9182: );
9183: END IF;
9184: FND_MSG_PUB.Count_And_Get
9185: ( p_count => x_msg_count,
9186: p_data => x_msg_data
9187: );
9188: END Create_Vendor_Site;
9241: END IF;
9242:
9243: -- Initialize message list if p_init_msg_list is set to TRUE.
9244: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9245: FND_MSG_PUB.initialize;
9246: END IF;
9247:
9248: -- Initialize API return status to success
9249: x_return_status := FND_API.G_RET_STS_SUCCESS;
9880: END IF;
9881:
9882: -- Standard call to get message count and if count is 1,
9883: -- get message info.
9884: FND_MSG_PUB.Count_And_Get(
9885: p_count => x_msg_count ,
9886: p_data => x_msg_data
9887: );
9888:
9889: EXCEPTION
9890: WHEN FND_API.G_EXC_ERROR THEN
9891: ROLLBACK TO Update_Vendor_Site_PUB;
9892: x_return_status := FND_API.G_RET_STS_ERROR ;
9893: FND_MSG_PUB.Count_And_Get
9894: ( p_count => x_msg_count,
9895: p_data => x_msg_data
9896: );
9897: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9896: );
9897: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9898: ROLLBACK TO Update_Vendor_Site_PUB;
9899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9900: FND_MSG_PUB.Count_And_Get
9901: ( p_count => x_msg_count,
9902: p_data => x_msg_data
9903: );
9904: WHEN OTHERS THEN
9903: );
9904: WHEN OTHERS THEN
9905: ROLLBACK TO Update_Vendor_Site_PUB;
9906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9907: IF FND_MSG_PUB.Check_Msg_Level
9908: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9909: FND_MSG_PUB.Add_Exc_Msg
9910: ( G_PKG_NAME ,
9911: l_api_name
9904: WHEN OTHERS THEN
9905: ROLLBACK TO Update_Vendor_Site_PUB;
9906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9907: IF FND_MSG_PUB.Check_Msg_Level
9908: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9909: FND_MSG_PUB.Add_Exc_Msg
9910: ( G_PKG_NAME ,
9911: l_api_name
9912: );
9905: ROLLBACK TO Update_Vendor_Site_PUB;
9906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9907: IF FND_MSG_PUB.Check_Msg_Level
9908: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9909: FND_MSG_PUB.Add_Exc_Msg
9910: ( G_PKG_NAME ,
9911: l_api_name
9912: );
9913: END IF;
9910: ( G_PKG_NAME ,
9911: l_api_name
9912: );
9913: END IF;
9914: FND_MSG_PUB.Count_And_Get
9915: ( p_count => x_msg_count,
9916: p_data => x_msg_data
9917: );
9918: END Update_Vendor_Site;
9996: END IF;
9997:
9998: -- Initialize message list if p_init_msg_list is set to TRUE.
9999: IF FND_API.to_Boolean( p_init_msg_list ) THEN
10000: FND_MSG_PUB.initialize;
10001: END IF;
10002:
10003: -- Initialize API return status to success
10004: x_return_status := FND_API.G_RET_STS_SUCCESS;
10067: END IF;
10068: ELSE
10069: -- Bug 5491139 hkaniven start --
10070: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_HOLD_UNMAT_INV');
10071: FND_MSG_PUB.ADD;
10072: -- Bug 5491139 hkaniven end --
10073: -- Bug 8438716 Start
10074: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10075: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10119: END IF;
10120: ELSE
10121: -- Bug 5491139 hkaniven start --
10122: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_VENDOR_SITE_CODE');
10123: FND_MSG_PUB.ADD;
10124: -- Bug 5491139 hkaniven end --
10125: -- Bug 8438716 Start
10126: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10127: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10180: END IF;
10181: ELSE
10182: -- Bug 5491139 hkaniven start --
10183: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_TAX_RS_FLAG');
10184: FND_MSG_PUB.ADD;
10185: -- Bug 5491139 hkaniven end --
10186: -- Bug 8438716 Start
10187: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10188: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10239: END IF;
10240: END IF;
10241: ELSE
10242: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INVALID_VAT_CODE');
10243: FND_MSG_PUB.ADD;
10244: -- Bug 8438716 Start
10245: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10246: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10247: l_api_name,'After call to VAT_CODE validation... Parameters: '
10297: END IF;
10298: ELSE
10299: -- Bug 5491139 hkaniven start --
10300: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_DEF_PAY_SITE');
10301: FND_MSG_PUB.ADD;
10302: -- Bug 5491139 hkaniven end --
10303: -- Bug 8438716 Start
10304: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10305: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10358: END IF;
10359: ELSE
10360: -- Bug 5491139 hkaniven start --
10361: FND_MESSAGE.SET_NAME('SQLAP','AP_DUPLICATE_VENDOR_SITE');
10362: FND_MSG_PUB.ADD;
10363: -- Bug 5491139 hkaniven end --
10364: -- Bug 8438716 Start
10365: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10366: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10419: END IF;
10420: ELSE
10421: -- Bug 5491139 hkaniven start --
10422: FND_MESSAGE.SET_NAME('SQLAP','AP_VEN_DUPLICATE_ECE_CODE');
10423: FND_MSG_PUB.ADD;
10424: -- Bug 5491139 hkaniven end --
10425: -- Bug 8438716 Start
10426: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10427: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10512: END IF;
10513: ELSE
10514: -- Bug 5491139 hkaniven start --
10515: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_ON_RCE');
10516: FND_MSG_PUB.ADD;
10517: -- Bug 5491139 hkaniven end --
10518: -- Bug 8438716 Start
10519: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10520: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10566: END IF;
10567: ELSE
10568: -- Bug 5491139 hkaniven start --
10569: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SHIPPING_CONTROL');
10570: FND_MSG_PUB.ADD;
10571: -- Bug 5491139 hkaniven end --
10572: -- Bug 8438716 Start
10573: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10574: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10625: END IF;
10626: ELSE
10627: -- Bug 5491139 hkaniven start --
10628: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_TERM');
10629: FND_MSG_PUB.ADD;
10630: -- Bug 5491139 hkaniven end --
10631: -- Bug 8438716 Start
10632: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10633: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10683: END IF;
10684: ELSE
10685: -- Bug 5491139 hkaniven start --
10686: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_ON_CODE');
10687: FND_MSG_PUB.ADD;
10688: -- Bug 5491139 hkaniven end --
10689: -- Bug 8438716 Start
10690: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10691: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10737: END IF;
10738: ELSE
10739: -- Bug 5491139 hkaniven start --
10740: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_ON_RCE');
10741: FND_MSG_PUB.ADD;
10742: -- Bug 5491139 hkaniven end --
10743: -- Bug 8438716 Start
10744: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10745: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10790: END IF;
10791: ELSE
10792: -- Bug 5491139 hkaniven start --
10793: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAYMENT_PRIORITY');
10794: FND_MSG_PUB.ADD;
10795: -- Bug 5491139 hkaniven end --
10796: -- Bug 8438716 Start
10797: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10798: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10837: END IF;
10838: ELSE
10839: -- Bug 5491139 hkaniven start --
10840: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_INV_CURRENCY');
10841: FND_MSG_PUB.ADD;
10842: -- Bug 5491139 hkaniven end --
10843: -- Bug 8438716 Start
10844: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10845: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10888: END IF;
10889: ELSE
10890: -- Bug 5491139 hkaniven start --
10891: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_CURRENCY');
10892: FND_MSG_PUB.ADD;
10893: -- Bug 5491139 hkaniven end --
10894: -- Bug 8438716 Start
10895: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10896: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10942: END IF;
10943: ELSE
10944: -- Bug 5491139 hkaniven start --
10945: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_ACCOUNTS_PAY_CCID');
10946: FND_MSG_PUB.ADD;
10947: -- Bug 5491139 hkaniven end --
10948: -- Bug 8438716 Start
10949: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10950: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10996: END IF;
10997: ELSE
10998: -- Bug 5491139 hkaniven start --
10999: FND_MESSAGE.SET_NAME('SQLAP','AP_SUPP_INVALID_CCID');
11000: FND_MSG_PUB.ADD;
11001: -- Bug 5491139 hkaniven end --
11002: -- Bug 8438716 Start
11003: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11004: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11050: END IF;
11051: ELSE
11052: -- Bug 5491139 hkaniven start --
11053: FND_MESSAGE.SET_NAME('SQLAP','AP_SUPP_INVALID_CCID');
11054: FND_MSG_PUB.ADD;
11055: -- Bug 5491139 hkaniven end --
11056: -- Bug 8438716 Start
11057: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11058: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11105: END IF;
11106: END IF;
11107: ELSE
11108: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_DUNS_NUMBER');
11109: FND_MSG_PUB.ADD;
11110: -- Bug 8438716 Start
11111: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11112: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11113: l_api_name,'Call after Chk_new_duns_number... Parameters: '
11158: END IF;
11159: END IF;
11160: ELSE
11161: FND_MESSAGE.SET_NAME('SQLAP','AP_ISP_NOT_AVAILABLE');
11162: FND_MSG_PUB.ADD;
11163: END IF;
11164: END IF ;
11165:
11166: ------------------------------------------------------
11197: END IF;
11198: END IF;
11199: ELSE
11200: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SMALL_NSMALL_CODE');
11201: FND_MSG_PUB.ADD;
11202: END IF;
11203: END IF;
11204:
11205: END IF;
11248: END IF;
11249: END IF;
11250: ELSE
11251: FND_MESSAGE.SET_NAME('SQLAP','AP_CCR_NO_UPDATE');
11252: FND_MSG_PUB.ADD;
11253: -- Bug 8438716 Start
11254: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11255: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11256: l_api_name,'Call after Chk_update_site_ccr_values... Parameters: '
11280:
11281: /*Bug 7572325- added the call to count_and_get to get the count
11282: before call to IBY API in local variable*/
11283:
11284: FND_MSG_PUB.Count_And_Get(p_count => l_msg_count,
11285: p_data => l_msg_data);
11286:
11287: IBY_DISBURSEMENT_SETUP_PUB.Validate_External_Payee
11288: ( p_api_version => 1.0,
11329: -- more than one error. The calling module will need to get
11330: -- them from the message stack
11331: FOR i IN l_msg_count..l_payee_msg_count
11332: LOOP
11333: l_error_code := FND_MSG_PUB.Get(p_msg_index => i,
11334: p_encoded => 'F');
11335:
11336: If i = l_msg_count then
11337: l_error_code := '2)Error in '||l_debug_info||
11347: ELSE
11348: -- Bug 5491139 hkaniven start --
11349: --FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAYEE'); --bug 7572325
11350: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAYEE_INFO'); --bug 7572325
11351: FND_MSG_PUB.ADD;
11352: -- Bug 5491139 hkaniven end --
11353: -- Bug 8438716 Start
11354: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11355: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11411: END IF;
11412: END IF;
11413: ELSE
11414: FND_MESSAGE.SET_NAME('SQLAP','AP_API_INVALID_COUNTRY');
11415: FND_MSG_PUB.ADD;
11416: -- Bug 8438716 Start
11417: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11418: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11419: l_api_name,'Error After validating p_vendor_site_rec.country... Parameters: '
11468: END IF;
11469: END IF;
11470: ELSE
11471: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PARTY_SITE');
11472: FND_MSG_PUB.ADD;
11473: -- Bug 8438716 Start
11474: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11475: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Call after Check_org_id_party_site_name... Parameters: '
11476: ||' Org_Id: '||p_vendor_site_rec.org_id
11545:
11546: ELSE
11547: -- Bug 5491139 hkaniven start --
11548: FND_MESSAGE.SET_NAME('SQLAP','INVALID_NLS_LANGUAGE');
11549: FND_MSG_PUB.ADD;
11550: -- Bug 5491139 hkaniven end --
11551: END IF;
11552: -- We have to ensure that no new locations are created in this case.
11553: x_location_valid := 'F';
11576:
11577: ELSE
11578: -- Bug 5491139 hkaniven start --
11579: FND_MESSAGE.SET_NAME('SQLAP','DISABLED_NLS_LANGUAGE');
11580: FND_MSG_PUB.ADD;
11581: -- Bug 5491139 hkaniven end --
11582: END IF;
11583: -- We have to ensure that no new locations are created in this case.
11584: x_location_valid := 'F';
11645: END IF;
11646: ELSE
11647: -- Bug 5584046 --
11648: FND_MESSAGE.SET_NAME('SQLAP','AP_MULTIPLE_ADDRESS');
11649: FND_MSG_PUB.ADD;
11650: -- Bug 8438716 Start
11651: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11652: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11653: l_api_name,'Call after Check_Valid_Location Error-AP_MULTIPLE_ADDRESS... Parameters: '
11684: END IF;
11685: ELSE
11686: -- Bug 5584046 --
11687: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_ADDRESS');
11688: FND_MSG_PUB.ADD;
11689: -- Bug 8438716 Start
11690: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11691: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11692: l_api_name,'Call after Check_Valid_Location... Error-AP_INCONSISTENT_ADDRESS... Parameters: '
11727: END IF;
11728: ELSE
11729: -- Bug 5584046 --
11730: FND_MESSAGE.SET_NAME('SQLAP','AP_NULL_COUNTRY_NAME');
11731: FND_MSG_PUB.ADD;
11732: -- Bug 8438716 Start
11733: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11734: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11735: l_api_name,'Validation error-p_vendor_site_rec.country is null-AP_NULL_COUNTRY_NAME... Parameters: '
11769: END IF;
11770: ELSE
11771: -- Bug 5584046
11772: FND_MESSAGE.SET_NAME('SQLAP','AP_NULL_ADDRESS_LINE1');
11773: FND_MSG_PUB.ADD;
11774: -- Bug 8438716 Start
11775: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11776: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11777: l_api_name,'Validation error p_vendor_site_rec.address_line1-AP_NULL_ADDRESS_LINE1... Parameters: '
11864: END IF;
11865: ELSE
11866: -- Bug 5584046 --
11867: FND_MESSAGE.SET_NAME('SQLAP','AP_DUP_PARTY_SITE_NAME');
11868: FND_MSG_PUB.ADD;
11869: -- Bug 8438716 Start
11870: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11871: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11872: l_api_name,'Validation error-p_vendor_site_rec.vendor_site_code is duplicate-AP_DUP_PARTY_SITE_NAME... Parameters: '
11923: END IF;
11924: ELSE
11925: -- Bug 5491139 hkaniven start --
11926: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PRIM_PAY_SITE');
11927: FND_MSG_PUB.ADD;
11928: -- Bug 5491139 hkaniven end --
11929: -- Bug 8438716 Start
11930: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11931: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
11971: END IF;
11972: ELSE
11973: -- Bug 5491139 hkaniven start --
11974: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_COUNTRY_ORIGIN');
11975: FND_MSG_PUB.ADD;
11976: -- Bug 5491139 hkaniven end --
11977: -- Bug 8438716 Start
11978: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11979: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12026: END IF;
12027: ELSE
12028: -- Bug 5491139 hkaniven start --
12029: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PCARD_SITE');
12030: FND_MSG_PUB.ADD;
12031: -- Bug 5491139 hkaniven end --
12032: -- Bug 8438716 Start
12033: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12034: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12079: END IF;
12080: ELSE
12081: -- Bug 5491139 hkaniven start --
12082: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PURCHASING_FLAG');
12083: FND_MSG_PUB.ADD;
12084: -- Bug 5491139 hkaniven end --
12085: -- Bug 8438716 Start
12086: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12087: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12132: END IF;
12133: ELSE
12134: -- Bug 5491139 hkaniven start --
12135: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_RFQ_FLAG');
12136: FND_MSG_PUB.ADD;
12137: -- Bug 5491139 hkaniven end --
12138: -- Bug 8438716 Start
12139: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12140: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12185: END IF;
12186: ELSE
12187: -- Bug 5491139 hkaniven start --
12188: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_SITE_FLAG');
12189: FND_MSG_PUB.ADD;
12190: -- Bug 5491139 hkaniven end --
12191: -- Bug 8438716 Start
12192: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12193: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12238: END IF;
12239: ELSE
12240: -- Bug 5491139 hkaniven start --
12241: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_ATTN_AR_FLAG');
12242: FND_MSG_PUB.ADD;
12243: -- Bug 5491139 hkaniven end --
12244: -- Bug 8438716 Start
12245: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12246: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12291: END IF;
12292: ELSE
12293: -- Bug 5491139 hkaniven start --
12294: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PRIM_PAY_SITE');
12295: FND_MSG_PUB.ADD;
12296: -- Bug 5491139 hkaniven end --
12297: -- Bug 8438716 Start
12298: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12299: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12345: END IF;
12346: ELSE
12347: -- Bug 5491139 hkaniven start --
12348: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_FREIGHT_TERMS');
12349: FND_MSG_PUB.ADD;
12350: -- Bug 5491139 hkaniven end --
12351: -- Bug 8438716 Start
12352: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12353: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12398: END IF;
12399: ELSE
12400: -- Bug 5491139 hkaniven start --
12401: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_FOB');
12402: FND_MSG_PUB.ADD;
12403: -- Bug 5491139 hkaniven end --
12404: -- Bug 8438716 Start
12405: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12406: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12452: END IF;
12453: ELSE
12454: -- Bug 5491139 hkaniven start --
12455: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_DATE_BASIS');
12456: FND_MSG_PUB.ADD;
12457: -- Bug 5491139 hkaniven end --
12458: -- Bug 8438716 Start
12459: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12460: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12506: END IF;
12507: ELSE
12508: -- Bug 5491139 hkaniven start --
12509: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAY_GROUP');
12510: FND_MSG_PUB.ADD;
12511: -- Bug 5491139 hkaniven end --
12512: -- Bug 8438716 Start
12513: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12514: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12559: END IF;
12560: ELSE
12561: -- Bug 5491139 hkaniven start --
12562: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_TERMS_DATE');
12563: FND_MSG_PUB.ADD;
12564: -- Bug 5491139 hkaniven end --
12565: -- Bug 8438716 Start
12566: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12567: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12614: END IF;
12615: ELSE
12616: -- Bug 5491139 hkaniven start --
12617: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_DEBIT_MEMO');
12618: FND_MSG_PUB.ADD;
12619: -- Bug 5491139 hkaniven end --
12620: -- Bug 8438716 Start
12621: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12622: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12668: END IF;
12669: ELSE
12670: -- Bug 5491139 hkaniven start --
12671: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_EXC_FR_DISC');
12672: FND_MSG_PUB.ADD;
12673: -- Bug 5491139 hkaniven end --
12674: -- Bug 8438716 Start
12675: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12676: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12722: END IF;
12723: ELSE
12724: -- Bug 5491139 hkaniven start --
12725: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_HOLD_FUT_PAY');
12726: FND_MSG_PUB.ADD;
12727: -- Bug 5491139 hkaniven end --
12728: -- Bug 8438716 Start
12729: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12730: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12775: END IF;
12776: ELSE
12777: -- Bug 5491139 hkaniven start --
12778: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_HOLD_ALL_PAY');
12779: FND_MSG_PUB.ADD;
12780: -- Bug 5491139 hkaniven end --
12781: -- Bug 8438716 Start
12782: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12783: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12828: END IF;
12829: ELSE
12830: -- Bug 5491139 hkaniven start --
12831: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_TAKE_DISC');
12832: FND_MSG_PUB.ADD;
12833: -- Bug 5491139 hkaniven end --
12834: -- Bug 8438716 Start
12835: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12836: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12882: END IF;
12883: ELSE
12884: -- Bug 5491139 hkaniven start --
12885: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_MATCH_OPTION');
12886: FND_MSG_PUB.ADD;
12887: -- Bug 5491139 hkaniven end --
12888: -- Bug 8438716 Start
12889: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12890: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
12937: END IF;
12938: ELSE
12939: -- Bug 5491139 hkaniven start --
12940: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_ALLOW_AWT');
12941: FND_MSG_PUB.ADD;
12942: -- Bug 5491139 hkaniven end --
12943: -- Bug 8438716 Start
12944: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12945: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13001: END IF;
13002: ELSE
13003: -- Bug 5491139 hkaniven start --
13004: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_AWT_GROUP');
13005: FND_MSG_PUB.ADD;
13006: -- Bug 5491139 hkaniven end --
13007: -- Bug 8438716 Start
13008: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13009: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13069: END IF;
13070: ELSE
13071:
13072: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_AWT_GROUP');
13073: FND_MSG_PUB.ADD;
13074:
13075: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13076: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13077: l_api_name,'Call after Chk_pay_awt_grp_id_name()... Parameters: '
13130: END IF;
13131: ELSE
13132: -- Bug 5491139 hkaniven start --
13133: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_DIST_SET');
13134: FND_MSG_PUB.ADD;
13135: -- Bug 5491139 hkaniven end --
13136: -- Bug 8438716 Start
13137: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13138: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13194: END IF;
13195: ELSE
13196: -- Bug 5491139 hkaniven start --
13197: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_SHIP_LOC');
13198: FND_MSG_PUB.ADD;
13199: -- Bug 5491139 hkaniven end --
13200: -- Bug 8438716 Start
13201: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13202: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13258: END IF;
13259: ELSE
13260: -- Bug 5491139 hkaniven start --
13261: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_BILL_LOC');
13262: FND_MSG_PUB.ADD;
13263: -- Bug 5491139 hkaniven end --
13264: -- Bug 8438716 Start
13265: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13266: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13316: END IF;
13317: ELSE
13318: -- Bug 5491139 hkaniven start --
13319: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_NOTIF_METHOD');
13320: FND_MSG_PUB.ADD;
13321: -- Bug 5491139 hkaniven end --
13322: -- Bug 8438716 Start
13323: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13324: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13371: END IF;
13372: ELSE
13373: -- Bug 5491139 hkaniven start --
13374: FND_MESSAGE.SET_NAME('SQLAP','AP_REMIT_ADVICE_FLAG_INVALID');
13375: FND_MSG_PUB.ADD;
13376: -- Bug 5491139 hkaniven end --
13377: -- Bug 8438716 Start
13378: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13379: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13432: END IF;
13433: ELSE
13434: -- Bug 5491139 hkaniven start --
13435: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_TOLERANCE');
13436: FND_MSG_PUB.ADD;
13437: -- Bug 5491139 hkaniven end --
13438: -- Bug 8438716 Start
13439: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13440: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13493: END IF;
13494: ELSE
13495: -- Bug 5491139 hkaniven start --
13496: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSIS_SERVICE_TOL');
13497: FND_MSG_PUB.ADD;
13498: -- Bug 5491139 hkaniven end --
13499: -- Bug 8438716 Start
13500: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13501: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13548: END IF;
13549: ELSE
13550: -- Bug 5491139 hkaniven start --
13551: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_RETAINAGE_RATE');
13552: FND_MSG_PUB.ADD;
13553: -- Bug 5491139 hkaniven end --
13554: -- Bug 8438716 Start
13555: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13556: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13603: END IF;
13604: ELSE
13605: -- Bug 5491139 hkaniven start --
13606: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SHIP_VIA');
13607: FND_MSG_PUB.ADD;
13608: -- Bug 5491139 hkaniven end --
13609: -- Bug 8438716 Start
13610: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13611: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13665: END IF;
13666: ELSE
13667: -- Bug 5491139 hkaniven start --
13668: FND_MESSAGE.SET_NAME('SQLAP','AP_DUPLICATE_TAX_RS');
13669: FND_MSG_PUB.ADD;
13670: -- Bug 5491139 hkaniven end --
13671: -- Bug 8438716 Start
13672: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13673: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
13721: END IF;
13722: ELSE
13723: -- Bug 5491139 hkaniven start --
13724: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_SHIPPING_CONTROL');
13725: FND_MSG_PUB.ADD;
13726: -- Bug 5491139 hkaniven end --
13727: -- Bug 8438716 Start
13728: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL)
13729: THEN
13753: END IF;
13754:
13755: -- Standard call to get message count and if count is 1,
13756: -- get message info.
13757: FND_MSG_PUB.Count_And_Get(
13758: p_count => x_msg_count ,
13759: p_data => x_msg_data
13760: );
13761:
13762: EXCEPTION
13763: WHEN FND_API.G_EXC_ERROR THEN
13764: ROLLBACK TO Validate_Vendor_Site_PUB;
13765: x_return_status := FND_API.G_RET_STS_ERROR ;
13766: FND_MSG_PUB.Count_And_Get
13767: ( p_count => x_msg_count,
13768: p_data => x_msg_data
13769: );
13770: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13769: );
13770: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13771: ROLLBACK TO Validate_Vendor_Site_PUB;
13772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13773: FND_MSG_PUB.Count_And_Get
13774: ( p_count => x_msg_count,
13775: p_data => x_msg_data
13776: );
13777: WHEN OTHERS THEN
13776: );
13777: WHEN OTHERS THEN
13778: ROLLBACK TO Validate_Vendor_Site_PUB;
13779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13780: IF FND_MSG_PUB.Check_Msg_Level
13781: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13782: FND_MSG_PUB.Add_Exc_Msg
13783: ( G_PKG_NAME ,
13784: l_api_name
13777: WHEN OTHERS THEN
13778: ROLLBACK TO Validate_Vendor_Site_PUB;
13779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13780: IF FND_MSG_PUB.Check_Msg_Level
13781: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13782: FND_MSG_PUB.Add_Exc_Msg
13783: ( G_PKG_NAME ,
13784: l_api_name
13785: );
13778: ROLLBACK TO Validate_Vendor_Site_PUB;
13779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13780: IF FND_MSG_PUB.Check_Msg_Level
13781: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13782: FND_MSG_PUB.Add_Exc_Msg
13783: ( G_PKG_NAME ,
13784: l_api_name
13785: );
13786: END IF;
13783: ( G_PKG_NAME ,
13784: l_api_name
13785: );
13786: END IF;
13787: FND_MSG_PUB.Count_And_Get
13788: ( p_count => x_msg_count,
13789: p_data => x_msg_data
13790: );
13791: END Validate_Vendor_Site;
13905: END IF;
13906:
13907: -- Initialize message list if p_init_msg_list is set to TRUE.
13908: IF FND_API.to_Boolean( p_init_msg_list ) THEN
13909: FND_MSG_PUB.initialize;
13910: END IF;
13911:
13912: -- Initialize API return status to success
13913: x_return_status := FND_API.G_RET_STS_SUCCESS;
14015: FOR i IN 1..l_per_msg_count
14016: LOOP
14017: -- built the complete message with new line separator if
14018: -- called API returns message count > 1
14019: x_msg_data := x_msg_data||FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'T') ||' ';
14020: --delete the message stack for the index
14021: --already fetched
14022: FND_MSG_PUB.DELETE_MSG(p_msg_index => i);
14023: END LOOP;
14018: -- called API returns message count > 1
14019: x_msg_data := x_msg_data||FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'T') ||' ';
14020: --delete the message stack for the index
14021: --already fetched
14022: FND_MSG_PUB.DELETE_MSG(p_msg_index => i);
14023: END LOOP;
14024: ELSIF (l_per_msg_data is not null) THEN
14025: x_msg_data := x_msg_data||l_per_msg_data;
14026: END IF;
14048: END IF;
14049: END IF;
14050: ELSE
14051: fnd_message.set_name('SQLAP', 'AP_CREATE_PERSON_ERROR');
14052: fnd_msg_pub.add;
14053: END IF;
14054: -- Bug 6886893: End
14055:
14056: END IF;
14137: FOR i IN 1..l_per_msg_count
14138: LOOP
14139: -- built the complete message with new line separator if
14140: -- called API returns message count > 1
14141: x_msg_data := x_msg_data||FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'T') ||' ';
14142: --delete the message stack for the index
14143: --already fetched
14144: FND_MSG_PUB.DELETE_MSG(p_msg_index => i);
14145: END LOOP;
14140: -- called API returns message count > 1
14141: x_msg_data := x_msg_data||FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'T') ||' ';
14142: --delete the message stack for the index
14143: --already fetched
14144: FND_MSG_PUB.DELETE_MSG(p_msg_index => i);
14145: END LOOP;
14146: ELSIF (l_per_msg_data is not null) THEN
14147: x_msg_data := x_msg_data||l_per_msg_data;
14148: END IF;
14170: END IF;
14171: END IF;
14172: ELSE
14173: fnd_message.set_name('SQLAP', 'AP_CREATE_CONTACT_ERROR');
14174: fnd_msg_pub.add;
14175: END IF;
14176: -- Bug 6886893: End
14177:
14178: END IF;
14230: FOR i IN 1..l_per_msg_count
14231: LOOP
14232: -- built the complete message with new line separator if
14233: -- called API returns message count > 1
14234: x_msg_data := x_msg_data||FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'T') ||' ';
14235: --delete the message stack for the index
14236: --already fetched
14237: FND_MSG_PUB.DELETE_MSG(p_msg_index => i);
14238: END LOOP;
14233: -- called API returns message count > 1
14234: x_msg_data := x_msg_data||FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'T') ||' ';
14235: --delete the message stack for the index
14236: --already fetched
14237: FND_MSG_PUB.DELETE_MSG(p_msg_index => i);
14238: END LOOP;
14239: ELSIF (l_per_msg_data is not null) THEN
14240: x_msg_data := x_msg_data||l_per_msg_data;
14241: END IF;
14263: END IF;
14264: END IF;
14265: ELSE
14266: fnd_message.set_name('SQLAP', 'AP_ASSIGN_SITE_ERROR');
14267: fnd_msg_pub.add;
14268: END IF;
14269: -- Bug 6886893: End
14270:
14271: END IF;
14328: FOR i IN 1..l_per_msg_count
14329: LOOP
14330: -- built the complete message with new line separator if
14331: -- called API returns message count > 1
14332: x_msg_data := x_msg_data||FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'T') ||' ';
14333: --delete the message stack for the index
14334: --already fetched
14335: FND_MSG_PUB.DELETE_MSG(p_msg_index => i);
14336: END LOOP;
14331: -- called API returns message count > 1
14332: x_msg_data := x_msg_data||FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'T') ||' ';
14333: --delete the message stack for the index
14334: --already fetched
14335: FND_MSG_PUB.DELETE_MSG(p_msg_index => i);
14336: END LOOP;
14337: ELSIF (l_per_msg_data is not null) THEN
14338: x_msg_data := x_msg_data||l_per_msg_data;
14339: END IF;
14361: END IF;
14362: END IF;
14363: ELSE
14364: fnd_message.set_name('SQLAP', 'AP_CREATE_PRIM_PHONE_ERROR');
14365: fnd_msg_pub.add;
14366: END IF;
14367: -- Bug 6886893: End
14368:
14369: END IF;
14413: FOR i IN 1..l_per_msg_count
14414: LOOP
14415: -- built the complete message with new line separator if
14416: -- called API returns message count > 1
14417: x_msg_data := x_msg_data||FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'T') ||' ';
14418: --delete the message stack for the index
14419: --already fetched
14420: FND_MSG_PUB.DELETE_MSG(p_msg_index => i);
14421: END LOOP;
14416: -- called API returns message count > 1
14417: x_msg_data := x_msg_data||FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'T') ||' ';
14418: --delete the message stack for the index
14419: --already fetched
14420: FND_MSG_PUB.DELETE_MSG(p_msg_index => i);
14421: END LOOP;
14422: ELSIF (l_per_msg_data is not null) THEN
14423: x_msg_data := x_msg_data||l_per_msg_data;
14424: END IF;
14446: END IF;
14447: END IF;
14448: ELSE
14449: fnd_message.set_name('SQLAP', 'AP_CREATE_ALT_PHONE_ERROR');
14450: fnd_msg_pub.add;
14451: END IF;
14452: -- Bug 6886893: End
14453:
14454: END IF;
14494: FOR i IN 1..l_per_msg_count
14495: LOOP
14496: -- built the complete message with new line separator if
14497: -- called API returns message count > 1
14498: x_msg_data := x_msg_data||FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'T') ||' ';
14499: --delete the message stack for the index
14500: --already fetched
14501: FND_MSG_PUB.DELETE_MSG(p_msg_index => i);
14502: END LOOP;
14497: -- called API returns message count > 1
14498: x_msg_data := x_msg_data||FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'T') ||' ';
14499: --delete the message stack for the index
14500: --already fetched
14501: FND_MSG_PUB.DELETE_MSG(p_msg_index => i);
14502: END LOOP;
14503: ELSIF (l_per_msg_data is not null) THEN
14504: x_msg_data := x_msg_data||l_per_msg_data;
14505: END IF;
14527: END IF;
14528: END IF;
14529: ELSE
14530: fnd_message.set_name('SQLAP', 'AP_CREATE_FAX_PHONE_ERROR');
14531: fnd_msg_pub.add;
14532: END IF;
14533: -- Bug 6886893: End
14534:
14535: END IF;
14572: FOR i IN 1..l_per_msg_count
14573: LOOP
14574: -- built the complete message with new line separator if
14575: -- called API returns message count > 1
14576: x_msg_data := x_msg_data||FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'T') ||' ';
14577: --delete the message stack for the index
14578: --already fetched
14579: FND_MSG_PUB.DELETE_MSG(p_msg_index => i);
14580: END LOOP;
14575: -- called API returns message count > 1
14576: x_msg_data := x_msg_data||FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'T') ||' ';
14577: --delete the message stack for the index
14578: --already fetched
14579: FND_MSG_PUB.DELETE_MSG(p_msg_index => i);
14580: END LOOP;
14581: ELSIF (l_per_msg_data is not null) THEN
14582: x_msg_data := x_msg_data||l_per_msg_data;
14583: END IF;
14605: END IF;
14606: END IF;
14607: ELSE
14608: fnd_message.set_name('SQLAP', 'AP_CREATE_EMAIL_ERROR');
14609: fnd_msg_pub.add;
14610: END IF;
14611: -- Bug 6886893: End
14612:
14613: END IF;
14652: FOR i IN 1..l_per_msg_count
14653: LOOP
14654: -- built the complete message with new line separator if
14655: -- called API returns message count > 1
14656: x_msg_data := x_msg_data||FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'T') ||' ';
14657: --delete the message stack for the index
14658: --already fetched
14659: FND_MSG_PUB.DELETE_MSG(p_msg_index => i);
14660: END LOOP;
14655: -- called API returns message count > 1
14656: x_msg_data := x_msg_data||FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'T') ||' ';
14657: --delete the message stack for the index
14658: --already fetched
14659: FND_MSG_PUB.DELETE_MSG(p_msg_index => i);
14660: END LOOP;
14661: ELSIF (l_per_msg_data is not null) THEN
14662: x_msg_data := x_msg_data||l_per_msg_data;
14663: END IF;
14685: END IF;
14686: END IF;
14687: ELSE
14688: fnd_message.set_name('SQLAP', 'AP_CREATE_WEB_ERROR');
14689: fnd_msg_pub.add;
14690: END IF;
14691: -- Bug 6886893: End
14692:
14693: END IF;
14822:
14823: IF ( NVL(l_val_msg_count, 0) > 1 ) THEN
14824: FOR i IN 1..l_val_msg_count
14825: LOOP
14826: x_msg_data := x_msg_data||FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'T') ||' ';
14827: FND_MSG_PUB.DELETE_MSG(p_msg_index => i);
14828: END LOOP;
14829: ELSIF (l_val_msg_data is not null) THEN
14830:
14823: IF ( NVL(l_val_msg_count, 0) > 1 ) THEN
14824: FOR i IN 1..l_val_msg_count
14825: LOOP
14826: x_msg_data := x_msg_data||FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'T') ||' ';
14827: FND_MSG_PUB.DELETE_MSG(p_msg_index => i);
14828: END LOOP;
14829: ELSIF (l_val_msg_data is not null) THEN
14830:
14831: l_val_msg_data := x_msg_data||l_val_msg_data;
14829: ELSIF (l_val_msg_data is not null) THEN
14830:
14831: l_val_msg_data := x_msg_data||l_val_msg_data;
14832:
14833: FND_MSG_PUB.DELETE_MSG(p_msg_index => 1);
14834: END IF;
14835: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14836: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,x_msg_data);
14837: END IF;
14837: END IF;
14838: END IF; /* Bug 12590128 end */
14839: -- Standard call to get message count and if count is 1,
14840: -- get message info.
14841: FND_MSG_PUB.Count_And_Get(
14842: p_count => x_msg_count ,
14843: p_data => x_msg_data
14844: );
14845:
14846: EXCEPTION
14847: WHEN FND_API.G_EXC_ERROR THEN
14848: ROLLBACK TO Create_Vendor_Contact_PUB;
14849: x_return_status := FND_API.G_RET_STS_ERROR ;
14850: FND_MSG_PUB.Count_And_Get
14851: ( p_count => x_msg_count,
14852: p_data => x_msg_data
14853: );
14854: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14853: );
14854: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14855: ROLLBACK TO Create_Vendor_Contact_PUB;
14856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14857: FND_MSG_PUB.Count_And_Get
14858: ( p_count => x_msg_count,
14859: p_data => x_msg_data
14860: );
14861: WHEN OTHERS THEN
14860: );
14861: WHEN OTHERS THEN
14862: ROLLBACK TO Create_Vendor_Contact_PUB;
14863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14864: IF FND_MSG_PUB.Check_Msg_Level
14865: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
14866: FND_MSG_PUB.Add_Exc_Msg
14867: ( G_PKG_NAME ,
14868: l_api_name
14861: WHEN OTHERS THEN
14862: ROLLBACK TO Create_Vendor_Contact_PUB;
14863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14864: IF FND_MSG_PUB.Check_Msg_Level
14865: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
14866: FND_MSG_PUB.Add_Exc_Msg
14867: ( G_PKG_NAME ,
14868: l_api_name
14869: );
14862: ROLLBACK TO Create_Vendor_Contact_PUB;
14863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14864: IF FND_MSG_PUB.Check_Msg_Level
14865: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
14866: FND_MSG_PUB.Add_Exc_Msg
14867: ( G_PKG_NAME ,
14868: l_api_name
14869: );
14870: END IF;
14867: ( G_PKG_NAME ,
14868: l_api_name
14869: );
14870: END IF;
14871: FND_MSG_PUB.Count_And_Get
14872: ( p_count => x_msg_count,
14873: p_data => x_msg_data
14874: );
14875: END Create_Vendor_Contact;
14903: END IF;
14904:
14905: -- Initialize message list if p_init_msg_list is set to TRUE.
14906: IF FND_API.to_Boolean( p_init_msg_list ) THEN
14907: FND_MSG_PUB.initialize;
14908: END IF;
14909:
14910: -- Initialize API return status to success
14911: x_return_status := FND_API.G_RET_STS_SUCCESS;
14947: END IF;
14948:
14949: -- Standard call to get message count and if count is 1,
14950: -- get message info.
14951: FND_MSG_PUB.Count_And_Get(
14952: p_count => x_msg_count ,
14953: p_data => x_msg_data
14954: );
14955:
14956: EXCEPTION
14957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14958: ROLLBACK TO Update_Vendor_Contact_PUB;
14959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14960: FND_MSG_PUB.Count_And_Get
14961: ( p_count => x_msg_count,
14962: p_data => x_msg_data
14963: );
14964: WHEN OTHERS THEN
14963: );
14964: WHEN OTHERS THEN
14965: ROLLBACK TO Update_Vendor_Contact_PUB;
14966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14967: IF FND_MSG_PUB.Check_Msg_Level
14968: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
14969: FND_MSG_PUB.Add_Exc_Msg
14970: ( G_PKG_NAME ,
14971: l_api_name
14964: WHEN OTHERS THEN
14965: ROLLBACK TO Update_Vendor_Contact_PUB;
14966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14967: IF FND_MSG_PUB.Check_Msg_Level
14968: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
14969: FND_MSG_PUB.Add_Exc_Msg
14970: ( G_PKG_NAME ,
14971: l_api_name
14972: );
14965: ROLLBACK TO Update_Vendor_Contact_PUB;
14966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14967: IF FND_MSG_PUB.Check_Msg_Level
14968: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
14969: FND_MSG_PUB.Add_Exc_Msg
14970: ( G_PKG_NAME ,
14971: l_api_name
14972: );
14973: END IF;
14970: ( G_PKG_NAME ,
14971: l_api_name
14972: );
14973: END IF;
14974: FND_MSG_PUB.Count_And_Get
14975: ( p_count => x_msg_count,
14976: p_data => x_msg_data
14977: );
14978: END Update_Vendor_Contact;
15029: END IF;
15030:
15031: -- Initialize message list if p_init_msg_list is set to TRUE.
15032: IF FND_API.to_Boolean( p_init_msg_list ) THEN
15033: FND_MSG_PUB.initialize;
15034: END IF;
15035:
15036: -- Initialize API return status to success
15037: x_return_status := FND_API.G_RET_STS_SUCCESS;
15099: END IF;
15100: END IF;
15101: ELSE
15102: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PARTY_SITE_FOR_CONT');
15103: FND_MSG_PUB.ADD;
15104: END IF;
15105: END IF;
15106: /* Bug 12590128 end*/
15107: -- Vendor_Site_Id Validation
15213: END IF;
15214: ELSE
15215: -- Bug 5491139 hkaniven start --
15216: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PARTY_SITE_FOR_CONT');
15217: FND_MSG_PUB.ADD;
15218: -- Bug 5491139 hkaniven end --
15219: END IF;
15220: ELSE
15221: --party_site_id was valid
15288: END IF;
15289: ELSE
15290: -- Bug 5491139 hkaniven start --
15291: FND_MESSAGE.SET_NAME('SQLAP','AP_INCONSISTENT_PARTY_SITE');
15292: FND_MSG_PUB.ADD;
15293: -- Bug 5491139 hkaniven end --
15294: END IF;*/
15295: END IF;
15296:
15323: END IF;
15324: ELSE
15325: -- Bug 5491139 hkaniven start --
15326: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PARTY_SITE_FOR_CONT');
15327: FND_MSG_PUB.ADD;
15328: -- Bug 5491139 hkaniven end --
15329: END IF;
15330: END IF;
15331: -----------------------------------------------------------------------
15369: END IF;
15370: ELSE
15371: -- Bug 5491139 hkaniven start --
15372: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PARTY_SITE');
15373: FND_MSG_PUB.ADD;
15374: -- Bug 5491139 hkaniven end --
15375: END IF;
15376: ELSE
15377: x_per_party_valid := 'V';
15494: END IF;
15495: ELSE
15496:
15497: FND_MESSAGE.SET_NAME('SQLAP','AP_VEN_CONTACT_DUP_NAME');
15498: FND_MSG_PUB.ADD;
15499: -- put true message to conc log file
15500: l_debug_info := '***** ERROR : Contact information you are trying to import is already associated ';
15501: l_debug_info := l_debug_info || 'with the Supplier .... Vendor_Id: ' ||p_vendor_contact_rec.vendor_id;
15502: AP_IMPORT_UTILITIES_PKG.Print( 'Y', l_debug_info) ;
15557: END IF;
15558: ELSE
15559: -- Bug 5491139 hkaniven start --
15560: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_REL_PARTY');
15561: FND_MSG_PUB.ADD;
15562: -- Bug 5491139 hkaniven end --
15563: END IF;
15564: ELSE
15565: x_rel_party_valid := 'V';
15608: END IF;
15609: ELSE
15610: -- Bug 5491139 hkaniven start --
15611: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_RELATIONSHIP');
15612: FND_MSG_PUB.ADD;
15613: -- Bug 5491139 hkaniven end --
15614: END IF;
15615: ELSE
15616: x_rel_valid := 'V';
15660: END IF;
15661: ELSE
15662: -- Bug 5491139 hkaniven start --
15663: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_ORG_CONTACT');
15664: FND_MSG_PUB.ADD;
15665: -- Bug 5491139 hkaniven end --
15666: END IF;
15667: ELSE
15668: x_org_contact_valid := 'V';
15678: END IF;
15679:
15680: -- Standard call to get message count and if count is 1,
15681: -- get message info.
15682: FND_MSG_PUB.Count_And_Get(
15683: p_count => x_msg_count ,
15684: p_data => x_msg_data
15685: );
15686:
15687: EXCEPTION
15688: WHEN FND_API.G_EXC_ERROR THEN
15689: ROLLBACK TO Validate_Vendor_Contact_PUB;
15690: x_return_status := FND_API.G_RET_STS_ERROR ;
15691: FND_MSG_PUB.Count_And_Get
15692: ( p_count => x_msg_count,
15693: p_data => x_msg_data
15694: );
15695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15694: );
15695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15696: ROLLBACK TO Validate_Vendor_Contact_PUB;
15697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15698: FND_MSG_PUB.Count_And_Get
15699: ( p_count => x_msg_count,
15700: p_data => x_msg_data
15701: );
15702: WHEN OTHERS THEN
15701: );
15702: WHEN OTHERS THEN
15703: ROLLBACK TO Validate_Vendor_Contact_PUB;
15704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15705: IF FND_MSG_PUB.Check_Msg_Level
15706: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
15707: FND_MSG_PUB.Add_Exc_Msg
15708: ( G_PKG_NAME ,
15709: l_api_name
15702: WHEN OTHERS THEN
15703: ROLLBACK TO Validate_Vendor_Contact_PUB;
15704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15705: IF FND_MSG_PUB.Check_Msg_Level
15706: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
15707: FND_MSG_PUB.Add_Exc_Msg
15708: ( G_PKG_NAME ,
15709: l_api_name
15710: );
15703: ROLLBACK TO Validate_Vendor_Contact_PUB;
15704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15705: IF FND_MSG_PUB.Check_Msg_Level
15706: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
15707: FND_MSG_PUB.Add_Exc_Msg
15708: ( G_PKG_NAME ,
15709: l_api_name
15710: );
15711: END IF;
15708: ( G_PKG_NAME ,
15709: l_api_name
15710: );
15711: END IF;
15712: FND_MSG_PUB.Count_And_Get
15713: ( p_count => x_msg_count,
15714: p_data => x_msg_data
15715: );
15716: END Validate_Vendor_Contact;
15796: THEN
15797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15798: END IF;
15799:
15800: FND_MSG_PUB.initialize;
15801:
15802: g_user_id := FND_GLOBAL.USER_ID;
15803: g_login_id := FND_GLOBAL.LOGIN_ID;
15804: g_source := p_source;
15891: )
15892: THEN
15893: --
15894: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15895: FND_MSG_PUB.Count_And_Get(
15896: p_count => l_msg_count,
15897: p_data => l_msg_data);
15898: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
15899: l_api_name,'Parameters: '
15947: )
15948: THEN
15949: --
15950: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15951: FND_MSG_PUB.Count_And_Get(
15952: p_count => l_msg_count,
15953: p_data => l_msg_data);
15954:
15955: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
16083: )
16084: THEN
16085: --
16086: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16087: FND_MSG_PUB.Count_And_Get(
16088: p_count => l_msg_count,
16089: p_data => l_msg_data);
16090:
16091: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
16227: ext_payee_rec.payee_party_id := l_party_id;
16228:
16229: /*Bug 7572325- added the call to count_and_get to get the count
16230: before call to IBY API in local variable*/
16231: FND_MSG_PUB.Count_And_Get(p_count => l_payee_msg_count,
16232: p_data => l_payee_msg_data);
16233:
16234: /* Calling IBY Payee Validation API */
16235: IBY_DISBURSEMENT_SETUP_PUB.Validate_External_Payee
16302: l_rollback_vendor := 'Y'; --bug 8275512
16303:
16304: -- Bug 5491139 hkaniven start --
16305: FND_MESSAGE.SET_NAME('SQLAP','AP_BANK_ACCT_CREATION');
16306: FND_MSG_PUB.ADD;
16307: -- Bug 5491139 hkaniven end --
16308: END IF; -- Bank Account Creation API
16309:
16310:
16324: SET status = 'REJECTED'
16325: WHERE temp_ext_bank_acct_id = l_temp_ext_acct_id;
16326:
16327: -- Bug 9259355 Start
16328: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
16329: p_count => l_msg_count,
16330: p_data => l_msg_data);
16331:
16332: IF ( NVL(l_msg_count, 0) > 1 ) THEN
16332: IF ( NVL(l_msg_count, 0) > 1 ) THEN
16333:
16334: FOR i IN 1..l_msg_count
16335: LOOP
16336: l_msg_data := FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
16337:
16338: IF (FND_GLOBAL.conc_request_id = -1) THEN
16339: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16340: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
16373: g_login_id,
16374: 'Import_Vendor') <> TRUE) THEN
16375: --
16376: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16377: FND_MSG_PUB.Count_And_Get(
16378: p_count => l_msg_count,
16379: p_data => l_msg_data);
16380: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
16381: l_api_name,'Parameters: '
16396: g_login_id,
16397: 'Import_Vendor') <> TRUE) THEN
16398: --
16399: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16400: FND_MSG_PUB.Count_And_Get(
16401: p_count => l_msg_count,
16402: p_data => l_msg_data);
16403: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
16404: l_api_name,'Parameters: '
16408: END IF;
16409:
16410: -- Bug 5491139 hkaniven start --
16411: FND_MESSAGE.SET_NAME('SQLAP','AP_PAYEE_CREATION');
16412: FND_MSG_PUB.ADD;
16413: -- Bug 5491139 hkaniven end --
16414: END IF; -- Payee Creation API
16415:
16416: ELSE
16414: END IF; -- Payee Creation API
16415:
16416: ELSE
16417: -- Bug 9259355 Start
16418: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
16419: p_count => l_msg_count,
16420: p_data => l_msg_data);
16421:
16422: IF ( NVL(l_msg_count, 0) > 1 ) THEN
16422: IF ( NVL(l_msg_count, 0) > 1 ) THEN
16423:
16424: FOR i IN 1..l_msg_count
16425: LOOP
16426: l_msg_data := FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
16427:
16428: IF (FND_GLOBAL.conc_request_id = -1) THEN
16429: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16430: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
16463: g_login_id,
16464: 'Import_Vendor') <> TRUE) THEN
16465: --
16466: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16467: FND_MSG_PUB.Count_And_Get(
16468: p_count => l_msg_count,
16469: p_data => l_msg_data);
16470: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
16471: l_api_name,'Parameters: '
16489: -- more than one error. The calling module will need to get
16490: -- them from the message stack
16491: FOR i IN l_payee_msg_count..l_msg_count
16492: LOOP
16493: l_error_code := FND_MSG_PUB.Get(p_msg_index => i,
16494: p_encoded => 'F');
16495:
16496: If i = l_payee_msg_count then
16497: l_error_code := '3)Error in '||l_debug_info||
16507:
16508: -- Bug 5491139 hkaniven start --
16509: --FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAYEE'); --bug 7572325
16510: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAYEE_INFO'); --bug 7572325
16511: FND_MSG_PUB.ADD;
16512: -- Bug 5491139 hkaniven end --
16513: END IF; -- Payee Validation API
16514:
16515: ELSE
16538: COMMIT WORK;
16539:
16540: -- Standard call to get message count and if count is 1,
16541: -- get message info.
16542: FND_MSG_PUB.Count_And_Get(
16543: p_count => x_msg_count,
16544: p_data => x_msg_data
16545: );
16546:
16547: EXCEPTION
16548: WHEN FND_API.G_EXC_ERROR THEN
16549: ROLLBACK TO Import_Vendor_PUB;
16550: x_return_status := FND_API.G_RET_STS_ERROR ;
16551: FND_MSG_PUB.Count_And_Get
16552: ( p_count => x_msg_count,
16553: p_data => x_msg_data
16554: );
16555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16554: );
16555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16556: ROLLBACK TO Import_Vendor_PUB;
16557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
16558: FND_MSG_PUB.Count_And_Get
16559: ( p_count => x_msg_count,
16560: p_data => x_msg_data
16561: );
16562: WHEN OTHERS THEN
16561: );
16562: WHEN OTHERS THEN
16563: ROLLBACK TO Import_Vendor_PUB;
16564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
16565: IF FND_MSG_PUB.Check_Msg_Level
16566: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
16567: FND_MSG_PUB.Add_Exc_Msg
16568: ( G_PKG_NAME,
16569: l_api_name
16562: WHEN OTHERS THEN
16563: ROLLBACK TO Import_Vendor_PUB;
16564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
16565: IF FND_MSG_PUB.Check_Msg_Level
16566: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
16567: FND_MSG_PUB.Add_Exc_Msg
16568: ( G_PKG_NAME,
16569: l_api_name
16570: );
16563: ROLLBACK TO Import_Vendor_PUB;
16564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
16565: IF FND_MSG_PUB.Check_Msg_Level
16566: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
16567: FND_MSG_PUB.Add_Exc_Msg
16568: ( G_PKG_NAME,
16569: l_api_name
16570: );
16571: END IF;
16568: ( G_PKG_NAME,
16569: l_api_name
16570: );
16571: END IF;
16572: FND_MSG_PUB.Count_And_Get
16573: ( p_count => x_msg_count,
16574: p_data => x_msg_data
16575: );
16576: END Import_Vendors;
16657: THEN
16658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16659: END IF;
16660:
16661: FND_MSG_PUB.initialize;
16662:
16663: g_user_id := FND_GLOBAL.USER_ID;
16664: g_login_id := FND_GLOBAL.LOGIN_ID;
16665: g_source := p_source;
17047: WHERE vendor_id = site_rec.vendor_id;
17048:
17049: /*Bug 7572325- added the call to count_and_get to get the count
17050: before call to IBY API in local variable*/
17051: FND_MSG_PUB.Count_And_Get(p_count => l_payee_msg_count,
17052: p_data => l_payee_msg_data);
17053:
17054: /* Calling IBY Payee Validation API */
17055: IBY_DISBURSEMENT_SETUP_PUB.Validate_External_Payee
17148: g_login_id,
17149: 'Import_Vendor_Site') <> TRUE) THEN
17150: --
17151: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17152: FND_MSG_PUB.Count_And_Get(
17153: p_count => l_msg_count,
17154: p_data => l_msg_data);
17155: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17156: l_api_name,'Parameters: '
17162: l_rollback_vendor_site := 'Y'; --Bug 8275512
17163:
17164: -- Bug 5491139 hkaniven start --
17165: FND_MESSAGE.SET_NAME('SQLAP','AP_BANK_ACCT_CREATION');
17166: FND_MSG_PUB.ADD;
17167: -- Bug 5491139 hkaniven end --
17168: END IF; -- Bank Account Creation API
17169: --Commented for Bug 9012321
17170: /* ELSE -- Bank Account Validation API
17183: g_login_id,
17184: 'Import_Vendor_Site') <> TRUE) THEN
17185: --
17186: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17187: FND_MSG_PUB.Count_And_Get(
17188: p_count => l_msg_count,
17189: p_data => l_msg_data);
17190: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17191: l_api_name,'Parameters: '
17197: l_rollback_vendor_site := 'Y'; --Bug 8275512
17198:
17199: -- Bug 5491139 hkaniven start --
17200: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_BANK_ACCT_INFO');
17201: FND_MSG_PUB.ADD;
17202: -- Bug 5491139 hkaniven end --
17203: END IF; -- Bank Account Validation API */--Commented for Bug 9012321
17204:
17205: END LOOP;
17222: SET status = 'REJECTED'
17223: WHERE temp_ext_bank_acct_id = l_temp_ext_acct_id;
17224:
17225: -- Bug 9259355 Start
17226: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
17227: p_count => l_msg_count,
17228: p_data => l_msg_data);
17229:
17230: IF ( NVL(l_msg_count, 0) > 1 ) THEN
17230: IF ( NVL(l_msg_count, 0) > 1 ) THEN
17231:
17232: FOR i IN 1..l_msg_count
17233: LOOP
17234: l_msg_data := FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
17235:
17236: IF (FND_GLOBAL.conc_request_id = -1) THEN
17237: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17238: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17271: g_login_id,
17272: 'Import_Vendor_Site') <> TRUE) THEN
17273: --
17274: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17275: FND_MSG_PUB.Count_And_Get(
17276: p_count => l_msg_count,
17277: p_data => l_msg_data);
17278: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17279: l_api_name,'Parameters: '
17288:
17289: ELSE -- Payee Creation API
17290:
17291: -- Bug 9259355 Start
17292: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
17293: p_count => l_msg_count,
17294: p_data => l_msg_data);
17295:
17296: IF ( NVL(l_msg_count, 0) > 1 ) THEN
17296: IF ( NVL(l_msg_count, 0) > 1 ) THEN
17297:
17298: FOR i IN 1..l_msg_count
17299: LOOP
17300: l_msg_data := FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
17301:
17302: IF (FND_GLOBAL.conc_request_id = -1) THEN
17303: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17304: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17336: g_login_id,
17337: 'Import_Vendor_Site') <> TRUE) THEN
17338: --
17339: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17340: FND_MSG_PUB.Count_And_Get(
17341: p_count => l_msg_count,
17342: p_data => l_msg_data);
17343: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17344: l_api_name,'Parameters: '
17348: END IF;
17349:
17350: -- Bug 5491139 hkaniven start --
17351: FND_MESSAGE.SET_NAME('SQLAP','AP_PAYEE_CREATION');
17352: FND_MSG_PUB.ADD;
17353: -- Bug 5491139 hkaniven end --
17354: END IF; -- Payee Creation API
17355:
17356: ELSE -- Payee Validation API
17355:
17356: ELSE -- Payee Validation API
17357:
17358: -- Bug 9259355 Start
17359: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
17360: p_count => l_msg_count,
17361: p_data => l_msg_data);
17362:
17363: IF ( NVL(l_msg_count, 0) > 1 ) THEN
17363: IF ( NVL(l_msg_count, 0) > 1 ) THEN
17364:
17365: FOR i IN 1..l_msg_count
17366: LOOP
17367: l_msg_data := FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
17368:
17369: IF (FND_GLOBAL.conc_request_id = -1) THEN
17370: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17371: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17403: g_login_id,
17404: 'Import_Vendor_Site') <> TRUE) THEN
17405: --
17406: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17407: FND_MSG_PUB.Count_And_Get(
17408: p_count => l_msg_count,
17409: p_data => l_msg_data);
17410: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
17411: l_api_name,'Parameters: '
17429: -- more than one error. The calling module will need to get
17430: -- them from the message stack
17431: FOR i IN l_payee_msg_count..l_msg_count
17432: LOOP
17433: l_error_code := FND_MSG_PUB.Get(p_msg_index => i,
17434: p_encoded => 'F');
17435:
17436: If i = l_payee_msg_count then
17437: l_error_code := '4)Error in '||l_debug_info||
17446: END IF;--bug 7572325
17447:
17448: -- Bug 5491139 hkaniven start --
17449: FND_MESSAGE.SET_NAME('SQLAP','AP_INVALID_PAYEE_INFO');
17450: FND_MSG_PUB.ADD;
17451: -- Bug 5491139 hkaniven end --
17452: END IF; -- Payee Validation API
17453:
17454: ELSE -- Supplier Site Creation API
17482: COMMIT WORK;
17483:
17484: -- Standard call to get message count and if count is 1,
17485: -- get message info.
17486: FND_MSG_PUB.Count_And_Get(
17487: p_count => x_msg_count,
17488: p_data => x_msg_data
17489: );
17490:
17491: EXCEPTION
17492: WHEN FND_API.G_EXC_ERROR THEN
17493: ROLLBACK TO Import_Vendor_Sites_PUB;
17494: x_return_status := FND_API.G_RET_STS_ERROR ;
17495: FND_MSG_PUB.Count_And_Get
17496: ( p_count => x_msg_count,
17497: p_data => x_msg_data
17498: );
17499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17498: );
17499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17500: ROLLBACK TO Import_Vendor_Sites_PUB;
17501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17502: FND_MSG_PUB.Count_And_Get
17503: ( p_count => x_msg_count,
17504: p_data => x_msg_data
17505: );
17506: WHEN OTHERS THEN
17505: );
17506: WHEN OTHERS THEN
17507: ROLLBACK TO Import_Vendor_Sites_PUB;
17508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17509: IF FND_MSG_PUB.Check_Msg_Level
17510: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
17511: FND_MSG_PUB.Add_Exc_Msg
17512: ( G_PKG_NAME,
17513: l_api_name
17506: WHEN OTHERS THEN
17507: ROLLBACK TO Import_Vendor_Sites_PUB;
17508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17509: IF FND_MSG_PUB.Check_Msg_Level
17510: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
17511: FND_MSG_PUB.Add_Exc_Msg
17512: ( G_PKG_NAME,
17513: l_api_name
17514: );
17507: ROLLBACK TO Import_Vendor_Sites_PUB;
17508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17509: IF FND_MSG_PUB.Check_Msg_Level
17510: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
17511: FND_MSG_PUB.Add_Exc_Msg
17512: ( G_PKG_NAME,
17513: l_api_name
17514: );
17515: END IF;
17512: ( G_PKG_NAME,
17513: l_api_name
17514: );
17515: END IF;
17516: FND_MSG_PUB.Count_And_Get
17517: ( p_count => x_msg_count,
17518: p_data => x_msg_data
17519: );
17520: END Import_Vendor_Sites;
17574: THEN
17575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17576: END IF;
17577:
17578: FND_MSG_PUB.initialize;
17579:
17580: g_user_id := FND_GLOBAL.USER_ID;
17581: g_login_id := FND_GLOBAL.LOGIN_ID;
17582: g_source := p_source;
17768: COMMIT WORK;
17769:
17770: -- Standard call to get message count and if count is 1,
17771: -- get message info.
17772: FND_MSG_PUB.Count_And_Get(
17773: p_count => x_msg_count,
17774: p_data => x_msg_data
17775: );
17776:
17777: EXCEPTION
17778: WHEN FND_API.G_EXC_ERROR THEN
17779: ROLLBACK TO Import_Vendor_Contact_PUB;
17780: x_return_status := FND_API.G_RET_STS_ERROR ;
17781: FND_MSG_PUB.Count_And_Get
17782: ( p_count => x_msg_count,
17783: p_data => x_msg_data
17784: );
17785: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17784: );
17785: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17786: ROLLBACK TO Import_Vendor_Contact_PUB;
17787: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17788: FND_MSG_PUB.Count_And_Get
17789: ( p_count => x_msg_count,
17790: p_data => x_msg_data
17791: );
17792: WHEN OTHERS THEN
17791: );
17792: WHEN OTHERS THEN
17793: ROLLBACK TO Import_Vendor_Contact_PUB;
17794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17795: IF FND_MSG_PUB.Check_Msg_Level
17796: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
17797: FND_MSG_PUB.Add_Exc_Msg
17798: ( G_PKG_NAME,
17799: l_api_name
17792: WHEN OTHERS THEN
17793: ROLLBACK TO Import_Vendor_Contact_PUB;
17794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17795: IF FND_MSG_PUB.Check_Msg_Level
17796: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
17797: FND_MSG_PUB.Add_Exc_Msg
17798: ( G_PKG_NAME,
17799: l_api_name
17800: );
17793: ROLLBACK TO Import_Vendor_Contact_PUB;
17794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17795: IF FND_MSG_PUB.Check_Msg_Level
17796: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
17797: FND_MSG_PUB.Add_Exc_Msg
17798: ( G_PKG_NAME,
17799: l_api_name
17800: );
17801: END IF;
17798: ( G_PKG_NAME,
17799: l_api_name
17800: );
17801: END IF;
17802: FND_MSG_PUB.Count_And_Get
17803: ( p_count => x_msg_count,
17804: p_data => x_msg_data
17805: );
17806: END Import_Vendor_Contacts;
17857: END IF;
17858:
17859: -- Initialize message list if p_init_msg_list is set to TRUE.
17860: IF FND_API.to_Boolean( p_init_msg_list ) THEN
17861: FND_MSG_PUB.initialize;
17862: END IF;
17863:
17864: -- Initialize API return status to success
17865: x_return_status := FND_API.G_RET_STS_SUCCESS;
17930: END IF;
17931:
17932: -- Standard call to get message count and if count is 1,
17933: -- get message info.
17934: FND_MSG_PUB.Count_And_Get(
17935: p_count => x_msg_count ,
17936: p_data => x_msg_data
17937: );
17938:
17939: EXCEPTION
17940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17941: ROLLBACK TO Update_Address_Assign_DFF_PUB;
17942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17943: FND_MSG_PUB.Count_And_Get
17944: ( p_count => x_msg_count,
17945: p_data => x_msg_data
17946: );
17947: WHEN OTHERS THEN
17946: );
17947: WHEN OTHERS THEN
17948: ROLLBACK TO Update_Address_Assign_DFF_PUB;
17949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17950: IF FND_MSG_PUB.Check_Msg_Level
17951: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
17952: FND_MSG_PUB.Add_Exc_Msg
17953: ( G_PKG_NAME ,
17954: l_api_name
17947: WHEN OTHERS THEN
17948: ROLLBACK TO Update_Address_Assign_DFF_PUB;
17949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17950: IF FND_MSG_PUB.Check_Msg_Level
17951: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
17952: FND_MSG_PUB.Add_Exc_Msg
17953: ( G_PKG_NAME ,
17954: l_api_name
17955: );
17948: ROLLBACK TO Update_Address_Assign_DFF_PUB;
17949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17950: IF FND_MSG_PUB.Check_Msg_Level
17951: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
17952: FND_MSG_PUB.Add_Exc_Msg
17953: ( G_PKG_NAME ,
17954: l_api_name
17955: );
17956: END IF;
17953: ( G_PKG_NAME ,
17954: l_api_name
17955: );
17956: END IF;
17957: FND_MSG_PUB.Count_And_Get
17958: ( p_count => x_msg_count,
17959: p_data => x_msg_data
17960: );
17961: END Update_Address_Assignments_DFF;