[Home] [Help]
14: IS
15: l_dummy VARCHAR2(10);
16: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
17: BEGIN
18: IF p_line_id IS NULL OR p_line_id = FND_API.G_MISS_NUM THEN
19: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
20: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
21: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('INV','INV_LINE_ID'),FALSE); -- ND
22: FND_MSG_PUB.Add;
35: l_return_value BOOLEAN;
36: l_request_number VARCHAR2(30);
37: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
38: BEGIN
39: IF p_line_number IS NULL OR p_line_number = FND_API.G_MISS_NUM THEN
40: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
41: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
42: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('INV','INV_LINE_NUMBER'),FALSE); -- ND
43: FND_MSG_PUB.Add;
75: , 'Line_Number'
76: );
77: END IF;
78:
79: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
80: END Line_Number;
81:
82: -- ---------------------------------------------------------------------
83: FUNCTION Line_Status ( p_line_status IN NUMBER ) RETURN NUMBER
85: l_dummy VARCHAR2(10);
86: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
87: BEGIN
88:
89: IF p_line_status IS NULL OR p_line_status = FND_API.G_MISS_NUM THEN
90: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
91: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
92: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('INV','INV_LINE_STATUS'),FALSE); -- ND
93: FND_MSG_PUB.Add;
120: ( G_PKG_NAME
121: , 'Line_Status'
122: );
123: END IF;
124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
125:
126: END Line_Status;
127:
128: -- ---------------------------------------------------------------------
188: FROM mtl_system_items_kfv
189: WHERE inventory_item_id = p_item_id
190: AND organization_id = p_organization_id;
191:
192: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
193: l_start_prefix VARCHAR2(30);
194: l_start_number NUMBER;
195: l_end_prefix VARCHAR2(30);
196: l_end_number NUMBER;
216: BEGIN
217:
218: -- Check required attributes.
219: IF p_trolin_rec.line_id IS NULL THEN
220: l_return_status := FND_API.G_RET_STS_ERROR;
221: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
222: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
223: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','line_id');
224: FND_MSG_PUB.Add;
225: END IF;
226: END IF;
227:
228: IF p_trolin_rec.header_id IS NULL THEN
229: l_return_status := FND_API.G_RET_STS_ERROR;
230: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
231: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
232: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Header_Id');
233: FND_MSG_PUB.Add;
238: -- Return Error if a required attribute is missing.
239:
240: IF p_trolin_rec.inventory_item_id IS NULL THEN
241: if( p_move_order_type <> INV_GLOBALS.G_MOVE_ORDER_PUT_AWAY ) then
242: l_return_status := FND_API.G_RET_STS_ERROR;
243:
244: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
245: FND_MESSAGE.SET_NAME('INV','INV_ENTER_ITEM');
246: FND_MSG_PUB.Add;
245: FND_MESSAGE.SET_NAME('INV','INV_ENTER_ITEM');
246: FND_MSG_PUB.Add;
247: END IF;
248: elsif( p_move_order_type = INV_GLOBALS.G_MOVE_ORDER_PUT_AWAY AND p_trolin_rec.lpn_id is NULL) then
249: l_return_status := FND_API.G_RET_STS_ERROR;
250: if( FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)) then
251: FND_MESSAGE.SET_NAME('INV', 'INV_ENTER_ITEM_LPN');
252: FND_MSG_PUB.Add;
253: end if;
254: end if;
255: END IF;
256:
257: IF p_trolin_rec.date_required IS NULL THEN
258: l_return_status := FND_API.G_RET_STS_ERROR;
259:
260: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
261: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
262: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('INV','INV_DATE_REQUIRED'),FALSE);
265: END IF;
266:
267: IF p_trolin_rec.quantity IS NULL THEN
268: if( p_move_order_type <> INV_GLOBALS.G_MOVE_ORDER_PUT_AWAY ) then
269: l_return_status := FND_API.G_RET_STS_ERROR;
270:
271: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
272: FND_MESSAGE.SET_NAME('INV','INV_INT_QTYCODE');
273: FND_MSG_PUB.Add;
276: END IF;
277:
278: IF p_trolin_rec.uom_code IS NULL THEN
279: if( p_trolin_rec.inventory_item_id is not null and p_move_order_type <> INV_GLOBALS.G_MOVE_ORDER_PUT_AWAY ) then
280: l_return_status := FND_API.G_RET_STS_ERROR;
281: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
282: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
283: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('INV','UOM'),FALSE);
284: FND_MSG_PUB.Add;
299: IF p_trolin_rec.to_account_id IS NULL AND
300: p_trolin_rec.transaction_type_id <> INV_GLOBALS.G_TYPE_XFER_ORDER_WIP_ISSUE
301: AND g_item.inventory_asset_flag = 'Y' THEN
302: -- Added the last condition for bug 2519579
303: l_return_status := FND_API.G_RET_STS_ERROR;
304:
305: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
306: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
307: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Account');
314: IF p_trolin_rec.organization_id <> nvl(g_organization_id, -1) THEN
315: g_organization_id := p_trolin_rec.organization_id;
316: l_return_value := INV_CACHE.set_wms_installed(g_organization_id);
317: If NOT l_return_value Then
318: RAISE fnd_api.g_exc_unexpected_error;
319: End If;
320: g_wms_org_flag := INV_CACHE.wms_installed;
321: END IF;
322:
325: --For the Move Order types Putaway and Subinventory, destination subinventory
326: --is not required. Hence Bypass the validation
327: IF (p_move_order_type NOT IN
328: (INV_GLOBALS.G_MOVE_ORDER_PUT_AWAY, INV_GLOBALS.G_MOVE_ORDER_SYSTEM)) THEN
329: l_return_status := FND_API.G_RET_STS_ERROR;
330:
331: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
332: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
333: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','To Subinventory');
352: from mtl_parameters
353: where organization_id = p_trolin_rec.organization_id;
354:
355: if (l_org_loc_control = 1) then
356: l_return_status := FND_API.G_RET_STS_ERROR;
357:
358: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
359: FND_MESSAGE.SET_NAME('INV','INV_SUB_RESTRICT');
360: FND_MSG_PUB.Add;
368: and secondary_inventory_name = p_trolin_rec.to_subinventory_code;
369:
370: if (l_sub_loc_control = 1) THEN
371:
372: l_return_status := FND_API.G_RET_STS_ERROR;
373:
374: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
375: FND_MESSAGE.SET_NAME('INV','INV_SUB_RESTRICT');
376: FND_MSG_PUB.Add;
382: where organization_id = p_trolin_rec.organization_id
383: and inventory_item_id = p_trolin_rec.inventory_item_id;
384:
385: if (l_item_loc_control = 1) THEN
386: l_return_status := FND_API.G_RET_STS_ERROR;
387:
388: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
389: FND_MESSAGE.SET_NAME('INV','INV_SUB_RESTRICT');
390: FND_MSG_PUB.Add;
428: fnd_message.set_token('JOB', l_wip_entity_name);
429: fnd_message.set_token('SUB', p_trolin_rec.to_subinventory_code);
430: fnd_message.set_token('ITEM', l_item_number);
431: fnd_msg_pub.ADD;
432: l_return_status := FND_API.G_RET_STS_ERROR;
433: END IF;
434:
435: IF g_wms_org_flag
436: AND l_sub_lpn_controlled = inv_globals.g_subinventory_lpn_controlled
452: fnd_message.set_token('SUB', p_trolin_rec.to_subinventory_code);
453: fnd_message.set_token('ITEM', l_item_number);
454:
455: fnd_msg_pub.ADD;
456: l_return_status := FND_API.G_RET_STS_ERROR;
457: END IF;
458: END IF; -- end if source type is g_sourcetype_inventory
459: END IF;
460: --End Bug #4438410
458: END IF; -- end if source type is g_sourcetype_inventory
459: END IF;
460: --End Bug #4438410
461:
462: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
463: RAISE FND_API.G_EXC_ERROR;
464: END IF;
465:
466: --
459: END IF;
460: --End Bug #4438410
461:
462: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
463: RAISE FND_API.G_EXC_ERROR;
464: END IF;
465:
466: --
467: -- Check conditionally required attributes here.
482: exception
483: when no_data_found then
484: FND_MESSAGE.SET_NAME('INV', 'INV_INT_UNITNUMBER');
485: FND_MSG_PUB.ADD;
486: raise FND_API.G_EXC_ERROR;
487: end;
488: end if;
489: end if;
490: end if;
493: AND p_trolin_rec.serial_number_end IS NULL)
494: OR (p_trolin_rec.serial_number_start IS NULL
495: AND p_trolin_rec.serial_number_end IS NOT NULL)
496: THEN
497: x_return_status := FND_API.G_RET_STS_ERROR;
498: return;
499: ELSIF p_trolin_rec.serial_number_start IS NOT NULL
500: THEN
501: --Bug #2659444
510: x_from_number => l_start_number,
511: x_to_number => l_end_number,
512: x_errorcode => l_errorcode);
513: IF l_temp_bool = FALSE THEN
514: x_return_status := FND_API.G_RET_STS_ERROR;
515: return;
516: END IF;
517: END IF;
518:
519: -- Done validating entity
520: x_return_status := l_return_status;
521:
522: EXCEPTION
523: WHEN FND_API.G_EXC_ERROR THEN
524: x_return_status := FND_API.G_RET_STS_ERROR;
525:
526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
520: x_return_status := l_return_status;
521:
522: EXCEPTION
523: WHEN FND_API.G_EXC_ERROR THEN
524: x_return_status := FND_API.G_RET_STS_ERROR;
525:
526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
528:
522: EXCEPTION
523: WHEN FND_API.G_EXC_ERROR THEN
524: x_return_status := FND_API.G_RET_STS_ERROR;
525:
526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
528:
529: WHEN OTHERS THEN
530: -- inv_debug.message('TRO U: ' || SQLERRM);
523: WHEN FND_API.G_EXC_ERROR THEN
524: x_return_status := FND_API.G_RET_STS_ERROR;
525:
526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
528:
529: WHEN OTHERS THEN
530: -- inv_debug.message('TRO U: ' || SQLERRM);
531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
528:
529: WHEN OTHERS THEN
530: -- inv_debug.message('TRO U: ' || SQLERRM);
531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
532: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
533: FND_MSG_PUB.Add_Exc_Msg
534: ( G_PKG_NAME
535: , 'Entity'
566: l_pjm NUMBER;--Bug#5036174
567: BEGIN
568:
569:
570: x_return_status := FND_API.G_RET_STS_SUCCESS;
571:
572:
573: --inv_debug.message('ssia', 'TRO: validating attributes');
574: -- Validate trolin attributes
589: p_old_trolin_rec.transaction_type_id IS NULL )
590: THEN
591: g_transaction_l.transaction_type_id := p_trolin_rec.transaction_type_id;
592: IF INV_Validate.Transaction_Type(g_transaction_l) = inv_validate.F THEN
593: x_return_status := FND_API.G_RET_STS_ERROR;
594: END IF;
595: END IF;
596:
597:
607: IF g_transaction_l.transaction_type_id IS NOT NULL THEN
608: IF INV_Validate.Inventory_Item(g_item,inv_validate_trohdr.g_org,g_transaction_l.transaction_type_id) =
609: INV_Validate.F
610: THEN
611: x_return_status := FND_API.G_RET_STS_ERROR;
612: return;
613: END IF;
614: ELSE
615: /* bug9267446 */
616: IF INV_Validate.Inventory_Item(g_item,inv_validate_trohdr.g_org) =
617: --IF INV_Validate.Inventory_Item(g_item,inv_validate_trohdr.g_org) =
618: INV_Validate.F
619: THEN
620: x_return_status := FND_API.G_RET_STS_ERROR;
621: return;
622: END IF;
623: END IF;
624: END IF;
625: --inv_debug.message('ssia', 'TRO: item: ' || x_return_status);
626: -- Bug 15841667 Org validation added after item validation
627: IF p_trolin_rec.organization_id <> INV_Validate_Trohdr.g_org.organization_id
628: THEN
629: x_return_status := FND_API.G_RET_STS_ERROR;
630: return;
631: END IF;
632: -- Bug 15841667
633: --inv_debug.message('ssia', 'TRO: created_by: ' || to_char(p_trolin_rec.created_by));
637: p_old_trolin_rec.created_by IS NULL )
638: THEN
639: IF INV_Validate.Created_By(p_trolin_rec.created_by) = inv_validate.F
640: THEN
641: x_return_status := FND_API.G_RET_STS_ERROR;
642: return;
643: END IF;
644: END IF;
645: --inv_debug.message('ssia', 'TRO: created_by: ' || x_return_status);
654: THEN
655: IF INV_Validate.Creation_Date(p_trolin_rec.creation_date) =
656: INV_Validate.F
657: THEN
658: x_return_status := FND_API.G_RET_STS_ERROR;
659: return;
660: END IF;
661: END IF;
662:
668: THEN
669: IF INV_Validate_Trohdr.Date_Required(p_trolin_rec.date_required) =
670: INV_Validate.F
671: THEN
672: x_return_status := FND_API.G_RET_STS_ERROR;
673: return;
674: END IF;
675: END IF;
676:
692: inv_validate_trohdr.g_org,
693: g_item,l_acct_txn ) = INV_Validate.F
694: THEN
695: --inv_Debug.message('ssia', 'error from inv_validate.from_subinventory');
696: x_return_status := FND_API.G_RET_STS_ERROR;
697: return;
698: END IF;
699:
700: if( g_item.restrict_subinventories_code = 1 ) then
710: WHEN NO_DATA_FOUND THEN
711: --inv_debug.message('ssia', 'invalid from sub');
712: fnd_message.set_name('INV','INVALID_SUB');
713: fnd_msg_pub.add;
714: RAISE fnd_api.g_exc_error;
715: END ;
716: ELSIF g_item.restrict_subinventories_code = 2 THEN
717: -- item is not restricted to specific subs
718: --inv_debug.message('ssia', 'g_item.restrict_subinventories_code is 2');
726: WHEN NO_DATA_FOUND THEN
727: --inv_debug.message('ssia', 'invalid from sub');
728: fnd_message.SET_NAME('INV','INVALID_SUB');
729: fnd_msg_pub.add;
730: RAISE fnd_api.g_exc_error;
731: END ;
732: END IF;
733: --inv_debug.message('ssia', 'TRO: from_subinventory_code: ' || x_return_status);
734: end if;
738: p_old_trolin_rec.project_id OR
739: p_old_trolin_rec.project_id IS NULL )
740: THEN
741: IF INV_Validate.Project(p_trolin_rec.project_id) = inv_validate.F THEN
742: x_return_status := FND_API.G_RET_STS_ERROR;
743: return;
744: END IF;
745: END IF;
746:
752: p_old_trolin_rec.task_id IS NULL )
753: THEN
754: IF INV_Validate.Task(p_trolin_rec.task_id, p_trolin_rec.project_id)
755: = INV_Validate.F THEN
756: x_return_status := FND_API.G_RET_STS_ERROR;
757: return;
758: END IF;
759: END IF;
760:
789: ,NULL
790: ,NULL
791: ,inv_validate_trolin.g_transaction_l.transaction_action_id) = INV_Validate.F
792: THEN
793: x_return_status := FND_API.G_RET_STS_ERROR;
794: return;
795: END IF;
796: ELSE
797: IF INV_Validate.From_Locator(g_from_locator,
801: p_trolin_rec.task_id,
802: inv_validate_trolin.g_transaction_l.transaction_action_id) =
803: INV_Validate.F
804: THEN
805: x_return_status := FND_API.G_RET_STS_ERROR;
806: return;
807: END IF;
808: END IF;
809: END IF;
817: p_old_trolin_rec.header_id IS NULL )
818: THEN
819: IF INV_Validate_Trohdr.Header(p_trolin_rec.header_id) =
820: INV_Validate.F THEN
821: x_return_status := FND_API.G_RET_STS_ERROR;
822: return;
823: END IF;
824: END IF;
825:
832: THEN
833: IF INV_Validate.Last_Updated_By(p_trolin_rec.last_updated_by) =
834: INV_Validate.F
835: THEN
836: x_return_status := FND_API.G_RET_STS_ERROR;
837: return;
838: END IF;
839: END IF;
840:
850: THEN
851: IF INV_Validate.Last_Update_Date(p_trolin_rec.last_update_date) =
852: inv_validate.f
853: THEN
854: x_return_status := FND_API.G_RET_STS_ERROR;
855: return;
856: END IF;
857: END IF;
858:
865: THEN
866: IF INV_Validate.Last_Update_Login(p_trolin_rec.last_update_login) =
867: INV_Validate.f
868: THEN
869: x_return_status := FND_API.G_RET_STS_ERROR;
870: return;
871: END IF;
872: END IF;
873:
878: p_old_trolin_rec.line_id OR
879: p_old_trolin_rec.line_id IS NULL )
880: THEN
881: IF Line(p_trolin_rec.line_id) = F THEN
882: x_return_status := FND_API.G_RET_STS_ERROR;
883: return;
884: END IF;
885: END IF;
886:
894: THEN
895: IF Line_Number(p_trolin_rec.line_number,p_trolin_rec.header_id,
896: inv_validate_trohdr.g_org) = F
897: THEN
898: x_return_status := FND_API.G_RET_STS_ERROR;
899: RETURN;
900: END IF;
901: END IF;
902:
909: --p_old_trolin_rec.line_status OR
910: p_old_trolin_rec.line_status IS NULL )
911: THEN
912: IF Line_Status(p_trolin_rec.line_status) = F THEN
913: x_return_status := FND_API.G_RET_STS_ERROR;
914: return;
915: END IF;
916: END IF;
917:
925: IF
926: INV_Validate.Program_Application(p_trolin_rec.program_application_id)
927: = INV_Validate.F
928: THEN
929: x_return_status := FND_API.G_RET_STS_ERROR;
930: return;
931: END IF;
932: END IF;
933:
938: p_old_trolin_rec.program_id OR
939: p_old_trolin_rec.program_id IS NULL )
940: THEN
941: IF INV_Validate.Program(p_trolin_rec.program_id) = inv_validate.F THEN
942: x_return_status := FND_API.G_RET_STS_ERROR;
943: return;
944: END IF;
945: END IF;
946:
953: THEN
954: IF
955: INV_Validate.Program_Update_Date(p_trolin_rec.program_update_date)
956: = inv_validate.F THEN
957: x_return_status := FND_API.G_RET_STS_ERROR;
958: return;
959: END IF;
960: END IF;
961:
966: p_old_trolin_rec.quantity OR
967: p_old_trolin_rec.quantity IS NULL )
968: THEN
969: IF INV_Validate.Quantity(p_trolin_rec.quantity) = inv_validate.F THEN
970: x_return_status := FND_API.G_RET_STS_ERROR;
971: return;
972: END IF;
973: END IF;
974:
979: p_old_trolin_rec.quantity_delivered OR
980: p_old_trolin_rec.quantity_delivered IS NULL )
981: THEN
982: IF Quantity_Delivered(p_trolin_rec.quantity_delivered) = F THEN
983: x_return_status := FND_API.G_RET_STS_ERROR;
984: return;
985: END IF;
986: END IF;
987:
992: p_old_trolin_rec.quantity_detailed OR
993: p_old_trolin_rec.quantity_detailed IS NULL )
994: THEN
995: IF Quantity_Detailed(p_trolin_rec.quantity_detailed) = F THEN
996: x_return_status := FND_API.G_RET_STS_ERROR;
997: return;
998: END IF;
999: END IF;
1000:
1007: p_old_trolin_rec.secondary_quantity OR
1008: p_old_trolin_rec.secondary_quantity IS NULL )
1009: THEN
1010: IF INV_Validate.Secondary_Quantity(p_trolin_rec.secondary_quantity) = inv_validate.F THEN
1011: x_return_status := FND_API.G_RET_STS_ERROR;
1012: return;
1013: END IF;
1014: END IF;
1015:
1020: p_old_trolin_rec.secondary_quantity_delivered OR
1021: p_old_trolin_rec.secondary_quantity_delivered IS NULL )
1022: THEN
1023: IF Secondary_Quantity_Delivered(p_trolin_rec.secondary_quantity_delivered) = F THEN
1024: x_return_status := FND_API.G_RET_STS_ERROR;
1025: return;
1026: END IF;
1027: END IF;
1028:
1033: p_old_trolin_rec.secondary_quantity_detailed OR
1034: p_old_trolin_rec.secondary_quantity_detailed IS NULL )
1035: THEN
1036: IF Secondary_Quantity_Detailed(p_trolin_rec.secondary_quantity_detailed) = F THEN
1037: x_return_status := FND_API.G_RET_STS_ERROR;
1038: return;
1039: END IF;
1040: END IF;
1041:
1046: p_old_trolin_rec.reason_id OR
1047: p_old_trolin_rec.reason_id IS NULL )
1048: THEN
1049: IF INV_Validate.Reason(p_trolin_rec.reason_id) = inv_validate.F THEN
1050: x_return_status := FND_API.G_RET_STS_ERROR;
1051: return;
1052: END IF;
1053: END IF;
1054: -- inv_debug.message('TRO: reason_id: ' || x_return_status);
1058: p_old_trolin_rec.reference OR
1059: p_old_trolin_rec.reference IS NULL )
1060: THEN
1061: IF INV_Validate.Reference(p_trolin_rec.reference) = inv_validate.F THEN
1062: x_return_status := FND_API.G_RET_STS_ERROR;
1063: return;
1064: END IF;
1065: END IF;
1066: -- inv_debug.message('TRO: reference: ' || x_return_status);
1071: p_old_trolin_rec.reference_type_code IS NULL )
1072: THEN
1073: IF INV_Validate.Reference_Type(p_trolin_rec.reference_type_code) =
1074: inv_validate.F THEN
1075: x_return_status := FND_API.G_RET_STS_ERROR;
1076: return;
1077: END IF;
1078: END IF;
1079: -- inv_debug.message('TRO: reference_type_code: ' || x_return_status);
1086: THEN
1087: IF INV_Validate.Reference(p_trolin_rec.reference_id,
1088: p_trolin_rec.reference_type_code) =
1089: inv_validate.F THEN
1090: x_return_status := FND_API.G_RET_STS_ERROR;
1091: return;
1092: END IF;
1093: END IF;
1094: -- inv_debug.message('TRO: reference_id: ' || x_return_status);
1099: p_old_trolin_rec.request_id IS NULL )
1100: THEN
1101: IF INV_Validate_Trohdr.Request(p_trolin_rec.request_id) =
1102: inv_validate.F THEN
1103: x_return_status := FND_API.G_RET_STS_ERROR;
1104: return;
1105: END IF;
1106: END IF;
1107: -- inv_debug.message('TRO: request_id: ' || x_return_status);
1113: THEN
1114: IF INV_Validate.Revision(p_trolin_rec.revision,
1115: inv_validate_trohdr.g_org,
1116: g_item) = inv_validate.F THEN
1117: x_return_status := FND_API.G_RET_STS_ERROR;
1118: return;
1119: END IF;
1120: END IF;
1121: -- inv_debug.message('TRO: revision: ' || x_return_status);
1142: IF l_mov_order_type=INV_GLOBALS.g_move_order_put_away
1143: THEN
1144:
1145: IF INV_Validate.Lot_Number(g_lot, inv_validate_trohdr.g_org, g_item) = inv_validate.F THEN
1146: x_return_status := FND_API.G_RET_STS_ERROR;
1147: return;
1148: END IF;
1149:
1150: ELSE
1151:
1152: IF INV_Validate.Lot_Number(g_lot, inv_validate_trohdr.g_org, g_item,
1153: g_from_sub, g_from_locator,
1154: p_trolin_rec.revision) = inv_validate.F THEN
1155: x_return_status := FND_API.G_RET_STS_ERROR;
1156: return;
1157: END IF;
1158:
1159: END IF;
1162: /*
1163: IF INV_Validate.Lot_Number(g_lot, inv_validate_trohdr.g_org, g_item,
1164: g_from_sub, g_from_locator,
1165: p_trolin_rec.revision) = inv_validate.F THEN
1166: x_return_status := FND_API.G_RET_STS_ERROR;
1167: return;
1168: END IF;
1169: */
1170: END IF;
1181: g_item, g_from_sub, g_lot,
1182: g_from_locator,
1183: p_trolin_rec.revision) =
1184: inv_validate.F THEN
1185: x_return_status := FND_API.G_RET_STS_ERROR;
1186: return;
1187: END IF;
1188: END IF;
1189: -- inv_debug.message('TRO: serial_number_start: ' || x_return_status);
1199: g_item, g_from_sub, g_lot,
1200: g_from_locator,
1201: p_trolin_rec.revision) =
1202: inv_validate.F THEN
1203: x_return_status := FND_API.G_RET_STS_ERROR;
1204: return;
1205: END IF;
1206: END IF;
1207: -- inv_debug.message('TRO: serial_number: ' || x_return_status);
1213: p_old_trolin_rec.status_date IS NULL )
1214: THEN
1215: IF INV_Validate_Trohdr.Status_Date(p_trolin_rec.status_date) =
1216: inv_validate.F THEN
1217: x_return_status := FND_API.G_RET_STS_ERROR;
1218: return;
1219: END IF;
1220: END IF;
1221: -- inv_debug.message('TRO: status_date: ' || x_return_status);
1242: if l_keystat_val then
1243: l_combination_id := FND_FLEX_KEYVAL.combination_id;
1244: p_trolin_rec.to_account_id := l_combination_id;
1245: else
1246: x_return_status := FND_API.G_RET_STS_ERROR;
1247: end if;
1248: END IF;
1249:
1250:
1254: p_old_trolin_rec.to_account_id IS NULL )
1255: THEN
1256: IF INV_Validate.To_Account(p_trolin_rec.to_account_id) =
1257: inv_validate.f THEN
1258: x_return_status := FND_API.G_RET_STS_ERROR;
1259: END IF;
1260: END IF;
1261: -- inv_debug.message('TRO: to_account_id: ' || x_return_status);
1262: END IF;
1272: IF INV_Validate.To_Subinventory(g_to_sub, inv_validate_trohdr.g_org,
1273: g_item, g_from_sub, 0) =
1274: inv_validate.F THEN
1275: --inv_debug.message('ssia', 'error to_subinventory_code');
1276: x_return_status := FND_API.G_RET_STS_ERROR;
1277: return;
1278: END IF;
1279: if( g_item.restrict_subinventories_code = 1 ) then
1280: --inv_Debug.message('ssia', 'g_item_restrict subinventory code is 1');
1291: WHEN NO_DATA_FOUND THEN
1292: --inv_debug.message('ssia', 'invalid to sub');
1293: fnd_message.set_name('INV','INVALID_SUB');
1294: fnd_msg_pub.add;
1295: RAISE fnd_api.g_exc_error;
1296: END ;
1297: ELSIF g_item.restrict_subinventories_code = 2 THEN
1298: -- item is not restricted to specific subs
1299: --inv_Debug.message('ssia', 'g_item_restrict subinventory code is 2');
1308: WHEN NO_DATA_FOUND THEN
1309: --inv_debug.message('ssia', 'invalid to sub');
1310: fnd_message.SET_NAME('INV','INVALID_SUB');
1311: fnd_msg_pub.add;
1312: RAISE fnd_api.g_exc_error;
1313: END ;
1314: END IF;
1315: END IF;
1316: --inv_debug.message('ssia', 'TRO: to_subinventory: ' || x_return_status);
1361: AND ORGANIZATION_ID = inv_validate_trohdr.g_org.organization_id
1362: AND SUBINVENTORY_CODE = NULL;
1363:
1364: if SQL%NOTFOUND then
1365: x_return_status := FND_API.G_RET_STS_ERROR;
1366: return;
1367: else
1368: SELECT PROJECT_ID,TASK_ID
1369: INTO l_project_id, l_task_id
1377: 'ANY',
1378: 'N',
1379: l_project_id,
1380: l_task_id) then
1381: x_return_status := FND_API.G_RET_STS_ERROR;
1382: end if;
1383: end if;
1384: END;
1385: end if;
1383: end if;
1384: END;
1385: end if;
1386: else
1387: x_return_status := FND_API.G_RET_STS_ERROR;
1388: return;
1389: end if;
1390: p_trolin_rec.to_locator_id := INV_Value_To_Id.To_Locator(p_trolin_rec.organization_id,
1391: p_trolin_val_rec.to_locator);
1421: inv_validate_trohdr.g_org, g_item,
1422: g_to_sub, p_trolin_rec.project_id,
1423: p_trolin_rec.task_id,
1424: inv_validate_trolin.g_transaction_l.transaction_action_id) = inv_validate.F THEN
1425: x_return_status := FND_API.G_RET_STS_ERROR;
1426: return;
1427: END IF;
1428:
1429: ELSE
1431: IF INV_Validate.To_Locator(g_to_locator,
1432: inv_validate_trohdr.g_org, g_item,
1433: g_to_sub, null, null,
1434: inv_validate_trolin.g_transaction_l.transaction_action_id) = inv_validate.F THEN
1435: x_return_status := FND_API.G_RET_STS_ERROR;
1436: return;
1437: END IF;
1438: END IF;
1439: END IF;
1448: THEN
1449: IF
1450: INV_Validate.Transaction_Header(p_trolin_rec.transaction_header_id) =
1451: inv_validate.f THEN
1452: x_return_status := FND_API.G_RET_STS_ERROR;
1453: END IF;
1454: END IF;
1455: -- inv_debug.message('TRO: transaction_header_id: ' || x_return_status);
1456:
1461: THEN
1462: IF INV_Validate.HR_Location(p_trolin_rec.ship_to_location_id) =
1463: INV_Validate.F
1464: THEN
1465: x_return_status := FND_API.G_RET_STS_ERROR;
1466: END IF;
1467: END IF;
1468:
1469: IF p_trolin_rec.uom_code IS NOT NULL AND
1472: p_old_trolin_rec.uom_code IS NULL )
1473: THEN
1474: IF INV_Validate.Uom(p_trolin_rec.uom_code,
1475: inv_validate_trohdr.g_org, g_item) = inv_validate.F THEN
1476: x_return_status := FND_API.G_RET_STS_ERROR;
1477: END IF;
1478: END IF;
1479:
1480: IF p_trolin_rec.from_cost_group_id IS NOT NULL AND
1481: (p_trolin_rec.from_cost_group_id <> p_old_trolin_rec.from_cost_group_id OR
1482: p_old_trolin_rec.from_cost_group_id IS NULL) then
1483: if INV_Validate.Cost_Group(p_trolin_rec.from_cost_group_id,
1484: p_trolin_rec.organization_id) = inv_validate.F then
1485: x_return_status := FND_API.G_RET_STS_ERROR;
1486: END IF;
1487: END IF;
1488:
1489: IF p_trolin_rec.to_cost_group_id IS NOT NULL AND
1490: (p_trolin_rec.to_cost_group_id <> p_old_trolin_rec.to_cost_group_id OR
1491: p_old_trolin_rec.to_cost_group_id IS NULL) then
1492: if INV_Validate.Cost_Group(p_trolin_rec.to_cost_group_id,
1493: p_trolin_rec.organization_id) = inv_validate.F then
1494: x_return_status := FND_API.G_RET_STS_ERROR;
1495: END IF;
1496: END IF;
1497:
1498: IF p_trolin_rec.lpn_id IS NOT NULL AND
1498: IF p_trolin_rec.lpn_id IS NOT NULL AND
1499: (p_trolin_rec.lpn_id <> p_old_trolin_rec.lpn_id OR
1500: p_old_trolin_rec.lpn_id IS NULL) then
1501: if INV_Validate.LPN(p_trolin_rec.lpn_id) = inv_validate.F then
1502: x_return_status := FND_API.G_RET_STS_ERROR;
1503: END IF;
1504: END IF;
1505:
1506: IF p_trolin_rec.to_lpn_id IS NOT NULL AND
1506: IF p_trolin_rec.to_lpn_id IS NOT NULL AND
1507: (p_trolin_rec.to_lpn_id <> p_old_trolin_rec.to_lpn_id OR
1508: p_old_trolin_rec.to_lpn_id IS NULL) then
1509: if INV_Validate.LPN(p_trolin_rec.to_lpn_id) = inv_validate.F then
1510: x_return_status := FND_API.G_RET_STS_ERROR;
1511: END IF;
1512: END IF;
1513:
1514: -- inv_debug.message('TRO: uom: ' || x_return_status);
1584:
1585: -- Validate descriptive flexfield.
1586:
1587: IF INV_Validate.Desc_Flex( 'TROLIN' ) = inv_validate.F THEN
1588: x_return_status := FND_API.G_RET_STS_ERROR;
1589: END IF;
1590:
1591: END IF;
1592:
1591: END IF;
1592:
1593: -- Done validating attributes
1594: EXCEPTION
1595: WHEN FND_API.G_EXC_ERROR THEN
1596: x_return_status := FND_API.G_RET_STS_ERROR;
1597:
1598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1599: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1592:
1593: -- Done validating attributes
1594: EXCEPTION
1595: WHEN FND_API.G_EXC_ERROR THEN
1596: x_return_status := FND_API.G_RET_STS_ERROR;
1597:
1598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1599: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1600:
1594: EXCEPTION
1595: WHEN FND_API.G_EXC_ERROR THEN
1596: x_return_status := FND_API.G_RET_STS_ERROR;
1597:
1598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1599: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1600:
1601: WHEN OTHERS THEN
1602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1595: WHEN FND_API.G_EXC_ERROR THEN
1596: x_return_status := FND_API.G_RET_STS_ERROR;
1597:
1598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1599: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1600:
1601: WHEN OTHERS THEN
1602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1603:
1598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1599: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1600:
1601: WHEN OTHERS THEN
1602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1603:
1604: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1605: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Attributes');
1606: END IF;
1612: ( x_return_status OUT NOCOPY VARCHAR2
1613: , p_trolin_rec IN INV_Move_Order_PUB.Trolin_Rec_Type
1614: )
1615: IS
1616: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1617: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1618: BEGIN
1619:
1620: -- Validate entity delete.
1624: x_return_status := l_return_status;
1625:
1626: EXCEPTION
1627:
1628: WHEN FND_API.G_EXC_ERROR THEN
1629: x_return_status := FND_API.G_RET_STS_ERROR;
1630:
1631: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1625:
1626: EXCEPTION
1627:
1628: WHEN FND_API.G_EXC_ERROR THEN
1629: x_return_status := FND_API.G_RET_STS_ERROR;
1630:
1631: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1633:
1627:
1628: WHEN FND_API.G_EXC_ERROR THEN
1629: x_return_status := FND_API.G_RET_STS_ERROR;
1630:
1631: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1633:
1634: WHEN OTHERS THEN
1635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1628: WHEN FND_API.G_EXC_ERROR THEN
1629: x_return_status := FND_API.G_RET_STS_ERROR;
1630:
1631: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1633:
1634: WHEN OTHERS THEN
1635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1636:
1631: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1633:
1634: WHEN OTHERS THEN
1635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1636:
1637: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1638: THEN
1639: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Entity_Delete');