DBA Data[Home] [Help]

APPS.INV_LOT_TRX_VALIDATION_PUB dependencies on INV_GLOBALS

Line 242: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_split)

238: print_debug ('l_start_count is ' || l_start_count, 'Validate_Lots');
239: print_debug ('l_result_count is ' || l_result_count, 'Validate_Lots');
240: END IF;
241:
242: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_split)
243: THEN
244: IF (l_debug = 1)
245: THEN
246: print_debug ('validate for lot split', 'Validate_Lots');

Line 360: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)

356: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
357: THEN
358: RAISE fnd_api.g_exc_unexpected_error;
359: END IF;
360: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)
361: THEN
362: IF (l_start_count > 1)
363: THEN
364: fnd_message.set_name ('INV', 'INV_MIN_START_LOT_TRANSLATE');

Line 484: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)

480: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
481: THEN
482: RAISE fnd_api.g_exc_unexpected_error;
483: END IF;
484: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)
485: THEN
486: IF (l_start_count < 2)
487: THEN
488: fnd_message.set_name ('INV', 'INV_MIN_START_LOT_MERGE');

Line 698: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_split)

694: fnd_msg_pub.ADD;
695: RAISE fnd_api.g_exc_error;
696: END IF;
697:
698: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_split)
699: THEN
700: IF (l_debug = 1)
701: THEN
702: print_debug ('validate Start Lot for lot split'

Line 747: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)

743: fnd_msg_pub.ADD;
744: RAISE fnd_api.g_exc_unexpected_error;
745: END;
746: END;
747: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)
748: THEN
749: IF (l_debug = 1)
750: THEN
751: print_debug ('validate Start Lot for lot merge'

Line 796: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)

792: fnd_msg_pub.ADD;
793: RAISE fnd_api.g_exc_unexpected_error;
794: END;
795: END;
796: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)
797: THEN
798: IF (l_debug = 1)
799: THEN
800: print_debug ('validate Start Lot for lot translate'

Line 855: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_split)

851: /*Added new messages specific to lot split,merge and translate transactions
852: W.R.T to issue 15 of the bug*/
853: IF (x_validation_status <> 'Y')
854: THEN
855: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_split)
856: THEN
857:
858: fnd_message.set_name ('INV', 'INV_INVALID_LOT_ITEM_LOT_SPLIT');
859:

Line 860: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)

856: THEN
857:
858: fnd_message.set_name ('INV', 'INV_INVALID_LOT_ITEM_LOT_SPLIT');
859:
860: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)
861: THEN
862:
863: fnd_message.set_name ('INV', 'INV_INVALID_LOT_ITEM_LOT_MERGE');
864:

Line 865: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)

861: THEN
862:
863: fnd_message.set_name ('INV', 'INV_INVALID_LOT_ITEM_LOT_MERGE');
864:
865: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)
866: THEN
867:
868: fnd_message.set_name ('INV', 'INV_INVALID_LOT_ITEM_LOT_XLATE');
869:

Line 988: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)

