3147: -- In case of Push Replenishement, once all replenishment tasks are
3148: -- completed, user will perform pick release manually.
3149: -- Just to keep in mind, we do not distinguish dynamic and push in the Allocate_repl_move_order Conc Request
3150:
3151: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
3152: l_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
3153: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
3154: l_x_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
3155: l_commit VARCHAR2(1) := FND_API.G_TRUE;
3148: -- completed, user will perform pick release manually.
3149: -- Just to keep in mind, we do not distinguish dynamic and push in the Allocate_repl_move_order Conc Request
3150:
3151: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
3152: l_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
3153: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
3154: l_x_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
3155: l_commit VARCHAR2(1) := FND_API.G_TRUE;
3156:
3149: -- Just to keep in mind, we do not distinguish dynamic and push in the Allocate_repl_move_order Conc Request
3150:
3151: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
3152: l_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
3153: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
3154: l_x_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
3155: l_commit VARCHAR2(1) := FND_API.G_TRUE;
3156:
3157: l_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
3150:
3151: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
3152: l_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
3153: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
3154: l_x_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
3155: l_commit VARCHAR2(1) := FND_API.G_TRUE;
3156:
3157: l_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
3158: l_trolin_val_tbl INV_Move_Order_PUB.Trolin_Val_Tbl_Type;
3153: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
3154: l_x_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
3155: l_commit VARCHAR2(1) := FND_API.G_TRUE;
3156:
3157: l_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
3158: l_trolin_val_tbl INV_Move_Order_PUB.Trolin_Val_Tbl_Type;
3159: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
3160: l_x_trolin_val_tbl INV_Move_Order_PUB.Trolin_Val_Tbl_Type;
3161:
3154: l_x_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
3155: l_commit VARCHAR2(1) := FND_API.G_TRUE;
3156:
3157: l_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
3158: l_trolin_val_tbl INV_Move_Order_PUB.Trolin_Val_Tbl_Type;
3159: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
3160: l_x_trolin_val_tbl INV_Move_Order_PUB.Trolin_Val_Tbl_Type;
3161:
3162: l_return_status VARCHAR2(1);
3155: l_commit VARCHAR2(1) := FND_API.G_TRUE;
3156:
3157: l_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
3158: l_trolin_val_tbl INV_Move_Order_PUB.Trolin_Val_Tbl_Type;
3159: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
3160: l_x_trolin_val_tbl INV_Move_Order_PUB.Trolin_Val_Tbl_Type;
3161:
3162: l_return_status VARCHAR2(1);
3163: l_msg_count NUMBER;
3156:
3157: l_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
3158: l_trolin_val_tbl INV_Move_Order_PUB.Trolin_Val_Tbl_Type;
3159: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
3160: l_x_trolin_val_tbl INV_Move_Order_PUB.Trolin_Val_Tbl_Type;
3161:
3162: l_return_status VARCHAR2(1);
3163: l_msg_count NUMBER;
3164: l_msg_data VARCHAR2(1000);
3358: l_trohdr_rec.organization_id := p_consol_item_repl_tbl(i).organization_id;
3359:
3360: -- Create MO Header
3361: IF l_debug = 1 THEN
3362: print_debug('CALLING INV_Move_Order_PUB.Create_Move_Order_Header');
3363: END IF;
3364:
3365: INV_Move_Order_PUB.Create_Move_Order_Header(p_api_version_number => 1.0,
3366: p_init_msg_list => FND_API.G_FALSE,
3361: IF l_debug = 1 THEN
3362: print_debug('CALLING INV_Move_Order_PUB.Create_Move_Order_Header');
3363: END IF;
3364:
3365: INV_Move_Order_PUB.Create_Move_Order_Header(p_api_version_number => 1.0,
3366: p_init_msg_list => FND_API.G_FALSE,
3367: p_return_values => FND_API.G_TRUE,
3368: p_commit => l_commit,
3369: x_return_status => l_return_status,
3372: p_trohdr_rec => l_trohdr_rec,
3373: p_trohdr_val_rec => l_trohdr_val_rec,
3374: x_trohdr_rec => l_x_trohdr_rec,
3375: x_trohdr_val_rec => l_x_trohdr_val_rec,
3376: p_validation_flag => inv_move_order_pub.g_validation_yes
3377: );
3378:
3379:
3380: IF l_debug = 1 THEN
3603: l_order_count:= 1;
3604:
3605: -- Create MO Lines
3606: IF l_debug = 1 THEN
3607: print_debug('CALLING INV_Move_Order_PUB.Create_Move_Order_Lines');
3608: END IF;
3609: l_line_num := l_line_num + 1;
3610: l_trolin_tbl(l_order_count).header_id := l_x_trohdr_rec.header_id;
3611: l_trolin_tbl(l_order_count).created_by := fnd_global.user_id;
3634: -- mo header IN THE l_trolin_tbl TABLE AND THEN CALL ONLY ONCE FOR
3635: -- PERFORMACE REASON. THEN FOR EACH MO LINE FROM THE SAME TABLE,
3636: -- CREATE RESERVATION FOR CORRESPONDING DEMAND LINES, IF NEEDED
3637: l_return_status := fnd_api.g_ret_sts_success;
3638: INV_Move_Order_PUB.Create_Move_Order_Lines(
3639: p_api_version_number => 1.0,
3640: p_init_msg_list => FND_API.G_FALSE,
3641: p_commit => l_commit,
3642: x_return_status => l_return_status,
3649: p_validation_flag => 'Y' );
3650:
3651:
3652: IF L_DEBUG = 1 THEN
3653: print_debug('After call to INV_Move_Order_PUB.Create_Move_Order_Lines');
3654: END IF;
3655:
3656: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3657:
3655:
3656: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3657:
3658: IF L_DEBUG = 1 THEN
3659: print_debug('INV_Move_Order_PUB.Create_Move_Order_Lines failed with expected error returning message: ' || l_msg_data || l_msg_count);
3660: END IF;
3661: IF l_msg_count > 0 THEN
3662: FOR i in 1 .. l_msg_count LOOP
3663: l_msg := fnd_msg_pub.get(i, 'F');
3669: l_trolin_tbl.DELETE(l_order_count);
3670: GOTO next_consol_rec;
3671: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3672: IF L_DEBUG= 1 THEN
3673: print_debug('INV_Move_Order_PUB.Create_Move_Order_Lines failed with unexpected error returning message: ' || l_msg_data);
3674: END IF;
3675:
3676: IF l_msg_count > 0 THEN
3677: FOR i in 1 .. l_msg_count LOOP
3684: l_trolin_tbl.DELETE(l_order_count);
3685: GOTO next_consol_rec;
3686: ELSE
3687: IF L_DEBUG = 1 THEN
3688: print_debug('INV_Move_Order_PUB.Create_Move_Order_Lines returned success');
3689: END IF;
3690: END IF;
3691:
3692: