[Home] [Help]
225: RAISE fnd_api.g_exc_unexpected_error;
226: END;
227:
228: IF (item_count = 0) THEN
229: fnd_message.set_name('INV', 'INV_INVALID_ORGANIZATION');
230: fnd_msg_pub.ADD;
231: --Bug 3153585:Raising exception to populate error message correctly.
232: RAISE fnd_api.g_exc_error;
233: END IF;
243: AND organization_id = p_organization_id;
244:
245: IF (l_serial_control_code = 1
246: AND is_serial_tagged(p_inventory_item_id,p_organization_id,NULL) = 1) THEN
247: fnd_message.set_name('INV', 'INV_ITEM_NOT_SERIAL_CONTROLLED');
248: fnd_msg_pub.ADD;
249: --Bug 3153585:Raising exception to populate error message correctly.
250: RAISE fnd_api.g_exc_error;
251: END IF;
259: WHEN fnd_api.g_exc_error THEN
260: RAISE fnd_api.g_exc_error;
261: --Bug 3153585:Raising exception to populate error message correctly.
262: WHEN NO_DATA_FOUND THEN
263: fnd_message.set_name('INV', 'INV_INVALID_ITEM');
264: fnd_msg_pub.ADD;
265: --Bug 3153585:Raising exception to populate error message correctly.
266: RAISE fnd_api.g_exc_error;
267: WHEN OTHERS THEN
509: -- invtrace('serial_number_control_code is ' || l_serial_control_code);
510: IF (l_serial_control_code = 1
511: AND is_serial_tagged(p_inventory_item_id,p_organization_id,NULL) = 1) THEN
512: -- invtrace('serial_control_code is 1.there is no serial control.');
513: fnd_message.set_name('INV', 'INV_ITEM_NOT_SERIAL_CONTROLLED');
514: fnd_msg_pub.ADD;
515: --Bug 3153585:Populating the message from the message stack
516: RAISE fnd_api.g_exc_error;
517: END IF;
516: RAISE fnd_api.g_exc_error;
517: END IF;
518: EXCEPTION
519: WHEN NO_DATA_FOUND THEN
520: fnd_message.set_name('INV', 'INV_INVALID_ITEM');
521: fnd_msg_pub.ADD;
522: RAISE fnd_api.g_exc_error;
523: END;
524:
1371: RAISE fnd_api.g_exc_unexpected_error;
1372: END;
1373:
1374: IF (item_count = 0) THEN
1375: fnd_message.set_name('INV', 'INVALID ORGANIZATION');
1376: fnd_msg_pub.ADD;
1377: RAISE fnd_api.g_exc_error;
1378: END IF;
1379:
1385: WHERE inventory_item_id = p_inventory_item_id
1386: AND organization_id = p_organization_id;
1387:
1388: IF (l_serial_control_code = 1) THEN
1389: fnd_message.set_name('INV', 'INV_ITEM_NOT_SERIAL_CONTROLLED');
1390: fnd_msg_pub.ADD;
1391: RAISE fnd_api.g_exc_error;
1392: END IF;
1393:
1393:
1394: l_current_status := nvl(p_current_status,1);
1395: --bug10074753,we should populate the validate serial current status.
1396: IF(l_current_status NOT IN(1,3,4,5)) THEN
1397: fnd_message.set_name('INV', 'INV_SER_INVALID_STATUS');
1398: fnd_message.set_token('TOKEN',' ');
1399: fnd_msg_pub.ADD;
1400: RAISE fnd_api.g_exc_error;
1401: END IF;
1394: l_current_status := nvl(p_current_status,1);
1395: --bug10074753,we should populate the validate serial current status.
1396: IF(l_current_status NOT IN(1,3,4,5)) THEN
1397: fnd_message.set_name('INV', 'INV_SER_INVALID_STATUS');
1398: fnd_message.set_token('TOKEN',' ');
1399: fnd_msg_pub.ADD;
1400: RAISE fnd_api.g_exc_error;
1401: END IF;
1402:
1403: EXCEPTION
1404: WHEN fnd_api.g_exc_error THEN
1405: RAISE fnd_api.g_exc_error;
1406: WHEN NO_DATA_FOUND THEN
1407: fnd_message.set_name('INV', 'INV_INVALID_ITEM');
1408: fnd_msg_pub.ADD;
1409: RAISE fnd_api.g_exc_error;
1410: WHEN OTHERS THEN
1411: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1421: WHERE status_id = p_status_id;
1422: --Check if the material status is serial control enabled.
1423: --If not then raise an error.
1424: IF (l_serial_status_control <> 1) THEN
1425: fnd_message.set_name('INV','INV_STATUS_NOT_APP'); --error messag
1426: fnd_msg_pub.ADD;
1427: RAISE fnd_api.g_exc_error;
1428: END IF;
1429:
1430: EXCEPTION
1431: WHEN fnd_api.g_exc_error THEN
1432: RAISE fnd_api.g_exc_error;
1433: WHEN NO_DATA_FOUND THEN
1434: fnd_message.set_name('INV', 'INV_STATUS_NOT_APP');
1435: fnd_msg_pub.ADD;
1436: RAISE fnd_api.g_exc_error;
1437: WHEN OTHERS THEN
1438: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1452: AND organization_id = p_organization_id
1453: AND lot_number = p_lot_number;
1454:
1455: IF (l_lot_exists = 0) THEN
1456: fnd_message.set_name('INV','INV_INVALID_LOT'); --error messag
1457: fnd_msg_pub.ADD;
1458: RAISE fnd_api.g_exc_error;
1459: END IF;
1460: END IF;
1462: WHEN fnd_api.g_exc_error THEN
1463: RAISE fnd_api.g_exc_error;
1464: WHEN NO_DATA_FOUND THEN
1465: l_lot_exists := 0;
1466: fnd_message.set_name('INV','INV_INVALID_LOT'); --error messag
1467: fnd_msg_pub.ADD;
1468: RAISE fnd_api.g_exc_error;
1469: WHEN OTHERS THEN
1470: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1474: END;
1475: --bug10074682,validate the from serial number and to serial number available.
1476: --Block for from serial number and to serial number validation,it should be varchar.
1477: IF nvl(p_fm_serial_number,'!@') = '!@' OR nvl(p_to_serial_number,'!@') = '!@' THEN
1478: fnd_message.set_name('INV','INVALID_SERIAL_NUMBER'); --error messag
1479: fnd_msg_pub.ADD;
1480: RAISE fnd_api.g_exc_error;
1481: END IF;
1482: -- get the number part of the from serial
1486: -- total number of serials inserted into mtl_serial_numbers
1487: l_range_numbers := l_to_ser_number - l_from_ser_number + 1;
1488: --bug10074682,from serial number and to serial number shoule be in sequence.
1489: IF l_range_numbers < 1 THEN --the range numbers with no sense,need enter the validate range nubmers
1490: fnd_message.set_name('INV','INVALID_SERIAL_NUMBER'); --error messag
1491: fnd_msg_pub.ADD;
1492: RAISE fnd_api.g_exc_error;
1493: END IF;
1494: FOR i IN 1 .. l_range_numbers LOOP
1745: -- Need to do uniqueness check here.
1746: -- If any serial is in use, then discard the entire range insertion.
1747: IF is_serial_unique(p_org_id => p_organization_id, p_item_id => p_inventory_item_id, p_serial => l_cur_serial_number
1748: , x_proc_msg => l_msg_data) = 1 THEN
1749: fnd_message.set_name('INV', 'INV_SERIAL_USED');
1750: fnd_msg_pub.ADD;
1751: RAISE fnd_api.g_exc_error;
1752: ELSE
1753: -- invtrace('INV_SERIAL_NUMBER_PUB', 'insert_range_serial - 60');
1795: , p_planning_tp_type => p_planning_tp_type
1796: );
1797:
1798: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1799: fnd_message.set_name('INV', 'INV_SERIAL');
1800: fnd_msg_pub.ADD;
1801: RAISE fnd_api.g_exc_unexpected_error;
1802: END IF;
1803: END IF;
3947: IF (g_serial_attributes_tbl(k).COLUMN_VALUE IS NULL) THEN
3948: IF (l_debug = 1) THEN
3949: invtrace('VALIDATE_UPDATE_SERIAL_ATT:'||g_serial_attributes_tbl(k).COLUMN_NAME||':'||g_serial_attributes_tbl(k).COLUMN_VALUE);
3950: END IF;
3951: fnd_message.set_name('INV', 'INV_LOT_SEL_DEFAULT_REQUIRED');
3952: fnd_message.set_token('ATTRNAME',l_attributes_name);
3953: fnd_message.set_token('CONTEXTCODE', v_contexts.context_code(i));
3954: fnd_message.set_token('SEGMENT', v_segments.application_column_name(j));
3955: fnd_msg_pub.ADD;
3948: IF (l_debug = 1) THEN
3949: invtrace('VALIDATE_UPDATE_SERIAL_ATT:'||g_serial_attributes_tbl(k).COLUMN_NAME||':'||g_serial_attributes_tbl(k).COLUMN_VALUE);
3950: END IF;
3951: fnd_message.set_name('INV', 'INV_LOT_SEL_DEFAULT_REQUIRED');
3952: fnd_message.set_token('ATTRNAME',l_attributes_name);
3953: fnd_message.set_token('CONTEXTCODE', v_contexts.context_code(i));
3954: fnd_message.set_token('SEGMENT', v_segments.application_column_name(j));
3955: fnd_msg_pub.ADD;
3956: END IF;
3949: invtrace('VALIDATE_UPDATE_SERIAL_ATT:'||g_serial_attributes_tbl(k).COLUMN_NAME||':'||g_serial_attributes_tbl(k).COLUMN_VALUE);
3950: END IF;
3951: fnd_message.set_name('INV', 'INV_LOT_SEL_DEFAULT_REQUIRED');
3952: fnd_message.set_token('ATTRNAME',l_attributes_name);
3953: fnd_message.set_token('CONTEXTCODE', v_contexts.context_code(i));
3954: fnd_message.set_token('SEGMENT', v_segments.application_column_name(j));
3955: fnd_msg_pub.ADD;
3956: END IF;
3957: END IF;
3950: END IF;
3951: fnd_message.set_name('INV', 'INV_LOT_SEL_DEFAULT_REQUIRED');
3952: fnd_message.set_token('ATTRNAME',l_attributes_name);
3953: fnd_message.set_token('CONTEXTCODE', v_contexts.context_code(i));
3954: fnd_message.set_token('SEGMENT', v_segments.application_column_name(j));
3955: fnd_msg_pub.ADD;
3956: END IF;
3957: END IF;
3958: END IF;
3980: END IF;
3981: l_validation_status := 'N';
3982: x_return_status := FND_API.G_RET_STS_ERROR ;
3983: x_msg_data := fnd_flex_descval.error_message;
3984: fnd_message.set_name('INV', 'GENERIC');
3985: fnd_message.set_token('MSGBODY', x_msg_data );
3986: fnd_msg_pub.ADD;
3987: x_msg_count := nvl(x_msg_count,0) + 1 ;
3988: RAISE FND_API.G_EXC_ERROR;
3981: l_validation_status := 'N';
3982: x_return_status := FND_API.G_RET_STS_ERROR ;
3983: x_msg_data := fnd_flex_descval.error_message;
3984: fnd_message.set_name('INV', 'GENERIC');
3985: fnd_message.set_token('MSGBODY', x_msg_data );
3986: fnd_msg_pub.ADD;
3987: x_msg_count := nvl(x_msg_count,0) + 1 ;
3988: RAISE FND_API.G_EXC_ERROR;
3989: END IF;
4167: x_mask := L_sn_mask(L_group);
4168: END LOOP;
4169:
4170: IF x_to_status = 0 then
4171: FND_MESSAGE.SET_NAME('INV', 'INV_INLTIS_SNGETMASK');
4172: FND_MSG_PUB.Add;
4173: x_errorcode := 123;
4174: return(FALSE);
4175: ELSE
4625: end if;
4626: elsif( p_curr_status = 3 ) THEN
4627: l_newStatus := 4;
4628: else
4629: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4630: --FND_MSG_PUB.ADD;
4631: return -1;
4632: end if;
4633: elsif( p_ser_num_ctrl_code = 6 ) THEN
4637: end if;
4638: elsif( p_curr_status in (1, 3, 6) ) THEN
4639: l_newStatus := 4;
4640: else
4641: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4642: --FND_MSG_PUB.ADD;
4643: return -2;
4644: end if;
4645: end if;
4650: else
4651: if( (p_trx_src_type_id in (12, 7)) AND (p_curr_status in (5, 7))) THEN
4652: l_newStatus := 4;
4653: else
4654: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4655: --FND_MSG_PUB.ADD;
4656: return -3;
4657: end if;
4658: end if;
4657: end if;
4658: end if;
4659: elsif( p_ser_num_ctrl_code = 6 ) THEN
4660: if( p_last_trx_src_type_id = 12 AND p_curr_status = 1 AND l_isRestrictRcptSerial = 1 ) THEN
4661: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4662: --FND_MSG_PUB.ADD;
4663: return -1;
4664: elsif( (p_trx_src_type_id = 7 OR p_trx_action_id = 12) AND (p_curr_status in (5, 7 ))) THEN
4665: l_newStatus := 1;
4666: else
4667: if( p_curr_status in (1, 4, 5, 6, 7 ) ) THEN
4668: l_newStatus := 1;
4669: else
4670: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4671: --FND_MSG_PUB.ADD;
4672: return -1;
4673: end if;
4674: end if;
4678: if( p_ser_num_ctrl_code in (2, 3, 5)) THEN
4679: if( p_curr_status = 3 ) THEN
4680: l_newStatus := 3;
4681: else
4682: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4683: --FND_MSG_PUB.ADD;
4684: return -1;
4685: end if;
4686: end if;
4693: else
4694: l_newStatus := 5;
4695: end if;
4696: else
4697: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4698: --FND_MSG_PUB.ADD;
4699: return -1;
4700: end if;
4701: end if;
4703: if( p_ser_num_ctrl_code in (2, 3, 5) ) THEN
4704: if( p_curr_status in (1, 4, 5, 6, 7) ) THEN
4705: l_newStatus := 3;
4706: else
4707: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4708: --FND_MSG_PUB.ADD;
4709: return -1;
4710: end if;
4711: elsif( p_ser_num_ctrl_code = 6 ) THEN
4711: elsif( p_ser_num_ctrl_code = 6 ) THEN
4712: if( p_curr_status in (5,7) AND ( p_trx_src_type_id = 7 OR p_trx_action_id = 12) ) THEN
4713: l_newStatus := 1;
4714: else
4715: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4716: --FND_MSG_PUB.ADD;
4717: return -1;
4718: end if;
4719: end if;
4719: end if;
4720: end if;
4721: elsif( l_groupId = 4 ) THEN
4722: if( p_curr_status <> 3 ) THEN
4723: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4724: --FND_MSG_PUB.ADD;
4725: return -1;
4726: end if;
4727: elsif( l_groupId = 5 ) THEN
4729: if( p_ser_num_ctrl_code in (2, 3, 5)) THEN
4730: if( p_curr_status = 3 ) then
4731: l_newStatus := 4;
4732: else
4733: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4734: --FND_MSG_PUB.ADD;
4735: return -1;
4736: end if;
4737: end if;
4738: else
4739: if( p_ser_num_ctrl_code in (2, 3, 5) ) THEN
4740: if( l_isRestrictRcptSerial = 1 AND p_trx_action_id = 27 AND
4741: p_curr_status = 4 AND p_last_trx_src_Type_id = 2 ) THEN
4742: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4743: --FND_MSG_PUB.ADD;
4744: return -1;
4745: end if;
4746: if( p_curr_status in (1, 4, 6)) THEN
4753: if( (p_trx_src_type_id in (1, 5) AND p_curr_status = 5 )OR
4754: (p_trx_src_type_id = 1 AND p_curr_status = 7 )) THEN
4755: l_newStatus := 3;
4756: else
4757: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4758: --FND_MSG_PUB.ADD;
4759: return -1;
4760: end if;
4761: end if;
4874:
4875: -- Bug 7427382, supporting statuses 6, 7 and 8 also.
4876: IF ( p_db_current_status = -1 or p_db_current_status = 2 or
4877: p_db_current_status < 1 or p_db_current_status > 8 or p_db_current_status is NULL ) THEN
4878: --fnd_message.set_name( 'INV', 'INV_INVALID_SERIAL' );
4879: return -913;
4880: END IF;
4881:
4882: -- validate status
4903: end if;
4904: elsif( p_db_current_status in (1, 3, 6) ) THEN
4905: l_newStatus := 4;
4906: else
4907: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4908: --FND_MSG_PUB.ADD;
4909: l_retval := -902;
4910: end if;
4911: end if;
4916: else
4917: if( (p_trx_src_type_id in (12, 7)) AND (p_db_current_status in (5, 7))) THEN
4918: l_newStatus := 4;
4919: else
4920: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4921: --FND_MSG_PUB.ADD;
4922: l_retval := -903;
4923: end if;
4924: end if;
4923: end if;
4924: end if;
4925: elsif( p_ser_num_ctrl_code = 6 ) THEN
4926: if( p_db_lst_txn_src_type_id = 12 AND p_db_current_status = 1 AND l_isRestrictRcptSerial = 1 ) THEN
4927: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4928: --FND_MSG_PUB.ADD;
4929: l_retval := -904;
4930: elsif( (p_trx_src_type_id = 7 OR p_trx_action_id = 12) AND (p_db_current_status in (5, 7 ))) THEN
4931: l_newStatus := 1;
4932: else
4933: if( p_db_current_status in (1, 4, 5, 6, 7 ) ) THEN
4934: l_newStatus := 1;
4935: else
4936: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4937: --FND_MSG_PUB.ADD;
4938: l_retval := -905;
4939: end if;
4940: end if;
4944: if( p_ser_num_ctrl_code in (2, 3, 5)) THEN
4945: if( p_db_current_status = 3 ) THEN
4946: l_newStatus := 3;
4947: else
4948: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4949: --FND_MSG_PUB.ADD;
4950: l_retval := -906;
4951: end if;
4952: end if;
4959: else
4960: l_newStatus := 5;
4961: end if;
4962: else
4963: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4964: --FND_MSG_PUB.ADD;
4965: l_retval := -907;
4966: end if;
4967: end if;
4969: if( p_ser_num_ctrl_code in (2, 3, 5) ) THEN
4970: if( p_db_current_status in (1, 4, 5, 6, 7) ) THEN
4971: l_newStatus := 3;
4972: else
4973: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4974: --FND_MSG_PUB.ADD;
4975: l_retval := -908;
4976: end if;
4977: elsif( p_ser_num_ctrl_code = 6 ) THEN
4977: elsif( p_ser_num_ctrl_code = 6 ) THEN
4978: if( p_db_current_status in (5,7) AND ( p_trx_src_type_id = 7 OR p_trx_action_id = 12) ) THEN
4979: l_newStatus := 1;
4980: else
4981: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4982: --FND_MSG_PUB.ADD;
4983: l_retval := -908;
4984: end if;
4985: end if;
4985: end if;
4986: end if;
4987: elsif( l_groupId = 4 ) THEN
4988: if( p_db_current_status <> 3 ) THEN
4989: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
4990: --FND_MSG_PUB.ADD;
4991: l_retval := -909;
4992: end if;
4993: elsif( l_groupId = 5 ) THEN
4996: if( p_ser_num_ctrl_code in (2, 3, 5)) THEN
4997: if( p_db_current_status = 3 ) then
4998: l_newStatus := 4;
4999: else
5000: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
5001: --FND_MSG_PUB.ADD;
5002: l_retval := -910;
5003: end if;
5004: end if;
5006: --dbms_output.put_line('inside receipt part');
5007: if( p_ser_num_ctrl_code in (2, 3, 5) ) THEN
5008: if( l_isRestrictRcptSerial = 1 AND p_trx_action_id = 27 AND
5009: p_db_current_status = 4 AND p_db_lst_txn_src_Type_id = 2 ) THEN
5010: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
5011: --FND_MSG_PUB.ADD;
5012: l_retval := -911;
5013: end if;
5014: if( p_db_current_status in (1, 4, 6)) THEN
5021: if( (p_trx_src_type_id in (1, 5) AND p_db_current_status = 5 )OR
5022: (p_trx_src_type_id = 1 AND p_db_current_status = 7 )) THEN
5023: l_newStatus := 3;
5024: else
5025: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SERIAL');
5026: --FND_MSG_PUB.ADD;
5027: l_retval := -912;
5028: end if;
5029: end if;
5035: p_db_lst_txn_src_type_id, p_xfr_ser_num_ctrl_code, l_isRestrictRcptSerial);*/
5036:
5037: IF ( ( p_db_current_status = 3 OR p_db_current_status = 1 )
5038: AND p_db_current_organization_id <> p_curr_org_id ) THEN
5039: --fnd_message.set_name( 'INV', 'INV_SER_ORG_INVALID' );
5040: l_retval := -914;
5041: END IF;
5042:
5043:
5043:
5044: IF (p_db_current_status = 3) THEN
5045: IF (p_db_revision IS NOT NULL AND p_db_revision <> p_revision ) THEN
5046:
5047: --fnd_message.set_name('INV', 'INV_SER_REV_INVALID');
5048: --fnd_message.set_Token('TOKEN1', p_db_Revision);
5049: --fnd_message.set_Token('TOKEN2', p_revision);
5050: l_retval := -915;
5051: END IF;
5044: IF (p_db_current_status = 3) THEN
5045: IF (p_db_revision IS NOT NULL AND p_db_revision <> p_revision ) THEN
5046:
5047: --fnd_message.set_name('INV', 'INV_SER_REV_INVALID');
5048: --fnd_message.set_Token('TOKEN1', p_db_Revision);
5049: --fnd_message.set_Token('TOKEN2', p_revision);
5050: l_retval := -915;
5051: END IF;
5052:
5045: IF (p_db_revision IS NOT NULL AND p_db_revision <> p_revision ) THEN
5046:
5047: --fnd_message.set_name('INV', 'INV_SER_REV_INVALID');
5048: --fnd_message.set_Token('TOKEN1', p_db_Revision);
5049: --fnd_message.set_Token('TOKEN2', p_revision);
5050: l_retval := -915;
5051: END IF;
5052:
5053: IF ( p_db_lot_number IS NOT NULL AND p_db_Lot_Number <> p_lot ) THEN
5050: l_retval := -915;
5051: END IF;
5052:
5053: IF ( p_db_lot_number IS NOT NULL AND p_db_Lot_Number <> p_lot ) THEN
5054: --fnd_message.set_name('INV', 'INV_SER_LOT_INVALID');
5055: --fnd_message.set_Token('TOKEN1', p_curr_ser_num);
5056: --fnd_message.set_Token('TOKEN2', p_db_Lot_Number);
5057: l_retval := -916;
5058: END IF;
5051: END IF;
5052:
5053: IF ( p_db_lot_number IS NOT NULL AND p_db_Lot_Number <> p_lot ) THEN
5054: --fnd_message.set_name('INV', 'INV_SER_LOT_INVALID');
5055: --fnd_message.set_Token('TOKEN1', p_curr_ser_num);
5056: --fnd_message.set_Token('TOKEN2', p_db_Lot_Number);
5057: l_retval := -916;
5058: END IF;
5059: END IF;
5052:
5053: IF ( p_db_lot_number IS NOT NULL AND p_db_Lot_Number <> p_lot ) THEN
5054: --fnd_message.set_name('INV', 'INV_SER_LOT_INVALID');
5055: --fnd_message.set_Token('TOKEN1', p_curr_ser_num);
5056: --fnd_message.set_Token('TOKEN2', p_db_Lot_Number);
5057: l_retval := -916;
5058: END IF;
5059: END IF;
5060:
5063: IF (l_isIssue AND p_db_current_status = 3 ) THEN
5064:
5065: IF (p_db_current_subinventory_code IS NOT NULL AND
5066: p_db_current_subinventory_code <> p_curr_subinv_code) THEN
5067: --fnd_message.set_name('INV', 'INV_SER_SUB_INVALID');
5068: --fnd_message.set_Token('TOKEN1', p_curr_ser_num);
5069: --fnd_message.set_Token('TOKEN2', p_db_current_subinventory_code);
5070: l_retval := -917;
5071: END IF;
5064:
5065: IF (p_db_current_subinventory_code IS NOT NULL AND
5066: p_db_current_subinventory_code <> p_curr_subinv_code) THEN
5067: --fnd_message.set_name('INV', 'INV_SER_SUB_INVALID');
5068: --fnd_message.set_Token('TOKEN1', p_curr_ser_num);
5069: --fnd_message.set_Token('TOKEN2', p_db_current_subinventory_code);
5070: l_retval := -917;
5071: END IF;
5072:
5065: IF (p_db_current_subinventory_code IS NOT NULL AND
5066: p_db_current_subinventory_code <> p_curr_subinv_code) THEN
5067: --fnd_message.set_name('INV', 'INV_SER_SUB_INVALID');
5068: --fnd_message.set_Token('TOKEN1', p_curr_ser_num);
5069: --fnd_message.set_Token('TOKEN2', p_db_current_subinventory_code);
5070: l_retval := -917;
5071: END IF;
5072:
5073: IF (p_db_current_locator_id <> 0 AND
5071: END IF;
5072:
5073: IF (p_db_current_locator_id <> 0 AND
5074: p_db_current_locator_id <> p_locator_id ) THEN
5075: --fnd_message.set_name('INV', 'INV_SER_LOC_INVALID');
5076: --fnd_message.set_Token('TOKEN1', p_curr_ser_num);
5077: l_retval := -918;
5078: END IF;
5079:
5072:
5073: IF (p_db_current_locator_id <> 0 AND
5074: p_db_current_locator_id <> p_locator_id ) THEN
5075: --fnd_message.set_name('INV', 'INV_SER_LOC_INVALID');
5076: --fnd_message.set_Token('TOKEN1', p_curr_ser_num);
5077: l_retval := -918;
5078: END IF;
5079:
5080: END IF;
5084: IF ((p_trx_action_id = 31 AND p_db_current_status <> 1)
5085: OR (p_trx_action_id = 32)
5086: OR (p_trx_action_id = 27)) THEN -- {
5087: IF (p_db_wip_ent_id_ind = -1) THEN -- {
5088: --fnd_message.set_name('INV', 'INV_SER_STATUS_NA');
5089: --fnd_message.set_Token('TOKEN1', p_curr_ser_num);
5090: l_retval := -919; -- return(FALSE);
5091: END IF; -- }
5092: END IF; -- }
5085: OR (p_trx_action_id = 32)
5086: OR (p_trx_action_id = 27)) THEN -- {
5087: IF (p_db_wip_ent_id_ind = -1) THEN -- {
5088: --fnd_message.set_name('INV', 'INV_SER_STATUS_NA');
5089: --fnd_message.set_Token('TOKEN1', p_curr_ser_num);
5090: l_retval := -919; -- return(FALSE);
5091: END IF; -- }
5092: END IF; -- }
5093: END IF; -- }
5100: AND (p_trx_qty > 0 ) AND ( p_trx_action_id =27 )
5101: AND (p_trx_src_type_id <> 5) AND (p_db_wip_ent_id_ind <> -1)
5102: AND ( p_acct_prof_value = 'Y' /*1*/) AND (p_db_lst_txn_src_type_id = 5 )) THEN -- {
5103:
5104: --fnd_message.set_name('INV', 'INV_SER_STATUS_NA');
5105: --fnd_message.set_Token('TOKEN1', p_curr_ser_num);
5106: l_retval := -920; -- return(FALSE);
5107:
5108: END IF; -- }
5101: AND (p_trx_src_type_id <> 5) AND (p_db_wip_ent_id_ind <> -1)
5102: AND ( p_acct_prof_value = 'Y' /*1*/) AND (p_db_lst_txn_src_type_id = 5 )) THEN -- {
5103:
5104: --fnd_message.set_name('INV', 'INV_SER_STATUS_NA');
5105: --fnd_message.set_Token('TOKEN1', p_curr_ser_num);
5106: l_retval := -920; -- return(FALSE);
5107:
5108: END IF; -- }
5109:
5112: AND (p_trx_src_type_id <> 5) AND (p_db_wip_ent_id_ind <> -1)
5113: AND (p_acct_prof_value = 'Y' /*1*/) AND (p_db_lst_txn_src_type_id = 6 )
5114: AND (p_trx_src_type_id <> 6 )) THEN -- {
5115:
5116: --fnd_message.set_name('INV', 'INV_SER_STATUS_NA');
5117: --fnd_message.set_Token('TOKEN1', p_curr_ser_num);
5118: l_retval := -920; -- return(FALSE);
5119:
5120: END IF; -- }
5113: AND (p_acct_prof_value = 'Y' /*1*/) AND (p_db_lst_txn_src_type_id = 6 )
5114: AND (p_trx_src_type_id <> 6 )) THEN -- {
5115:
5116: --fnd_message.set_name('INV', 'INV_SER_STATUS_NA');
5117: --fnd_message.set_Token('TOKEN1', p_curr_ser_num);
5118: l_retval := -920; -- return(FALSE);
5119:
5120: END IF; -- }
5121:
5124: AND (p_trx_src_type_id = 5) AND (p_db_wip_ent_id_ind <> -1)
5125: AND (p_acct_prof_value = 'Y' /*1*/)
5126: AND ((p_db_lst_txn_src_type_id = 5) OR (p_db_lst_txn_src_type_id = 6 ))) THEN -- {
5127:
5128: --fnd_message.set_name('INV', 'INV_SER_STATUS_NA');
5129: --fnd_message.set_Token('TOKEN1', p_curr_ser_num);
5130: l_retval := -921; -- return(FALSE);
5131:
5132: END IF; -- }
5125: AND (p_acct_prof_value = 'Y' /*1*/)
5126: AND ((p_db_lst_txn_src_type_id = 5) OR (p_db_lst_txn_src_type_id = 6 ))) THEN -- {
5127:
5128: --fnd_message.set_name('INV', 'INV_SER_STATUS_NA');
5129: --fnd_message.set_Token('TOKEN1', p_curr_ser_num);
5130: l_retval := -921; -- return(FALSE);
5131:
5132: END IF; -- }
5133: