DBA Data[Home] [Help]

APPS.INVPVDR7 dependencies on INVPUTLI

Line 83: l_inv_debug_level NUMBER := INVPUTLI.get_debug_level; --Bug: 4667452

79: l_process_flag_4 number := 4 ;
80: temp_proc_flag number;
81: reqst_id NUMBER ;
82:
83: l_inv_debug_level NUMBER := INVPUTLI.get_debug_level; --Bug: 4667452
84: l_charge_periodicity_class VARCHAR2(10);
85: l_SHIKYU_profile VARCHAR2(1);
86:
87: BEGIN

Line 90: INVPUTLI.info('INVPVDR7.validate_item_header7: begin');

86:
87: BEGIN
88:
89: IF l_inv_debug_level IN(101, 102) THEN
90: INVPUTLI.info('INVPVDR7.validate_item_header7: begin');
91: END IF;
92:
93: -- Retrieving fnd_profile values outside the loop for perf reasons.
94: l_charge_periodicity_class := FND_PROFILE.VALUE('ONT_UOM_CLASS_CHARGE_PERIODICITY');

Line 152: INVPUTLI.info('INVPVDR7: verifying lot divisible flag.... LOT_DIVISIBLE_FLAG');

148:
149:
150: --Item can be Lot In/Divisible only if Lot Control is Full Controlled
151: IF l_inv_debug_level IN(101, 102) THEN
152: INVPUTLI.info('INVPVDR7: verifying lot divisible flag.... LOT_DIVISIBLE_FLAG');
153: END IF;
154:
155: IF ( cr.LOT_DIVISIBLE_FLAG IS NOT NULL
156: AND cr.LOT_DIVISIBLE_FLAG NOT IN ( 'Y','N') )THEN

Line 199: INVPUTLI.info('INVPVDR7: verifying grade control flag GRADE_CONTROL_FLAG....');

