[Home] [Help]
714:
715: ELSIF (x_line_tbl(I).ship_model_complete_flag ='Y') THEN
716: x_line_tbl(I).ship_set := x_line_tbl(I).top_model_line_id;
717: ELSIF (x_line_tbl(I).ato_line_id is not null)
718: AND NOT(OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
719: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10) THEN
720: x_line_tbl(I).ship_set := x_line_tbl(I).ato_line_id;
721: END IF;
722:
815:
816:
817: -- Pack J
818: IF l_line_rec.reserved_quantity = 0
819: OR ( OE_CODE_CONTROL.Get_Code_Release_Level >= '110510'
820: --AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG')= 'Y'
821: AND l_line_rec.ordered_quantity >
822: l_line_rec.reserved_quantity) THEN
823:
835:
836: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
837: --Pack J
838: -- To calculate the remaining quantity to be reserved
839: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
840: --AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG')= 'Y'
841: AND l_line_rec.ordered_quantity >
842: l_line_rec.reserved_quantity THEN
843: l_quantity_to_reserve := l_line_rec.ordered_quantity - l_line_rec.reserved_quantity;
844: ELSE
845: l_quantity_to_reserve := l_line_rec.ordered_quantity;
846: END IF;
847:
848: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' -- INVCONV
849: AND l_line_rec.ordered_quantity2 >
850: l_line_rec.reserved_quantity2 THEN
851: l_quantity2_to_reserve := nvl(l_line_rec.ordered_quantity2, 0) - nvl(l_line_rec.reserved_quantity2,0);
852: ELSE
946: x_line_tbl(I).ship_set := l_set_rec.set_name;
947: ELSIF (x_line_tbl(I).ship_model_complete_flag ='Y') THEN
948: x_line_tbl(I).ship_set := x_line_tbl(I).top_model_line_id;
949: ELSIF (x_line_tbl(I).ato_line_id is not null)
950: AND NOT(OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
951: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10) THEN
952: x_line_tbl(I).ship_set := x_line_tbl(I).ato_line_id;
953: END IF;
954:
1026: x_line_tbl(I).ship_set := l_set_rec.set_name;
1027: ELSIF (x_line_tbl(I).ship_model_complete_flag ='Y') THEN
1028: x_line_tbl(I).ship_set := x_line_tbl(I).top_model_line_id;
1029: ELSIF (x_line_tbl(I).ato_line_id is not null)
1030: AND NOT(OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
1031: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10) THEN
1032: x_line_tbl(I).ship_set := x_line_tbl(I).ato_line_id;
1033: END IF;
1034:
1307:
1308: IF (x_line_tbl(I).ship_model_complete_flag ='Y') THEN
1309: x_line_tbl(I).ship_set := x_line_tbl(I).top_model_line_id;
1310: ELSIF (x_line_tbl(I).ato_line_id is not null)
1311: AND NOT(OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
1312: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10) THEN
1313: x_line_tbl(I).ship_set := x_line_tbl(I).ato_line_id;
1314: END IF;
1315:
2948: -- Pack J
2949: -- Check for Partial reservation flag when the line is partially reserved
2950: IF nvl(l_line_tbl(I).shippable_flag,'N') = 'Y'
2951: AND ((l_line_tbl(I).reserved_quantity = 0)
2952: OR ( OE_CODE_CONTROL.Get_Code_Release_Level >= '110510'
2953: --AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG')= 'Y'
2954: AND l_line_tbl(I).ordered_quantity >
2955: l_line_tbl(I).reserved_quantity)) THEN
2956:
2967:
2968: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2969: --Pack J
2970: -- To calculate the remaining quantity to be reserved
2971: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
2972: --AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG')= 'Y'
2973: AND l_line_tbl(I).ordered_quantity >
2974: l_line_tbl(I).reserved_quantity THEN
2975: l_quantity_to_reserve := l_line_tbl(I).ordered_quantity - l_line_tbl(I).reserved_quantity;
2976: ELSE
2977: l_quantity_to_reserve := l_line_tbl(I).ordered_quantity;
2978: END IF;
2979:
2980: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' -- INVCONV
2981: --AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG')= 'Y'
2982: AND l_line_tbl(I).ordered_quantity2 >
2983: l_line_tbl(I).reserved_quantity2 THEN
2984: l_quantity2_to_reserve := l_line_tbl(I).ordered_quantity2 - l_line_tbl(I).reserved_quantity2;
3779: l_line_tbl(I).ship_set := l_set_rec.set_name;
3780: ELSIF (l_line_tbl(I).ship_model_complete_flag ='Y') THEN
3781: l_line_tbl(I).ship_set := l_line_tbl(I).top_model_line_id;
3782: ELSIF (l_line_tbl(I).ato_line_id is not null)
3783: AND NOT(OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
3784: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10)
3785: THEN
3786: l_line_tbl(I).ship_set := l_line_tbl(I).ato_line_id;
3787: END IF;
4111:
4112: goto END_OF_PROCESS;
4113:
4114: END IF;
4115: IF (OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
4116: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10) THEN
4117:
4118: IF l_top_model_line_id <> p_sch_set_tbl(I).entity_id
4119: AND l_top_model_line_id is not null
4472:
4473: K := K + 1;
4474:
4475: -- BUG 1282873
4476: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
4477: IF l_line_rec.override_atp_date_code = 'Y' THEN
4478: l_iline_tbl(M).override_atp_date_code := l_line_rec.override_atp_date_code;
4479: IF l_debug_level > 0 THEN
4480: oe_debug_pub.add( 'OVERRIDE_ATP :' || L_ILINE_TBL(M).OVERRIDE_ATP_DATE_CODE , 3 ) ;
5046: END IF;
5047:
5048: -- Start 2716220 --
5049: -- To check schedule dates with override flag
5050: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
5051: FOR I IN 1..l_line_tbl.count LOOP
5052: IF NVL(l_line_tbl(I).override_atp_date_code,'N') = 'Y'
5053: AND l_line_tbl(I).schedule_status_code is NULL
5054: THEN
5229: END IF;
5230:
5231:
5232: -- BUG 1282873 (Override Atp)
5233: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509'
5234: AND nvl(l_line_tbl(I).override_atp_date_code,'N') = 'N' THEN
5235:
5236: IF (l_line_tbl(I).ato_line_id is not null AND
5237: NOT (l_line_tbl(I).ato_line_id = l_line_tbl(I).line_id AND