[Home] [Help]
91: IS
92: K NUMBER;
93: BEGIN
94:
95: oe_debug_pub.add('Entering Procedure Check_for_Request in Package OE_Delayed_
96: Requests_Pvt');
97:
98:
99: K := OE_Delayed_Requests_PVT.G_Delayed_Requests.FIRST;
234: l_model_ship_date DATE;
235: l_model_arrival_date DATE;
236: l_model_request_date DATE;
237: --
238: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
239: --
240: BEGIN
241:
242: IF l_debug_level > 0 THEN
239: --
240: BEGIN
241:
242: IF l_debug_level > 0 THEN
243: oe_debug_pub.add( 'ENTERING LOG_CONFIG_SCH_REQUEST' , 3 ) ;
244: END IF;
245:
246: x_return_status := FND_API.G_RET_STS_SUCCESS;
247:
254: OE_CONFIG_UTIL.G_CONFIG_UI_USED = 'N'
255: THEN
256: IF p_line_rec.item_type_code = 'INCLUDED' THEN
257: IF l_debug_level > 0 THEN
258: oe_debug_pub.add( 'INC ITEM: CASCADE/MODIFY_INC_ITEMS CALL ' , 3 ) ;
259: END IF;
260: RETURN;
261: END IF;
262:
261: END IF;
262:
263: IF p_line_rec.ship_model_complete_flag = 'Y' THEN
264: IF l_debug_level > 0 THEN
265: oe_debug_pub.add( 'SMC VALIDATE CFG CHANGES' , 3 ) ;
266: END IF;
267: RETURN;
268: END IF;
269:
269:
270: IF p_line_rec.ato_line_id is not NULL AND
271: p_line_rec.ato_line_id = p_line_rec.top_model_line_id THEN
272: IF l_debug_level > 0 THEN
273: oe_debug_pub.add( 'PURE ATO VALIDATE CFG CHANGES' , 3 ) ;
274: END IF;
275: RETURN;
276: END IF;
277: END IF;
325: THEN
326: IF p_line_rec.item_type_code = 'CLASS' OR
327: p_line_rec.top_model_line_id <> p_line_rec.ato_line_id THEN
328: IF l_debug_level > 0 THEN
329: oe_debug_pub.add( 'SETTING PTO_ATO_NONUI TO Y' , 3 ) ;
330: END IF;
331: l_pto_ato_nonui := 'Y';
332: END IF;
333: END IF;
337:
338: IF p_line_rec.ship_model_complete_flag = 'Y' THEN
339:
340: IF l_debug_level > 0 THEN
341: oe_debug_pub.add( 'LOGGING REQ TO SCHEDULE_SMC' , 3 ) ;
342: END IF;
343:
344: -- 4052648 : Parameters p_param14 - 17 are added
345: OE_Delayed_Requests_Pvt.Log_Request
384: NOT (p_line_rec.ato_line_id = p_line_rec.line_id AND
385: p_line_rec.item_type_code = 'INCLUDED') THEN --9775352
386:
387: IF l_debug_level > 0 THEN
388: oe_debug_pub.add( 'LOGGING REQ TO SCHEDULE_ATO' , 3 ) ;
389: END IF;
390:
391: -- 4052648 : Parameters p_param14 - 17 are added
392: OE_Delayed_Requests_Pvt.Log_Request
427: -------------------- NON SMC log req -----------------------
428:
429: ELSE
430: IF l_debug_level > 0 THEN
431: oe_debug_pub.add( 'LOGGING REQ TO SCHEDULE_NONSMC' , 3 ) ;
432: END IF;
433:
434: -- 4052648 : Parameters p_param14 - 17 are added
435: OE_Delayed_Requests_Pvt.Log_Request
468:
469: IF p_caller = OE_SCHEDULE_UTIL.SCH_EXTERNAL THEN
470:
471: IF l_debug_level > 0 THEN
472: oe_debug_pub.add( 'CALLER IS EXTERNAL' , 1 ) ;
473: END IF;
474:
475: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
476: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
478: ,x_return_status => x_return_status );
479:
480:
481: IF l_debug_level > 0 THEN
482: oe_debug_pub.add( 'After calling request for entity ' || X_RETURN_STATUS , 1 ) ;
483: END IF;
484:
485: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
491: OE_Order_PVT.Process_Requests_And_Notify
492: ( x_return_status => x_return_status);
493:
494: IF l_debug_level > 0 THEN
495: oe_debug_pub.add( '1 RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
496: END IF;
497:
498: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503:
504: END IF;
505:
506: IF l_debug_level > 0 THEN
507: oe_debug_pub.add( 'LEAVING LOG_CONFIG_SCH_REQUEST '|| X_RETURN_STATUS , 3 ) ;
508: END IF;
509:
510: EXCEPTION
511: WHEN OTHERS THEN
510: EXCEPTION
511: WHEN OTHERS THEN
512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
513: IF l_debug_level > 0 THEN
514: oe_debug_pub.add( 'LOG_CONFIG_SCH_REQUEST ERROR '|| SQLERRM , 1 ) ;
515: END IF;
516:
517: Delete_Attribute_Changes
518: (p_entity_id => p_line_rec.top_model_line_id);
544: l_qty_to_unreserve NUMBER;
545: l_index NUMBER;
546: I NUMBER;
547: --
548: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
549: --
550: BEGIN
551: IF l_debug_level > 0 THEN
552: oe_debug_pub.add( 'ENTERING LOG_ATTRIBUTE_CHANGES' , 3 ) ;
548: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
549: --
550: BEGIN
551: IF l_debug_level > 0 THEN
552: oe_debug_pub.add( 'ENTERING LOG_ATTRIBUTE_CHANGES' , 3 ) ;
553: END IF;
554:
555: x_unreserve_flag := 'N';
556: --l_index := p_line_rec.line_id;
559: IF NOT OE_GLOBALS.Equal(p_line_rec.ordered_quantity,
560: p_old_line_rec.ordered_quantity)
561: THEN
562: IF l_debug_level > 0 THEN
563: oe_debug_pub.add( 'NEW ORD QTY '|| P_LINE_REC.ORDERED_QUANTITY , 4 ) ;
564: END IF;
565:
566: IF nvl(p_old_line_rec.reserved_quantity, 0) >
567: p_line_rec.ordered_quantity
566: IF nvl(p_old_line_rec.reserved_quantity, 0) >
567: p_line_rec.ordered_quantity
568: THEN
569: IF l_debug_level > 0 THEN
570: oe_debug_pub.add( 'MAY NEED TO UNRESERVE' , 4 ) ;
571: END IF;
572: l_qty_to_unreserve
573: := p_old_line_rec.reserved_quantity - p_line_rec.ordered_quantity;
574: END IF;
582: l_diff_res_qty := nvl(p_line_rec.reserved_quantity, 0) -
583: nvl(p_old_line_rec.reserved_quantity, 0);
584:
585: IF l_debug_level > 0 THEN
586: oe_debug_pub.add( 'RES QTY DIFF '|| L_DIFF_RES_QTY , 1 ) ;
587: END IF;
588:
589: IF l_diff_res_qty > 0 THEN
590: l_qty_to_reserve := l_diff_res_qty;
601:
602: IF p_old_line_rec.ship_from_org_id is NOT NULL THEN
603: x_unreserve_flag := 'Y';
604: IF l_debug_level > 0 THEN
605: oe_debug_pub.add( 'OLD SFROM '||P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 4 ) ;
606: END IF;
607: END IF;
608:
609: l_qty_to_reserve
613: END IF;
614:
615:
616: IF l_debug_level > 0 THEN
617: oe_debug_pub.add( P_LINE_REC.LINE_ID || '.'|| L_QTY_TO_RESERVE , 3 ) ;
618: END IF;
619:
620: IF l_qty_to_reserve is not NULL OR
621: l_qty_to_unreserve is not NULL THEN
629: OE_Reservations_Tbl(l_index).qty_to_unreserve
630: := l_qty_to_unreserve;
631:
632: IF l_debug_level > 0 THEN
633: oe_debug_pub.add( 'RES ' || OE_RESERVATIONS_TBL ( L_INDEX ) .QTY_TO_RESERVE , 3 ) ;
634: END IF;
635: IF l_debug_level > 0 THEN
636: oe_debug_pub.add( 'ENTITY_ID '|| OE_RESERVATIONS_TBL ( L_INDEX ) .ENTITY_ID , 3 ) ;
637: END IF;
632: IF l_debug_level > 0 THEN
633: oe_debug_pub.add( 'RES ' || OE_RESERVATIONS_TBL ( L_INDEX ) .QTY_TO_RESERVE , 3 ) ;
634: END IF;
635: IF l_debug_level > 0 THEN
636: oe_debug_pub.add( 'ENTITY_ID '|| OE_RESERVATIONS_TBL ( L_INDEX ) .ENTITY_ID , 3 ) ;
637: END IF;
638: IF l_debug_level > 0 THEN
639: oe_debug_pub.add( 'LINE_ID ' || OE_RESERVATIONS_TBL ( L_INDEX ) .LINE_ID , 3 ) ;
640: END IF;
635: IF l_debug_level > 0 THEN
636: oe_debug_pub.add( 'ENTITY_ID '|| OE_RESERVATIONS_TBL ( L_INDEX ) .ENTITY_ID , 3 ) ;
637: END IF;
638: IF l_debug_level > 0 THEN
639: oe_debug_pub.add( 'LINE_ID ' || OE_RESERVATIONS_TBL ( L_INDEX ) .LINE_ID , 3 ) ;
640: END IF;
641:
642: IF l_qty_to_unreserve is NOT NULL THEN
643: IF l_debug_level > 0 THEN
640: END IF;
641:
642: IF l_qty_to_unreserve is NOT NULL THEN
643: IF l_debug_level > 0 THEN
644: oe_debug_pub.add( 'UNRES '||OE_RESERVATIONS_TBL ( L_INDEX ) .QTY_TO_UNRESERVE , 3 ) ;
645: END IF;
646: x_unreserve_flag := 'Y';
647: END IF;
648:
648:
649: END IF;
650:
651: IF l_debug_level > 0 THEN
652: oe_debug_pub.add( 'LEAVING LOG_ATTRIBUTE_CHANGES '||X_UNRESERVE_FLAG , 3 ) ;
653: END IF;
654:
655: EXCEPTION
656: WHEN OTHERS THEN
654:
655: EXCEPTION
656: WHEN OTHERS THEN
657: IF l_debug_level > 0 THEN
658: oe_debug_pub.add( 'LOG_ATTRIBUTE_CHANGES ERROR '|| SQLERRM , 1 ) ;
659: END IF;
660: RAISE;
661: END Log_Attribute_Changes;
662:
674: (p_entity_id NUMBER := -1)
675: IS
676: I NUMBER;
677: --
678: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
679: --
680: BEGIN
681:
682: IF l_debug_level > 0 THEN
679: --
680: BEGIN
681:
682: IF l_debug_level > 0 THEN
683: oe_debug_pub.add( 'ENTERING DELETE_ATTRIBUTE_CHANGES '|| P_ENTITY_ID , 3 ) ;
684: END IF;
685:
686: IF p_entity_id = -1 THEN
687: OE_Reservations_Tbl.DELETE;
692:
693: WHILE I is not NULL
694: LOOP
695: IF l_debug_level > 0 THEN
696: oe_debug_pub.add( '---- LINE '|| OE_RESERVATIONS_TBL ( I ) .LINE_ID ) ;
697: END IF;
698: IF l_debug_level > 0 THEN
699: oe_debug_pub.add( 'QTY_TO_RES '|| OE_RESERVATIONS_TBL ( I ) .QTY_TO_RESERVE ) ;
700: END IF;
695: IF l_debug_level > 0 THEN
696: oe_debug_pub.add( '---- LINE '|| OE_RESERVATIONS_TBL ( I ) .LINE_ID ) ;
697: END IF;
698: IF l_debug_level > 0 THEN
699: oe_debug_pub.add( 'QTY_TO_RES '|| OE_RESERVATIONS_TBL ( I ) .QTY_TO_RESERVE ) ;
700: END IF;
701:
702: IF OE_Reservations_Tbl(I).entity_id = p_entity_id THEN
703: IF l_debug_level > 0 THEN
700: END IF;
701:
702: IF OE_Reservations_Tbl(I).entity_id = p_entity_id THEN
703: IF l_debug_level > 0 THEN
704: oe_debug_pub.add( 'DELETING '|| I , 3 ) ;
705: END IF;
706: OE_Reservations_Tbl.DELETE(I);
707: END IF;
708:
709: I := OE_Reservations_Tbl.NEXT(I);
710: END LOOP;
711:
712: IF l_debug_level > 0 THEN
713: oe_debug_pub.add( 'LEAVING LOG_ATTRIBUTE_CHANGES' , 3 ) ;
714: END IF;
715:
716: EXCEPTION
717: WHEN OTHERS THEN
715:
716: EXCEPTION
717: WHEN OTHERS THEN
718: IF l_debug_level > 0 THEN
719: oe_debug_pub.add( 'DELETE_ATTRIBUTE_CHANGES ERROR '|| SQLERRM , 1 ) ;
720: END IF;
721: RAISE;
722: END Delete_Attribute_Changes;
723:
780: l_control_rec OE_GLOBALS.control_rec_type;
781: I NUMBER;
782: l_send_cancel_lines VARCHAR2(1); -- 2882255
783: --
784: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
785: --
786: BEGIN
787: Print_Time('entering Schedule_SMC ' || p_request_rec.entity_id);
788:
826:
827: ------------- setting attributes done -------------------
828:
829: IF l_debug_level > 0 THEN
830: oe_debug_pub.add( 'CALLING PROCESS_GROUP IN SMC' , 3 ) ;
831: END IF;
832:
833: Process_Group
834: (p_x_line_tbl => l_line_tbl
848: Print_Time('leaving Schedule_SMC ' || p_request_rec.entity_id);
849: EXCEPTION
850: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
851: IF l_debug_level > 0 THEN
852: oe_debug_pub.add( 'UNEXP ERROR IN SCHEDULE_SMC' , 1 ) ;
853: END IF;
854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856:
855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856:
857: WHEN FND_API.G_EXC_ERROR THEN
858: IF l_debug_level > 0 THEN
859: oe_debug_pub.add( 'EXC ERROR IN SCHEDULE_SMC' , 1 ) ;
860: END IF;
861: x_return_status := FND_API.G_RET_STS_ERROR;
862: RAISE FND_API.G_EXC_ERROR;
863:
862: RAISE FND_API.G_EXC_ERROR;
863:
864: WHEN OTHERS THEN
865: IF l_debug_level > 0 THEN
866: oe_debug_pub.add( 'OTHERS ERROR IN SCHEDULE_SMC '|| SQLERRM , 1 ) ;
867: END IF;
868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
869: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
870: THEN
928: l_send_cancel_lines VARCHAR2(1); -- 2882255
929: l_request VARCHAR2(8) := 'ATO';
930: l_request_search_rslt BOOLEAN;
931: --
932: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
933: --
934: BEGIN
935:
936: Print_Time('Entering Schedule_ATO ' || p_request_rec.entity_id);
1046:
1047: EXCEPTION
1048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1049: IF l_debug_level > 0 THEN
1050: oe_debug_pub.add( 'UNEXP ERROR IN SCHEDULE_ATO' , 1 ) ;
1051: END IF;
1052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1054:
1053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1054:
1055: WHEN FND_API.G_EXC_ERROR THEN
1056: IF l_debug_level > 0 THEN
1057: oe_debug_pub.add( 'EXC ERROR IN SCHEDULE_ATO' , 1 ) ;
1058: END IF;
1059: x_return_status := FND_API.G_RET_STS_ERROR;
1060: RAISE FND_API.G_EXC_ERROR;
1061:
1060: RAISE FND_API.G_EXC_ERROR;
1061:
1062: WHEN OTHERS THEN
1063: IF l_debug_level > 0 THEN
1064: oe_debug_pub.add( 'OTHERS ERROR IN SCHEDULE_ATO '|| SQLERRM , 1 ) ;
1065: END IF;
1066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1067: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1068: THEN
1105: L NUMBER := 0;
1106: I NUMBER;
1107: l_sales_order_id NUMBER;
1108: --
1109: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1110: --
1111: BEGIN
1112: Print_Time('entering schedule_nonsmc ' || p_request_tbl.COUNT);
1113:
1119: IF p_request_tbl(I).param10 = 'Y' THEN
1120:
1121: J := J + 1;
1122: IF l_debug_level > 0 THEN
1123: oe_debug_pub.add( 'LINE ' || P_REQUEST_TBL ( I ) .ENTITY_ID , 3 ) ;
1124: END IF;
1125:
1126: l_line_tbl(J).line_id := 0;
1127:
1150:
1151: l_old_line_tbl(J) := l_line_tbl(J);
1152:
1153: IF l_debug_level > 0 THEN
1154: oe_debug_pub.add( 'CALLING VALIDATE_AND_ASSIGN_SCH_PARAMS' , 3 ) ;
1155: END IF;
1156:
1157: Validate_And_Assign_Sch_Params
1158: ( p_request_rec => p_request_tbl(I)
1162:
1163: IF l_line_tbl(J).item_type_code in ('MODEL', 'CLASS', 'KIT')
1164: THEN
1165: IF l_debug_level > 0 THEN
1166: oe_debug_pub.add( 'CALLING GET_INCLUDED_ITEMS_TO_SCH' , 3 ) ;
1167: END IF;
1168:
1169: Get_Included_Items_To_Sch
1170: ( p_x_line_tbl => l_line_tbl
1176: END IF;
1177:
1178: ELSE
1179: IF l_debug_level > 0 THEN
1180: oe_debug_pub.add( 'ALREADY PROCESSED INC ITEM' , 3 ) ;
1181: END IF;
1182: END IF;
1183:
1184: I := p_request_tbl.NEXT(I);
1185:
1186: END LOOP;
1187:
1188: IF l_debug_level > 0 THEN
1189: oe_debug_pub.add( P_REQUEST_TBL ( 1 ) .PARAM1||' '||P_REQUEST_TBL ( 1 ) .PARAM24 , 3 ) ;
1190: END IF;
1191:
1192: Process_Group
1193: (p_x_line_tbl => l_line_tbl
1207: Print_Time('leaving schedule_nonsmc');
1208: EXCEPTION
1209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1210: IF l_debug_level > 0 THEN
1211: oe_debug_pub.add( 'UNEXP ERROR IN SCHEDULE_NONSMC' , 1 ) ;
1212: END IF;
1213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1215:
1214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1215:
1216: WHEN FND_API.G_EXC_ERROR THEN
1217: IF l_debug_level > 0 THEN
1218: oe_debug_pub.add( 'EXC ERROR IN SCHEDULE_NONSMC' , 1 ) ;
1219: END IF;
1220: x_return_status := FND_API.G_RET_STS_ERROR;
1221: RAISE FND_API.G_EXC_ERROR;
1222:
1221: RAISE FND_API.G_EXC_ERROR;
1222:
1223: WHEN OTHERS THEN
1224: IF l_debug_level > 0 THEN
1225: oe_debug_pub.add( 'OTHERS IN SCHEDULE_NONSMC '|| SQLERRM , 1 ) ;
1226: END IF;
1227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1228: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1229: THEN
1257: l_unreserve_flag VARCHAR2(1);
1258: l_send_cancel_lines VARCHAR2(1); -- 2882255
1259: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1260: --
1261: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1262: --
1263: BEGIN
1264: IF l_debug_level > 0 THEN
1265: oe_debug_pub.add( 'ENTERING GET_INCLUDED_ITEMS_TO_SCH' , 3 ) ;
1261: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1262: --
1263: BEGIN
1264: IF l_debug_level > 0 THEN
1265: oe_debug_pub.add( 'ENTERING GET_INCLUDED_ITEMS_TO_SCH' , 3 ) ;
1266: END IF;
1267:
1268: -- 2882255
1269: IF p_request_tbl(p_req_index).param1 = Oe_Schedule_Util.OESCH_ACT_SCHEDULE
1296: p_in_index := p_in_index + 1;
1297: p_x_line_tbl(p_in_index) := l_inc_items_tbl(K);
1298: p_x_old_line_tbl(p_in_index) := l_inc_items_tbl(K);
1299: IF l_debug_level > 0 THEN
1300: oe_debug_pub.add( K||'INC ITEM '||P_X_LINE_TBL ( P_IN_INDEX ) .LINE_ID , 4 ) ;
1301: END IF;
1302:
1303: l_done := FALSE;
1304:
1307: LOOP
1308: IF p_request_tbl(L).entity_id = l_inc_items_tbl(K).line_id
1309: THEN
1310: IF l_debug_level > 0 THEN
1311: oe_debug_pub.add( L || ' USER CHANGED INC ITEM '|| P_IN_INDEX , 5 ) ;
1312: END IF;
1313:
1314: Validate_And_Assign_Sch_Params
1315: ( p_request_rec => p_request_tbl(L) -- imp use L
1323: L := p_request_tbl.NEXT(L);
1324: END LOOP;
1325:
1326: IF l_debug_level > 0 THEN
1327: oe_debug_pub.add( 'LOOPED THRU REQ TBL '|| L , 3 ) ;
1328: END IF;
1329:
1330: IF NOT l_done THEN
1331: IF l_debug_level > 0 THEN
1328: END IF;
1329:
1330: IF NOT l_done THEN
1331: IF l_debug_level > 0 THEN
1332: oe_debug_pub.add( P_REQ_INDEX||' USER CHANGED PARENT '||P_IN_INDEX , 5 ) ;
1333: END IF;
1334:
1335: Validate_And_Assign_Sch_Params
1336: ( p_request_rec => p_request_tbl(p_req_index) -- imp req_index
1351:
1352: END IF; -- if inc tbl count > 0
1353:
1354: IF l_debug_level > 0 THEN
1355: oe_debug_pub.add( 'LEAVING GET_INCLUDED_ITEMS_TO_SCH' , 3 ) ;
1356: END IF;
1357:
1358: EXCEPTION
1359: WHEN OTHERS THEN
1357:
1358: EXCEPTION
1359: WHEN OTHERS THEN
1360: IF l_debug_level > 0 THEN
1361: oe_debug_pub.add( 'GET_INCLUDED_ITEMS_TO_SCH '|| SQLERRM , 1 ) ;
1362: END IF;
1363: RAISE;
1364: END Get_Included_Items_To_Sch;
1365:
1413: l_msg_data VARCHAR2(2000);
1414: l_control_rec OE_GLOBALS.control_rec_type;
1415: l_sch_action VARCHAR2(30);
1416: --
1417: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1418: --
1419: BEGIN
1420: Print_Time('entering Process_Group');
1421:
1424: IF p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_UNSCHEDULE OR
1425: p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_UNRESERVE
1426: THEN
1427: IF l_debug_level > 0 THEN
1428: oe_debug_pub.add( 'UNRESERVING...' , 3 ) ;
1429: END IF;
1430:
1431: Unreserve_group(p_line_tbl => p_x_line_tbl
1432: ,p_sch_action => p_sch_action); -- 2595661
1433:
1434: IF p_sch_action = OE_Schedule_Util.OESCH_ACT_UNSCHEDULE
1435: THEN
1436: IF l_debug_level > 0 THEN
1437: oe_debug_pub.add( 'NOW UNSCHEDULING...' , 3 ) ;
1438: END IF;
1439:
1440: Call_Mrp
1441: ( p_x_line_tbl => p_x_line_tbl
1446:
1447: ELSE ---------- action is sch or resch or reserve.-----
1448:
1449: IF l_debug_level > 0 THEN
1450: oe_debug_pub.add( 'SCH ACTION IS '|| P_SCH_ACTION , 3 ) ;
1451: END IF;
1452:
1453: IF p_sch_action = OE_Schedule_Util.OESCH_ACT_RESERVE THEN
1454: l_sch_action := OE_Schedule_Util.OESCH_ACT_SCHEDULE;
1460: (p_handle_unreserve = 'Y' OR
1461: p_caller = 'SET')
1462: THEN
1463: IF l_debug_level > 0 THEN
1464: oe_debug_pub.add( '1 CALLING HANDLE_UNRESERVE' , 4 ) ;
1465: END IF;
1466:
1467: Handle_Unreserve
1468: (p_x_line_tbl => p_x_line_tbl
1488: IF p_sch_action = OE_Schedule_Util.OESCH_ACT_RESCHEDULE AND
1489: p_caller = 'SET'
1490: THEN
1491: IF l_debug_level > 0 THEN
1492: oe_debug_pub.add( '2 CALLING HANDLE_UNRESERVE' , 4 ) ;
1493: END IF;
1494:
1495: Handle_Unreserve
1496: (p_x_line_tbl => p_x_line_tbl
1518: RAISE FND_API.G_EXC_ERROR;
1519: END IF;
1520: ELSE
1521: IF l_debug_level > 0 THEN
1522: oe_debug_pub.add( 'NO NEED TO CALL LINES' , 3 ) ;
1523: END IF;
1524: END IF;
1525:
1526:
1528: p_sch_action <> OE_Schedule_Util.OESCH_ACT_UNSCHEDULE AND
1529: p_sch_action <> OE_Schedule_Util.OESCH_ACT_UNRESERVE
1530: THEN
1531: IF l_debug_level > 0 THEN
1532: oe_debug_pub.add( 'CALLING RESERVE_GROUP NOW ' , 3 ) ;
1533: END IF;
1534:
1535: Reserve_Group
1536: ( p_x_line_tbl => p_x_line_tbl
1555: p_x_line_tbl(1).ship_set_id),
1556: p_x_line_tbl(1).top_model_line_id));
1557:
1558: IF l_debug_level > 0 THEN
1559: oe_debug_pub.add( 'EXC ERROR IN PROCESS_GROUP' , 1 ) ;
1560: END IF;
1561: END IF;
1562:
1563: -- do not raise, caller wants to handle: sets
1610: l_msg_count NUMBER;
1611: l_mrp_called BOOLEAN := FALSE;
1612: l_line_id_mod NUMBER ; --7827737
1613: --
1614: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1615: --
1616: BEGIN
1617:
1618: Print_Time('entering Call_Mrp');
1631: -- 1955004 modified statement below from = to >
1632: -- removed return and end if to encompass code to add an else clause
1633: IF l_mrp_atp_rec.error_code.count > 0 THEN
1634: IF l_debug_level > 0 THEN
1635: oe_debug_pub.add( 'NEED TO CALL MRP , > 0 COUNT' , 1 ) ;
1636: END IF;
1637:
1638:
1639: l_session_id := OE_SCHEDULE_UTIL.Get_Session_Id;
1638:
1639: l_session_id := OE_SCHEDULE_UTIL.Get_Session_Id;
1640:
1641: IF l_debug_level > 0 THEN
1642: oe_debug_pub.add( 'SESSION ID IN CALL_MRP ' || L_SESSION_ID , 2 ) ;
1643: END IF;
1644:
1645: Print_Time('calling mrps atp api');
1646:
1672: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1673: -- the call to MRP was successful, so load the results
1674:
1675: IF l_debug_level > 0 THEN
1676: oe_debug_pub.add( 'CALLING LOAD_RESULTS' , 1 ) ;
1677: END IF;
1678:
1679: OE_Schedule_Util.Load_Results_from_tbl
1680: ( p_atp_rec => l_out_mtp_atp_rec
1685: , p_partial_set => p_partial_set
1686: , x_return_status => x_return_status);
1687:
1688: IF l_debug_level > 0 THEN
1689: oe_debug_pub.add( 'AFTER LOAD_RESULTS: ' || X_RETURN_STATUS , 1 ) ;
1690: END IF;
1691:
1692: ELSE
1693: IF l_out_mtp_atp_rec.error_code.count = 0 AND
1694: l_mrp_called THEN
1695: -- we were expecting some date from MRP, but did not get any
1696:
1697: IF l_debug_level > 0 THEN
1698: oe_debug_pub.add( 'MRP HAS NOT RETURNED ANY DATA' , 1 ) ;
1699: END IF;
1700:
1701: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATP_ERROR');
1702: OE_MSG_PUB.Add;
1717: --(p_x_line_tbl(I).line_id) THEN
1718: -- we know this line has an inactive demand scheduling level
1719:
1720: IF l_debug_level > 0 THEN
1721: oe_debug_pub.add( 'CALLING INACTIVE_DEMAND_SCHEDULING FROM ELSE IN CALL_MRP' , 1 ) ;
1722: END IF;
1723:
1724: OE_SCHEDULE_UTIL.Inactive_demand_scheduling
1725: (p_x_old_line_rec => p_old_line_tbl(I)
1758:
1759: EXCEPTION
1760: WHEN OTHERS THEN
1761: IF l_debug_level > 0 THEN
1762: oe_debug_pub.add( 'CALL_MRP ERROR' || SQLERRM , 1 ) ;
1763: END IF;
1764: RAISE;
1765: END Call_Mrp;
1766:
1785: l_return_status VARCHAR2(1);
1786: I NUMBER;
1787: l_line_id_mod NUMBER ; --7827737
1788: --
1789: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1790: --
1791: BEGIN
1792:
1793: Print_Time('entering Unreserve_group');
1799: IF p_line_tbl(I).reserved_quantity > 0 AND
1800: p_line_tbl(I).reserved_quantity is NOT NULL THEN
1801:
1802: IF l_debug_level > 0 THEN
1803: oe_debug_pub.add( P_LINE_TBL ( I ) .LINE_ID||'UNRESERVE ' ||P_LINE_TBL ( I ) .RESERVED_QUANTITY , 3 ) ;
1804: END IF;
1805: -- Start 2595661
1806: IF nvl(p_line_tbl(I).shipping_interfaced_flag,'N') = 'Y' THEN
1807: IF ( (p_sch_action = OE_Schedule_Util.OESCH_ACT_UNRESERVE
1839: OE_Reservations_Tbl(l_line_id_mod).qty_to_reserve
1840: is NULL
1841: THEN
1842: IF l_debug_level > 0 THEN
1843: oe_debug_pub.add( 'ADDING REC TO RES TBL' , 2 ) ;
1844: END IF;
1845:
1846: IF p_line_tbl(I).arrival_set_id is NOT NULL THEN
1847: --OE_Reservations_Tbl(p_line_tbl(I).line_id).entity_id
1881: := p_line_tbl(I).ordered_quantity;
1882: END IF;
1883:
1884: IF l_debug_level > 0 THEN
1885: oe_debug_pub.add( 'RES ' || OE_RESERVATIONS_TBL ( P_LINE_TBL ( I ) .LINE_ID ) .QTY_TO_RESERVE , 3 ) ;
1886: END IF;
1887: END IF;
1888:
1889: END IF; -- action = reschedule
1898:
1899: EXCEPTION
1900: WHEN OTHERS THEN
1901: IF l_debug_level > 0 THEN
1902: oe_debug_pub.add( 'UNRESERVE_GROUP ERROR' || SQLERRM , 1 ) ;
1903: END IF;
1904: RAISE;
1905: END Unreserve_group;
1906:
1944: l_reservation_qty2 NUMBER; -- INVCONV
1945: I NUMBER;
1946: l_rsv_update BOOLEAN := FALSE;
1947: --
1948: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1949: --
1950: BEGIN
1951:
1952: Print_Time('entering Reserve_Group ' || p_sch_action);
1978: nvl(p_x_line_tbl(I).schedule_status_code, 'X') =
1979: OE_SCHEDULE_UTIL.OESCH_STATUS_SCHEDULED
1980: THEN
1981: IF l_debug_level > 0 THEN
1982: oe_debug_pub.add( 'WORKING ON LINE '|| P_X_LINE_TBL ( I ) .LINE_ID , 3 ) ;
1983: END IF;
1984:
1985: l_sch_level := OE_SCHEDULE_UTIL.Get_Scheduling_Level
1986: (p_x_line_tbl(I).header_id,
1991: OE_Schedule_Util.SCH_LEVEL_THREE
1992: OR l_sch_level = OE_Schedule_Util.SCH_LEVEL_FOUR
1993: THEN
1994: IF l_debug_level > 0 THEN
1995: oe_debug_pub.add( 'SCH LEVEL ALLOWS FOR RESERVATION' , 3 ) ;
1996: END IF;
1997:
1998: Get_Reservations( p_line_rec => p_x_line_tbl(I)
1999: ,x_reservation_qty => l_reservation_qty
2015: OE_SCHEDULE_UTIL.Within_Rsv_Time_Fence
2016: (p_x_line_tbl(I).schedule_ship_date, p_x_line_tbl(I).org_id) THEN --4689197
2017:
2018: IF l_debug_level > 0 THEN
2019: oe_debug_pub.add( 'RESERVE '||P_X_LINE_TBL ( I ) .ORDERED_QUANTITY , 3 ) ;
2020: oe_debug_pub.add( 'RESERVE 2 '||P_X_LINE_TBL ( I ) .ORDERED_QUANTITY2 , 3 ) ; -- INVCONV
2021: END IF;
2022: l_reservation_qty := p_x_line_tbl(I).ordered_quantity;
2023: l_reservation_qty2 := p_x_line_tbl(I).ordered_quantity2; -- INVCONV
2016: (p_x_line_tbl(I).schedule_ship_date, p_x_line_tbl(I).org_id) THEN --4689197
2017:
2018: IF l_debug_level > 0 THEN
2019: oe_debug_pub.add( 'RESERVE '||P_X_LINE_TBL ( I ) .ORDERED_QUANTITY , 3 ) ;
2020: oe_debug_pub.add( 'RESERVE 2 '||P_X_LINE_TBL ( I ) .ORDERED_QUANTITY2 , 3 ) ; -- INVCONV
2021: END IF;
2022: l_reservation_qty := p_x_line_tbl(I).ordered_quantity;
2023: l_reservation_qty2 := p_x_line_tbl(I).ordered_quantity2; -- INVCONV
2024:
2038:
2039:
2040: l_rsv_update := TRUE;
2041: IF l_debug_level > 0 THEN
2042: oe_debug_pub.add( 'RESERVE QUANTITY'||P_X_LINE_TBL(I).RESERVED_QUANTITY , 3 ) ;
2043: oe_debug_pub.add('Qunatity to reserve :'||l_reservation_qty,3);
2044: oe_debug_pub.add( 'RESERVE QUANTITY2'||P_X_LINE_TBL(I).RESERVED_QUANTITY2 , 3 ) ; -- INVCONV
2045: oe_debug_pub.add('Quantity to reserve :'||l_reservation_qty2,3);
2046:
2039:
2040: l_rsv_update := TRUE;
2041: IF l_debug_level > 0 THEN
2042: oe_debug_pub.add( 'RESERVE QUANTITY'||P_X_LINE_TBL(I).RESERVED_QUANTITY , 3 ) ;
2043: oe_debug_pub.add('Qunatity to reserve :'||l_reservation_qty,3);
2044: oe_debug_pub.add( 'RESERVE QUANTITY2'||P_X_LINE_TBL(I).RESERVED_QUANTITY2 , 3 ) ; -- INVCONV
2045: oe_debug_pub.add('Quantity to reserve :'||l_reservation_qty2,3);
2046:
2047: END IF;
2040: l_rsv_update := TRUE;
2041: IF l_debug_level > 0 THEN
2042: oe_debug_pub.add( 'RESERVE QUANTITY'||P_X_LINE_TBL(I).RESERVED_QUANTITY , 3 ) ;
2043: oe_debug_pub.add('Qunatity to reserve :'||l_reservation_qty,3);
2044: oe_debug_pub.add( 'RESERVE QUANTITY2'||P_X_LINE_TBL(I).RESERVED_QUANTITY2 , 3 ) ; -- INVCONV
2045: oe_debug_pub.add('Quantity to reserve :'||l_reservation_qty2,3);
2046:
2047: END IF;
2048:
2041: IF l_debug_level > 0 THEN
2042: oe_debug_pub.add( 'RESERVE QUANTITY'||P_X_LINE_TBL(I).RESERVED_QUANTITY , 3 ) ;
2043: oe_debug_pub.add('Qunatity to reserve :'||l_reservation_qty,3);
2044: oe_debug_pub.add( 'RESERVE QUANTITY2'||P_X_LINE_TBL(I).RESERVED_QUANTITY2 , 3 ) ; -- INVCONV
2045: oe_debug_pub.add('Quantity to reserve :'||l_reservation_qty2,3);
2046:
2047: END IF;
2048:
2049:
2050:
2051: ELSE
2052: -- you do not want to overwrite previously supplied value,
2053: IF l_debug_level > 0 THEN
2054: oe_debug_pub.add( 'ALREADY RESERVED '||P_X_LINE_TBL ( I ) .RESERVED_QUANTITY , 3 ) ;
2055: END IF;
2056: END IF;
2057:
2058: -- Post Pack J
2068: END IF; -- reservation_aty = 0
2069:
2070: ELSE
2071: IF l_debug_level > 0 THEN
2072: oe_debug_pub.add( 'SCH LEVEL DOES NOT ALLOW RESERVATION' , 3 ) ;
2073: END IF;
2074: END IF; -- level check
2075:
2076: -- IF l_reservation_qty > 0 THEN --bug 16782621
2091: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2093: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2094: IF l_debug_level > 0 THEN
2095: oe_debug_pub.add( 'RESERVE LINE EXPECTED ERROR , IGNORE' , 1 ) ;
2096: END IF;
2097: END IF;
2098:
2099: END IF; -- do reserve
2105: Print_Time('leaving Reserve_Group ' ||l_return_status);
2106: EXCEPTION
2107: WHEN OTHERS THEN
2108: IF l_debug_level > 0 THEN
2109: oe_debug_pub.add( 'RESERVE_GROUP ERROR ' || SQLERRM , 1 ) ;
2110: END IF;
2111: RAISE;
2112: END Reserve_Group;
2113:
2137: )
2138: IS
2139: l_line_id_mod NUMBER; --7827737
2140: --
2141: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2142: --
2143: BEGIN
2144: IF l_debug_level > 0 THEN
2145: oe_debug_pub.add( 'ENTERING GET_RESERVATIONS ' , 3 ) ;
2141: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2142: --
2143: BEGIN
2144: IF l_debug_level > 0 THEN
2145: oe_debug_pub.add( 'ENTERING GET_RESERVATIONS ' , 3 ) ;
2146: END IF;
2147: l_line_id_mod :=MOD(p_line_rec.line_id,G_BINARY_LIMIT); --7827737
2148:
2149: --IF OE_Reservations_Tbl.EXISTS(p_line_rec.line_id)
2159: x_reservation_qty := p_line_rec.ordered_quantity;
2160: END IF;
2161:
2162: IF l_debug_level > 0 THEN
2163: oe_debug_pub.add( 'RES VALUE '|| X_RESERVATION_QTY , 3 ) ;
2164: END IF;
2165:
2166: /* Commented the below for bug 6335352
2167: IF p_line_rec.shipping_interfaced_flag = 'Y' AND
2179: x_reservation_qty := 0;
2180: END IF; -- if entry exists in res tbl
2181:
2182: IF l_debug_level > 0 THEN
2183: oe_debug_pub.add( P_LINE_REC.LINE_ID || ' LEAVING..'|| X_RESERVATION_QTY , 3 ) ;
2184: END IF;
2185:
2186: EXCEPTION
2187: WHEN OTHERS THEN
2185:
2186: EXCEPTION
2187: WHEN OTHERS THEN
2188: IF l_debug_level > 0 THEN
2189: oe_debug_pub.add( 'ERROR IN GET_RESERVATIONS '|| SQLERRM , 1 ) ;
2190: END IF;
2191: RAISE;
2192: END Get_Reservations;
2193:
2231: l_qty2 NUMBER; -- INVCONV
2232: I NUMBER;
2233: l_line_id_mod NUMBER; --7827737
2234: --
2235: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2236: --
2237: BEGIN
2238:
2239: Print_Time('entering Handle_Unreserve');
2240:
2241: IF p_post_process = FND_API.G_TRUE THEN
2242:
2243: IF l_debug_level > 0 THEN
2244: oe_debug_pub.add( 'ENTERING POST PROCESS' , 1 ) ;
2245: END IF;
2246: I := p_x_line_tbl.FIRST;
2247: WHILE I is NOT NULL
2248: LOOP
2271: p_x_line_tbl(1).arrival_set_id is not NULL) AND
2272: p_x_line_tbl(1).ship_from_org_id <> p_old_line_tbl(1).ship_from_org_id
2273: THEN
2274: IF l_debug_level > 0 THEN
2275: oe_debug_pub.add( 'UNRESERVING...' , 3 ) ;
2276: END IF;
2277: Unreserve_group
2278: ( p_line_tbl => p_old_line_tbl
2279: ,p_sch_action => OE_Schedule_Util.OESCH_ACT_RESCHEDULE);
2283:
2284:
2285: --------- handle the ordered qty etc. change -----------------
2286: IF l_debug_level > 0 THEN
2287: oe_debug_pub.add( 'ORDERED QTY ETC. CHANGES ' , 1 ) ;
2288: END IF;
2289:
2290: I := p_x_line_tbl.FIRST;
2291: WHILE I is NOT NULL
2317: AND Nvl(P_X_LINE_TBL ( I ).fulfillment_base ,'P') ='S')
2318: )-- bug 16782621
2319: THEN
2320: IF l_debug_level > 0 THEN
2321: oe_debug_pub.add( 'ELSIF CHANGE'|| P_X_LINE_TBL ( I ) .LINE_ID , 3 ) ;
2322: END IF;
2323:
2324: l_qty := p_x_line_tbl(I).reserved_quantity -
2325: p_x_line_tbl(I).ordered_quantity;
2328:
2329: END IF;
2330:
2331: IF l_debug_level > 0 THEN
2332: oe_debug_pub.add( L_QTY||' UNRESERVE '||P_X_LINE_TBL ( I ) .LINE_ID , 3 ) ;
2333: oe_debug_pub.add( L_QTY2||' UNRESERVE 2'||P_X_LINE_TBL ( I ) .LINE_ID , 3 ) ;
2334: END IF;
2335:
2336: -- IF l_qty > 0 THEN -- bug 16782621
2329: END IF;
2330:
2331: IF l_debug_level > 0 THEN
2332: oe_debug_pub.add( L_QTY||' UNRESERVE '||P_X_LINE_TBL ( I ) .LINE_ID , 3 ) ;
2333: oe_debug_pub.add( L_QTY2||' UNRESERVE 2'||P_X_LINE_TBL ( I ) .LINE_ID , 3 ) ;
2334: END IF;
2335:
2336: -- IF l_qty > 0 THEN -- bug 16782621
2337: IF ( l_qty > 0 AND Nvl(P_X_LINE_TBL ( I ).fulfillment_base ,'P') ='P')
2351: Print_Time('leaving Handle_Unreserve');
2352: EXCEPTION
2353: WHEN OTHERS THEN
2354: IF l_debug_level > 0 THEN
2355: oe_debug_pub.add( 'HANDLE_UNRESERVE ERROR' || SQLERRM , 1 ) ;
2356: END IF;
2357: RAISE;
2358:
2359: END Handle_Unreserve;
2374: ,p_x_old_line_rec IN OUT NOCOPY OE_Order_Pub.Line_Rec_Type)
2375: IS
2376: l_return_status VARCHAR2(1);
2377: --
2378: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2379: --
2380: BEGIN
2381: IF l_debug_level > 0 THEN
2382: oe_debug_pub.add( '--------ENTERING VALIDATE_AND_ASSIGN' , 1 ) ;
2378: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2379: --
2380: BEGIN
2381: IF l_debug_level > 0 THEN
2382: oe_debug_pub.add( '--------ENTERING VALIDATE_AND_ASSIGN' , 1 ) ;
2383: END IF;
2384:
2385: /* 3533565 Validation will be done after cascading
2386: OE_Schedule_Util.Validate_Line
2396: RAISE FND_API.G_EXC_ERROR;
2397: END IF;
2398: */
2399: IF l_debug_level > 0 THEN
2400: oe_debug_pub.add( '-------ENTITY ' || P_REQUEST_REC.ENTITY_ID , 4 ) ;
2401: END IF;
2402: IF l_debug_level > 0 THEN
2403: oe_debug_pub.add( '-------LINE ' || P_X_LINE_REC.LINE_ID , 4 ) ;
2404: END IF;
2399: IF l_debug_level > 0 THEN
2400: oe_debug_pub.add( '-------ENTITY ' || P_REQUEST_REC.ENTITY_ID , 4 ) ;
2401: END IF;
2402: IF l_debug_level > 0 THEN
2403: oe_debug_pub.add( '-------LINE ' || P_X_LINE_REC.LINE_ID , 4 ) ;
2404: END IF;
2405: IF l_debug_level > 0 THEN
2406: oe_debug_pub.add( '-------ACTION ' || P_REQUEST_REC.PARAM1 , 4 ) ;
2407: END IF;
2402: IF l_debug_level > 0 THEN
2403: oe_debug_pub.add( '-------LINE ' || P_X_LINE_REC.LINE_ID , 4 ) ;
2404: END IF;
2405: IF l_debug_level > 0 THEN
2406: oe_debug_pub.add( '-------ACTION ' || P_REQUEST_REC.PARAM1 , 4 ) ;
2407: END IF;
2408:
2409: p_x_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
2410: p_x_line_rec.change_reason := 'SYSTEM';
2459: AND p_x_line_rec.ato_line_id IS NOT NULL)
2460: -- bug 2427280 AND p_x_old_line_rec.schedule_status_code is NOT NULL
2461: THEN
2462: IF l_debug_level > 0 THEN
2463: oe_debug_pub.add( 'ASSIGN OLD VALUES '|| P_REQUEST_REC.PARAM7 , 3 ) ;
2464: END IF;
2465: p_x_old_line_rec.ship_from_org_id := p_request_rec.param7;
2466: p_x_old_line_rec.demand_class_code := p_request_rec.param8;
2467: p_x_old_line_rec.request_date := p_request_rec.date_param4;
2477: -- BUG 1282873
2478: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
2479:
2480: IF l_debug_level > 0 THEN
2481: oe_debug_pub.add( 'ASSIGN OVERRIDE FLAG' , 3 ) ;
2482: END IF;
2483: IF (p_x_line_rec.ato_line_id is not null AND
2484: NOT (p_x_line_rec.ato_line_id = p_x_line_rec.line_id AND
2485: p_x_line_rec.item_type_code
2505: Null;
2506:
2507: END;
2508: IF l_debug_level > 0 THEN
2509: oe_debug_pub.add( 'OVERRIDE_ATP_DATE_CODE :' || P_X_LINE_REC.OVERRIDE_ATP_DATE_CODE || P_X_LINE_REC.LINE_ID , 3 ) ;
2510: END IF;
2511:
2512: ELSIF NVL(p_request_rec.param11,'N') = 'Y' THEN
2513:
2537:
2538: END;
2539:
2540: IF l_debug_level > 0 THEN
2541: oe_debug_pub.add( '2 OVERRIDE_ATP_DATE_CODE :' || P_X_LINE_REC.OVERRIDE_ATP_DATE_CODE , 3 ) ;
2542: END IF;
2543:
2544: ELSIF p_x_line_rec.link_to_line_id = p_request_rec.entity_id
2545: AND nvl(p_request_rec.param11,'N') = 'Y' THEN
2552: END IF; -- Check for Pack I
2553: -- END 1282873
2554:
2555: IF l_debug_level > 0 THEN
2556: oe_debug_pub.add( 'LEAVING VALIDATE_AND_ASSIGN_SCH_PARAMS' , 3 ) ;
2557: END IF;
2558:
2559: EXCEPTION
2560: WHEN OTHERS THEN
2558:
2559: EXCEPTION
2560: WHEN OTHERS THEN
2561: IF l_debug_level > 0 THEN
2562: oe_debug_pub.add( 'ERROR VALIDATE_AND_ASSIGN_SCH_PARAMS '|| SQLERRM , 1 ) ;
2563: END IF;
2564: RAISE;
2565: END Validate_And_Assign_Sch_Params;
2566:
2600: l_po_NeedByDate_Update VARCHAR2(10); -- Added for IR ISO CMS project
2601: l_return_status VARCHAR2(1); -- Added for IR ISO CMS project
2602:
2603: --
2604: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2605: --
2606: BEGIN
2607: IF l_debug_level > 0 THEN
2608: oe_debug_pub.add( 'ENTERING SAVE_SCH '|| P_X_LINE_TBL.COUNT , 1 ) ;
2604: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2605: --
2606: BEGIN
2607: IF l_debug_level > 0 THEN
2608: oe_debug_pub.add( 'ENTERING SAVE_SCH '|| P_X_LINE_TBL.COUNT , 1 ) ;
2609: END IF;
2610:
2611: x_return_status := FND_API.G_RET_STS_SUCCESS;
2612:
2620: LOOP
2621:
2622: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_NONE THEN
2623: IF l_debug_level > 0 THEN
2624: oe_debug_pub.add( 'OPERATION IS NONE '|| P_X_LINE_TBL ( I ) .LINE_ID , 3 ) ;
2625: END IF;
2626: goto end_of_loop;
2627: END IF;
2628:
2636: END IF;
2637:
2638:
2639: IF l_debug_level > 0 THEN
2640: oe_debug_pub.add( 'GET THE OLD DATA' , 3 ) ;
2641: END IF;
2642:
2643: l_orig_old_line_rec := p_old_line_tbl(I) ; --3144917
2644:
2672:
2673: IF p_x_line_tbl(I).open_flag = 'N' THEN
2674:
2675: IF l_debug_level > 0 THEN
2676: oe_debug_pub.add( 'LINE IS CLOSED '||P_X_LINE_TBL ( I ) .LINE_ID , 3 ) ;
2677: END IF;
2678: p_x_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
2679: IF l_debug_level > 0 THEN
2680: oe_debug_pub.add( P_X_LINE_TBL ( I ) .SHIPPING_METHOD_CODE , 3 ) ;
2676: oe_debug_pub.add( 'LINE IS CLOSED '||P_X_LINE_TBL ( I ) .LINE_ID , 3 ) ;
2677: END IF;
2678: p_x_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
2679: IF l_debug_level > 0 THEN
2680: oe_debug_pub.add( P_X_LINE_TBL ( I ) .SHIPPING_METHOD_CODE , 3 ) ;
2681: END IF;
2682: IF l_debug_level > 0 THEN
2683: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .SHIPPING_METHOD_CODE , 3 ) ;
2684: END IF;
2679: IF l_debug_level > 0 THEN
2680: oe_debug_pub.add( P_X_LINE_TBL ( I ) .SHIPPING_METHOD_CODE , 3 ) ;
2681: END IF;
2682: IF l_debug_level > 0 THEN
2683: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .SHIPPING_METHOD_CODE , 3 ) ;
2684: END IF;
2685: goto direct_update;
2686: END IF;
2687:
2686: END IF;
2687:
2688:
2689: IF l_debug_level > 0 THEN
2690: oe_debug_pub.add( P_X_LINE_TBL ( I ) .REQUEST_DATE , 3 ) ;
2691: END IF;
2692: IF l_debug_level > 0 THEN
2693: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .REQUEST_DATE , 3 ) ;
2694: END IF;
2689: IF l_debug_level > 0 THEN
2690: oe_debug_pub.add( P_X_LINE_TBL ( I ) .REQUEST_DATE , 3 ) ;
2691: END IF;
2692: IF l_debug_level > 0 THEN
2693: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .REQUEST_DATE , 3 ) ;
2694: END IF;
2695: IF l_debug_level > 0 THEN
2696: oe_debug_pub.add( P_X_LINE_TBL ( I ) .SCHEDULE_SHIP_DATE , 3 ) ;
2697: END IF;
2692: IF l_debug_level > 0 THEN
2693: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .REQUEST_DATE , 3 ) ;
2694: END IF;
2695: IF l_debug_level > 0 THEN
2696: oe_debug_pub.add( P_X_LINE_TBL ( I ) .SCHEDULE_SHIP_DATE , 3 ) ;
2697: END IF;
2698: IF l_debug_level > 0 THEN
2699: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .SCHEDULE_SHIP_DATE , 3 ) ;
2700: END IF;
2695: IF l_debug_level > 0 THEN
2696: oe_debug_pub.add( P_X_LINE_TBL ( I ) .SCHEDULE_SHIP_DATE , 3 ) ;
2697: END IF;
2698: IF l_debug_level > 0 THEN
2699: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .SCHEDULE_SHIP_DATE , 3 ) ;
2700: END IF;
2701: IF l_debug_level > 0 THEN
2702: oe_debug_pub.add( P_X_LINE_TBL ( I ) .SCHEDULE_ARRIVAL_DATE , 3 ) ;
2703: END IF;
2698: IF l_debug_level > 0 THEN
2699: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .SCHEDULE_SHIP_DATE , 3 ) ;
2700: END IF;
2701: IF l_debug_level > 0 THEN
2702: oe_debug_pub.add( P_X_LINE_TBL ( I ) .SCHEDULE_ARRIVAL_DATE , 3 ) ;
2703: END IF;
2704: IF l_debug_level > 0 THEN
2705: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .SCHEDULE_ARRIVAL_DATE , 3 ) ;
2706: END IF;
2701: IF l_debug_level > 0 THEN
2702: oe_debug_pub.add( P_X_LINE_TBL ( I ) .SCHEDULE_ARRIVAL_DATE , 3 ) ;
2703: END IF;
2704: IF l_debug_level > 0 THEN
2705: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .SCHEDULE_ARRIVAL_DATE , 3 ) ;
2706: END IF;
2707: IF l_debug_level > 0 THEN
2708: oe_debug_pub.add( P_X_LINE_TBL ( I ) .SHIP_FROM_ORG_ID , 3 ) ;
2709: END IF;
2704: IF l_debug_level > 0 THEN
2705: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .SCHEDULE_ARRIVAL_DATE , 3 ) ;
2706: END IF;
2707: IF l_debug_level > 0 THEN
2708: oe_debug_pub.add( P_X_LINE_TBL ( I ) .SHIP_FROM_ORG_ID , 3 ) ;
2709: END IF;
2710: IF l_debug_level > 0 THEN
2711: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .SHIP_FROM_ORG_ID , 3 ) ;
2712: END IF;
2707: IF l_debug_level > 0 THEN
2708: oe_debug_pub.add( P_X_LINE_TBL ( I ) .SHIP_FROM_ORG_ID , 3 ) ;
2709: END IF;
2710: IF l_debug_level > 0 THEN
2711: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .SHIP_FROM_ORG_ID , 3 ) ;
2712: END IF;
2713: IF l_debug_level > 0 THEN
2714: oe_debug_pub.add( P_X_LINE_TBL ( I ) .SHIP_TO_ORG_ID , 3 ) ;
2715: END IF;
2710: IF l_debug_level > 0 THEN
2711: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .SHIP_FROM_ORG_ID , 3 ) ;
2712: END IF;
2713: IF l_debug_level > 0 THEN
2714: oe_debug_pub.add( P_X_LINE_TBL ( I ) .SHIP_TO_ORG_ID , 3 ) ;
2715: END IF;
2716: IF l_debug_level > 0 THEN
2717: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .SHIP_TO_ORG_ID , 3 ) ;
2718: END IF;
2713: IF l_debug_level > 0 THEN
2714: oe_debug_pub.add( P_X_LINE_TBL ( I ) .SHIP_TO_ORG_ID , 3 ) ;
2715: END IF;
2716: IF l_debug_level > 0 THEN
2717: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .SHIP_TO_ORG_ID , 3 ) ;
2718: END IF;
2719: IF l_debug_level > 0 THEN
2720: oe_debug_pub.add( P_X_LINE_TBL ( I ) .SHIPPING_METHOD_CODE , 3 ) ;
2721: END IF;
2716: IF l_debug_level > 0 THEN
2717: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .SHIP_TO_ORG_ID , 3 ) ;
2718: END IF;
2719: IF l_debug_level > 0 THEN
2720: oe_debug_pub.add( P_X_LINE_TBL ( I ) .SHIPPING_METHOD_CODE , 3 ) ;
2721: END IF;
2722: IF l_debug_level > 0 THEN
2723: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .SHIPPING_METHOD_CODE , 3 ) ;
2724: END IF;
2719: IF l_debug_level > 0 THEN
2720: oe_debug_pub.add( P_X_LINE_TBL ( I ) .SHIPPING_METHOD_CODE , 3 ) ;
2721: END IF;
2722: IF l_debug_level > 0 THEN
2723: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .SHIPPING_METHOD_CODE , 3 ) ;
2724: END IF;
2725: IF l_debug_level > 0 THEN
2726: oe_debug_pub.add( P_X_LINE_TBL ( I ) .DEMAND_CLASS_CODE , 3 ) ;
2727: END IF;
2722: IF l_debug_level > 0 THEN
2723: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .SHIPPING_METHOD_CODE , 3 ) ;
2724: END IF;
2725: IF l_debug_level > 0 THEN
2726: oe_debug_pub.add( P_X_LINE_TBL ( I ) .DEMAND_CLASS_CODE , 3 ) ;
2727: END IF;
2728: IF l_debug_level > 0 THEN
2729: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .DEMAND_CLASS_CODE , 3 ) ;
2730: END IF;
2725: IF l_debug_level > 0 THEN
2726: oe_debug_pub.add( P_X_LINE_TBL ( I ) .DEMAND_CLASS_CODE , 3 ) ;
2727: END IF;
2728: IF l_debug_level > 0 THEN
2729: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .DEMAND_CLASS_CODE , 3 ) ;
2730: END IF;
2731: IF l_debug_level > 0 THEN
2732: oe_debug_pub.add(P_X_LINE_TBL( I ).Earliest_Ship_Date , 3 ) ;
2733: END IF;
2728: IF l_debug_level > 0 THEN
2729: oe_debug_pub.add( P_OLD_LINE_TBL ( I ) .DEMAND_CLASS_CODE , 3 ) ;
2730: END IF;
2731: IF l_debug_level > 0 THEN
2732: oe_debug_pub.add(P_X_LINE_TBL( I ).Earliest_Ship_Date , 3 ) ;
2733: END IF;
2734: IF l_debug_level > 0 THEN
2735: oe_debug_pub.add(P_X_LINE_TBL( I ).Firm_Demand_Flag , 3 ) ;
2736: END IF;
2731: IF l_debug_level > 0 THEN
2732: oe_debug_pub.add(P_X_LINE_TBL( I ).Earliest_Ship_Date , 3 ) ;
2733: END IF;
2734: IF l_debug_level > 0 THEN
2735: oe_debug_pub.add(P_X_LINE_TBL( I ).Firm_Demand_Flag , 3 ) ;
2736: END IF;
2737:
2738:
2739: IF p_sch_action = OE_Schedule_Util.OESCH_ACT_RESCHEDULE THEN
2767: NOT OE_GLOBALS.Equal(p_x_line_tbl(I).inventory_item_id,
2768: p_old_line_tbl(I).inventory_item_id)
2769: THEN
2770: IF l_debug_level > 0 THEN
2771: oe_debug_pub.add( 'THERE IS A CHANGE '|| P_X_LINE_TBL ( I ) .LINE_ID , 3 ) ;
2772: END IF;
2773: ELSE
2774: IF l_debug_level > 0 THEN
2775: oe_debug_pub.add( 'NO CHANGE '|| P_X_LINE_TBL ( I ) .LINE_ID , 3 ) ;
2771: oe_debug_pub.add( 'THERE IS A CHANGE '|| P_X_LINE_TBL ( I ) .LINE_ID , 3 ) ;
2772: END IF;
2773: ELSE
2774: IF l_debug_level > 0 THEN
2775: oe_debug_pub.add( 'NO CHANGE '|| P_X_LINE_TBL ( I ) .LINE_ID , 3 ) ;
2776: END IF;
2777: p_x_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
2778: goto direct_update;
2779: END IF;
2787: ,p_old_line_rec => p_old_line_tbl(I)
2788: ,x_direct_update => l_direct_update);
2789:
2790: IF l_debug_level > 0 THEN
2791: oe_debug_pub.add( 'operation action ' || oe_line_security.g_operation_action , 1 ) ;
2792: END IF;
2793:
2794: IF oe_line_security.g_operation_action is not null THEN
2795: l_call_po := 'Y';
2817: , p_old_line_tbl => p_old_line_tbl
2818: , x_return_status => x_return_status);
2819:
2820: IF l_debug_level > 0 THEN
2821: oe_debug_pub.add( 'SCH DU : AFTER CALLING PROCESS REQUEST AND NOTIFY', 1 ) ;
2822: oe_debug_pub.add( 'DU X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
2823: END IF;
2824:
2825: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2818: , x_return_status => x_return_status);
2819:
2820: IF l_debug_level > 0 THEN
2821: oe_debug_pub.add( 'SCH DU : AFTER CALLING PROCESS REQUEST AND NOTIFY', 1 ) ;
2822: oe_debug_pub.add( 'DU X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
2823: END IF;
2824:
2825: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2826: IF l_debug_level > 0 THEN
2823: END IF;
2824:
2825: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2826: IF l_debug_level > 0 THEN
2827: oe_debug_pub.add( 'RR DU: UNEXP ERRORED OUT' , 1 ) ;
2828: END IF;
2829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2830: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2831: IF l_debug_level > 0 THEN
2828: END IF;
2829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2830: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2831: IF l_debug_level > 0 THEN
2832: oe_debug_pub.add( 'RR DU: ERRORED OUT' , 1 ) ;
2833: END IF;
2834: RAISE FND_API.G_EXC_ERROR;
2835: END IF;
2836: /* End - Bug 12613382 */
2837:
2838: IF p_x_line_tbl(I).top_model_line_id = p_x_line_tbl(I).line_id
2839: THEN
2840: IF l_debug_level > 0 THEN
2841: oe_debug_pub.add( 'CLEAR MODEL CACHE: '||P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
2842: END IF;
2843: OE_Order_Cache.Clear_Top_Model_Line
2844: (p_key => p_x_line_tbl(I).line_id);
2845: END IF;
2850:
2851: IF p_sch_action = OE_Schedule_Util.OESCH_ACT_RESCHEDULE THEN
2852:
2853: IF l_debug_level > 0 THEN
2854: oe_debug_pub.add( 'MAY UPDATE RESERN '|| P_X_LINE_TBL ( I ) .LINE_ID , 3 ) ;
2855: END IF;
2856: Update_Reservation
2857: ( p_line_rec => p_x_line_tbl(I)
2858: ,p_old_line_rec => l_orig_old_line_rec --3144917
2869: p_old_line_tbl(I).schedule_arrival_date)
2870:
2871: THEN
2872: IF l_debug_level > 0 THEN
2873: oe_debug_pub.add( 'PASSING SCHEDULE_ARRIVAL_DATE TO PO ' , 3 ) ;
2874: END IF;
2875:
2876: -- Bug ##7576948: For IR ISO CMS Project
2877: -- The below code is commented for IR ISO project because we no more
2968:
2969: l_po_NeedByDate_Update := NVL(FND_PROFILE.VALUE('POR_SYNC_NEEDBYDATE_OM'),'NO');
2970:
2971: IF l_debug_level > 0 THEN
2972: oe_debug_pub.add(' Need By Date update is allowed ? '||l_po_NeedByDate_Update);
2973: END IF;
2974:
2975: IF NOT OE_Internal_Requisition_Pvt.G_Update_ISO_From_Req
2976: AND NOT OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL THEN -- AND
3005:
3006:
3007: ELSE -- Added for IR ISO Tracking bug 7667702
3008: IF l_debug_level > 0 THEN
3009: oe_debug_pub.add(' Need By Date is not allowed to update. Updating MTL_Supply only',5);
3010: END IF;
3011:
3012: OE_SCHEDULE_UTIL.Update_PO(p_x_line_tbl(I).schedule_arrival_date,
3013: p_x_line_tbl(I).source_document_id,
3019: /* ============================= */
3020: /* IR ISO Change Management Ends */
3021:
3022: IF l_debug_level > 0 THEN
3023: oe_debug_pub.add( 'AFTER PO CALL BACK' , 3 ) ;
3024: END IF;
3025: END IF;
3026:
3027: I := p_x_line_tbl.NEXT(I);
3028:
3029: END LOOP;
3030:
3031: IF l_debug_level > 0 THEN
3032: oe_debug_pub.add( '------- DONE WITH DIRECT UPDATES IF ANY' , 1 ) ;
3033: END IF;
3034:
3035: ------------------- call process order -------------------
3036:
3082: ,p_old_line_tbl => p_old_line_tbl
3083: ,x_return_status => x_return_status);
3084:
3085: IF l_debug_level > 0 THEN
3086: oe_debug_pub.add( 'PRN RETURN_STATUS ' || X_RETURN_STATUS , 1 ) ;
3087: END IF;
3088:
3089: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3094:
3095: END IF;
3096:
3097: IF l_debug_level > 0 THEN
3098: oe_debug_pub.add( 'LEAVING SAVE_SCH_ATTRIBURES' , 1 ) ;
3099: END IF;
3100: EXCEPTION
3101: WHEN OTHERS THEN
3102: IF l_debug_level > 0 THEN
3099: END IF;
3100: EXCEPTION
3101: WHEN OTHERS THEN
3102: IF l_debug_level > 0 THEN
3103: oe_debug_pub.add( 'ERROR SAVE_SCH_ATTRIBUTES '|| SQLERRM , 1 ) ;
3104: END IF;
3105: RAISE;
3106: END Save_Sch_Attributes;
3107:
3121: l_sec_result NUMBER;
3122: l_src_attr_tbl OE_GLOBALS.NUMBER_Tbl_Type;
3123: l_return_status VARCHAR2(1);
3124: --
3125: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3126: --
3127: BEGIN
3128:
3129: IF l_debug_level > 0 THEN
3126: --
3127: BEGIN
3128:
3129: IF l_debug_level > 0 THEN
3130: oe_debug_pub.add( 'ENTERING SECURITY_AND_DEFAULTING ' , 2 ) ;
3131: END IF;
3132:
3133: x_direct_update := 'N';
3134:
3146: END IF;
3147:
3148: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
3149: IF l_debug_level > 0 THEN
3150: oe_debug_pub.add( 'AFTER SECURITY CALL' || L_RETURN_STATUS , 1 ) ;
3151: END IF;
3152:
3153: -- if operation on any attribute is constrained
3154: IF l_sec_result = OE_PC_GLOBALS.YES THEN
3152:
3153: -- if operation on any attribute is constrained
3154: IF l_sec_result = OE_PC_GLOBALS.YES THEN
3155: IF l_debug_level > 0 THEN
3156: oe_debug_pub.add( 'CONSTRAINT FOUND' , 4 ) ;
3157: END IF;
3158: RAISE FND_API.G_EXC_ERROR;
3159: END IF;
3160:
3167: p_old_line_rec.inventory_item_id)
3168:
3169: THEN
3170: IF l_debug_level > 0 THEN
3171: oe_debug_pub.add( 'SHIP FROM/TO/ITEM CHANGED ON LINE CALL PO' , 1 ) ;
3172: END IF;
3173: ELSE
3174: OE_GLOBALS.G_ATTR_UPDATED_BY_DEF := 'N';
3175:
3173: ELSE
3174: OE_GLOBALS.G_ATTR_UPDATED_BY_DEF := 'N';
3175:
3176: IF l_debug_level > 0 THEN
3177: oe_debug_pub.add( 'OLD SHIP :' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
3178: END IF;
3179: IF l_debug_level > 0 THEN
3180: oe_debug_pub.add( 'NEW SHIP :' || P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
3181: END IF;
3176: IF l_debug_level > 0 THEN
3177: oe_debug_pub.add( 'OLD SHIP :' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
3178: END IF;
3179: IF l_debug_level > 0 THEN
3180: oe_debug_pub.add( 'NEW SHIP :' || P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
3181: END IF;
3182: --8706868
3183: IF NOT OE_GLOBALS.Equal(p_x_line_rec.schedule_ship_date,
3184: p_old_line_rec.schedule_ship_date)
3187:
3188: THEN
3189:
3190: IF l_debug_level > 0 THEN
3191: oe_debug_pub.add( 'SHIP_DATE HAS CHANGED ON THE LINE' , 1 ) ;
3192: END IF;
3193:
3194: l_src_attr_tbl(1) := OE_LINE_UTIL.G_SCHEDULE_SHIP_DATE;
3195:
3198: p_x_line_rec => p_x_line_rec,
3199: p_old_line_rec => p_old_line_rec);
3200:
3201: IF l_debug_level > 0 THEN
3202: oe_debug_pub.add( 'DEFAULT ' || OE_GLOBALS.G_ATTR_UPDATED_BY_DEF , 1 ) ;
3203: END IF;
3204:
3205: IF OE_GLOBALS.G_ATTR_UPDATED_BY_DEF = 'N' THEN
3206: x_direct_update := 'Y';
3209: END IF;
3210: END IF; -- ship from/ship to change
3211:
3212: IF l_debug_level > 0 THEN
3213: oe_debug_pub.add( '------LEAVING SECURITY/DEF '|| X_DIRECT_UPDATE , 1 ) ;
3214: END IF;
3215: EXCEPTION
3216: WHEN OTHERS THEN
3217: IF l_debug_level > 0 THEN
3214: END IF;
3215: EXCEPTION
3216: WHEN OTHERS THEN
3217: IF l_debug_level > 0 THEN
3218: oe_debug_pub.add( 'CALL_SECURITY_AND_DEFAULTING '|| SQLERRM , 1 ) ;
3219: END IF;
3220: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
3221: RAISE;
3222: END Call_Security_And_Defaulting;
3233: l_order_type_id NUMBER := OE_Order_Cache.g_header_rec.order_type_id;
3234: l_return_status VARCHAR2(1);
3235: l_index NUMBER;
3236: --
3237: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3238: --
3239: BEGIN
3240:
3241: IF l_debug_level > 0 THEN
3238: --
3239: BEGIN
3240:
3241: IF l_debug_level > 0 THEN
3242: oe_debug_pub.add( 'ENTERING HANDLE_DIRECT_UPDATE' , 1 ) ;
3243: END IF;
3244:
3245: OE_MSG_PUB.set_msg_context
3246: ( p_entity_code => 'LINE'
3263: ,p_order_type_id => l_order_type_id
3264: ,x_return_status => l_return_status);
3265:
3266: IF l_debug_level > 0 THEN
3267: oe_debug_pub.add( 'AFTER LOG_SCHEDULING REQS' || L_RETURN_STATUS , 1 ) ;
3268: END IF;
3269:
3270: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3273: RAISE FND_API.G_EXC_ERROR;
3274: END IF;
3275:
3276: IF l_debug_level > 0 THEN
3277: oe_debug_pub.add( 'BEFORE DOING DIRECT UPDATE' , 1 ) ;
3278: END IF;
3279:
3280: IF NOT OE_SCHEDULE_UTIL.validate_ship_method
3281: (p_x_line_rec.shipping_method_code,
3338: p_line_id => p_x_line_rec.line_id,
3339: x_index => l_index,
3340: x_return_status => l_return_status);
3341: IF l_debug_level > 0 THEN
3342: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_SCHEDULE_UTIL.PROCESS_LINE IS: ' || L_RETURN_STATUS ) ;
3343: oe_debug_pub.add( 'GLOBAL PICTURE INDEX IS: ' || L_INDEX , 1 ) ;
3344: END IF;
3345:
3346: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3339: x_index => l_index,
3340: x_return_status => l_return_status);
3341: IF l_debug_level > 0 THEN
3342: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_SCHEDULE_UTIL.PROCESS_LINE IS: ' || L_RETURN_STATUS ) ;
3343: oe_debug_pub.add( 'GLOBAL PICTURE INDEX IS: ' || L_INDEX , 1 ) ;
3344: END IF;
3345:
3346: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3347: IF l_debug_level > 0 THEN
3344: END IF;
3345:
3346: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3347: IF l_debug_level > 0 THEN
3348: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
3349: END IF;
3350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3351: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3352: IF l_debug_level > 0 THEN
3349: END IF;
3350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3351: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3352: IF l_debug_level > 0 THEN
3353: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
3354: END IF;
3355: RAISE FND_API.G_EXC_ERROR;
3356: END IF;
3357: IF l_index is not NULL THEN
3369: OE_ORDER_UTIL.g_line_tbl(l_index).last_updated_by := p_x_line_rec.last_updated_by;
3370: OE_ORDER_UTIL.g_line_tbl(l_index).last_update_login := p_x_line_rec.last_update_login;
3371: OE_ORDER_UTIL.g_line_tbl(l_index).lock_control := p_x_line_rec.lock_control;
3372: IF l_debug_level > 0 THEN
3373: oe_debug_pub.add( 'GLOBAL SHIP_FROM_ORG_ID IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_INDEX ) .SHIP_FROM_ORG_ID , 1 ) ;
3374: END IF;
3375: END IF; /*l_index is not null check*/
3376: END IF; /*code_release_level*/
3377:
3375: END IF; /*l_index is not null check*/
3376: END IF; /*code_release_level*/
3377:
3378: IF l_debug_level > 0 THEN
3379: oe_debug_pub.add( 'LEAVING HANDLE DIRECT UPDATE' , 1 ) ;
3380: END IF;
3381:
3382: EXCEPTION
3383: WHEN OTHERS THEN
3381:
3382: EXCEPTION
3383: WHEN OTHERS THEN
3384: IF l_debug_level > 0 THEN
3385: oe_debug_pub.add( 'HANDLE_DIRECT_UPDATE ERROR '|| SQLERRM , 1 ) ;
3386: END IF;
3387: RAISE;
3388: END Handle_Direct_Update;
3389:
3411: l_error_code NUMBER;
3412: l_count NUMBER;
3413: I NUMBER;
3414: --
3415: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3416: --
3417: BEGIN
3418: Print_Time('entering Update_Reservation');
3419:
3425: p_line_rec.reserved_quantity <= 0 OR
3426: p_line_rec.ordered_quantity = 0
3427: THEN
3428: IF l_debug_level > 0 THEN
3429: oe_debug_pub.add( 'NO NEED TO UPDATE OR NO RESERVN' , 3 ) ;
3430: END IF;
3431: RETURN;
3432: END IF;
3433:
3440: l_rsv_rec.demand_source_line_id := p_line_rec.line_id;
3441: l_rsv_rec.organization_id := p_line_rec.ship_from_org_id;
3442:
3443: IF l_debug_level > 0 THEN
3444: oe_debug_pub.add( 'RSCH: CALLING INVS QUERY_RESERVATION ' , 1 ) ;
3445: END IF;
3446:
3447: Inv_Reservation_Pub.Query_Reservation
3448: ( p_api_version_number => 1.0
3457: , p_lock_records => l_lock_records
3458: , p_sort_by_req_date => l_sort_by_req_date );
3459:
3460: IF l_debug_level > 0 THEN
3461: oe_debug_pub.add( 'AFTER INVS QUERY_RESERVATION: ' || X_RETURN_STATUS , 1 ) ;
3462: END IF;
3463:
3464: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3465: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3467: RAISE FND_API.G_EXC_ERROR;
3468: END IF;
3469:
3470: IF l_debug_level > 0 THEN
3471: oe_debug_pub.add( 'RESERVATION REC COUNT: ' || L_RSV_TBL.COUNT , 1 ) ;
3472: END IF;
3473:
3474: I := l_rsv_tbl.FIRST;
3475: WHILE I is not NULL
3478: l_rsv_rec := l_rsv_tbl(I);
3479: l_rsv_rec.requirement_date := p_line_rec.schedule_ship_date;
3480:
3481: IF l_debug_level > 0 THEN
3482: oe_debug_pub.add( 'RSCH: CALLING UPDATE RESERVATION '|| I , 1 ) ;
3483: END IF;
3484:
3485: Inv_Reservation_Pub.Update_Reservation
3486: ( p_api_version_number => 1.0
3495: , p_validation_flag => fnd_api.g_true
3496: , p_over_reservation_flag => 2 ); -- Added this for 4715544
3497:
3498: IF l_debug_level > 0 THEN
3499: oe_debug_pub.add( 'AFTER UPDATE_RESERVATION: '||X_RETURN_STATUS , 1 ) ;
3500: END IF;
3501:
3502: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3522: fnd_message.set_encoded(l_msg_data);
3523: l_buffer := fnd_message.get;
3524: oe_msg_pub.add_text(p_message_text => l_buffer);
3525: IF l_debug_level > 0 THEN
3526: oe_debug_pub.add( 'ERROR : '|| L_BUFFER , 1 ) ;
3527: END IF;
3528: END IF;
3529: RAISE FND_API.G_EXC_ERROR;
3530: END IF;
3534:
3535: EXCEPTION
3536: WHEN OTHERS THEN
3537: IF l_debug_level > 0 THEN
3538: oe_debug_pub.add( 'UPDATE_RESERVATION ERROR '|| SQLERRM , 1 ) ;
3539: END IF;
3540: RAISE;
3541: END Update_Reservation;
3542:
3590: OR (arrival_set_id = p_arrival_set_id)
3591: OR (line_id = p_link_to_line_id));
3592:
3593: --
3594: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3595: --
3596: --sol_ord_er #16014165
3597: l_linetmp_tbl OE_Order_PUB.Line_Tbl_Type;
3598: l_new_ctr NUMBER := 0;
3607: p_arrival_set_id <> FND_API.G_MISS_NUM OR
3608: p_model_line_id <> FND_API.G_MISS_NUM )
3609: THEN
3610: IF l_debug_level > 0 THEN
3611: oe_debug_pub.add( 'INCORRECT IN PARAMETERS' , 1 ) ;
3612: END IF;
3613: RAISE FND_API.G_EXC_ERROR;
3614: END IF;
3615:
3623: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
3624: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
3625:
3626: IF l_debug_level > 0 THEN
3627: oe_debug_pub.add( 'CHECK IF II ITEMS REQ.' , 3 ) ;
3628: END IF;
3629:
3630: FOR parentrec in inc_parents
3631: LOOP
3629:
3630: FOR parentrec in inc_parents
3631: LOOP
3632: IF l_debug_level > 0 THEN
3633: oe_debug_pub.add( 'CALL II_ITEMS'|| PARENTREC.LINE_ID , 3 ) ;
3634: END IF;
3635: l_return_status := OE_CONFIG_UTIL.Process_Included_Items
3636: (p_line_id => parentrec.line_id,
3637: p_freeze => FALSE);
3650:
3651:
3652: IF p_arrival_set_id <> FND_API.G_MISS_NUM THEN
3653: IF l_debug_level > 0 THEN
3654: oe_debug_pub.add( 'ARRIVAL SET ID '|| P_ARRIVAL_SET_ID , 3 ) ;
3655: END IF;
3656:
3657: OE_Set_Util.Query_Set_Rows
3658: (p_set_id => p_arrival_set_id,
3659: x_line_tbl => x_line_tbl);
3660:
3661: ELSIF p_ship_set_id <> FND_API.G_MISS_NUM THEN
3662: IF l_debug_level > 0 THEN
3663: oe_debug_pub.add( 'SHIP SET ID '|| P_SHIP_SET_ID , 3 ) ;
3664: END IF;
3665:
3666: OE_Set_Util.Query_Set_Rows
3667: (p_set_id => p_ship_set_id,
3668: x_line_tbl => x_line_tbl);
3669:
3670: ELSIF p_model_line_id <> FND_API.G_MISS_NUM THEN
3671: IF l_debug_level > 0 THEN
3672: oe_debug_pub.add( 'P_TOP_MODEL_LINE_ID '|| P_MODEL_LINE_ID , 3 ) ;
3673: END IF;
3674:
3675: OE_Config_Util.Query_Options
3676: (p_top_model_line_id => p_model_line_id,
3679: x_line_tbl => x_line_tbl);
3680:
3681: ELSIF p_link_to_line_id <> FND_API.G_MISS_NUM THEN
3682: IF l_debug_level > 0 THEN
3683: oe_debug_pub.add( 'P_LINK_TO_LINE_ID '|| P_LINK_TO_LINE_ID , 3 ) ;
3684: END IF;
3685:
3686: OE_Config_Util.Query_Included_Items
3687: (p_line_id => p_link_to_line_id,
3692: END IF;
3693:
3694: IF x_line_tbl.count > 0 THEN
3695: IF l_debug_level > 0 THEN
3696: oe_debug_pub.add( 'NO. OF LINES '|| X_LINE_TBL.COUNT , 3 ) ;
3697: END IF;
3698: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id
3699: (p_header_id);
3700: END IF;
3732: THEN
3733: x_line_tbl(I).reserved_quantity := 0;
3734: ELSE
3735: IF l_debug_level > 0 THEN
3736: oe_debug_pub.add( 'LINE '|| X_LINE_TBL ( I ) .LINE_ID , 4 ) ;
3737: END IF;
3738: IF l_debug_level > 0 THEN
3739: oe_debug_pub.add( 'RES QTY '|| X_LINE_TBL ( I ) .RESERVED_QUANTITY , 4 ) ;
3740: END IF;
3735: IF l_debug_level > 0 THEN
3736: oe_debug_pub.add( 'LINE '|| X_LINE_TBL ( I ) .LINE_ID , 4 ) ;
3737: END IF;
3738: IF l_debug_level > 0 THEN
3739: oe_debug_pub.add( 'RES QTY '|| X_LINE_TBL ( I ) .RESERVED_QUANTITY , 4 ) ;
3740: END IF;
3741: END IF;
3742:
3743: IF x_line_tbl(I).reserved_quantity2 is NULL OR -- INVCONV
3745: THEN
3746: x_line_tbl(I).reserved_quantity2 := 0;
3747: ELSE
3748: IF l_debug_level > 0 THEN
3749: oe_debug_pub.add( 'LINE '|| X_LINE_TBL ( I ) .LINE_ID , 4 ) ;
3750: END IF;
3751: IF l_debug_level > 0 THEN
3752: oe_debug_pub.add( 'RES QTY2 '|| X_LINE_TBL ( I ) .RESERVED_QUANTITY2 , 4 ) ;
3753: END IF;
3748: IF l_debug_level > 0 THEN
3749: oe_debug_pub.add( 'LINE '|| X_LINE_TBL ( I ) .LINE_ID , 4 ) ;
3750: END IF;
3751: IF l_debug_level > 0 THEN
3752: oe_debug_pub.add( 'RES QTY2 '|| X_LINE_TBL ( I ) .RESERVED_QUANTITY2 , 4 ) ;
3753: END IF;
3754: END IF;
3755:
3756: I := x_line_tbl.NEXT(I);
3764: For l_ctr in x_line_tbl.FIRST .. x_line_tbl.LAST
3765: LOOP
3766: If NVL(x_line_tbl(l_ctr).subscription_enable_flag,'N') = 'Y' THEN
3767: If l_debug_level > 0 THEN
3768: oe_debug_pub.add( 'Line ID-- '||x_line_tbl(l_ctr).line_id||'..index '||l_ctr
3769: ||' is Subscription Line, removing from Query Set');
3770: End If;
3771: x_line_tbl.DELETE(l_ctr);
3772: Else
3771: x_line_tbl.DELETE(l_ctr);
3772: Else
3773: l_linetmp_tbl(l_new_ctr) := x_line_tbl(l_ctr);
3774: If l_debug_level > 0 THEN
3775: oe_debug_pub.add( 'Line ID-- '||x_line_tbl(l_ctr).line_id||'..index '||l_ctr
3776: ||' is retained in Query Set; new index..'||l_new_ctr);
3777: End If;
3778: l_new_ctr := l_new_ctr+1;
3779: End If;
3790: WHEN FND_API.G_EXC_ERROR THEN
3791: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
3792: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
3793: IF l_debug_level > 0 THEN
3794: oe_debug_pub.add( 'EXC ERROR IN Query_Set_Lines' , 1 ) ;
3795: END IF;
3796: x_return_status := FND_API.G_RET_STS_ERROR;
3797:
3798: WHEN OTHERS THEN
3822: ,p_sch_attibs IN VARCHAR2 := 'N'
3823: ,x_line_rec OUT NOCOPY /* file.sql.39 change */ OE_Order_Pub.Line_Rec_Type)
3824: IS
3825: --
3826: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3827: --
3828: BEGIN
3829: IF l_debug_level > 0 THEN
3830: oe_debug_pub.add( 'QUERY CA LINE_ID '|| P_LINE_ID , 1 ) ;
3826: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3827: --
3828: BEGIN
3829: IF l_debug_level > 0 THEN
3830: oe_debug_pub.add( 'QUERY CA LINE_ID '|| P_LINE_ID , 1 ) ;
3831: END IF;
3832: SELECT ATO_LINE_ID
3833: ,BOOKED_FLAG
3834: ,COMPONENT_CODE
3888: WHERE LINE_ID = P_LINE_ID;
3889: EXCEPTION
3890: WHEN OTHERS THEN
3891: IF l_debug_level > 0 THEN
3892: oe_debug_pub.add( 'ERROR IN QUERY_CONFIG_ATTRIBUTES '|| SQLERRM , 2 ) ;
3893: END IF;
3894: RAISE;
3895: END Query_Config_Attributes;
3896:
3927: IS
3928: l_return_status VARCHAR2(1);
3929: l_num_id NUMBER;
3930: --
3931: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3932: --
3933: BEGIN
3934: IF l_debug_level > 0 THEN
3935: oe_debug_pub.add( 'ENTERING VALIDATE_GROUP_REQUEST' , 1 ) ;
3931: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3932: --
3933: BEGIN
3934: IF l_debug_level > 0 THEN
3935: oe_debug_pub.add( 'ENTERING VALIDATE_GROUP_REQUEST' , 1 ) ;
3936: END IF;
3937:
3938: OE_MSG_PUB.set_msg_context
3939: ( p_entity_code => 'LINE'
3984: END IF;
3985:
3986:
3987: IF l_debug_level > 0 THEN
3988: oe_debug_pub.add( 'LEAVING VALIDATE_GROUP_REQUEST' , 1 ) ;
3989: END IF;
3990: END Validate_Group_Request;
3991:
3992:
3998: ( p_atp_rec IN MRP_ATP_PUB.ATP_Rec_Typ
3999: ,x_atp_rec OUT NOCOPY /* file.sql.39 change */ MRP_ATP_PUB.ATP_Rec_Typ)
4000: IS
4001: --
4002: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4003: --
4004: BEGIN
4005: IF l_debug_level > 0 THEN
4006: oe_debug_pub.add( 'ENTERING CALL_ATP' , 1 ) ;
4002: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4003: --
4004: BEGIN
4005: IF l_debug_level > 0 THEN
4006: oe_debug_pub.add( 'ENTERING CALL_ATP' , 1 ) ;
4007: END IF;
4008:
4009: x_atp_rec := p_atp_rec;
4010:
4016: x_atp_rec.Source_Organization_ID(I) := 204;
4017: END LOOP;
4018:
4019: IF l_debug_level > 0 THEN
4020: oe_debug_pub.add( 'LEAVING CALL_ATP' , 1 ) ;
4021: END IF;
4022: EXCEPTION
4023: WHEN OTHERS THEN
4024: IF l_debug_level > 0 THEN
4021: END IF;
4022: EXCEPTION
4023: WHEN OTHERS THEN
4024: IF l_debug_level > 0 THEN
4025: oe_debug_pub.add( 'ERROR IN CALL ATP '|| SQLERRM , 1 ) ;
4026: END IF;
4027: RAISE;
4028: END;
4029:
4044: ,x_result OUT NOCOPY /* file.sql.39 change */ NUMBER)
4045: IS
4046: l_unscheduled_line VARCHAR2(1) := 'N';
4047: --
4048: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4049: --
4050: BEGIN
4051:
4052: IF p_caller = 'UI_ACTION' THEN
4066: x_result := 1;
4067: END IF;
4068:
4069: IF l_debug_level > 0 THEN
4070: oe_debug_pub.add( 'MULTI GRP '|| X_RESULT , 3 ) ;
4071: END IF;
4072:
4073: ELSE
4074: IF p_line_tbl(p_line_tbl.FIRST).schedule_status_code is NULL
4073: ELSE
4074: IF p_line_tbl(p_line_tbl.FIRST).schedule_status_code is NULL
4075: THEN
4076: IF l_debug_level > 0 THEN
4077: oe_debug_pub.add( 'NOT SCHEDULED SINGLE GRP' , 3 ) ;
4078: END IF;
4079: x_result := 0;
4080: ELSE
4081: IF l_debug_level > 0 THEN
4078: END IF;
4079: x_result := 0;
4080: ELSE
4081: IF l_debug_level > 0 THEN
4082: oe_debug_pub.add( 'SCHEDULED SINGLE GRP' , 3 ) ;
4083: END IF;
4084: x_result := 2;
4085: END IF;
4086: END IF;
4096: PROCEDURE Print_Time(p_msg IN VARCHAR2)
4097: IS
4098: l_time VARCHAR2(100);
4099: --
4100: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4101: --
4102: BEGIN
4103: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
4104: 'DD-MON-YY HH24:MI:SS');
4102: BEGIN
4103: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
4104: 'DD-MON-YY HH24:MI:SS');
4105: IF l_debug_level > 0 THEN
4106: oe_debug_pub.add( P_MSG || ': '|| L_TIME , 1 ) ;
4107: END IF;
4108: END Print_Time;
4109:
4110: