74: )
75: IS
76: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
77: l_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
78: l_control_rec INV_GLOBALS.Control_Rec_Type;
79: l_return_status VARCHAR2(1);
80: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
81: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
82: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
81: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
82: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
83: BEGIN
84:
85: INV_GLOBALS.G_CALL_MODE := 'FORM';
86: INV_GLOBALS.G_MAX_LINE_NUM := null;
87: -- Set control flags.
88:
89: l_control_rec.controlled_operation := TRUE;
82: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
83: BEGIN
84:
85: INV_GLOBALS.G_CALL_MODE := 'FORM';
86: INV_GLOBALS.G_MAX_LINE_NUM := null;
87: -- Set control flags.
88:
89: l_control_rec.controlled_operation := TRUE;
90: l_control_rec.default_attributes := TRUE;
123: l_trohdr_rec.attribute_category := NULL;
124:
125: -- Set Operation to Create
126:
127: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_CREATE;
128:
129: -- Call INV_Transfer_Order_PVT.Process_Transfer_Order
130:
131: INV_Transfer_Order_PVT.Process_Transfer_Order
299: IS
300: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
301: l_old_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
302: l_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
303: l_control_rec INV_GLOBALS.Control_Rec_Type;
304: l_return_status VARCHAR2(1);
305: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
306: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
307: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
368:
369: -- Set Operation.
370:
371: IF FND_API.To_Boolean(l_trohdr_rec.db_flag) THEN
372: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_UPDATE;
373: ELSE
374: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_CREATE;
375: END IF;
376:
370:
371: IF FND_API.To_Boolean(l_trohdr_rec.db_flag) THEN
372: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_UPDATE;
373: ELSE
374: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_CREATE;
375: END IF;
376:
377: -- Call INV_Transfer_Order_PVT.Process_Transfer_Order
378:
445: );
446:
447: -- Return changed attributes.
448:
449: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.attribute1,
450: l_trohdr_rec.attribute1)
451: THEN
452: x_attribute1 := l_x_trohdr_rec.attribute1;
453: END IF;
451: THEN
452: x_attribute1 := l_x_trohdr_rec.attribute1;
453: END IF;
454:
455: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.attribute10,
456: l_trohdr_rec.attribute10)
457: THEN
458: x_attribute10 := l_x_trohdr_rec.attribute10;
459: END IF;
457: THEN
458: x_attribute10 := l_x_trohdr_rec.attribute10;
459: END IF;
460:
461: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.attribute11,
462: l_trohdr_rec.attribute11)
463: THEN
464: x_attribute11 := l_x_trohdr_rec.attribute11;
465: END IF;
463: THEN
464: x_attribute11 := l_x_trohdr_rec.attribute11;
465: END IF;
466:
467: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.attribute12,
468: l_trohdr_rec.attribute12)
469: THEN
470: x_attribute12 := l_x_trohdr_rec.attribute12;
471: END IF;
469: THEN
470: x_attribute12 := l_x_trohdr_rec.attribute12;
471: END IF;
472:
473: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.attribute13,
474: l_trohdr_rec.attribute13)
475: THEN
476: x_attribute13 := l_x_trohdr_rec.attribute13;
477: END IF;
475: THEN
476: x_attribute13 := l_x_trohdr_rec.attribute13;
477: END IF;
478:
479: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.attribute14,
480: l_trohdr_rec.attribute14)
481: THEN
482: x_attribute14 := l_x_trohdr_rec.attribute14;
483: END IF;
481: THEN
482: x_attribute14 := l_x_trohdr_rec.attribute14;
483: END IF;
484:
485: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.attribute15,
486: l_trohdr_rec.attribute15)
487: THEN
488: x_attribute15 := l_x_trohdr_rec.attribute15;
489: END IF;
487: THEN
488: x_attribute15 := l_x_trohdr_rec.attribute15;
489: END IF;
490:
491: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.attribute2,
492: l_trohdr_rec.attribute2)
493: THEN
494: x_attribute2 := l_x_trohdr_rec.attribute2;
495: END IF;
493: THEN
494: x_attribute2 := l_x_trohdr_rec.attribute2;
495: END IF;
496:
497: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.attribute3,
498: l_trohdr_rec.attribute3)
499: THEN
500: x_attribute3 := l_x_trohdr_rec.attribute3;
501: END IF;
499: THEN
500: x_attribute3 := l_x_trohdr_rec.attribute3;
501: END IF;
502:
503: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.attribute4,
504: l_trohdr_rec.attribute4)
505: THEN
506: x_attribute4 := l_x_trohdr_rec.attribute4;
507: END IF;
505: THEN
506: x_attribute4 := l_x_trohdr_rec.attribute4;
507: END IF;
508:
509: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.attribute5,
510: l_trohdr_rec.attribute5)
511: THEN
512: x_attribute5 := l_x_trohdr_rec.attribute5;
513: END IF;
511: THEN
512: x_attribute5 := l_x_trohdr_rec.attribute5;
513: END IF;
514:
515: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.attribute6,
516: l_trohdr_rec.attribute6)
517: THEN
518: x_attribute6 := l_x_trohdr_rec.attribute6;
519: END IF;
517: THEN
518: x_attribute6 := l_x_trohdr_rec.attribute6;
519: END IF;
520:
521: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.attribute7,
522: l_trohdr_rec.attribute7)
523: THEN
524: x_attribute7 := l_x_trohdr_rec.attribute7;
525: END IF;
523: THEN
524: x_attribute7 := l_x_trohdr_rec.attribute7;
525: END IF;
526:
527: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.attribute8,
528: l_trohdr_rec.attribute8)
529: THEN
530: x_attribute8 := l_x_trohdr_rec.attribute8;
531: END IF;
529: THEN
530: x_attribute8 := l_x_trohdr_rec.attribute8;
531: END IF;
532:
533: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.attribute9,
534: l_trohdr_rec.attribute9)
535: THEN
536: x_attribute9 := l_x_trohdr_rec.attribute9;
537: END IF;
535: THEN
536: x_attribute9 := l_x_trohdr_rec.attribute9;
537: END IF;
538:
539: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.attribute_category,
540: l_trohdr_rec.attribute_category)
541: THEN
542: x_attribute_category := l_x_trohdr_rec.attribute_category;
543: END IF;
541: THEN
542: x_attribute_category := l_x_trohdr_rec.attribute_category;
543: END IF;
544:
545: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.date_required,
546: l_trohdr_rec.date_required)
547: THEN
548: x_date_required := l_x_trohdr_rec.date_required;
549: END IF;
547: THEN
548: x_date_required := l_x_trohdr_rec.date_required;
549: END IF;
550:
551: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.description,
552: l_trohdr_rec.description)
553: THEN
554: x_description := l_x_trohdr_rec.description;
555: END IF;
553: THEN
554: x_description := l_x_trohdr_rec.description;
555: END IF;
556:
557: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.from_subinventory_code,
558: l_trohdr_rec.from_subinventory_code)
559: THEN
560: x_from_subinventory_code := l_x_trohdr_rec.from_subinventory_code;
561: x_from_subinventory := l_trohdr_val_rec.from_subinventory;
560: x_from_subinventory_code := l_x_trohdr_rec.from_subinventory_code;
561: x_from_subinventory := l_trohdr_val_rec.from_subinventory;
562: END IF;
563:
564: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.header_id,
565: l_trohdr_rec.header_id)
566: THEN
567: x_header_id := l_x_trohdr_rec.header_id;
568: x_header := l_trohdr_val_rec.header;
567: x_header_id := l_x_trohdr_rec.header_id;
568: x_header := l_trohdr_val_rec.header;
569: END IF;
570:
571: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.header_status,
572: l_trohdr_rec.header_status)
573: THEN
574: x_header_status := l_x_trohdr_rec.header_status;
575: END IF;
573: THEN
574: x_header_status := l_x_trohdr_rec.header_status;
575: END IF;
576:
577: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.organization_id,
578: l_trohdr_rec.organization_id)
579: THEN
580: x_organization_id := l_x_trohdr_rec.organization_id;
581: x_organization := l_trohdr_val_rec.organization;
580: x_organization_id := l_x_trohdr_rec.organization_id;
581: x_organization := l_trohdr_val_rec.organization;
582: END IF;
583:
584: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.request_number,
585: l_trohdr_rec.request_number)
586: THEN
587: x_request_number := l_x_trohdr_rec.request_number;
588: END IF;
586: THEN
587: x_request_number := l_x_trohdr_rec.request_number;
588: END IF;
589:
590: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.status_date,
591: l_trohdr_rec.status_date)
592: THEN
593: x_status_date := l_x_trohdr_rec.status_date;
594: END IF;
592: THEN
593: x_status_date := l_x_trohdr_rec.status_date;
594: END IF;
595:
596: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.to_account_id,
597: l_trohdr_rec.to_account_id)
598: THEN
599: x_to_account_id := l_x_trohdr_rec.to_account_id;
600: x_to_account := l_trohdr_val_rec.to_account;
599: x_to_account_id := l_x_trohdr_rec.to_account_id;
600: x_to_account := l_trohdr_val_rec.to_account;
601: END IF;
602:
603: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.to_subinventory_code,
604: l_trohdr_rec.to_subinventory_code)
605: THEN
606: x_to_subinventory_code := l_x_trohdr_rec.to_subinventory_code;
607: x_to_subinventory := l_trohdr_val_rec.to_subinventory;
607: x_to_subinventory := l_trohdr_val_rec.to_subinventory;
608: END IF;
609:
610: -- ssia mo enhancement changes
611: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.move_order_type,
612: l_trohdr_rec.move_order_type)
613: THEN
614: x_move_order_type := l_x_trohdr_rec.move_order_type;
615: x_move_order_type_name := l_trohdr_val_rec.move_order_type;
615: x_move_order_type_name := l_trohdr_val_rec.move_order_type;
616: END IF;
617: -- ssia end of changes
618:
619: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.transaction_type_id,
620: l_trohdr_rec.transaction_type_id)
621: THEN
622: x_transaction_type_id := l_x_trohdr_rec.transaction_type_id;
623: END IF;
621: THEN
622: x_transaction_type_id := l_x_trohdr_rec.transaction_type_id;
623: END IF;
624:
625: IF NOT INV_GLOBALS.Equal(l_x_trohdr_rec.ship_to_location_id,
626: l_trohdr_rec.ship_to_location_id)
627: THEN
628: x_ship_to_location_id := l_x_trohdr_rec.ship_to_location_id;
629: END IF;
738: )
739: IS
740: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
741: l_old_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
742: l_control_rec INV_GLOBALS.Control_Rec_Type;
743: l_return_status VARCHAR2(1);
744: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
745: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
746: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
806:
807: -- Set Operation.
808:
809: IF FND_API.To_Boolean(l_trohdr_rec.db_flag) THEN
810: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_UPDATE;
811: ELSE
812: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_CREATE;
813: END IF;
814:
808:
809: IF FND_API.To_Boolean(l_trohdr_rec.db_flag) THEN
810: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_UPDATE;
811: ELSE
812: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_CREATE;
813: END IF;
814:
815: -- Call INV_Transfer_Order_PVT.Process_Transfer_Order
816:
919: , p_header_id IN NUMBER
920: )
921: IS
922: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
923: l_control_rec INV_GLOBALS.Control_Rec_Type;
924: l_return_status VARCHAR2(1);
925: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
926: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
927: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
950: );
951:
952: -- Set Operation.
953:
954: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_DELETE;
955:
956: -- Call INV_Transfer_Order_PVT.Process_Transfer_Order
957:
958: INV_Transfer_Order_PVT.Process_Transfer_Order
1043: , x_msg_count OUT NOCOPY NUMBER
1044: , x_msg_data OUT NOCOPY VARCHAR2
1045: )
1046: IS
1047: l_control_rec INV_GLOBALS.Control_Rec_Type;
1048: l_return_status VARCHAR2(1);
1049: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1050: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
1051: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
1054: -- Set control flags.
1055:
1056: l_control_rec.controlled_operation := TRUE;
1057: l_control_rec.process := TRUE;
1058: l_control_rec.process_entity := INV_GLOBALS.G_ENTITY_TROHDR;
1059:
1060: l_control_rec.default_attributes := FALSE;
1061: l_control_rec.change_attributes := FALSE;
1062: l_control_rec.validate_entity := FALSE;
1152: , x_msg_count OUT NOCOPY NUMBER
1153: , x_msg_data OUT NOCOPY VARCHAR2
1154: )
1155: IS
1156: l_control_rec INV_GLOBALS.Control_Rec_Type;
1157: l_return_status VARCHAR2(1);
1158: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1159: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
1160: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
1163: -- Set control flags.
1164:
1165: l_control_rec.controlled_operation := TRUE;
1166: l_control_rec.process := TRUE;
1167: l_control_rec.process_entity := INV_GLOBALS.G_ENTITY_ALL;
1168:
1169: l_control_rec.default_attributes := FALSE;
1170: l_control_rec.change_attributes := FALSE;
1171: l_control_rec.validate_entity := FALSE;