984: fnd_msg_pub.ADD;
985: RAISE fnd_api.g_exc_error;
986: END IF;
987: /* Bug#4363274. This check is not required.
988: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)
989: THEN
990: IF (l_debug = 1)
991: THEN
992: print_debug ('result lot_num is ' || p_rs_lot_num_tbl (1)

Line 1041: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_split)

1037:
1038: IF (l_lot_uniqueness = 1)
1039: THEN
1040: -- lot number is unique accross items
1041: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_split)
1042: THEN
1043: FOR i IN 1 .. p_rs_lot_num_tbl.COUNT
1044: LOOP
1045: SELECT COUNT (1)

Line 1100: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)

1096: END IF;
1097: END IF;
1098: END LOOP;
1099: END LOOP;
1100: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)
1101: THEN
1102: IF (p_st_lot_num_tbl (1) <> p_rs_lot_num_tbl (1))
1103: THEN
1104: l_validation_status := 'Y';

Line 1106: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)

1102: IF (p_st_lot_num_tbl (1) <> p_rs_lot_num_tbl (1))
1103: THEN
1104: l_validation_status := 'Y';
1105: END IF;
1106: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)
1107: THEN
1108: SELECT COUNT (1)
1109: INTO l_lot_count
1110: FROM mtl_lot_numbers

Line 1150: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_split)

1146: END IF;
1147: END IF;
1148:
1149: -- here is lot number uniqueness is none.
1150: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_split)
1151: THEN
1152: FOR i IN 1 .. p_rs_lot_num_tbl.COUNT
1153: LOOP
1154: SELECT COUNT (1)

Line 1226: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)

1222: END IF;
1223: END IF;
1224: END LOOP;
1225: END LOOP;
1226: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)
1227: THEN
1228: IF (l_debug = 1)
1229: THEN
1230: print_debug ('start lot = ' || p_st_lot_num_tbl (1)

Line 1259: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)

1255: l_validation_status := 'Y';
1256: END IF;
1257:
1258: END IF;
1259: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)
1260: THEN
1261: IF (l_debug = 1)
1262: THEN
1263: print_debug

Line 2453: IF ( (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)

2449: 'LOT_ATTRIBUTE_CATEGORY'
2450: );
2451: END LOOP;
2452:
2453: IF ( (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)
2454: OR (p_transaction_type_id = inv_globals.g_type_inv_lot_split)
2455: )
2456: AND (l_st_lot_attr_category <> l_rs_lot_attr_category)
2457: THEN

Line 2454: OR (p_transaction_type_id = inv_globals.g_type_inv_lot_split)

2450: );
2451: END LOOP;
2452:
2453: IF ( (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)
2454: OR (p_transaction_type_id = inv_globals.g_type_inv_lot_split)
2455: )
2456: AND (l_st_lot_attr_category <> l_rs_lot_attr_category)
2457: THEN
2458: print_debug ( 'Lot categories mismatch: '

Line 3786: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)

3782:
3783: l_validation_status := 'Y';
3784: END IF;
3785:
3786: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)
3787: THEN
3788: FOR i IN 2 .. l_start_count
3789: LOOP
3790: l_organization_id := p_st_org_id_tbl (i);

Line 3861: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)

3857: x_validation_status := 'N';
3858: RAISE fnd_api.g_exc_error;
3859: END IF;
3860: END LOOP;
3861: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)
3862: THEN
3863: -- do not assign cost group if the lot changed item.
3864: IF (l_inventory_item_id <> p_rs_item_id_tbl (1))
3865: THEN

Line 4139: IF ( p_transaction_type_id = inv_globals.g_type_inv_lot_split

4135: ELSE
4136: l_is_serial_control := 'FALSE';
4137: END IF;
4138:
4139: IF ( p_transaction_type_id = inv_globals.g_type_inv_lot_split
4140: OR p_transaction_type_id = inv_globals.g_type_inv_lot_translate
4141: )
4142: THEN
4143: -- check if the total result qty do not exceed the parent lot quantity

Line 4140: OR p_transaction_type_id = inv_globals.g_type_inv_lot_translate

4136: l_is_serial_control := 'FALSE';
4137: END IF;
4138:
4139: IF ( p_transaction_type_id = inv_globals.g_type_inv_lot_split
4140: OR p_transaction_type_id = inv_globals.g_type_inv_lot_translate
4141: )
4142: THEN
4143: -- check if the total result qty do not exceed the parent lot quantity
4144: IF (l_start_primary_uom <> p_st_uom_tbl (1))

Line 4221: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate) THEN

4217: fnd_msg_pub.ADD;
4218: RAISE fnd_api.g_exc_error;
4219: END IF;
4220:
4221: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate) THEN
4222: IF (l_att_qty <> l_start_primary_qty) THEN
4223: fnd_message.set_name ('INV', 'INV_LOT_TRANSLATE_QTY_ERR');
4224: fnd_msg_pub.ADD;
4225: RAISE fnd_api.g_exc_error;

Line 4265: AND p_transaction_type_id = inv_globals.g_type_inv_lot_split

4261: END IF;
4262:
4263: IF ( i = 1
4264: AND l_result_qty = l_att_qty
4265: AND p_transaction_type_id = inv_globals.g_type_inv_lot_split
4266: ) THEN
4267: fnd_message.set_name ('INV', 'INV_MIN_LOT_SPLIT');
4268: fnd_msg_pub.ADD;
4269: RAISE fnd_api.g_exc_error;

Line 4281: AND p_transaction_type_id = inv_globals.g_type_inv_lot_split) THEN

4277:
4278: /*Check to see wether individual lot quantities also match*/
4279:
4280: IF(l_is_serial_control = 'TRUE'
4281: AND p_transaction_type_id = inv_globals.g_type_inv_lot_split) THEN
4282: l_rs_var_index := p_rs_ser_parent_lot_tbl.FIRST;
4283: l_lot_serial_count := 0;
4284: FOR j IN 1 .. p_rs_ser_number_tbl.COUNT
4285: LOOP

