[Home] [Help]
721:
722: ELSIF (x_line_tbl(I).ship_model_complete_flag ='Y') THEN
723: x_line_tbl(I).ship_set := x_line_tbl(I).top_model_line_id;
724: ELSIF (x_line_tbl(I).ato_line_id is not null)
725: AND NOT(OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
726: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10) THEN
727: x_line_tbl(I).ship_set := x_line_tbl(I).ato_line_id;
728: END IF;
729:
822:
823:
824: -- Pack J
825: IF l_line_rec.reserved_quantity = 0
826: OR ( OE_CODE_CONTROL.Get_Code_Release_Level >= '110510'
827: --AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG')= 'Y'
828: AND l_line_rec.ordered_quantity >
829: l_line_rec.reserved_quantity) THEN
830:
842:
843: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
844: --Pack J
845: -- To calculate the remaining quantity to be reserved
846: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
847: --AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG')= 'Y'
848: AND l_line_rec.ordered_quantity >
849: l_line_rec.reserved_quantity THEN
850: l_quantity_to_reserve := l_line_rec.ordered_quantity - l_line_rec.reserved_quantity;
851: ELSE
852: l_quantity_to_reserve := l_line_rec.ordered_quantity;
853: END IF;
854:
855: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' -- INVCONV
856: AND l_line_rec.ordered_quantity2 >
857: l_line_rec.reserved_quantity2 THEN
858: l_quantity2_to_reserve := nvl(l_line_rec.ordered_quantity2, 0) - nvl(l_line_rec.reserved_quantity2,0);
859: ELSE
953: x_line_tbl(I).ship_set := l_set_rec.set_name;
954: ELSIF (x_line_tbl(I).ship_model_complete_flag ='Y') THEN
955: x_line_tbl(I).ship_set := x_line_tbl(I).top_model_line_id;
956: ELSIF (x_line_tbl(I).ato_line_id is not null)
957: AND NOT(OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
958: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10) THEN
959: x_line_tbl(I).ship_set := x_line_tbl(I).ato_line_id;
960: END IF;
961:
1033: x_line_tbl(I).ship_set := l_set_rec.set_name;
1034: ELSIF (x_line_tbl(I).ship_model_complete_flag ='Y') THEN
1035: x_line_tbl(I).ship_set := x_line_tbl(I).top_model_line_id;
1036: ELSIF (x_line_tbl(I).ato_line_id is not null)
1037: AND NOT(OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
1038: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10) THEN
1039: x_line_tbl(I).ship_set := x_line_tbl(I).ato_line_id;
1040: END IF;
1041:
1314:
1315: IF (x_line_tbl(I).ship_model_complete_flag ='Y') THEN
1316: x_line_tbl(I).ship_set := x_line_tbl(I).top_model_line_id;
1317: ELSIF (x_line_tbl(I).ato_line_id is not null)
1318: AND NOT(OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
1319: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10) THEN
1320: x_line_tbl(I).ship_set := x_line_tbl(I).ato_line_id;
1321: END IF;
1322:
3027: -- Pack J
3028: -- Check for Partial reservation flag when the line is partially reserved
3029: IF nvl(l_line_tbl(I).shippable_flag,'N') = 'Y'
3030: AND ((l_line_tbl(I).reserved_quantity = 0)
3031: OR ( OE_CODE_CONTROL.Get_Code_Release_Level >= '110510'
3032: --AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG')= 'Y'
3033: AND l_line_tbl(I).ordered_quantity >
3034: l_line_tbl(I).reserved_quantity)) THEN
3035:
3046:
3047: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3048: --Pack J
3049: -- To calculate the remaining quantity to be reserved
3050: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
3051: --AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG')= 'Y'
3052: AND l_line_tbl(I).ordered_quantity >
3053: l_line_tbl(I).reserved_quantity THEN
3054: l_quantity_to_reserve := l_line_tbl(I).ordered_quantity - l_line_tbl(I).reserved_quantity;
3055: ELSE
3056: l_quantity_to_reserve := l_line_tbl(I).ordered_quantity;
3057: END IF;
3058:
3059: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' -- INVCONV
3060: --AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG')= 'Y'
3061: AND l_line_tbl(I).ordered_quantity2 >
3062: l_line_tbl(I).reserved_quantity2 THEN
3063: l_quantity2_to_reserve := l_line_tbl(I).ordered_quantity2 - l_line_tbl(I).reserved_quantity2;
3863: l_line_tbl(I).ship_set := l_set_rec.set_name;
3864: ELSIF (l_line_tbl(I).ship_model_complete_flag ='Y') THEN
3865: l_line_tbl(I).ship_set := l_line_tbl(I).top_model_line_id;
3866: ELSIF (l_line_tbl(I).ato_line_id is not null)
3867: AND NOT(OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
3868: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10)
3869: THEN
3870: l_line_tbl(I).ship_set := l_line_tbl(I).ato_line_id;
3871: END IF;
4195:
4196: goto END_OF_PROCESS;
4197:
4198: END IF;
4199: IF (OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
4200: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10) THEN
4201:
4202: IF l_top_model_line_id <> p_sch_set_tbl(I).entity_id
4203: AND l_top_model_line_id is not null
4557:
4558: K := K + 1;
4559:
4560: -- BUG 1282873
4561: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
4562: IF l_line_rec.override_atp_date_code = 'Y' THEN
4563: l_iline_tbl(M).override_atp_date_code := l_line_rec.override_atp_date_code;
4564: IF l_debug_level > 0 THEN
4565: oe_debug_pub.add( 'OVERRIDE_ATP :' || L_ILINE_TBL(M).OVERRIDE_ATP_DATE_CODE , 3 ) ;
5134: END IF;
5135:
5136: -- Start 2716220 --
5137: -- To check schedule dates with override flag
5138: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
5139: FOR I IN 1..l_line_tbl.count LOOP
5140: IF NVL(l_line_tbl(I).override_atp_date_code,'N') = 'Y'
5141: AND l_line_tbl(I).schedule_status_code is NULL
5142: THEN
5317: END IF;
5318:
5319:
5320: -- BUG 1282873 (Override Atp)
5321: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509'
5322: AND nvl(l_line_tbl(I).override_atp_date_code,'N') = 'N' THEN
5323:
5324: IF (l_line_tbl(I).ato_line_id is not null AND
5325: NOT (l_line_tbl(I).ato_line_id = l_line_tbl(I).line_id AND