[Home] [Help]
24: FUNCTION Item_Is_Ato_Model(p_line_rec IN OE_ORDER_PUB.line_rec_type)
25: RETURN BOOLEAN
26: IS
27: --
28: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
29: --
30: BEGIN
31: IF l_debug_level > 0 THEN
32: oe_debug_pub.add( 'ENTERING ITEM IS ATO MODEL' , 1 ) ;
28: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
29: --
30: BEGIN
31: IF l_debug_level > 0 THEN
32: oe_debug_pub.add( 'ENTERING ITEM IS ATO MODEL' , 1 ) ;
33: END IF;
34: IF p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_MODEL
35: and p_line_rec.line_id = p_line_rec.ato_line_id
36: THEN
34: IF p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_MODEL
35: and p_line_rec.line_id = p_line_rec.ato_line_id
36: THEN
37: IF l_debug_level > 0 THEN
38: oe_debug_pub.add( 'RR: RETURNING TRUE' , 1 ) ;
39: END IF;
40: RETURN TRUE;
41: ELSE
42: IF l_debug_level > 0 THEN
39: END IF;
40: RETURN TRUE;
41: ELSE
42: IF l_debug_level > 0 THEN
43: oe_debug_pub.add( 'RR: RETURNING FALSE' , 1 ) ;
44: END IF;
45: RETURN FALSE;
46:
47: END IF;
69: p_old_line_rec OE_ORDER_PUB.line_rec_type)
70: RETURN BOOLEAN
71: IS
72: --
73: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
74: --
75: BEGIN
76:
77: IF l_debug_level > 0 THEN
74: --
75: BEGIN
76:
77: IF l_debug_level > 0 THEN
78: oe_debug_pub.add( 'ENTERING GROUP_SCHEDULING_REQUIRED' , 1 ) ;
79: END IF;
80:
81: -- If the operation is delete, we just need to unschedule this line.
82: -- So we do not need to perform any group scheduling right away.
95:
96: IF (p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE) THEN
97:
98: IF l_debug_level > 0 THEN
99: oe_debug_pub.add( 'IT IS A CREATE ACTION ON THE LINE' , 1 ) ;
100: END IF;
101:
102: IF (p_line_rec.ship_set_id is not null AND
103: p_line_rec.ship_set_id <> FND_API.G_MISS_NUM) OR
117:
118: IF (p_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE) THEN
119:
120: IF l_debug_level > 0 THEN
121: oe_debug_pub.add( 'IT IS A UPDATE ACTION ON THE LINE' , 1 ) ;
122: END IF;
123:
124: IF (NOT OE_GLOBALS.Equal(p_line_rec.ship_set_id,
125: p_old_line_rec.ship_set_id)
204: OE_GLOBALS.G_ITEM_OPTION))
205: THEN
206:
207: IF l_debug_level > 0 THEN
208: oe_debug_pub.add( 'ITEM CHANGED IS ATO MODEL OR OPTION' , 1 ) ;
209: END IF;
210:
211: -- Change of following attributes affects the whole set
212: -- and thus we must create a group request for it.
265:
266: END IF;
267:
268: IF l_debug_level > 0 THEN
269: oe_debug_pub.add( 'G6' , 1 ) ;
270: END IF;
271:
272: IF (p_line_rec.ship_set_id is not null) OR
273: (nvl(p_line_rec.ship_model_complete_flag,'N') = 'Y') THEN
387: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
388: IS
389: l_line_rec OE_ORDER_PUB.line_rec_type;
390: --
391: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
392: --
393: BEGIN
394: -- x_line_rec := p_line_rec;
395:
475: l_return_status VARCHAR2(1);
476: l_explode BOOLEAN;
477: is_set_recursion VARCHAR2(1) := 'Y';
478: --
479: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
480: --
481: BEGIN
482:
483: IF l_debug_level > 0 THEN
480: --
481: BEGIN
482:
483: IF l_debug_level > 0 THEN
484: oe_debug_pub.add( 'ENTERING BUILD_INCLUDED_ITEMS' , 1 ) ;
485: END IF;
486:
487: IF ((p_line_rec.schedule_action_code = OESCH_ACT_UNSCHEDULE) OR
488: (p_line_rec.schedule_action_code = OESCH_ACT_UNDEMAND) OR
499: END IF;
500:
501: IF p_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
502: IF l_debug_level > 0 THEN
503: oe_debug_pub.add( 'RR:I1' ) ;
504: END IF;
505: IF p_line_rec.explosion_date is not null AND
506: p_line_rec.explosion_date <> FND_API.G_MISS_DATE THEN
507: l_explode := FALSE;
511: END IF;
512:
513: IF l_explode THEN
514: IF l_debug_level > 0 THEN
515: oe_debug_pub.add( 'L_EXPLODE IS TRUE' , 1 ) ;
516: END IF;
517: ELSE
518: IF l_debug_level > 0 THEN
519: oe_debug_pub.add( 'L_EXPLODE IS FALSE' , 1 ) ;
515: oe_debug_pub.add( 'L_EXPLODE IS TRUE' , 1 ) ;
516: END IF;
517: ELSE
518: IF l_debug_level > 0 THEN
519: oe_debug_pub.add( 'L_EXPLODE IS FALSE' , 1 ) ;
520: END IF;
521: END IF;
522:
523: IF l_explode THEN
533: -- will take care of explosions and updateing the picture
534: -- of included_items in the oe_order_lines table.
535:
536: IF l_debug_level > 0 THEN
537: oe_debug_pub.add( 'CALLING PROCESS_INCLUDED_ITEMS' , 1 ) ;
538: END IF;
539:
540: l_return_status := OE_CONFIG_UTIL.Process_Included_Items
541: (p_line_id => p_line_rec.line_id,
561: p_top_model_line_id => p_line_rec.top_model_line_id,
562: x_line_tbl => x_line_tbl);
563:
564: IF l_debug_level > 0 THEN
565: oe_debug_pub.add( 'COUNT IS: ' || X_LINE_TBL.COUNT , 1 ) ;
566: END IF;
567: ELSE
568:
569: -- Query the records from the database
568:
569: -- Query the records from the database
570:
571: IF l_debug_level > 0 THEN
572: oe_debug_pub.add( 'QUERYING INCLUDED ITEMS' , 1 ) ;
573: END IF;
574:
575: -- x_line_tbl :=
576: -- oe_config_util.query_included_items(p_line_rec.line_id);
579: p_header_id => p_line_rec.header_id,
580: p_top_model_line_id => p_line_rec.top_model_line_id,
581: x_line_tbl => x_line_tbl);
582: IF l_debug_level > 0 THEN
583: oe_debug_pub.add( 'COUNT IS: ' || X_LINE_TBL.COUNT , 1 ) ;
584: END IF;
585:
586: END IF;
587:
585:
586: END IF;
587:
588: IF l_debug_level > 0 THEN
589: oe_debug_pub.add( 'EXITING BUILD_INCLUDED_ITEMS' , 1 ) ;
590: END IF;
591: -- RETURN l_line_tbl;
592:
593: EXCEPTION
656: l_sales_order_id NUMBER;
657: l_old_recursion_mode VARCHAR2(1);
658: l_process_requests BOOLEAN;
659: --
660: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
661: --
662: BEGIN
663:
664: IF l_debug_level > 0 THEN
661: --
662: BEGIN
663:
664: IF l_debug_level > 0 THEN
665: oe_debug_pub.add( 'ENTERING SCHEDULE PARENT LINE '||P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
666: END IF;
667:
668: l_line_tbl(1) := p_x_line_rec;
669: l_old_line_tbl(1) := p_old_line_rec;
686: l_schedule_action_code := p_x_line_rec.schedule_action_code;
687: END IF;
688:
689: l_line_tbl(1).schedule_action_code := l_schedule_action_code;
690: oe_debug_pub.add('Action is ' || l_schedule_action_code,1);
691:
692: */
693:
694: -- The primary reason to have this procedure for parent lines
696: -- it's parent is scheduled. Depending on the action needed to be performed,
697: -- we might need to explode the included items.
698:
699: IF l_debug_level > 0 THEN
700: oe_debug_pub.add( 'SCH:CALLING BUILD_INCLUDED_ITEMS' , 1 ) ;
701: END IF;
702:
703: -- l_included_items_tbl := Build_Included_Items
704: -- (p_line_rec => p_x_line_rec);
718:
719: -- OE_GLOBALS.G_RECURSION_MODE := l_old_recursion_mode;
720:
721: IF l_debug_level > 0 THEN
722: oe_debug_pub.add( 'SCH:AFTER CALLING BUILD_INCLUDED_ITEMS' , 1 ) ;
723: END IF;
724:
725: -- Starting with the index of 2 since the first element has
726: -- been occupied by the parent line.
737:
738: l_line_rec := l_included_items_tbl(I);
739:
740: IF l_debug_level > 0 THEN
741: oe_debug_pub.add( 'SCHEDULE_STATUS CODE/LINE : '||L_LINE_REC.SCHEDULE_STATUS_CODE||'/'||L_LINE_REC.LINE_ID , 3 ) ;
742: END IF;
743:
744: IF p_x_line_rec.schedule_action_code = OESCH_ACT_SCHEDULE AND
745: l_line_rec.schedule_status_code IS NOT NULL THEN
775: p_x_line_rec.ship_from_org_id;
776: END IF;
777:
778: IF l_debug_level > 0 THEN
779: oe_debug_pub.add( 'OLD ORDERED QUANTITY : '|| P_OLD_LINE_REC.ORDERED_QUANTITY , 3 ) ;
780: oe_debug_pub.add( 'NEW ORDERED QUANTITY : '|| P_X_LINE_REC.ORDERED_QUANTITY , 3 ) ;
781: END IF;
782: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity,
783: p_old_line_rec.ordered_quantity)
776: END IF;
777:
778: IF l_debug_level > 0 THEN
779: oe_debug_pub.add( 'OLD ORDERED QUANTITY : '|| P_OLD_LINE_REC.ORDERED_QUANTITY , 3 ) ;
780: oe_debug_pub.add( 'NEW ORDERED QUANTITY : '|| P_X_LINE_REC.ORDERED_QUANTITY , 3 ) ;
781: END IF;
782: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity,
783: p_old_line_rec.ordered_quantity)
784: THEN
789: l_old_ordered_quantity := p_x_line_rec.ordered_quantity;
790: END IF;
791:
792: IF l_debug_level > 0 THEN
793: oe_debug_pub.add( 'OLD ORDERED QUANTITY : '|| L_OLD_ORDERED_QUANTITY , 3 ) ;
794: END IF;
795: /*
796: l_line_rec.ordered_quantity := l_line_rec.ordered_quantity *
797: p_x_line_rec.ordered_quantity /
839: l_line_tbl(K) := l_line_rec;
840:
841: IF l_line_rec.line_id = p_x_line_rec.line_id THEN
842: IF l_debug_level > 0 THEN
843: oe_debug_pub.add( 'ADDED TO TOP OLD TABLE '||L_LINE_REC.LINE_ID , 3 ) ;
844: END IF;
845: l_top_old_index := l_top_old_index + 1;
846: l_top_old_tbl(l_top_old_index) := l_old_line_tbl(K);
847: ELSE
845: l_top_old_index := l_top_old_index + 1;
846: l_top_old_tbl(l_top_old_index) := l_old_line_tbl(K);
847: ELSE
848: IF l_debug_level > 0 THEN
849: oe_debug_pub.add( 'ADDED TO INCLUDED OLD TABLE '||L_LINE_REC.LINE_ID , 3 ) ;
850: END IF;
851: l_inc_old_index := l_inc_old_index + 1;
852: l_inc_old_tbl(l_inc_old_index) := l_old_line_tbl(K);
853:
877: END IF;
878:
879: IF p_x_line_rec.line_id = l_out_line_rec.line_id THEN
880: IF l_debug_level > 0 THEN
881: oe_debug_pub.add( 'ASSIGNING TO NEW TABLE '||L_OUT_LINE_REC.ORDERED_QUANTITY , 3 ) ;
882: END IF;
883: l_new_line_tbl(I) := l_out_line_rec;
884: ELSE
885: IF l_debug_level > 0 THEN
882: END IF;
883: l_new_line_tbl(I) := l_out_line_rec;
884: ELSE
885: IF l_debug_level > 0 THEN
886: oe_debug_pub.add( 'ASSIGNING TO INCLUDED TABLE '||L_OUT_LINE_REC.ORDERED_QUANTITY , 3 ) ;
887: END IF;
888: l_inc_upd_index := l_inc_upd_index + 1;
889: l_inc_upd_tbl(l_inc_upd_index) := l_out_line_rec;
890:
907: g_update_flag = FND_API.G_TRUE
908: THEN
909:
910: IF l_debug_level > 0 THEN
911: oe_debug_pub.add( 'CALLING UPDATE_LINE_RECORD WITH NEW TABLE ' , 1 ) ;
912: END IF;
913:
914: Update_line_record(p_line_tbl => l_top_old_tbl,
915: p_x_new_line_tbl => l_new_line_tbl,
917: p_recursive_call => p_recursive_call,
918: x_return_status => l_return_status);
919:
920: IF l_debug_level > 0 THEN
921: oe_debug_pub.add( 'AFTER CALLING UPDATE_LINE_RECORD :' || L_RETURN_STATUS , 1 ) ;
922: END IF;
923:
924: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
929:
930: IF l_inc_upd_index <> 0 THEN
931:
932: IF l_debug_level > 0 THEN
933: oe_debug_pub.add( 'CALLING UPDATE_LINE_RECORD WITH INC TABLE '||L_INC_UPD_INDEX||'/'||L_INC_OLD_INDEX , 2 ) ;
934: END IF;
935:
936: Update_line_record(p_line_tbl => l_inc_old_tbl,
937: p_x_new_line_tbl => l_inc_upd_tbl,
939: p_recursive_call => p_recursive_call,
940: x_return_status => l_return_status);
941:
942: IF l_debug_level > 0 THEN
943: oe_debug_pub.add( 'AFTER CALLING UPDATE_LINE_RECORD :' || L_RETURN_STATUS , 1 ) ;
944: END IF;
945:
946: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
984:
985: p_x_line_rec := l_new_line_tbl(1);
986:
987: IF l_debug_level > 0 THEN
988: oe_debug_pub.add( 'EXITING SCHEDULE PARENT LINE' , 1 ) ;
989: END IF;
990: EXCEPTION
991:
992: WHEN FND_API.G_EXC_ERROR THEN
1026: l_old_line_tbl OE_ORDER_PUB.line_tbl_type;
1027: l_atp_tbl OE_ATP.atp_tbl_type;
1028: l_count NUMBER;
1029: --
1030: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1031: --
1032: BEGIN
1033: IF l_debug_level > 0 THEN
1034: oe_debug_pub.add( 'ENTERING RESCHEDULE_SET' , 1 ) ;
1030: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1031: --
1032: BEGIN
1033: IF l_debug_level > 0 THEN
1034: oe_debug_pub.add( 'ENTERING RESCHEDULE_SET' , 1 ) ;
1035: END IF;
1036: x_return_status := l_return_status;
1037: -- l_line_tbl := OE_Set_util.Query_Set_Rows(p_line_rec.ship_set_id);
1038: OE_Set_Util.Query_Set_Rows(p_set_id => p_line_rec.ship_set_id,
1078: RAISE FND_API.G_EXC_ERROR;
1079: END IF;
1080:
1081: IF l_debug_level > 0 THEN
1082: oe_debug_pub.add( 'EXITING RESCHEDULE_SET' , 1 ) ;
1083: END IF;
1084: END;
1085: /*---------------------------------------------------------------------
1086: Procedure Name : Action_Undemand
1103: l_atp_period MRP_ATP_PUB.ATP_Period_Typ;
1104: l_atp_details MRP_ATP_PUB.ATP_Details_Typ;
1105:
1106: --
1107: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1108: --
1109: BEGIN
1110:
1111: IF l_debug_level > 0 THEN
1108: --
1109: BEGIN
1110:
1111: IF l_debug_level > 0 THEN
1112: oe_debug_pub.add( 'ENTERING ACTION_UNDEMAND' , 1 ) ;
1113: END IF;
1114:
1115: -- Create MRP record with action of UNDEMAND.
1116:
1128:
1129: -- Call ATP
1130:
1131: IF l_debug_level > 0 THEN
1132: oe_debug_pub.add( '4. CALLING MRP API WITH SESSION ID '||L_SESSION_ID , 1 ) ;
1133: END IF;
1134:
1135: MRP_ATP_PUB.Call_ATP
1136: ( p_session_id => l_session_id
1143: , x_msg_data => l_msg_data
1144: , x_msg_count => l_msg_count);
1145:
1146: IF l_debug_level > 0 THEN
1147: oe_debug_pub.add( '4. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || L_RETURN_STATUS , 1 ) ;
1148: END IF;
1149:
1150: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1151: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1153: RAISE FND_API.G_EXC_ERROR;
1154: END IF;
1155:
1156: IF l_debug_level > 0 THEN
1157: oe_debug_pub.add( 'EXITING ACTION_UNDEMAND' , 1 ) ;
1158: END IF;
1159:
1160: END Action_Undemand;
1161:
1215: l_param NUMBER;
1216: l_process_requests BOOLEAN;
1217: l_set_rec OE_ORDER_CACHE.set_rec_type;
1218: --
1219: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1220: --
1221: BEGIN
1222:
1223:
1221: BEGIN
1222:
1223:
1224: IF l_debug_level > 0 THEN
1225: oe_debug_pub.add( '56: ENTERING OE_ORDER_SCH_UTIL.SCHEDULE_LINE' , 1 ) ;
1226: oe_debug_pub.add( '---- OLD RECORD ---- ' , 1 ) ;
1227: oe_debug_pub.add( 'LINE ID : ' || P_OLD_LINE_REC.LINE_ID , 1 ) ;
1228: oe_debug_pub.add( 'ATO LINE ID : ' || P_OLD_LINE_REC.ATO_LINE_ID , 1 ) ;
1229: oe_debug_pub.add( 'ORDERED QUANTITY : ' || P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1222:
1223:
1224: IF l_debug_level > 0 THEN
1225: oe_debug_pub.add( '56: ENTERING OE_ORDER_SCH_UTIL.SCHEDULE_LINE' , 1 ) ;
1226: oe_debug_pub.add( '---- OLD RECORD ---- ' , 1 ) ;
1227: oe_debug_pub.add( 'LINE ID : ' || P_OLD_LINE_REC.LINE_ID , 1 ) ;
1228: oe_debug_pub.add( 'ATO LINE ID : ' || P_OLD_LINE_REC.ATO_LINE_ID , 1 ) ;
1229: oe_debug_pub.add( 'ORDERED QUANTITY : ' || P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1230: oe_debug_pub.add( 'SHIP FROM : ' || P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1223:
1224: IF l_debug_level > 0 THEN
1225: oe_debug_pub.add( '56: ENTERING OE_ORDER_SCH_UTIL.SCHEDULE_LINE' , 1 ) ;
1226: oe_debug_pub.add( '---- OLD RECORD ---- ' , 1 ) ;
1227: oe_debug_pub.add( 'LINE ID : ' || P_OLD_LINE_REC.LINE_ID , 1 ) ;
1228: oe_debug_pub.add( 'ATO LINE ID : ' || P_OLD_LINE_REC.ATO_LINE_ID , 1 ) ;
1229: oe_debug_pub.add( 'ORDERED QUANTITY : ' || P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1230: oe_debug_pub.add( 'SHIP FROM : ' || P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1231: oe_debug_pub.add( 'SUBINVENTORY : ' || P_OLD_LINE_REC.SUBINVENTORY , 1 ) ;
1224: IF l_debug_level > 0 THEN
1225: oe_debug_pub.add( '56: ENTERING OE_ORDER_SCH_UTIL.SCHEDULE_LINE' , 1 ) ;
1226: oe_debug_pub.add( '---- OLD RECORD ---- ' , 1 ) ;
1227: oe_debug_pub.add( 'LINE ID : ' || P_OLD_LINE_REC.LINE_ID , 1 ) ;
1228: oe_debug_pub.add( 'ATO LINE ID : ' || P_OLD_LINE_REC.ATO_LINE_ID , 1 ) ;
1229: oe_debug_pub.add( 'ORDERED QUANTITY : ' || P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1230: oe_debug_pub.add( 'SHIP FROM : ' || P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1231: oe_debug_pub.add( 'SUBINVENTORY : ' || P_OLD_LINE_REC.SUBINVENTORY , 1 ) ;
1232: oe_debug_pub.add( 'SCH SHIP DATE : ' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
1225: oe_debug_pub.add( '56: ENTERING OE_ORDER_SCH_UTIL.SCHEDULE_LINE' , 1 ) ;
1226: oe_debug_pub.add( '---- OLD RECORD ---- ' , 1 ) ;
1227: oe_debug_pub.add( 'LINE ID : ' || P_OLD_LINE_REC.LINE_ID , 1 ) ;
1228: oe_debug_pub.add( 'ATO LINE ID : ' || P_OLD_LINE_REC.ATO_LINE_ID , 1 ) ;
1229: oe_debug_pub.add( 'ORDERED QUANTITY : ' || P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1230: oe_debug_pub.add( 'SHIP FROM : ' || P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1231: oe_debug_pub.add( 'SUBINVENTORY : ' || P_OLD_LINE_REC.SUBINVENTORY , 1 ) ;
1232: oe_debug_pub.add( 'SCH SHIP DATE : ' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
1233: oe_debug_pub.add( 'SCH ARRIVAL DATE : ' || P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
1226: oe_debug_pub.add( '---- OLD RECORD ---- ' , 1 ) ;
1227: oe_debug_pub.add( 'LINE ID : ' || P_OLD_LINE_REC.LINE_ID , 1 ) ;
1228: oe_debug_pub.add( 'ATO LINE ID : ' || P_OLD_LINE_REC.ATO_LINE_ID , 1 ) ;
1229: oe_debug_pub.add( 'ORDERED QUANTITY : ' || P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1230: oe_debug_pub.add( 'SHIP FROM : ' || P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1231: oe_debug_pub.add( 'SUBINVENTORY : ' || P_OLD_LINE_REC.SUBINVENTORY , 1 ) ;
1232: oe_debug_pub.add( 'SCH SHIP DATE : ' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
1233: oe_debug_pub.add( 'SCH ARRIVAL DATE : ' || P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
1234: oe_debug_pub.add( 'SHIP SET ID : ' || P_OLD_LINE_REC.SHIP_SET_ID , 1 ) ;
1227: oe_debug_pub.add( 'LINE ID : ' || P_OLD_LINE_REC.LINE_ID , 1 ) ;
1228: oe_debug_pub.add( 'ATO LINE ID : ' || P_OLD_LINE_REC.ATO_LINE_ID , 1 ) ;
1229: oe_debug_pub.add( 'ORDERED QUANTITY : ' || P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1230: oe_debug_pub.add( 'SHIP FROM : ' || P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1231: oe_debug_pub.add( 'SUBINVENTORY : ' || P_OLD_LINE_REC.SUBINVENTORY , 1 ) ;
1232: oe_debug_pub.add( 'SCH SHIP DATE : ' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
1233: oe_debug_pub.add( 'SCH ARRIVAL DATE : ' || P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
1234: oe_debug_pub.add( 'SHIP SET ID : ' || P_OLD_LINE_REC.SHIP_SET_ID , 1 ) ;
1235: oe_debug_pub.add( 'ARRIVAL SET ID : ' || P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
1228: oe_debug_pub.add( 'ATO LINE ID : ' || P_OLD_LINE_REC.ATO_LINE_ID , 1 ) ;
1229: oe_debug_pub.add( 'ORDERED QUANTITY : ' || P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1230: oe_debug_pub.add( 'SHIP FROM : ' || P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1231: oe_debug_pub.add( 'SUBINVENTORY : ' || P_OLD_LINE_REC.SUBINVENTORY , 1 ) ;
1232: oe_debug_pub.add( 'SCH SHIP DATE : ' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
1233: oe_debug_pub.add( 'SCH ARRIVAL DATE : ' || P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
1234: oe_debug_pub.add( 'SHIP SET ID : ' || P_OLD_LINE_REC.SHIP_SET_ID , 1 ) ;
1235: oe_debug_pub.add( 'ARRIVAL SET ID : ' || P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
1236: oe_debug_pub.add( 'ACTION : ' || P_OLD_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
1229: oe_debug_pub.add( 'ORDERED QUANTITY : ' || P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1230: oe_debug_pub.add( 'SHIP FROM : ' || P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1231: oe_debug_pub.add( 'SUBINVENTORY : ' || P_OLD_LINE_REC.SUBINVENTORY , 1 ) ;
1232: oe_debug_pub.add( 'SCH SHIP DATE : ' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
1233: oe_debug_pub.add( 'SCH ARRIVAL DATE : ' || P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
1234: oe_debug_pub.add( 'SHIP SET ID : ' || P_OLD_LINE_REC.SHIP_SET_ID , 1 ) ;
1235: oe_debug_pub.add( 'ARRIVAL SET ID : ' || P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
1236: oe_debug_pub.add( 'ACTION : ' || P_OLD_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
1237: oe_debug_pub.add( 'STATUS : ' || P_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
1230: oe_debug_pub.add( 'SHIP FROM : ' || P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1231: oe_debug_pub.add( 'SUBINVENTORY : ' || P_OLD_LINE_REC.SUBINVENTORY , 1 ) ;
1232: oe_debug_pub.add( 'SCH SHIP DATE : ' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
1233: oe_debug_pub.add( 'SCH ARRIVAL DATE : ' || P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
1234: oe_debug_pub.add( 'SHIP SET ID : ' || P_OLD_LINE_REC.SHIP_SET_ID , 1 ) ;
1235: oe_debug_pub.add( 'ARRIVAL SET ID : ' || P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
1236: oe_debug_pub.add( 'ACTION : ' || P_OLD_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
1237: oe_debug_pub.add( 'STATUS : ' || P_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
1238: oe_debug_pub.add( 'RESERVED QUANTITY: ' || P_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1231: oe_debug_pub.add( 'SUBINVENTORY : ' || P_OLD_LINE_REC.SUBINVENTORY , 1 ) ;
1232: oe_debug_pub.add( 'SCH SHIP DATE : ' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
1233: oe_debug_pub.add( 'SCH ARRIVAL DATE : ' || P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
1234: oe_debug_pub.add( 'SHIP SET ID : ' || P_OLD_LINE_REC.SHIP_SET_ID , 1 ) ;
1235: oe_debug_pub.add( 'ARRIVAL SET ID : ' || P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
1236: oe_debug_pub.add( 'ACTION : ' || P_OLD_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
1237: oe_debug_pub.add( 'STATUS : ' || P_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
1238: oe_debug_pub.add( 'RESERVED QUANTITY: ' || P_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1239: oe_debug_pub.add( ' ' , 1 ) ;
1232: oe_debug_pub.add( 'SCH SHIP DATE : ' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
1233: oe_debug_pub.add( 'SCH ARRIVAL DATE : ' || P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
1234: oe_debug_pub.add( 'SHIP SET ID : ' || P_OLD_LINE_REC.SHIP_SET_ID , 1 ) ;
1235: oe_debug_pub.add( 'ARRIVAL SET ID : ' || P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
1236: oe_debug_pub.add( 'ACTION : ' || P_OLD_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
1237: oe_debug_pub.add( 'STATUS : ' || P_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
1238: oe_debug_pub.add( 'RESERVED QUANTITY: ' || P_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1239: oe_debug_pub.add( ' ' , 1 ) ;
1240: oe_debug_pub.add( '---- NEW RECORD ----' , 1 ) ;
1233: oe_debug_pub.add( 'SCH ARRIVAL DATE : ' || P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
1234: oe_debug_pub.add( 'SHIP SET ID : ' || P_OLD_LINE_REC.SHIP_SET_ID , 1 ) ;
1235: oe_debug_pub.add( 'ARRIVAL SET ID : ' || P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
1236: oe_debug_pub.add( 'ACTION : ' || P_OLD_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
1237: oe_debug_pub.add( 'STATUS : ' || P_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
1238: oe_debug_pub.add( 'RESERVED QUANTITY: ' || P_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1239: oe_debug_pub.add( ' ' , 1 ) ;
1240: oe_debug_pub.add( '---- NEW RECORD ----' , 1 ) ;
1241: oe_debug_pub.add( 'LINE ID : ' || P_X_LINE_REC.LINE_ID , 1 ) ;
1234: oe_debug_pub.add( 'SHIP SET ID : ' || P_OLD_LINE_REC.SHIP_SET_ID , 1 ) ;
1235: oe_debug_pub.add( 'ARRIVAL SET ID : ' || P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
1236: oe_debug_pub.add( 'ACTION : ' || P_OLD_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
1237: oe_debug_pub.add( 'STATUS : ' || P_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
1238: oe_debug_pub.add( 'RESERVED QUANTITY: ' || P_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1239: oe_debug_pub.add( ' ' , 1 ) ;
1240: oe_debug_pub.add( '---- NEW RECORD ----' , 1 ) ;
1241: oe_debug_pub.add( 'LINE ID : ' || P_X_LINE_REC.LINE_ID , 1 ) ;
1242: oe_debug_pub.add( 'ATO LINE ID : ' || P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
1235: oe_debug_pub.add( 'ARRIVAL SET ID : ' || P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
1236: oe_debug_pub.add( 'ACTION : ' || P_OLD_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
1237: oe_debug_pub.add( 'STATUS : ' || P_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
1238: oe_debug_pub.add( 'RESERVED QUANTITY: ' || P_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1239: oe_debug_pub.add( ' ' , 1 ) ;
1240: oe_debug_pub.add( '---- NEW RECORD ----' , 1 ) ;
1241: oe_debug_pub.add( 'LINE ID : ' || P_X_LINE_REC.LINE_ID , 1 ) ;
1242: oe_debug_pub.add( 'ATO LINE ID : ' || P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
1243: oe_debug_pub.add( 'ORDERED QUANTITY : ' || P_X_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1236: oe_debug_pub.add( 'ACTION : ' || P_OLD_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
1237: oe_debug_pub.add( 'STATUS : ' || P_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
1238: oe_debug_pub.add( 'RESERVED QUANTITY: ' || P_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1239: oe_debug_pub.add( ' ' , 1 ) ;
1240: oe_debug_pub.add( '---- NEW RECORD ----' , 1 ) ;
1241: oe_debug_pub.add( 'LINE ID : ' || P_X_LINE_REC.LINE_ID , 1 ) ;
1242: oe_debug_pub.add( 'ATO LINE ID : ' || P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
1243: oe_debug_pub.add( 'ORDERED QUANTITY : ' || P_X_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1244: oe_debug_pub.add( 'ORDERED QUANTITY2 : ' || P_X_LINE_REC.ORDERED_QUANTITY2 , 1 ) ;
1237: oe_debug_pub.add( 'STATUS : ' || P_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
1238: oe_debug_pub.add( 'RESERVED QUANTITY: ' || P_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1239: oe_debug_pub.add( ' ' , 1 ) ;
1240: oe_debug_pub.add( '---- NEW RECORD ----' , 1 ) ;
1241: oe_debug_pub.add( 'LINE ID : ' || P_X_LINE_REC.LINE_ID , 1 ) ;
1242: oe_debug_pub.add( 'ATO LINE ID : ' || P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
1243: oe_debug_pub.add( 'ORDERED QUANTITY : ' || P_X_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1244: oe_debug_pub.add( 'ORDERED QUANTITY2 : ' || P_X_LINE_REC.ORDERED_QUANTITY2 , 1 ) ;
1245: oe_debug_pub.add( 'SHIP FROM : ' || P_X_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1238: oe_debug_pub.add( 'RESERVED QUANTITY: ' || P_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1239: oe_debug_pub.add( ' ' , 1 ) ;
1240: oe_debug_pub.add( '---- NEW RECORD ----' , 1 ) ;
1241: oe_debug_pub.add( 'LINE ID : ' || P_X_LINE_REC.LINE_ID , 1 ) ;
1242: oe_debug_pub.add( 'ATO LINE ID : ' || P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
1243: oe_debug_pub.add( 'ORDERED QUANTITY : ' || P_X_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1244: oe_debug_pub.add( 'ORDERED QUANTITY2 : ' || P_X_LINE_REC.ORDERED_QUANTITY2 , 1 ) ;
1245: oe_debug_pub.add( 'SHIP FROM : ' || P_X_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1246: oe_debug_pub.add( 'SUBINVENTORY : ' || P_X_LINE_REC.SUBINVENTORY , 1 ) ;
1239: oe_debug_pub.add( ' ' , 1 ) ;
1240: oe_debug_pub.add( '---- NEW RECORD ----' , 1 ) ;
1241: oe_debug_pub.add( 'LINE ID : ' || P_X_LINE_REC.LINE_ID , 1 ) ;
1242: oe_debug_pub.add( 'ATO LINE ID : ' || P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
1243: oe_debug_pub.add( 'ORDERED QUANTITY : ' || P_X_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1244: oe_debug_pub.add( 'ORDERED QUANTITY2 : ' || P_X_LINE_REC.ORDERED_QUANTITY2 , 1 ) ;
1245: oe_debug_pub.add( 'SHIP FROM : ' || P_X_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1246: oe_debug_pub.add( 'SUBINVENTORY : ' || P_X_LINE_REC.SUBINVENTORY , 1 ) ;
1247: oe_debug_pub.add( 'SCH SHIP DATE : ' || P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
1240: oe_debug_pub.add( '---- NEW RECORD ----' , 1 ) ;
1241: oe_debug_pub.add( 'LINE ID : ' || P_X_LINE_REC.LINE_ID , 1 ) ;
1242: oe_debug_pub.add( 'ATO LINE ID : ' || P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
1243: oe_debug_pub.add( 'ORDERED QUANTITY : ' || P_X_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1244: oe_debug_pub.add( 'ORDERED QUANTITY2 : ' || P_X_LINE_REC.ORDERED_QUANTITY2 , 1 ) ;
1245: oe_debug_pub.add( 'SHIP FROM : ' || P_X_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1246: oe_debug_pub.add( 'SUBINVENTORY : ' || P_X_LINE_REC.SUBINVENTORY , 1 ) ;
1247: oe_debug_pub.add( 'SCH SHIP DATE : ' || P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
1248: oe_debug_pub.add( 'SCH ARRIVAL DATE : ' || P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
1241: oe_debug_pub.add( 'LINE ID : ' || P_X_LINE_REC.LINE_ID , 1 ) ;
1242: oe_debug_pub.add( 'ATO LINE ID : ' || P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
1243: oe_debug_pub.add( 'ORDERED QUANTITY : ' || P_X_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1244: oe_debug_pub.add( 'ORDERED QUANTITY2 : ' || P_X_LINE_REC.ORDERED_QUANTITY2 , 1 ) ;
1245: oe_debug_pub.add( 'SHIP FROM : ' || P_X_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1246: oe_debug_pub.add( 'SUBINVENTORY : ' || P_X_LINE_REC.SUBINVENTORY , 1 ) ;
1247: oe_debug_pub.add( 'SCH SHIP DATE : ' || P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
1248: oe_debug_pub.add( 'SCH ARRIVAL DATE : ' || P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
1249: oe_debug_pub.add( 'SHIP SET ID : ' || P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
1242: oe_debug_pub.add( 'ATO LINE ID : ' || P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
1243: oe_debug_pub.add( 'ORDERED QUANTITY : ' || P_X_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1244: oe_debug_pub.add( 'ORDERED QUANTITY2 : ' || P_X_LINE_REC.ORDERED_QUANTITY2 , 1 ) ;
1245: oe_debug_pub.add( 'SHIP FROM : ' || P_X_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1246: oe_debug_pub.add( 'SUBINVENTORY : ' || P_X_LINE_REC.SUBINVENTORY , 1 ) ;
1247: oe_debug_pub.add( 'SCH SHIP DATE : ' || P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
1248: oe_debug_pub.add( 'SCH ARRIVAL DATE : ' || P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
1249: oe_debug_pub.add( 'SHIP SET ID : ' || P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
1250: oe_debug_pub.add( 'ARRIVAL SET ID : ' || P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
1243: oe_debug_pub.add( 'ORDERED QUANTITY : ' || P_X_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1244: oe_debug_pub.add( 'ORDERED QUANTITY2 : ' || P_X_LINE_REC.ORDERED_QUANTITY2 , 1 ) ;
1245: oe_debug_pub.add( 'SHIP FROM : ' || P_X_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1246: oe_debug_pub.add( 'SUBINVENTORY : ' || P_X_LINE_REC.SUBINVENTORY , 1 ) ;
1247: oe_debug_pub.add( 'SCH SHIP DATE : ' || P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
1248: oe_debug_pub.add( 'SCH ARRIVAL DATE : ' || P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
1249: oe_debug_pub.add( 'SHIP SET ID : ' || P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
1250: oe_debug_pub.add( 'ARRIVAL SET ID : ' || P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
1251: oe_debug_pub.add( 'ACTION : ' || P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
1244: oe_debug_pub.add( 'ORDERED QUANTITY2 : ' || P_X_LINE_REC.ORDERED_QUANTITY2 , 1 ) ;
1245: oe_debug_pub.add( 'SHIP FROM : ' || P_X_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1246: oe_debug_pub.add( 'SUBINVENTORY : ' || P_X_LINE_REC.SUBINVENTORY , 1 ) ;
1247: oe_debug_pub.add( 'SCH SHIP DATE : ' || P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
1248: oe_debug_pub.add( 'SCH ARRIVAL DATE : ' || P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
1249: oe_debug_pub.add( 'SHIP SET ID : ' || P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
1250: oe_debug_pub.add( 'ARRIVAL SET ID : ' || P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
1251: oe_debug_pub.add( 'ACTION : ' || P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
1252: oe_debug_pub.add( 'STATUS : ' || P_X_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
1245: oe_debug_pub.add( 'SHIP FROM : ' || P_X_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1246: oe_debug_pub.add( 'SUBINVENTORY : ' || P_X_LINE_REC.SUBINVENTORY , 1 ) ;
1247: oe_debug_pub.add( 'SCH SHIP DATE : ' || P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
1248: oe_debug_pub.add( 'SCH ARRIVAL DATE : ' || P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
1249: oe_debug_pub.add( 'SHIP SET ID : ' || P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
1250: oe_debug_pub.add( 'ARRIVAL SET ID : ' || P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
1251: oe_debug_pub.add( 'ACTION : ' || P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
1252: oe_debug_pub.add( 'STATUS : ' || P_X_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
1253: oe_debug_pub.add( 'RESERVED QTY : ' || P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1246: oe_debug_pub.add( 'SUBINVENTORY : ' || P_X_LINE_REC.SUBINVENTORY , 1 ) ;
1247: oe_debug_pub.add( 'SCH SHIP DATE : ' || P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
1248: oe_debug_pub.add( 'SCH ARRIVAL DATE : ' || P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
1249: oe_debug_pub.add( 'SHIP SET ID : ' || P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
1250: oe_debug_pub.add( 'ARRIVAL SET ID : ' || P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
1251: oe_debug_pub.add( 'ACTION : ' || P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
1252: oe_debug_pub.add( 'STATUS : ' || P_X_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
1253: oe_debug_pub.add( 'RESERVED QTY : ' || P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1254: oe_debug_pub.add( 'RESERVED QTY2 : ' || P_X_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
1247: oe_debug_pub.add( 'SCH SHIP DATE : ' || P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
1248: oe_debug_pub.add( 'SCH ARRIVAL DATE : ' || P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
1249: oe_debug_pub.add( 'SHIP SET ID : ' || P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
1250: oe_debug_pub.add( 'ARRIVAL SET ID : ' || P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
1251: oe_debug_pub.add( 'ACTION : ' || P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
1252: oe_debug_pub.add( 'STATUS : ' || P_X_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
1253: oe_debug_pub.add( 'RESERVED QTY : ' || P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1254: oe_debug_pub.add( 'RESERVED QTY2 : ' || P_X_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
1255: oe_debug_pub.add( 'OPERATION : ' || P_X_LINE_REC.OPERATION , 1 ) ;
1248: oe_debug_pub.add( 'SCH ARRIVAL DATE : ' || P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
1249: oe_debug_pub.add( 'SHIP SET ID : ' || P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
1250: oe_debug_pub.add( 'ARRIVAL SET ID : ' || P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
1251: oe_debug_pub.add( 'ACTION : ' || P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
1252: oe_debug_pub.add( 'STATUS : ' || P_X_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
1253: oe_debug_pub.add( 'RESERVED QTY : ' || P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1254: oe_debug_pub.add( 'RESERVED QTY2 : ' || P_X_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
1255: oe_debug_pub.add( 'OPERATION : ' || P_X_LINE_REC.OPERATION , 1 ) ;
1256: oe_debug_pub.add( ' ' , 1 ) ;
1249: oe_debug_pub.add( 'SHIP SET ID : ' || P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
1250: oe_debug_pub.add( 'ARRIVAL SET ID : ' || P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
1251: oe_debug_pub.add( 'ACTION : ' || P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
1252: oe_debug_pub.add( 'STATUS : ' || P_X_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
1253: oe_debug_pub.add( 'RESERVED QTY : ' || P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1254: oe_debug_pub.add( 'RESERVED QTY2 : ' || P_X_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
1255: oe_debug_pub.add( 'OPERATION : ' || P_X_LINE_REC.OPERATION , 1 ) ;
1256: oe_debug_pub.add( ' ' , 1 ) ;
1257: END IF;
1250: oe_debug_pub.add( 'ARRIVAL SET ID : ' || P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
1251: oe_debug_pub.add( 'ACTION : ' || P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
1252: oe_debug_pub.add( 'STATUS : ' || P_X_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
1253: oe_debug_pub.add( 'RESERVED QTY : ' || P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1254: oe_debug_pub.add( 'RESERVED QTY2 : ' || P_X_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
1255: oe_debug_pub.add( 'OPERATION : ' || P_X_LINE_REC.OPERATION , 1 ) ;
1256: oe_debug_pub.add( ' ' , 1 ) ;
1257: END IF;
1258:
1251: oe_debug_pub.add( 'ACTION : ' || P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
1252: oe_debug_pub.add( 'STATUS : ' || P_X_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
1253: oe_debug_pub.add( 'RESERVED QTY : ' || P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1254: oe_debug_pub.add( 'RESERVED QTY2 : ' || P_X_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
1255: oe_debug_pub.add( 'OPERATION : ' || P_X_LINE_REC.OPERATION , 1 ) ;
1256: oe_debug_pub.add( ' ' , 1 ) ;
1257: END IF;
1258:
1259:
1252: oe_debug_pub.add( 'STATUS : ' || P_X_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
1253: oe_debug_pub.add( 'RESERVED QTY : ' || P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1254: oe_debug_pub.add( 'RESERVED QTY2 : ' || P_X_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
1255: oe_debug_pub.add( 'OPERATION : ' || P_X_LINE_REC.OPERATION , 1 ) ;
1256: oe_debug_pub.add( ' ' , 1 ) ;
1257: END IF;
1258:
1259:
1260: l_line_rec := p_x_line_rec;
1281: l_line_rec.ship_from_org_id) THEN
1282: IF l_line_rec.ship_from_org_id is not null
1283: THEN
1284: IF l_debug_level > 0 THEN
1285: oe_debug_pub.add( 'SETTING RE_SOURCE_FLAG TO N' , 1 ) ;
1286: END IF;
1287: l_line_rec.re_source_flag := 'N';
1288: ELSE
1289: IF l_debug_level > 0 THEN
1286: END IF;
1287: l_line_rec.re_source_flag := 'N';
1288: ELSE
1289: IF l_debug_level > 0 THEN
1290: oe_debug_pub.add( '1.SETTING RE_SOURCE_FLAG TO NULL' , 1 ) ;
1291: END IF;
1292: l_line_rec.re_source_flag := '';
1293: END IF;
1294: ELSIF l_line_rec.ship_from_org_id is null
1293: END IF;
1294: ELSIF l_line_rec.ship_from_org_id is null
1295: THEN
1296: IF l_debug_level > 0 THEN
1297: oe_debug_pub.add( '2.SETTING RE_SOURCE_FLAG TO NULL' , 1 ) ;
1298: END IF;
1299: l_line_rec.re_source_flag := '';
1300: END IF;
1301:
1309: l_sales_order_id := Get_mtl_sales_order_id(l_line_rec.HEADER_ID);
1310:
1311: IF l_old_line_rec.reserved_quantity is null THEN
1312: IF l_debug_level > 0 THEN
1313: oe_debug_pub.add( 'RR: L_OLD_LINE_REC.RESERVED_QUANTITY IS NULL' , 1 ) ;
1314: END IF;
1315: ELSIF l_old_line_rec.reserved_quantity = FND_API.G_MISS_NUM THEN
1316: IF l_debug_level > 0 THEN
1317: oe_debug_pub.add( 'RR: L_OLD_LINE_REC.RESERVED_QUANTITY IS MISSING' , 1 ) ;
1313: oe_debug_pub.add( 'RR: L_OLD_LINE_REC.RESERVED_QUANTITY IS NULL' , 1 ) ;
1314: END IF;
1315: ELSIF l_old_line_rec.reserved_quantity = FND_API.G_MISS_NUM THEN
1316: IF l_debug_level > 0 THEN
1317: oe_debug_pub.add( 'RR: L_OLD_LINE_REC.RESERVED_QUANTITY IS MISSING' , 1 ) ;
1318: END IF;
1319: END IF;
1320:
1321: -- INVCONV - MERGED CALLS FOR OE_LINE_UTIL.Get_Reserved_Quantity and OE_LINE_UTIL.Get_Reserved_Quantity2
1367: l_line_rec.reserved_quantity2 := l_old_line_rec.reserved_quantity2;
1368: END IF;
1369:
1370: IF l_debug_level > 0 THEN
1371: oe_debug_pub.add( ' ' , 1 ) ;
1372: oe_debug_pub.add( 'OLD RESERVED QUANTITY :' || L_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1373: oe_debug_pub.add( 'NEW RESERVED QUANTITY :' || L_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1374: oe_debug_pub.add( 'OLD RESERVED QUANTITY2 :' || L_OLD_LINE_REC.RESERVED_QUANTITY2 , 1 ) ; -- INVCONV
1375: oe_debug_pub.add( 'NEW RESERVED QUANTITY2 :' || L_LINE_REC.RESERVED_QUANTITY2 , 1 ) ; -- INVCONV
1368: END IF;
1369:
1370: IF l_debug_level > 0 THEN
1371: oe_debug_pub.add( ' ' , 1 ) ;
1372: oe_debug_pub.add( 'OLD RESERVED QUANTITY :' || L_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1373: oe_debug_pub.add( 'NEW RESERVED QUANTITY :' || L_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1374: oe_debug_pub.add( 'OLD RESERVED QUANTITY2 :' || L_OLD_LINE_REC.RESERVED_QUANTITY2 , 1 ) ; -- INVCONV
1375: oe_debug_pub.add( 'NEW RESERVED QUANTITY2 :' || L_LINE_REC.RESERVED_QUANTITY2 , 1 ) ; -- INVCONV
1376: oe_debug_pub.add( ' ' , 1 ) ;
1369:
1370: IF l_debug_level > 0 THEN
1371: oe_debug_pub.add( ' ' , 1 ) ;
1372: oe_debug_pub.add( 'OLD RESERVED QUANTITY :' || L_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1373: oe_debug_pub.add( 'NEW RESERVED QUANTITY :' || L_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1374: oe_debug_pub.add( 'OLD RESERVED QUANTITY2 :' || L_OLD_LINE_REC.RESERVED_QUANTITY2 , 1 ) ; -- INVCONV
1375: oe_debug_pub.add( 'NEW RESERVED QUANTITY2 :' || L_LINE_REC.RESERVED_QUANTITY2 , 1 ) ; -- INVCONV
1376: oe_debug_pub.add( ' ' , 1 ) ;
1377: END IF;
1370: IF l_debug_level > 0 THEN
1371: oe_debug_pub.add( ' ' , 1 ) ;
1372: oe_debug_pub.add( 'OLD RESERVED QUANTITY :' || L_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1373: oe_debug_pub.add( 'NEW RESERVED QUANTITY :' || L_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1374: oe_debug_pub.add( 'OLD RESERVED QUANTITY2 :' || L_OLD_LINE_REC.RESERVED_QUANTITY2 , 1 ) ; -- INVCONV
1375: oe_debug_pub.add( 'NEW RESERVED QUANTITY2 :' || L_LINE_REC.RESERVED_QUANTITY2 , 1 ) ; -- INVCONV
1376: oe_debug_pub.add( ' ' , 1 ) ;
1377: END IF;
1378:
1371: oe_debug_pub.add( ' ' , 1 ) ;
1372: oe_debug_pub.add( 'OLD RESERVED QUANTITY :' || L_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1373: oe_debug_pub.add( 'NEW RESERVED QUANTITY :' || L_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1374: oe_debug_pub.add( 'OLD RESERVED QUANTITY2 :' || L_OLD_LINE_REC.RESERVED_QUANTITY2 , 1 ) ; -- INVCONV
1375: oe_debug_pub.add( 'NEW RESERVED QUANTITY2 :' || L_LINE_REC.RESERVED_QUANTITY2 , 1 ) ; -- INVCONV
1376: oe_debug_pub.add( ' ' , 1 ) ;
1377: END IF;
1378:
1379: l_need_sch := Need_Scheduling(p_line_rec => l_line_rec,
1372: oe_debug_pub.add( 'OLD RESERVED QUANTITY :' || L_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1373: oe_debug_pub.add( 'NEW RESERVED QUANTITY :' || L_LINE_REC.RESERVED_QUANTITY , 1 ) ;
1374: oe_debug_pub.add( 'OLD RESERVED QUANTITY2 :' || L_OLD_LINE_REC.RESERVED_QUANTITY2 , 1 ) ; -- INVCONV
1375: oe_debug_pub.add( 'NEW RESERVED QUANTITY2 :' || L_LINE_REC.RESERVED_QUANTITY2 , 1 ) ; -- INVCONV
1376: oe_debug_pub.add( ' ' , 1 ) ;
1377: END IF;
1378:
1379: l_need_sch := Need_Scheduling(p_line_rec => l_line_rec,
1380: p_old_line_rec => l_old_line_rec);
1380: p_old_line_rec => l_old_line_rec);
1381:
1382: IF not(l_need_sch) THEN
1383: IF l_debug_level > 0 THEN
1384: oe_debug_pub.add( 'SCHEDULING NOT REQUIRED' , 1 ) ;
1385: END IF;
1386: goto end_schedule_line;
1387: END IF;
1388:
1386: goto end_schedule_line;
1387: END IF;
1388:
1389: IF l_debug_level > 0 THEN
1390: oe_debug_pub.add( 'CALLING OE_ORDER_SCH_UTIL.VALIDATE LINE' , 1 ) ;
1391: END IF;
1392:
1393: Validate_Line(p_line_rec => l_line_rec,
1394: p_old_line_rec => l_old_line_rec,
1501: l_param := l_line_rec.ato_line_id;
1502:
1503: END IF;
1504: IF l_debug_level > 0 THEN
1505: oe_debug_pub.add( 'LOGGING REQUEST: GROUP_SCHEDULE ATO' , 1 ) ;
1506: oe_debug_pub.add( 'L_PARAM ' || L_PARAM , 1 ) ;
1507: END IF;
1508:
1509: OE_delayed_requests_Pvt.log_request
1502:
1503: END IF;
1504: IF l_debug_level > 0 THEN
1505: oe_debug_pub.add( 'LOGGING REQUEST: GROUP_SCHEDULE ATO' , 1 ) ;
1506: oe_debug_pub.add( 'L_PARAM ' || L_PARAM , 1 ) ;
1507: END IF;
1508:
1509: OE_delayed_requests_Pvt.log_request
1510: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1522: goto end_schedule_line;
1523:
1524: ELSE -- Not an ato option/class
1525: IF l_debug_level > 0 THEN
1526: oe_debug_pub.add( 'LOGGING REQUEST: SCHEDULE LINE' , 1 ) ;
1527: END IF;
1528:
1529: OE_delayed_requests_Pvt.log_request
1530: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1588: IF l_set_rec.ship_from_org_id is null
1589: OR l_set_rec.ship_from_org_id = FND_API.G_MISS_NUM THEN
1590:
1591: IF l_debug_level > 0 THEN
1592: oe_debug_pub.add( 'ONLY SCHEDULED LINE IS GETTING INTO NEW SET' , 2 ) ;
1593: END IF;
1594:
1595: GOTO end_schedule_line;
1596:
1607: p_line_arrival_date => l_line_rec.schedule_arrival_date,
1608: p_set_type => l_set_rec.set_type) THEN
1609:
1610: IF l_debug_level > 0 THEN
1611: oe_debug_pub.add( 'ONLY SCHEDULED LINE IS GETTING INTO OLD SET' , 2 ) ;
1612: END IF;
1613:
1614: GOTO end_schedule_line;
1615:
1634:
1635: END IF;
1636:
1637: IF l_debug_level > 0 THEN
1638: oe_debug_pub.add( '2. LOGGING REQUEST: '|| OE_GLOBALS.G_SCHEDULE_LINE , 1 ) ;
1639: END IF;
1640: -- Added param7 to list to fix bug 1894284.
1641: OE_delayed_requests_Pvt.log_request
1642: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1665: -- to a set and will affect the whole set.Logging a delayed
1666: -- request since it will affect the whole set.
1667:
1668: IF l_debug_level > 0 THEN
1669: oe_debug_pub.add( '2. LOGGING A GROUP_SCH_REQUEST' , 1 ) ;
1670: oe_debug_pub.add( 'SET ATTRIBUTE HAS BEEN CHANGED' , 1 ) ;
1671: END IF;
1672:
1673: -- Group is either being rescheduling, and being scheduled for the
1666: -- request since it will affect the whole set.
1667:
1668: IF l_debug_level > 0 THEN
1669: oe_debug_pub.add( '2. LOGGING A GROUP_SCH_REQUEST' , 1 ) ;
1670: oe_debug_pub.add( 'SET ATTRIBUTE HAS BEEN CHANGED' , 1 ) ;
1671: END IF;
1672:
1673: -- Group is either being rescheduling, and being scheduled for the
1674: -- first time.
1709:
1710: l_schedule_ship_date := l_old_line_rec.schedule_ship_date;
1711: l_schedule_arrival_date := l_old_line_rec.schedule_arrival_date;
1712: IF l_debug_level > 0 THEN
1713: oe_debug_pub.add( '2. LOGGING A GROUP_SCH_REQUEST' , 1 ) ;
1714: END IF;
1715:
1716: OE_delayed_requests_Pvt.log_request
1717: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1737: END IF;
1738: ELSE
1739:
1740: IF l_debug_level > 0 THEN
1741: oe_debug_pub.add( 'CALLING CREATE_GROUP_REQUEST' , 1 ) ;
1742: END IF;
1743:
1744: Create_Group_Request(p_line_rec => l_line_rec,
1745: p_old_line_rec => p_old_line_rec,
1746: x_group_req_rec => l_group_req_rec,
1747: x_return_status => l_return_status);
1748:
1749: IF l_debug_level > 0 THEN
1750: oe_debug_pub.add( 'AFTER CALLING CREATE_GROUP_REQUEST: ' || L_RETURN_STATUS , 1 ) ;
1751: END IF;
1752:
1753: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1756: RAISE FND_API.G_EXC_ERROR;
1757: END IF;
1758:
1759: IF l_debug_level > 0 THEN
1760: oe_debug_pub.add( 'CALLING GROUP_SCHEDULE' , 1 ) ;
1761: END IF;
1762:
1763: OE_GRP_SCH_UTIL.Group_Schedule
1764: ( p_group_req_rec => l_group_req_rec
1765: ,x_atp_tbl => l_out_atp_tbl
1766: ,x_return_status => l_return_status);
1767:
1768: IF l_debug_level > 0 THEN
1769: oe_debug_pub.add( 'AFTER CALLING GROUP_SCHEDULE: ' || L_RETURN_STATUS , 1 ) ;
1770: END IF;
1771:
1772: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1786: -- with scheduling attributes which have been saved to the
1787: -- database.
1788:
1789: IF l_debug_level > 0 THEN
1790: oe_debug_pub.add( 'CALLING UPDATE_GROUP_SCH_RESULTS' , 1 ) ;
1791: END IF;
1792:
1793: l_out_line_rec := l_line_rec;
1794:
1795: Update_Group_Sch_Results(p_x_line_rec => l_out_line_rec,
1796: x_return_status => l_return_status);
1797:
1798: IF l_debug_level > 0 THEN
1799: oe_debug_pub.add( 'AFTER CALLING UPDATE_GROUP_SCH_RESULTS' , 1 ) ;
1800: END IF;
1801: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1803: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1807: -- Set the cascade_flag to TRUE, so that we query the block,
1808: -- since multiple lines have changed.
1809:
1810: IF l_debug_level > 0 THEN
1811: oe_debug_pub.add( 'SETTING G_CASCADING_REQUEST_LOGGED' , 1 ) ;
1812: END IF;
1813: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
1814: l_new_line_tbl(1) := l_out_line_rec;
1815:
1840:
1841: IF l_line_rec.OPERATION = OE_GLOBALS.G_OPR_CREATE THEN
1842:
1843: IF l_debug_level > 0 THEN
1844: oe_debug_pub.add( 'CALL SCHEDULE_PARENT_LINE IN POST-WRITE' , 3 ) ;
1845: END IF;
1846:
1847: OESCH_SCH_POST_WRITE := 'Y';
1848:
1849: l_out_line_rec := l_line_rec;
1850: ELSE
1851:
1852: IF l_debug_level > 0 THEN
1853: oe_debug_pub.add( 'SCH: CALLING SCHEDULE_PARENT_LINE' , 1 ) ;
1854: END IF;
1855:
1856: l_out_line_rec := l_line_rec;
1857:
1862: x_out_atp_tbl => l_out_atp_tbl,
1863: x_return_status => l_return_status);
1864:
1865: IF l_debug_level > 0 THEN
1866: oe_debug_pub.add( 'AFTER CALLING SCHEDULE_PARENT_LINE: ' || L_RETURN_STATUS , 1 ) ;
1867: END IF;
1868:
1869: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1894:
1895: END IF;
1896:
1897: IF l_debug_level > 0 THEN
1898: oe_debug_pub.add( 'CALLING PROCESS_REQUEST' , 1 ) ;
1899: END IF;
1900:
1901: l_out_line_rec := l_line_rec;
1902:
1905: x_out_atp_tbl => l_out_atp_tbl ,
1906: x_return_status => l_return_status);
1907:
1908: IF l_debug_level > 0 THEN
1909: oe_debug_pub.add( 'AFTER CALLING PROCESS_REQUEST: ' || L_RETURN_STATUS , 1 ) ;
1910: END IF;
1911:
1912: -- Setting back g_source_again
1913:
1919: RAISE FND_API.G_EXC_ERROR;
1920: END IF;
1921:
1922: IF l_debug_level > 0 THEN
1923: oe_debug_pub.add( 'COUNT IS ' || L_OUT_ATP_TBL.COUNT , 1 ) ;
1924: END IF;
1925:
1926: FOR P IN 1..l_out_atp_tbl.count LOOP
1927: IF l_debug_level > 0 THEN
1924: END IF;
1925:
1926: FOR P IN 1..l_out_atp_tbl.count LOOP
1927: IF l_debug_level > 0 THEN
1928: oe_debug_pub.add( 'ON HAND IS: ' || L_OUT_ATP_TBL ( P ) .ON_HAND_QTY , 1 ) ;
1929: END IF;
1930: END LOOP;
1931: l_new_line_tbl(1) := l_out_line_rec;
1932: -- Added Reserve statement to if to fix bug 1567688.
1931: l_new_line_tbl(1) := l_out_line_rec;
1932: -- Added Reserve statement to if to fix bug 1567688.
1933: -- Update order lines if the scheduling resulted in any attribute change.
1934: IF l_debug_level > 0 THEN
1935: oe_debug_pub.add( 'SCHEDULE STATUS OLD : '||L_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 3 ) ;
1936: oe_debug_pub.add( 'SCHEDULE STATUS NEW : '||L_OUT_LINE_REC.SCHEDULE_STATUS_CODE , 3 ) ;
1937: END IF;
1938: IF NOT OE_GLOBALS.Equal(l_out_line_rec.schedule_action_code,
1939: OESCH_ACT_ATP_CHECK) AND
1932: -- Added Reserve statement to if to fix bug 1567688.
1933: -- Update order lines if the scheduling resulted in any attribute change.
1934: IF l_debug_level > 0 THEN
1935: oe_debug_pub.add( 'SCHEDULE STATUS OLD : '||L_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 3 ) ;
1936: oe_debug_pub.add( 'SCHEDULE STATUS NEW : '||L_OUT_LINE_REC.SCHEDULE_STATUS_CODE , 3 ) ;
1937: END IF;
1938: IF NOT OE_GLOBALS.Equal(l_out_line_rec.schedule_action_code,
1939: OESCH_ACT_ATP_CHECK) AND
1940: NOT OE_GLOBALS.Equal(l_out_line_rec.schedule_action_code,
1945: g_update_flag = FND_API.G_TRUE
1946: THEN
1947:
1948: IF l_debug_level > 0 THEN
1949: oe_debug_pub.add( 'CALLING UPDATE_LINE_RECORD ' , 1 ) ;
1950: END IF;
1951:
1952: l_line_tbl(1) := l_line_rec;
1953:
1957: p_recursive_call => p_recursive_call,
1958: x_return_status => l_return_status);
1959:
1960: IF l_debug_level > 0 THEN
1961: oe_debug_pub.add( 'AFTER CALLING UPDATE_LINE_RECORD :' || L_RETURN_STATUS , 1 ) ;
1962: END IF;
1963:
1964: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2000: IF NOT OE_GLOBALS.EQUAL(l_out_line_rec.schedule_arrival_date,
2001: p_old_line_rec.schedule_arrival_date) THEN
2002:
2003: IF l_debug_level > 0 THEN
2004: oe_debug_pub.add( 'PASSING SCHEDULE_ARRIVAL_DATE TO PO ' , 3 ) ;
2005: END IF;
2006: Update_PO(l_out_line_rec.schedule_arrival_date,
2007: l_out_line_rec.source_document_id,
2008: l_out_line_rec.source_document_line_id);
2030:
2031: G_LINE_PART_OF_SET := FALSE;
2032:
2033: IF l_debug_level > 0 THEN
2034: oe_debug_pub.add( ' ' , 1 ) ;
2035: oe_debug_pub.add( 'PRINTING OUT NOCOPY RECORD: ' , 1 ) ;
2036: oe_debug_pub.add( ' P_X_LINE_REC LINE ID :'|| L_NEW_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
2037: oe_debug_pub.add( ' P_X_LINE_REC OPERATION :'|| L_NEW_LINE_TBL ( 1 ) .OPERATION , 1 ) ;
2038: oe_debug_pub.add( ' P_X_LINE_REC SCH STATUS :'|| L_NEW_LINE_TBL ( 1 ) .SCHEDULE_STATUS_CODE , 1 ) ;
2031: G_LINE_PART_OF_SET := FALSE;
2032:
2033: IF l_debug_level > 0 THEN
2034: oe_debug_pub.add( ' ' , 1 ) ;
2035: oe_debug_pub.add( 'PRINTING OUT NOCOPY RECORD: ' , 1 ) ;
2036: oe_debug_pub.add( ' P_X_LINE_REC LINE ID :'|| L_NEW_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
2037: oe_debug_pub.add( ' P_X_LINE_REC OPERATION :'|| L_NEW_LINE_TBL ( 1 ) .OPERATION , 1 ) ;
2038: oe_debug_pub.add( ' P_X_LINE_REC SCH STATUS :'|| L_NEW_LINE_TBL ( 1 ) .SCHEDULE_STATUS_CODE , 1 ) ;
2039: oe_debug_pub.add( ' P_X_LINE_REC RESERVED QTY : '|| L_NEW_LINE_TBL ( 1 ) .RESERVED_QUANTITY , 1 ) ;
2032:
2033: IF l_debug_level > 0 THEN
2034: oe_debug_pub.add( ' ' , 1 ) ;
2035: oe_debug_pub.add( 'PRINTING OUT NOCOPY RECORD: ' , 1 ) ;
2036: oe_debug_pub.add( ' P_X_LINE_REC LINE ID :'|| L_NEW_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
2037: oe_debug_pub.add( ' P_X_LINE_REC OPERATION :'|| L_NEW_LINE_TBL ( 1 ) .OPERATION , 1 ) ;
2038: oe_debug_pub.add( ' P_X_LINE_REC SCH STATUS :'|| L_NEW_LINE_TBL ( 1 ) .SCHEDULE_STATUS_CODE , 1 ) ;
2039: oe_debug_pub.add( ' P_X_LINE_REC RESERVED QTY : '|| L_NEW_LINE_TBL ( 1 ) .RESERVED_QUANTITY , 1 ) ;
2040: oe_debug_pub.add( 'AFTER PRINTING OUT NOCOPY RECORD: ' , 1 ) ;
2033: IF l_debug_level > 0 THEN
2034: oe_debug_pub.add( ' ' , 1 ) ;
2035: oe_debug_pub.add( 'PRINTING OUT NOCOPY RECORD: ' , 1 ) ;
2036: oe_debug_pub.add( ' P_X_LINE_REC LINE ID :'|| L_NEW_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
2037: oe_debug_pub.add( ' P_X_LINE_REC OPERATION :'|| L_NEW_LINE_TBL ( 1 ) .OPERATION , 1 ) ;
2038: oe_debug_pub.add( ' P_X_LINE_REC SCH STATUS :'|| L_NEW_LINE_TBL ( 1 ) .SCHEDULE_STATUS_CODE , 1 ) ;
2039: oe_debug_pub.add( ' P_X_LINE_REC RESERVED QTY : '|| L_NEW_LINE_TBL ( 1 ) .RESERVED_QUANTITY , 1 ) ;
2040: oe_debug_pub.add( 'AFTER PRINTING OUT NOCOPY RECORD: ' , 1 ) ;
2041: oe_debug_pub.add( ' ' , 1 ) ;
2034: oe_debug_pub.add( ' ' , 1 ) ;
2035: oe_debug_pub.add( 'PRINTING OUT NOCOPY RECORD: ' , 1 ) ;
2036: oe_debug_pub.add( ' P_X_LINE_REC LINE ID :'|| L_NEW_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
2037: oe_debug_pub.add( ' P_X_LINE_REC OPERATION :'|| L_NEW_LINE_TBL ( 1 ) .OPERATION , 1 ) ;
2038: oe_debug_pub.add( ' P_X_LINE_REC SCH STATUS :'|| L_NEW_LINE_TBL ( 1 ) .SCHEDULE_STATUS_CODE , 1 ) ;
2039: oe_debug_pub.add( ' P_X_LINE_REC RESERVED QTY : '|| L_NEW_LINE_TBL ( 1 ) .RESERVED_QUANTITY , 1 ) ;
2040: oe_debug_pub.add( 'AFTER PRINTING OUT NOCOPY RECORD: ' , 1 ) ;
2041: oe_debug_pub.add( ' ' , 1 ) ;
2042: oe_debug_pub.add( 'EXITING OE_ORDER_SCH_UTIL.SCHEDULE_LINE' , 1 ) ;
2035: oe_debug_pub.add( 'PRINTING OUT NOCOPY RECORD: ' , 1 ) ;
2036: oe_debug_pub.add( ' P_X_LINE_REC LINE ID :'|| L_NEW_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
2037: oe_debug_pub.add( ' P_X_LINE_REC OPERATION :'|| L_NEW_LINE_TBL ( 1 ) .OPERATION , 1 ) ;
2038: oe_debug_pub.add( ' P_X_LINE_REC SCH STATUS :'|| L_NEW_LINE_TBL ( 1 ) .SCHEDULE_STATUS_CODE , 1 ) ;
2039: oe_debug_pub.add( ' P_X_LINE_REC RESERVED QTY : '|| L_NEW_LINE_TBL ( 1 ) .RESERVED_QUANTITY , 1 ) ;
2040: oe_debug_pub.add( 'AFTER PRINTING OUT NOCOPY RECORD: ' , 1 ) ;
2041: oe_debug_pub.add( ' ' , 1 ) ;
2042: oe_debug_pub.add( 'EXITING OE_ORDER_SCH_UTIL.SCHEDULE_LINE' , 1 ) ;
2043: END IF;
2036: oe_debug_pub.add( ' P_X_LINE_REC LINE ID :'|| L_NEW_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
2037: oe_debug_pub.add( ' P_X_LINE_REC OPERATION :'|| L_NEW_LINE_TBL ( 1 ) .OPERATION , 1 ) ;
2038: oe_debug_pub.add( ' P_X_LINE_REC SCH STATUS :'|| L_NEW_LINE_TBL ( 1 ) .SCHEDULE_STATUS_CODE , 1 ) ;
2039: oe_debug_pub.add( ' P_X_LINE_REC RESERVED QTY : '|| L_NEW_LINE_TBL ( 1 ) .RESERVED_QUANTITY , 1 ) ;
2040: oe_debug_pub.add( 'AFTER PRINTING OUT NOCOPY RECORD: ' , 1 ) ;
2041: oe_debug_pub.add( ' ' , 1 ) ;
2042: oe_debug_pub.add( 'EXITING OE_ORDER_SCH_UTIL.SCHEDULE_LINE' , 1 ) ;
2043: END IF;
2044:
2037: oe_debug_pub.add( ' P_X_LINE_REC OPERATION :'|| L_NEW_LINE_TBL ( 1 ) .OPERATION , 1 ) ;
2038: oe_debug_pub.add( ' P_X_LINE_REC SCH STATUS :'|| L_NEW_LINE_TBL ( 1 ) .SCHEDULE_STATUS_CODE , 1 ) ;
2039: oe_debug_pub.add( ' P_X_LINE_REC RESERVED QTY : '|| L_NEW_LINE_TBL ( 1 ) .RESERVED_QUANTITY , 1 ) ;
2040: oe_debug_pub.add( 'AFTER PRINTING OUT NOCOPY RECORD: ' , 1 ) ;
2041: oe_debug_pub.add( ' ' , 1 ) ;
2042: oe_debug_pub.add( 'EXITING OE_ORDER_SCH_UTIL.SCHEDULE_LINE' , 1 ) ;
2043: END IF;
2044:
2045:
2038: oe_debug_pub.add( ' P_X_LINE_REC SCH STATUS :'|| L_NEW_LINE_TBL ( 1 ) .SCHEDULE_STATUS_CODE , 1 ) ;
2039: oe_debug_pub.add( ' P_X_LINE_REC RESERVED QTY : '|| L_NEW_LINE_TBL ( 1 ) .RESERVED_QUANTITY , 1 ) ;
2040: oe_debug_pub.add( 'AFTER PRINTING OUT NOCOPY RECORD: ' , 1 ) ;
2041: oe_debug_pub.add( ' ' , 1 ) ;
2042: oe_debug_pub.add( 'EXITING OE_ORDER_SCH_UTIL.SCHEDULE_LINE' , 1 ) ;
2043: END IF;
2044:
2045:
2046: EXCEPTION
2114: l_Line_Adj_Att_tbl OE_ORDER_PUB.Line_Adj_Att_Tbl_Type;
2115: l_Line_Adj_Assoc_tbl OE_ORDER_PUB.Line_Adj_Assoc_Tbl_Type;
2116: */
2117: --
2118: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2119: --
2120: BEGIN
2121:
2122: IF l_debug_level > 0 THEN
2119: --
2120: BEGIN
2121:
2122: IF l_debug_level > 0 THEN
2123: oe_debug_pub.add( 'ENTERING UPDATE_LINE_RECORD' , 1 ) ;
2124: END IF;
2125: -- Set control flags.
2126:
2127: l_control_rec.controlled_operation := TRUE;
2132: l_control_rec.check_security := TRUE;
2133:
2134: IF (p_write_to_db = FND_API.G_TRUE) THEN
2135: IF l_debug_level > 0 THEN
2136: oe_debug_pub.add( 'H1' , 1 ) ;
2137: END IF;
2138: l_control_rec.write_to_DB := TRUE;
2139: l_control_rec.validate_entity := TRUE;
2140: ELSE
2138: l_control_rec.write_to_DB := TRUE;
2139: l_control_rec.validate_entity := TRUE;
2140: ELSE
2141: IF l_debug_level > 0 THEN
2142: oe_debug_pub.add( 'H2' , 1 ) ;
2143: END IF;
2144: l_control_rec.write_to_DB := FALSE;
2145: END IF;
2146:
2153:
2154: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
2155:
2156: IF l_debug_level > 0 THEN
2157: oe_debug_pub.add( 'CALLING PROCESS ORDER' , 1 ) ;
2158: END IF;
2159:
2160: FOR I IN 1..p_x_new_line_tbl.count LOOP
2161: IF l_debug_level > 0 THEN
2158: END IF;
2159:
2160: FOR I IN 1..p_x_new_line_tbl.count LOOP
2161: IF l_debug_level > 0 THEN
2162: oe_debug_pub.add( 'I :' || I , 1 ) ;
2163: oe_debug_pub.add( 'OPERATION IS :' || P_X_NEW_LINE_TBL ( I ) .OPERATION , 1 ) ;
2164: END IF;
2165: /* Start Audit Trail */
2166: p_x_new_line_tbl(I).change_reason := 'SYSTEM';
2159:
2160: FOR I IN 1..p_x_new_line_tbl.count LOOP
2161: IF l_debug_level > 0 THEN
2162: oe_debug_pub.add( 'I :' || I , 1 ) ;
2163: oe_debug_pub.add( 'OPERATION IS :' || P_X_NEW_LINE_TBL ( I ) .OPERATION , 1 ) ;
2164: END IF;
2165: /* Start Audit Trail */
2166: p_x_new_line_tbl(I).change_reason := 'SYSTEM';
2167: p_x_new_line_tbl(I).change_comments := 'Scheduling Action';
2212: END IF;
2213: */
2214: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2215: IF l_debug_level > 0 THEN
2216: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
2217: END IF;
2218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2219: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2220: IF l_debug_level > 0 THEN
2217: END IF;
2218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2219: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2220: IF l_debug_level > 0 THEN
2221: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
2222: END IF;
2223: RAISE FND_API.G_EXC_ERROR;
2224: END IF;
2225:
2270: , p_x_Lot_Serial_Tbl => l_lot_serial_out_tbl
2271: );
2272: */
2273: IF l_debug_level > 0 THEN
2274: oe_debug_pub.add( 'SCH: AFTER CALLING PROCESS ORDER' , 1 ) ;
2275: oe_debug_pub.add( 'L_RETURN_STATUS IS ' || L_RETURN_STATUS , 1 ) ;
2276: END IF;
2277:
2278: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2271: );
2272: */
2273: IF l_debug_level > 0 THEN
2274: oe_debug_pub.add( 'SCH: AFTER CALLING PROCESS ORDER' , 1 ) ;
2275: oe_debug_pub.add( 'L_RETURN_STATUS IS ' || L_RETURN_STATUS , 1 ) ;
2276: END IF;
2277:
2278: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2279: IF l_debug_level > 0 THEN
2276: END IF;
2277:
2278: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2279: IF l_debug_level > 0 THEN
2280: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
2281: END IF;
2282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2283: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2284: IF l_debug_level > 0 THEN
2281: END IF;
2282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2283: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2284: IF l_debug_level > 0 THEN
2285: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
2286: END IF;
2287: RAISE FND_API.G_EXC_ERROR;
2288: END IF;
2289:
2291:
2292: x_return_status := l_return_status;
2293:
2294: IF l_debug_level > 0 THEN
2295: oe_debug_pub.add( 'EXITING UPDATE LINE RECORD' , 1 ) ;
2296: END IF;
2297: EXCEPTION
2298:
2299: -- resetting the flag to fix bug 2043973.
2346: l_schedule_action_code VARCHAR2(30);
2347: l_schedule_status_code VARCHAR2(30);
2348: l_order_date_type_code VARCHAR2(30):='';
2349: --
2350: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2351: --
2352: BEGIN
2353:
2354: IF l_debug_level > 0 THEN
2351: --
2352: BEGIN
2353:
2354: IF l_debug_level > 0 THEN
2355: oe_debug_pub.add( 'ENTERING NEED SCHEDULING' , 1 ) ;
2356: oe_debug_pub.add( 'SPLIT ACTION :' || P_LINE_REC.SPLIT_ACTION_CODE , 1 ) ;
2357: oe_debug_pub.add( 'S. LINE_ID :' || P_LINE_REC.SPLIT_FROM_LINE_ID , 1 ) ;
2358: END IF;
2359:
2352: BEGIN
2353:
2354: IF l_debug_level > 0 THEN
2355: oe_debug_pub.add( 'ENTERING NEED SCHEDULING' , 1 ) ;
2356: oe_debug_pub.add( 'SPLIT ACTION :' || P_LINE_REC.SPLIT_ACTION_CODE , 1 ) ;
2357: oe_debug_pub.add( 'S. LINE_ID :' || P_LINE_REC.SPLIT_FROM_LINE_ID , 1 ) ;
2358: END IF;
2359:
2360: -- We do not schedule service lines. So return false for them.
2353:
2354: IF l_debug_level > 0 THEN
2355: oe_debug_pub.add( 'ENTERING NEED SCHEDULING' , 1 ) ;
2356: oe_debug_pub.add( 'SPLIT ACTION :' || P_LINE_REC.SPLIT_ACTION_CODE , 1 ) ;
2357: oe_debug_pub.add( 'S. LINE_ID :' || P_LINE_REC.SPLIT_FROM_LINE_ID , 1 ) ;
2358: END IF;
2359:
2360: -- We do not schedule service lines. So return false for them.
2361: IF (p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_SERVICE) THEN
2400: (p_line_rec.split_from_line_id <> FND_API.G_MISS_NUM) AND
2401: (p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE)
2402: THEN
2403: IF l_debug_level > 0 THEN
2404: oe_debug_pub.add( 'THIS IS A NEW LINE CREATED THRU SPLIT' , 1 ) ;
2405: END IF;
2406: RETURN FALSE;
2407: END IF;
2408:
2414: IF (p_line_rec.schedule_status_code is not null) AND
2415: (p_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
2416: THEN
2417: IF l_debug_level > 0 THEN
2418: oe_debug_pub.add( 'THIS LINE IS BEING SPLIT' , 1 ) ;
2419: END IF;
2420: RETURN FALSE;
2421: END IF;
2422: END IF;
2456: RETURN FALSE;
2457: END IF;
2458:
2459: IF l_debug_level > 0 THEN
2460: oe_debug_pub.add( 'N6' , 1 ) ;
2461: END IF;
2462: IF (l_schedule_status_code = OESCH_STATUS_SCHEDULED AND
2463: l_schedule_action_code = OESCH_ACT_SCHEDULE AND
2464: p_line_rec.ordered_quantity = p_old_line_rec.reserved_quantity) THEN
2467: RETURN FALSE;
2468: END IF;
2469:
2470: IF l_debug_level > 0 THEN
2471: oe_debug_pub.add( 'N7: ' || L_SCHEDULE_ACTION_CODE , 1 ) ;
2472: END IF;
2473: IF (l_schedule_action_code is not null)
2474: THEN
2475: RETURN TRUE;
2475: RETURN TRUE;
2476: END IF;
2477:
2478: IF l_debug_level > 0 THEN
2479: oe_debug_pub.add( 'N8' , 1 ) ;
2480: END IF;
2481: IF NOT OE_GLOBALS.Equal(p_line_rec.schedule_ship_date,
2482: p_old_line_rec.schedule_ship_date)
2483: THEN
2490: RETURN TRUE;
2491: END IF;
2492:
2493: IF l_debug_level > 0 THEN
2494: oe_debug_pub.add( 'NEW RESERVED QTY' || P_LINE_REC.RESERVED_QUANTITY ) ;
2495: oe_debug_pub.add( 'OLD RESERVED QTY' || P_OLD_LINE_REC.RESERVED_QUANTITY ) ;
2496: END IF;
2497:
2498: IF NOT OE_GLOBALS.Equal(p_line_rec.reserved_quantity,
2491: END IF;
2492:
2493: IF l_debug_level > 0 THEN
2494: oe_debug_pub.add( 'NEW RESERVED QTY' || P_LINE_REC.RESERVED_QUANTITY ) ;
2495: oe_debug_pub.add( 'OLD RESERVED QTY' || P_OLD_LINE_REC.RESERVED_QUANTITY ) ;
2496: END IF;
2497:
2498: IF NOT OE_GLOBALS.Equal(p_line_rec.reserved_quantity,
2499: p_old_line_rec.reserved_quantity)
2509: END IF;
2510:
2511:
2512: IF l_debug_level > 0 THEN
2513: oe_debug_pub.add( 'RR:G5' , 1 ) ;
2514: END IF;
2515: IF (p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE) THEN
2516: IF (OESCH_AUTO_SCH_FLAG = 'N')
2517: THEN
2535: -- scheduled lines.
2536:
2537: IF p_line_rec.schedule_status_code is NOT NULL THEN
2538: IF l_debug_level > 0 THEN
2539: oe_debug_pub.add( 'RR:G6' , 6 ) ;
2540: END IF;
2541:
2542: IF NOT OE_GLOBALS.Equal(p_line_rec.ship_from_org_id,
2543: p_old_line_rec.ship_from_org_id)
2548: IF NOT OE_GLOBALS.Equal(p_line_rec.subinventory,
2549: p_old_line_rec.subinventory)
2550: THEN
2551: IF l_debug_level > 0 THEN
2552: oe_debug_pub.add( 'SUBINVENTORY CHANGED , NEED RESCHEDULING' , 1 ) ;
2553: END IF;
2554: RETURN TRUE;
2555: END IF;
2556:
2560: RETURN TRUE;
2561: END IF;
2562:
2563: IF l_debug_level > 0 THEN
2564: oe_debug_pub.add( 'RR:G7' , 1 ) ;
2565: END IF;
2566: IF NOT OE_GLOBALS.Equal(p_line_rec.order_quantity_uom,
2567: p_old_line_rec.order_quantity_uom)
2568: THEN
2569: RETURN TRUE;
2570: END IF;
2571:
2572: IF l_debug_level > 0 THEN
2573: oe_debug_pub.add( 'RR:G8' , 1 ) ;
2574: END IF;
2575: IF NOT OE_GLOBALS.Equal(p_line_rec.request_date,
2576: p_old_line_rec.request_date)
2577: THEN
2578: RETURN TRUE;
2579: END IF;
2580:
2581: IF l_debug_level > 0 THEN
2582: oe_debug_pub.add( 'RR:G9' , 1 ) ;
2583: END IF;
2584: IF NOT OE_GLOBALS.Equal(p_line_rec.shipping_method_code,
2585: p_old_line_rec.shipping_method_code)
2586: THEN
2587: RETURN TRUE;
2588: END IF;
2589:
2590: IF l_debug_level > 0 THEN
2591: oe_debug_pub.add( 'RR:G10' , 1 ) ;
2592: END IF;
2593: IF NOT OE_GLOBALS.Equal(p_line_rec.delivery_lead_time,
2594: p_old_line_rec.delivery_lead_time)
2595: THEN
2611:
2612: END IF;
2613:
2614: IF l_debug_level > 0 THEN
2615: oe_debug_pub.add( 'RR:G11' , 1 ) ;
2616: END IF;
2617: IF NOT OE_GLOBALS.Equal(p_line_rec.demand_class_code,
2618: p_old_line_rec.demand_class_code)
2619: THEN
2624: Forecasting attributes.
2625: */
2626:
2627: IF l_debug_level > 0 THEN
2628: oe_debug_pub.add( 'RR:G12' , 1 ) ;
2629: END IF;
2630: IF NOT OE_GLOBALS.Equal(p_line_rec.ship_to_org_id,
2631: p_old_line_rec.ship_to_org_id)
2632: THEN
2633: RETURN TRUE;
2634: END IF;
2635:
2636: IF l_debug_level > 0 THEN
2637: oe_debug_pub.add( 'RR:G13' , 1 ) ;
2638: END IF;
2639: IF NOT OE_GLOBALS.Equal(p_line_rec.sold_to_org_id,
2640: p_old_line_rec.sold_to_org_id)
2641: THEN
2642: RETURN TRUE;
2643: END IF;
2644:
2645: IF l_debug_level > 0 THEN
2646: oe_debug_pub.add( 'RR:G14' , 1 ) ;
2647: END IF;
2648: IF NOT OE_GLOBALS.Equal(p_line_rec.inventory_item_id,
2649: p_old_line_rec.inventory_item_id)
2650: THEN
2657: NOT OE_GLOBALS.Equal(p_line_rec.source_type_code,
2658: p_old_line_rec.source_type_code)
2659: THEN
2660: IF l_debug_level > 0 THEN
2661: oe_debug_pub.add( 'SOURCE TYPE MADE EXTERNAL , UNSCHEDULE' , 4 ) ;
2662: END IF;
2663: RETURN TRUE;
2664: END IF;
2665:
2687: l_scheduling_level_code VARCHAR2(30) := null;
2688: l_line_type VARCHAR2(80) := null;
2689: l_order_type VARCHAR2(80) := null;
2690: --
2691: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2692: --
2693: BEGIN
2694:
2695: IF l_debug_level > 0 THEN
2692: --
2693: BEGIN
2694:
2695: IF l_debug_level > 0 THEN
2696: oe_debug_pub.add( 'ENTERING GET_SCHEDULING_LEVEL: ' || P_HEADER_ID||'/'||P_LINE_TYPE_ID , 1 ) ;
2697: END IF;
2698:
2699: IF p_line_type_id = sch_cached_line_type_id
2700: THEN
2739: sch_cached_sch_level_code_head := l_scheduling_level_code;
2740: sch_cached_order_type := l_order_type;
2741:
2742: IF l_debug_level > 0 THEN
2743: oe_debug_pub.add( 'EXITING GET_SCHEDULING_LEVEL' , 1 ) ;
2744: END IF;
2745: RETURN l_scheduling_level_code;
2746:
2747: EXCEPTION
2775: l_org_id NUMBER;
2776: l_bill_seq_id NUMBER;
2777: l_make_buy NUMBER;
2778: --
2779: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2780: --
2781: BEGIN
2782:
2783: IF l_debug_level > 0 THEN
2780: --
2781: BEGIN
2782:
2783: IF l_debug_level > 0 THEN
2784: oe_debug_pub.add( '..ENTERING OE_ORDER_SCH_UTIL.VALIDATE_LINE' , 6 ) ;
2785: END IF;
2786:
2787: -- If the quantity on the line is missing or null and if
2788: -- the user is trying to performing scheduling, it is an error
2813: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ZERO_QTY');
2814: OE_MSG_PUB.Add;
2815:
2816: IF l_debug_level > 0 THEN
2817: oe_debug_pub.add( 'E2' , 1 ) ;
2818: END IF;
2819: l_return_status := FND_API.G_RET_STS_ERROR;
2820: END IF;
2821:
2833: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_FULLY_CANCELLED');
2834: OE_MSG_PUB.Add;
2835:
2836: IF l_debug_level > 0 THEN
2837: oe_debug_pub.add( 'E3' , 1 ) ;
2838: END IF;
2839: l_return_status := FND_API.G_RET_STS_ERROR;
2840:
2841: END IF;
2859: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_SHIPPED');
2860: OE_MSG_PUB.Add;
2861:
2862: IF l_debug_level > 0 THEN
2863: oe_debug_pub.add( 'OE_SCH_LINE_SHIPPED' , 1 ) ;
2864: END IF;
2865: l_return_status := FND_API.G_RET_STS_ERROR;
2866:
2867: END IF;
2875:
2876: -- Bug 2314463 Start
2877: IF p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CONFIG THEN
2878: IF l_debug_level > 0 THEN
2879: oe_debug_pub.add( 'INSIDE CONFIG ITEM...RESERVED QTY CHANGED' , 1 ) ;
2880: END IF;
2881: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_ACTION');
2882: FND_MESSAGE.SET_TOKEN('ACTION',OE_Id_To_Value.Inventory_Item(p_line_rec.inventory_item_id));
2883: OE_MSG_PUB.Add;
2892: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_MORE_ORD_QTY');
2893: OE_MSG_PUB.Add;
2894:
2895: IF l_debug_level > 0 THEN
2896: oe_debug_pub.add( 'E4' , 1 ) ;
2897: END IF;
2898: l_return_status := FND_API.G_RET_STS_ERROR;
2899: END IF;
2900:
2905: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_MORE_ORD_QTY');
2906: OE_MSG_PUB.Add;
2907:
2908: IF l_debug_level > 0 THEN
2909: oe_debug_pub.add( 'E4a' , 1 ) ;
2910: END IF;
2911: l_return_status := FND_API.G_RET_STS_ERROR;
2912: END IF;
2913:
2921: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_QTY_CHG_NOT_ALLOWED');
2922: OE_MSG_PUB.Add;
2923: l_return_status := FND_API.G_RET_STS_ERROR;
2924: IF l_debug_level > 0 THEN
2925: oe_debug_pub.add( 'E5' , 1 ) ;
2926: END IF;
2927: END IF;
2928: END IF;
2929:
2945: OE_MSG_PUB.Add;
2946:
2947: l_return_status := FND_API.G_RET_STS_ERROR;
2948: IF l_debug_level > 0 THEN
2949: oe_debug_pub.add( 'E6' , 1 ) ;
2950: END IF;
2951: END IF;
2952: END IF;
2953: END IF;
2971: OE_MSG_PUB.Add;
2972:
2973: l_return_status := FND_API.G_RET_STS_ERROR;
2974: IF l_debug_level > 0 THEN
2975: oe_debug_pub.add( 'E6a' , 1 ) ;
2976: END IF;
2977: END IF;
2978: END IF;
2979: END IF;
2990: OE_MSG_PUB.Add;
2991:
2992: l_return_status := FND_API.G_RET_STS_ERROR;
2993: IF l_debug_level > 0 THEN
2994: oe_debug_pub.add( 'E7' , 1 ) ;
2995: END IF;
2996: END IF;
2997:
2998: -- If the item on the line is missing or null and if the user
2998: -- If the item on the line is missing or null and if the user
2999: -- is trying to performing scheduling, it is an error
3000:
3001: IF l_debug_level > 0 THEN
3002: oe_debug_pub.add( 'CHECKING THE ITEM....' , 1 ) ;
3003: END IF;
3004:
3005: IF (p_line_rec.inventory_item_id is null OR
3006: p_line_rec.inventory_item_id = FND_API.G_MISS_NUM) THEN
3015: -- if the user is trying to performing scheduling,
3016: -- it is an error
3017:
3018: IF l_debug_level > 0 THEN
3019: oe_debug_pub.add( 'CHECKING THE REQUEST DATE....' , 1 ) ;
3020: END IF;
3021: IF (p_line_rec.request_date is null OR
3022: p_line_rec.request_date = FND_API.G_MISS_DATE) THEN
3023:
3027: END IF;
3028:
3029: -- If the line belongs to a set, you cannot unschedule the line
3030: IF l_debug_level > 0 THEN
3031: oe_debug_pub.add( 'CHECKING FOR SET VALIDATIONS....' , 1 ) ;
3032: END IF;
3033: IF ((p_line_rec.ship_set_id is not null AND
3034: p_line_rec.ship_set_id <> FND_API.G_MISS_NUM) AND
3035: (p_line_rec.schedule_action_code = OESCH_ACT_UNDEMAND OR
3042: l_return_status := FND_API.G_RET_STS_ERROR;
3043: END IF;
3044:
3045: IF l_debug_level > 0 THEN
3046: oe_debug_pub.add( 'CHECKING FOR HOLDS....' , 1 ) ;
3047: END IF;
3048: IF FND_PROFILE.VALUE('ONT_SCHEDULE_LINE_ON_HOLD') = 'N' AND
3049: (p_line_rec.schedule_action_code = OESCH_ACT_SCHEDULE OR
3050: p_line_rec.schedule_action_code = OESCH_ACT_RESERVE OR
3065: -- Since the profile is set to NO, we should not schedule
3066: -- the line if the line is on hold.
3067:
3068: IF l_debug_level > 0 THEN
3069: oe_debug_pub.add( 'CALLING CHECK HOLDS' , 1 ) ;
3070: END IF;
3071:
3072: OE_Holds_PUB.Check_Holds
3073: ( p_api_version => 1.0
3084: , x_result_out => l_result
3085: );
3086:
3087: IF l_debug_level > 0 THEN
3088: oe_debug_pub.add( 'AFTER CALLING CHECK HOLDS: ' || L_OUT_RETURN_STATUS , 1 ) ;
3089: END IF;
3090:
3091: IF (l_out_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3092: IF l_out_return_status = FND_API.G_RET_STS_ERROR THEN
3108: -- on this line. If the action requested is not allowed for the
3109: -- scheduling action, error out.
3110:
3111: IF l_debug_level > 0 THEN
3112: oe_debug_pub.add( 'CHECKING SCHEDULING LEVEL...' , 1 ) ;
3113: END IF;
3114: l_scheduling_level_code := Get_Scheduling_Level(p_line_rec.header_id,
3115: p_line_rec.line_type_id);
3116:
3114: l_scheduling_level_code := Get_Scheduling_Level(p_line_rec.header_id,
3115: p_line_rec.line_type_id);
3116:
3117: IF l_debug_level > 0 THEN
3118: oe_debug_pub.add( 'L_SCHEDULING_LEVEL_CODE : ' || L_SCHEDULING_LEVEL_CODE , 1 ) ;
3119: END IF;
3120:
3121: IF l_scheduling_level_code is not null THEN
3122: IF l_scheduling_level_code = SCH_LEVEL_ONE THEN
3171: l_make_buy := 1;
3172: END;
3173:
3174: IF l_debug_level > 0 THEN
3175: oe_debug_pub.add( 'L_MAKE_BUY' || L_MAKE_BUY , 2 ) ;
3176: END IF;
3177:
3178: IF nvl(l_make_buy,1) <> 2 THEN
3179: BEGIN
3187:
3188: EXCEPTION
3189: WHEN NO_DATA_FOUND THEN
3190: IF l_debug_level > 0 THEN
3191: oe_debug_pub.add( 'NO BILL IS DEFINED' , 2 ) ;
3192: END IF;
3193: FND_MESSAGE.SET_NAME('ONT','OE_BOM_NO_BILL_IN_VAL_ORG');
3194: FND_MESSAGE.SET_TOKEN('ITEM',nvl(p_line_rec.ordered_item,p_line_rec.inventory_item_id));
3195: FND_MESSAGE.SET_TOKEN('ORG',l_org_id);
3204:
3205: x_return_status := l_return_status;
3206:
3207: IF l_debug_level > 0 THEN
3208: oe_debug_pub.add( '..EXITING OE_ORDER_SCH_UTIL.VALIDATE_LINE WITH ' || L_RETURN_STATUS , 1 ) ;
3209: END IF;
3210: END Validate_Line;
3211:
3212: /*---------------------------------------------------------------------
3216: FUNCTION Scheduling_Activity(p_line_rec IN OE_ORDER_PUB.line_rec_type)
3217: RETURN BOOLEAN
3218: IS
3219: --
3220: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3221: --
3222: BEGIN
3223: RETURN TRUE;
3224: END Scheduling_Activity;
3230: Procedure Check_Item_Attribute(p_line_rec IN OE_ORDER_PUB.line_rec_type)
3231: IS
3232: l_item_rec OE_ORDER_CACHE.item_rec_type;
3233: --
3234: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3235: --
3236: BEGIN
3237:
3238: IF l_debug_level > 0 THEN
3235: --
3236: BEGIN
3237:
3238: IF l_debug_level > 0 THEN
3239: oe_debug_pub.add( '..ENTERING CHECK_ITEM_ATTRIBUTE' , 1 ) ;
3240: END IF;
3241:
3242: /*
3243: l_item_rec := Oe_Order_Cache.Load_Item
3243: l_item_rec := Oe_Order_Cache.Load_Item
3244: (p_key1 => p_line_rec.inventory_item_id,
3245: p_key2 => p_line_rec.ship_from_org_id);
3246:
3247: oe_debug_pub.add('..Exiting Check_Item_Attribute',1);
3248: */
3249:
3250: END Check_Item_Attribute;
3251:
3295:
3296:
3297:
3298: --
3299: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3300: --
3301: BEGIN
3302:
3303: IF l_debug_level > 0 THEN
3300: --
3301: BEGIN
3302:
3303: IF l_debug_level > 0 THEN
3304: oe_debug_pub.add( 'ENTERING QUERY_QTY_TREE ' , 1 ) ;
3305: oe_debug_pub.add( 'ORG IS : ' || P_ORG_ID , 1 ) ;
3306: oe_debug_pub.add( 'ITEM IS : ' || P_ITEM_ID , 1 ) ;
3307: END IF;
3308: /* -- added by fabdi 03/May/2001
3301: BEGIN
3302:
3303: IF l_debug_level > 0 THEN
3304: oe_debug_pub.add( 'ENTERING QUERY_QTY_TREE ' , 1 ) ;
3305: oe_debug_pub.add( 'ORG IS : ' || P_ORG_ID , 1 ) ;
3306: oe_debug_pub.add( 'ITEM IS : ' || P_ITEM_ID , 1 ) ;
3307: END IF;
3308: /* -- added by fabdi 03/May/2001
3309: IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => p_org_id)
3302:
3303: IF l_debug_level > 0 THEN
3304: oe_debug_pub.add( 'ENTERING QUERY_QTY_TREE ' , 1 ) ;
3305: oe_debug_pub.add( 'ORG IS : ' || P_ORG_ID , 1 ) ;
3306: oe_debug_pub.add( 'ITEM IS : ' || P_ITEM_ID , 1 ) ;
3307: END IF;
3308: /* -- added by fabdi 03/May/2001
3309: IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => p_org_id)
3310: THEN
3379: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
3380: for I in 1..l_msg_count loop
3381: l_msg_data := OE_MSG_PUB.Get(I,'F');
3382: IF l_debug_level > 0 THEN
3383: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
3384: END IF;
3385: end loop;
3386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3387: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3389: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
3390: for I in 1..l_msg_count loop
3391: l_msg_data := OE_MSG_PUB.Get(I,'F');
3392: IF l_debug_level > 0 THEN
3393: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
3394: END IF;
3395: end loop;
3396: RAISE FND_API.G_EXC_ERROR;
3397: END IF;
3427: , x_satr => l_satr -- INVCONV
3428: );
3429:
3430: IF l_debug_level > 0 THEN
3431: oe_debug_pub.add( 'AFTER CALLING QUERY_QUANTITIES' , 1 ) ;
3432: END IF;
3433:
3434: -- END IF;
3435:
3449: end if;
3450: end if; */
3451:
3452: IF l_debug_level > 0 THEN
3453: oe_debug_pub.add( 'RR: L_QOH ' || L_QOH , 1 ) ;
3454: oe_debug_pub.add( 'RR: L_QOH ' || L_ATR , 1 ) ;
3455: END IF;
3456:
3457: x_on_hand_qty := l_qoh;
3450: end if; */
3451:
3452: IF l_debug_level > 0 THEN
3453: oe_debug_pub.add( 'RR: L_QOH ' || L_QOH , 1 ) ;
3454: oe_debug_pub.add( 'RR: L_QOH ' || L_ATR , 1 ) ;
3455: END IF;
3456:
3457: x_on_hand_qty := l_qoh;
3458: x_avail_to_reserve := l_atr;
3457: x_on_hand_qty := l_qoh;
3458: x_avail_to_reserve := l_atr;
3459:
3460: IF l_debug_level > 0 THEN
3461: oe_debug_pub.add( 'EXITING QUERY_QTY_TREE ' , 1 ) ;
3462: END IF;
3463:
3464: END Query_Qty_Tree;
3465:
3483: l_time_to_ship NUMBER;
3484: l_sysdate DATE;
3485: l_schedule_ship_date DATE;
3486: --
3487: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3488: --
3489: BEGIN
3490: -- We will check to see if the the schedule_ship_date is within
3491: -- the reservation time fence. i.e:
3503: l_rsv_time_fence := to_number(l_rsv_time_fence_profile);
3504: EXCEPTION
3505: WHEN OTHERS THEN
3506: IF l_debug_level > 0 THEN
3507: oe_debug_pub.add( 'IGNORING RESERVATION TIME FENCE' , 1 ) ;
3508: END IF;
3509: l_rsv_time_fence := null;
3510: END;
3511:
3514:
3515: l_time_to_ship := to_number(l_schedule_ship_date -l_sysdate);
3516:
3517: IF l_debug_level > 0 THEN
3518: oe_debug_pub.add( 'L_TIME_TO_SHIP' || L_TIME_TO_SHIP , 1 ) ;
3519: oe_debug_pub.add( 'L_RSV_TIME_FENCE' || L_RSV_TIME_FENCE , 1 ) ;
3520: END IF;
3521:
3522: IF l_time_to_ship < 0 THEN
3515: l_time_to_ship := to_number(l_schedule_ship_date -l_sysdate);
3516:
3517: IF l_debug_level > 0 THEN
3518: oe_debug_pub.add( 'L_TIME_TO_SHIP' || L_TIME_TO_SHIP , 1 ) ;
3519: oe_debug_pub.add( 'L_RSV_TIME_FENCE' || L_RSV_TIME_FENCE , 1 ) ;
3520: END IF;
3521:
3522: IF l_time_to_ship < 0 THEN
3523: -- We don't know what this means. Schedule ship date is already
3583: l_lot_code NUMBER;
3584: l_serial_code NUMBER;
3585:
3586: --
3587: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3588: --
3589: BEGIN
3590:
3591: IF l_debug_level > 0 THEN
3588: --
3589: BEGIN
3590:
3591: IF l_debug_level > 0 THEN
3592: oe_debug_pub.add( 'ENTERING ACTION SCHEDULE' , 1 ) ;
3593: END IF;
3594: l_line_rec := p_x_line_rec;
3595: l_out_line_rec := p_x_line_rec;
3596: l_old_line_rec := p_old_line_rec;
3595: l_out_line_rec := p_x_line_rec;
3596: l_old_line_rec := p_old_line_rec;
3597:
3598: IF l_debug_level > 0 THEN
3599: oe_debug_pub.add( 'RR5: ATO LINE ID: ' || L_LINE_REC.ATO_LINE_ID , 1 ) ;
3600: END IF;
3601: IF (l_line_rec.schedule_status_code is null)
3602: THEN
3603:
3605: -- Create MRP record from the line record with the action of schedule
3606: -- The result of the request should be in x_request_rec
3607:
3608: IF l_debug_level > 0 THEN
3609: oe_debug_pub.add( 'SCHEDULE THE LINE' , 1 ) ;
3610: END IF;
3611:
3612: -- Setting the action to schedule since first we need to schedule the line.
3613: -- Will reset the action to what is actually was after calling MRP.
3622: , p_old_line_tbl => l_old_line_tbl
3623: , x_atp_table => l_mrp_atp_rec);
3624:
3625: IF l_debug_level > 0 THEN
3626: oe_debug_pub.add( 'SCH1 COUNT IS ' || L_MRP_ATP_REC.ERROR_CODE.COUNT , 1 ) ;
3627: END IF;
3628:
3629: -- We are adding this so that we will not call MRP when
3630: -- table count is 0.
3634:
3635: l_session_id := Get_Session_Id;
3636:
3637: IF l_debug_level > 0 THEN
3638: oe_debug_pub.add( '1. CALLING MRP API WITH SESSION ID '||L_SESSION_ID , 1 ) ;
3639: END IF;
3640:
3641: MRP_ATP_PUB.Call_ATP
3642: ( p_session_id => l_session_id
3649: , x_msg_data => mrp_msg_data
3650: , x_msg_count => l_msg_count);
3651:
3652: IF l_debug_level > 0 THEN
3653: oe_debug_pub.add( '1. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || L_RETURN_STATUS , 1 ) ;
3654: END IF;
3655: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3656: IF l_debug_level > 0 THEN
3657: oe_debug_pub.add( 'ERROR IS' || MRP_MSG_DATA , 1 ) ;
3653: oe_debug_pub.add( '1. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || L_RETURN_STATUS , 1 ) ;
3654: END IF;
3655: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3656: IF l_debug_level > 0 THEN
3657: oe_debug_pub.add( 'ERROR IS' || MRP_MSG_DATA , 1 ) ;
3658: END IF;
3659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3660: END IF;
3661:
3668:
3669: l_out_line_rec := l_line_tbl(1);
3670:
3671: IF l_debug_level > 0 THEN
3672: oe_debug_pub.add( 'RR: L_RETURN_STATUS ' || L_RETURN_STATUS , 1 ) ;
3673: END IF;
3674: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3675: IF l_debug_level > 0 THEN
3676: oe_debug_pub.add( 'RR: L1' , 1 ) ;
3672: oe_debug_pub.add( 'RR: L_RETURN_STATUS ' || L_RETURN_STATUS , 1 ) ;
3673: END IF;
3674: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3675: IF l_debug_level > 0 THEN
3676: oe_debug_pub.add( 'RR: L1' , 1 ) ;
3677: END IF;
3678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3679: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3680: IF l_debug_level > 0 THEN
3677: END IF;
3678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3679: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3680: IF l_debug_level > 0 THEN
3681: oe_debug_pub.add( 'RR: L2' , 1 ) ;
3682: END IF;
3683: RAISE FND_API.G_EXC_ERROR;
3684: END IF;
3685:
3686: -- Reloading l_line_rec from l_out_line_tbl since the record
3687: -- in the table is the one which is demanded.
3688:
3689: IF l_debug_level > 0 THEN
3690: oe_debug_pub.add( 'RR: L3' , 1 ) ;
3691: END IF;
3692: l_line_rec := l_line_tbl(1);
3693: l_line_rec.schedule_action_code := p_action;
3694:
3694:
3695: END IF; /* If schedule_status_code is null */
3696:
3697: IF l_debug_level > 0 THEN
3698: oe_debug_pub.add( 'RR: L4' , 1 ) ;
3699: oe_debug_pub.add( 'SCH_CACHED_SCH_LEVEL_CODE ' || SCH_CACHED_SCH_LEVEL_CODE , 1 ) ;
3700: END IF;
3701:
3702: IF (p_action = OESCH_ACT_RESERVE)
3695: END IF; /* If schedule_status_code is null */
3696:
3697: IF l_debug_level > 0 THEN
3698: oe_debug_pub.add( 'RR: L4' , 1 ) ;
3699: oe_debug_pub.add( 'SCH_CACHED_SCH_LEVEL_CODE ' || SCH_CACHED_SCH_LEVEL_CODE , 1 ) ;
3700: END IF;
3701:
3702: IF (p_action = OESCH_ACT_RESERVE)
3703: OR (p_action = OESCH_ACT_SCHEDULE AND
3766:
3767: IF l_reservable_type <> 1 THEN
3768:
3769: IF l_debug_level > 0 THEN
3770: oe_debug_pub.add( 'NON RESERVABLE ITEM RESERVATION NOT REQUIRED '||L_RESERVABLE_TYPE , 3 ) ;
3771: END IF;
3772: GOTO NO_RESERVATION;
3773: END IF;
3774:
3774:
3775: END IF;
3776:
3777: IF l_debug_level > 0 THEN
3778: oe_debug_pub.add( 'L_QTY_TO_RESERVE : ' || L_QTY_TO_RESERVE , 3 ) ;
3779: oe_debug_pub.add( 'L_QTY2_TO_RESERVE : ' || L_QTY2_TO_RESERVE , 3 ) ; -- INVCONV
3780: END IF;
3781: --newsub check if item is under lot/revision/serial control
3782: IF l_line_rec.subinventory is not null
3775: END IF;
3776:
3777: IF l_debug_level > 0 THEN
3778: oe_debug_pub.add( 'L_QTY_TO_RESERVE : ' || L_QTY_TO_RESERVE , 3 ) ;
3779: oe_debug_pub.add( 'L_QTY2_TO_RESERVE : ' || L_QTY2_TO_RESERVE , 3 ) ; -- INVCONV
3780: END IF;
3781: --newsub check if item is under lot/revision/serial control
3782: IF l_line_rec.subinventory is not null
3783: AND l_line_rec.subinventory <> FND_API.G_MISS_CHAR THEN
3840: , x_reservation_id => l_rsv_id
3841: );
3842:
3843: IF l_debug_level > 0 THEN
3844: oe_debug_pub.add( '1. AFTER CALLING CREATE RESERVATION' || L_RETURN_STATUS , 1 ) ;
3845: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
3846: END IF;
3847:
3848: -- Bug No:2097933
3841: );
3842:
3843: IF l_debug_level > 0 THEN
3844: oe_debug_pub.add( '1. AFTER CALLING CREATE RESERVATION' || L_RETURN_STATUS , 1 ) ;
3845: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
3846: END IF;
3847:
3848: -- Bug No:2097933
3849: -- If the Reservation was succesfull we set
3853: END IF;
3854:
3855: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3856: IF l_debug_level > 0 THEN
3857: oe_debug_pub.add( 'RAISING UNEXPECTED ERROR' , 1 ) ;
3858: END IF;
3859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3860: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3861: IF l_msg_data is not null THEN
3862: fnd_message.set_encoded(l_msg_data);
3863: l_buffer := fnd_message.get;
3864: oe_msg_pub.add_text(p_message_text => l_buffer);
3865: IF l_debug_level > 0 THEN
3866: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
3867: END IF;
3868: END IF;
3869:
3870: IF p_action = OESCH_ACT_RESERVE THEN
3912: p_x_line_rec := l_out_line_rec;
3913: x_return_status := l_return_status;
3914:
3915: IF l_debug_level > 0 THEN
3916: oe_debug_pub.add( 'EXITING ACTION SCHEDULE: ' || L_RETURN_STATUS , 1 ) ;
3917: END IF;
3918:
3919: EXCEPTION
3920: WHEN FND_API.G_EXC_ERROR THEN
3973: l_rsv_id NUMBER;
3974:
3975: l_qty2_to_unreserve NUMBER; -- INVCONV
3976: --
3977: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3978: --
3979: BEGIN
3980:
3981: IF l_debug_level > 0 THEN
3978: --
3979: BEGIN
3980:
3981: IF l_debug_level > 0 THEN
3982: oe_debug_pub.add( 'ENTERING ACTION_UNSCHEDULE ' , 1 ) ;
3983: END IF;
3984:
3985: l_line_rec := p_x_line_rec;
3986: l_old_line_rec := p_old_line_rec;
4038:
4039: -- Call ATP
4040:
4041: IF l_debug_level > 0 THEN
4042: oe_debug_pub.add( '1. CALLING MRP API WITH SESSION ID '||L_SESSION_ID , 1 ) ;
4043: END IF;
4044:
4045: MRP_ATP_PUB.Call_ATP
4046: ( p_session_id => l_session_id
4053: , x_msg_data => mrp_msg_data
4054: , x_msg_count => l_msg_count);
4055:
4056: IF l_debug_level > 0 THEN
4057: oe_debug_pub.add( '2. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || L_RETURN_STATUS , 1 ) ;
4058: END IF;
4059:
4060: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4083: p_x_line_rec := l_out_line_rec;
4084: x_return_status := l_return_status;
4085:
4086: IF l_debug_level > 0 THEN
4087: oe_debug_pub.add( 'EXITING ACTION_UNSCHEDULE ' , 1 ) ;
4088: END IF;
4089:
4090: END Action_UnSchedule;
4091:
4173: l_serial_code NUMBER;
4174:
4175:
4176: --
4177: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4178: --
4179: BEGIN
4180:
4181: IF l_debug_level > 0 THEN
4178: --
4179: BEGIN
4180:
4181: IF l_debug_level > 0 THEN
4182: oe_debug_pub.add( 'ENTERING OE_ORDER_SCH_UTIL.PROCESS_REQUEST' , 1 ) ;
4183: oe_debug_pub.add( 'OESCH_AUTO_SCH_FLAG : ' || OESCH_AUTO_SCH_FLAG , 1 ) ;
4184: END IF;
4185:
4186: l_line_rec := p_x_line_rec;
4179: BEGIN
4180:
4181: IF l_debug_level > 0 THEN
4182: oe_debug_pub.add( 'ENTERING OE_ORDER_SCH_UTIL.PROCESS_REQUEST' , 1 ) ;
4183: oe_debug_pub.add( 'OESCH_AUTO_SCH_FLAG : ' || OESCH_AUTO_SCH_FLAG , 1 ) ;
4184: END IF;
4185:
4186: l_line_rec := p_x_line_rec;
4187: l_out_line_rec := p_x_line_rec;
4199:
4200: IF (l_line_rec.schedule_action_code is NULL) THEN
4201:
4202: IF l_debug_level > 0 THEN
4203: oe_debug_pub.add( 'SCHEDULE ACTION CODE IS NULL' , 1 ) ;
4204: END IF;
4205:
4206: IF (l_line_rec.schedule_status_code IS NULL) AND
4207: (OESCH_AUTO_SCH_FLAG = 'N') AND
4213: l_old_line_rec.reserved_quantity)
4214: THEN
4215:
4216: IF l_debug_level > 0 THEN
4217: oe_debug_pub.add( 'NO ACTION NEEDED TO BE PERFORMED' , 1 ) ;
4218: END IF;
4219: -- no action needs to be performed;
4220: goto end_of_processing;
4221:
4249: IF NOT OE_GLOBALS.Equal(l_line_rec.schedule_ship_date,
4250: l_old_line_rec.schedule_ship_date) THEN
4251:
4252: IF l_debug_level > 0 THEN
4253: oe_debug_pub.add( 'NEW' || L_LINE_REC.SCHEDULE_SHIP_DATE ) ;
4254: oe_debug_pub.add( 'OLD' || L_OLD_LINE_REC.SCHEDULE_SHIP_DATE ) ;
4255: END IF;
4256:
4257: -- We will treat a special case here where the date changes
4250: l_old_line_rec.schedule_ship_date) THEN
4251:
4252: IF l_debug_level > 0 THEN
4253: oe_debug_pub.add( 'NEW' || L_LINE_REC.SCHEDULE_SHIP_DATE ) ;
4254: oe_debug_pub.add( 'OLD' || L_OLD_LINE_REC.SCHEDULE_SHIP_DATE ) ;
4255: END IF;
4256:
4257: -- We will treat a special case here where the date changes
4258: -- from no date to some date. If this change takes place,
4283: END IF; /* For special demand */
4284: END IF; /* If schedule date has changed */
4285:
4286: IF l_debug_level > 0 THEN
4287: oe_debug_pub.add( 'OLD AD ' || L_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
4288: oe_debug_pub.add( 'NEW AD ' || L_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
4289: END IF;
4290:
4291: IF NOT OE_GLOBALS.Equal(l_line_rec.schedule_arrival_date,
4284: END IF; /* If schedule date has changed */
4285:
4286: IF l_debug_level > 0 THEN
4287: oe_debug_pub.add( 'OLD AD ' || L_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
4288: oe_debug_pub.add( 'NEW AD ' || L_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
4289: END IF;
4290:
4291: IF NOT OE_GLOBALS.Equal(l_line_rec.schedule_arrival_date,
4292: l_old_line_rec.schedule_arrival_date) THEN
4291: IF NOT OE_GLOBALS.Equal(l_line_rec.schedule_arrival_date,
4292: l_old_line_rec.schedule_arrival_date) THEN
4293:
4294: IF l_debug_level > 0 THEN
4295: oe_debug_pub.add( 'NEW' || L_LINE_REC.SCHEDULE_ARRIVAL_DATE ) ;
4296: oe_debug_pub.add( 'OLD' || L_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE ) ;
4297: END IF;
4298:
4299: -- We will treat a special case here where the date changes
4292: l_old_line_rec.schedule_arrival_date) THEN
4293:
4294: IF l_debug_level > 0 THEN
4295: oe_debug_pub.add( 'NEW' || L_LINE_REC.SCHEDULE_ARRIVAL_DATE ) ;
4296: oe_debug_pub.add( 'OLD' || L_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE ) ;
4297: END IF;
4298:
4299: -- We will treat a special case here where the date changes
4300: -- from no date to some date. If this change takes place,
4342: -- Right now I am assuming that when the scheduling attributes
4343: -- changes, we will unreserve all the quantity
4344:
4345: IF l_debug_level > 0 THEN
4346: oe_debug_pub.add( 'RESCHEDULING SINCE SCHEDULE ATTRIBUTE CHANGED' ) ;
4347: oe_debug_pub.add( 'OLD RESERV QTY ' || L_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
4348: END IF;
4349: IF (l_old_line_rec.reserved_quantity is not null)
4350: THEN
4343: -- changes, we will unreserve all the quantity
4344:
4345: IF l_debug_level > 0 THEN
4346: oe_debug_pub.add( 'RESCHEDULING SINCE SCHEDULE ATTRIBUTE CHANGED' ) ;
4347: oe_debug_pub.add( 'OLD RESERV QTY ' || L_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
4348: END IF;
4349: IF (l_old_line_rec.reserved_quantity is not null)
4350: THEN
4351:
4378:
4379: ELSE
4380: l_re_reserve_flag := 'Y';
4381: IF l_debug_level > 0 THEN
4382: oe_debug_pub.add( 'SETTING RE RESERVE IN ELSE' , 1 ) ;
4383: END IF;
4384: END IF;
4385:
4386: -- If the scheduling is happening due to inventory item change.
4416:
4417: -- Call ATP
4418:
4419: IF l_debug_level > 0 THEN
4420: oe_debug_pub.add( '1. CALLING MRP API WITH SESSION ID '||L_SESSION_ID , 1 ) ;
4421: END IF;
4422:
4423: MRP_ATP_PUB.Call_ATP
4424: ( p_session_id => l_session_id
4431: , x_msg_data => mrp_msg_data
4432: , x_msg_count => l_msg_count);
4433:
4434: IF l_debug_level > 0 THEN
4435: oe_debug_pub.add( '3. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || L_RETURN_STATUS , 1 ) ;
4436: END IF;
4437:
4438: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4473: -- 02-jun-2000 mpetrosi added org_id to query_reservation end
4474:
4475:
4476: IF l_debug_level > 0 THEN
4477: oe_debug_pub.add( 'RSCH: CALLING INVS QUERY_RESERVATION ' , 1 ) ;
4478: END IF;
4479:
4480: inv_reservation_pub.query_reservation
4481: ( p_api_version_number => 1.0
4491: , p_sort_by_req_date => l_sort_by_req_date
4492: );
4493:
4494: IF l_debug_level > 0 THEN
4495: oe_debug_pub.add( 'AFTER CALLING INVS QUERY_RESERVATION: ' || L_RETURN_STATUS , 1 ) ;
4496: END IF;
4497:
4498: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4501: RAISE FND_API.G_EXC_ERROR;
4502: END IF;
4503:
4504: IF l_debug_level > 0 THEN
4505: oe_debug_pub.add( 'RESERVATION RECORD COUNT IS: ' || L_RSV_TBL.COUNT , 1 ) ;
4506: END IF;
4507:
4508: -- Let's get the total reserved_quantity
4509: FOR K IN 1..l_rsv_tbl.count LOOP
4511: l_reservation_rec := l_rsv_tbl(K);
4512: l_reservation_rec.requirement_date := l_out_line_rec.schedule_ship_date;
4513:
4514: IF l_debug_level > 0 THEN
4515: oe_debug_pub.add( 'RSCH: CALLING INVS UPDATE RESERVATION ' , 1 ) ;
4516: END IF;
4517: inv_reservation_pub.update_reservation
4518: ( p_api_version_number => 1.0
4519: , p_init_msg_lst => fnd_api.g_true
4527: , p_validation_flag => fnd_api.g_true
4528: );
4529:
4530: IF l_debug_level > 0 THEN
4531: oe_debug_pub.add( 'AFTER CALLING INVS UPDATE_RESERVATION: ' || L_RETURN_STATUS , 1 ) ;
4532: END IF;
4533:
4534: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4538: fnd_message.set_encoded(l_msg_data);
4539: l_buffer := fnd_message.get;
4540: oe_msg_pub.add_text(p_message_text => l_buffer);
4541: IF l_debug_level > 0 THEN
4542: oe_debug_pub.add( 'ERROR : '|| L_BUFFER , 1 ) ;
4543: END IF;
4544: END IF;
4545: RAISE FND_API.G_EXC_ERROR;
4546: END IF;
4566: l_old_line_rec.ship_from_org_id)) AND
4567: l_re_reserve_flag = 'Y' THEN
4568:
4569: IF l_debug_level > 0 THEN
4570: oe_debug_pub.add( 'NO RE-RESERVE DUE TO ITEM/WAREHOUSE CHANGE' , 1 ) ;
4571: END IF;
4572: goto end_of_processing;
4573:
4574: END IF;
4576: -- Call INV to create reservation if the line
4577: -- was previously reserved.
4578:
4579: IF l_debug_level > 0 THEN
4580: oe_debug_pub.add( 'BEFORE RESERVATION CHECK' , 1 ) ;
4581: END IF;
4582:
4583: IF (l_line_rec.reserved_quantity IS NOT NULL
4584: OR ((sch_cached_sch_level_code = SCH_LEVEL_THREE OR
4627:
4628: IF l_reservable_type <> 1 THEN
4629:
4630: IF l_debug_level > 0 THEN
4631: oe_debug_pub.add( 'NON RESERVABLE ITEM RESERVATION NOT REQUIRED '||L_RESERVABLE_TYPE , 3 ) ;
4632: END IF;
4633: GOTO NO_RESERVATION;
4634: END IF;
4635:
4670: END IF;
4671: --end newsub
4672:
4673: IF l_debug_level > 0 THEN
4674: oe_debug_pub.add( 'CALLING LOAD_INV_REQUEST' , 1 ) ;
4675: END IF;
4676:
4677: Load_INV_Request
4678: ( p_line_rec => l_line_rec
4682:
4683: -- Call INV with action = RESERVE
4684:
4685: IF l_debug_level > 0 THEN
4686: oe_debug_pub.add( 'CALLING INVS CREATE_RESERVATION' , 1 ) ;
4687: END IF;
4688:
4689: inv_reservation_pub.create_reservation
4690: (
4704: , x_reservation_id => l_rsv_id
4705: );
4706:
4707: IF l_debug_level > 0 THEN
4708: oe_debug_pub.add( '2. AFTER CALLING CREATE RESERVATION' || L_RETURN_STATUS , 1 ) ;
4709: END IF;
4710: -- Bug No:2097933
4711: -- If the Reservation was succesfull we set
4712: -- the package variable to "Y".
4713: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4714: OESCH_PERFORMED_RESERVATION := 'Y';
4715: END IF;
4716: IF l_debug_level > 0 THEN
4717: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
4718: END IF;
4719:
4720: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4721: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4730: RAISE FND_API.G_EXC_ERROR;
4731: ELSE
4732: l_return_status := FND_API.G_RET_STS_SUCCESS;
4733: IF l_debug_level > 0 THEN
4734: oe_debug_pub.add( 'UNABLE TO RESERVE' , 2 ) ;
4735: END IF;
4736: END IF;
4737:
4738: END IF;
4737:
4738: END IF;
4739:
4740: IF l_debug_level > 0 THEN
4741: oe_debug_pub.add( 'AFTER CALLING INVS CREATE_RESERVATION' , 1 ) ;
4742: END IF;
4743:
4744: << NO_RESERVATION >>
4745: NULL;
4774: -- CMS is not touching this explicit rsv qty decrease
4775: IF nvl(l_line_rec.shipping_interfaced_flag, 'N') = 'N' THEN
4776:
4777: IF l_debug_level > 0 THEN
4778: oe_debug_pub.add( '1 RESERVED QUANTITY HAS DECREASED' , 1 ) ;
4779: END IF;
4780:
4781:
4782: l_qty_to_unreserve := l_old_line_rec.reserved_quantity -
4801:
4802: ELSE
4803:
4804: IF l_debug_level > 0 THEN
4805: oe_debug_pub.add( '1 RESERVED QTY HAS DECREASED , WSH INTERFACED' , 1 ) ;
4806: END IF;
4807: -- Reservation qty cannot be reduced when line is
4808: -- interfaced to wsh.
4809: -- Give a message here tell the user we are not unreserving
4818:
4819: ELSIF l_changed_reserved_qty < 0 THEN
4820:
4821: IF l_debug_level > 0 THEN
4822: oe_debug_pub.add( '1 RESERVED QUANTITY HAS INCREASED' , 1 ) ;
4823: END IF;
4824:
4825: l_qty_to_reserve := l_line_rec.reserved_quantity -
4826: l_old_line_rec.reserved_quantity;
4924:
4925: IF l_changed_ordered_qty > 0 THEN
4926:
4927: IF l_debug_level > 0 THEN
4928: oe_debug_pub.add( 'ORDERED QUANTITY HAS DECREASED' , 1 ) ;
4929: END IF;
4930:
4931: IF l_line_rec.ordered_quantity = 0 THEN
4932: -- Since ordered quantity is now 0, undemand
4932: -- Since ordered quantity is now 0, undemand
4933: -- Call MRP with action = UNDEMAND
4934:
4935: IF l_debug_level > 0 THEN
4936: oe_debug_pub.add( 'CALLING MRP WITH THE ACTION OF UNDEMAND' , 1 ) ;
4937: END IF;
4938: l_line_rec.schedule_action_code := OESCH_ACT_UNDEMAND;
4939: ELSE
4940: IF l_debug_level > 0 THEN
4937: END IF;
4938: l_line_rec.schedule_action_code := OESCH_ACT_UNDEMAND;
4939: ELSE
4940: IF l_debug_level > 0 THEN
4941: oe_debug_pub.add( 'CALLING MRP WITH THE ACTION OF REDEMAND' , 1 ) ;
4942: END IF;
4943: l_line_rec.schedule_action_code := OESCH_ACT_REDEMAND;
4944: END IF;
4945:
4945:
4946: ELSIF l_changed_ordered_qty < 0 THEN
4947:
4948: IF l_debug_level > 0 THEN
4949: oe_debug_pub.add( 'ORDERED QUANTITY HAS INCRESED' , 1 ) ;
4950: END IF;
4951:
4952: -- Assuming that change in quantity will take place only in the
4953: -- warehouse where the quantity was previously scheduled.
4954: -- Since ordered quantity is incresed, ATP check and redemand
4955: -- Call MRP with action = REDEMAND
4956:
4957: IF l_debug_level > 0 THEN
4958: oe_debug_pub.add( 'CALLING MRP WITH THE ACTION OF REDEMAND' , 1 ) ;
4959: END IF;
4960: l_line_rec.schedule_action_code := OESCH_ACT_REDEMAND;
4961:
4962: END IF;
4973:
4974: -- Call ATP
4975:
4976: IF l_debug_level > 0 THEN
4977: oe_debug_pub.add( '1. CALLING MRP API WITH SESSION ID '||L_SESSION_ID , 1 ) ;
4978: END IF;
4979:
4980: MRP_ATP_PUB.Call_ATP
4981: ( p_session_id => l_session_id
4989: , x_msg_count => l_msg_count);
4990:
4991:
4992: IF l_debug_level > 0 THEN
4993: oe_debug_pub.add( '4. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || L_RETURN_STATUS , 1 ) ;
4994: END IF;
4995:
4996: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5028: -- CMS is not touching this explicit rsv qty decrease
5029: IF nvl(l_line_rec.shipping_interfaced_flag, 'N') = 'N' THEN
5030:
5031: IF l_debug_level > 0 THEN
5032: oe_debug_pub.add( 'RESERVED QUANTITY HAS DECREASED' , 1 ) ;
5033: END IF;
5034:
5035:
5036: l_qty_to_unreserve := l_old_line_rec.reserved_quantity -
5056:
5057: ELSE
5058:
5059: IF l_debug_level > 0 THEN
5060: oe_debug_pub.add( 'RESERVED QTY HAS DECREASED , WSH INTERFACED' , 1 ) ;
5061: END IF;
5062: -- Reservation qty cannot be reduced when line is
5063: -- interfaced to wsh.
5064: -- Give a message here tell the user we are not unreserving
5073:
5074: ELSIF l_changed_reserved_qty < 0 THEN
5075:
5076: IF l_debug_level > 0 THEN
5077: oe_debug_pub.add( 'RESERVED QUANTITY HAS INCREASED' , 1 ) ;
5078: END IF;
5079:
5080: l_qty_to_reserve := l_line_rec.reserved_quantity -
5081: l_old_line_rec.reserved_quantity;
5139:
5140:
5141:
5142: IF l_debug_level > 0 THEN
5143: oe_debug_pub.add( 'STARTING THE BIG ELSE LOOP' , 1 ) ;
5144: oe_debug_pub.add( 'OPR: ' || L_LINE_REC.OPERATION , 1 ) ;
5145: END IF;
5146:
5147: IF OE_GLOBALS.Equal(l_line_rec.schedule_action_code,
5140:
5141:
5142: IF l_debug_level > 0 THEN
5143: oe_debug_pub.add( 'STARTING THE BIG ELSE LOOP' , 1 ) ;
5144: oe_debug_pub.add( 'OPR: ' || L_LINE_REC.OPERATION , 1 ) ;
5145: END IF;
5146:
5147: IF OE_GLOBALS.Equal(l_line_rec.schedule_action_code,
5148: OESCH_ACT_UNRESERVE)
5222: OESCH_ACT_ATP_CHECK)
5223: THEN
5224:
5225: IF l_debug_level > 0 THEN
5226: oe_debug_pub.add( 'ACTION REQUESTED IS OESCH_ACT_ATP_CHECK' , 1 ) ;
5227: END IF;
5228: -- Call MRP API
5229:
5230: l_line_tbl(1) := l_line_rec;
5239:
5240: -- Call ATP
5241:
5242: IF l_debug_level > 0 THEN
5243: oe_debug_pub.add( '1. CALLING MRP API WITH SESSION ID '||L_SESSION_ID , 1 ) ;
5244: END IF;
5245:
5246: MRP_ATP_PUB.Call_ATP
5247: ( p_session_id => l_session_id
5255: , x_msg_count => l_msg_count);
5256:
5257:
5258: IF l_debug_level > 0 THEN
5259: oe_debug_pub.add( '5. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || L_RETURN_STATUS , 1 ) ;
5260: END IF;
5261: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5263: END IF;
5279: -- qties while performing ATP. Getting these values from inventory.
5280:
5281: FOR K IN 1..l_out_atp_tbl.count LOOP
5282: IF l_debug_level > 0 THEN
5283: oe_debug_pub.add( 'CALLING QUERY_QTY_TREE' , 1 ) ;
5284: END IF;
5285: Query_Qty_Tree(p_org_id => l_out_atp_tbl(K).ship_from_org_id,
5286: p_item_id => l_out_atp_tbl(K).inventory_item_id,
5287: p_line_id => l_out_atp_tbl(K).line_id,
5308: l_out_atp_tbl(K).available_to_reserve := l_avail_to_reserve;
5309: l_out_atp_tbl(K).QTY_ON_REQUEST_DATE := l_avail_to_reserve; -- Available field in ATP
5310:
5311: IF l_debug_level > 0 THEN
5312: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
5313: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
5314: oe_debug_pub.add( 'AVAILABLE ' || L_AVAIL_TO_RESERVE ) ;
5315: END IF;
5316: else */
5309: l_out_atp_tbl(K).QTY_ON_REQUEST_DATE := l_avail_to_reserve; -- Available field in ATP
5310:
5311: IF l_debug_level > 0 THEN
5312: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
5313: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
5314: oe_debug_pub.add( 'AVAILABLE ' || L_AVAIL_TO_RESERVE ) ;
5315: END IF;
5316: else */
5317:
5310:
5311: IF l_debug_level > 0 THEN
5312: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
5313: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
5314: oe_debug_pub.add( 'AVAILABLE ' || L_AVAIL_TO_RESERVE ) ;
5315: END IF;
5316: else */
5317:
5318: l_out_atp_tbl(K).on_hand_qty := l_on_hand_qty;
5319: -- l_out_atp_tbl(K).on_hand_qty2 :=l_on_hand_qty2; -- INVCONV PAL
5320: l_out_atp_tbl(K).available_to_reserve := l_avail_to_reserve;
5321: -- l_out_atp_tbl(K).available_to_reserve2 := l_avail_to_reserve2; -- INVCONV == PAL
5322: IF l_debug_level > 0 THEN
5323: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
5324: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
5325: --oe_debug_pub.add( 'L_ON_HAND_QTY2' || L_ON_HAND_QTY2 ) ; -- INVCONV
5326: -- oe_debug_pub.add( 'L_AVAIL_TO_RESERVE2' || L_AVAIL_TO_RESERVE2 ) ;
5327: END IF;
5320: l_out_atp_tbl(K).available_to_reserve := l_avail_to_reserve;
5321: -- l_out_atp_tbl(K).available_to_reserve2 := l_avail_to_reserve2; -- INVCONV == PAL
5322: IF l_debug_level > 0 THEN
5323: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
5324: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
5325: --oe_debug_pub.add( 'L_ON_HAND_QTY2' || L_ON_HAND_QTY2 ) ; -- INVCONV
5326: -- oe_debug_pub.add( 'L_AVAIL_TO_RESERVE2' || L_AVAIL_TO_RESERVE2 ) ;
5327: END IF;
5328: -- end if; -- INVCONV
5321: -- l_out_atp_tbl(K).available_to_reserve2 := l_avail_to_reserve2; -- INVCONV == PAL
5322: IF l_debug_level > 0 THEN
5323: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
5324: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
5325: --oe_debug_pub.add( 'L_ON_HAND_QTY2' || L_ON_HAND_QTY2 ) ; -- INVCONV
5326: -- oe_debug_pub.add( 'L_AVAIL_TO_RESERVE2' || L_AVAIL_TO_RESERVE2 ) ;
5327: END IF;
5328: -- end if; -- INVCONV
5329: -- end fabdi
5322: IF l_debug_level > 0 THEN
5323: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
5324: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
5325: --oe_debug_pub.add( 'L_ON_HAND_QTY2' || L_ON_HAND_QTY2 ) ; -- INVCONV
5326: -- oe_debug_pub.add( 'L_AVAIL_TO_RESERVE2' || L_AVAIL_TO_RESERVE2 ) ;
5327: END IF;
5328: -- end if; -- INVCONV
5329: -- end fabdi
5330:
5336: OESCH_ACT_SOURCE)
5337: THEN
5338:
5339: IF l_debug_level > 0 THEN
5340: oe_debug_pub.add( 'ACTION REQUESTED IS OESCH_ACT_SOURCE' , 1 ) ;
5341: END IF;
5342: IF (l_line_rec.ship_from_org_id IS NULL)
5343: THEN
5344: -- Call MRP API to get the source for the line
5363: --l_line_rec.schedule_action_code --> OESCH_ACT_SCHEDULE
5364: /* ELSIF OE_GLOBALS.Equal(l_line_rec.schedule_action_code,
5365: OESCH_ACT_SCHEDULE)
5366: THEN
5367: OE_DEBUG_PUB.ADD('Action Requested is OESCH_ACT_SCHEDULE',1);
5368:
5369: l_out_line_rec := l_line_rec;
5370: Action_Schedule(p_x_line_rec => l_out_line_rec,
5371: p_old_line_rec => l_old_line_rec,
5381: ELSIF OE_GLOBALS.Equal(l_line_rec.schedule_action_code,
5382: OESCH_ACT_SCHEDULE)
5383: THEN
5384: IF l_debug_level > 0 THEN
5385: oe_debug_pub.add( 'ACTION REQUESTED IS OESCH_ACT_SCHEDULE' , 1 ) ;
5386: END IF;
5387:
5388: -- We will check to see if the status is not null. If the status
5389: -- is not null, it means that the line is either demanded or reserved.
5394: IF (l_line_rec.schedule_status_code IS NOT NULL) THEN
5395: /* FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
5396: OE_MSG_PUB.Add;*/
5397: IF l_debug_level > 0 THEN
5398: oe_debug_pub.add( ' SCHEDULED LINE , GOTO END OF PROCESSING' , 3 ) ;
5399: END IF;
5400: goto end_of_processing;
5401: END IF;
5402:
5420: ELSIF OE_GLOBALS.Equal(l_line_rec.schedule_action_code,
5421: OESCH_ACT_RESERVE)
5422: THEN
5423: IF l_debug_level > 0 THEN
5424: oe_debug_pub.add( 'ACTION IS RESERVE' , 1 ) ;
5425: END IF;
5426:
5427: IF OE_GLOBALS.Equal(l_line_rec.ordered_quantity,
5428: l_line_rec.reserved_quantity) THEN
5484: goto end_of_processing;
5485: END IF;
5486:
5487: IF l_debug_level > 0 THEN
5488: oe_debug_pub.add( 'PERFORMING ACTION SCHEDULE' , 1 ) ;
5489: END IF;
5490:
5491: l_line_rec.schedule_action_code := OESCH_ACT_SCHEDULE;
5492:
5496: p_action => OESCH_ACT_SCHEDULE,
5497: x_return_status => l_return_status);
5498:
5499: IF l_debug_level > 0 THEN
5500: oe_debug_pub.add( 'AFTER ACTION SCHEDULE : ' || L_RETURN_STATUS , 1 ) ;
5501: END IF;
5502:
5503: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5518: x_return_status := l_return_status;
5519: p_x_line_rec := l_out_line_rec;
5520: x_out_atp_tbl := l_out_atp_tbl;
5521: IF l_debug_level > 0 THEN
5522: oe_debug_pub.add( 'EXITING OE_ORDER_SCH_UTIL.PROCESS_REQUEST: ' || X_RETURN_STATUS , 1 ) ;
5523: END IF;
5524:
5525: END Process_request;
5526:
5534: x_atp_rec OUT NOCOPY /* file.sql.39 change */ MRP_ATP_PUB.ATP_Rec_Typ)
5535: IS
5536: l_atp_rec MRP_ATP_PUB.ATP_Rec_Typ;
5537: --
5538: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5539: --
5540: BEGIN
5541:
5542: IF l_debug_level > 0 THEN
5539: --
5540: BEGIN
5541:
5542: IF l_debug_level > 0 THEN
5543: oe_debug_pub.add( 'EXTENDING THE TABLE BY ' || L_COUNT , 5 ) ;
5544: END IF;
5545: l_atp_rec := p_atp_rec;
5546: l_atp_rec.Inventory_Item_Id.extend(l_count);
5547: l_atp_rec.Source_Organization_Id.extend(l_count);
5614: db_primary_uom_code VARCHAR2(3);
5615: db_model_item_id NUMBER := 0;
5616: db_line_unit_code VARCHAR2(3);
5617: --
5618: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5619: --
5620: BEGIN
5621:
5622: IF l_debug_level > 0 THEN
5619: --
5620: BEGIN
5621:
5622: IF l_debug_level > 0 THEN
5623: oe_debug_pub.add( 'ENTERING GET_LEAD_TIME' , 1 ) ;
5624: oe_debug_pub.add( 'ATO LINE IS ' || P_ATO_LINE_ID , 1 ) ;
5625: oe_debug_pub.add( 'SHIP FROM IS ' || P_SHIP_FROM_ORG_ID , 1 ) ;
5626: END IF;
5627:
5620: BEGIN
5621:
5622: IF l_debug_level > 0 THEN
5623: oe_debug_pub.add( 'ENTERING GET_LEAD_TIME' , 1 ) ;
5624: oe_debug_pub.add( 'ATO LINE IS ' || P_ATO_LINE_ID , 1 ) ;
5625: oe_debug_pub.add( 'SHIP FROM IS ' || P_SHIP_FROM_ORG_ID , 1 ) ;
5626: END IF;
5627:
5628: SELECT NVL ( MSI.FULL_LEAD_TIME , 0 )
5621:
5622: IF l_debug_level > 0 THEN
5623: oe_debug_pub.add( 'ENTERING GET_LEAD_TIME' , 1 ) ;
5624: oe_debug_pub.add( 'ATO LINE IS ' || P_ATO_LINE_ID , 1 ) ;
5625: oe_debug_pub.add( 'SHIP FROM IS ' || P_SHIP_FROM_ORG_ID , 1 ) ;
5626: END IF;
5627:
5628: SELECT NVL ( MSI.FULL_LEAD_TIME , 0 )
5629: , NVL ( MSI.FIXED_LEAD_TIME , 0 )
5677: RETURN VARCHAR2
5678: IS
5679: l_order_date_type_code VARCHAR2(30) := null;
5680: --
5681: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5682: --
5683: BEGIN
5684:
5685: IF p_header_id <> nvl(G_HEADER_ID,0) THEN
5715: RETURN number
5716: IS
5717: l_order_number NUMBER;
5718: --
5719: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5720: --
5721: BEGIN
5722:
5723: IF l_debug_level > 0 THEN
5720: --
5721: BEGIN
5722:
5723: IF l_debug_level > 0 THEN
5724: oe_debug_pub.add( 'ENTERING GET_ORDER_NUMBER: ' || P_HEADER_ID , 1 ) ;
5725: END IF;
5726:
5727: IF p_header_id is not null AND p_header_id <> FND_API.G_MISS_NUM
5728: THEN
5737: END;
5738: END IF;
5739:
5740: IF l_debug_level > 0 THEN
5741: oe_debug_pub.add( 'ORDER NUMBER : ' || L_ORDER_NUMBER ) ;
5742: END IF;
5743: RETURN l_order_number;
5744: EXCEPTION
5745: WHEN OTHERS THEN
5798: l_explode BOOLEAN;
5799: l_action NUMBER;
5800:
5801: --
5802: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5803: --
5804: BEGIN
5805: IF l_debug_level > 0 THEN
5806: oe_debug_pub.add( '....ENTERING OE_ORDER_SCH_UTIL.LOAD_MRP_REQUEST' , 1 ) ;
5802: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5803: --
5804: BEGIN
5805: IF l_debug_level > 0 THEN
5806: oe_debug_pub.add( '....ENTERING OE_ORDER_SCH_UTIL.LOAD_MRP_REQUEST' , 1 ) ;
5807: oe_debug_pub.add( 'COUNT IS ' || P_LINE_TBL.COUNT , 1 ) ;
5808: oe_debug_pub.add( '------------------LOAD MRP TABLE---------------' , 1 ) ;
5809: END IF;
5810:
5803: --
5804: BEGIN
5805: IF l_debug_level > 0 THEN
5806: oe_debug_pub.add( '....ENTERING OE_ORDER_SCH_UTIL.LOAD_MRP_REQUEST' , 1 ) ;
5807: oe_debug_pub.add( 'COUNT IS ' || P_LINE_TBL.COUNT , 1 ) ;
5808: oe_debug_pub.add( '------------------LOAD MRP TABLE---------------' , 1 ) ;
5809: END IF;
5810:
5811:
5804: BEGIN
5805: IF l_debug_level > 0 THEN
5806: oe_debug_pub.add( '....ENTERING OE_ORDER_SCH_UTIL.LOAD_MRP_REQUEST' , 1 ) ;
5807: oe_debug_pub.add( 'COUNT IS ' || P_LINE_TBL.COUNT , 1 ) ;
5808: oe_debug_pub.add( '------------------LOAD MRP TABLE---------------' , 1 ) ;
5809: END IF;
5810:
5811:
5812: l_mrp_calc_sd := fnd_profile.value('MRP_ATP_CALC_SD');
5811:
5812: l_mrp_calc_sd := fnd_profile.value('MRP_ATP_CALC_SD');
5813:
5814: IF l_debug_level > 0 THEN
5815: oe_debug_pub.add( 'MRP_ATP_CALC_SD : '||L_MRP_CALC_SD , 3 ) ;
5816: END IF;
5817:
5818: IF nvl(l_mrp_calc_sd,'N') = 'Y' THEN
5819: l_insert_flag := 1;
5821: l_insert_flag := 0;
5822: END IF;
5823:
5824: IF l_debug_level > 0 THEN
5825: oe_debug_pub.add( 'INSERT FLAG : '||L_INSERT_FLAG , 3 ) ;
5826: END IF;
5827:
5828: IF (p_line_tbl.count >= 1) THEN
5829:
5859: l_count => 1,
5860: x_atp_rec => l_atp_rec);
5861:
5862: IF l_debug_level > 0 THEN
5863: oe_debug_pub.add( '--**-- ' , 3 ) ;
5864: END IF;
5865: l_atp_rec.atp_lead_time(I) := 0;
5866:
5867: IF l_debug_level > 0 THEN
5864: END IF;
5865: l_atp_rec.atp_lead_time(I) := 0;
5866:
5867: IF l_debug_level > 0 THEN
5868: oe_debug_pub.add( 'LINE ID : ' || L_LINE_REC.LINE_ID , 3 ) ;
5869: oe_debug_pub.add( 'SCHEDULE ACTION : ' || L_LINE_REC.SCHEDULE_ACTION_CODE , 3 ) ;
5870: END IF;
5871:
5872: -- Set the non database files ship_set and arrival_set to null
5865: l_atp_rec.atp_lead_time(I) := 0;
5866:
5867: IF l_debug_level > 0 THEN
5868: oe_debug_pub.add( 'LINE ID : ' || L_LINE_REC.LINE_ID , 3 ) ;
5869: oe_debug_pub.add( 'SCHEDULE ACTION : ' || L_LINE_REC.SCHEDULE_ACTION_CODE , 3 ) ;
5870: END IF;
5871:
5872: -- Set the non database files ship_set and arrival_set to null
5873: -- in case they are missing.
5892: l_ship_set := nvl(l_line_rec.ship_set,to_char(l_line_rec.ship_set_id));
5893: END IF;
5894:
5895: IF l_debug_level > 0 THEN
5896: oe_debug_pub.add( 'SHIP_SET : ' || L_SHIP_SET , 3 ) ;
5897: oe_debug_pub.add( 'ARRIVAL SET : ' || L_ARRIVAL_SET , 3 ) ;
5898: END IF;
5899:
5900: l_atp_rec.Inventory_Item_Id(I) := l_line_rec.inventory_item_id;
5893: END IF;
5894:
5895: IF l_debug_level > 0 THEN
5896: oe_debug_pub.add( 'SHIP_SET : ' || L_SHIP_SET , 3 ) ;
5897: oe_debug_pub.add( 'ARRIVAL SET : ' || L_ARRIVAL_SET , 3 ) ;
5898: END IF;
5899:
5900: l_atp_rec.Inventory_Item_Id(I) := l_line_rec.inventory_item_id;
5901:
5915: THEN
5916: l_atp_rec.Source_Organization_Id(I)
5917: := l_line_rec.ship_from_org_id;
5918: IF l_debug_level > 0 THEN
5919: oe_debug_pub.add( 'SHIP FROM : ' || L_LINE_REC.SHIP_FROM_ORG_ID , 3 ) ;
5920: END IF;
5921: ELSE
5922: l_atp_rec.Source_Organization_Id(I) := null;
5923: IF l_debug_level > 0 THEN
5920: END IF;
5921: ELSE
5922: l_atp_rec.Source_Organization_Id(I) := null;
5923: IF l_debug_level > 0 THEN
5924: oe_debug_pub.add( 'SHIP FROM IS NULL ' , 3 ) ;
5925: END IF;
5926: END IF;
5927: l_atp_rec.Identifier(I) := l_line_rec.line_id;
5928: l_atp_rec.Order_Number(I) := l_order_number;
5938: -- For ATP check atp requested should be line_rec.request_date.
5939: -- Adding code to fix bug 2136818.
5940:
5941: IF l_debug_level > 0 THEN
5942: oe_debug_pub.add( 'A1 : ' || L_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
5943: oe_debug_pub.add( 'A2 : ' || L_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
5944: END IF;
5945:
5946: IF NOT OE_GLOBALS.Equal(l_line_rec.arrival_set_id,
5939: -- Adding code to fix bug 2136818.
5940:
5941: IF l_debug_level > 0 THEN
5942: oe_debug_pub.add( 'A1 : ' || L_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
5943: oe_debug_pub.add( 'A2 : ' || L_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
5944: END IF;
5945:
5946: IF NOT OE_GLOBALS.Equal(l_line_rec.arrival_set_id,
5947: l_old_line_rec.arrival_set_id)
5949: l_line_rec.arrival_set_id is not null)
5950: THEN
5951:
5952: IF l_debug_level > 0 THEN
5953: oe_debug_pub.add( 'T1' , 1 ) ;
5954: END IF;
5955: IF l_line_rec.schedule_action_code = OESCH_ACT_ATP_CHECK THEN
5956: l_atp_rec.Requested_Arrival_Date(I) :=
5957: l_line_rec.request_date;
5969: l_line_rec.ship_set_id is not null)
5970: THEN
5971:
5972: IF l_debug_level > 0 THEN
5973: oe_debug_pub.add( 'T2' , 1 ) ;
5974: END IF;
5975: IF l_line_rec.schedule_action_code = OESCH_ACT_ATP_CHECK THEN
5976: l_atp_rec.Requested_Ship_Date(I) :=
5977: l_line_rec.request_date;
5990: -- date. Otherwise if the scheduling is happening because of
5991: -- some other changes, use nvl on arrival_date and request_dates.
5992:
5993: IF l_debug_level > 0 THEN
5994: oe_debug_pub.add( 'T3' , 1 ) ;
5995: END IF;
5996: IF l_line_rec.schedule_action_code = OESCH_ACT_ATP_CHECK THEN
5997: l_atp_rec.Requested_Arrival_Date(I) :=
5998: l_line_rec.request_date;
6023: END IF;
6024: END IF; -- ATP CHECK.
6025: l_atp_rec.Requested_Ship_Date(I) := null;
6026: IF l_debug_level > 0 THEN
6027: oe_debug_pub.add( 'REQ ARR DATE : ' || L_ATP_REC.REQUESTED_ARRIVAL_DATE ( I ) , 3 ) ;
6028: END IF;
6029: ELSE
6030:
6031: -- If user changes schedule_ship_date then schedule based
6034: -- date. Otherwise if the scheduling is happening because of
6035: -- some other changes, use nvl on schedule_ship and request_dates.
6036:
6037: IF l_debug_level > 0 THEN
6038: oe_debug_pub.add( 'T4' , 1 ) ;
6039: END IF;
6040: IF l_line_rec.schedule_action_code = OESCH_ACT_ATP_CHECK THEN
6041: l_atp_rec.Requested_Ship_Date(I) :=
6042: l_line_rec.request_date;
6070: END IF; -- ATP CHECK.
6071:
6072: l_atp_rec.Requested_Arrival_Date(I) := null;
6073: IF l_debug_level > 0 THEN
6074: oe_debug_pub.add( 'REQ SHIP DATE : ' || L_ATP_REC.REQUESTED_SHIP_DATE ( I ) , 3 ) ;
6075: END IF;
6076:
6077: END IF;
6078:
6076:
6077: END IF;
6078:
6079: IF l_debug_level > 0 THEN
6080: oe_debug_pub.add( 'REQUEST SHIP DATE : ' || TO_CHAR ( L_ATP_REC.REQUESTED_SHIP_DATE ( I ) , 'DD-MON-RR:HH:MM:SS' ) , 3 ) ;
6081: oe_debug_pub.add( 'REQUEST ARRIVAL DATE : ' || TO_CHAR ( L_ATP_REC.REQUESTED_ARRIVAL_DATE ( I ) , 'DD-MON-RR:HH:MM:SS' ) , 3 ) ;
6082: END IF;
6083:
6084:
6077: END IF;
6078:
6079: IF l_debug_level > 0 THEN
6080: oe_debug_pub.add( 'REQUEST SHIP DATE : ' || TO_CHAR ( L_ATP_REC.REQUESTED_SHIP_DATE ( I ) , 'DD-MON-RR:HH:MM:SS' ) , 3 ) ;
6081: oe_debug_pub.add( 'REQUEST ARRIVAL DATE : ' || TO_CHAR ( L_ATP_REC.REQUESTED_ARRIVAL_DATE ( I ) , 'DD-MON-RR:HH:MM:SS' ) , 3 ) ;
6082: END IF;
6083:
6084:
6085: IF OESCH_PERFORM_GRP_SCHEDULING = 'Y'
6101: -- Clearing delivery lead time to fix bug 2111591.
6102: l_atp_rec.Delivery_Lead_Time(I) := Null;
6103: --l_atp_rec.Delivery_Lead_Time(I) := l_line_rec.delivery_lead_time;
6104: IF l_debug_level > 0 THEN
6105: oe_debug_pub.add( 'DELIVERY : '||L_ATP_REC.DELIVERY_LEAD_TIME ( I ) , 3 ) ;
6106: END IF;
6107: l_atp_rec.Freight_Carrier(I) := null;
6108: l_atp_rec.Ship_Method(I) := l_line_rec.shipping_method_code;
6109: l_atp_rec.Demand_Class(I) := l_line_rec.demand_class_code;
6122: l_atp_rec.Vendor_Id(I) := null;
6123: l_atp_rec.Vendor_Site_Id(I) := null;
6124: l_atp_rec.Insert_Flag(I) := l_insert_flag;
6125: IF l_debug_level > 0 THEN
6126: oe_debug_pub.add( 'INSERT FLAG IN ATP_REC : '||L_ATP_REC.INSERT_FLAG ( I ) , 3 ) ;
6127: oe_debug_pub.add( 'ATO LINE ID : '||L_LINE_REC.ATO_LINE_ID , 3 ) ;
6128: oe_debug_pub.add( 'ITEM TYPE : '||L_LINE_REC.ITEM_TYPE_CODE , 3 ) ;
6129: END IF;
6130: l_atp_rec.Error_Code(I) := null;
6123: l_atp_rec.Vendor_Site_Id(I) := null;
6124: l_atp_rec.Insert_Flag(I) := l_insert_flag;
6125: IF l_debug_level > 0 THEN
6126: oe_debug_pub.add( 'INSERT FLAG IN ATP_REC : '||L_ATP_REC.INSERT_FLAG ( I ) , 3 ) ;
6127: oe_debug_pub.add( 'ATO LINE ID : '||L_LINE_REC.ATO_LINE_ID , 3 ) ;
6128: oe_debug_pub.add( 'ITEM TYPE : '||L_LINE_REC.ITEM_TYPE_CODE , 3 ) ;
6129: END IF;
6130: l_atp_rec.Error_Code(I) := null;
6131:
6124: l_atp_rec.Insert_Flag(I) := l_insert_flag;
6125: IF l_debug_level > 0 THEN
6126: oe_debug_pub.add( 'INSERT FLAG IN ATP_REC : '||L_ATP_REC.INSERT_FLAG ( I ) , 3 ) ;
6127: oe_debug_pub.add( 'ATO LINE ID : '||L_LINE_REC.ATO_LINE_ID , 3 ) ;
6128: oe_debug_pub.add( 'ITEM TYPE : '||L_LINE_REC.ITEM_TYPE_CODE , 3 ) ;
6129: END IF;
6130: l_atp_rec.Error_Code(I) := null;
6131:
6132: /* Changes for Internal Orders */
6132: /* Changes for Internal Orders */
6133:
6134: IF l_line_rec.source_document_type_id = 10 THEN
6135: IF l_debug_level > 0 THEN
6136: oe_debug_pub.add( 'IT IS AN INTERNAL ORDER ' , 3 ) ;
6137: END IF;
6138: l_oe_flag := 'Y';
6139:
6140: IF (l_line_rec.schedule_ship_date IS NOT NULL AND
6142: (l_line_rec.schedule_arrival_date IS NOT NULL AND
6143: l_line_rec.schedule_arrival_date <> FND_API.G_MISS_DATE ) THEN
6144:
6145: IF l_debug_level > 0 THEN
6146: oe_debug_pub.add( 'NO CHANGES TO DATE AS IT HAS BEEN PASSED' , 3 ) ;
6147: END IF;
6148: ELSE
6149: IF l_debug_level > 0 THEN
6150: oe_debug_pub.add( 'PASS THE REQUEST DATE AS ARRIVAL DATE' , 3 ) ;
6146: oe_debug_pub.add( 'NO CHANGES TO DATE AS IT HAS BEEN PASSED' , 3 ) ;
6147: END IF;
6148: ELSE
6149: IF l_debug_level > 0 THEN
6150: oe_debug_pub.add( 'PASS THE REQUEST DATE AS ARRIVAL DATE' , 3 ) ;
6151: END IF;
6152:
6153: l_atp_rec.Requested_ship_Date(I) := null;
6154: l_atp_rec.Requested_arrival_Date(I) := l_line_rec.request_date;
6158: l_atp_rec.attribute_01(I) := l_line_rec.source_document_id;
6159:
6160: ELSE
6161: IF l_debug_level > 0 THEN
6162: oe_debug_pub.add( 'IT IS NOT AN INTERNAL ORDER ' , 3 ) ;
6163: END IF;
6164: l_oe_flag := 'N';
6165: END IF;
6166:
6165: END IF;
6166:
6167: l_atp_rec.oe_flag(I) := l_oe_flag;
6168: IF l_debug_level > 0 THEN
6169: oe_debug_pub.add( 'OE FLAG/SOURCE DOC IS : '||L_ATP_REC.OE_FLAG ( I ) ||'/'||L_ATP_REC.ATTRIBUTE_01 ( I ) , 3 ) ;
6170: END IF;
6171:
6172: l_atp_rec.Message(I) := null;
6173:
6226: IF l_line_rec.ato_line_id = l_st_ato_line_id
6227: THEN
6228: l_atp_rec.atp_lead_time(I) := l_st_atp_lead_time;
6229: IF l_debug_level > 0 THEN
6230: oe_debug_pub.add( 'ATO LEAD TIME IS ' || L_ST_ATP_LEAD_TIME , 3 ) ;
6231: END IF;
6232: ELSE
6233: IF l_debug_level > 0 THEN
6234: oe_debug_pub.add( 'CALLING GET_LEAD_TIME' , 3 ) ;
6230: oe_debug_pub.add( 'ATO LEAD TIME IS ' || L_ST_ATP_LEAD_TIME , 3 ) ;
6231: END IF;
6232: ELSE
6233: IF l_debug_level > 0 THEN
6234: oe_debug_pub.add( 'CALLING GET_LEAD_TIME' , 3 ) ;
6235: END IF;
6236: l_st_atp_lead_time :=
6237: Get_Lead_Time
6238: (p_ato_line_id => l_line_rec.ato_line_id,
6238: (p_ato_line_id => l_line_rec.ato_line_id,
6239: p_ship_from_org_id => l_line_rec.ship_from_org_id);
6240:
6241: IF l_debug_level > 0 THEN
6242: oe_debug_pub.add( 'AFTER CALLING GET_LEAD_TIME' , 3 ) ;
6243: oe_debug_pub.add( 'LEAD TIME: ' || L_ST_ATP_LEAD_TIME , 3 ) ;
6244: END IF;
6245:
6246: l_atp_rec.atp_lead_time(I) := l_st_atp_lead_time;
6239: p_ship_from_org_id => l_line_rec.ship_from_org_id);
6240:
6241: IF l_debug_level > 0 THEN
6242: oe_debug_pub.add( 'AFTER CALLING GET_LEAD_TIME' , 3 ) ;
6243: oe_debug_pub.add( 'LEAD TIME: ' || L_ST_ATP_LEAD_TIME , 3 ) ;
6244: END IF;
6245:
6246: l_atp_rec.atp_lead_time(I) := l_st_atp_lead_time;
6247: l_st_ato_line_id := l_line_rec.ato_line_id;
6252:
6253: l_explode := TRUE;
6254:
6255: IF l_debug_level > 0 THEN
6256: oe_debug_pub.add( 'INV_CTP : '||L_INV_CTP , 3 ) ;
6257: END IF;
6258:
6259: IF l_line_rec.ato_line_id = l_line_rec.line_id AND
6260: (l_line_rec.item_type_code in ('MODEL','CLASS') OR
6273: l_old_line_rec.sold_to_org_id)
6274: THEN
6275:
6276: IF l_debug_level > 0 THEN
6277: oe_debug_pub.add( 'ONLY ORDERED QTY GOT REDUCED , NO EXPLOSION' , 3 ) ;
6278: END IF;
6279: l_explode := FALSE;
6280:
6281: END IF;
6285: -- If the line scheduled is an ATO Model, call ATO's API
6286: -- to get the Standard Mandatory Components
6287:
6288: IF l_debug_level > 0 THEN
6289: oe_debug_pub.add( 'ATO ITEM TYPE : '||L_LINE_REC.ITEM_TYPE_CODE , 3 ) ;
6290: END IF;
6291:
6292: IF l_line_rec.item_type_code = 'STANDARD' AND
6293: l_atp_rec.ship_set_name(I) is NULL THEN
6292: IF l_line_rec.item_type_code = 'STANDARD' AND
6293: l_atp_rec.ship_set_name(I) is NULL THEN
6294:
6295: IF l_debug_level > 0 THEN
6296: oe_debug_pub.add( 'ASSIGNING SHIP SET FOR ATO ITEM ' , 3 ) ;
6297: END IF;
6298: l_atp_rec.Ship_Set_Name(I) := l_line_rec.ato_line_id;
6299:
6300: END IF;
6301:
6302: IF l_line_rec.item_type_code = 'STANDARD' THEN
6303:
6304: IF l_debug_level > 0 THEN
6305: oe_debug_pub.add( 'ASSIGNING WAREHOUSE AND ITEM ' , 3 ) ;
6306: END IF;
6307: l_organization_id := l_line_rec.ship_from_org_id;
6308: l_inventory_item_id := l_line_rec.inventory_item_id;
6309: IF l_debug_level > 0 THEN
6306: END IF;
6307: l_organization_id := l_line_rec.ship_from_org_id;
6308: l_inventory_item_id := l_line_rec.inventory_item_id;
6309: IF l_debug_level > 0 THEN
6310: oe_debug_pub.add( 'WAREHOUSE/ITEM : '||L_ORGANIZATION_ID||'/'||L_INVENTORY_ITEM_ID , 3 ) ;
6311: END IF;
6312:
6313: ELSE
6314:
6314:
6315: l_organization_id := NULL;
6316: l_inventory_item_id := NULL;
6317: IF l_debug_level > 0 THEN
6318: oe_debug_pub.add( 'WAREHOUSE/ITEM : '||L_ORGANIZATION_ID||'/'||L_INVENTORY_ITEM_ID , 3 ) ;
6319: END IF;
6320:
6321: END IF;
6322:
6408: (l_atp_rec.Vendor_Site_Id(I));
6409:
6410: l_model_rec.Insert_Flag := MRP_ATP_PUB.number_arr
6411: (l_atp_rec.Insert_Flag(I));
6412: --oe_debug_pub.add('Insert flag in model_rec : '||l_model_rec.insert_flag,3);
6413:
6414: l_model_rec.Error_Code := MRP_ATP_PUB.number_arr
6415: (l_atp_rec.Error_Code(I));
6416:
6434: END IF;
6435:
6436: BEGIN
6437: IF l_debug_level > 0 THEN
6438: oe_debug_pub.add( '2.. CALLING CTO GET_BOM_MANDATORY_COMPS' , 3 ) ;
6439: END IF;
6440:
6441: l_result := CTO_CONFIG_ITEM_PK.GET_MANDATORY_COMPONENTS
6442: (p_ship_set => l_model_rec,
6447: xMessageName => lMessageName,
6448: xTableName => lTableName);
6449:
6450: IF l_debug_level > 0 THEN
6451: oe_debug_pub.add( '2..AFTER CALLING CTO API : ' || L_RESULT , 3 ) ;
6452: END IF;
6453:
6454: EXCEPTION
6455: WHEN OTHERS THEN
6453:
6454: EXCEPTION
6455: WHEN OTHERS THEN
6456: IF l_debug_level > 0 THEN
6457: oe_debug_pub.add( 'CTO API RETURNED AN UNEXPECTED ERROR' ) ;
6458: END IF;
6459: l_result := 0;
6460: END;
6461:
6471:
6472: IF l_result = 1 AND
6473: l_smc_rec.Identifier.count >= 1 THEN
6474: IF l_debug_level > 0 THEN
6475: oe_debug_pub.add( 'SMC COUNT IS : ' || L_SMC_REC.IDENTIFIER.COUNT , 1 ) ;
6476: END IF;
6477:
6478: Initialize_mrp_record(p_atp_rec => l_atp_rec,
6479: l_count => l_smc_rec.Identifier.count,
6488: -- Standard Madatory record positions using vendor_name. This will be -- used in the load_results procedure to bypass the SMC records.
6489:
6490: l_atp_rec.vendor_name(I) := 'SMC';
6491: IF l_debug_level > 0 THEN
6492: oe_debug_pub.add( 'OE FLAG IS : '||L_ATP_REC.OE_FLAG ( I ) , 3 ) ;
6493: END IF;
6494:
6495: l_atp_rec.Inventory_Item_Id(I) := l_smc_rec.Inventory_Item_Id(J);
6496: l_atp_rec.Source_Organization_Id(I) :=
6545: l_smc_rec.Insert_Flag(J);
6546: l_atp_rec.atp_lead_time(I) :=
6547: l_smc_rec.atp_lead_time(J);
6548: IF l_debug_level > 0 THEN
6549: oe_debug_pub.add( 'INSERT FLAG IN SMC_REC : '||L_SMC_REC.INSERT_FLAG ( J ) , 3 ) ;
6550: oe_debug_pub.add( 'INSERT FLAG IN ATP_REC : '||L_ATP_REC.INSERT_FLAG ( I ) , 3 ) ;
6551: END IF;
6552: l_atp_rec.Error_Code(I) :=
6553: l_smc_rec.Error_Code(J);
6546: l_atp_rec.atp_lead_time(I) :=
6547: l_smc_rec.atp_lead_time(J);
6548: IF l_debug_level > 0 THEN
6549: oe_debug_pub.add( 'INSERT FLAG IN SMC_REC : '||L_SMC_REC.INSERT_FLAG ( J ) , 3 ) ;
6550: oe_debug_pub.add( 'INSERT FLAG IN ATP_REC : '||L_ATP_REC.INSERT_FLAG ( I ) , 3 ) ;
6551: END IF;
6552: l_atp_rec.Error_Code(I) :=
6553: l_smc_rec.Error_Code(J);
6554: l_atp_rec.Message(I) :=
6566: END LOOP;
6567: END IF;
6568:
6569: IF l_debug_level > 0 THEN
6570: oe_debug_pub.add( '--**-- ' , 1 ) ;
6571: END IF;
6572: x_atp_table := l_atp_rec;
6573:
6574: IF l_debug_level > 0 THEN
6571: END IF;
6572: x_atp_table := l_atp_rec;
6573:
6574: IF l_debug_level > 0 THEN
6575: oe_debug_pub.add( '....EXITING OE_ORDER_SCH_UTIL.LOAD_REQUEST' , 1 ) ;
6576: END IF;
6577: EXCEPTION
6578: WHEN OTHERS THEN
6579: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6583: , 'Load_MRP_Request'
6584: );
6585: END IF;
6586: IF l_debug_level > 0 THEN
6587: oe_debug_pub.add( 'UNEXPECTED ERROR IN LOAD_RESULTS' ) ;
6588: END IF;
6589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6590: END Load_MRP_Request;
6591:
6610: l_source_code VARCHAR2(40) := FND_PROFILE.VALUE('ONT_SOURCE_CODE');
6611: l_sales_order_id NUMBER;
6612: l_subinventory VARCHAR2(10);
6613: --
6614: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6615: --
6616: BEGIN
6617: IF l_debug_level > 0 THEN
6618: oe_debug_pub.add( 'ENTERING LOAD INV REQUEST' , 1 ) ;
6614: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6615: --
6616: BEGIN
6617: IF l_debug_level > 0 THEN
6618: oe_debug_pub.add( 'ENTERING LOAD INV REQUEST' , 1 ) ;
6619: END IF;
6620:
6621: l_rsv.reservation_id := fnd_api.g_miss_num; -- cannot know
6622: l_rsv.requirement_date := p_line_rec.schedule_ship_date;
6645:
6646: l_sales_order_id := Get_mtl_sales_order_id(p_line_rec.HEADER_ID);
6647:
6648: IF l_debug_level > 0 THEN
6649: oe_debug_pub.add( 'L_SALES_ORDER_ID' || L_SALES_ORDER_ID , 1 ) ;
6650: END IF;
6651:
6652: IF p_line_rec.subinventory = FND_API.G_MISS_CHAR THEN
6653: l_subinventory := NULL;
6712: l_rsv.attribute15 := NULL;
6713: l_rsv.ship_ready_flag := NULL;
6714: x_reservation_rec := l_rsv;
6715: IF l_debug_level > 0 THEN
6716: oe_debug_pub.add( 'EXITING LOAD INV REQUEST' , 1 ) ;
6717: END IF;
6718: EXCEPTION
6719:
6720: WHEN NO_DATA_FOUND
6734: , p_old_line_rec IN Oe_Order_Pub.line_rec_type)
6735: RETURN BOOLEAN
6736: IS
6737: --
6738: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6739: --
6740: BEGIN
6741:
6742: IF NOT OE_GLOBALS.Equal(p_line_rec.SHIP_FROM_ORG_ID,
6808:
6809:
6810: RETURN FALSE;
6811: IF l_debug_level > 0 THEN
6812: oe_debug_pub.add( 'RETURNING FALSE ' , 3 ) ;
6813: END IF;
6814: END Schedule_Attribute_Changed;
6815:
6816: /*---------------------------------------------------------------------
6847: l_buffer VARCHAR2(2000);
6848:
6849: l_qty2_to_unreserve NUMBER; -- INVCONV
6850: --
6851: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6852: --
6853: BEGIN
6854:
6855: IF l_debug_level > 0 THEN
6852: --
6853: BEGIN
6854:
6855: IF l_debug_level > 0 THEN
6856: oe_debug_pub.add( 'ENTERING UNRESERVE LINE' , 3 ) ;
6857: oe_debug_pub.add( 'QUANTITY TO UNRESERVE :' || P_QUANTITY_TO_UNRESERVE , 3 ) ;
6858: oe_debug_pub.add( 'QUANTITY2 TO UNRESERVE :' || P_QUANTITY2_TO_UNRESERVE , 3 ) ;
6859: END IF;
6860:
6853: BEGIN
6854:
6855: IF l_debug_level > 0 THEN
6856: oe_debug_pub.add( 'ENTERING UNRESERVE LINE' , 3 ) ;
6857: oe_debug_pub.add( 'QUANTITY TO UNRESERVE :' || P_QUANTITY_TO_UNRESERVE , 3 ) ;
6858: oe_debug_pub.add( 'QUANTITY2 TO UNRESERVE :' || P_QUANTITY2_TO_UNRESERVE , 3 ) ;
6859: END IF;
6860:
6861: -- If the quantity to reserve is passed and null or missing, we do not
6854:
6855: IF l_debug_level > 0 THEN
6856: oe_debug_pub.add( 'ENTERING UNRESERVE LINE' , 3 ) ;
6857: oe_debug_pub.add( 'QUANTITY TO UNRESERVE :' || P_QUANTITY_TO_UNRESERVE , 3 ) ;
6858: oe_debug_pub.add( 'QUANTITY2 TO UNRESERVE :' || P_QUANTITY2_TO_UNRESERVE , 3 ) ;
6859: END IF;
6860:
6861: -- If the quantity to reserve is passed and null or missing, we do not
6862: -- need to go throug this procedure.
6888:
6889: l_sales_order_id := Get_mtl_sales_order_id(p_line_rec.HEADER_ID);
6890:
6891: IF l_debug_level > 0 THEN
6892: oe_debug_pub.add( 'L_SALES_ORDER_ID' || L_SALES_ORDER_ID , 3 ) ;
6893: END IF;
6894:
6895: l_rsv_rec.demand_source_header_id := l_sales_order_id;
6896: l_rsv_rec.demand_source_line_id := l_line_rec.line_id;
6914: , p_sort_by_req_date => l_sort_by_req_date
6915: );
6916:
6917: IF l_debug_level > 0 THEN
6918: oe_debug_pub.add( '3. AFTER CALLING QUERY RESERVATION' || L_RETURN_STATUS , 1 ) ;
6919: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
6920: END IF;
6921:
6922: l_qty_to_unreserve := p_quantity_to_unreserve;
6915: );
6916:
6917: IF l_debug_level > 0 THEN
6918: oe_debug_pub.add( '3. AFTER CALLING QUERY RESERVATION' || L_RETURN_STATUS , 1 ) ;
6919: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
6920: END IF;
6921:
6922: l_qty_to_unreserve := p_quantity_to_unreserve;
6923: l_qty2_to_unreserve := p_quantity2_to_unreserve; -- INVCONV
6924: FOR I IN 1..l_rsv_tbl.COUNT LOOP
6925:
6926: l_rsv_rec := l_rsv_tbl(I);
6927: IF l_debug_level > 0 THEN
6928: oe_debug_pub.add( 'RESERVED QTY : ' || L_RSV_REC.RESERVATION_QUANTITY , 1 ) ;
6929: oe_debug_pub.add( 'QTY TO UNRESERVE: ' || L_QTY_TO_UNRESERVE , 1 ) ;
6930: oe_debug_pub.add( 'RESERVED QTY2 : ' || L_RSV_REC.secondary_reservation_quantity, 1 ) ;
6931: oe_debug_pub.add( 'QTY2 TO UNRESERVE: ' || L_QTY2_TO_UNRESERVE , 1 ) ;
6932:
6925:
6926: l_rsv_rec := l_rsv_tbl(I);
6927: IF l_debug_level > 0 THEN
6928: oe_debug_pub.add( 'RESERVED QTY : ' || L_RSV_REC.RESERVATION_QUANTITY , 1 ) ;
6929: oe_debug_pub.add( 'QTY TO UNRESERVE: ' || L_QTY_TO_UNRESERVE , 1 ) ;
6930: oe_debug_pub.add( 'RESERVED QTY2 : ' || L_RSV_REC.secondary_reservation_quantity, 1 ) ;
6931: oe_debug_pub.add( 'QTY2 TO UNRESERVE: ' || L_QTY2_TO_UNRESERVE , 1 ) ;
6932:
6933: END IF;
6926: l_rsv_rec := l_rsv_tbl(I);
6927: IF l_debug_level > 0 THEN
6928: oe_debug_pub.add( 'RESERVED QTY : ' || L_RSV_REC.RESERVATION_QUANTITY , 1 ) ;
6929: oe_debug_pub.add( 'QTY TO UNRESERVE: ' || L_QTY_TO_UNRESERVE , 1 ) ;
6930: oe_debug_pub.add( 'RESERVED QTY2 : ' || L_RSV_REC.secondary_reservation_quantity, 1 ) ;
6931: oe_debug_pub.add( 'QTY2 TO UNRESERVE: ' || L_QTY2_TO_UNRESERVE , 1 ) ;
6932:
6933: END IF;
6934:
6927: IF l_debug_level > 0 THEN
6928: oe_debug_pub.add( 'RESERVED QTY : ' || L_RSV_REC.RESERVATION_QUANTITY , 1 ) ;
6929: oe_debug_pub.add( 'QTY TO UNRESERVE: ' || L_QTY_TO_UNRESERVE , 1 ) ;
6930: oe_debug_pub.add( 'RESERVED QTY2 : ' || L_RSV_REC.secondary_reservation_quantity, 1 ) ;
6931: oe_debug_pub.add( 'QTY2 TO UNRESERVE: ' || L_QTY2_TO_UNRESERVE , 1 ) ;
6932:
6933: END IF;
6934:
6935: IF (l_rsv_rec.reservation_quantity <= l_qty_to_unreserve)
6935: IF (l_rsv_rec.reservation_quantity <= l_qty_to_unreserve)
6936: THEN
6937:
6938: IF l_debug_level > 0 THEN
6939: oe_debug_pub.add( 'CALLING INVS DELETE_RESERVATION' , 3 ) ;
6940: END IF;
6941: inv_reservation_pub.delete_reservation
6942: ( p_api_version_number => 1.0
6943: , p_init_msg_lst => fnd_api.g_true
6948: , p_serial_number => l_dummy_sn
6949: );
6950:
6951: IF l_debug_level > 0 THEN
6952: oe_debug_pub.add( 'AFTER CALLING INVS DELETE_RESERVATION: ' || L_RETURN_STATUS , 1 ) ;
6953: END IF;
6954:
6955: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6980: l_rsv_rec.secondary_reservation_quantity - l_qty2_to_unreserve ;
6981:
6982:
6983: IF l_debug_level > 0 THEN
6984: oe_debug_pub.add( 'OLD QTY : ' || L_RSV_REC.RESERVATION_QUANTITY , 3 ) ;
6985: oe_debug_pub.add( 'NEW QTY : ' || L_RSV_NEW_REC.RESERVATION_QUANTITY , 3 ) ;
6986: oe_debug_pub.add( 'OLD QTY2 : ' || L_RSV_REC.SECONDARY_RESERVATION_QUANTITY , 3 ) ; -- INVCONV
6987: oe_debug_pub.add( 'NEW QTY2 : ' || L_RSV_NEW_REC.SECONDARY_RESERVATION_QUANTITY , 3 ) ;
6988: END IF;
6981:
6982:
6983: IF l_debug_level > 0 THEN
6984: oe_debug_pub.add( 'OLD QTY : ' || L_RSV_REC.RESERVATION_QUANTITY , 3 ) ;
6985: oe_debug_pub.add( 'NEW QTY : ' || L_RSV_NEW_REC.RESERVATION_QUANTITY , 3 ) ;
6986: oe_debug_pub.add( 'OLD QTY2 : ' || L_RSV_REC.SECONDARY_RESERVATION_QUANTITY , 3 ) ; -- INVCONV
6987: oe_debug_pub.add( 'NEW QTY2 : ' || L_RSV_NEW_REC.SECONDARY_RESERVATION_QUANTITY , 3 ) ;
6988: END IF;
6989:
6982:
6983: IF l_debug_level > 0 THEN
6984: oe_debug_pub.add( 'OLD QTY : ' || L_RSV_REC.RESERVATION_QUANTITY , 3 ) ;
6985: oe_debug_pub.add( 'NEW QTY : ' || L_RSV_NEW_REC.RESERVATION_QUANTITY , 3 ) ;
6986: oe_debug_pub.add( 'OLD QTY2 : ' || L_RSV_REC.SECONDARY_RESERVATION_QUANTITY , 3 ) ; -- INVCONV
6987: oe_debug_pub.add( 'NEW QTY2 : ' || L_RSV_NEW_REC.SECONDARY_RESERVATION_QUANTITY , 3 ) ;
6988: END IF;
6989:
6990: /* OPM 14/SEP/00 send process attributes into the reservation
6983: IF l_debug_level > 0 THEN
6984: oe_debug_pub.add( 'OLD QTY : ' || L_RSV_REC.RESERVATION_QUANTITY , 3 ) ;
6985: oe_debug_pub.add( 'NEW QTY : ' || L_RSV_NEW_REC.RESERVATION_QUANTITY , 3 ) ;
6986: oe_debug_pub.add( 'OLD QTY2 : ' || L_RSV_REC.SECONDARY_RESERVATION_QUANTITY , 3 ) ; -- INVCONV
6987: oe_debug_pub.add( 'NEW QTY2 : ' || L_RSV_NEW_REC.SECONDARY_RESERVATION_QUANTITY , 3 ) ;
6988: END IF;
6989:
6990: /* OPM 14/SEP/00 send process attributes into the reservation
6991: =============================================================
7004: l_rsv_new_rec.secondary_uom_code := p_line_rec.ordered_quantity_uom2;
7005:
7006:
7007: IF l_debug_level > 0 THEN
7008: oe_debug_pub.add( 'CALLING INVS UPDATE_RESERVATION: ' , 3 ) ;
7009: END IF;
7010:
7011: inv_reservation_pub.update_reservation
7012: ( p_api_version_number => 1.0
7021: , p_validation_flag => fnd_api.g_true
7022: );
7023:
7024: IF l_debug_level > 0 THEN
7025: oe_debug_pub.add( 'AFTER CALLING INVS UPDATE_RESERVATION: ' || L_RETURN_STATUS , 1 ) ;
7026: END IF;
7027:
7028: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7032: fnd_message.set_encoded(l_msg_data);
7033: l_buffer := fnd_message.get;
7034: oe_msg_pub.add_text(p_message_text => l_buffer);
7035: IF l_debug_level > 0 THEN
7036: oe_debug_pub.add( 'ERROR : '|| L_BUFFER , 1 ) ;
7037: END IF;
7038: END IF;
7039: RAISE FND_API.G_EXC_ERROR;
7040: END IF;
7051: <
7052: null;
7053:
7054: IF l_debug_level > 0 THEN
7055: oe_debug_pub.add( 'EXITING UNRESERVE_LINES' , 3 ) ;
7056: END IF;
7057:
7058: EXCEPTION
7059: WHEN FND_API.G_EXC_ERROR THEN
7102: )
7103: IS
7104: l_group_req_rec OE_GRP_SCH_UTIL.Sch_Group_Rec_Type; -- INVCONV PAL - not sure if need to change this - purpose of this ?
7105: --
7106: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7107: --
7108: BEGIN
7109: IF l_debug_level > 0 THEN
7110: oe_debug_pub.add( 'ENTERING CREATE_GROUP_REQUEST' , 1 ) ;
7106: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7107: --
7108: BEGIN
7109: IF l_debug_level > 0 THEN
7110: oe_debug_pub.add( 'ENTERING CREATE_GROUP_REQUEST' , 1 ) ;
7111: END IF;
7112:
7113: IF (p_line_rec.arrival_set_id is not null) THEN
7114: l_group_req_rec.entity_type := OESCH_ENTITY_ARRIVAL_SET;
7207: l_group_req_rec.old_ship_set_number := p_old_line_rec.ship_set_id;
7208: l_group_req_rec.old_arrival_set_number := p_old_line_rec.arrival_set_id;
7209:
7210: IF l_debug_level > 0 THEN
7211: oe_debug_pub.add( '*********PRINTING GROUP REQUEST ATTRIBUTES***********' , 1 ) ;
7212: oe_debug_pub.add( 'GROUP ENTITY :' || L_GROUP_REQ_REC.ENTITY_TYPE , 1 ) ;
7213: oe_debug_pub.add( 'GROUP HEADER ID :' || L_GROUP_REQ_REC.HEADER_ID , 1 ) ;
7214: oe_debug_pub.add( 'LINE ID :' || L_GROUP_REQ_REC.LINE_ID , 1 ) ;
7215: oe_debug_pub.add( 'GROUP ACTION :' || L_GROUP_REQ_REC.ACTION , 1 ) ;
7208: l_group_req_rec.old_arrival_set_number := p_old_line_rec.arrival_set_id;
7209:
7210: IF l_debug_level > 0 THEN
7211: oe_debug_pub.add( '*********PRINTING GROUP REQUEST ATTRIBUTES***********' , 1 ) ;
7212: oe_debug_pub.add( 'GROUP ENTITY :' || L_GROUP_REQ_REC.ENTITY_TYPE , 1 ) ;
7213: oe_debug_pub.add( 'GROUP HEADER ID :' || L_GROUP_REQ_REC.HEADER_ID , 1 ) ;
7214: oe_debug_pub.add( 'LINE ID :' || L_GROUP_REQ_REC.LINE_ID , 1 ) ;
7215: oe_debug_pub.add( 'GROUP ACTION :' || L_GROUP_REQ_REC.ACTION , 1 ) ;
7216: oe_debug_pub.add( 'GROUP WAREHOUSE :' || L_GROUP_REQ_REC.SHIP_FROM_ORG_ID , 1 ) ;
7209:
7210: IF l_debug_level > 0 THEN
7211: oe_debug_pub.add( '*********PRINTING GROUP REQUEST ATTRIBUTES***********' , 1 ) ;
7212: oe_debug_pub.add( 'GROUP ENTITY :' || L_GROUP_REQ_REC.ENTITY_TYPE , 1 ) ;
7213: oe_debug_pub.add( 'GROUP HEADER ID :' || L_GROUP_REQ_REC.HEADER_ID , 1 ) ;
7214: oe_debug_pub.add( 'LINE ID :' || L_GROUP_REQ_REC.LINE_ID , 1 ) ;
7215: oe_debug_pub.add( 'GROUP ACTION :' || L_GROUP_REQ_REC.ACTION , 1 ) ;
7216: oe_debug_pub.add( 'GROUP WAREHOUSE :' || L_GROUP_REQ_REC.SHIP_FROM_ORG_ID , 1 ) ;
7217: oe_debug_pub.add( 'GROUP SHIP TO :' || L_GROUP_REQ_REC.SHIP_TO_ORG_ID , 1 ) ;
7210: IF l_debug_level > 0 THEN
7211: oe_debug_pub.add( '*********PRINTING GROUP REQUEST ATTRIBUTES***********' , 1 ) ;
7212: oe_debug_pub.add( 'GROUP ENTITY :' || L_GROUP_REQ_REC.ENTITY_TYPE , 1 ) ;
7213: oe_debug_pub.add( 'GROUP HEADER ID :' || L_GROUP_REQ_REC.HEADER_ID , 1 ) ;
7214: oe_debug_pub.add( 'LINE ID :' || L_GROUP_REQ_REC.LINE_ID , 1 ) ;
7215: oe_debug_pub.add( 'GROUP ACTION :' || L_GROUP_REQ_REC.ACTION , 1 ) ;
7216: oe_debug_pub.add( 'GROUP WAREHOUSE :' || L_GROUP_REQ_REC.SHIP_FROM_ORG_ID , 1 ) ;
7217: oe_debug_pub.add( 'GROUP SHIP TO :' || L_GROUP_REQ_REC.SHIP_TO_ORG_ID , 1 ) ;
7218: oe_debug_pub.add( 'GROUP SHIP SET# :' || L_GROUP_REQ_REC.SHIP_SET_NUMBER , 1 ) ;
7211: oe_debug_pub.add( '*********PRINTING GROUP REQUEST ATTRIBUTES***********' , 1 ) ;
7212: oe_debug_pub.add( 'GROUP ENTITY :' || L_GROUP_REQ_REC.ENTITY_TYPE , 1 ) ;
7213: oe_debug_pub.add( 'GROUP HEADER ID :' || L_GROUP_REQ_REC.HEADER_ID , 1 ) ;
7214: oe_debug_pub.add( 'LINE ID :' || L_GROUP_REQ_REC.LINE_ID , 1 ) ;
7215: oe_debug_pub.add( 'GROUP ACTION :' || L_GROUP_REQ_REC.ACTION , 1 ) ;
7216: oe_debug_pub.add( 'GROUP WAREHOUSE :' || L_GROUP_REQ_REC.SHIP_FROM_ORG_ID , 1 ) ;
7217: oe_debug_pub.add( 'GROUP SHIP TO :' || L_GROUP_REQ_REC.SHIP_TO_ORG_ID , 1 ) ;
7218: oe_debug_pub.add( 'GROUP SHIP SET# :' || L_GROUP_REQ_REC.SHIP_SET_NUMBER , 1 ) ;
7219: oe_debug_pub.add( 'GROUP ARR SET# :' || L_GROUP_REQ_REC.ARRIVAL_SET_NUMBER , 1 ) ;
7212: oe_debug_pub.add( 'GROUP ENTITY :' || L_GROUP_REQ_REC.ENTITY_TYPE , 1 ) ;
7213: oe_debug_pub.add( 'GROUP HEADER ID :' || L_GROUP_REQ_REC.HEADER_ID , 1 ) ;
7214: oe_debug_pub.add( 'LINE ID :' || L_GROUP_REQ_REC.LINE_ID , 1 ) ;
7215: oe_debug_pub.add( 'GROUP ACTION :' || L_GROUP_REQ_REC.ACTION , 1 ) ;
7216: oe_debug_pub.add( 'GROUP WAREHOUSE :' || L_GROUP_REQ_REC.SHIP_FROM_ORG_ID , 1 ) ;
7217: oe_debug_pub.add( 'GROUP SHIP TO :' || L_GROUP_REQ_REC.SHIP_TO_ORG_ID , 1 ) ;
7218: oe_debug_pub.add( 'GROUP SHIP SET# :' || L_GROUP_REQ_REC.SHIP_SET_NUMBER , 1 ) ;
7219: oe_debug_pub.add( 'GROUP ARR SET# :' || L_GROUP_REQ_REC.ARRIVAL_SET_NUMBER , 1 ) ;
7220: oe_debug_pub.add( 'SHIP METHOD :' || L_GROUP_REQ_REC.FREIGHT_CARRIER , 1 ) ;
7213: oe_debug_pub.add( 'GROUP HEADER ID :' || L_GROUP_REQ_REC.HEADER_ID , 1 ) ;
7214: oe_debug_pub.add( 'LINE ID :' || L_GROUP_REQ_REC.LINE_ID , 1 ) ;
7215: oe_debug_pub.add( 'GROUP ACTION :' || L_GROUP_REQ_REC.ACTION , 1 ) ;
7216: oe_debug_pub.add( 'GROUP WAREHOUSE :' || L_GROUP_REQ_REC.SHIP_FROM_ORG_ID , 1 ) ;
7217: oe_debug_pub.add( 'GROUP SHIP TO :' || L_GROUP_REQ_REC.SHIP_TO_ORG_ID , 1 ) ;
7218: oe_debug_pub.add( 'GROUP SHIP SET# :' || L_GROUP_REQ_REC.SHIP_SET_NUMBER , 1 ) ;
7219: oe_debug_pub.add( 'GROUP ARR SET# :' || L_GROUP_REQ_REC.ARRIVAL_SET_NUMBER , 1 ) ;
7220: oe_debug_pub.add( 'SHIP METHOD :' || L_GROUP_REQ_REC.FREIGHT_CARRIER , 1 ) ;
7221: oe_debug_pub.add( 'GRP REQUEST DATE :' || L_GROUP_REQ_REC.REQUEST_DATE , 1 ) ;
7214: oe_debug_pub.add( 'LINE ID :' || L_GROUP_REQ_REC.LINE_ID , 1 ) ;
7215: oe_debug_pub.add( 'GROUP ACTION :' || L_GROUP_REQ_REC.ACTION , 1 ) ;
7216: oe_debug_pub.add( 'GROUP WAREHOUSE :' || L_GROUP_REQ_REC.SHIP_FROM_ORG_ID , 1 ) ;
7217: oe_debug_pub.add( 'GROUP SHIP TO :' || L_GROUP_REQ_REC.SHIP_TO_ORG_ID , 1 ) ;
7218: oe_debug_pub.add( 'GROUP SHIP SET# :' || L_GROUP_REQ_REC.SHIP_SET_NUMBER , 1 ) ;
7219: oe_debug_pub.add( 'GROUP ARR SET# :' || L_GROUP_REQ_REC.ARRIVAL_SET_NUMBER , 1 ) ;
7220: oe_debug_pub.add( 'SHIP METHOD :' || L_GROUP_REQ_REC.FREIGHT_CARRIER , 1 ) ;
7221: oe_debug_pub.add( 'GRP REQUEST DATE :' || L_GROUP_REQ_REC.REQUEST_DATE , 1 ) ;
7222: oe_debug_pub.add( 'GRP SHIP DATE :' || L_GROUP_REQ_REC.SCHEDULE_SHIP_DATE , 1 ) ;
7215: oe_debug_pub.add( 'GROUP ACTION :' || L_GROUP_REQ_REC.ACTION , 1 ) ;
7216: oe_debug_pub.add( 'GROUP WAREHOUSE :' || L_GROUP_REQ_REC.SHIP_FROM_ORG_ID , 1 ) ;
7217: oe_debug_pub.add( 'GROUP SHIP TO :' || L_GROUP_REQ_REC.SHIP_TO_ORG_ID , 1 ) ;
7218: oe_debug_pub.add( 'GROUP SHIP SET# :' || L_GROUP_REQ_REC.SHIP_SET_NUMBER , 1 ) ;
7219: oe_debug_pub.add( 'GROUP ARR SET# :' || L_GROUP_REQ_REC.ARRIVAL_SET_NUMBER , 1 ) ;
7220: oe_debug_pub.add( 'SHIP METHOD :' || L_GROUP_REQ_REC.FREIGHT_CARRIER , 1 ) ;
7221: oe_debug_pub.add( 'GRP REQUEST DATE :' || L_GROUP_REQ_REC.REQUEST_DATE , 1 ) ;
7222: oe_debug_pub.add( 'GRP SHIP DATE :' || L_GROUP_REQ_REC.SCHEDULE_SHIP_DATE , 1 ) ;
7223: oe_debug_pub.add( 'GRP ARRIVAL DATE :' || L_GROUP_REQ_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
7216: oe_debug_pub.add( 'GROUP WAREHOUSE :' || L_GROUP_REQ_REC.SHIP_FROM_ORG_ID , 1 ) ;
7217: oe_debug_pub.add( 'GROUP SHIP TO :' || L_GROUP_REQ_REC.SHIP_TO_ORG_ID , 1 ) ;
7218: oe_debug_pub.add( 'GROUP SHIP SET# :' || L_GROUP_REQ_REC.SHIP_SET_NUMBER , 1 ) ;
7219: oe_debug_pub.add( 'GROUP ARR SET# :' || L_GROUP_REQ_REC.ARRIVAL_SET_NUMBER , 1 ) ;
7220: oe_debug_pub.add( 'SHIP METHOD :' || L_GROUP_REQ_REC.FREIGHT_CARRIER , 1 ) ;
7221: oe_debug_pub.add( 'GRP REQUEST DATE :' || L_GROUP_REQ_REC.REQUEST_DATE , 1 ) ;
7222: oe_debug_pub.add( 'GRP SHIP DATE :' || L_GROUP_REQ_REC.SCHEDULE_SHIP_DATE , 1 ) ;
7223: oe_debug_pub.add( 'GRP ARRIVAL DATE :' || L_GROUP_REQ_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
7224: END IF;
7217: oe_debug_pub.add( 'GROUP SHIP TO :' || L_GROUP_REQ_REC.SHIP_TO_ORG_ID , 1 ) ;
7218: oe_debug_pub.add( 'GROUP SHIP SET# :' || L_GROUP_REQ_REC.SHIP_SET_NUMBER , 1 ) ;
7219: oe_debug_pub.add( 'GROUP ARR SET# :' || L_GROUP_REQ_REC.ARRIVAL_SET_NUMBER , 1 ) ;
7220: oe_debug_pub.add( 'SHIP METHOD :' || L_GROUP_REQ_REC.FREIGHT_CARRIER , 1 ) ;
7221: oe_debug_pub.add( 'GRP REQUEST DATE :' || L_GROUP_REQ_REC.REQUEST_DATE , 1 ) ;
7222: oe_debug_pub.add( 'GRP SHIP DATE :' || L_GROUP_REQ_REC.SCHEDULE_SHIP_DATE , 1 ) ;
7223: oe_debug_pub.add( 'GRP ARRIVAL DATE :' || L_GROUP_REQ_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
7224: END IF;
7225:
7218: oe_debug_pub.add( 'GROUP SHIP SET# :' || L_GROUP_REQ_REC.SHIP_SET_NUMBER , 1 ) ;
7219: oe_debug_pub.add( 'GROUP ARR SET# :' || L_GROUP_REQ_REC.ARRIVAL_SET_NUMBER , 1 ) ;
7220: oe_debug_pub.add( 'SHIP METHOD :' || L_GROUP_REQ_REC.FREIGHT_CARRIER , 1 ) ;
7221: oe_debug_pub.add( 'GRP REQUEST DATE :' || L_GROUP_REQ_REC.REQUEST_DATE , 1 ) ;
7222: oe_debug_pub.add( 'GRP SHIP DATE :' || L_GROUP_REQ_REC.SCHEDULE_SHIP_DATE , 1 ) ;
7223: oe_debug_pub.add( 'GRP ARRIVAL DATE :' || L_GROUP_REQ_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
7224: END IF;
7225:
7226: x_group_req_rec := l_group_req_rec;
7219: oe_debug_pub.add( 'GROUP ARR SET# :' || L_GROUP_REQ_REC.ARRIVAL_SET_NUMBER , 1 ) ;
7220: oe_debug_pub.add( 'SHIP METHOD :' || L_GROUP_REQ_REC.FREIGHT_CARRIER , 1 ) ;
7221: oe_debug_pub.add( 'GRP REQUEST DATE :' || L_GROUP_REQ_REC.REQUEST_DATE , 1 ) ;
7222: oe_debug_pub.add( 'GRP SHIP DATE :' || L_GROUP_REQ_REC.SCHEDULE_SHIP_DATE , 1 ) ;
7223: oe_debug_pub.add( 'GRP ARRIVAL DATE :' || L_GROUP_REQ_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
7224: END IF;
7225:
7226: x_group_req_rec := l_group_req_rec;
7227:
7225:
7226: x_group_req_rec := l_group_req_rec;
7227:
7228: IF l_debug_level > 0 THEN
7229: oe_debug_pub.add( 'EXITING CREATE_GROUP_REQUEST' , 1 ) ;
7230: END IF;
7231:
7232: END Create_Group_Request;
7233:
7247: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER)
7248: IS
7249: I NUMBER;
7250: --
7251: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7252: --
7253: BEGIN
7254: I := 1;
7255: IF l_debug_level > 0 THEN
7252: --
7253: BEGIN
7254: I := 1;
7255: IF l_debug_level > 0 THEN
7256: oe_debug_pub.add( 'ENTERING CALL ATP' , 1 ) ;
7257: oe_debug_pub.add( P_ATP_TABLE.INVENTORY_ITEM_ID ( 1 ) ) ;
7258: END IF;
7259:
7260: x_atp_table := p_atp_table;
7253: BEGIN
7254: I := 1;
7255: IF l_debug_level > 0 THEN
7256: oe_debug_pub.add( 'ENTERING CALL ATP' , 1 ) ;
7257: oe_debug_pub.add( P_ATP_TABLE.INVENTORY_ITEM_ID ( 1 ) ) ;
7258: END IF;
7259:
7260: x_atp_table := p_atp_table;
7261:
7268: x_msg_count := 0;
7269: null;
7270:
7271: IF l_debug_level > 0 THEN
7272: oe_debug_pub.add( 'EXITING CALL ATP' , 1 ) ;
7273: END IF;
7274: END;
7275:
7276: /*--------------------------------------------------------------------------
7305: l_inventory_item VARCHAR2(2000); -------- Bug - 2316250
7306: l_old_ato_line_id Number := -99;
7307:
7308: --
7309: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7310: --
7311: BEGIN
7312: IF l_debug_level > 0 THEN
7313: oe_debug_pub.add( '2. ENTERING LOAD_RESULTS' , 1 ) ;
7309: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7310: --
7311: BEGIN
7312: IF l_debug_level > 0 THEN
7313: oe_debug_pub.add( '2. ENTERING LOAD_RESULTS' , 1 ) ;
7314: oe_debug_pub.add( '-----------------LOADING MRP RESULTS---------------' , 1 ) ;
7315: oe_debug_pub.add( 'MRP COUNT IS ' || P_ATP_TABLE.ERROR_CODE.COUNT , 1 ) ;
7316: oe_debug_pub.add( 'LINE COUNT IS ' || P_X_LINE_TBL.COUNT , 1 ) ;
7317: END IF;
7310: --
7311: BEGIN
7312: IF l_debug_level > 0 THEN
7313: oe_debug_pub.add( '2. ENTERING LOAD_RESULTS' , 1 ) ;
7314: oe_debug_pub.add( '-----------------LOADING MRP RESULTS---------------' , 1 ) ;
7315: oe_debug_pub.add( 'MRP COUNT IS ' || P_ATP_TABLE.ERROR_CODE.COUNT , 1 ) ;
7316: oe_debug_pub.add( 'LINE COUNT IS ' || P_X_LINE_TBL.COUNT , 1 ) ;
7317: END IF;
7318:
7311: BEGIN
7312: IF l_debug_level > 0 THEN
7313: oe_debug_pub.add( '2. ENTERING LOAD_RESULTS' , 1 ) ;
7314: oe_debug_pub.add( '-----------------LOADING MRP RESULTS---------------' , 1 ) ;
7315: oe_debug_pub.add( 'MRP COUNT IS ' || P_ATP_TABLE.ERROR_CODE.COUNT , 1 ) ;
7316: oe_debug_pub.add( 'LINE COUNT IS ' || P_X_LINE_TBL.COUNT , 1 ) ;
7317: END IF;
7318:
7319: J := J + 1;
7312: IF l_debug_level > 0 THEN
7313: oe_debug_pub.add( '2. ENTERING LOAD_RESULTS' , 1 ) ;
7314: oe_debug_pub.add( '-----------------LOADING MRP RESULTS---------------' , 1 ) ;
7315: oe_debug_pub.add( 'MRP COUNT IS ' || P_ATP_TABLE.ERROR_CODE.COUNT , 1 ) ;
7316: oe_debug_pub.add( 'LINE COUNT IS ' || P_X_LINE_TBL.COUNT , 1 ) ;
7317: END IF;
7318:
7319: J := J + 1;
7320: FOR I in 1..p_x_line_tbl.count LOOP
7326: THEN
7327:
7328: l_old_ato_line_id := p_x_line_tbl(I).ato_line_id;
7329: IF l_debug_level > 0 THEN
7330: oe_debug_pub.add('Check for config on line ' || P_X_LINE_TBL(I).ATO_LINE_ID , 1 ) ;
7331: END IF;
7332: BEGIN
7333:
7334: Select 'Y'
7340:
7341: EXCEPTION
7342: WHEN OTHERS THEN
7343: IF l_debug_level > 0 THEN
7344: oe_debug_pub.add( 'NO CONFIG EXISTS FOR ATO ' , 1 ) ;
7345: END IF;
7346: l_config_exists := 'N';
7347: END;
7348:
7364: OESCH_ACT_RESCHEDULE) THEN
7365:
7366: -- Modified this part to fix bug 1900085.
7367: IF l_debug_level > 0 THEN
7368: oe_debug_pub.add( 'UPDATING CONFIG LINE ' || L_LINE_REC.LINE_ID , 1 ) ;
7369: END IF;
7370: IF p_atp_table.group_ship_date(1) IS NOT NULL
7371: THEN
7372: l_line_rec.schedule_ship_date := p_atp_table.group_ship_date(1);
7392:
7393: -- l_line_rec.schedule_arrival_date := l_arrival_date;
7394:
7395: IF l_debug_level > 0 THEN
7396: oe_debug_pub.add( 'CONFIG SCHEDULE ' || L_LINE_REC.SCHEDULE_SHIP_DATE , 2 ) ;
7397: oe_debug_pub.add( 'CONFIG ARRIVAL ' || L_LINE_REC.SCHEDULE_ARRIVAL_DATE , 2 ) ;
7398: END IF;
7399: END IF;
7400:
7393: -- l_line_rec.schedule_arrival_date := l_arrival_date;
7394:
7395: IF l_debug_level > 0 THEN
7396: oe_debug_pub.add( 'CONFIG SCHEDULE ' || L_LINE_REC.SCHEDULE_SHIP_DATE , 2 ) ;
7397: oe_debug_pub.add( 'CONFIG ARRIVAL ' || L_LINE_REC.SCHEDULE_ARRIVAL_DATE , 2 ) ;
7398: END IF;
7399: END IF;
7400:
7401: goto end_loop;
7405: -- Setting Message Context
7406:
7407:
7408: IF l_debug_level > 0 THEN
7409: oe_debug_pub.add( 'SCHEDULE ACTION CODE ' || L_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
7410: END IF;
7411:
7412: IF (p_atp_table.error_code(J) <> 0) AND
7413: NOT OE_GLOBALS.Equal(l_line_rec.schedule_action_code,
7417:
7418: THEN
7419:
7420: IF l_debug_level > 0 THEN
7421: oe_debug_pub.add( 'ERROR FROM MRP: ' || P_ATP_TABLE.ERROR_CODE ( J ) , 1 ) ;
7422: END IF;
7423: IF p_atp_table.error_code(J) = 80 THEN
7424: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_SOURCE');
7425: OE_MSG_PUB.Add;
7425: OE_MSG_PUB.Add;
7426: ELSE
7427:
7428: IF l_debug_level > 0 THEN
7429: oe_debug_pub.add( 'SCHEDULING FAILED' , 1 ) ;
7430: oe_debug_pub.add( P_ATP_TABLE.ERROR_CODE ( J ) , 1 ) ;
7431: END IF;
7432:
7433: OE_MSG_PUB.set_msg_context(
7426: ELSE
7427:
7428: IF l_debug_level > 0 THEN
7429: oe_debug_pub.add( 'SCHEDULING FAILED' , 1 ) ;
7430: oe_debug_pub.add( P_ATP_TABLE.ERROR_CODE ( J ) , 1 ) ;
7431: END IF;
7432:
7433: OE_MSG_PUB.set_msg_context(
7434: p_entity_code => 'LINE'
7476: null;
7477: */
7478: ELSE
7479: IF l_debug_level > 0 THEN
7480: oe_debug_pub.add( 'ADDING MESSAGE TO THE STACK' , 1 ) ;
7481: END IF;
7482: FND_MESSAGE.SET_NAME('ONT','OE_SCH_OE_ORDER_FAILED');
7483: FND_MESSAGE.SET_TOKEN('EXPLANATION',l_explanation);
7484: OE_MSG_PUB.Add;
7541: l_atp_rec.ship_set := l_ship_set_name;
7542: l_atp_rec.arrival_set := l_arrival_set_name;
7543:
7544: IF l_debug_level > 0 THEN
7545: oe_debug_pub.add( 'SETTING ERROR' , 1 ) ;
7546: END IF;
7547: l_return_status := FND_API.G_RET_STS_ERROR;
7548:
7549: ELSE
7548:
7549: ELSE
7550:
7551: IF l_debug_level > 0 THEN
7552: oe_debug_pub.add( 'LOADING ATP RECORD' , 1 ) ;
7553: oe_debug_pub.add( P_ATP_TABLE.SOURCE_ORGANIZATION_ID ( 1 ) , 1 ) ;
7554: oe_debug_pub.add( 'ERROR CODE : ' || P_ATP_TABLE.ERROR_CODE ( J ) , 1 ) ;
7555: END IF;
7556: -- Muti org changes.
7549: ELSE
7550:
7551: IF l_debug_level > 0 THEN
7552: oe_debug_pub.add( 'LOADING ATP RECORD' , 1 ) ;
7553: oe_debug_pub.add( P_ATP_TABLE.SOURCE_ORGANIZATION_ID ( 1 ) , 1 ) ;
7554: oe_debug_pub.add( 'ERROR CODE : ' || P_ATP_TABLE.ERROR_CODE ( J ) , 1 ) ;
7555: END IF;
7556: -- Muti org changes.
7557: IF (p_atp_table.error_code(J) <> -99 ) THEN
7550:
7551: IF l_debug_level > 0 THEN
7552: oe_debug_pub.add( 'LOADING ATP RECORD' , 1 ) ;
7553: oe_debug_pub.add( P_ATP_TABLE.SOURCE_ORGANIZATION_ID ( 1 ) , 1 ) ;
7554: oe_debug_pub.add( 'ERROR CODE : ' || P_ATP_TABLE.ERROR_CODE ( J ) , 1 ) ;
7555: END IF;
7556: -- Muti org changes.
7557: IF (p_atp_table.error_code(J) <> -99 ) THEN
7558:
7556: -- Muti org changes.
7557: IF (p_atp_table.error_code(J) <> -99 ) THEN
7558:
7559: IF l_debug_level > 0 THEN
7560: oe_debug_pub.add( '3. ERROR CODE : ' || P_ATP_TABLE.ERROR_CODE ( J ) , 1 ) ;
7561: oe_debug_pub.add( '3. J : ' || J , 3 ) ;
7562: oe_debug_pub.add( '3. IDENTIFIER : ' || P_ATP_TABLE.IDENTIFIER ( J ) , 1 ) ;
7563: oe_debug_pub.add( '3. ITEM : ' || P_ATP_TABLE.INVENTORY_ITEM_ID ( J ) , 1 ) ;
7564: oe_debug_pub.add( '3.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7557: IF (p_atp_table.error_code(J) <> -99 ) THEN
7558:
7559: IF l_debug_level > 0 THEN
7560: oe_debug_pub.add( '3. ERROR CODE : ' || P_ATP_TABLE.ERROR_CODE ( J ) , 1 ) ;
7561: oe_debug_pub.add( '3. J : ' || J , 3 ) ;
7562: oe_debug_pub.add( '3. IDENTIFIER : ' || P_ATP_TABLE.IDENTIFIER ( J ) , 1 ) ;
7563: oe_debug_pub.add( '3. ITEM : ' || P_ATP_TABLE.INVENTORY_ITEM_ID ( J ) , 1 ) ;
7564: oe_debug_pub.add( '3.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7565: oe_debug_pub.add( '3.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
7558:
7559: IF l_debug_level > 0 THEN
7560: oe_debug_pub.add( '3. ERROR CODE : ' || P_ATP_TABLE.ERROR_CODE ( J ) , 1 ) ;
7561: oe_debug_pub.add( '3. J : ' || J , 3 ) ;
7562: oe_debug_pub.add( '3. IDENTIFIER : ' || P_ATP_TABLE.IDENTIFIER ( J ) , 1 ) ;
7563: oe_debug_pub.add( '3. ITEM : ' || P_ATP_TABLE.INVENTORY_ITEM_ID ( J ) , 1 ) ;
7564: oe_debug_pub.add( '3.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7565: oe_debug_pub.add( '3.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
7566: oe_debug_pub.add( '3.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7559: IF l_debug_level > 0 THEN
7560: oe_debug_pub.add( '3. ERROR CODE : ' || P_ATP_TABLE.ERROR_CODE ( J ) , 1 ) ;
7561: oe_debug_pub.add( '3. J : ' || J , 3 ) ;
7562: oe_debug_pub.add( '3. IDENTIFIER : ' || P_ATP_TABLE.IDENTIFIER ( J ) , 1 ) ;
7563: oe_debug_pub.add( '3. ITEM : ' || P_ATP_TABLE.INVENTORY_ITEM_ID ( J ) , 1 ) ;
7564: oe_debug_pub.add( '3.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7565: oe_debug_pub.add( '3.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
7566: oe_debug_pub.add( '3.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7567: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
7560: oe_debug_pub.add( '3. ERROR CODE : ' || P_ATP_TABLE.ERROR_CODE ( J ) , 1 ) ;
7561: oe_debug_pub.add( '3. J : ' || J , 3 ) ;
7562: oe_debug_pub.add( '3. IDENTIFIER : ' || P_ATP_TABLE.IDENTIFIER ( J ) , 1 ) ;
7563: oe_debug_pub.add( '3. ITEM : ' || P_ATP_TABLE.INVENTORY_ITEM_ID ( J ) , 1 ) ;
7564: oe_debug_pub.add( '3.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7565: oe_debug_pub.add( '3.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
7566: oe_debug_pub.add( '3.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7567: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
7568: oe_debug_pub.add( '3.GROUP SHIP DATE :' || P_ATP_TABLE.GROUP_SHIP_DATE ( J ) , 1 ) ;
7561: oe_debug_pub.add( '3. J : ' || J , 3 ) ;
7562: oe_debug_pub.add( '3. IDENTIFIER : ' || P_ATP_TABLE.IDENTIFIER ( J ) , 1 ) ;
7563: oe_debug_pub.add( '3. ITEM : ' || P_ATP_TABLE.INVENTORY_ITEM_ID ( J ) , 1 ) ;
7564: oe_debug_pub.add( '3.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7565: oe_debug_pub.add( '3.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
7566: oe_debug_pub.add( '3.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7567: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
7568: oe_debug_pub.add( '3.GROUP SHIP DATE :' || P_ATP_TABLE.GROUP_SHIP_DATE ( J ) , 1 ) ;
7569: oe_debug_pub.add( '3.GROUP ARRIVAL DATE :' || P_ATP_TABLE.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
7562: oe_debug_pub.add( '3. IDENTIFIER : ' || P_ATP_TABLE.IDENTIFIER ( J ) , 1 ) ;
7563: oe_debug_pub.add( '3. ITEM : ' || P_ATP_TABLE.INVENTORY_ITEM_ID ( J ) , 1 ) ;
7564: oe_debug_pub.add( '3.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7565: oe_debug_pub.add( '3.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
7566: oe_debug_pub.add( '3.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7567: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
7568: oe_debug_pub.add( '3.GROUP SHIP DATE :' || P_ATP_TABLE.GROUP_SHIP_DATE ( J ) , 1 ) ;
7569: oe_debug_pub.add( '3.GROUP ARRIVAL DATE :' || P_ATP_TABLE.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
7570: END IF;
7563: oe_debug_pub.add( '3. ITEM : ' || P_ATP_TABLE.INVENTORY_ITEM_ID ( J ) , 1 ) ;
7564: oe_debug_pub.add( '3.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7565: oe_debug_pub.add( '3.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
7566: oe_debug_pub.add( '3.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7567: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
7568: oe_debug_pub.add( '3.GROUP SHIP DATE :' || P_ATP_TABLE.GROUP_SHIP_DATE ( J ) , 1 ) ;
7569: oe_debug_pub.add( '3.GROUP ARRIVAL DATE :' || P_ATP_TABLE.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
7570: END IF;
7571:
7564: oe_debug_pub.add( '3.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7565: oe_debug_pub.add( '3.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
7566: oe_debug_pub.add( '3.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7567: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
7568: oe_debug_pub.add( '3.GROUP SHIP DATE :' || P_ATP_TABLE.GROUP_SHIP_DATE ( J ) , 1 ) ;
7569: oe_debug_pub.add( '3.GROUP ARRIVAL DATE :' || P_ATP_TABLE.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
7570: END IF;
7571:
7572: l_explanation := null;
7565: oe_debug_pub.add( '3.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
7566: oe_debug_pub.add( '3.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7567: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
7568: oe_debug_pub.add( '3.GROUP SHIP DATE :' || P_ATP_TABLE.GROUP_SHIP_DATE ( J ) , 1 ) ;
7569: oe_debug_pub.add( '3.GROUP ARRIVAL DATE :' || P_ATP_TABLE.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
7570: END IF;
7571:
7572: l_explanation := null;
7573:
7581: and lookup_code = p_atp_table.error_code(J) ;
7582:
7583: l_atp_rec.error_message := l_explanation;
7584: IF l_debug_level > 0 THEN
7585: oe_debug_pub.add( 'EXPLANATION IS : ' || L_EXPLANATION , 1 ) ;
7586: END IF;
7587:
7588: IF p_atp_table.error_code(J) = 150 THEN -- to fix bug 1880166.
7589: OE_MSG_PUB.add_text(l_explanation);
7677: OR OE_GLOBALS.Equal(l_line_rec.schedule_action_code,
7678: OESCH_ACT_SCHEDULE)
7679: THEN
7680: IF l_debug_level > 0 THEN
7681: oe_debug_pub.add( 'LOADING RESULTS OF SCHEDULE' , 1 ) ;
7682: oe_debug_pub.add( '1.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7683: oe_debug_pub.add( '1.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
7684: oe_debug_pub.add( '1.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7685: oe_debug_pub.add( '1.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
7678: OESCH_ACT_SCHEDULE)
7679: THEN
7680: IF l_debug_level > 0 THEN
7681: oe_debug_pub.add( 'LOADING RESULTS OF SCHEDULE' , 1 ) ;
7682: oe_debug_pub.add( '1.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7683: oe_debug_pub.add( '1.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
7684: oe_debug_pub.add( '1.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7685: oe_debug_pub.add( '1.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
7686: oe_debug_pub.add( '1.GROUP SHIP DATE :' || P_ATP_TABLE.GROUP_SHIP_DATE ( J ) , 1 ) ;
7679: THEN
7680: IF l_debug_level > 0 THEN
7681: oe_debug_pub.add( 'LOADING RESULTS OF SCHEDULE' , 1 ) ;
7682: oe_debug_pub.add( '1.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7683: oe_debug_pub.add( '1.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
7684: oe_debug_pub.add( '1.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7685: oe_debug_pub.add( '1.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
7686: oe_debug_pub.add( '1.GROUP SHIP DATE :' || P_ATP_TABLE.GROUP_SHIP_DATE ( J ) , 1 ) ;
7687: oe_debug_pub.add( '1.GROUP ARRIVAL DATE :' || P_ATP_TABLE.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
7680: IF l_debug_level > 0 THEN
7681: oe_debug_pub.add( 'LOADING RESULTS OF SCHEDULE' , 1 ) ;
7682: oe_debug_pub.add( '1.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7683: oe_debug_pub.add( '1.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
7684: oe_debug_pub.add( '1.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7685: oe_debug_pub.add( '1.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
7686: oe_debug_pub.add( '1.GROUP SHIP DATE :' || P_ATP_TABLE.GROUP_SHIP_DATE ( J ) , 1 ) ;
7687: oe_debug_pub.add( '1.GROUP ARRIVAL DATE :' || P_ATP_TABLE.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
7688: END IF;
7681: oe_debug_pub.add( 'LOADING RESULTS OF SCHEDULE' , 1 ) ;
7682: oe_debug_pub.add( '1.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7683: oe_debug_pub.add( '1.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
7684: oe_debug_pub.add( '1.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7685: oe_debug_pub.add( '1.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
7686: oe_debug_pub.add( '1.GROUP SHIP DATE :' || P_ATP_TABLE.GROUP_SHIP_DATE ( J ) , 1 ) ;
7687: oe_debug_pub.add( '1.GROUP ARRIVAL DATE :' || P_ATP_TABLE.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
7688: END IF;
7689:
7682: oe_debug_pub.add( '1.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7683: oe_debug_pub.add( '1.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
7684: oe_debug_pub.add( '1.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7685: oe_debug_pub.add( '1.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
7686: oe_debug_pub.add( '1.GROUP SHIP DATE :' || P_ATP_TABLE.GROUP_SHIP_DATE ( J ) , 1 ) ;
7687: oe_debug_pub.add( '1.GROUP ARRIVAL DATE :' || P_ATP_TABLE.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
7688: END IF;
7689:
7690:
7683: oe_debug_pub.add( '1.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
7684: oe_debug_pub.add( '1.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 1 ) ;
7685: oe_debug_pub.add( '1.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
7686: oe_debug_pub.add( '1.GROUP SHIP DATE :' || P_ATP_TABLE.GROUP_SHIP_DATE ( J ) , 1 ) ;
7687: oe_debug_pub.add( '1.GROUP ARRIVAL DATE :' || P_ATP_TABLE.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
7688: END IF;
7689:
7690:
7691: l_line_rec.ship_from_org_id :=
7701: l_line_rec.latest_acceptable_date :=
7702: l_line_rec.schedule_ship_date;
7703: END IF;
7704: ELSE
7705: OE_DEBUG_PUB.Add('Latest Acceptable Date is NULL');
7706: l_line_rec.latest_acceptable_date :=
7707: l_line_rec.schedule_ship_date;
7708: END IF;
7709: ------------------------Bug 2327620 End ------------------- */
7728: l_line_rec.latest_acceptable_date :=
7729: l_line_rec.schedule_arrival_date;
7730: END IF;
7731: ELSE
7732: OE_DEBUG_PUB.Add('Latest Acceptable Date is NULL');
7733: l_line_rec.latest_acceptable_date :=
7734: l_line_rec.schedule_arrival_date;
7735: END IF;
7736:
7753: l_line_rec.latest_acceptable_date :=
7754: l_line_rec.schedule_ship_date;
7755: END IF;
7756: ELSE
7757: OE_DEBUG_PUB.Add('Latest Acceptable Date is NULL');
7758: l_line_rec.latest_acceptable_date :=
7759: l_line_rec.schedule_ship_date;
7760: END IF;
7761: ------------------------Bug 2327620 End ------------------- */
7769: l_line_rec.mfg_lead_time := p_atp_table.atp_lead_time(J);
7770: l_line_rec.schedule_status_code := OESCH_STATUS_SCHEDULED;
7771:
7772: IF l_debug_level > 0 THEN
7773: oe_debug_pub.add( 'BEFORE ATTRIBUTE 05' , 5 ) ;
7774: END IF;
7775:
7776: -- bug fix 1965182/1925326
7777: IF p_atp_table.attribute_05.COUNT > 0 THEN
7779: IF l_config_exists = 'N' THEN
7780: l_line_rec.visible_demand_flag := 'Y';
7781: ELSE
7782: IF l_debug_level > 0 THEN
7783: oe_debug_pub.add( 'INSIDE CONFIG EXISTS' , 3 ) ;
7784: END IF;
7785: END IF;
7786:
7787: ELSIF p_atp_table.attribute_05(J) = 'N' THEN
7793: IF l_config_exists = 'N' THEN
7794: l_line_rec.visible_demand_flag := 'Y';
7795: ELSE
7796: IF l_debug_level > 0 THEN
7797: oe_debug_pub.add( 'CONFIG EXISTS' , 3 ) ;
7798: END IF;
7799: END IF;
7800: END IF;
7801: IF l_debug_level > 0 THEN
7798: END IF;
7799: END IF;
7800: END IF;
7801: IF l_debug_level > 0 THEN
7802: oe_debug_pub.add( 'AFTER ATTRIBUTE 05' , 5 ) ;
7803: END IF;
7804:
7805: -- We had set the ship_set and arrival_set (which are value
7806: -- fields) to the set name values for calling MRP purpose.
7823: -- returning correct data to OM.
7824: /* Modified the following if condition to fix the bug 2919141 */
7825: IF (l_line_rec.schedule_ship_date is null) and (l_line_rec.ordered_quantity <> 0) THEN
7826: IF l_debug_level > 0 THEN
7827: oe_debug_pub.add( 'SCH: MRP HAS RETURNED A NULL SHIP DATE' , 2 ) ;
7828: END IF;
7829: l_line_rec.visible_demand_flag := 'N';
7830: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATP_ERROR');
7831: OE_MSG_PUB.Add;
7840: OE_GLOBALS.Equal(l_line_rec.schedule_action_code,
7841: OESCH_ACT_RESCHEDULE)
7842: THEN
7843: IF l_debug_level > 0 THEN
7844: oe_debug_pub.add( 'LOAD THE RESULT OF RESCHEDULE' , 3 ) ;
7845: oe_debug_pub.add( '2.REQUEST SHIP DATE :' || P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 3 ) ;
7846: oe_debug_pub.add( '2.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 3 ) ;
7847: oe_debug_pub.add( '2.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 3 ) ;
7848: oe_debug_pub.add( '2.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 3 ) ;
7841: OESCH_ACT_RESCHEDULE)
7842: THEN
7843: IF l_debug_level > 0 THEN
7844: oe_debug_pub.add( 'LOAD THE RESULT OF RESCHEDULE' , 3 ) ;
7845: oe_debug_pub.add( '2.REQUEST SHIP DATE :' || P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 3 ) ;
7846: oe_debug_pub.add( '2.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 3 ) ;
7847: oe_debug_pub.add( '2.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 3 ) ;
7848: oe_debug_pub.add( '2.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 3 ) ;
7849: oe_debug_pub.add( '2.GROUP SHIP DATE :' || P_ATP_TABLE.GROUP_SHIP_DATE ( J ) , 3 ) ;
7842: THEN
7843: IF l_debug_level > 0 THEN
7844: oe_debug_pub.add( 'LOAD THE RESULT OF RESCHEDULE' , 3 ) ;
7845: oe_debug_pub.add( '2.REQUEST SHIP DATE :' || P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 3 ) ;
7846: oe_debug_pub.add( '2.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 3 ) ;
7847: oe_debug_pub.add( '2.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 3 ) ;
7848: oe_debug_pub.add( '2.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 3 ) ;
7849: oe_debug_pub.add( '2.GROUP SHIP DATE :' || P_ATP_TABLE.GROUP_SHIP_DATE ( J ) , 3 ) ;
7850: oe_debug_pub.add( '2.GROUP ARRIVAL DATE :' || P_ATP_TABLE.GROUP_ARRIVAL_DATE ( J ) , 3 ) ;
7843: IF l_debug_level > 0 THEN
7844: oe_debug_pub.add( 'LOAD THE RESULT OF RESCHEDULE' , 3 ) ;
7845: oe_debug_pub.add( '2.REQUEST SHIP DATE :' || P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 3 ) ;
7846: oe_debug_pub.add( '2.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 3 ) ;
7847: oe_debug_pub.add( '2.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 3 ) ;
7848: oe_debug_pub.add( '2.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 3 ) ;
7849: oe_debug_pub.add( '2.GROUP SHIP DATE :' || P_ATP_TABLE.GROUP_SHIP_DATE ( J ) , 3 ) ;
7850: oe_debug_pub.add( '2.GROUP ARRIVAL DATE :' || P_ATP_TABLE.GROUP_ARRIVAL_DATE ( J ) , 3 ) ;
7851: END IF;
7844: oe_debug_pub.add( 'LOAD THE RESULT OF RESCHEDULE' , 3 ) ;
7845: oe_debug_pub.add( '2.REQUEST SHIP DATE :' || P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 3 ) ;
7846: oe_debug_pub.add( '2.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 3 ) ;
7847: oe_debug_pub.add( '2.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 3 ) ;
7848: oe_debug_pub.add( '2.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 3 ) ;
7849: oe_debug_pub.add( '2.GROUP SHIP DATE :' || P_ATP_TABLE.GROUP_SHIP_DATE ( J ) , 3 ) ;
7850: oe_debug_pub.add( '2.GROUP ARRIVAL DATE :' || P_ATP_TABLE.GROUP_ARRIVAL_DATE ( J ) , 3 ) ;
7851: END IF;
7852:
7845: oe_debug_pub.add( '2.REQUEST SHIP DATE :' || P_ATP_TABLE.REQUESTED_SHIP_DATE ( J ) , 3 ) ;
7846: oe_debug_pub.add( '2.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 3 ) ;
7847: oe_debug_pub.add( '2.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 3 ) ;
7848: oe_debug_pub.add( '2.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 3 ) ;
7849: oe_debug_pub.add( '2.GROUP SHIP DATE :' || P_ATP_TABLE.GROUP_SHIP_DATE ( J ) , 3 ) ;
7850: oe_debug_pub.add( '2.GROUP ARRIVAL DATE :' || P_ATP_TABLE.GROUP_ARRIVAL_DATE ( J ) , 3 ) ;
7851: END IF;
7852:
7853: l_line_rec.ship_from_org_id :=
7846: oe_debug_pub.add( '2.REQUEST ARRIVAL DATE :' || P_ATP_TABLE.REQUESTED_ARRIVAL_DATE ( J ) , 3 ) ;
7847: oe_debug_pub.add( '2.SHIP DATE :' || TO_CHAR ( P_ATP_TABLE.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MM:SS' ) , 3 ) ;
7848: oe_debug_pub.add( '2.LEAD TIME :' || P_ATP_TABLE.DELIVERY_LEAD_TIME ( J ) , 3 ) ;
7849: oe_debug_pub.add( '2.GROUP SHIP DATE :' || P_ATP_TABLE.GROUP_SHIP_DATE ( J ) , 3 ) ;
7850: oe_debug_pub.add( '2.GROUP ARRIVAL DATE :' || P_ATP_TABLE.GROUP_ARRIVAL_DATE ( J ) , 3 ) ;
7851: END IF;
7852:
7853: l_line_rec.ship_from_org_id :=
7854: p_atp_table.Source_Organization_Id(J);
7934: l_line_rec.schedule_status_code := OESCH_STATUS_SCHEDULED;
7935:
7936: --- Bug 1925326
7937: IF l_debug_level > 0 THEN
7938: oe_debug_pub.add( 'RSCH BEFORE ATTRIBUTE 05' , 5 ) ;
7939: END IF;
7940: IF p_atp_table.attribute_05.COUNT > 0 THEN
7941:
7942: IF p_atp_table.attribute_05(J) IS NULL THEN
7944: IF l_config_exists = 'N' THEN
7945: l_line_rec.visible_demand_flag := 'Y';
7946: ELSE
7947: IF l_debug_level > 0 THEN
7948: oe_debug_pub.add( 'RSCH INSIDE: CONFIG EXISTS' , 3 ) ;
7949: END IF;
7950: END IF;
7951:
7952: ELSIF p_atp_table.attribute_05(J) = 'N' THEN
7961: IF l_config_exists = 'N' THEN
7962: l_line_rec.visible_demand_flag := 'Y';
7963: ELSE
7964: IF l_debug_level > 0 THEN
7965: oe_debug_pub.add( 'RSCH: CONFIG EXISTS' , 3 ) ;
7966: END IF;
7967: END IF;
7968:
7969: END IF;
7967: END IF;
7968:
7969: END IF;
7970: IF l_debug_level > 0 THEN
7971: oe_debug_pub.add( 'RSCH AFTER ATTRIBUTE 05' , 5 ) ;
7972: END IF;
7973:
7974: IF (l_line_rec.ordered_quantity = 0)
7975: THEN
7975: THEN
7976: -- Conditional clearing code has beed added as
7977: -- part of CMS changes. Bug 2101332.
7978: IF l_debug_level > 0 THEN
7979: oe_debug_pub.add( 'LOAD THE RESULTS OF RESCHEDULE: ' || L_LINE_REC.RE_SOURCE_FLAG , 1 ) ;
7980: END IF;
7981: -- 2388445 commenting below code.
7982: /* IF l_line_rec.re_source_flag='Y' or
7983: l_line_rec.re_source_flag is null THEN
7980: END IF;
7981: -- 2388445 commenting below code.
7982: /* IF l_line_rec.re_source_flag='Y' or
7983: l_line_rec.re_source_flag is null THEN
7984: oe_debug_pub.add('Setting Ship From to null',1);
7985: l_line_rec.ship_from_org_id := null;
7986: END IF; */
7987: l_line_rec.schedule_ship_date := null;
7988: l_line_rec.schedule_arrival_date := null;
8006:
8007: IF l_line_rec.top_model_line_id = l_line_rec.line_id THEN
8008:
8009: IF l_debug_level > 0 THEN
8010: oe_debug_pub.add( 'STORE ARRIVAL_DATE ' || L_LINE_REC.SCHEDULE_ARRIVAL_DATE , 2 ) ;
8011: END IF;
8012: l_arrival_date := l_line_rec.schedule_arrival_date;
8013:
8014: END IF;
8019: -- returning correct data to OM.
8020: /* Modified the following if condition to fix the bug 2919141 */
8021: IF (l_line_rec.schedule_ship_date is null) and (l_line_rec.ordered_quantity <> 0) THEN
8022: IF l_debug_level > 0 THEN
8023: oe_debug_pub.add( 'SCH: MRP HAS RETURNED A NULL SHIP DATE' , 2 ) ;
8024: END IF;
8025: l_line_rec.visible_demand_flag := 'N';
8026: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATP_ERROR');
8027: OE_MSG_PUB.Add;
8033: ELSIF OE_GLOBALS.Equal(l_line_rec.schedule_action_code,
8034: OESCH_ACT_UNDEMAND)
8035: THEN
8036: IF l_debug_level > 0 THEN
8037: oe_debug_pub.add( 'RR2:LOAD THE RESULTS OF UNDEMAND: ' || L_LINE_REC.RE_SOURCE_FLAG , 1 ) ;
8038: END IF;
8039: IF l_line_rec.re_source_flag='Y' or
8040: l_line_rec.re_source_flag is null THEN
8041: -- 2427769.
8040: l_line_rec.re_source_flag is null THEN
8041: -- 2427769.
8042: IF l_line_rec.ordered_quantity > 0 THEN
8043: IF l_debug_level > 0 THEN
8044: oe_debug_pub.add( 'SETTING SHIP FROM TO NULL' , 1 ) ;
8045: END IF;
8046: l_line_rec.ship_from_org_id := null;
8047: END IF;
8048: END IF;
8107: END LOOP;
8108:
8109: x_return_status := l_return_status;
8110: IF l_debug_level > 0 THEN
8111: oe_debug_pub.add( 'EXITING LOAD_RESULTS: ' || L_RETURN_STATUS , 1 ) ;
8112: END IF;
8113:
8114: EXCEPTION
8115: WHEN OTHERS THEN
8120: , 'Load_Results'
8121: );
8122: END IF;
8123: IF l_debug_level > 0 THEN
8124: oe_debug_pub.add( 'UNEXPECTED ERROR IN LOAD_RESULTS' ) ;
8125: END IF;
8126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8128: END Load_Results;
8153: l_msg_data VARCHAR2(2000);
8154: l_msg_count NUMBER;
8155: l_return_status VARCHAR2(1);
8156: --
8157: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8158: --
8159: BEGIN
8160:
8161: IF l_debug_level > 0 THEN
8158: --
8159: BEGIN
8160:
8161: IF l_debug_level > 0 THEN
8162: oe_debug_pub.add( 'ENTERING INSERT_INTO_MTL_SALES_ORDERS' , 1 ) ;
8163: END IF;
8164:
8165: BEGIN
8166: -- Fix for bug#1078323: the order type name should be selected in
8177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8178: END;
8179:
8180: IF l_debug_level > 0 THEN
8181: oe_debug_pub.add( 'CALLING INVS CREATE_SALESORDER' , 1 ) ;
8182: oe_debug_pub.add( 'ORDER TYPE: ' || L_ORDER_TYPE_NAME , 1 ) ;
8183: oe_debug_pub.add( 'SOURCE CODE: ' || L_SOURCE_CODE , 1 ) ;
8184: END IF;
8185:
8178: END;
8179:
8180: IF l_debug_level > 0 THEN
8181: oe_debug_pub.add( 'CALLING INVS CREATE_SALESORDER' , 1 ) ;
8182: oe_debug_pub.add( 'ORDER TYPE: ' || L_ORDER_TYPE_NAME , 1 ) ;
8183: oe_debug_pub.add( 'SOURCE CODE: ' || L_SOURCE_CODE , 1 ) ;
8184: END IF;
8185:
8186: inv_salesorder.create_salesorder
8179:
8180: IF l_debug_level > 0 THEN
8181: oe_debug_pub.add( 'CALLING INVS CREATE_SALESORDER' , 1 ) ;
8182: oe_debug_pub.add( 'ORDER TYPE: ' || L_ORDER_TYPE_NAME , 1 ) ;
8183: oe_debug_pub.add( 'SOURCE CODE: ' || L_SOURCE_CODE , 1 ) ;
8184: END IF;
8185:
8186: inv_salesorder.create_salesorder
8187: ( p_api_version_number => 1.0,
8195: x_return_status => l_return_status);
8196:
8197:
8198: IF l_debug_level > 0 THEN
8199: oe_debug_pub.add( 'L_MSG_COUNT ' || L_MSG_COUNT , 1 ) ;
8200: END IF;
8201: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8203: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8204: RAISE FND_API.G_EXC_ERROR;
8205: END IF;
8206:
8207: IF l_debug_level > 0 THEN
8208: oe_debug_pub.add( 'EXITING INSERT_INTO_MTL_SALES_ORDERS' , 1 ) ;
8209: END IF;
8210:
8211: EXCEPTION
8212:
8248: l_sales_order_id NUMBER := 0;
8249: l_order_type_name VARCHAR2(80);
8250: l_order_type_id NUMBER;
8251: --
8252: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8253: --
8254: BEGIN
8255: --3748723
8256: --4504362 : Branch scheduling code removed.
8255: --3748723
8256: --4504362 : Branch scheduling code removed.
8257: l_sales_order_id := oe_schedule_util.Get_Mtl_Sales_Order_Id(p_header_id);
8258: IF l_debug_level > 0 THEN
8259: oe_debug_pub.add( 'L_SALES_ORDER_ID' || L_SALES_ORDER_ID , 2 ) ;
8260: END IF;
8261:
8262: RETURN l_sales_order_id;
8263:
8263:
8264: EXCEPTION
8265: WHEN NO_DATA_FOUND THEN
8266: IF l_debug_level > 0 THEN
8267: oe_debug_pub.add( '2. L_SALES_ORDER_ID IS 0' , 2 ) ;
8268: END IF;
8269: RETURN 0;
8270: WHEN OTHERS THEN
8271: IF l_debug_level > 0 THEN
8268: END IF;
8269: RETURN 0;
8270: WHEN OTHERS THEN
8271: IF l_debug_level > 0 THEN
8272: oe_debug_pub.add( '2. L_SALES_ORDER_ID IS 0' , 2 ) ;
8273: END IF;
8274: RETURN 0;
8275: END Get_mtl_sales_order_id;
8276:
8285: END IF;
8286:
8287: IF OESCH_AUTO_SCH_FLAG = 'N' OR
8288: OESCH_AUTO_SCH_FLAG is null
8289: -- oe_debug_pub.add('RSF-p_value is ' || p_value);
8290:
8291: -- OESCH_AUTO_SCH_FLAG_FROM_USER := p_value;
8292: END Set_Auto_Sch_From_Order_Type;
8293: */
8295: PROCEDURE Set_Auto_Sch_Flag
8296: (p_value_from_user IN VARCHAR2 := FND_API.G_MISS_CHAR)
8297: IS
8298: --
8299: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8300: --
8301: BEGIN
8302: OESCH_AUTO_SCH_FLAG := p_value_from_user;
8303: END Set_Auto_Sch_Flag;
8310: p_line_id IN NUMBER)
8311: Return BOOLEAN
8312: IS
8313: --
8314: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8315: --
8316: BEGIN
8317:
8318: IF l_debug_level > 0 THEN
8315: --
8316: BEGIN
8317:
8318: IF l_debug_level > 0 THEN
8319: oe_debug_pub.add( 'ENTERING FIND_LINE: ' || P_LINE_ID , 1 ) ;
8320: END IF;
8321:
8322: FOR J IN 1..p_x_line_tbl.count LOOP
8323:
8323:
8324: IF p_line_id = p_x_line_tbl(J).line_id THEN
8325:
8326: IF l_debug_level > 0 THEN
8327: oe_debug_pub.add( ' LINE EXISTS IN THE TABLE' , 1 ) ;
8328: END IF;
8329:
8330: RETURN TRUE;
8331: END IF;
8370: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
8371:
8372:
8373: --
8374: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8375: --
8376: BEGIN
8377:
8378: IF l_debug_level > 0 THEN
8375: --
8376: BEGIN
8377:
8378: IF l_debug_level > 0 THEN
8379: oe_debug_pub.add( 'ENTERING PROCESS SPLIT' , 1 ) ;
8380: END IF;
8381:
8382: K := 0;
8383:
8384: FOR I IN 1..p_x_line_tbl.count LOOP
8385: --bug 2669788
8386: if p_x_line_tbl(I).schedule_status_code is not null then
8387: IF l_debug_level > 0 THEN
8388: oe_debug_pub.add( 'BUG 2669788:'||P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
8389: END IF;
8390:
8391: IF NOT find_line(p_x_line_tbl => l_line_tbl,
8392: p_line_id => p_x_line_tbl(I).line_id)
8501:
8502: IF l_line_tbl.count > 0 THEN
8503:
8504: IF l_debug_level > 0 THEN
8505: oe_debug_pub.add( 'SPLIT BEFORE CALLING LOAD_MRP_REQUEST' , 2 ) ;
8506: END IF;
8507: Load_MRP_Request
8508: ( p_line_tbl => l_line_tbl
8509: , p_old_line_tbl => l_line_tbl
8512: l_session_id := Get_Session_Id;
8513:
8514: -- Call ATP
8515: IF l_debug_level > 0 THEN
8516: oe_debug_pub.add( 'COUNT IS ' || L_MRP_ATP_REC.ERROR_CODE.COUNT , 1 ) ;
8517: END IF;
8518:
8519: -- We are adding this so that we will not call MRP when
8520: -- table count is 0.
8521:
8522: IF l_mrp_atp_rec.error_code.count > 0 THEN
8523:
8524: IF l_debug_level > 0 THEN
8525: oe_debug_pub.add( 'SPLIT CALLING MRP API WITH SESSION ID '||L_SESSION_ID , 1 ) ;
8526: END IF;
8527:
8528: MRP_ATP_PUB.Call_ATP
8529: ( p_session_id => l_session_id
8537: , x_msg_count => l_msg_count);
8538:
8539:
8540: IF l_debug_level > 0 THEN
8541: oe_debug_pub.add( 'SPLIT. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || L_RETURN_STATUS , 1 ) ;
8542: END IF;
8543:
8544: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8563: END IF; -- line count.
8564:
8565: G_OVERRIDE_FLAG := 'N';
8566: IF l_debug_level > 0 THEN
8567: oe_debug_pub.add( 'EXITING PROCESS SPLIT' , 1 ) ;
8568: END IF;
8569: EXCEPTION
8570: WHEN OTHERS THEN
8571:
8676: l_buffer VARCHAR2(2000);
8677:
8678:
8679: --
8680: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8681: --
8682: BEGIN
8683:
8684: IF l_debug_level > 0 THEN
8681: --
8682: BEGIN
8683:
8684: IF l_debug_level > 0 THEN
8685: oe_debug_pub.add( '31. ENTERING SPLIT_SCHEDULING' , 1 ) ;
8686: oe_debug_pub.add( 'PICTURE SENT ' , 1 ) ;
8687: END IF;
8688: FOR I IN 1..p_x_line_tbl.count LOOP
8689: IF l_debug_level > 0 THEN
8682: BEGIN
8683:
8684: IF l_debug_level > 0 THEN
8685: oe_debug_pub.add( '31. ENTERING SPLIT_SCHEDULING' , 1 ) ;
8686: oe_debug_pub.add( 'PICTURE SENT ' , 1 ) ;
8687: END IF;
8688: FOR I IN 1..p_x_line_tbl.count LOOP
8689: IF l_debug_level > 0 THEN
8690: oe_debug_pub.add( 'LINE ID ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
8686: oe_debug_pub.add( 'PICTURE SENT ' , 1 ) ;
8687: END IF;
8688: FOR I IN 1..p_x_line_tbl.count LOOP
8689: IF l_debug_level > 0 THEN
8690: oe_debug_pub.add( 'LINE ID ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
8691: oe_debug_pub.add( 'SPLIT ID ' || P_X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID , 1 ) ;
8692: oe_debug_pub.add( 'SPLIT ACTION ' || P_X_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 1 ) ;
8693: oe_debug_pub.add( 'OPERATIONS ' || P_X_LINE_TBL ( I ) .OPERATION , 1 ) ;
8694: END IF;
8687: END IF;
8688: FOR I IN 1..p_x_line_tbl.count LOOP
8689: IF l_debug_level > 0 THEN
8690: oe_debug_pub.add( 'LINE ID ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
8691: oe_debug_pub.add( 'SPLIT ID ' || P_X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID , 1 ) ;
8692: oe_debug_pub.add( 'SPLIT ACTION ' || P_X_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 1 ) ;
8693: oe_debug_pub.add( 'OPERATIONS ' || P_X_LINE_TBL ( I ) .OPERATION , 1 ) ;
8694: END IF;
8695: END LOOP;
8688: FOR I IN 1..p_x_line_tbl.count LOOP
8689: IF l_debug_level > 0 THEN
8690: oe_debug_pub.add( 'LINE ID ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
8691: oe_debug_pub.add( 'SPLIT ID ' || P_X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID , 1 ) ;
8692: oe_debug_pub.add( 'SPLIT ACTION ' || P_X_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 1 ) ;
8693: oe_debug_pub.add( 'OPERATIONS ' || P_X_LINE_TBL ( I ) .OPERATION , 1 ) ;
8694: END IF;
8695: END LOOP;
8696: -- We will first set the flag g_source_again to 'N' since we do not
8689: IF l_debug_level > 0 THEN
8690: oe_debug_pub.add( 'LINE ID ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
8691: oe_debug_pub.add( 'SPLIT ID ' || P_X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID , 1 ) ;
8692: oe_debug_pub.add( 'SPLIT ACTION ' || P_X_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 1 ) ;
8693: oe_debug_pub.add( 'OPERATIONS ' || P_X_LINE_TBL ( I ) .OPERATION , 1 ) ;
8694: END IF;
8695: END LOOP;
8696: -- We will first set the flag g_source_again to 'N' since we do not
8697: -- want any resoucing to happen due to a split.
8699: G_SOURCE_AGAIN := 'N';
8700: G_OVERRIDE_FLAG := 'Y';
8701:
8702: IF l_debug_level > 0 THEN
8703: oe_debug_pub.add( 'COUNT IS :' || P_X_LINE_TBL.COUNT , 1 ) ;
8704: END IF;
8705: l_out_line_tbl := p_x_line_tbl;
8706:
8707: process_split(p_x_line_tbl => p_x_line_tbl);
8712: p_x_line_tbl(I).schedule_status_code is not null AND
8713: p_x_line_tbl(I).split_action_code = 'SPLIT' THEN
8714:
8715: IF l_debug_level > 0 THEN
8716: oe_debug_pub.add( 'SPLITTING SCHEDULING' , 1 ) ;
8717: oe_debug_pub.add( ' ' , 1 ) ;
8718: END IF;
8719: g_line_action := USER_SPLIT;
8720:
8713: p_x_line_tbl(I).split_action_code = 'SPLIT' THEN
8714:
8715: IF l_debug_level > 0 THEN
8716: oe_debug_pub.add( 'SPLITTING SCHEDULING' , 1 ) ;
8717: oe_debug_pub.add( ' ' , 1 ) ;
8718: END IF;
8719: g_line_action := USER_SPLIT;
8720:
8721: l_line_rec := p_x_line_tbl(I);
8720:
8721: l_line_rec := p_x_line_tbl(I);
8722:
8723: IF l_debug_level > 0 THEN
8724: oe_debug_pub.add( 'SPLITTING SCHEDULING FOR LINE: ' || L_LINE_REC.LINE_ID , 1 ) ;
8725: END IF;
8726: /*
8727: -- This is the line which is getting split. We should
8728: -- reschedule the line with the new quantity.
8742:
8743: l_session_id := Get_Session_Id;
8744:
8745: -- Call ATP
8746: oe_debug_pub.add('Count is ' || l_mrp_atp_rec.error_code.count,1);
8747:
8748: -- We are adding this so that we will not call MRP when
8749: -- table count is 0.
8750:
8749: -- table count is 0.
8750:
8751: IF l_mrp_atp_rec.error_code.count > 0 THEN
8752:
8753: oe_debug_pub.add('1. Calling MRP API with session id '||l_session_id,1);
8754:
8755: MRP_ATP_PUB.Call_ATP
8756: ( p_session_id => l_session_id
8757: , p_atp_rec => l_mrp_atp_rec
8763: , x_msg_data => mrp_msg_data
8764: , x_msg_count => l_msg_count);
8765:
8766:
8767: oe_debug_pub.add('6. After Calling MRP_ATP_PUB.Call_ATP' ||
8768: l_return_status,1);
8769:
8770: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8771: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8797: IF p_x_line_tbl(J).operation = OE_GLOBALS.G_OPR_CREATE AND
8798: p_x_line_tbl(J).split_from_line_id = l_line_rec.line_id
8799: THEN
8800: l_split_line_rec := p_x_line_tbl(J);
8801: oe_debug_pub.add('Split lines ship from: ' ||
8802: l_split_line_rec.ship_from_org_id,1);
8803: l_out_split_line_rec := l_split_line_rec;
8804:
8805: --- Bug fix for 1881229
8813: , x_atp_table => l_mrp_atp_rec);
8814:
8815:
8816: -- Call ATP
8817: oe_debug_pub.add('Split Count is ' || l_mrp_atp_rec.error_code.count,1);
8818:
8819: -- We are adding this so that we will not call MRP when
8820: -- table count is 0.
8821:
8823:
8824: l_session_id := Get_Session_Id;
8825:
8826:
8827: oe_debug_pub.add('2. Calling MRP API with session id '||l_session_id,1);
8828:
8829: MRP_ATP_PUB.Call_ATP
8830: ( p_session_id => l_session_id
8831: , p_atp_rec => l_mrp_atp_rec
8837: , x_msg_data => mrp_msg_data
8838: , x_msg_count => l_msg_count);
8839:
8840:
8841: oe_debug_pub.add('2. After Calling MRP_ATP_PUB.Call_ATP' ||
8842: l_return_status,1);
8843:
8844: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8896: -- 02-jun-2000 mpetrosi added org_id to query_reservation end
8897:
8898:
8899: IF l_debug_level > 0 THEN
8900: oe_debug_pub.add( 'CALLING INVS QUERY_RESERVATION ' , 1 ) ;
8901: END IF;
8902:
8903: inv_reservation_pub.query_reservation
8904: ( p_api_version_number => 1.0
8914: , p_sort_by_req_date => l_sort_by_req_date
8915: );
8916:
8917: IF l_debug_level > 0 THEN
8918: oe_debug_pub.add( 'AFTER CALLING INVS QUERY_RESERVATION: ' || L_RETURN_STATUS , 1 ) ;
8919: END IF;
8920:
8921: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8924: RAISE FND_API.G_EXC_ERROR;
8925: END IF;
8926:
8927: IF l_debug_level > 0 THEN
8928: oe_debug_pub.add( 'RESERVATION RECORD COUNT IS: ' || L_RSV_TBL.COUNT , 1 ) ;
8929: END IF;
8930:
8931: -- Let's get the total reserved_quantity
8932: l_reserved_quantity := 0;
8935: l_rsv_tbl(K).reservation_quantity;
8936: END LOOP;
8937:
8938: IF l_debug_level > 0 THEN
8939: oe_debug_pub.add( 'RESERVED QUANTITY : ' || L_RESERVED_QUANTITY , 1 ) ;
8940: END IF;
8941:
8942: IF l_reserved_quantity > 0
8943: THEN
8951: -- If we are here, it means the split was beacuse the user
8952: -- split the line. We should check to see if we need to
8953: -- split reservations or not.
8954: IF l_debug_level > 0 THEN
8955: oe_debug_pub.add( 'USER INITIATED SPLIT' , 1 ) ;
8956: END IF;
8957: IF l_line_rec.ordered_quantity > l_reserved_quantity
8958: THEN
8959:
8978:
8979:
8980:
8981: IF l_debug_level > 0 THEN
8982: oe_debug_pub.add( 'QUANTITY TO TRANSFER: ' || L_QTY_TO_TRANSFER , 1 ) ;
8983: END IF;
8984: K := l_rsv_tbl.first;
8985: J := 0;
8986:
8988: l_qty2_to_retain := l_line_rec.ordered_quantity2; -- INVCONV
8989:
8990: WHILE K is not null LOOP
8991: IF l_debug_level > 0 THEN
8992: oe_debug_pub.add( 'L2' , 1 ) ;
8993: END IF;
8994: l_rsv_rec := l_rsv_tbl(K);
8995:
8996: l_qty_to_tfer_in_this_record :=
9017: l_qty2_to_tfer_in_this_record := 0; -- INVCONV
9018: ELSE
9019: -- update reservation with the new line_id
9020: IF l_debug_level > 0 THEN
9021: oe_debug_pub.add( 'UPDATING RESERVATION ' , 1 ) ;
9022: END IF;
9023:
9024: l_rsv_new_rec := l_rsv_rec;
9025: l_rsv_new_rec.demand_source_line_id :=
9037:
9038:
9039:
9040: IF l_debug_level > 0 THEN
9041: oe_debug_pub.add( '11. CALLING INVS UPDATE RSV: ' , 1 ) ;
9042: END IF;
9043:
9044: inv_reservation_pub.update_reservation
9045: ( p_api_version_number => 1.0
9054: , p_validation_flag => fnd_api.g_true
9055: );
9056:
9057: IF l_debug_level > 0 THEN
9058: oe_debug_pub.add( ' 11 AFTER CALLING INVS UPD_RESERVATION: ' || L_RETURN_STATUS , 1 ) ;
9059: END IF;
9060:
9061: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9062: THEN
9067: fnd_message.set_encoded(l_msg_data);
9068: l_buffer := fnd_message.get;
9069: oe_msg_pub.add_text(p_message_text => l_buffer);
9070: IF l_debug_level > 0 THEN
9071: oe_debug_pub.add( 'ERROR : '|| L_BUFFER , 1 ) ;
9072: END IF;
9073: END IF;
9074: RAISE FND_API.G_EXC_ERROR;
9075: END IF;
9077: l_qty_to_tfer_in_this_record := 0;
9078: END IF;
9079: ELSIF l_ordered_quantity is not null THEN
9080: IF l_debug_level > 0 THEN
9081: oe_debug_pub.add( 'NEW QTY: ' || L_ORDERED_QUANTITY , 1 ) ;
9082: END IF;
9083: l_rsv_new_rec.reservation_quantity :=
9084: l_ordered_quantity;
9085: l_rsv_new_rec.primary_reservation_quantity := fnd_api.g_miss_num;
9102: l_rsv_new_rec.attribute3 := l_line_rec.ordered_quantity_uom2;
9103: OPM 14/SEP/00 END
9104: ====================*/ -- INVCONV
9105: IF l_debug_level > 0 THEN
9106: oe_debug_pub.add( '1. CALLING INVS UPDATE RSV: ' , 1 ) ;
9107: END IF;
9108:
9109: inv_reservation_pub.update_reservation
9110: ( p_api_version_number => 1.0
9119: , p_validation_flag => fnd_api.g_true
9120: );
9121:
9122: IF l_debug_level > 0 THEN
9123: oe_debug_pub.add( '1 AFTER CALLING INVS UPDATE_RESERVATION: ' || L_RETURN_STATUS , 1 ) ;
9124: END IF;
9125:
9126: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9127: THEN
9132: fnd_message.set_encoded(l_msg_data);
9133: l_buffer := fnd_message.get;
9134: oe_msg_pub.add_text(p_message_text => l_buffer);
9135: IF l_debug_level > 0 THEN
9136: oe_debug_pub.add( 'ERROR : '|| L_BUFFER , 1 ) ;
9137: END IF;
9138: END IF;
9139: RAISE FND_API.G_EXC_ERROR;
9140: END IF;
9165: -- which needs to be transferred, let's find a split line
9166: -- for it.
9167:
9168: IF l_debug_level > 0 THEN
9169: oe_debug_pub.add( '2. QTY TO XFER IN THIS RSV :' || L_QTY_TO_TFER_IN_THIS_RECORD ) ;
9170: END IF;
9171: <
9172: IF l_qty_to_tfer_in_this_record > 0
9173: THEN
9172: IF l_qty_to_tfer_in_this_record > 0
9173: THEN
9174:
9175: IF l_debug_level > 0 THEN
9176: oe_debug_pub.add( '1. FINDING THE NEXT SPLIT LINE' , 1 ) ;
9177: END IF;
9178: IF l_ordered_quantity <= 0 THEN
9179: J := J + 1;
9180: continue_loop := TRUE;
9191: END IF;
9192: END LOOP;
9193:
9194: IF l_debug_level > 0 THEN
9195: oe_debug_pub.add( 'FOUND THE NEXT SPLIT LINE' , 1 ) ;
9196: END IF;
9197: l_split_line_rec := p_x_line_tbl(J);
9198:
9199:
9255:
9256: -- Call INV's API to Create Reservation.
9257:
9258: IF l_debug_level > 0 THEN
9259: oe_debug_pub.add( 'CREATING A NEW RESERVATION FOR : ' || L_QTY_TO_RESERVE || ' WITH LINE ID ' || L_SPLIT_LINE_REC.LINE_ID , 1 ) ;
9260: END IF;
9261:
9262: inv_reservation_pub.create_reservation
9263: ( p_api_version_number => 1.0
9276:
9277: , x_reservation_id => l_rsv_id);
9278:
9279: IF l_debug_level > 0 THEN
9280: oe_debug_pub.add( '5. AFTER CALLING CREATE RESERVATION' || L_RETURN_STATUS , 1 ) ;
9281: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
9282: END IF;
9283:
9284: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9277: , x_reservation_id => l_rsv_id);
9278:
9279: IF l_debug_level > 0 THEN
9280: oe_debug_pub.add( '5. AFTER CALLING CREATE RESERVATION' || L_RETURN_STATUS , 1 ) ;
9281: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
9282: END IF;
9283:
9284: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9285: THEN
9283:
9284: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9285: THEN
9286: IF l_debug_level > 0 THEN
9287: oe_debug_pub.add( 'UNEXP ERROR : '|| L_MSG_DATA , 1 ) ;
9288: END IF;
9289: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9290: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9291: IF l_msg_data is not null THEN
9292: fnd_message.set_encoded(l_msg_data);
9293: l_buffer := fnd_message.get;
9294: oe_msg_pub.add_text(p_message_text => l_buffer);
9295: IF l_debug_level > 0 THEN
9296: oe_debug_pub.add( 'ERROR : '|| L_BUFFER , 1 ) ;
9297: END IF;
9298: END IF;
9299: -- Need to raise an error, if we are not able to
9300: -- transfer from parent record.
9338: p_x_line_tbl := l_out_line_tbl;
9339: x_return_status := l_return_status;
9340:
9341: IF l_debug_level > 0 THEN
9342: oe_debug_pub.add( 'SCHEDULING RESULTS OF THE LINES: ' , 1 ) ;
9343: oe_debug_pub.add( ' ' , 1 ) ;
9344: END IF;
9345:
9346: FOR I IN 1..l_out_line_tbl.count LOOP
9339: x_return_status := l_return_status;
9340:
9341: IF l_debug_level > 0 THEN
9342: oe_debug_pub.add( 'SCHEDULING RESULTS OF THE LINES: ' , 1 ) ;
9343: oe_debug_pub.add( ' ' , 1 ) ;
9344: END IF;
9345:
9346: FOR I IN 1..l_out_line_tbl.count LOOP
9347: IF l_debug_level > 0 THEN
9344: END IF;
9345:
9346: FOR I IN 1..l_out_line_tbl.count LOOP
9347: IF l_debug_level > 0 THEN
9348: oe_debug_pub.add( 'LINE ID : ' || L_OUT_LINE_TBL ( I ) .LINE_ID , 1 ) ;
9349: oe_debug_pub.add( 'SCHEDULE STATUS : ' || L_OUT_LINE_TBL ( I ) .SCHEDULE_STATUS_CODE , 1 ) ;
9350: oe_debug_pub.add( ' ' , 1 ) ;
9351: END IF;
9352: END LOOP;
9345:
9346: FOR I IN 1..l_out_line_tbl.count LOOP
9347: IF l_debug_level > 0 THEN
9348: oe_debug_pub.add( 'LINE ID : ' || L_OUT_LINE_TBL ( I ) .LINE_ID , 1 ) ;
9349: oe_debug_pub.add( 'SCHEDULE STATUS : ' || L_OUT_LINE_TBL ( I ) .SCHEDULE_STATUS_CODE , 1 ) ;
9350: oe_debug_pub.add( ' ' , 1 ) ;
9351: END IF;
9352: END LOOP;
9353: IF l_debug_level > 0 THEN
9346: FOR I IN 1..l_out_line_tbl.count LOOP
9347: IF l_debug_level > 0 THEN
9348: oe_debug_pub.add( 'LINE ID : ' || L_OUT_LINE_TBL ( I ) .LINE_ID , 1 ) ;
9349: oe_debug_pub.add( 'SCHEDULE STATUS : ' || L_OUT_LINE_TBL ( I ) .SCHEDULE_STATUS_CODE , 1 ) ;
9350: oe_debug_pub.add( ' ' , 1 ) ;
9351: END IF;
9352: END LOOP;
9353: IF l_debug_level > 0 THEN
9354: oe_debug_pub.add( 'EXITING SPLIT_SCHEDULING WITH ' || L_RETURN_STATUS , 1 ) ;
9350: oe_debug_pub.add( ' ' , 1 ) ;
9351: END IF;
9352: END LOOP;
9353: IF l_debug_level > 0 THEN
9354: oe_debug_pub.add( 'EXITING SPLIT_SCHEDULING WITH ' || L_RETURN_STATUS , 1 ) ;
9355: oe_debug_pub.add( ' ' , 1 ) ;
9356: END IF;
9357:
9358: EXCEPTION
9351: END IF;
9352: END LOOP;
9353: IF l_debug_level > 0 THEN
9354: oe_debug_pub.add( 'EXITING SPLIT_SCHEDULING WITH ' || L_RETURN_STATUS , 1 ) ;
9355: oe_debug_pub.add( ' ' , 1 ) ;
9356: END IF;
9357:
9358: EXCEPTION
9359: WHEN OTHERS THEN
9411: from oe_order_lines where
9412: split_from_line_id = p_reserved_line_id;
9413:
9414: --
9415: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9416: --
9417: BEGIN
9418:
9419: -- Query the reserved records
9433: l_rsv_rec.demand_source_line_id := p_reserved_line_id;
9434: l_rsv_rec.organization_id := l_ship_from_org_id;
9435:
9436: IF l_debug_level > 0 THEN
9437: oe_debug_pub.add( 'CALLING INVS QUERY_RESERVATION ' , 1 ) ;
9438: END IF;
9439:
9440: inv_reservation_pub.query_reservation
9441: ( p_api_version_number => 1.0
9451: , p_sort_by_req_date => l_sort_by_req_date
9452: );
9453:
9454: IF l_debug_level > 0 THEN
9455: oe_debug_pub.add( 'AFTER CALLING INVS QUERY_RESERVATION: ' || L_RETURN_STATUS , 1 ) ;
9456: END IF;
9457:
9458: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9461: RAISE FND_API.G_EXC_ERROR;
9462: END IF;
9463:
9464: IF l_debug_level > 0 THEN
9465: oe_debug_pub.add( 'COUNT IS RESERVATION RECORDS IS' || L_RSV_TBL.COUNT , 1 ) ;
9466: END IF;
9467:
9468: -- There can be 2 kinds of splits. One where the use split,
9469: -- in which case, the reservations have to split. And another
9489: l_rsv_new_rec := l_rsv_rec;
9490: l_rsv_new_rec.demand_source_line_id := l_line_id;
9491:
9492: IF l_debug_level > 0 THEN
9493: oe_debug_pub.add( 'CALLING INVS UPDATE_RESERVATION: ' , 1 ) ;
9494: END IF;
9495:
9496: inv_reservation_pub.update_reservation
9497: ( p_api_version_number => 1.0
9506: , p_validation_flag => fnd_api.g_true
9507: );
9508:
9509: IF l_debug_level > 0 THEN
9510: oe_debug_pub.add( 'AFTER CALLING INVS UPDATE_RESERVATION: ' || L_RETURN_STATUS , 1 ) ;
9511: END IF;
9512:
9513: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9517: fnd_message.set_encoded(l_msg_data);
9518: l_buffer := fnd_message.get;
9519: oe_msg_pub.add_text(p_message_text => l_buffer);
9520: IF l_debug_level > 0 THEN
9521: oe_debug_pub.add( 'ERROR : '|| L_BUFFER , 1 ) ;
9522: END IF;
9523: END IF;
9524: RAISE FND_API.G_EXC_ERROR;
9525: END IF;
9584: l_Line_Adj_Assoc_tbl OE_ORDER_PUB.Line_Adj_Assoc_Tbl_Type;
9585: */
9586: l_file_val VARCHAR2(80);
9587: --
9588: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9589: --
9590: BEGIN
9591:
9592:
9589: --
9590: BEGIN
9591:
9592:
9593: -- l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE');
9594: -- OE_DEBUG_PUB.Initialize;
9595: -- OE_DEBUG_PUB.Debug_Off;
9596: -- OE_DEBUG_PUB.Debug_On;
9597: -- oe_Debug_pub.setdebuglevel(5);
9590: BEGIN
9591:
9592:
9593: -- l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE');
9594: -- OE_DEBUG_PUB.Initialize;
9595: -- OE_DEBUG_PUB.Debug_Off;
9596: -- OE_DEBUG_PUB.Debug_On;
9597: -- oe_Debug_pub.setdebuglevel(5);
9598:
9591:
9592:
9593: -- l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE');
9594: -- OE_DEBUG_PUB.Initialize;
9595: -- OE_DEBUG_PUB.Debug_Off;
9596: -- OE_DEBUG_PUB.Debug_On;
9597: -- oe_Debug_pub.setdebuglevel(5);
9598:
9599: -- 4504362 : Branch scheduling check removed.
9592:
9593: -- l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE');
9594: -- OE_DEBUG_PUB.Initialize;
9595: -- OE_DEBUG_PUB.Debug_Off;
9596: -- OE_DEBUG_PUB.Debug_On;
9597: -- oe_Debug_pub.setdebuglevel(5);
9598:
9599: -- 4504362 : Branch scheduling check removed.
9600:
9593: -- l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE');
9594: -- OE_DEBUG_PUB.Initialize;
9595: -- OE_DEBUG_PUB.Debug_Off;
9596: -- OE_DEBUG_PUB.Debug_On;
9597: -- oe_Debug_pub.setdebuglevel(5);
9598:
9599: -- 4504362 : Branch scheduling check removed.
9600:
9601: IF l_debug_level > 0 THEN
9598:
9599: -- 4504362 : Branch scheduling check removed.
9600:
9601: IF l_debug_level > 0 THEN
9602: oe_debug_pub.add( 'BEFORE CALLING NEW CODE' , 1 ) ;
9603: END IF;
9604:
9605: FOR I in 1..p_mrp_line_tbl.count LOOP
9606:
9617: x_msg_data => x_msg_data,
9618: x_return_status => x_return_status);
9619:
9620: IF l_debug_level > 0 THEN
9621: oe_debug_pub.add( 'X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
9622: END IF;
9623:
9624:
9625: IF l_debug_level > 0 THEN
9622: END IF;
9623:
9624:
9625: IF l_debug_level > 0 THEN
9626: oe_debug_pub.add( 'EXITING UPDATE_RESULTS_FROM_BACKLOG_WB' , 1 ) ;
9627: END IF;
9628: OE_DEBUG_PUB.Debug_Off;
9629: EXCEPTION
9630:
9624:
9625: IF l_debug_level > 0 THEN
9626: oe_debug_pub.add( 'EXITING UPDATE_RESULTS_FROM_BACKLOG_WB' , 1 ) ;
9627: END IF;
9628: OE_DEBUG_PUB.Debug_Off;
9629: EXCEPTION
9630:
9631: WHEN FND_API.G_EXC_ERROR THEN
9632:
9657: FUNCTION Get_Session_Id
9658: RETURN number
9659: IS
9660: --
9661: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9662: --
9663: BEGIN
9664:
9665: -- IF MRP_SESSION_ID = 0 THEN
9682: FUNCTION Get_MRP_Session_Id
9683: RETURN number
9684: IS
9685: --
9686: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9687: --
9688: BEGIN
9689: return MRP_SESSION_ID;
9690: EXCEPTION
9752: l_task_number NUMBER;
9753: l_st_atp_lead_time NUMBER := 0;
9754: l_order_number NUMBER;
9755: --
9756: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9757: --
9758: BEGIN
9759: SAVEPOINT insert_mand_comp;
9760:
9868: l_model_rec.Order_number := MRP_ATP_PUB.number_arr
9869: (l_order_number);
9870:
9871: IF l_debug_level > 0 THEN
9872: oe_debug_pub.add( '1.. CALLING CTO GET_BOM_MANDATORY_COMPS' , 1 ) ;
9873: END IF;
9874:
9875: BEGIN
9876: l_result := CTO_CONFIG_ITEM_PK.GET_MANDATORY_COMPONENTS
9882: xMessageName => lMessageName,
9883: xTableName => lTableName);
9884:
9885: IF l_debug_level > 0 THEN
9886: oe_debug_pub.add( '1. AFTER CALLING CTO API : ' || L_RESULT , 1 ) ;
9887: oe_debug_pub.add( 'COUNT IS: ' || L_SMC_REC.INVENTORY_ITEM_ID.COUNT , 1 ) ;
9888: END IF;
9889:
9890: EXCEPTION
9883: xTableName => lTableName);
9884:
9885: IF l_debug_level > 0 THEN
9886: oe_debug_pub.add( '1. AFTER CALLING CTO API : ' || L_RESULT , 1 ) ;
9887: oe_debug_pub.add( 'COUNT IS: ' || L_SMC_REC.INVENTORY_ITEM_ID.COUNT , 1 ) ;
9888: END IF;
9889:
9890: EXCEPTION
9891: WHEN OTHERS THEN
9889:
9890: EXCEPTION
9891: WHEN OTHERS THEN
9892: IF l_debug_level > 0 THEN
9893: oe_debug_pub.add( 'CTO API RETURNED AN UNEXPECTED ERROR' ) ;
9894: END IF;
9895: l_result := 0;
9896: END;
9897:
9907: IF l_result = 1 AND
9908: l_smc_rec.Identifier.count >= 1 THEN
9909:
9910: IF l_debug_level > 0 THEN
9911: oe_debug_pub.add( 'SMC COUNT IS : ' || L_SMC_REC.IDENTIFIER.COUNT , 1 ) ;
9912: END IF;
9913:
9914: FOR J IN 1..l_smc_rec.Identifier.count LOOP
9915: l_line_id := l_smc_rec.Identifier(J);
10081: p_source_document_line_id IN VARCHAR2)
10082: IS
10083: po_result BOOLEAN;
10084: --
10085: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
10086: --
10087: BEGIN
10088:
10089: IF l_debug_level > 0 THEN
10086: --
10087: BEGIN
10088:
10089: IF l_debug_level > 0 THEN
10090: oe_debug_pub.add( 'ENTERING OE_ORDER_SCH_UTIL.UPDATE_PO' , 2 ) ;
10091: END IF;
10092:
10093: -- Call po if internal req and quantity is changed
10094:
10094:
10095: IF p_source_document_line_id IS NOT NULL THEN
10096:
10097: IF l_debug_level > 0 THEN
10098: oe_debug_pub.add( 'DATE ' || P_SCHEDULE_SHIP_DATE , 2 ) ;
10099: END IF;
10100:
10101: po_result := po_supply.po_req_supply(
10102: p_docid => p_source_document_id,
10108: p_receipt_date => p_schedule_ship_date);
10109: END IF;
10110:
10111: IF l_debug_level > 0 THEN
10112: oe_debug_pub.add( 'EXITING OE_ORDER_SCH_UTIL.UPDATE_PO' , 1 ) ;
10113: END IF;
10114:
10115: EXCEPTION
10116: WHEN OTHERS THEN
10114:
10115: EXCEPTION
10116: WHEN OTHERS THEN
10117: IF l_debug_level > 0 THEN
10118: oe_debug_pub.add( 'EXCEPTION IN UPDATE_PO' , 2 ) ;
10119: END IF;
10120: END Update_PO;
10121:
10122: Procedure Delete_Row(p_line_id IN NUMBER)
10124: l_line_rec OE_ORDER_PUB.line_rec_type;
10125: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
10126: l_sales_order_id NUMBER;
10127: --
10128: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
10129: --
10130: BEGIN
10131:
10132: IF l_debug_level > 0 THEN
10129: --
10130: BEGIN
10131:
10132: IF l_debug_level > 0 THEN
10133: oe_debug_pub.add( 'ENTERING OE_ORDER_SCH_UTIL.DELETE_ROW' , 1 ) ;
10134: END IF;
10135: OE_Line_Util.Query_Row(p_line_id => p_line_id,
10136: x_line_rec => l_line_rec);
10137:
10135: OE_Line_Util.Query_Row(p_line_id => p_line_id,
10136: x_line_rec => l_line_rec);
10137:
10138: IF l_debug_level > 0 THEN
10139: oe_debug_pub.add( 'ITEM TYPE :' || L_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
10140: END IF;
10141:
10142: /* Fix for bug 2643593, reservations to be removed only for
10143: shippable line */
10189: END IF;
10190:
10191:
10192: IF l_debug_level > 0 THEN
10193: oe_debug_pub.add( 'EXITING OE_ORDER_SCH_UTIL.DELETE_ROW' , 1 ) ;
10194: END IF;
10195: EXCEPTION
10196:
10197: WHEN OTHERS THEN
10225:
10226: l_on_hand_qty2 NUMBER;
10227: l_avail_to_reserve2 NUMBER;
10228: --
10229: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
10230: --
10231: BEGIN
10232:
10233: IF l_debug_level > 0 THEN
10230: --
10231: BEGIN
10232:
10233: IF l_debug_level > 0 THEN
10234: oe_debug_pub.add( 'INSIDE GET_PROCESS_QUERY_QUANTITIES ' ) ;
10235: oe_debug_pub.add( 'P_LINE_ID - IN GET_PROCESS_QUERY_QUANTITIES IS: '|| P_LINE_ID ) ;
10236: END IF;
10237: GMI_RESERVATION_PVT.query_qty_for_ATP
10238: ( p_organization_id => p_org_id
10231: BEGIN
10232:
10233: IF l_debug_level > 0 THEN
10234: oe_debug_pub.add( 'INSIDE GET_PROCESS_QUERY_QUANTITIES ' ) ;
10235: oe_debug_pub.add( 'P_LINE_ID - IN GET_PROCESS_QUERY_QUANTITIES IS: '|| P_LINE_ID ) ;
10236: END IF;
10237: GMI_RESERVATION_PVT.query_qty_for_ATP
10238: ( p_organization_id => p_org_id
10239: , p_item_id => p_item_id
10245: );
10246:
10247:
10248: IF l_debug_level > 0 THEN
10249: oe_debug_pub.add( 'POCESS X_ON_HAND_QTY IS: '|| X_ON_HAND_QTY ) ;
10250: oe_debug_pub.add( 'PROCESS X_AVAIL_TO_RESERVE IS: '|| X_AVAIL_TO_RESERVE ) ;
10251: END IF;
10252:
10253: END get_process_query_quantities; */
10246:
10247:
10248: IF l_debug_level > 0 THEN
10249: oe_debug_pub.add( 'POCESS X_ON_HAND_QTY IS: '|| X_ON_HAND_QTY ) ;
10250: oe_debug_pub.add( 'PROCESS X_AVAIL_TO_RESERVE IS: '|| X_AVAIL_TO_RESERVE ) ;
10251: END IF;
10252:
10253: END get_process_query_quantities; */
10254: -- end fabdi
10280: l_msg_count NUMBER;
10281: l_msg_data VARCHAR2(500);
10282: l_failed_rsv_temp_tbl INV_RESERVATION_GLOBAL.mtl_failed_rsv_tbl_type;
10283: --
10284: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
10285: --
10286: Begin
10287:
10288: IF l_debug_level > 0 THEN
10285: --
10286: Begin
10287:
10288: IF l_debug_level > 0 THEN
10289: oe_debug_pub.add( '*** INSIDE THE POST_FORMS_COMMIT ***' , 1 ) ;
10290: END IF;
10291:
10292: x_return_status := FND_API.G_RET_STS_SUCCESS;
10293:
10294: -- Check for Performed Reservation Start
10295: IF OESCH_PERFORMED_RESERVATION = 'Y' THEN
10296:
10297: IF l_debug_level > 0 THEN
10298: oe_debug_pub.add( ' BEFORE CALLING THE INV FOR DO_CHECK_FOR_COMMIT' , 1 ) ;
10299: END IF;
10300: INV_RESERVATION_PVT.Do_Check_For_Commit
10301: (p_api_version_number => 1.0
10302: ,p_init_msg_lst => FND_API.G_FALSE
10305: ,x_msg_data => l_msg_data
10306: ,x_failed_rsv_temp_tbl => l_failed_rsv_temp_tbl);
10307:
10308: IF l_debug_level > 0 THEN
10309: oe_debug_pub.add( 'AFTER CALLING THE INV FOR DO_CHECK_FOR_COMMIT : ' || L_RETURN_STATUS , 1 ) ;
10310: END IF;
10311:
10312: -- We need to find out if the Reservation has failed
10313: IF l_failed_rsv_temp_tbl.count > 0 THEN
10311:
10312: -- We need to find out if the Reservation has failed
10313: IF l_failed_rsv_temp_tbl.count > 0 THEN
10314: IF l_debug_level > 0 THEN
10315: oe_debug_pub.add( ' THE RESERVATION PROCESS HAS FAILED ' , 1 ) ;
10316: END IF;
10317: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RSV_FAILURE');
10318: OE_MSG_PUB.Add;
10319: END IF;
10320:
10321: -- Error Handling Start
10322: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10323: IF l_debug_level > 0 THEN
10324: oe_debug_pub.add( 'INSIDE UNEXPECTED ERROR' , 1 ) ;
10325: END IF;
10326: OE_MSG_PUB.Transfer_Msg_Stack;
10327: l_msg_count := OE_MSG_PUB.COUNT_MSG;
10328:
10328:
10329: FOR I IN 1..l_msg_count LOOP
10330: l_msg_data := OE_MSG_PUB.Get(I,'F');
10331: IF l_debug_level > 0 THEN
10332: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
10333: END IF;
10334: END LOOP;
10335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10336:
10335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10336:
10337: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10338: IF l_debug_level > 0 THEN
10339: oe_debug_pub.add( ' INSIDE EXPECTED ERROR' , 1 ) ;
10340: END IF;
10341: OE_MSG_PUB.Transfer_Msg_Stack;
10342: l_msg_count := OE_MSG_PUB.COUNT_MSG;
10343:
10343:
10344: FOR I IN 1..l_msg_count LOOP
10345: l_msg_data := OE_MSG_PUB.Get(I,'F');
10346: IF l_debug_level > 0 THEN
10347: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
10348: END IF;
10349: END LOOP;
10350: RAISE FND_API.G_EXC_ERROR;
10351:
10365: );
10366:
10367:
10368: IF l_debug_level > 0 THEN
10369: oe_debug_pub.add( '*** BEFORE EXITING POST_FORMS_COMMIT ***' , 1 ) ;
10370: END IF;
10371:
10372: EXCEPTION
10373: WHEN FND_API.G_EXC_ERROR THEN