Line 4312: IF ( p_transaction_type_id = inv_globals.g_type_inv_lot_split

4308: RAISE fnd_api.g_exc_error;
4309: END IF;
4310:
4311: IF (l_total_qty <> l_start_primary_qty) THEN
4312: IF ( p_transaction_type_id = inv_globals.g_type_inv_lot_split
4313: AND l_total_qty > l_start_primary_qty) THEN
4314: x_validation_status := 'N';
4315: fnd_message.set_name ('INV', 'INV_TOTAL_EXCEED_SPLIT');
4316: fnd_msg_pub.ADD;

Line 4318: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate) THEN

4314: x_validation_status := 'N';
4315: fnd_message.set_name ('INV', 'INV_TOTAL_EXCEED_SPLIT');
4316: fnd_msg_pub.ADD;
4317: RAISE fnd_api.g_exc_error;
4318: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate) THEN
4319: x_validation_status := 'N';
4320: fnd_message.set_name ('INV', 'INV_TOTAL_EXCEED_TRANSLATE');
4321: fnd_msg_pub.ADD;
4322: RAISE fnd_api.g_exc_error;

Line 4363: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge) THEN

4359: END IF;
4360: /* for lot merge, the check if the starting lot have enough qty to transact in
4361: * the transaction manager we don't check it here.
4362: */
4363: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge) THEN
4364: FOR i IN 1 .. l_start_count
4365: LOOP
4366: IF (l_start_primary_uom <> p_st_uom_tbl (i)) THEN
4367: --bug 8526689 added lot number and org id to make the inv_convert call lot specific

