[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
574: -- Validate trolin attributes
575:
576: IF p_trolin_rec.organization_id <> INV_Validate_Trohdr.g_org.organization_id
577: THEN
578: x_return_status := FND_API.G_RET_STS_ERROR;
579: return;
580: END IF;
581: --inv_debug.message('ssia', 'TRO: organization: ' || x_return_status);
582: --inv_debug.message('ssia', 'TRO: inventoryItem: '|| p_trolin_val_rec.inventory_item || x_return_status);
599:
600: IF INV_Validate.Inventory_Item(g_item,inv_validate_trohdr.g_org) =
601: INV_Validate.F
602: THEN
603: x_return_status := FND_API.G_RET_STS_ERROR;
604: return;
605: END IF;
606: END IF;
607: --inv_debug.message('ssia', 'TRO: item: ' || x_return_status);
611: p_old_trolin_rec.transaction_type_id IS NULL )
612: THEN
613: g_transaction_l.transaction_type_id := p_trolin_rec.transaction_type_id;
614: IF INV_Validate.Transaction_Type(g_transaction_l) = inv_validate.F THEN
615: x_return_status := FND_API.G_RET_STS_ERROR;
616: END IF;
617: END IF;
618:
619: --inv_debug.message('ssia', 'TRO: created_by: ' || to_char(p_trolin_rec.created_by));
623: p_old_trolin_rec.created_by IS NULL )
624: THEN
625: IF INV_Validate.Created_By(p_trolin_rec.created_by) = inv_validate.F
626: THEN
627: x_return_status := FND_API.G_RET_STS_ERROR;
628: return;
629: END IF;
630: END IF;
631: --inv_debug.message('ssia', 'TRO: created_by: ' || x_return_status);
640: THEN
641: IF INV_Validate.Creation_Date(p_trolin_rec.creation_date) =
642: INV_Validate.F
643: THEN
644: x_return_status := FND_API.G_RET_STS_ERROR;
645: return;
646: END IF;
647: END IF;
648:
654: THEN
655: IF INV_Validate_Trohdr.Date_Required(p_trolin_rec.date_required) =
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:
678: inv_validate_trohdr.g_org,
679: g_item,l_acct_txn ) = INV_Validate.F
680: THEN
681: --inv_Debug.message('ssia', 'error from inv_validate.from_subinventory');
682: x_return_status := FND_API.G_RET_STS_ERROR;
683: return;
684: END IF;
685:
686: if( g_item.restrict_subinventories_code = 1 ) then
696: WHEN NO_DATA_FOUND THEN
697: --inv_debug.message('ssia', 'invalid from sub');
698: fnd_message.set_name('INV','INVALID_SUB');
699: fnd_msg_pub.add;
700: RAISE fnd_api.g_exc_error;
701: END ;
702: ELSIF g_item.restrict_subinventories_code = 2 THEN
703: -- item is not restricted to specific subs
704: --inv_debug.message('ssia', 'g_item.restrict_subinventories_code is 2');
712: WHEN NO_DATA_FOUND THEN
713: --inv_debug.message('ssia', 'invalid from sub');
714: fnd_message.SET_NAME('INV','INVALID_SUB');
715: fnd_msg_pub.add;
716: RAISE fnd_api.g_exc_error;
717: END ;
718: END IF;
719: --inv_debug.message('ssia', 'TRO: from_subinventory_code: ' || x_return_status);
720: end if;
724: p_old_trolin_rec.project_id OR
725: p_old_trolin_rec.project_id IS NULL )
726: THEN
727: IF INV_Validate.Project(p_trolin_rec.project_id) = inv_validate.F THEN
728: x_return_status := FND_API.G_RET_STS_ERROR;
729: return;
730: END IF;
731: END IF;
732:
738: p_old_trolin_rec.task_id IS NULL )
739: THEN
740: IF INV_Validate.Task(p_trolin_rec.task_id, p_trolin_rec.project_id)
741: = INV_Validate.F THEN
742: x_return_status := FND_API.G_RET_STS_ERROR;
743: return;
744: END IF;
745: END IF;
746:
775: ,NULL
776: ,NULL
777: ,inv_validate_trolin.g_transaction_l.transaction_action_id) = INV_Validate.F
778: THEN
779: x_return_status := FND_API.G_RET_STS_ERROR;
780: return;
781: END IF;
782: ELSE
783: IF INV_Validate.From_Locator(g_from_locator,
787: p_trolin_rec.task_id,
788: inv_validate_trolin.g_transaction_l.transaction_action_id) =
789: INV_Validate.F
790: THEN
791: x_return_status := FND_API.G_RET_STS_ERROR;
792: return;
793: END IF;
794: END IF;
795: END IF;
803: p_old_trolin_rec.header_id IS NULL )
804: THEN
805: IF INV_Validate_Trohdr.Header(p_trolin_rec.header_id) =
806: INV_Validate.F THEN
807: x_return_status := FND_API.G_RET_STS_ERROR;
808: return;
809: END IF;
810: END IF;
811:
818: THEN
819: IF INV_Validate.Last_Updated_By(p_trolin_rec.last_updated_by) =
820: INV_Validate.F
821: THEN
822: x_return_status := FND_API.G_RET_STS_ERROR;
823: return;
824: END IF;
825: END IF;
826:
836: THEN
837: IF INV_Validate.Last_Update_Date(p_trolin_rec.last_update_date) =
838: inv_validate.f
839: THEN
840: x_return_status := FND_API.G_RET_STS_ERROR;
841: return;
842: END IF;
843: END IF;
844:
851: THEN
852: IF INV_Validate.Last_Update_Login(p_trolin_rec.last_update_login) =
853: INV_Validate.f
854: THEN
855: x_return_status := FND_API.G_RET_STS_ERROR;
856: return;
857: END IF;
858: END IF;
859:
864: p_old_trolin_rec.line_id OR
865: p_old_trolin_rec.line_id IS NULL )
866: THEN
867: IF Line(p_trolin_rec.line_id) = F THEN
868: x_return_status := FND_API.G_RET_STS_ERROR;
869: return;
870: END IF;
871: END IF;
872:
880: THEN
881: IF Line_Number(p_trolin_rec.line_number,p_trolin_rec.header_id,
882: inv_validate_trohdr.g_org) = F
883: THEN
884: x_return_status := FND_API.G_RET_STS_ERROR;
885: RETURN;
886: END IF;
887: END IF;
888:
895: --p_old_trolin_rec.line_status OR
896: p_old_trolin_rec.line_status IS NULL )
897: THEN
898: IF Line_Status(p_trolin_rec.line_status) = F THEN
899: x_return_status := FND_API.G_RET_STS_ERROR;
900: return;
901: END IF;
902: END IF;
903:
911: IF
912: INV_Validate.Program_Application(p_trolin_rec.program_application_id)
913: = INV_Validate.F
914: THEN
915: x_return_status := FND_API.G_RET_STS_ERROR;
916: return;
917: END IF;
918: END IF;
919:
924: p_old_trolin_rec.program_id OR
925: p_old_trolin_rec.program_id IS NULL )
926: THEN
927: IF INV_Validate.Program(p_trolin_rec.program_id) = inv_validate.F THEN
928: x_return_status := FND_API.G_RET_STS_ERROR;
929: return;
930: END IF;
931: END IF;
932:
939: THEN
940: IF
941: INV_Validate.Program_Update_Date(p_trolin_rec.program_update_date)
942: = inv_validate.F THEN
943: x_return_status := FND_API.G_RET_STS_ERROR;
944: return;
945: END IF;
946: END IF;
947:
952: p_old_trolin_rec.quantity OR
953: p_old_trolin_rec.quantity IS NULL )
954: THEN
955: IF INV_Validate.Quantity(p_trolin_rec.quantity) = inv_validate.F THEN
956: x_return_status := FND_API.G_RET_STS_ERROR;
957: return;
958: END IF;
959: END IF;
960:
965: p_old_trolin_rec.quantity_delivered OR
966: p_old_trolin_rec.quantity_delivered IS NULL )
967: THEN
968: IF Quantity_Delivered(p_trolin_rec.quantity_delivered) = F THEN
969: x_return_status := FND_API.G_RET_STS_ERROR;
970: return;
971: END IF;
972: END IF;
973:
978: p_old_trolin_rec.quantity_detailed OR
979: p_old_trolin_rec.quantity_detailed IS NULL )
980: THEN
981: IF Quantity_Detailed(p_trolin_rec.quantity_detailed) = F THEN
982: x_return_status := FND_API.G_RET_STS_ERROR;
983: return;
984: END IF;
985: END IF;
986:
993: p_old_trolin_rec.secondary_quantity OR
994: p_old_trolin_rec.secondary_quantity IS NULL )
995: THEN
996: IF INV_Validate.Secondary_Quantity(p_trolin_rec.secondary_quantity) = inv_validate.F THEN
997: x_return_status := FND_API.G_RET_STS_ERROR;
998: return;
999: END IF;
1000: END IF;
1001:
1006: p_old_trolin_rec.secondary_quantity_delivered OR
1007: p_old_trolin_rec.secondary_quantity_delivered IS NULL )
1008: THEN
1009: IF Secondary_Quantity_Delivered(p_trolin_rec.secondary_quantity_delivered) = F THEN
1010: x_return_status := FND_API.G_RET_STS_ERROR;
1011: return;
1012: END IF;
1013: END IF;
1014:
1019: p_old_trolin_rec.secondary_quantity_detailed OR
1020: p_old_trolin_rec.secondary_quantity_detailed IS NULL )
1021: THEN
1022: IF Secondary_Quantity_Detailed(p_trolin_rec.secondary_quantity_detailed) = F THEN
1023: x_return_status := FND_API.G_RET_STS_ERROR;
1024: return;
1025: END IF;
1026: END IF;
1027:
1032: p_old_trolin_rec.reason_id OR
1033: p_old_trolin_rec.reason_id IS NULL )
1034: THEN
1035: IF INV_Validate.Reason(p_trolin_rec.reason_id) = inv_validate.F THEN
1036: x_return_status := FND_API.G_RET_STS_ERROR;
1037: return;
1038: END IF;
1039: END IF;
1040: -- inv_debug.message('TRO: reason_id: ' || x_return_status);
1044: p_old_trolin_rec.reference OR
1045: p_old_trolin_rec.reference IS NULL )
1046: THEN
1047: IF INV_Validate.Reference(p_trolin_rec.reference) = inv_validate.F THEN
1048: x_return_status := FND_API.G_RET_STS_ERROR;
1049: return;
1050: END IF;
1051: END IF;
1052: -- inv_debug.message('TRO: reference: ' || x_return_status);
1057: p_old_trolin_rec.reference_type_code IS NULL )
1058: THEN
1059: IF INV_Validate.Reference_Type(p_trolin_rec.reference_type_code) =
1060: inv_validate.F THEN
1061: x_return_status := FND_API.G_RET_STS_ERROR;
1062: return;
1063: END IF;
1064: END IF;
1065: -- inv_debug.message('TRO: reference_type_code: ' || x_return_status);
1072: THEN
1073: IF INV_Validate.Reference(p_trolin_rec.reference_id,
1074: p_trolin_rec.reference_type_code) =
1075: inv_validate.F THEN
1076: x_return_status := FND_API.G_RET_STS_ERROR;
1077: return;
1078: END IF;
1079: END IF;
1080: -- inv_debug.message('TRO: reference_id: ' || x_return_status);
1085: p_old_trolin_rec.request_id IS NULL )
1086: THEN
1087: IF INV_Validate_Trohdr.Request(p_trolin_rec.request_id) =
1088: inv_validate.F THEN
1089: x_return_status := FND_API.G_RET_STS_ERROR;
1090: return;
1091: END IF;
1092: END IF;
1093: -- inv_debug.message('TRO: request_id: ' || x_return_status);
1099: THEN
1100: IF INV_Validate.Revision(p_trolin_rec.revision,
1101: inv_validate_trohdr.g_org,
1102: g_item) = 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: revision: ' || x_return_status);
1128: IF l_mov_order_type=INV_GLOBALS.g_move_order_put_away
1129: THEN
1130:
1131: IF INV_Validate.Lot_Number(g_lot, inv_validate_trohdr.g_org, g_item) = inv_validate.F THEN
1132: x_return_status := FND_API.G_RET_STS_ERROR;
1133: return;
1134: END IF;
1135:
1136: ELSE
1137:
1138: IF INV_Validate.Lot_Number(g_lot, inv_validate_trohdr.g_org, g_item,
1139: g_from_sub, g_from_locator,
1140: p_trolin_rec.revision) = inv_validate.F THEN
1141: x_return_status := FND_API.G_RET_STS_ERROR;
1142: return;
1143: END IF;
1144:
1145: END IF;
1148: /*
1149: IF INV_Validate.Lot_Number(g_lot, inv_validate_trohdr.g_org, g_item,
1150: g_from_sub, g_from_locator,
1151: p_trolin_rec.revision) = inv_validate.F THEN
1152: x_return_status := FND_API.G_RET_STS_ERROR;
1153: return;
1154: END IF;
1155: */
1156: END IF;
1167: g_item, g_from_sub, g_lot,
1168: g_from_locator,
1169: p_trolin_rec.revision) =
1170: inv_validate.F THEN
1171: x_return_status := FND_API.G_RET_STS_ERROR;
1172: return;
1173: END IF;
1174: END IF;
1175: -- inv_debug.message('TRO: serial_number_start: ' || x_return_status);
1185: g_item, g_from_sub, g_lot,
1186: g_from_locator,
1187: p_trolin_rec.revision) =
1188: inv_validate.F THEN
1189: x_return_status := FND_API.G_RET_STS_ERROR;
1190: return;
1191: END IF;
1192: END IF;
1193: -- inv_debug.message('TRO: serial_number: ' || x_return_status);
1199: p_old_trolin_rec.status_date IS NULL )
1200: THEN
1201: IF INV_Validate_Trohdr.Status_Date(p_trolin_rec.status_date) =
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: status_date: ' || x_return_status);
1228: if l_keystat_val then
1229: l_combination_id := FND_FLEX_KEYVAL.combination_id;
1230: p_trolin_rec.to_account_id := l_combination_id;
1231: else
1232: x_return_status := FND_API.G_RET_STS_ERROR;
1233: end if;
1234: END IF;
1235:
1236:
1240: p_old_trolin_rec.to_account_id IS NULL )
1241: THEN
1242: IF INV_Validate.To_Account(p_trolin_rec.to_account_id) =
1243: inv_validate.f THEN
1244: x_return_status := FND_API.G_RET_STS_ERROR;
1245: END IF;
1246: END IF;
1247: -- inv_debug.message('TRO: to_account_id: ' || x_return_status);
1248: END IF;
1258: IF INV_Validate.To_Subinventory(g_to_sub, inv_validate_trohdr.g_org,
1259: g_item, g_from_sub, 0) =
1260: inv_validate.F THEN
1261: --inv_debug.message('ssia', 'error to_subinventory_code');
1262: x_return_status := FND_API.G_RET_STS_ERROR;
1263: return;
1264: END IF;
1265: if( g_item.restrict_subinventories_code = 1 ) then
1266: --inv_Debug.message('ssia', 'g_item_restrict subinventory code is 1');
1277: WHEN NO_DATA_FOUND THEN
1278: --inv_debug.message('ssia', 'invalid to sub');
1279: fnd_message.set_name('INV','INVALID_SUB');
1280: fnd_msg_pub.add;
1281: RAISE fnd_api.g_exc_error;
1282: END ;
1283: ELSIF g_item.restrict_subinventories_code = 2 THEN
1284: -- item is not restricted to specific subs
1285: --inv_Debug.message('ssia', 'g_item_restrict subinventory code is 2');
1294: WHEN NO_DATA_FOUND THEN
1295: --inv_debug.message('ssia', 'invalid to sub');
1296: fnd_message.SET_NAME('INV','INVALID_SUB');
1297: fnd_msg_pub.add;
1298: RAISE fnd_api.g_exc_error;
1299: END ;
1300: END IF;
1301: END IF;
1302: --inv_debug.message('ssia', 'TRO: to_subinventory: ' || x_return_status);
1347: AND ORGANIZATION_ID = inv_validate_trohdr.g_org.organization_id
1348: AND SUBINVENTORY_CODE = NULL;
1349:
1350: if SQL%NOTFOUND then
1351: x_return_status := FND_API.G_RET_STS_ERROR;
1352: return;
1353: else
1354: SELECT PROJECT_ID,TASK_ID
1355: INTO l_project_id, l_task_id
1363: 'ANY',
1364: 'N',
1365: l_project_id,
1366: l_task_id) then
1367: x_return_status := FND_API.G_RET_STS_ERROR;
1368: end if;
1369: end if;
1370: END;
1371: end if;
1369: end if;
1370: END;
1371: end if;
1372: else
1373: x_return_status := FND_API.G_RET_STS_ERROR;
1374: return;
1375: end if;
1376: p_trolin_rec.to_locator_id := INV_Value_To_Id.To_Locator(p_trolin_rec.organization_id,
1377: p_trolin_val_rec.to_locator);
1407: inv_validate_trohdr.g_org, g_item,
1408: g_to_sub, p_trolin_rec.project_id,
1409: p_trolin_rec.task_id,
1410: inv_validate_trolin.g_transaction_l.transaction_action_id) = inv_validate.F THEN
1411: x_return_status := FND_API.G_RET_STS_ERROR;
1412: return;
1413: END IF;
1414:
1415: ELSE
1417: IF INV_Validate.To_Locator(g_to_locator,
1418: inv_validate_trohdr.g_org, g_item,
1419: g_to_sub, null, null,
1420: inv_validate_trolin.g_transaction_l.transaction_action_id) = inv_validate.F THEN
1421: x_return_status := FND_API.G_RET_STS_ERROR;
1422: return;
1423: END IF;
1424: END IF;
1425: END IF;
1434: THEN
1435: IF
1436: INV_Validate.Transaction_Header(p_trolin_rec.transaction_header_id) =
1437: inv_validate.f THEN
1438: x_return_status := FND_API.G_RET_STS_ERROR;
1439: END IF;
1440: END IF;
1441: -- inv_debug.message('TRO: transaction_header_id: ' || x_return_status);
1442:
1447: THEN
1448: IF INV_Validate.HR_Location(p_trolin_rec.ship_to_location_id) =
1449: INV_Validate.F
1450: THEN
1451: x_return_status := FND_API.G_RET_STS_ERROR;
1452: END IF;
1453: END IF;
1454:
1455: IF p_trolin_rec.uom_code IS NOT NULL AND
1458: p_old_trolin_rec.uom_code IS NULL )
1459: THEN
1460: IF INV_Validate.Uom(p_trolin_rec.uom_code,
1461: inv_validate_trohdr.g_org, g_item) = inv_validate.F THEN
1462: x_return_status := FND_API.G_RET_STS_ERROR;
1463: END IF;
1464: END IF;
1465:
1466: IF p_trolin_rec.from_cost_group_id IS NOT NULL AND
1467: (p_trolin_rec.from_cost_group_id <> p_old_trolin_rec.from_cost_group_id OR
1468: p_old_trolin_rec.from_cost_group_id IS NULL) then
1469: if INV_Validate.Cost_Group(p_trolin_rec.from_cost_group_id,
1470: p_trolin_rec.organization_id) = inv_validate.F then
1471: x_return_status := FND_API.G_RET_STS_ERROR;
1472: END IF;
1473: END IF;
1474:
1475: IF p_trolin_rec.to_cost_group_id IS NOT NULL AND
1476: (p_trolin_rec.to_cost_group_id <> p_old_trolin_rec.to_cost_group_id OR
1477: p_old_trolin_rec.to_cost_group_id IS NULL) then
1478: if INV_Validate.Cost_Group(p_trolin_rec.to_cost_group_id,
1479: p_trolin_rec.organization_id) = inv_validate.F then
1480: x_return_status := FND_API.G_RET_STS_ERROR;
1481: END IF;
1482: END IF;
1483:
1484: IF p_trolin_rec.lpn_id IS NOT NULL AND
1484: IF p_trolin_rec.lpn_id IS NOT NULL AND
1485: (p_trolin_rec.lpn_id <> p_old_trolin_rec.lpn_id OR
1486: p_old_trolin_rec.lpn_id IS NULL) then
1487: if INV_Validate.LPN(p_trolin_rec.lpn_id) = inv_validate.F then
1488: x_return_status := FND_API.G_RET_STS_ERROR;
1489: END IF;
1490: END IF;
1491:
1492: IF p_trolin_rec.to_lpn_id IS NOT NULL AND
1492: IF p_trolin_rec.to_lpn_id IS NOT NULL AND
1493: (p_trolin_rec.to_lpn_id <> p_old_trolin_rec.to_lpn_id OR
1494: p_old_trolin_rec.to_lpn_id IS NULL) then
1495: if INV_Validate.LPN(p_trolin_rec.to_lpn_id) = inv_validate.F then
1496: x_return_status := FND_API.G_RET_STS_ERROR;
1497: END IF;
1498: END IF;
1499:
1500: -- inv_debug.message('TRO: uom: ' || x_return_status);
1570:
1571: -- Validate descriptive flexfield.
1572:
1573: IF INV_Validate.Desc_Flex( 'TROLIN' ) = inv_validate.F THEN
1574: x_return_status := FND_API.G_RET_STS_ERROR;
1575: END IF;
1576:
1577: END IF;
1578:
1577: END IF;
1578:
1579: -- Done validating attributes
1580: EXCEPTION
1581: WHEN FND_API.G_EXC_ERROR THEN
1582: x_return_status := FND_API.G_RET_STS_ERROR;
1583:
1584: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1578:
1579: -- Done validating attributes
1580: EXCEPTION
1581: WHEN FND_API.G_EXC_ERROR THEN
1582: x_return_status := FND_API.G_RET_STS_ERROR;
1583:
1584: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1586:
1580: EXCEPTION
1581: WHEN FND_API.G_EXC_ERROR THEN
1582: x_return_status := FND_API.G_RET_STS_ERROR;
1583:
1584: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1586:
1587: WHEN OTHERS THEN
1588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1581: WHEN FND_API.G_EXC_ERROR THEN
1582: x_return_status := FND_API.G_RET_STS_ERROR;
1583:
1584: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1586:
1587: WHEN OTHERS THEN
1588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1589:
1584: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1586:
1587: WHEN OTHERS THEN
1588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1589:
1590: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1591: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Attributes');
1592: END IF;
1598: ( x_return_status OUT NOCOPY VARCHAR2
1599: , p_trolin_rec IN INV_Move_Order_PUB.Trolin_Rec_Type
1600: )
1601: IS
1602: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1603: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1604: BEGIN
1605:
1606: -- Validate entity delete.
1610: x_return_status := l_return_status;
1611:
1612: EXCEPTION
1613:
1614: WHEN FND_API.G_EXC_ERROR THEN
1615: x_return_status := FND_API.G_RET_STS_ERROR;
1616:
1617: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1611:
1612: EXCEPTION
1613:
1614: WHEN FND_API.G_EXC_ERROR THEN
1615: x_return_status := FND_API.G_RET_STS_ERROR;
1616:
1617: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1619:
1613:
1614: WHEN FND_API.G_EXC_ERROR THEN
1615: x_return_status := FND_API.G_RET_STS_ERROR;
1616:
1617: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1619:
1620: WHEN OTHERS THEN
1621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1614: WHEN FND_API.G_EXC_ERROR THEN
1615: x_return_status := FND_API.G_RET_STS_ERROR;
1616:
1617: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1619:
1620: WHEN OTHERS THEN
1621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1622:
1617: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1619:
1620: WHEN OTHERS THEN
1621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1622:
1623: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1624: THEN
1625: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Entity_Delete');