[Home] [Help]
916: PROCEDURE ENTITY_HEADER
917: (p_header_rec IN OUT NOCOPY QP_BULK_LOADER_PUB.HEADER_REC_TYPE)
918:
919: IS
920: l_msg_rec QP_BULK_MSG.Msg_Rec_Type;
921: l_old_PRICE_LIST_rec QP_Price_List_PUB.Price_List_Rec_Type;
922: l_dummy VARCHAR2(10);
923: l_unit_precision_type varchar2(255) ;
924: l_precision number := NULL;
1022: p_header_rec.process_status_flag(I):=NULL; --'E';
1023:
1024: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1025: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','ORIG_SYS_HEADER_ID');
1026: QP_BULK_MSG.ADD(l_msg_rec);
1027:
1028: END IF;
1029: END IF;
1030:
1036: P_header_rec.process_status_flag(I):=NULL; --'E';
1037:
1038: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1039: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','LIST_TYPE_CODE');
1040: QP_BULK_MSG.ADD(l_msg_rec);
1041:
1042: END IF;
1043:
1044: --currency_code
1048: P_header_rec.process_status_flag(I):=NULL; --'E';
1049:
1050: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1051: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','CURRENCY_CODE');
1052: QP_BULK_MSG.ADD(l_msg_rec);
1053: qp_bulk_loader_pub.write_log('Currency Validation failed');
1054:
1055: END IF;
1056:
1061: p_header_rec.process_status_flag(I):=NULL; --'E';
1062:
1063: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1064: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','NAME');
1065: QP_BULK_MSG.ADD(l_msg_rec);
1066:
1067: END IF;
1068:
1069: --Rounding_factor
1073: P_header_rec.process_status_flag(I):=NULL;
1074:
1075: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1076: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','ROUNDING_FACTOR');
1077: QP_BULK_MSG.ADD(l_msg_rec);
1078:
1079: END IF;
1080:
1081: IF p_header_rec.interface_action_code(I) = 'INSERT' THEN
1086: P_header_rec.process_status_flag(I):=NULL;
1087:
1088: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1089: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','LANGUAGE');
1090: QP_BULK_MSG.ADD(l_msg_rec);
1091:
1092: END IF;
1093:
1094: -- Source Language
1098: p_header_rec.process_status_flag(I):=NULL;
1099:
1100: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1101: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','SOURCE_LANG');
1102: QP_BULK_MSG.ADD(l_msg_rec);
1103:
1104: END IF;
1105: END IF;
1106:
1110: THEN
1111:
1112: p_header_rec.process_status_flag(I):=NULL;
1113: FND_MESSAGE.SET_NAME('QP','QP_MUL_CURR_REQD');
1114: QP_BULK_MSG.ADD(l_msg_rec);
1115:
1116: END IF;
1117:
1118:
1140: IF l_date_length<>10 or l_first_date_hash<>'/' or l_second_date_hash<>'/'
1141: THEN
1142: p_header_rec.process_status_flag(I):=NULL;
1143: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_DATE');
1144: QP_BULK_MSG.Add(l_msg_rec);
1145: END IF;
1146:
1147: l_start_date := to_date(p_header_rec.start_date_active(I),'YYYY/MM/DD');
1148: exception
1148: exception
1149: when others then
1150: p_header_rec.process_status_flag(I):=NULL;
1151: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_DATE');
1152: QP_BULK_MSG.Add(l_msg_rec);
1153: end;
1154: END IF;
1155:
1156: IF p_header_rec.end_date_active(I) is not null THEN
1170: IF l_date_length<>10 or l_first_date_hash<>'/' or l_second_date_hash<>'/'
1171: THEN
1172: p_header_rec.process_status_flag(I):=NULL;
1173: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_DATE');
1174: QP_BULK_MSG.Add(l_msg_rec);
1175: END IF;
1176:
1177: l_end_date := to_date(p_header_rec.end_date_active(I),'YYYY/MM/DD');
1178: exception
1178: exception
1179: when others then
1180: p_header_rec.process_status_flag(I):=NULL;
1181: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_DATE');
1182: QP_BULK_MSG.Add(l_msg_rec);
1183: end;
1184: END IF;
1185: -- Bug 4904393 END RAVI (5138015,5207598,5207612,5414062)
1186:
1194: THEN
1195: IF l_start_date > l_end_date THEN
1196: p_header_rec.process_status_flag(I):=NULL;
1197: FND_MESSAGE.SET_NAME('QP', 'QP_STRT_DATE_BFR_END_DATE');
1198: QP_BULK_MSG.Add(l_msg_rec);
1199: END IF;
1200: END IF;
1201: -- Bug 4929691 END RAVI (5207598,5207612)
1202:
1214: WHEN NO_DATA_FOUND THEN
1215: p_header_rec.process_status_flag(I):=NULL;
1216: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
1217: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','rounding_factor');
1218: qp_bulk_msg.add(l_msg_rec);
1219: END;
1220: END IF;
1221:
1222: IF p_header_rec.rounding_factor(I) IS NOT NULL
1227: IF l_price_rounding = 'PRECISION' THEN
1228: IF p_header_rec.rounding_factor(I) <> l_precision THEN
1229: p_header_rec.process_status_flag(I):=NULL;
1230: FND_MESSAGE.SET_NAME('QP', 'QP_ROUNDING_FACTOR_NO_UPDATE');
1231: qp_bulk_msg.add(l_msg_rec);
1232: END IF;
1233: END IF;
1234:
1235: IF (p_header_rec.rounding_factor(I))
1236: < nvl((l_precision), (p_header_rec.rounding_factor(I))) THEN
1237: p_header_rec.process_status_flag(I):=NULL;
1238: FND_MESSAGE.SET_NAME('QP', 'OE_PRL_INVALID_ROUNDING_FACTOR');
1239: FND_MESSAGE.SET_TOKEN('PRECISION', l_precision);
1240: qp_bulk_msg.add(l_msg_rec);
1241: END IF;
1242:
1243: ELSE
1244: IF l_price_rounding = 'PRECISION' THEN
1244: IF l_price_rounding = 'PRECISION' THEN
1245: IF p_header_rec.rounding_factor(I) <> l_extended_precision THEN
1246: p_header_rec.process_status_flag(I):=NULL;
1247: FND_MESSAGE.SET_NAME('QP', 'QP_ROUNDING_FACTOR_NO_UPDATE');
1248: qp_bulk_msg.add(l_msg_rec);
1249: END IF;
1250: END IF;
1251:
1252: IF (p_header_rec.rounding_factor(I))
1253: < nvl((l_extended_precision),(p_header_rec.rounding_factor(I))) THEN
1254: p_header_rec.process_status_flag(I):=NULL;
1255: FND_MESSAGE.SET_NAME('QP', 'OE_PRL_INVALID_ROUNDING_FACTOR');
1256: FND_MESSAGE.SET_TOKEN('PRECISION', l_extended_precision);
1257: qp_bulk_msg.add(l_msg_rec);
1258: END IF;
1259: END IF;
1260:
1261: END IF;
1274: THEN
1275: p_header_rec.process_status_flag(I):=NULL;
1276: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
1277: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','active_flag');
1278: qp_bulk_msg.add(l_msg_rec);
1279: END IF;
1280: END IF;
1281:
1282: IF ( p_header_rec.automatic_flag(I) IS NOT NULL)
1285: THEN
1286: p_header_rec.process_status_flag(I):=NULL;
1287: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
1288: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','automatic_flag');
1289: qp_bulk_msg.add(l_msg_rec);
1290: END IF;
1291: END IF;
1292:
1293: IF p_header_rec.global_flag(I) NOT IN ('Y', 'N', 'n')
1294: THEN
1295: p_header_rec.process_status_flag(I):=NULL;
1296: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
1297: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','global_flag');
1298: qp_bulk_msg.add(l_msg_rec);
1299: END IF;
1300:
1301: --added for MOAC
1302: l_security_profile := QP_SECURITY.security_on;
1309: and p_header_rec.global_flag(I) in ('N', 'n')) THEN
1310: p_header_rec.process_status_flag(I):=NULL;
1311: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
1312: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','global_flag');
1313: qp_bulk_msg.add(l_msg_rec);
1314: END IF;
1315:
1316: IF l_security_profile = 'Y' THEN
1317: --if security is ON and global_flag is 'N', orig_org_id cannot be null
1323: and p_header_rec.orig_org_id(I) is null) THEN
1324: p_header_rec.process_status_flag(I):=NULL;
1325: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1326: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','ORIG_ORG_ID');
1327: qp_bulk_msg.add(l_msg_rec);
1328:
1329: END IF;
1330:
1331: /* for bug 4731613 moved this validation to attribute_header procedure
1334: and QP_UTIL.validate_org_id(p_header_rec.orig_org_id(I)) = 'N') THEN
1335: p_header_rec.process_status_flag(I):=NULL;
1336: FND_MESSAGE.SET_NAME('FND','FND_MO_ORG_INVALID');
1337: -- FND_MESSAGE.SET_TOKEN('ATTRIBUTE','orig_org_id');
1338: qp_bulk_msg.add(l_msg_rec);
1339: END IF;
1340: */
1341: END IF;--IF l_security_profile = 'Y'
1342:
1344: IF ((p_header_rec.global_flag(I) = 'Y'
1345: and p_header_rec.orig_org_id(I) is not null) OR (p_header_rec.global_flag(I) = 'N' and p_header_rec.orig_org_id(I) is null)) THEN
1346: p_header_rec.process_status_flag(I):=NULL;
1347: FND_MESSAGE.SET_NAME('QP', 'QP_GLOBAL_OU_VALIDATION');
1348: qp_bulk_msg.add(l_msg_rec);
1349: END IF;--p_header_rec.global_flag
1350: END IF;
1351: --end validations for moac
1352:
1356: THEN
1357: p_header_rec.process_status_flag(I):=NULL;
1358: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
1359: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','mobile_download');
1360: qp_bulk_msg.add(l_msg_rec);
1361: END IF;
1362: END IF;
1363:
1364: --Checking for uniqueness of the Name in qp_list_headers.
1386:
1387: If l_exist = 1 THEN
1388: p_header_rec.process_status_flag(I):=NULL;
1389: fnd_message.set_name('QP', 'SO_OTHER_NAME_ALREADY_IN_USE');
1390: qp_bulk_msg.add(l_msg_rec);
1391: END IF;
1392:
1393: l_exist := NULL;
1394:
1402:
1403: IF l_exist >0 THEN
1404: p_header_rec.process_status_flag(I):=NULL;
1405: fnd_message.set_name('QP', 'SO_OTHER_NAME_ALREADY_IN_USE');
1406: qp_bulk_msg.add(l_msg_rec);
1407: END IF;
1408: END IF;
1409:
1410: --Checking for uniqueness of orig_sys_header_ref in qp_list_headers
1431: p_header_rec.process_status_flag(I):=NULL;
1432: fnd_message.set_name('QP', 'ORIG_SYS_HEADER_REF_NOT_UNIQUE');
1433: FND_MESSAGE.SET_TOKEN('REF_NO', p_header_rec.orig_sys_header_ref(I));
1434: FND_MESSAGE.SET_TOKEN('LS_CODE', p_header_rec.list_source_code(I));
1435: qp_bulk_msg.add(l_msg_rec);
1436: ELSIF p_header_rec.interface_action_code(I) = 'UPDATE' AND l_exist =0 THEN
1437: p_header_rec.process_status_flag(I):=NULL;
1438: fnd_message.set_name('QP', 'HEADER_RECORD_DOES_NOT_EXIST');
1439: FND_MESSAGE.SET_TOKEN('REF_NO', p_header_rec.orig_sys_header_ref(I));
1437: p_header_rec.process_status_flag(I):=NULL;
1438: fnd_message.set_name('QP', 'HEADER_RECORD_DOES_NOT_EXIST');
1439: FND_MESSAGE.SET_TOKEN('REF_NO', p_header_rec.orig_sys_header_ref(I));
1440: FND_MESSAGE.SET_TOKEN('LS_CODE', p_header_rec.list_source_code(I));
1441: qp_bulk_msg.add(l_msg_rec);
1442: END IF;
1443:
1444: --bug 6961376 start
1445:
1472: p_header_rec.process_status_flag(I):=NULL;
1473: fnd_message.set_name('QP','ORIG_SYS_HEADER_REF_NOT_UNIQUE');
1474: FND_MESSAGE.SET_TOKEN('REF_NO', p_header_rec.orig_sys_header_ref(I));
1475: FND_MESSAGE.SET_TOKEN('LS_CODE', p_header_rec.list_source_code(I));
1476: qp_bulk_msg.add(l_msg_rec);
1477: END IF;
1478: ELSIF p_header_rec.interface_action_code(I) = 'UPDATE' AND l_header_id_null = 'N' THEN
1479: qp_bulk_loader_pub.write_log('checking for unique orig_sys_header_ref: ' || p_header_rec.orig_sys_header_ref(I));
1480: select count(distinct list_header_id) into l_exist
1508: p_header_rec.process_status_flag(I):=NULL;
1509: fnd_message.set_name('QP','ORIG_SYS_HEADER_REF_NOT_UNIQUE');
1510: FND_MESSAGE.SET_TOKEN('REF_NO', p_header_rec.orig_sys_header_ref(I));
1511: FND_MESSAGE.SET_TOKEN('LS_CODE', p_header_rec.list_source_code(I));
1512: qp_bulk_msg.add(l_msg_rec);
1513: END IF;
1514: END IF;
1515: --bug 6961376 end
1516:
1522: p_instance_pk1 => p_header_rec.list_header_id(I)) <> 'T' THEN
1523: p_header_rec.process_status_flag(I):=NULL;
1524: fnd_message.set_name('QP', 'QP_NO_PRIVILEGE');
1525: fnd_message.set_token('PRICING_OBJECT', 'Price List');
1526: qp_bulk_msg.add(l_msg_rec);
1527: END IF;
1528: END IF;
1529:
1530: --Defaulting
1559: ,p_attribute13 => p_header_rec.attribute13(i)
1560: ,p_attribute14 => p_header_rec.attribute14(i)
1561: ,p_attribute15 => p_header_rec.attribute15(i)) THEN
1562:
1563: QP_BULK_MSG.ADD(l_msg_rec);
1564:
1565: -- Log Error Message
1566: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
1567: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
1567: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
1568: 'Entity:Flexfield:Header_Desc_Flex');
1569: P_header_rec.process_status_flag(I):=NULL;
1570:
1571: QP_BULK_MSG.ADD(l_msg_rec);
1572:
1573: ELSE -- if the flex validation is successfull
1574:
1575: IF p_header_rec.context(i) IS NULL
1681: l_old_price_list_rec.pte_code <> p_header_rec.pte_code(I) THEN
1682: p_header_rec.process_status_flag(I):=NULL;
1683: fnd_message.set_name('QP', 'QP_NO_UPDATE_ATTRIBUTE');
1684: fnd_message.set_token('ATTRIBUTE', 'Source System Code / PTE Code');
1685: qp_bulk_msg.add(l_msg_rec);
1686: END IF;
1687: END IF;
1688:
1689: END LOOP;
1703: PROCEDURE ENTITY_LINE
1704: (P_LINE_REC IN OUT NOCOPY QP_BULK_LOADER_PUB.LINE_REC_TYPE)
1705:
1706: IS
1707: l_msg_rec QP_BULK_MSG.Msg_Rec_Type;
1708: l_dummy NUMBER;
1709: l_dummy_1 NUMBER;
1710: l_exist NUMBER;
1711: l_pb_type_code QP_LIST_LINES.price_break_type_code%type;
1771: p_line_rec.process_status_flag(I):=NULL;
1772: fnd_message.set_name('QP', 'QP_INVALID_HEADER_REF');
1773: FND_MESSAGE.SET_TOKEN('REF_NO', p_line_rec.orig_sys_header_ref(I));
1774: FND_MESSAGE.SET_TOKEN('LS_CODE', NULL);
1775: qp_bulk_msg.add(l_msg_rec);
1776: End;
1777: IF p_line_rec.list_header_id(I) IS NOT NULL or
1778: p_line_rec.list_header_id(I) <> 0 THEN
1779: l_list_header_id := p_line_rec.list_header_id(I);
1794: THEN
1795: p_line_rec.process_status_flag(I):=NULL;
1796: fnd_message.set_name('QP', 'QP_ATTRIBUTE_REQUIRED');
1797: fnd_message.set_token('ATTRIBUTE', 'ORIG_SYS_LINE_REF');
1798: qp_bulk_msg.add(l_msg_rec);
1799: END IF;
1800:
1801: --Bug#5359974 RAVI START
1802: --The continuous PB flag set to 'Y' if the line is PBH
1813: p_line_rec.list_line_type_code(I):= '1';
1814: p_line_rec.process_status_flag(I):=NULL;
1815: fnd_message.set_name('QP', 'QP_ATTRIBUTE_REQUIRED');
1816: fnd_message.set_token('ATTRIBUTE', 'LIST_LINE_TYPE_CODE');
1817: qp_bulk_msg.add(l_msg_rec);
1818: END IF;
1819:
1820: IF p_line_rec.list_line_type_code(I) <>'PLL' AND p_line_rec.list_line_type_code(I)<>'PBH' THEN
1821: p_line_rec.process_status_flag(I):=NULL;
1820: IF p_line_rec.list_line_type_code(I) <>'PLL' AND p_line_rec.list_line_type_code(I)<>'PBH' THEN
1821: p_line_rec.process_status_flag(I):=NULL;
1822: fnd_message.set_name('QP', 'QP_INVALID_ATTRIBUTE');
1823: fnd_message.set_token('ATTRIBUTE', 'LIST_LINE_TYPE_CODE');
1824: qp_bulk_msg.add(l_msg_rec);
1825: END IF;
1826:
1827: --3. Arithmetic Operator
1828: IF p_line_rec.arithmetic_operator(I) IS NULL
1830: p_line_rec.arithmetic_operator(I):= '1';
1831: p_line_rec.process_status_flag(I):=NULL;
1832: fnd_message.set_name('QP', 'QP_ATTRIBUTE_REQUIRED');
1833: fnd_message.set_token('ATTRIBUTE', 'ARITHMETIC_OPERATOR1');
1834: qp_bulk_msg.add(l_msg_rec);
1835: ELSE
1836: IF p_line_rec.arithmetic_operator(I) = 'BLOCK_PRICE' AND
1837: p_line_rec.list_line_type_code(I) <> 'PBH' AND
1838: p_line_rec.price_break_header_ref(I) IS NULL THEN
1839: p_line_rec.arithmetic_operator(I):= '1';
1840: p_line_rec.process_status_flag(I):=NULL;
1841: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_ATTRIBUTE');
1842: fnd_message.set_token('ATTRIBUTE', 'ARITHMETIC_OPERATOR 2');
1843: qp_bulk_msg.add(l_msg_rec);
1844: END IF;
1845: IF p_line_rec.arithmetic_operator(I) = 'BREAKUNIT_PRICE' THEN
1846: IF p_line_rec.list_line_type_code(I) = 'PLL' AND
1847: p_line_rec.price_break_header_ref(I) IS NOT NULL THEN
1850: p_line_rec.arithmetic_operator(I):= '1';
1851: p_line_rec.process_status_flag(I):=NULL;
1852: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_ATTRIBUTE');
1853: fnd_message.set_token('ATTRIBUTE', 'ARITHMETIC_OPERATOR 3');
1854: qp_bulk_msg.add(l_msg_rec);
1855: END IF;
1856: END IF;
1857: --End arithemetic operator check
1858:
1906: p_line_rec.arithmetic_operator(I):= '1';
1907: p_line_rec.process_status_flag(I):=NULL;
1908: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_ATTRIBUTE');
1909: fnd_message.set_token('ATTRIBUTE', 'ARITHMETIC_OPERATOR 4');
1910: qp_bulk_msg.add(l_msg_rec);
1911: else
1912: l_servicable_item := 'Y';
1913: end if;
1914: END IF;
1936: If p_line_rec.interface_action_code(I)='INSERT' AND l_exist >= 1 THEN
1937: p_line_rec.process_status_flag(I):=NULL;
1938: fnd_message.set_name('QP', 'ORIG_SYS_LINE_REF_NOT_UNIQUE');
1939: FND_MESSAGE.SET_TOKEN('REF_NO', p_line_rec.orig_sys_line_ref(I));
1940: qp_bulk_msg.add(l_msg_rec);
1941: ELSIF p_line_rec.interface_action_code(I)='UPDATE' AND l_exist = 0 THEN
1942: p_line_rec.process_status_flag(I):=NULL;
1943: fnd_message.set_name('QP', 'LINE_RECORD_DOES_NOT_EXIST');
1944: FND_MESSAGE.SET_TOKEN('REF_NO', p_line_rec.orig_sys_line_ref(I));
1941: ELSIF p_line_rec.interface_action_code(I)='UPDATE' AND l_exist = 0 THEN
1942: p_line_rec.process_status_flag(I):=NULL;
1943: fnd_message.set_name('QP', 'LINE_RECORD_DOES_NOT_EXIST');
1944: FND_MESSAGE.SET_TOKEN('REF_NO', p_line_rec.orig_sys_line_ref(I));
1945: qp_bulk_msg.add(l_msg_rec);
1946: END IF;
1947:
1948: If p_line_rec.interface_action_code(I)='INSERT' THEN
1949: l_exist:= NULL;
1956: IF l_exist >1 THEN
1957: p_line_rec.process_status_flag(I):=NULL;
1958: fnd_message.set_name('QP', 'ORIG_SYS_LINE_REF_NOT_UNIQUE');
1959: FND_MESSAGE.SET_TOKEN('REF_NO', p_line_rec.orig_sys_line_ref(I));
1960: qp_bulk_msg.add(l_msg_rec);
1961: END IF;
1962: end if;
1963:
1964: /*
1983: IF l_exist = 1 THEN
1984: p_line_rec.process_status_flag(I):=NULL;
1985: fnd_message.set_name('QP', 'ORIG_SYS_LINE_REF_NOT_UNIQUE');
1986: FND_MESSAGE.SET_TOKEN('REF_NO', p_line_rec.orig_sys_line_ref(I));
1987: qp_bulk_msg.add(l_msg_rec);
1988: END IF;
1989: end if;*/
1990: --bug 9247305 end
1991:
1994: IF p_line_rec.price_break_type_code(I) IS NULL then
1995: p_line_rec.process_status_flag(I):=NULL;
1996: fnd_message.set_name('QP', 'QP_ATTRIBUTE_REQUIRED');
1997: fnd_message.set_token('ATTRIBUTE', 'PRICE_BREAK_TYPE_CODE');
1998: qp_bulk_msg.add(l_msg_rec);
1999: END IF;
2000: ELSE
2001: IF p_line_rec.price_break_header_ref(I) IS NULL and
2002: p_line_rec.price_break_type_code(I) IS NOT NULL then
2002: p_line_rec.price_break_type_code(I) IS NOT NULL then
2003: p_line_rec.process_status_flag(I):=NULL;
2004: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_ATTRIBUTE');
2005: fnd_message.set_token('ATTRIBUTE', 'PRICE_BREAK_TYPE_CODE');
2006: qp_bulk_msg.add(l_msg_rec);
2007: END IF;
2008: END IF;
2009:
2010: IF p_line_rec.price_break_header_ref(I) IS NOT NULL then
2011: IF p_line_rec.rltd_modifier_grp_type(I) IS NULL then
2012: p_line_rec.process_status_flag(I):=NULL;
2013: fnd_message.set_name('QP', 'QP_ATTRIBUTE_REQUIRED');
2014: fnd_message.set_token('ATTRIBUTE', 'RLTD_MODIFIER_GRP_TYPE');
2015: qp_bulk_msg.add(l_msg_rec);
2016: END IF;
2017: END IF;
2018:
2019: qp_bulk_loader_pub.write_log('check price break ARITHMETIC OPERATOR');
2032: -- if any price breaks are BLOCK
2033: IF (l_dummy > 0) THEN
2034: p_line_rec.process_status_flag(I):=NULL;
2035: FND_MESSAGE.SET_NAME('QP','QP_INVALID_CHILD_APPL_METHOD');
2036: qp_bulk_msg.add(l_msg_rec);
2037: END IF;
2038:
2039: -- Bug# 5228560 RAVI START
2040: l_dummy:= null;
2052: -- if any price breaks are BLOCK in old lines
2053: IF (l_dummy > 0) THEN
2054: p_line_rec.process_status_flag(I):=NULL;
2055: FND_MESSAGE.SET_NAME('QP','QP_INVALID_CHILD_APPL_METHOD');
2056: qp_bulk_msg.add(l_msg_rec);
2057: END IF;
2058: -- Bug# 5228560 RAVI END
2059: END IF;
2060:
2080:
2081: IF (l_dummy > 0) THEN
2082: p_line_rec.process_status_flag(I):=NULL;
2083: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PRICE_BREAK');
2084: qp_bulk_msg.add(l_msg_rec);
2085: END IF;
2086:
2087: END IF;
2088:
2103:
2104: IF (l_dummy > 0) THEN
2105: p_line_rec.process_status_flag(I):=NULL;
2106: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PRICE_BREAK');
2107: qp_bulk_msg.add(l_msg_rec);
2108: END IF;
2109:
2110: l_dummy := null;
2111: IF p_LINE_rec.price_break_type_code(I) = 'POINT' THEN
2122:
2123: IF (l_dummy > 0) THEN
2124: p_line_rec.process_status_flag(I):=NULL;
2125: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PRICE_BREAK');
2126: qp_bulk_msg.add(l_msg_rec);
2127: END IF;
2128: END IF;
2129: -- Bug# 5228560 RAVI END
2130:
2138: p_line_rec.recurring_value(I) is not NULL THEN
2139: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2140: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_ATTRIBUTE');
2141: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'Recurring Value');
2142: QP_BULK_MSG.ADD(l_msg_rec);
2143: END IF;
2144:
2145: BEGIN
2146: SELECT price_break_type_code, arithmetic_operator
2159: l_pb_type_code IS NULL THEN
2160: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2161: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_ATTRIBUTE');
2162: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'Recurring Value');
2163: QP_BULK_MSG.ADD(l_msg_rec);
2164: qp_bulk_loader_pub.write_log('PRICE BREAK TYPE CODE NULL');
2165: ELSE
2166: IF p_line_rec.price_break_type_code(I) = l_pb_type_code
2167: THEN
2169: ELSE
2170: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2171: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_ATTRIBUTE');
2172: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'Recurring Value');
2173: QP_BULK_MSG.ADD(l_msg_rec);
2174: qp_bulk_loader_pub.write_log('PRICE BREAK TYPE CODE OF PARENT AND CHILD UNEQUAL');
2175: END IF;
2176: END IF;
2177: --Bug 4405737 END RAVI
2182: THEN
2183: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2184: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_ATTRIBUTE');
2185: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'Arithmetic Operator');
2186: QP_BULK_MSG.ADD(l_msg_rec);
2187: END IF;
2188: ELSIF p_line_rec.arithmetic_operator(I) = 'BLOCK_PRICE' THEN
2189: IF l_art_opr <> 'BLOCK_PRICE' THEN
2190: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2189: IF l_art_opr <> 'BLOCK_PRICE' THEN
2190: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2191: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_ATTRIBUTE');
2192: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'Arithmetic Operator');
2193: QP_BULK_MSG.ADD(l_msg_rec);
2194: END IF;
2195: ELSIF p_line_rec.arithmetic_operator(I) = 'BREAKUNIT_PRICE' THEN
2196: IF l_art_opr <> 'BLOCK_PRICE' OR l_pb_type_code <> 'RANGE' THEN
2197: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2196: IF l_art_opr <> 'BLOCK_PRICE' OR l_pb_type_code <> 'RANGE' THEN
2197: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2198: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_ATTRIBUTE');
2199: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'Arithmetic Operator');
2200: QP_BULK_MSG.ADD(l_msg_rec);
2201: END IF;
2202: END IF;
2203: END IF;
2204:
2223: IF l_art_opr <> 'UNIT_PRICE' THEN
2224: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2225: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_ATTRIBUTE');
2226: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'Arithmetic Operator - Orderable item - PBC UNIT_PRICE -- PBH Wrong');
2227: QP_BULK_MSG.ADD(l_msg_rec);
2228: END IF;
2229: ELSIF p_line_rec.arithmetic_operator(I) = 'BLOCK_PRICE' THEN
2230: IF l_art_opr <> 'BLOCK_PRICE' THEN
2231: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2230: IF l_art_opr <> 'BLOCK_PRICE' THEN
2231: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2232: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_ATTRIBUTE');
2233: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'Arithmetic Operator - Orderable item - PBC BLOCK_PRICE -- PBH Wrong');
2234: QP_BULK_MSG.ADD(l_msg_rec);
2235: END IF;
2236: ELSIF p_line_rec.arithmetic_operator(I) = 'BREAKUNIT_PRICE' THEN
2237: IF l_art_opr <> 'BLOCK_PRICE' OR l_pb_type_code <> 'RANGE' THEN
2238: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2237: IF l_art_opr <> 'BLOCK_PRICE' OR l_pb_type_code <> 'RANGE' THEN
2238: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2239: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_ATTRIBUTE');
2240: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'Arithmetic Operator - Orderable item - PBC BREAKUNIT_PRICE -- PBH Wrong');
2241: QP_BULK_MSG.ADD(l_msg_rec);
2242: END IF;
2243: END IF;
2244: ELSIF l_servicable_item='Y' THEN
2245: IF p_line_rec.arithmetic_operator(I) = 'UNIT_PRICE' THEN
2246: IF l_art_opr <> 'UNIT_PRICE' and l_art_opr <> 'PERCENT_PRICE' THEN
2247: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2248: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_ATTRIBUTE');
2249: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'Arithmetic Operator - Servicable item - PBC UNIT_PRICE -- PBH Wrong');
2250: QP_BULK_MSG.ADD(l_msg_rec);
2251: END IF;
2252: ELSIF p_line_rec.arithmetic_operator(I) = 'BLOCK_PRICE' THEN
2253: IF l_art_opr <> 'BLOCK_PRICE' THEN
2254: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2253: IF l_art_opr <> 'BLOCK_PRICE' THEN
2254: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2255: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_ATTRIBUTE');
2256: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'Arithmetic Operator - Servicable item - PBC BLOCK_PRICE -- PBH Wrong');
2257: QP_BULK_MSG.ADD(l_msg_rec);
2258: END IF;
2259: ELSIF p_line_rec.arithmetic_operator(I) = 'BREAKUNIT_PRICE' THEN
2260: IF l_art_opr <> 'BLOCK_PRICE' THEN
2261: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2260: IF l_art_opr <> 'BLOCK_PRICE' THEN
2261: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2262: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_ATTRIBUTE');
2263: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'Arithmetic Operator - Servicable item - PBC BREAKUNIT_PRICE -- PBH Wrong');
2264: QP_BULK_MSG.ADD(l_msg_rec);
2265: END IF;
2266: ELSIF p_line_rec.arithmetic_operator(I) = 'PERCENT_PRICE' THEN
2267: IF l_art_opr <> 'BLOCK_PRICE' OR
2268: l_art_opr <> 'PERCENT_PRICE' OR
2270: THEN
2271: P_LINE_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
2272: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_ATTRIBUTE');
2273: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'Arithmetic Operator - Servicable item - PBC PERCENT_PRICE -- PBH Wrong');
2274: QP_BULK_MSG.ADD(l_msg_rec);
2275: END IF;
2276: END IF;
2277: END IF;
2278: -- Bug# 5228560 (5246745) RAVI END
2293: THEN
2294:
2295: p_line_rec.process_status_flag(I):=NULL;
2296: FND_MESSAGE.SET_NAME('QP','QP_OPERAND_FORMULA');
2297: QP_BULK_MSG.ADD(l_msg_rec);
2298:
2299: END IF;
2300:
2301: -- Recurring value check
2307: IF p_line_rec.recurring_value(I) is not null THEN
2308: IF p_line_rec.recurring_value(I) < 1 Then
2309: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
2310: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Recurring Value');
2311: QP_BULK_MSG.ADD(l_msg_rec);
2312: ELSIF p_line_rec.arithmetic_operator(I) <> 'BLOCK_PRICE'
2313: OR l_art_opr <> 'BLOCK_PRICE'
2314: OR l_pb_type_code <> 'RANGE'
2315: THEN
2314: OR l_pb_type_code <> 'RANGE'
2315: THEN
2316: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
2317: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Recurring Value');
2318: QP_BULK_MSG.ADD(l_msg_rec);
2319: END IF;
2320: END IF;
2321: /**
2322: IF p_line_rec.recurring_value(I) is not null
2322: IF p_line_rec.recurring_value(I) is not null
2323: And p_line_rec.recurring_value(I) < 1 Then
2324: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
2325: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Recurring Value');
2326: QP_BULK_MSG.ADD(l_msg_rec);
2327: END IF;
2328: **/
2329: -- Bug 4995724 END RAVI
2330:
2335: THEN
2336: Null;
2337: ELSIF (p_line_rec.start_date_active(I) > p_line_rec.end_date_active(I) ) THEN
2338: FND_MESSAGE.SET_NAME('QP', 'QP_STRT_DATE_BFR_END_DATE');
2339: QP_BULK_MSG.Add(l_msg_rec);
2340: --Bug# 5228368 RAVI
2341: p_line_rec.process_status_flag(I):=NULL;
2342: END IF;
2343:
2381: IF p_line_rec.start_date_active(I) < l_header_start_date OR
2382: p_line_rec.end_date_active(I) > l_header_end_date
2383: THEN
2384: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_DATE');
2385: QP_BULK_MSG.Add(l_msg_rec);
2386: p_line_rec.process_status_flag(I):=NULL;
2387: END IF;
2388: -- Bug 5246745 RAVI END
2389:
2434: IF l_PBH_start_date <> p_line_rec.start_date_active(I) OR
2435: l_PBH_end_date <> p_line_rec.end_date_active(I)
2436: THEN
2437: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_DATE');
2438: QP_BULK_MSG.Add(l_msg_rec);
2439: p_line_rec.process_status_flag(I):=NULL;
2440: END IF;
2441: END IF;
2442: -- Bug 5246745 RAVI END
2464: ,p_attribute13 => p_line_rec.attribute13(i)
2465: ,p_attribute14 => p_line_rec.attribute14(i)
2466: ,p_attribute15 => p_line_rec.attribute15(i)) THEN
2467:
2468: QP_BULK_MSG.ADD(l_msg_rec);
2469:
2470: -- Log Error Message
2471: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
2472: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2472: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2473: 'Entity:Flexfield:Line_Desc_Flex');
2474: p_line_rec.process_status_flag(I):=NULL;
2475:
2476: QP_BULK_MSG.ADD(l_msg_rec);
2477:
2478: ELSE -- if the flex validation is successfull
2479:
2480: IF p_line_rec.context(i) IS NULL
2600:
2601: PROCEDURE ENTITY_QUALIFIER
2602: (p_qualifier_rec IN OUT NOCOPY QP_BULK_LOADER_PUB.qualifier_rec_type)
2603: IS
2604: l_msg_rec QP_BULK_MSG.Msg_Rec_Type;
2605: l_segment_name VARCHAR2(240);
2606: x_value VARCHAR2(240);
2607: x_id VARCHAR2(150);
2608: x_format_type VARCHAR2(1);
2664: IF p_qualifier_rec.qualifier_grouping_no(I) IS NULL THEN
2665: p_qualifier_rec.process_status_flag(I):=NULL;
2666: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
2667: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','QUALIFIER GROUPING NO');
2668: QP_BULK_MSG.ADD(l_msg_rec);
2669: END IF;
2670:
2671: IF p_qualifier_rec.list_line_id(I) IS NOT NULL THEN
2672: IF p_qualifier_rec.list_line_id(I) <> -1 THEN
2672: IF p_qualifier_rec.list_line_id(I) <> -1 THEN
2673: p_qualifier_rec.process_status_flag(I):=NULL;
2674: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
2675: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','LIST_LINE_ID');
2676: QP_BULK_MSG.ADD(l_msg_rec);
2677: END IF;
2678: ELSE
2679: p_qualifier_rec.list_line_id(I):=-1;
2680: END IF;
2683: p_qualifier_rec.qualifier_context(I) := '1';
2684: p_qualifier_rec.process_status_flag(I):=NULL;
2685: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
2686: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','QUALIFIER CONTEXT');
2687: QP_BULK_MSG.ADD(l_msg_rec);
2688: END IF; */
2689:
2690:
2691: -- Qualifier Attribute
2696: p_qualifier_rec.qualifier_attribute_code(I):= '1';
2697: p_qualifier_rec.process_status_flag(I):=NULL;
2698: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
2699: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','QUALIFIER ATTRIBUTE CODE');
2700: QP_BULK_MSG.ADD(l_msg_rec);
2701: /* ELSE
2702:
2703: BEGIN
2704: p_qualifier_rec.qualifier_attribute(I):= QP_UTIL.Get_Attribute_Name(
2711: p_qualifier_rec.qualifier_attribute(I):='1';
2712: p_qualifier_rec.process_status_flag(I):=NULL;
2713: FND_MESSAGE.SET_NAME('QP','QP_VALUE_TO_ID_ERROR');
2714: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','qualifier_attribute');
2715: QP_BULK_MSG.ADD(l_msg_rec);
2716: END IF;
2717: EXCEPTION
2718: WHEN NO_DATA_FOUND THEN
2719: p_qualifier_rec.qualifier_attribute(I):='1';
2719: p_qualifier_rec.qualifier_attribute(I):='1';
2720: p_qualifier_rec.process_status_flag(I):=NULL;
2721: FND_MESSAGE.SET_NAME('QP','QP_VALUE_TO_ID_ERROR');
2722: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','qualifier_attribute');
2723: QP_BULK_MSG.ADD(l_msg_rec);
2724: END;
2725: END IF; */
2726:
2727: END IF;
2732: THEN
2733: p_qualifier_rec.process_status_flag(I):=NULL;
2734: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
2735: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','QUALIFY HIER DESCENDENTS FLAG ');
2736: qp_bulk_msg.add(l_msg_rec);
2737: ELSIF p_qualifier_rec.qualify_hier_descendents_flag(I) in ('Y','y') THEN
2738: BEGIN
2739: select 'Y' into l_hierarchy_enabled
2740: from dual
2750: EXCEPTION WHEN NO_DATA_FOUND THEN
2751: p_qualifier_rec.process_status_flag(I):=NULL;
2752: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
2753: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','QUALIFY HIER DESCENDENTS FLAG ');
2754: qp_bulk_msg.add(l_msg_rec);
2755: END;
2756: ELSE
2757: null;
2758: END IF;
2765: IF p_qualifier_rec.start_date_active(I) > p_qualifier_rec.end_date_active(I) THEN
2766: qp_bulk_loader_pub.write_log('End Date is before Start Date');
2767: p_qualifier_rec.process_status_flag(I):=NULL;
2768: FND_MESSAGE.SET_NAME('QP', 'QP_STRT_DATE_BFR_END_DATE');
2769: QP_BULK_MSG.Add(l_msg_rec);
2770: END IF;
2771: ELSE
2772: qp_bulk_loader_pub.write_log('Qualifier Start Date is null');
2773: p_qualifier_rec.process_status_flag(I):=NULL;
2771: ELSE
2772: qp_bulk_loader_pub.write_log('Qualifier Start Date is null');
2773: p_qualifier_rec.process_status_flag(I):=NULL;
2774: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_DATE');
2775: QP_BULK_MSG.Add(l_msg_rec);
2776: END IF;
2777: END IF;
2778: -- Bug# 5214576 RAVI END
2779:
2793: exception when others then
2794: p_qualifier_rec.process_status_flag(I):=NULL;
2795: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
2796: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','QUALIFIER_ATTR_VALUE');
2797: QP_BULK_MSG.ADD(l_msg_rec);
2798: end;
2799: ELSE
2800:
2801: -- Bug 5152088 Checking if Qualifier Attribute Value Code is valid
2825: IF l_error_code IS NULL THEN
2826: p_qualifier_rec.process_status_flag(I):=NULL;
2827: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
2828: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','QUALIFIER ATTRIBUTE CODE');
2829: QP_BULK_MSG.ADD(l_msg_rec);
2830: ELSE
2831: IF l_error_code=1 THEN
2832: qp_bulk_loader_pub.write_log('Qualifier Flexfield_name is not passed.');
2833: p_qualifier_rec.process_status_flag(I):=NULL;
2832: qp_bulk_loader_pub.write_log('Qualifier Flexfield_name is not passed.');
2833: p_qualifier_rec.process_status_flag(I):=NULL;
2834: FND_MESSAGE.SET_NAME('QP','QP_QLF_FLXFLD_NULL');
2835: --FND_MESSAGE.SET_TOKEN('ATTRIBUTE','QUALIFIER ATTRIBUTE CODE');
2836: QP_BULK_MSG.ADD(l_msg_rec);
2837: ELSIF l_error_code=2 THEN
2838: qp_bulk_loader_pub.write_log('Qualifier Context is not passed');
2839: p_qualifier_rec.process_status_flag(I):=NULL;
2840: FND_MESSAGE.SET_NAME('QP','QP_QLF_CNTXT_NULL');
2838: qp_bulk_loader_pub.write_log('Qualifier Context is not passed');
2839: p_qualifier_rec.process_status_flag(I):=NULL;
2840: FND_MESSAGE.SET_NAME('QP','QP_QLF_CNTXT_NULL');
2841: --FND_MESSAGE.SET_TOKEN('ATTRIBUTE','QUALIFIER ATTRIBUTE CODE');
2842: QP_BULK_MSG.ADD(l_msg_rec);
2843: ELSIF l_error_code=3 THEN
2844: qp_bulk_loader_pub.write_log('Qualifier Attribute is not passed.');
2845: p_qualifier_rec.process_status_flag(I):=NULL;
2846: FND_MESSAGE.SET_NAME('QP','QP_QLF_ATTR_NULL');
2844: qp_bulk_loader_pub.write_log('Qualifier Attribute is not passed.');
2845: p_qualifier_rec.process_status_flag(I):=NULL;
2846: FND_MESSAGE.SET_NAME('QP','QP_QLF_ATTR_NULL');
2847: --FND_MESSAGE.SET_TOKEN('ATTRIBUTE','QUALIFIER ATTRIBUTE CODE');
2848: QP_BULK_MSG.ADD(l_msg_rec);
2849: ELSIF l_error_code=4 THEN
2850: qp_bulk_loader_pub.write_log('Qualifier Value is not passed');
2851: p_qualifier_rec.process_status_flag(I):=NULL;
2852: FND_MESSAGE.SET_NAME('QP','QP_QLF_ATTR_VAL_NULL');
2850: qp_bulk_loader_pub.write_log('Qualifier Value is not passed');
2851: p_qualifier_rec.process_status_flag(I):=NULL;
2852: FND_MESSAGE.SET_NAME('QP','QP_QLF_ATTR_VAL_NULL');
2853: --FND_MESSAGE.SET_TOKEN('ATTRIBUTE','QUALIFIER ATTRIBUTE CODE');
2854: QP_BULK_MSG.ADD(l_msg_rec);
2855: ELSIF l_error_code=5 THEN
2856: qp_bulk_loader_pub.write_log('Qualifier Application short name is not passed');
2857: p_qualifier_rec.process_status_flag(I):=NULL;
2858: FND_MESSAGE.SET_NAME('QP','QP_QLF_APP_NAME_NULL');
2856: qp_bulk_loader_pub.write_log('Qualifier Application short name is not passed');
2857: p_qualifier_rec.process_status_flag(I):=NULL;
2858: FND_MESSAGE.SET_NAME('QP','QP_QLF_APP_NAME_NULL');
2859: --FND_MESSAGE.SET_TOKEN('ATTRIBUTE','QUALIFIER ATTRIBUTE CODE');
2860: QP_BULK_MSG.ADD(l_msg_rec);
2861: ELSIF l_error_code=6 THEN
2862: qp_bulk_loader_pub.write_log('Qualifier Invalid application short name.');
2863: p_qualifier_rec.process_status_flag(I):=NULL;
2864: FND_MESSAGE.SET_NAME('QP','QP_QLF_INVALID_APP_NAME');
2862: qp_bulk_loader_pub.write_log('Qualifier Invalid application short name.');
2863: p_qualifier_rec.process_status_flag(I):=NULL;
2864: FND_MESSAGE.SET_NAME('QP','QP_QLF_INVALID_APP_NAME');
2865: --FND_MESSAGE.SET_TOKEN('ATTRIBUTE','QUALIFIER ATTRIBUTE CODE');
2866: QP_BULK_MSG.ADD(l_msg_rec);
2867: ELSIF l_error_code=7 THEN
2868: qp_bulk_loader_pub.write_log('Qualifier Invalid context passed');
2869: p_qualifier_rec.process_status_flag(I):=NULL;
2870: FND_MESSAGE.SET_NAME('QP','QP_QLF_INVALID_CNTXT');
2868: qp_bulk_loader_pub.write_log('Qualifier Invalid context passed');
2869: p_qualifier_rec.process_status_flag(I):=NULL;
2870: FND_MESSAGE.SET_NAME('QP','QP_QLF_INVALID_CNTXT');
2871: --FND_MESSAGE.SET_TOKEN('ATTRIBUTE','QUALIFIER ATTRIBUTE CODE');
2872: QP_BULK_MSG.ADD(l_msg_rec);
2873: ELSIF l_error_code=8 THEN
2874: qp_bulk_loader_pub.write_log('Qualifier Invalid Attribute passed');
2875: p_qualifier_rec.process_status_flag(I):=NULL;
2876: FND_MESSAGE.SET_NAME('QP','QP_QLF_INVALID_ATTRIB');
2874: qp_bulk_loader_pub.write_log('Qualifier Invalid Attribute passed');
2875: p_qualifier_rec.process_status_flag(I):=NULL;
2876: FND_MESSAGE.SET_NAME('QP','QP_QLF_INVALID_ATTRIB');
2877: --FND_MESSAGE.SET_TOKEN('ATTRIBUTE','QUALIFIER ATTRIBUTE CODE');
2878: QP_BULK_MSG.ADD(l_msg_rec);
2879: ELSIF l_error_code=9 THEN
2880: qp_bulk_loader_pub.write_log('Qualifier Value does not exist');
2881: p_qualifier_rec.process_status_flag(I):=NULL;
2882: FND_MESSAGE.SET_NAME('QP','QP_QLF_INVALID_ATTR_VAL');
2880: qp_bulk_loader_pub.write_log('Qualifier Value does not exist');
2881: p_qualifier_rec.process_status_flag(I):=NULL;
2882: FND_MESSAGE.SET_NAME('QP','QP_QLF_INVALID_ATTR_VAL');
2883: --FND_MESSAGE.SET_TOKEN('ATTRIBUTE','QUALIFIER ATTRIBUTE CODE');
2884: QP_BULK_MSG.ADD(l_msg_rec);
2885: ELSIF l_error_code=10 THEN
2886: qp_bulk_loader_pub.write_log('Qualifier Invalid Flexfield Name');
2887: p_qualifier_rec.process_status_flag(I):=NULL;
2888: FND_MESSAGE.SET_NAME('QP','QP_QLF_INVALID_FLXFLD_NAME');
2886: qp_bulk_loader_pub.write_log('Qualifier Invalid Flexfield Name');
2887: p_qualifier_rec.process_status_flag(I):=NULL;
2888: FND_MESSAGE.SET_NAME('QP','QP_QLF_INVALID_FLXFLD_NAME');
2889: --FND_MESSAGE.SET_TOKEN('ATTRIBUTE','QUALIFIER ATTRIBUTE CODE');
2890: QP_BULK_MSG.ADD(l_msg_rec);
2891: END IF;
2892: END IF;
2893: END IF;
2894:
2902: IF p_qualifier_rec.qualifier_attr_value_to_code(I) IS NULL THEN
2903: p_qualifier_rec.process_status_flag(I):=NULL;
2904: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
2905: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','QUALIFIER ATTRIBUTE VALUE TO');
2906: QP_BULK_MSG.ADD(l_msg_rec);
2907: ELSE
2908:
2909: BEGIN
2910: l_segment_name :=QP_PRICE_LIST_LINE_UTIL.Get_Segment_Name
2930: IF p_qualifier_rec.qualifier_attr_value_to(I) IS NULL THEN
2931: p_qualifier_rec.process_status_flag(I):=NULL;
2932: FND_MESSAGE.SET_NAME('QP','QP_VALUE_TO_ID_ERROR');
2933: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','qualifier_attr_value_to');
2934: QP_BULK_MSG.add(l_msg_rec);
2935: END IF;
2936:
2937: EXCEPTION
2938: WHEN NO_DATA_FOUND THEN
2938: WHEN NO_DATA_FOUND THEN
2939: p_qualifier_rec.process_status_flag(I):=NULL;
2940: FND_MESSAGE.SET_NAME('QP','QP_VALUE_TO_ID_ERROR');
2941: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','qualifier_attr_value_to');
2942: QP_BULK_MSG.ADD(l_msg_rec);
2943:
2944: END;
2945: END IF;
2946: END IF;
2953: IF p_qualifier_rec.orig_sys_qualifier_ref(I) IS NULL THEN
2954: p_qualifier_rec.process_status_flag(I):=NULL;
2955: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
2956: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','ORIG_SYS_QUALIFIER_REF');
2957: QP_BULK_MSG.ADD(l_msg_rec);
2958: END IF;
2959: l_exist:=null;
2960: -- Check for uniqueness of orig_sys_qualifier_ref
2961: BEGIN
2971: IF p_qualifier_rec.interface_action_code(I) = 'INSERT' AND l_exist = 1 THEN
2972: p_qualifier_rec.process_status_flag(I):=NULL;
2973: FND_MESSAGE.SET_NAME('QP', 'ORIG_SYS_QUAL_REF_NOT_UNIQUE');
2974: FND_MESSAGE.SET_TOKEN('REF_NO', p_qualifier_rec.orig_sys_qualifier_ref(I));
2975: QP_BULK_MSG.add(l_msg_rec);
2976: ELSIF p_qualifier_rec.interface_action_code(I) = 'UPDATE' AND l_exist = 0 THEN
2977: p_qualifier_rec.process_status_flag(I):=NULL;
2978: FND_MESSAGE.SET_NAME('QP', 'QUALIFIER_REC_DOES_NOT_EXIST');
2979: FND_MESSAGE.SET_TOKEN('REF_NO', p_qualifier_rec.orig_sys_qualifier_ref(I));
2976: ELSIF p_qualifier_rec.interface_action_code(I) = 'UPDATE' AND l_exist = 0 THEN
2977: p_qualifier_rec.process_status_flag(I):=NULL;
2978: FND_MESSAGE.SET_NAME('QP', 'QUALIFIER_REC_DOES_NOT_EXIST');
2979: FND_MESSAGE.SET_TOKEN('REF_NO', p_qualifier_rec.orig_sys_qualifier_ref(I));
2980: QP_BULK_MSG.add(l_msg_rec);
2981: END IF;
2982: If p_qualifier_rec.interface_action_code(I)='INSERT' THEN
2983: l_exist:=null;
2984: Select /*+ index(qp_interface_qualifiers QP_INTERFACE_QUALIFIERS_N3) */ --bug8359604
2992: IF l_exist >1 THEN
2993: p_qualifier_rec.process_status_flag(I):=NULL;
2994: FND_MESSAGE.SET_NAME('QP', 'ORIG_SYS_QUAL_REF_NOT_UNIQUE');
2995: FND_MESSAGE.SET_TOKEN('REF_NO', p_qualifier_rec.orig_sys_qualifier_ref(I));
2996: QP_BULK_MSG.add(l_msg_rec);
2997: END IF;
2998: end if;
2999:
3000: Begin
3007: p_qualifier_rec.process_status_flag(I):=NULL;
3008: p_qualifier_rec.list_header_id(I) := -1;
3009: fnd_message.set_name('QP', 'QP_INVALID_HEADER_REF');
3010: FND_MESSAGE.SET_TOKEN('REF_NO',NULL);
3011: qp_bulk_msg.add(l_msg_rec);
3012: End;
3013:
3014: --SECONDARY PRICELIST CHECK
3015: qp_bulk_loader_pub.write_log( 'SECONDARY PRICELIST CHECK');
3032: qp_bulk_loader_pub.write_log( 'Secondary Price List Currency not compatible with primary price list currency code');
3033: P_QUALIFIER_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
3034: FND_MESSAGE.SET_NAME('QP', 'QP_SEC_PRL_CCD_INVALID');
3035: --FND_MESSAGE.SET_TOKEN('PRICELIST_NAME', p_qualifier_rec.qualifier_attr_value(I));
3036: QP_BULK_MSG.ADD(l_msg_rec);
3037: END;
3038: -- Bug 4926775 END RAVI
3039:
3040: IF p_qualifier_rec.qualifier_attr_value(I) IS NULL THEN
3049: WHEN NO_DATA_FOUND THEN
3050: P_QUALIFIER_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
3051: FND_MESSAGE.SET_NAME('QP', 'SEC_PRL_ERROR');
3052: FND_MESSAGE.SET_TOKEN('PRICELIST_NAME', p_qualifier_rec.qualifier_attr_value_code(I));
3053: QP_BULK_MSG.ADD(l_msg_rec);
3054: END;
3055: END IF;
3056: IF p_qualifier_rec.qualifier_attr_value(I) IS NOT NULL THEN
3057: qp_bulk_loader_pub.write_log( 'Secondary Price List duplicate check');
3089: if l_exist <> 0 then
3090: P_QUALIFIER_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
3091: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
3092: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',' Price List');
3093: QP_BULK_MSG.ADD(l_msg_rec);
3094: end if;
3095: qp_bulk_loader_pub.write_log( 'Secondary Price List security check');
3096: IF QP_security.check_function(p_function_name => QP_Security.G_FUNCTION_UPDATE,
3097: p_instance_type => QP_Security.G_PRICELIST_OBJECT,
3098: p_instance_pk1 => to_number(p_qualifier_rec.qualifier_attr_value(I))) <> 'T' THEN
3099: p_qualifier_rec.process_status_flag(I):=NULL;
3100: fnd_message.set_name('QP', 'QP_NO_PRIVILEGE');
3101: fnd_message.set_token('PRICING_OBJECT', 'Price List');
3102: qp_bulk_msg.add(l_msg_rec);
3103: END IF;
3104: END IF;
3105: END IF;
3106:
3121: IF l_exist > 0 THEN
3122: P_QUALIFIER_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
3123: FND_MESSAGE.SET_NAME('QP','QP_1_SEC_PLST_FOR_BASIC');
3124: --Only one secondary pricelist allowed in Basic Pricing
3125: QP_BULK_MSG.ADD(l_msg_rec);
3126: END IF;
3127: l_exist:=0;
3128: SELECT count(*)
3129: INTO l_exist
3136: IF l_exist > 1 THEN
3137: P_QUALIFIER_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
3138: FND_MESSAGE.SET_NAME('QP','QP_1_SEC_PLST_FOR_BASIC');
3139: --Only one secondary pricelist allowed in Basic Pricing
3140: QP_BULK_MSG.ADD(l_msg_rec);
3141: END IF;
3142: END IF;
3143: END IF;
3144: --check for the qualifier level
3156:
3157: IF l_seg_level = 'ORDER' THEN
3158: P_QUALIFIER_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
3159: FND_MESSAGE.SET_NAME('QP', 'QP_ORDER_LEVEL_QUAL_NOT_ALLOWED');
3160: QP_BULK_MSG.ADD(l_msg_rec);
3161: END IF;
3162:
3163: EXCEPTION
3164: WHEN NO_DATA_FOUND THEN
3219: FND_MESSAGE.SET_TOKEN('CONTEXT',
3220: p_Qualifier_rec.qualifier_context(I));
3221: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3222: p_Qualifier_rec.qualifier_attribute(I));
3223: QP_BULK_MSG.ADD(l_msg_rec);
3224:
3225: END IF;
3226:
3227: IF l_sourcing_status <> 'Y' THEN
3234: FND_MESSAGE.SET_TOKEN('CONTEXT',
3235: p_Qualifier_rec.qualifier_context(I));
3236: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3237: p_Qualifier_rec.qualifier_attribute(I));
3238: QP_BULK_MSG.ADD(l_msg_rec);
3239: END IF;
3240:
3241: END IF;
3242:
3264:
3265: PROCEDURE ENTITY_PRICING_ATTR
3266: (p_pricing_attr_rec IN OUT NOCOPY QP_BULK_LOADER_PUB.pricing_attr_rec_type)
3267: IS
3268: l_msg_rec QP_BULK_MSG.Msg_Rec_Type;
3269: l_exist NUMBER;
3270: l_exist1 NUMBER;
3271: l_comparison_operator_code VARCHAR2(30);
3272: l_error_code NUMBER;
3635: p_pricing_attr_rec.list_line_id(I) := -1;
3636: p_pricing_attr_rec.process_status_flag(I):=NULL;
3637: fnd_message.set_name('QP', 'QP_INVALID_LINE_REF');
3638: FND_MESSAGE.SET_TOKEN('REF_NO', p_pricing_attr_rec.orig_sys_line_ref(I));
3639: qp_bulk_msg.add(l_msg_rec);
3640: END;
3641: qp_bulk_loader_pub.write_log('After entity list_line_id pricing attribute');
3642:
3643:
3684: if l_pa_count=0 then
3685: p_pricing_attr_rec.process_status_flag(I):=NULL;
3686: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_ATTRIBUTE');
3687: fnd_message.set_token('ATTRIBUTE', 'PRODUCT_ATTRIBUTE_VALUE');
3688: qp_bulk_msg.add(l_msg_rec);
3689: end if;
3690: END IF;
3691: -- Bug# 5246745 RAVI END
3692:
3703: p_pricing_attr_rec.process_status_flag(I):=NULL;
3704: fnd_message.set_name('QP', 'QP_INVALID_HEADER_REF');
3705: FND_MESSAGE.SET_TOKEN('REF_NO', p_pricing_attr_rec.orig_sys_header_ref(I));
3706: FND_MESSAGE.SET_TOKEN('LS_CODE', NULL);
3707: qp_bulk_msg.add(l_msg_rec);
3708: END;
3709:
3710: -- Excluder Flag
3711: p_pricing_attr_rec.excluder_flag(I):='N';
3737: IF p_pricing_attr_rec.interface_action_code(I) = 'INSERT' AND l_exist = 1 THEN
3738: p_pricing_attr_rec.process_status_flag(I):=NULL;
3739: fnd_message.set_name('QP', 'ORIG_SYS_PRC_ATTR_REF_NOT_UNIQ');
3740: FND_MESSAGE.SET_TOKEN('REF_NO', p_pricing_attr_rec.orig_sys_pricing_attr_ref(I));
3741: qp_bulk_msg.add(l_msg_rec);
3742: ELSIF p_pricing_attr_rec.interface_action_code(I) = 'UPDATE' AND l_exist = 0 THEN
3743: p_pricing_attr_rec.process_status_flag(I):=NULL;
3744: fnd_message.set_name('QP', 'PRC_ATTR_REC_DOES_NOT_EXIST');
3745: FND_MESSAGE.SET_TOKEN('REF_NO', p_pricing_attr_rec.orig_sys_pricing_attr_ref(I));
3742: ELSIF p_pricing_attr_rec.interface_action_code(I) = 'UPDATE' AND l_exist = 0 THEN
3743: p_pricing_attr_rec.process_status_flag(I):=NULL;
3744: fnd_message.set_name('QP', 'PRC_ATTR_REC_DOES_NOT_EXIST');
3745: FND_MESSAGE.SET_TOKEN('REF_NO', p_pricing_attr_rec.orig_sys_pricing_attr_ref(I));
3746: qp_bulk_msg.add(l_msg_rec);
3747: END IF;
3748:
3749: IF p_pricing_attr_rec.interface_action_code(I) = 'INSERT' THEN
3750: l_exist:=null;
3764: IF l_exist > 1 THEN
3765: p_pricing_attr_rec.process_status_flag(I):=NULL;
3766: fnd_message.set_name('QP', 'ORIG_SYS_PRC_ATTR_REF_NOT_UNIQ');
3767: FND_MESSAGE.SET_TOKEN('REF_NO', p_pricing_attr_rec.orig_sys_pricing_attr_ref(I));
3768: qp_bulk_msg.add(l_msg_rec);
3769: END IF;
3770: END IF;
3771:
3772: -- Functional Area Validation for Hierarchical Categories (sfiresto)
3795: FND_MESSAGE.set_name('QP', 'QP_INVALID_CAT_FUNC_PTE');
3796: FND_MESSAGE.set_token('CATID', p_PRICING_ATTR_REC.product_attr_value(I));
3797: FND_MESSAGE.set_token('PTE', l_pte_code);
3798: FND_MESSAGE.set_token('SS', l_ss_code);
3799: QP_BULK_MSG.Add(L_MSG_REC);
3800:
3801: END IF;
3802:
3803: END;
3815: ELSE
3816: p_pricing_attr_rec.process_status_flag(I):=NULL;
3817: fnd_message.set_name('QP', 'QP_ATTRIBUTE_REQUIRED');
3818: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Product Attribute Datatype');
3819: qp_bulk_msg.add(l_msg_rec);
3820: END IF;
3821:
3822: qp_bulk_loader_pub.write_log('After entity pricing attribute');
3823:
3826: IF P_PRICING_ATTR_REC.PRODUCT_UOM_CODE(I) IS NULL THEN
3827: P_PRICING_ATTR_REC.process_status_flag(I):=NULL;
3828: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
3829: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRODUCT_UOM_CODE'));
3830: QP_BULK_MSG.ADD(L_MSG_REC);
3831: END IF;
3832:
3833:
3834: --- check for single pricing_attribute record with pricing context/attr/value null
3870: qp_bulk_loader_pub.write_log('Count of records in Int table with pricing contect/attr/value null' || to_char(l_exist1));
3871: IF l_exist > 0 THEN
3872: p_pricing_attr_rec.process_status_flag(I):=NULL;
3873: FND_MESSAGE.SET_NAME('QP','QP_BULK_PRC_ATTR_ERROR');
3874: QP_BULK_MSG.ADD(l_msg_rec);
3875: END IF;
3876: IF l_exist1 > 0 THEN
3877: p_pricing_attr_rec.process_status_flag(I):=NULL;
3878: FND_MESSAGE.SET_NAME('QP','QP_BULK_INT_PRC_ATTR_ERROR');
3875: END IF;
3876: IF l_exist1 > 0 THEN
3877: p_pricing_attr_rec.process_status_flag(I):=NULL;
3878: FND_MESSAGE.SET_NAME('QP','QP_BULK_INT_PRC_ATTR_ERROR');
3879: QP_BULK_MSG.ADD(l_msg_rec);
3880: END IF;
3881:
3882: END IF;
3883:
3914: IF l_exist > 0 OR l_exist1 > 0 THEN
3915: p_pricing_attr_rec.process_status_flag(I):=NULL;
3916: FND_MESSAGE.SET_NAME('QP','QP_1_PRIC_CONT_FOR_BASIC');
3917: --Only one pricing context allwed in Basic Pricing
3918: QP_BULK_MSG.ADD(l_msg_rec);
3919: END IF;
3920:
3921: END IF;
3922: END IF;
3937: WHEN NO_DATA_FOUND THEN
3938: p_pricing_attr_rec.process_status_flag(I):=NULL;
3939: FND_MESSAGE.SET_NAME('QP','QP_PRIC_CONTXT_NA_BASIC');
3940: --Pricing Attribute Context not allowed in Basic Pricing
3941: QP_BULK_MSG.ADD(l_msg_rec);
3942: END;
3943:
3944: END IF;
3945:
3957: WHEN NO_DATA_FOUND THEN
3958: p_pricing_attr_rec.process_status_flag(I):=NULL;
3959: FND_MESSAGE.SET_NAME('QP','QP_PROD_CONTXT_NA_BASIC');
3960: --Product Attribute Context not allowed in Basic Pricing
3961: QP_BULK_MSG.ADD(l_msg_rec);
3962: END;
3963: END IF;
3964: END IF;
3965: --- check for consistency of product context/att/val among the attributes
3997:
3998: IF l_exist >0 OR l_exist1>0 THEN
3999: p_pricing_attr_rec.process_status_flag(I):=NULL;
4000: FND_MESSAGE.SET_NAME('QP', 'INVALID_PROD_CONTEXT_ATTR_PAIR');
4001: QP_BULK_MSG.ADD(l_msg_rec);
4002: END IF;
4003:
4004: -- check for pricing atributes
4005: IF (p_Pricing_Attr_rec.pricing_attribute_context(I) IS NOT NULL
4014: p_pricing_attr_rec.process_status_flag(I):=NULL;
4015: IF p_Pricing_Attr_rec.pricing_attribute_context(I) IS NULL THEN
4016: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
4017: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'PRICING_ATTRIBUTE_CONTEXT');
4018: QP_BULK_MSG.ADD(l_msg_rec);
4019: END IF;
4020: IF p_Pricing_Attr_rec.pricing_attribute(I) IS NULL THEN
4021: IF p_Pricing_Attr_rec.pricing_attr_code(I) IS NULL THEN
4022: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
4020: IF p_Pricing_Attr_rec.pricing_attribute(I) IS NULL THEN
4021: IF p_Pricing_Attr_rec.pricing_attr_code(I) IS NULL THEN
4022: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
4023: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'PRICING_ATTRIBUTE');
4024: QP_BULK_MSG.ADD(l_msg_rec);
4025: ELSE
4026: FND_MESSAGE.SET_NAME('QP','QP_VALUE_TO_ID_ERROR' );
4027: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'PRICING_ATTRIBUTE');
4028: QP_BULK_MSG.ADD(l_msg_rec);
4024: QP_BULK_MSG.ADD(l_msg_rec);
4025: ELSE
4026: FND_MESSAGE.SET_NAME('QP','QP_VALUE_TO_ID_ERROR' );
4027: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'PRICING_ATTRIBUTE');
4028: QP_BULK_MSG.ADD(l_msg_rec);
4029: END IF;
4030: END IF;
4031: IF p_Pricing_Attr_rec.comparison_operator_code(I) IS NULL THEN
4032: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
4030: END IF;
4031: IF p_Pricing_Attr_rec.comparison_operator_code(I) IS NULL THEN
4032: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
4033: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'COMPARISON_OPERATOR_CODE');
4034: QP_BULK_MSG.ADD(l_msg_rec);
4035: END IF;
4036: ELSE
4037: QP_UTIL.validate_qp_flexfield(flexfield_name =>'QP_ATTR_DEFNS_PRICING'
4038: ,context =>p_Pricing_Attr_rec.pricing_attribute_context(I)
4053: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
4054: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
4055: QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTRIBUTE_CONTEXT'));
4056:
4057: QP_BULK_MSG.Add(l_msg_rec);
4058: END IF;
4059:
4060: If l_attribute_error = 'N' AND l_error_code = 8 -- invalid Attribute
4061: Then
4061: Then
4062: p_pricing_attr_rec.process_status_flag(I):=NULL;
4063: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
4064: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',' Attribute');
4065: QP_BULK_MSG.Add(l_msg_rec);
4066: END IF;
4067:
4068: IF p_pricing_Attr_rec.comparison_operator_code(I) = '=' Then
4069:
4071: Then
4072: p_pricing_attr_rec.process_status_flag(I):=NULL;
4073: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
4074: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',' Value From ');
4075: QP_BULK_MSG.Add(l_msg_rec);
4076: End If;
4077: END IF;
4078:
4079: p_pricing_attr_rec.pricing_attribute_datatype(I):=l_datatype;
4084: THEN
4085: p_pricing_attr_rec.process_status_flag(I):=NULL;
4086: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
4087: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Pricing Attribute');
4088: QP_BULK_MSG.Add(l_msg_rec);
4089: END IF;
4090:
4091: --validation for canonical form
4092: l_error_code:=QP_UTIL.validate_num_date(p_Pricing_Attr_rec.pricing_attribute_datatype(I),
4094: IF l_error_code <> 0 THEN
4095: p_pricing_attr_rec.process_status_flag(I):=NULL;
4096: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
4097: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Value From ');
4098: QP_BULK_MSG.Add(l_msg_rec);
4099: END IF;
4100:
4101: -- Validation for Value_To
4102:
4110: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
4111: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
4112: QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_TO')||'/'||
4113: QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_FROM'));
4114: QP_BULK_MSG.Add(l_msg_rec);
4115: END IF;
4116:
4117: -- validate value from
4118:
4124: p_pricing_attr_rec.process_status_flag(I):=NULL;
4125: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
4126: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
4127: QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_FROM'));
4128: QP_BULK_MSG.Add(l_msg_rec);
4129: END IF;
4130:
4131: l_error_code:=QP_UTIL.validate_num_date(p_Pricing_Attr_rec.pricing_attribute_datatype(I),
4132: p_Pricing_Attr_rec.pricing_attr_value_to(I));
4134: IF l_error_code <> 0 THEN
4135: p_pricing_attr_rec.process_status_flag(I):=NULL;
4136: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
4137: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Value To ');
4138: QP_BULK_MSG.Add(l_msg_rec);
4139: END IF;
4140:
4141: END IF; -- Else
4142:
4149: p_pricing_attr_rec.process_status_flag(I) :=NULL; --'E';
4150: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
4151: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
4152: QP_PRC_UTIL.Get_Attribute_Name('COMPARISON_OPERATOR_CODE'));
4153: QP_BULK_MSG.Add(l_msg_rec);
4154: ElSE
4155: SELECT lookup_code
4156: INTO l_comparison_operator_code
4157: FROM QP_LOOKUPS
4163: p_pricing_attr_rec.process_status_flag(I) :=NULL; --'E';
4164: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
4165: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
4166: QP_PRC_UTIL.Get_Attribute_Name('COMPARISON_OPERATOR_CODE'));
4167: QP_BULK_MSG.Add(l_msg_rec);
4168: END IF;
4169:
4170: END IF; /* comparison_operator_code is null */
4171:
4190: if l_exist > 0 then
4191: p_pricing_attr_rec.process_status_flag(I) :=NULL; --'E';
4192: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
4193: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'PRICING ATTRIBUTE');
4194: QP_BULK_MSG.Add(l_msg_rec);
4195: end if;
4196:
4197: END IF; /* context or atttribute is not null */
4198:
4216: IF p_pricing_attr_rec.pricing_attribute_context(I) IS NULL THEN
4217: p_pricing_attr_rec.process_status_flag(I) :=NULL; --'E';
4218: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
4219: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'Pricing Attribute Context');
4220: QP_BULK_MSG.Add(l_msg_rec);
4221: ELSIF p_pricing_attr_rec.pricing_attribute_context(I)<>'VOLUME' THEN
4222: p_pricing_attr_rec.process_status_flag(I) :=NULL; --'E';
4223: FND_MESSAGE.SET_NAME('QP','PBH_CHILD_LINE_INVALID_CONTEXT');
4224: QP_BULK_MSG.Add(l_msg_rec);
4220: QP_BULK_MSG.Add(l_msg_rec);
4221: ELSIF p_pricing_attr_rec.pricing_attribute_context(I)<>'VOLUME' THEN
4222: p_pricing_attr_rec.process_status_flag(I) :=NULL; --'E';
4223: FND_MESSAGE.SET_NAME('QP','PBH_CHILD_LINE_INVALID_CONTEXT');
4224: QP_BULK_MSG.Add(l_msg_rec);
4225: END IF;
4226:
4227: EXCEPTION
4228: WHEN NO_DATA_FOUND THEN
4363: --check for dates overlapping for lines with primary uom flag checked --smbalara 9458481/10152629 END
4364: IF l_count > 0 THEN
4365: p_pricing_attr_rec.process_status_flag(I):=NULL;
4366: FND_MESSAGE.SET_NAME('QP','QP_UNIQUE_PRIMARY_UOM');
4367: QP_BULK_MSG.Add(l_msg_rec);
4368:
4369: -- set the corresponding line as errored
4370: UPDATE qp_interface_list_lines
4371: SET process_status_flag = NULL --'E'
4398: THEN
4399: p_pricing_attr_rec.process_status_flag(J):=NULL; --'E';
4400: l_msg_rec.orig_sys_pricing_attr_ref := p_pricing_attr_rec.orig_sys_pricing_attr_ref(J);
4401: FND_MESSAGE.SET_NAME('QP', 'QP_PARENT_FAILED');
4402: QP_BULK_MSG.ADD(l_msg_rec);
4403: END IF;
4404: END LOOP;
4405:
4406: END IF; --End duplicate exists
4429:
4430: IF l_count > 0 THEN
4431: p_pricing_attr_rec.process_status_flag(I):=NULL;
4432: FND_MESSAGE.SET_NAME('QP','QP_UNIQUE_PRIMARY_UOM');
4433: QP_BULK_MSG.Add(l_msg_rec);
4434:
4435: -- set the corresponding line as errored
4436: UPDATE qp_interface_list_lines
4437: SET process_status_flag = NULL --'E'
4464: THEN
4465: p_pricing_attr_rec.process_status_flag(J):=NULL; --'E';
4466: l_msg_rec.orig_sys_pricing_attr_ref := p_pricing_attr_rec.orig_sys_pricing_attr_ref(J);
4467: FND_MESSAGE.SET_NAME('QP', 'QP_PARENT_FAILED');
4468: QP_BULK_MSG.ADD(l_msg_rec);
4469: END IF;
4470: END LOOP;
4471: END IF; -- If duplicate
4472: END IF;
4553:
4554: IF l_count>1 THEN
4555: P_PRICING_ATTR_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
4556: FND_MESSAGE.SET_NAME('QP', 'QP_MULT_PRICE_BREAK_ATTRS');
4557: QP_BULK_MSG.ADD(l_msg_rec);
4558:
4559: UPDATE qp_interface_list_lines
4560: SET process_status_flag = NULL --'E'
4561: WHERE orig_sys_line_ref = p_pricing_attr_rec.orig_sys_line_ref(I)
4612: EXCEPTION
4613: WHEN OTHERS THEN
4614: P_PRICING_ATTR_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
4615: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_DATA_TYPE');
4616: QP_BULK_MSG.ADD(l_msg_rec);
4617: p_pricing_attr_rec.pricing_attr_value_to(I):=0;
4618: END;
4619:
4620: BEGIN
4622: EXCEPTION
4623: WHEN OTHERS THEN
4624: P_PRICING_ATTR_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
4625: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_DATA_TYPE');
4626: QP_BULK_MSG.ADD(l_msg_rec);
4627: p_pricing_attr_rec.pricing_attr_value_from(I):=0;
4628: END;
4629: -- Bug# 5440851 RAVI END
4630:
4687: ELSE
4688: qp_bulk_loader_pub.write_log('ERROR: No Same To_From Value for Price Break');
4689: P_PRICING_ATTR_REC.PROCESS_STATUS_FLAG(I):= NULL ; --'E';
4690: FND_MESSAGE.SET_NAME('QP', 'QP_PBK_CRSPNDNG_TO_FROM');
4691: QP_BULK_MSG.ADD(l_msg_rec);
4692:
4693: UPDATE qp_interface_list_lines
4694: SET process_status_flag = NULL --'E'
4695: WHERE orig_sys_line_ref = p_pricing_attr_rec.orig_sys_line_ref(I)
4714: ELSE
4715: qp_bulk_loader_pub.write_log('ERROR: No Same From_To Value for Price Break');
4716: P_PRICING_ATTR_REC.PROCESS_STATUS_FLAG(I):= NULL ; --'E';
4717: FND_MESSAGE.SET_NAME('QP', 'QP_PBK_CRSPNDNG_FROM_TO');
4718: QP_BULK_MSG.ADD(l_msg_rec);
4719:
4720: UPDATE qp_interface_list_lines
4721: SET process_status_flag = NULL --'E'
4722: WHERE orig_sys_line_ref = p_pricing_attr_rec.orig_sys_line_ref(I)
4750: ELSE
4751: qp_bulk_loader_pub.write_log('ERROR: No 0 From Value');
4752: P_PRICING_ATTR_REC.PROCESS_STATUS_FLAG(I):= NULL ; --'E';
4753: FND_MESSAGE.SET_NAME('QP', 'QP_PBK_ZERO_FROM');
4754: QP_BULK_MSG.ADD(l_msg_rec);
4755:
4756: UPDATE qp_interface_list_lines
4757: SET process_status_flag = NULL --'E'
4758: WHERE orig_sys_line_ref = p_pricing_attr_rec.orig_sys_line_ref(I)
4791: IF l_status = 'OVERLAP' OR l_status1 = 'OVERLAP' THEN
4792: qp_bulk_loader_pub.write_log('Overlapping Price Breaks');
4793: P_PRICING_ATTR_REC.PROCESS_STATUS_FLAG(I):= NULL ; --'E';
4794: FND_MESSAGE.SET_NAME('QP', 'QP_OVERLAP_PRICE_BREAK_RANGE');
4795: QP_BULK_MSG.ADD(l_msg_rec);
4796:
4797: UPDATE qp_interface_list_lines
4798: SET process_status_flag = NULL --'E'
4799: WHERE orig_sys_line_ref = p_pricing_attr_rec.orig_sys_line_ref(I)
4847: ,p_attribute13 => p_pricing_attr_rec.attribute13(i)
4848: ,p_attribute14 => p_pricing_attr_rec.attribute14(i)
4849: ,p_attribute15 => p_pricing_attr_rec.attribute15(i)) THEN
4850:
4851: QP_BULK_MSG.ADD(l_msg_rec);
4852:
4853: -- Log Error Message
4854: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
4855: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
4855: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
4856: 'Entity:Flexfield:Pricing_Attr_Desc_Flex');
4857: p_pricing_attr_rec.process_status_flag(I):=NULL;
4858:
4859: QP_BULK_MSG.ADD(l_msg_rec);
4860:
4861: ELSE -- if the flex validation is successfull
4862:
4863: IF p_pricing_attr_rec.context(i) IS NULL
4959: p_pricing_attr_rec.product_attr_value(I) THEN
4960:
4961: P_PRICING_ATTR_REC.PROCESS_STATUS_FLAG(I):= NULL; --'E';
4962: FND_MESSAGE.SET_NAME('QP', 'NO_PRODUCT_ATTR_UPD');
4963: QP_BULK_MSG.ADD(l_msg_rec);
4964: END IF;
4965: END IF;
4966:
4967:
4992: FND_MESSAGE.SET_TOKEN('CONTEXT',
4993: p_Pricing_Attr_rec.product_attribute_context(I));
4994: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
4995: p_Pricing_Attr_rec.product_attribute(I));
4996: QP_BULK_MSG.ADD(l_msg_rec);
4997: END IF;
4998:
4999: IF l_sourcing_status <> 'Y' THEN
5000:
5002: FND_MESSAGE.SET_TOKEN('CONTEXT',
5003: p_Pricing_Attr_rec.product_attribute_context(I));
5004: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
5005: p_Pricing_Attr_rec.product_attribute(I));
5006: QP_BULK_MSG.ADD(l_msg_rec, 'W'); --bug no: 9652756- set type of this message to Warning
5007:
5008: END IF;
5009:
5010: END IF; --If sourcing_method = 'ATTRIBUTE MAPPING'
5037: FND_MESSAGE.SET_TOKEN('CONTEXT',
5038: p_Pricing_Attr_rec.pricing_attribute_context(I));
5039: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
5040: p_Pricing_Attr_rec.pricing_attribute(I));
5041: QP_BULK_MSG.ADD(l_msg_rec);
5042: END IF;
5043:
5044: IF l_sourcing_status <> 'Y' THEN
5045:
5047: FND_MESSAGE.SET_TOKEN('CONTEXT',
5048: p_Pricing_Attr_rec.pricing_attribute_context(I));
5049: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
5050: p_Pricing_Attr_rec.pricing_attribute(I));
5051: QP_BULK_MSG.ADD(l_msg_rec, 'W'); --bug no: 9652756- set type of this message - Warning
5052:
5053: END IF;
5054:
5055: END IF; --If sourcing_method = 'ATTRIBUTE MAPPING'