Line 4721: IF ((p_transaction_type_id <> inv_globals.g_type_inv_lot_split

4717: THEN
4718: print_debug ('breadcrumb 20', 'Validate_serials');
4719: END IF;
4720:
4721: IF ((p_transaction_type_id <> inv_globals.g_type_inv_lot_split
4722: OR (p_transaction_type_id = inv_globals.g_type_inv_lot_split
4723: AND i <= p_rs_ser_number_tbl.COUNT))
4724: AND
4725: p_st_ser_number_tbl (l_st_var_index) <>

Line 4722: OR (p_transaction_type_id = inv_globals.g_type_inv_lot_split

4718: print_debug ('breadcrumb 20', 'Validate_serials');
4719: END IF;
4720:
4721: IF ((p_transaction_type_id <> inv_globals.g_type_inv_lot_split
4722: OR (p_transaction_type_id = inv_globals.g_type_inv_lot_split
4723: AND i <= p_rs_ser_number_tbl.COUNT))
4724: AND
4725: p_st_ser_number_tbl (l_st_var_index) <>
4726: p_rs_ser_number_tbl (l_rs_var_index)

Line 4768: (inv_globals.g_type_inv_lot_translate

4764: *source serials
4765: */
4766: BEGIN
4767: IF (p_transaction_type_id IN
4768: (inv_globals.g_type_inv_lot_translate
4769: , inv_globals.g_type_inv_lot_split
4770: )
4771: )
4772: THEN

Line 4769: , inv_globals.g_type_inv_lot_split

4765: */
4766: BEGIN
4767: IF (p_transaction_type_id IN
4768: (inv_globals.g_type_inv_lot_translate
4769: , inv_globals.g_type_inv_lot_split
4770: )
4771: )
4772: THEN
4773: IF (l_debug = 1)

Line 4801: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)

4797: IF (l_debug = 1)
4798: THEN
4799: print_debug ('breadcrumb 60', 'Validate_serials');
4800: END IF;
4801: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)
4802: THEN
4803: IF (l_debug = 1)
4804: THEN
4805: print_debug ('breadcrumb 70', 'Validate_serials');

Line 4906: IF ( p_transaction_type_id = inv_globals.g_type_inv_lot_translate

4902:
4903: /*Not calling validate_serials for lot split and merge transactions as most
4904: *of the validations have already been done.
4905: */
4906: IF ( p_transaction_type_id = inv_globals.g_type_inv_lot_translate
4907: AND p_st_item_id_tbl (1) <> p_rs_item_id_tbl (1)
4908: )
4909: THEN
4910: IF (l_debug = 1)

Line 4936: , p_trx_src_id => inv_globals.g_sourcetype_inventory

4932: , p_item_id => p_rs_item_id_tbl (1)
4933: , p_qty => l_qty
4934: , p_lot => p_rs_lot_num_tbl (1)
4935: , p_start_ser => p_rs_ser_number_tbl(l_rs_var_index)
4936: , p_trx_src_id => inv_globals.g_sourcetype_inventory
4937: , p_trx_action_id => inv_globals.g_action_inv_lot_translate
4938: , p_issue_receipt => 'R'
4939: , p_check_for_grp_mark_id => 'Y'
4940: , x_end_ser => l_end_ser

Line 4937: , p_trx_action_id => inv_globals.g_action_inv_lot_translate

4933: , p_qty => l_qty
4934: , p_lot => p_rs_lot_num_tbl (1)
4935: , p_start_ser => p_rs_ser_number_tbl(l_rs_var_index)
4936: , p_trx_src_id => inv_globals.g_sourcetype_inventory
4937: , p_trx_action_id => inv_globals.g_action_inv_lot_translate
4938: , p_issue_receipt => 'R'
4939: , p_check_for_grp_mark_id => 'Y'
4940: , x_end_ser => l_end_ser
4941: , x_proc_msg => l_proc_msg

Line 5047: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_split)

5043:
5044: IF (l_shelf_life_code = 2)
5045: THEN -- It is shelf life controlled. Get the
5046: --lot exp. date from the parent lot MTLN - pass the starting lot number.
5047: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_split)
5048: THEN
5049: BEGIN
5050: SELECT fnd_date.date_to_canonical (expiration_date)
5051: INTO l_lotexpdate

Line 5111: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)

5107: , 'Compute Lot Exp'
5108: );
5109: END IF;
5110:
5111: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)
5112: THEN
5113: -- pass the resulting lot. if the resulting lot doesnt exist, then
5114: -- get the starting lot with the highest/rep lot and get the
5115: -- expiration DATE of that lot from the table. pass both in this case.

Line 5177: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)

5173: , 'Compute Lot Exp'
5174: );
5175: END IF;
5176:
5177: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)
5178: THEN
5179: BEGIN
5180: SELECT fnd_date.date_to_canonical (expiration_date)
5181: INTO l_lotexpdate

Line 5232: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_split)

5228: );
5229: END IF;
5230: ELSIF (l_shelf_life_code = 4)
5231: THEN
5232: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_split)
5233: THEN
5234: -- get all the child records and check to see if the lot is
5235: -- specified. If it is, then use it. - else get the exp. date
5236: -- from the starting lot.

Line 5304: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)

5300: , 'Compute Lot Exp'
5301: );
5302: END IF;
5303:
5304: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)
5305: THEN
5306: l_update := TRUE;
5307:
5308: BEGIN

Line 5394: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)

5390: );
5391: END IF;
5392: END IF;
5393:
5394: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)
5395: THEN
5396: IF (p_rs_lot_exp_tbl (1) IS NULL)
5397: THEN
5398: BEGIN