[Home] [Help]
719: -- 4437814 start changes
720: IF (l_line_rec.item_type_code = 'CONFIG'
721: OR
722: (l_line_rec.ato_line_id = l_line_rec.line_id AND
723: l_line_rec.item_type_code IN ('STANDARD','OPTION'))) THEN
724: --Get the activity result
725: OE_LINE_FULLFILL.Get_Activity_Result
726: (p_item_type => OE_GLOBALS.G_WFI_LIN
727: ,p_item_key => l_line_rec.line_id
1967: x_result_out :=OE_GLOBALS.G_FULLY_SHIPPED;
1968: END IF;
1969:
1970: IF l_debug_level > 0 THEN
1971: OE_DEBUG_PUB.Add('Check the Decimals for Standard Items..Different UOM');
1972: OE_DEBUG_PUB.Add('Changes for Bug-3468847');
1973: END IF;
1974:
1975: IF p_line_rec.item_type_code = 'STANDARD' THEN
1971: OE_DEBUG_PUB.Add('Check the Decimals for Standard Items..Different UOM');
1972: OE_DEBUG_PUB.Add('Changes for Bug-3468847');
1973: END IF;
1974:
1975: IF p_line_rec.item_type_code = 'STANDARD' THEN
1976:
1977: SELECT count(*)
1978: INTO l_wdd_count
1979: FROM wsh_delivery_details
2492: finally it prrgressed th fulfillment of non-shippable lines
2493: if not in fulfillment set and are at fulfillment activity.
2494:
2495: Change record:
2496: bug 2361720: added call to ship_confirm_standard_line if the
2497: shipped not in proportion branch, whcih will complete the ATO
2498: model's wait for cto inturn.
2499: ---------------------------------------------------------------*/
2500: PROCEDURE Ship_Confirm_PTO_KIT
2841: IF l_debug_level > 0 THEN
2842: oe_debug_pub.add( 'INSIDE THE IF FOR SHIPPABLE LINE : ITEM TYPE : '|| L_LINE_TBL ( L_PTO_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2843: END IF;
2844:
2845: Ship_Confirm_Standard_Line
2846: ( p_line_rec => l_line_tbl(l_pto_index),
2847: p_shipment_status => l_x_result_out,
2848: x_return_status => x_return_status );
2849:
3027:
3028: IF l_activity_status = 'NOTIFIED' THEN
3029:
3030: IF l_debug_level > 0 THEN
3031: oe_debug_pub.add( 'CALLING SHIP_CONFIRM_STANDARD_LINE '
3032: || L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .LINE_ID , 3 ) ;
3033: END IF;
3034:
3035: Ship_Confirm_Standard_Line
3031: oe_debug_pub.add( 'CALLING SHIP_CONFIRM_STANDARD_LINE '
3032: || L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .LINE_ID , 3 ) ;
3033: END IF;
3034:
3035: Ship_Confirm_Standard_Line
3036: ( p_line_rec => l_split_line_tbl(l_split_index),
3037: p_shipment_status => l_x_result_out,
3038: x_return_status => x_return_status );
3039:
3291: END Ship_Confirm_PTO_KIT;
3292:
3293:
3294: /*--------------------------------------------------------------*/
3295: PROCEDURE Ship_Confirm_Standard_Line
3296: (p_line_id IN NUMBER DEFAULT FND_API.G_MISS_NUM
3297: ,p_line_rec IN OE_ORDER_PUB.line_rec_type
3298: DEFAULT OE_ORDER_PUB.G_MISS_LINE_REC
3299: ,p_shipment_status IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR
3325:
3326: BEGIN
3327:
3328: IF l_debug_level > 0 THEN
3329: oe_debug_pub.add( 'enter ship_confirm_standard_line ' , 1 ) ;
3330: END IF;
3331:
3332: IF g_debug_call > 0 THEN
3333: G_DEBUG_MSG := G_DEBUG_MSG || '101,';
3455: (l_line_rec.top_model_line_id is null OR
3456: l_line_rec.top_model_line_id = FND_API.G_MISS_NUM OR
3457: nvl(l_line_rec.model_remnant_flag,'N') = 'Y') THEN
3458:
3459: -- Split API is called only for Standard line. For PTO/ATO it
3460: -- will be called from respective procedures.
3461: -- Call Split API It should perform the followings :
3462: -- 1. Update the ordered quantity on the old line
3463: -- 2. Create a new line with Shipping_Interfaced_Flag = 'Y'
3503: ,NULL -- To uom name
3504: );
3505:
3506: IF l_debug_level > 0 THEN
3507: oe_debug_pub.add('Ship_Confirm_Standard_Line : l_temp_shipped_qty for dual control item is '|| l_temp_shipped_qty);
3508: END IF;
3509:
3510:
3511: IF g_debug_call > 0 THEN
3719: THEN
3720:
3721: IF p_check_line_set = 'Y' AND
3722: l_x_result_out <> OE_GLOBALS.G_PARTIALLY_SHIPPED AND
3723: l_line_rec.item_type_code IN ('STANDARD') THEN
3724:
3725: -- not now 'CONFIG'
3726: -- l_line_rec.ordered_quantity
3727: -- 2617708 OE_CODE_CONTROL.CODE_RELEASE_LEVEL <= '110508' THEN
3816: END IF;
3817: x_return_status := FND_API.G_RET_STS_SUCCESS;
3818:
3819: IF l_debug_level > 0 THEN
3820: oe_debug_pub.add( 'EXITING SHIP_CONFIRM_STANDARD_LINE '|| X_RETURN_STATUS , 1 ) ;
3821: END IF;
3822:
3823: EXCEPTION
3824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3827: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3828: THEN
3829: OE_MSG_PUB.Add_Exc_Msg
3830: ( G_PKG_NAME,
3831: 'Ship_Confirm_Standard_Line'
3832: );
3833: END IF;
3834: IF g_debug_call > 0 THEN
3835: G_DEBUG_MSG := G_DEBUG_MSG || 'E20';
3836: END IF;
3837:
3838: WHEN FND_API.G_EXC_ERROR THEN
3839: IF l_debug_level > 0 THEN
3840: oe_debug_pub.add( 'SHIP_CONFIRM_STANDARD_LINE EXC ERROR' , 1 ) ;
3841: END IF;
3842: x_return_status := FND_API.G_RET_STS_ERROR;
3843: IF g_debug_call > 0 THEN
3844: G_DEBUG_MSG := G_DEBUG_MSG || 'E-21';
3853: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3854: THEN
3855: OE_MSG_PUB.Add_Exc_Msg
3856: ( G_PKG_NAME,
3857: 'Ship_Confirm_Standard_Line'
3858: );
3859: END IF;
3860: IF g_debug_call > 0 THEN
3861: G_DEBUG_MSG := G_DEBUG_MSG || 'E22';
3859: END IF;
3860: IF g_debug_call > 0 THEN
3861: G_DEBUG_MSG := G_DEBUG_MSG || 'E22';
3862: END IF;
3863: END Ship_Confirm_Standard_Line;
3864:
3865: /*--------------------------------------------------------------
3866: PROCEDURE Handle_Config_Parent
3867: To progress the ATO parent of config line.
4146:
4147:
4148: ------- call ship confirm std line to complete wf, flow sts ---
4149:
4150: Ship_Confirm_Standard_Line
4151: (p_line_id => l_line_id,
4152: x_return_status => l_return_status);
4153:
4154: IF g_debug_call > 0 THEN
4255: IF l_debug_level > 0 THEN
4256: oe_debug_pub.add( 'SET IS CLOSED : '||TO_CHAR ( P_SHIP_SET_ID ) , 3 ) ;
4257: END IF;
4258:
4259: -- Prepare a table with PTO_KIT/ATO/STANDARD lines.
4260:
4261: FOR l_line_index IN l_line_tbl.FIRST .. l_line_tbl.LAST
4262: LOOP
4263:
4290: END IF;
4291: l_process_index := l_process_index + 1;
4292: l_process_tbl(l_process_index) := l_line_tbl(l_line_index);
4293:
4294: ELSIF l_line_tbl(l_line_index).item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
4295:
4296: IF l_debug_level > 0 THEN
4297: oe_debug_pub.add( 'IT IS A STANDARD LINE' , 3 ) ;
4298: END IF;
4293:
4294: ELSIF l_line_tbl(l_line_index).item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
4295:
4296: IF l_debug_level > 0 THEN
4297: oe_debug_pub.add( 'IT IS A STANDARD LINE' , 3 ) ;
4298: END IF;
4299: l_process_index := l_process_index + 1;
4300: l_process_tbl(l_process_index) := l_line_tbl(l_line_index);
4301: END IF;
4360: l_process_tbl(l_process_index).shipped_quantity <> FND_API.G_MISS_NUM THEN
4361: IF l_debug_level > 0 THEN
4362: oe_debug_pub.add( 'INSIDE THE LOOP : LINE ID : '|| TO_CHAR ( L_PROCESS_TBL ( L_PROCESS_INDEX ) .LINE_ID ) , 3 ) ;
4363: END IF;
4364: IF l_process_tbl(l_process_index).item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
4365: Ship_Confirm_Standard_Line
4366: (
4367: p_line_rec => l_process_tbl(l_process_index),
4368: x_return_status => l_return_status
4361: IF l_debug_level > 0 THEN
4362: oe_debug_pub.add( 'INSIDE THE LOOP : LINE ID : '|| TO_CHAR ( L_PROCESS_TBL ( L_PROCESS_INDEX ) .LINE_ID ) , 3 ) ;
4363: END IF;
4364: IF l_process_tbl(l_process_index).item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
4365: Ship_Confirm_Standard_Line
4366: (
4367: p_line_rec => l_process_tbl(l_process_index),
4368: x_return_status => l_return_status
4369: );
4610: RAISE FND_API.G_EXC_ERROR;
4611: END IF;
4612: ELSE
4613:
4614: -- Call procedure for Ship Confirmation of Standard Line
4615: IF g_debug_call > 0 THEN
4616: G_DEBUG_MSG := G_DEBUG_MSG || '12-5';
4617: END IF;
4618:
4615: IF g_debug_call > 0 THEN
4616: G_DEBUG_MSG := G_DEBUG_MSG || '12-5';
4617: END IF;
4618:
4619: Ship_Confirm_Standard_Line
4620: (
4621: p_line_id => p_process_id,
4622: x_return_status => l_x_return_status
4623: );
4702: This procedure is called from workflow.
4703: It broadly has 3 sections,
4704: external/return lines
4705: SMC lines
4706: non SMC and standard lines
4707:
4708: Change Record : bug fix 3539694 - included items if created
4709: by scheduling wf activity, bypass hvop.
4710: --------------------------------------------------------------*/
5218: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5219: RAISE FND_API.G_EXC_ERROR;
5220: END IF;
5221:
5222: ELSE -- standard, non-smc etc
5223:
5224: IF l_shippable_flag = 'Y' THEN
5225:
5226: IF l_debug_level > 0 THEN
5260: l_flow_status_code := 'AWAITING_SHIPPING';
5261: END IF;
5262:
5263: IF ((l_item_type_code = 'CONFIG' OR
5264: (l_item_type_code IN ('STANDARD','OPTION') AND
5265: l_ato_line_id = l_line_id)) AND
5266: l_source_type_code = 'INTERNAL') OR
5267: nvl(l_shippable_flag,'N') = 'N' THEN
5268:
5683: This procedure is used to ship confirm split lines when ship
5684: confirmation of other lines in the line set results in fulfilling
5685: the ordered quantity within or beyond tolerance.
5686:
5687: It will be used for standard lines and Config items.
5688: p_line_rec provide details about the line getting ship confirmed
5689: we need to cehck if due shipment of this line if we need to
5690: close other lines.
5691:
5801: IF l_debug_level > 0 THEN
5802: oe_debug_pub.add('line set id '|| line_rec.line_set_id , 3 ) ;
5803: END IF;
5804:
5805: Ship_Confirm_Standard_Line
5806: ( p_line_rec => l_line_set_rec,
5807: p_shipment_status => p_shipment_status,
5808: p_check_line_set => 'N',
5809: x_return_status => l_return_status );