195: end if;
196: */
197: --Item can be Grade Controlled only if Lot Control is Full Controlled
198: IF l_inv_debug_level IN(101, 102) THEN
199: INVPUTLI.info('INVPVDR7: verifying grade control flag GRADE_CONTROL_FLAG....');
200: END IF;
201: IF ( cr.GRADE_CONTROL_FLAG IS NOT NULL
202: AND cr.GRADE_CONTROL_FLAG NOT IN ( 'Y','N') )THEN
203: dumm_status := INVPUOPI.mtl_log_interface_err(

Line 248: INVPUTLI.info('INVPVDR7: verifying Default Grade....');

244:
245: --Item can have Default Grade specified only if Lot Control is Full Controlled
246: --and item is grade controlled.
247: IF l_inv_debug_level IN(101, 102) THEN
248: INVPUTLI.info('INVPVDR7: verifying Default Grade....');
249: END IF;
250: if (cr.DEFAULT_GRADE IS NOT NULL) then
251: if (cr.LOT_CONTROL_CODE <> 2 or NVL(cr.GRADE_CONTROL_FLAG,'N') <> 'Y') then
252:

Line 331: INVPUTLI.info('INVPVDR7: verifying child lot flag....');

327:
328: --validate CHILD_LOT_FLAG
329: --Item can be CHILD_LOT_FLAG enabled only if its lot controlled.
330: IF l_inv_debug_level IN(101, 102) THEN
331: INVPUTLI.info('INVPVDR7: verifying child lot flag....');
332: END IF;
333: IF ( cr.CHILD_LOT_FLAG IS NOT NULL
334: AND cr.CHILD_LOT_FLAG NOT IN ( 'Y','N') )THEN
335: dumm_status := INVPUOPI.mtl_log_interface_err(

Line 380: INVPUTLI.info('INVPVDR7: verifying parent child generation flag....');

376:
377: --validate PARENT_CHILD_GENERATION_FLAG
378: --Check the lookup and it can be not null only if item is child lot enabled and lot controlled.
379: IF l_inv_debug_level IN(101, 102) THEN
380: INVPUTLI.info('INVPVDR7: verifying parent child generation flag....');
381: END IF;
382: lot_num_generation_val := NULL;
383: select lot_number_generation
384: into lot_num_generation_val

Line 452: INVPUTLI.info('INVPVDR7: verifying child lot starting number....');

448: --if CHILD_LOT_STARTING_NUMBER is not null it should be a number and
449: --if item is child lot enabled and lot numer generation is at item level then
450: --CHILD_LOT_STARTING_NUMBER has to be not null
451: IF l_inv_debug_level IN(101, 102) THEN
452: INVPUTLI.info('INVPVDR7: verifying child lot starting number....');
453: END IF;
454:
455: if (cr.CHILD_LOT_STARTING_NUMBER IS NOT NULL) then
456: if (cr.CHILD_LOT_STARTING_NUMBER < 0) THEN

Line 549: INVPUTLI.info('INVPVDR7: verifying child lot validate flag....');

545:
546: --validate CHILD_LOT_VALIDATION_FLAG
547: --Item can have child lot validation flag ON only if it is child lot enabled
548: IF l_inv_debug_level IN(101, 102) THEN
549: INVPUTLI.info('INVPVDR7: verifying child lot validate flag....');
550: END IF;
551: IF ( cr.CHILD_LOT_VALIDATION_FLAG IS NOT NULL
552: AND cr.CHILD_LOT_VALIDATION_FLAG NOT IN ( 'Y','N') )THEN
553: dumm_status := INVPUOPI.mtl_log_interface_err(

Line 576: INVPUTLI.info('INVPVDR7: verifying copy lot attribute flag....');

572:
573: --validate COPY_LOT_ATTRIBUTE_FLAG
574: --Item can have child lot validation flag ON only if it is child lot enabled
575: IF l_inv_debug_level IN(101, 102) THEN
576: INVPUTLI.info('INVPVDR7: verifying copy lot attribute flag....');
577: END IF;
578:
579: IF ( cr.COPY_LOT_ATTRIBUTE_FLAG IS NOT NULL
580: AND cr.COPY_LOT_ATTRIBUTE_FLAG NOT IN ( 'Y','N') )THEN

Line 721: INVPUTLI.info('INVPVDR7: verifying process supply subinventory....');

717:
718: --validate PROCESS_SUPPLY_SUBINVENTORY
719: --validate foreign keys
720: IF l_inv_debug_level IN(101, 102) THEN
721: INVPUTLI.info('INVPVDR7: verifying process supply subinventory....');
722: END IF;
723:
724: if (cr.PROCESS_SUPPLY_SUBINVENTORY IS NOT NULL ) then
725:

Line 782: INVPUTLI.info('INVPVDR7: verifying process supply locator id....');

778: end if;
779:
780: --validate PROCESS_SUPPLY_LOCATOR_ID
781: IF l_inv_debug_level IN(101, 102) THEN
782: INVPUTLI.info('INVPVDR7: verifying process supply locator id....');
783: END IF;
784:
785: --{
786: if cr.PROCESS_SUPPLY_SUBINVENTORY IS NOT NULL then

Line 900: INVPUTLI.info('INVPVDR7: verifying process yield subinventory....');

896:
897: --validate PROCESS_YIELD_SUBINVENTORY
898: --validate foreign keys
899: IF l_inv_debug_level IN(101, 102) THEN
900: INVPUTLI.info('INVPVDR7: verifying process yield subinventory....');
901: END IF;
902:
903: if (cr.PROCESS_YIELD_SUBINVENTORY IS NOT NULL ) then
904:

Line 966: INVPUTLI.info('INVPVDR7: verifying process yield locator....');

962: end if;
963:
964: --validate PROCESS_YIELD_LOCATOR_ID
965: IF l_inv_debug_level IN(101, 102) THEN
966: INVPUTLI.info('INVPVDR7: verifying process yield locator....');
967: END IF;
968:
969: if cr.PROCESS_YIELD_SUBINVENTORY IS NOT NULL then
970:

Line 1075: INVPUTLI.info('INVPVDR7: verifying expiration action code....');

1071: end if;
1072:
1073: --validate EXPIRATION_ACTION_CODE
1074: IF l_inv_debug_level IN(101, 102) THEN
1075: INVPUTLI.info('INVPVDR7: verifying expiration action code....');
1076: END IF;
1077: if (cr.EXPIRATION_ACTION_CODE is NOT NULL) then
1078: begin
1079: select 'x' into l_temp

Line 1110: INVPUTLI.info('INVPVDR7: verifying retest interval....');

1106:
1107: --validate RETEST_INTERVAL
1108: --it should be greater than zero
1109: IF l_inv_debug_level IN(101, 102) THEN
1110: INVPUTLI.info('INVPVDR7: verifying retest interval....');
1111: END IF;
1112: if (cr.RETEST_INTERVAL is NOT NULL) then
1113: if (cr.RETEST_INTERVAL < 0 OR cr.RETEST_INTERVAL > 999999) then
1114:

Line 1138: INVPUTLI.info('INVPVDR7: verifying expiration action interval....');

1134:
1135: --validate EXPIRATION ACTION INTERVAL
1136: --it should be greater than or equal to -999999 and less than or equal to 999999
1137: IF l_inv_debug_level IN(101, 102) THEN
1138: INVPUTLI.info('INVPVDR7: verifying expiration action interval....');
1139: END IF;
1140: if (cr.EXPIRATION_ACTION_INTERVAL is NOT NULL) then
1141: if (cr.EXPIRATION_ACTION_INTERVAL < -999999 OR cr.EXPIRATION_ACTION_INTERVAL > 999999) then
1142:

Line 1167: INVPUTLI.info('INVPVDR7: verifying maturity days....');

1163:
1164: --validate MATURITY_DAYS
1165: --it should be greater than zero
1166: IF l_inv_debug_level IN(101, 102) THEN
1167: INVPUTLI.info('INVPVDR7: verifying maturity days....');
1168: END IF;
1169: if (cr.MATURITY_DAYS is NOT NULL) then
1170: if (cr.MATURITY_DAYS < 0 OR cr.MATURITY_DAYS > 999999) then
1171:

Line 1195: INVPUTLI.info('INVPVDR7: verifying hold days....');

1191:
1192: --validate HOLD_DAYS
1193: --it should be greater than zero
1194: IF l_inv_debug_level IN(101, 102) THEN
1195: INVPUTLI.info('INVPVDR7: verifying hold days....');
1196: END IF;
1197:
1198: if (cr.HOLD_DAYS is NOT NULL) then
1199: if (cr.HOLD_DAYS < 0 OR cr.HOLD_DAYS > 999999) then

Line 1222: INVPUTLI.info('INVPVDR7: verifying hazardous material flag....');

1218: end if;
1219: end if;
1220:
1221: IF l_inv_debug_level IN(101, 102) THEN
1222: INVPUTLI.info('INVPVDR7: verifying hazardous material flag....');
1223: END IF;
1224:
1225: IF ( cr.HAZARDOUS_MATERIAL_FLAG IS NOT NULL
1226: AND cr.HAZARDOUS_MATERIAL_FLAG NOT IN ( 'Y','N') )THEN

Line 1249: INVPUTLI.info('INVPVDR7: verifying charge periodicity code....');

1245: END IF;-- HAZARDOUS_MATERIAL_FLAG is not null AND <> 'N','Y'
1246:
1247: /* R12 Enhancement : Validations added for the new attributes */
1248: IF l_inv_debug_level IN(101, 102) THEN
1249: INVPUTLI.info('INVPVDR7: verifying charge periodicity code....');
1250: END IF;
1251:
1252: IF cr.CHARGE_PERIODICITY_CODE IS NOT NULL THEN
1253: BEGIN

Line 1282: INVPUTLI.info('INVPVDR7: verifying repair leadtime....');

1278: STATUS := 1;
1279: END;
1280: END IF;
1281: IF l_inv_debug_level IN(101, 102) THEN
1282: INVPUTLI.info('INVPVDR7: verifying repair leadtime....');
1283: END IF;
1284: IF cr.REPAIR_LEADTIME IS NOT NULL
1285: AND cr.REPAIR_LEADTIME < 0 THEN
1286: dumm_status := INVPUOPI.mtl_log_interface_err(

Line 1305: INVPUTLI.info('INVPVDR7: verifying repair yield....');

1301: END IF;
1302: STATUS := 1;
1303: END IF;
1304: IF l_inv_debug_level IN(101, 102) THEN
1305: INVPUTLI.info('INVPVDR7: verifying repair yield....');
1306: END IF;
1307: IF cr.REPAIR_YIELD IS NOT NULL
1308: --Bug 4473603 AND cr.REPAIR_YIELD > 100 AND cr.REPAIR_YIELD < 0 THEN
1309: AND (cr.REPAIR_YIELD > 100 OR cr.REPAIR_YIELD < 0 )THEN

Line 1337: INVPUTLI.info('INVPVDR7: verifying preposition point....');

1333: END IF;
1334: STATUS := 1;
1335: END IF;
1336: IF l_inv_debug_level IN(101, 102) THEN
1337: INVPUTLI.info('INVPVDR7: verifying preposition point....');
1338: END IF;
1339:
1340: IF cr.PREPOSITION_POINT NOT IN ('Y','N') THEN
1341: dumm_status := INVPUOPI.mtl_log_interface_err(

Line 1360: INVPUTLI.info('INVPVDR7: verifying repair program....');

1356: END IF;
1357: STATUS := 1;
1358: END IF;
1359: IF l_inv_debug_level IN(101, 102) THEN
1360: INVPUTLI.info('INVPVDR7: verifying repair program....');
1361: END IF;
1362:
1363: IF cr.REPAIR_PROGRAM NOT IN (1,2,3) THEN
1364: dumm_status := INVPUOPI.mtl_log_interface_err(

Line 1384: INVPUTLI.info('INVPVDR7: verifying subcontracting component....');

1380: STATUS := 1;
1381: END IF;
1382:
1383: IF l_inv_debug_level IN(101, 102) THEN
1384: INVPUTLI.info('INVPVDR7: verifying subcontracting component....');
1385: END IF;
1386:
1387: IF cr.SUBCONTRACTING_COMPONENT IS NOT NULL AND
1388: cr.SUBCONTRACTING_COMPONENT NOT IN (1,2) THEN

Line 1408: INVPUTLI.info('INVPVDR7: verifying outsourced assembly....');

1404: END IF;
1405: STATUS := 1;
1406: END IF;
1407: IF l_inv_debug_level IN(101, 102) THEN
1408: INVPUTLI.info('INVPVDR7: verifying outsourced assembly....');
1409: END IF;
1410:
1411: IF cr.OUTSOURCED_ASSEMBLY NOT IN (1,2) THEN
1412: dumm_status := INVPUOPI.mtl_log_interface_err(

Line 1431: INVPUTLI.info('INVPVDR7: verifying outsourced assembly,SHIKYU enabled....');

1427: END IF;
1428: STATUS := 1;
1429: END IF;
1430: IF l_inv_debug_level IN(101, 102) THEN
1431: INVPUTLI.info('INVPVDR7: verifying outsourced assembly,SHIKYU enabled....');
1432: END IF;
1433: IF ((NVL(l_SHIKYU_profile,'N') = 'N') AND
1434: cr.OUTSOURCED_ASSEMBLY = 1) THEN
1435: dumm_status := INVPUOPI.mtl_log_interface_err(

Line 1454: INVPUTLI.info('INVPVDR7: verifying outsourced assembly,Release time fence....');

1450: END IF;
1451: STATUS := 1;
1452: END IF;
1453: IF l_inv_debug_level IN(101, 102) THEN
1454: INVPUTLI.info('INVPVDR7: verifying outsourced assembly,Release time fence....');
1455: END IF;
1456:
1457: IF (NVL(cr.RELEASE_TIME_FENCE_CODE,6) <> 7 AND l_trading_partner_org = 'Y'
1458: AND cr.OUTSOURCED_ASSEMBLY = 1) THEN

Line 1479: INVPUTLI.info('INVPVDR7: verifying outsourced assembly, organizations......');

1475: STATUS := 1;
1476: END IF;
1477:
1478: IF l_inv_debug_level IN(101, 102) THEN
1479: INVPUTLI.info('INVPVDR7: verifying outsourced assembly, organizations......');
1480: END IF;
1481:
1482: --
1483: -- bug 13822871.

Line 1509: INVPUTLI.info('INVPVDR7: verifying outsourced assembly.cost method....');

1505: STATUS := 1;
1506: END IF;
1507:
1508: IF l_inv_debug_level IN(101, 102) THEN
1509: INVPUTLI.info('INVPVDR7: verifying outsourced assembly.cost method....');
1510: END IF;
1511: --
1512: -- Fix for bug#6447581
1513: -- Outsourced Assembly and Costing Method validation is commented.

Line 1536: INVPUTLI.info('INVPVDR7: verifying outsourced assembly,bom item type....');

1532: -- STATUS := 1;
1533: -- END IF;
1534: --
1535: IF l_inv_debug_level IN(101, 102) THEN
1536: INVPUTLI.info('INVPVDR7: verifying outsourced assembly,bom item type....');
1537: END IF;
1538: IF( NOT(cr.BOM_ITEM_TYPE = 4 AND cr.EFFECTIVITY_CONTROL = 1)AND
1539: (cr.OUTSOURCED_ASSEMBLY = 1)) THEN
1540: dumm_status := INVPUOPI.mtl_log_interface_err(

Line 1605: INVPUTLI.info('INVPVDR7: verifying outsourced assembly,outside operation....');

1601: STATUS := 1;
1602: END IF;
1603:
1604: IF l_inv_debug_level IN(101, 102) THEN
1605: INVPUTLI.info('INVPVDR7: verifying outsourced assembly,outside operation....');
1606: END IF;
1607:
1608: IF(cr.OUTSIDE_OPERATION_FLAG = 'Y' AND cr.OUTSOURCED_ASSEMBLY = 1)
1609: THEN

Line 1651: INVPUTLI.info('INVPVDR7: verifying subcontracting component,SHIKYU....');

1647: END IF;
1648: STATUS := 1;
1649: END IF;
1650: IF l_inv_debug_level IN(101, 102) THEN
1651: INVPUTLI.info('INVPVDR7: verifying subcontracting component,SHIKYU....');
1652: END IF;
1653:
1654: IF((NVL(l_SHIKYU_profile,'N') = 'N') AND
1655: cr.SUBCONTRACTING_COMPONENT IS NOT NULL)

Line 1677: INVPUTLI.info('INVPVDR7: verifying subcontracting component organizations....');

1673: STATUS := 1;
1674: END IF;
1675:
1676: IF l_inv_debug_level IN(101, 102) THEN
1677: INVPUTLI.info('INVPVDR7: verifying subcontracting component organizations....');
1678: END IF;
1679:
1680: --
1681: -- bug 13822871.