[Home] [Help]
89: Return Copy_rec_type
90: IS
91: x_copy_rec copy_rec_type;
92: --
93: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
94: --
95: BEGIN
96: x_copy_rec.init_msg_list := FND_API.G_FALSE;
97: x_copy_rec.commit := FND_API.G_FALSE;
124: IS
125:
126: K NUMBER; -- Used as Index for loop.
127: --
128: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
129: --
130: BEGIN
131:
132: IF l_debug_level > 0 THEN
129: --
130: BEGIN
131:
132: IF l_debug_level > 0 THEN
133: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.FIND_LINEINDEX ' , 1 ) ;
134: END IF;
135:
136: k := p_line_tbl.FIRST;
137:
142:
143: -- Return Index
144:
145: IF l_debug_level > 0 THEN
146: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.FIND_LINEINDEX ' , 1 ) ;
147: END IF;
148: RETURN k;
149:
150: END IF;
154:
155: -- Line not in table
156:
157: IF l_debug_level > 0 THEN
158: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.FIND_LINEINDEX ' , 1 ) ;
159: END IF;
160: RETURN FND_API.G_MISS_NUM;
161:
162: END Find_LineIndex;
175: SELECT ORDER_CATEGORY_CODE --SELECT ORDER_CATEGORY_CODE
176: FROM OE_transaction_TYPES_all --FROM OE_ORDER_TYPES_V
177: WHERE TRANSACTION_TYPE_ID = p_order_type_in; --WHERE ORDER_TYPE_ID = p_order_type_in;
178: --
179: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
180: --
181: BEGIN
182:
183: IF l_debug_level > 0 THEN
180: --
181: BEGIN
182:
183: IF l_debug_level > 0 THEN
184: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.GET_ORDER_CATEGORY' , 1 ) ;
185: END IF;
186:
187: OPEN GET_ORDER_CAT (p_order_type_id);
188: FETCH GET_ORDER_CAT
190:
191: CLOSE GET_ORDER_CAT;
192:
193: IF l_debug_level > 0 THEN
194: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.GET_ORDER_CATEGORY' , 1 ) ;
195: END IF;
196:
197: RETURN l_category;
198: EXCEPTION
224: SELECT ORDER_CATEGORY_CODE --SELECT ORDER_CATEGORY_CODE
225: FROM OE_transaction_TYPES_all --FROM OE_LINE_TYPES_V
226: WHERE TRANSACTION_TYPE_ID = p_line_type_in; --WHERE LINE_TYPE_ID = p_line_type_in;
227: --
228: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
229: --
230: BEGIN
231:
232: IF l_debug_level > 0 THEN
229: --
230: BEGIN
231:
232: IF l_debug_level > 0 THEN
233: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.GET_LINE_CATEGORY' , 1 ) ;
234: END IF;
235:
236: OPEN GET_LINE_CAT(p_line_type_id);
237: FETCH GET_LINE_CAT
238: INTO l_category;
239: CLOSE GET_LINE_CAT;
240:
241: IF l_debug_level > 0 THEN
242: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.GET_LINE_CATEGORY' , 1 ) ;
243: END IF;
244:
245: RETURN l_category;
246: EXCEPTION
266: l_category VARCHAR2(30) := NULL;
267: l_line_type_id NUMBER;
268: l_line_type VARCHAR2(240);
269: --
270: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
271: --
272: BEGIN
273: IF l_debug_level > 0 THEN
274: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.GET_DEFAULT_LINE' , 1 ) ;
270: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
271: --
272: BEGIN
273: IF l_debug_level > 0 THEN
274: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.GET_DEFAULT_LINE' , 1 ) ;
275: END IF;
276: l_category := get_order_category(p_order_type_id);
277:
278: BEGIN
283: WHERE transaction_type_id = p_order_type_id;
284: ELSE
285:
286: IF l_debug_level > 0 THEN
287: oe_debug_pub.add( 'BEFORE DEFAULT LINE_TYPE' , 2 ) ;
288: END IF;
289: SELECT default_outbound_line_type_id
290: INTO l_line_type_id
291: FROM oe_transaction_types_v
292: WHERE transaction_type_id = p_order_type_id;
293: END IF;
294:
295: IF l_debug_level > 0 THEN
296: oe_debug_pub.add( 'BEFORE LINE_TYPE ID' , 2 ) ;
297: END IF;
298: SELECT name
299: INTO l_line_type
300: FROM Oe_line_types_v
309:
310: END;
311:
312: IF l_debug_level > 0 THEN
313: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.GET_DEFAULT_LINE' , 1 ) ;
314: END IF;
315: x_line_type_id := l_line_type_id;
316: Return l_line_type;
317:
318: EXCEPTION
319: WHEN OTHERS THEN
320:
321: IF l_debug_level > 0 THEN
322: oe_debug_pub.add( 'IN OTHERS ASWIN' , 2 ) ;
323: END IF;
324:
325: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
326: THEN
355: FROM OE_ORDER_HEADERS
356: WHERE header_id = p_header_in;
357:
358: --
359: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
360: --
361: BEGIN
362:
363: IF l_debug_level > 0 THEN
360: --
361: BEGIN
362:
363: IF l_debug_level > 0 THEN
364: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.GET_DOCUMENT_INFO' , 1 ) ;
365: END IF;
366:
367: IF G_DOC_HEADER_ID IS NOT NULL THEN
368: IF p_header_id = G_DOC_HEADER_ID THEN
395:
396: CLOSE GET_DOC_INFO;
397:
398: IF l_debug_level > 0 THEN
399: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.GET_DOCUMENT_INFO' , 1 ) ;
400: END IF;
401:
402: EXCEPTION
403: WHEN OTHERS THEN
422: l_orig_category VARCHAR2(30);
423: l_cpy_category VARCHAR2(30);
424: l_orig_ship_from_org_id OE_Order_Headers.ship_from_org_id%TYPE;
425: --
426: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
427: --
428: --R12 CC Encryption
429: l_payment_exists VARCHAR2(1) := 'N';
430: --R12 CC Encryption
430: --R12 CC Encryption
431: BEGIN
432:
433: IF l_debug_level > 0 THEN
434: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.COPY_HEADER' , 1 ) ;
435: END IF;
436:
437: -- Query the Header to be copied
438:
436:
437: -- Query the Header to be copied
438:
439: IF l_debug_level > 0 THEN
440: oe_debug_pub.add( 'ORDER HEADER IS '||TO_CHAR ( P_HEADER_ID ) , 2 ) ;
441: END IF;
442:
443: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
444: OE_Version_History_Util.Query_row(p_header_id => p_header_id,
450: x_header_rec => x_header_rec);
451: END IF;
452:
453: IF l_debug_level > 0 THEN
454: oe_debug_pub.add( 'After querying Header '||x_header_rec.order_number,1);
455: END IF;
456:
457: /* Added the following code to null out nocopy acknowledgement related fields in the order header , to fix the bug 1862719 */
458:
518: x_header_rec.order_firmed_date := FND_API.G_MISS_DATE ;
519: --end
520:
521: IF l_debug_level > 0 THEN
522: oe_debug_pub.add( 'ORDER TO BE COPIED IS '||TO_CHAR ( X_HEADER_REC.ORDER_NUMBER ) , 2 ) ;
523: END IF;
524:
525: -- Query Original Order Category
526:
585: /* To fix bug 1765169 */
586: --commented for bug# 14098858 x_header_rec.pricing_date := sysdate ;
587: --start fix# 14098858 if pricing at original then copy the same else copy date from UI else depend upon defaulting rule
588: IF l_debug_level>0 then
589: oe_debug_pub.add('Bug# 14098858 p_copy_rec.line_price_mode - '||p_copy_rec.line_price_mode);
590: END IF ;
591:
592: IF p_copy_rec.line_price_mode = G_CPY_REPRICE then
593: If p_copy_rec.line_price_date is not null then
599: IF x_header_rec.PRICING_DATE IS NULL THEN
600: x_header_rec.PRICING_DATE := FND_API.G_MISS_DATE;
601: END IF;
602: IF l_debug_level>0 then
603: oe_debug_pub.add('Bug# 14098858 Header pricing_date - '||x_header_rec.pricing_date);
604: END IF ;
605: --end fix# 14098858
606:
607: /* To fix bug 1794902 */
645:
646: -- retain the original behavior if multiple payments not enabled.
647: IF NOT OE_PREPAYMENT_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED THEN
648: IF l_debug_level > 0 THEN
649: oe_debug_pub.add('Multiple Payments not enabled, old code path.', 3 ) ;
650: END IF;
651:
652: IF (p_copy_rec.hdr_payments = FND_API.G_FALSE) THEN
653: x_header_rec.credit_card_number := FND_API.G_MISS_CHAR;
676: EXCEPTION
677: WHEN NO_DATA_FOUND THEN
678: l_payment_exists := 'N';
679: IF l_debug_level >0 THEN
680: oe_debug_pub.add('Header id'||p_header_id);
681: END IF;
682: END;
683: IF l_payment_exists = 'Y' THEN
684: x_header_rec.payment_type_code := FND_API.G_MISS_CHAR; --BUG#10089312
816: END IF;
817:
818: /* Take the comment out nocopy once testing is done in omhut2 */
819: IF l_debug_level > 0 THEN
820: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.COPY_HEADER ' , 1 ) ;
821: END IF;
822:
823:
824: EXCEPTION
825:
826: WHEN OTHERS THEN
827:
828: IF l_debug_level > 0 THEN
829: oe_debug_pub.add( 'IN OTHERS' , 2 ) ;
830: END IF;
831:
832: If OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
833: THEN
836: , l_api_name
837: );
838: END IF;
839:
840: OE_DEBUG_PUB.DumpDebug;
841:
842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
843:
844: END Copy_Header;
851: ,x_Header_Scredit_tbl IN OUT NOCOPY OE_Order_PUB.Header_Scredit_Tbl_Type)
852: IS
853: l_api_name CONSTANT VARCHAR(30) := 'Load_and_Init_Hdr_Scredits';
854: --
855: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
856: --
857: BEGIN
858:
859: IF l_debug_level > 0 THEN
856: --
857: BEGIN
858:
859: IF l_debug_level > 0 THEN
860: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_HDR_SCREDITS' , 1 ) ;
861: END IF;
862:
863: -- Load Header Sales Credits
864: BEGIN
896:
897: END IF; -- Table has rows
898:
899: IF l_debug_level > 0 THEN
900: oe_debug_pub.add( 'HEADER SC IS '||TO_CHAR ( X_HEADER_SCREDIT_TBL.COUNT ) , 2 ) ;
901: END IF;
902:
903: IF l_debug_level > 0 THEN
904: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_HDR_SCREDITS' , 1 ) ;
900: oe_debug_pub.add( 'HEADER SC IS '||TO_CHAR ( X_HEADER_SCREDIT_TBL.COUNT ) , 2 ) ;
901: END IF;
902:
903: IF l_debug_level > 0 THEN
904: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_HDR_SCREDITS' , 1 ) ;
905: END IF;
906:
907:
908:
910:
911: WHEN OTHERS THEN
912:
913: IF l_debug_level > 0 THEN
914: oe_debug_pub.add( 'IN OTHERS' , 2 ) ;
915: END IF;
916:
917: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
918: THEN
921: , l_api_name
922: );
923: END IF;
924:
925: OE_DEBUG_PUB.DumpDebug;
926:
927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
928:
929: END Load_and_Init_Hdr_Scredits;
943: l_return_status VARCHAR2(1);
944: l_v_number NUMBER;
945:
946: --
947: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
948: --
949: BEGIN
950:
951:
949: BEGIN
950:
951:
952: IF l_debug_level > 0 THEN
953: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_HDR_HOLDS' , 1 ) ;
954: END IF;
955:
956: -- Since the action request table could already have rows in it
957: -- set the index appropriately.
978:
979: -- Load Order Based holds for Copying
980:
981: IF l_debug_level > 0 THEN
982: oe_debug_pub.add( 'CALLING OE_HOLD_SOURCES_PVT.QUERY_HOLD_SOURCE' , 2 ) ;
983: END IF;
984:
985: OE_HOLD_SOURCES_PVT.QUERY_HOLD_SOURCE(p_header_id,
986: l_hold_source_tbl,
990: RAISE FND_API.G_EXC_ERROR;
991: END IF;
992:
993: IF l_debug_level > 0 THEN
994: oe_debug_pub.add( 'AFTER OE_HOLD_SOURCES_PVT.QUERY_HOLD_SOURCE' , 2 ) ;
995: END IF;
996:
997: IF (l_hold_source_tbl.COUNT > 0) THEN
998: FOR curr in l_hold_source_tbl.FIRST .. l_hold_source_tbl.LAST LOOP
1002: IF l_hold_source_tbl(curr).hold_entity_code = 'O'
1003: AND l_hold_source_tbl(curr).hold_id >= 1000 THEN
1004:
1005: IF l_debug_level > 0 THEN
1006: oe_debug_pub.add( 'LOADING HOLD SOURCE '|| TO_CHAR ( L_HOLD_SOURCE_TBL ( CURR ) .HOLD_ID ) , 2 ) ;
1007: END IF;
1008:
1009: l_action_request_tbl(k).entity_code := OE_GLOBALS.G_ENTITY_HEADER;
1010: l_action_request_tbl(k).request_type:= OE_Globals.G_APPLY_HOLD;
1016: l_action_request_tbl(k).date_param1 :=
1017: l_hold_source_tbl(curr).hold_until_date;
1018:
1019: IF l_debug_level > 0 THEN
1020: oe_debug_pub.add( 'AFTER LOADING HOLD SOURCE DATE' , 3 ) ;
1021: END IF;
1022:
1023: -- load Hold source desc flex
1024: l_action_request_tbl(k).param10 := l_hold_source_tbl(curr).context;
1044: END LOOP;
1045: END IF; -- Table has records
1046:
1047: IF l_debug_level > 0 THEN
1048: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_HDR_HOLDS' , 1 ) ;
1049: END IF;
1050:
1051: RETURN l_action_request_tbl;
1052:
1055:
1056: WHEN OTHERS THEN
1057:
1058: IF l_debug_level > 0 THEN
1059: oe_debug_pub.add( 'IN OTHERS' , 3 ) ;
1060: END IF;
1061:
1062: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1063: THEN
1066: , l_api_name
1067: );
1068: END IF;
1069:
1070: OE_DEBUG_PUB.DumpDebug;
1071:
1072: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1073:
1074: END Load_and_Init_Hdr_Holds;
1088: L_msg_count NUMBER;
1089: L_msg_data VARCHAR2(2000);
1090: --R12 CC Encryption
1091:
1092: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1093:
1094: BEGIN
1095:
1096: IF l_debug_level > 0 THEN
1093:
1094: BEGIN
1095:
1096: IF l_debug_level > 0 THEN
1097: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.Load_and_Init_Hdr_Payments', 3
1098: ) ;
1099: END IF;
1100:
1101: x_Header_Payment_tbl.delete;
1103: (p_header_id => p_header_id,
1104: x_header_payment_tbl => x_header_payment_tbl);
1105:
1106: IF l_debug_level > 0 THEN
1107: oe_debug_pub.add( 'After query_rows, the count is: '|| x_header_payment_tbl.COUNT,3) ;
1108: END IF;
1109:
1110: IF x_header_payment_tbl.COUNT > 0 THEN
1111: -- assign G_MISS to those attributes that are not copied.
1119: x_header_payment_tbl(k).credit_card_approval_code := FND_API.G_MISS_CHAR;
1120: x_header_payment_tbl(k).payment_amount := 0;
1121: x_header_payment_tbl(k).payment_set_id := FND_API.G_MISS_NUM;
1122: IF l_debug_level > 0 THEN
1123: oe_debug_pub.add('trxn_extension id'||x_header_payment_tbl(k).trxn_extension_id);
1124: END IF;
1125:
1126: --R12 CC Encryption
1127: /*IF x_header_payment_tbl(k).payment_type_code
1172: END LOOP;
1173: END IF;
1174:
1175: IF l_debug_level > 0 THEN
1176: oe_debug_pub.add( 'Exiting OE_ORDER_COPY_UTIL.Load_and_Init_Hdr_Payments', 3) ;
1177: END IF;
1178: END Load_and_Init_Hdr_Payments;
1179:
1180:
1190: l_hold_source_tbl OE_Hold_Sources_PVT.Hold_Source_TBL;
1191: l_return_status VARCHAR2(1);
1192:
1193: --
1194: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1195: --
1196: BEGIN
1197:
1198: IF l_debug_level > 0 THEN
1195: --
1196: BEGIN
1197:
1198: IF l_debug_level > 0 THEN
1199: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_LINE_HOLDS' , 1 ) ;
1200: END IF;
1201:
1202: k := p_action_request_tbl.COUNT + 1;
1203:
1203:
1204: -- Load Order Based holds for Copying
1205:
1206: IF l_debug_level > 0 THEN
1207: oe_debug_pub.add( 'CALLING OE_HOLD_SOURCES_PVT.Query_Line__Hold_Source' , 2 ) ;
1208: END IF;
1209:
1210: OE_HOLD_SOURCES_PVT.Query_Line__Hold_Source(p_line_id,
1211: l_hold_source_tbl,
1215: RAISE FND_API.G_EXC_ERROR;
1216: END IF;
1217:
1218: IF l_debug_level > 0 THEN
1219: oe_debug_pub.add('AFTER Query_Line__Hold_Source count '||l_hold_source_tbl.COUNT) ;
1220: END IF;
1221:
1222: IF (l_hold_source_tbl.COUNT > 0) THEN
1223:
1228: IF l_hold_source_tbl(curr).hold_entity_code = 'O'
1229: AND l_hold_source_tbl(curr).hold_id >= 1000 THEN
1230:
1231: IF l_debug_level > 0 THEN
1232: oe_debug_pub.add( 'LOADING HOLD SOURCE '|| TO_CHAR ( L_HOLD_SOURCE_TBL ( CURR ) .HOLD_ID ) , 2 ) ;
1233: END IF;
1234:
1235: p_action_request_tbl(k).entity_code := OE_GLOBALS.G_ENTITY_LINE;
1236: p_action_request_tbl(k).entity_id := p_new_line_id;
1243: p_action_request_tbl(k).date_param1 :=
1244: l_hold_source_tbl(curr).hold_until_date;
1245:
1246: IF l_debug_level > 0 THEN
1247: oe_debug_pub.add( 'AFTER LOADING HOLD SOURCE DATE' , 3 ) ;
1248: END IF;
1249:
1250: -- load Hold source desc flex
1251: p_action_request_tbl(k).param10 := l_hold_source_tbl(curr).context;
1271: END LOOP;
1272: END IF; -- Table has records
1273:
1274: IF l_debug_level > 0 THEN
1275: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_LINE_HOLDS' , 1 ) ;
1276: END IF;
1277:
1278:
1279: EXCEPTION
1280:
1281: WHEN OTHERS THEN
1282:
1283: IF l_debug_level > 0 THEN
1284: oe_debug_pub.add( 'IN OTHERS' , 3 ) ;
1285: END IF;
1286:
1287: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1288: THEN
1291: , l_api_name
1292: );
1293: END IF;
1294:
1295: OE_DEBUG_PUB.DumpDebug;
1296:
1297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1298:
1299: END Load_and_Init_Line_Holds;
1318: l_top_model_index NUMBER;
1319: k NUMBER;
1320: j NUMBER := 1;
1321: --
1322: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1323: --
1324: BEGIN
1325:
1326: IF l_debug_level > 0 THEN
1323: --
1324: BEGIN
1325:
1326: IF l_debug_level > 0 THEN
1327: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.HANDLE_RETURN_LINES ' , 1 ) ;
1328: END IF;
1329:
1330: -- Initialize local table
1331:
1433: k := l_line_tbl.NEXT(k);
1434: END LOOP;
1435:
1436: IF l_debug_level > 0 THEN
1437: oe_debug_pub.add('Exiting OE_ORDER_COPY_UTIL.HANDLE_RETURN_LINES',1);
1438: END IF;
1439:
1440: p_x_line_tbl := l_line_out_tbl;
1441:
1479: l_part_of_container VARCHAR2(1);
1480: l_config_mode NUMBER;
1481: l_ret_status VARCHAR2(1);
1482: --
1483: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1484: --
1485: l_top NUMBER;
1486: idx NUMBER;
1487: BEGIN
1486: idx NUMBER;
1487: BEGIN
1488:
1489: IF l_debug_level > 0 THEN
1490: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.HANDLE_NONSTANDARD_LINES ' , 1 ) ;
1491: END IF;
1492: --ER 2264774
1493: --Load PRG lines in memory, it will used
1494: --for matching during line processing.
1513: --MACD------------------------------------------------------
1514:
1515: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110510' THEN
1516: IF l_debug_level > 0 THEN
1517: OE_DEBUG_PUB.Add('RowCount:'||l_line_tbl.COUNT,3);
1518: OE_DEBUG_PUB.Add('MACD-Copy Level is:'
1519: ||G_ORDER_LEVEL_COPY,3);
1520: END IF;
1521:
1514:
1515: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110510' THEN
1516: IF l_debug_level > 0 THEN
1517: OE_DEBUG_PUB.Add('RowCount:'||l_line_tbl.COUNT,3);
1518: OE_DEBUG_PUB.Add('MACD-Copy Level is:'
1519: ||G_ORDER_LEVEL_COPY,3);
1520: END IF;
1521:
1522: OE_CONFIG_TSO_PVT.Is_Part_Of_Container_Model
1527: ,x_top_container_model => l_top_container_model
1528: ,x_part_of_container => l_part_of_container );
1529:
1530: IF l_debug_level > 0 THEN
1531: OE_DEBUG_PUB.Add('Line ID:'||l_line_tbl(k).line_id,2);
1532: OE_DEBUG_PUB.Add('TopLine:'||l_line_tbl(k).top_model_line_id,2);
1533: OE_DEBUG_PUB.Add('Top Container:'||l_top_container_model,3);
1534: OE_DEBUG_PUB.Add('Part of Container:'||l_part_of_container,3);
1535: END IF;
1528: ,x_part_of_container => l_part_of_container );
1529:
1530: IF l_debug_level > 0 THEN
1531: OE_DEBUG_PUB.Add('Line ID:'||l_line_tbl(k).line_id,2);
1532: OE_DEBUG_PUB.Add('TopLine:'||l_line_tbl(k).top_model_line_id,2);
1533: OE_DEBUG_PUB.Add('Top Container:'||l_top_container_model,3);
1534: OE_DEBUG_PUB.Add('Part of Container:'||l_part_of_container,3);
1535: END IF;
1536:
1529:
1530: IF l_debug_level > 0 THEN
1531: OE_DEBUG_PUB.Add('Line ID:'||l_line_tbl(k).line_id,2);
1532: OE_DEBUG_PUB.Add('TopLine:'||l_line_tbl(k).top_model_line_id,2);
1533: OE_DEBUG_PUB.Add('Top Container:'||l_top_container_model,3);
1534: OE_DEBUG_PUB.Add('Part of Container:'||l_part_of_container,3);
1535: END IF;
1536:
1537: IF l_part_of_container = 'Y' THEN
1530: IF l_debug_level > 0 THEN
1531: OE_DEBUG_PUB.Add('Line ID:'||l_line_tbl(k).line_id,2);
1532: OE_DEBUG_PUB.Add('TopLine:'||l_line_tbl(k).top_model_line_id,2);
1533: OE_DEBUG_PUB.Add('Top Container:'||l_top_container_model,3);
1534: OE_DEBUG_PUB.Add('Part of Container:'||l_part_of_container,3);
1535: END IF;
1536:
1537: IF l_part_of_container = 'Y' THEN
1538:
1538:
1539: IF G_ORDER_LEVEL_COPY = 0 THEN
1540:
1541: IF l_debug_level > 0 THEN
1542: OE_DEBUG_PUB.Add('MACD:No line level copy allowed!',3);
1543: END IF;
1544:
1545: l_line_tbl.DELETE(k);
1546: --bug3441056 start
1552: ELSIF G_ORDER_LEVEL_COPY = 1 THEN
1553:
1554: IF l_line_tbl(k).booked_flag = 'Y' THEN
1555: IF l_debug_level > 0 THEN
1556: OE_DEBUG_PUB.Add('Order level copy, booked=Y',3);
1557: OE_DEBUG_PUB.Add('Header:'||l_line_tbl(k).header_id,3);
1558: OE_DEBUG_PUB.Add('TopLine:'||l_line_tbl(k).top_model_line_id,3);
1559: OE_DEBUG_PUB.Add('LineID:'||l_line_tbl(k).line_id,3);
1560: END IF;
1553:
1554: IF l_line_tbl(k).booked_flag = 'Y' THEN
1555: IF l_debug_level > 0 THEN
1556: OE_DEBUG_PUB.Add('Order level copy, booked=Y',3);
1557: OE_DEBUG_PUB.Add('Header:'||l_line_tbl(k).header_id,3);
1558: OE_DEBUG_PUB.Add('TopLine:'||l_line_tbl(k).top_model_line_id,3);
1559: OE_DEBUG_PUB.Add('LineID:'||l_line_tbl(k).line_id,3);
1560: END IF;
1561:
1554: IF l_line_tbl(k).booked_flag = 'Y' THEN
1555: IF l_debug_level > 0 THEN
1556: OE_DEBUG_PUB.Add('Order level copy, booked=Y',3);
1557: OE_DEBUG_PUB.Add('Header:'||l_line_tbl(k).header_id,3);
1558: OE_DEBUG_PUB.Add('TopLine:'||l_line_tbl(k).top_model_line_id,3);
1559: OE_DEBUG_PUB.Add('LineID:'||l_line_tbl(k).line_id,3);
1560: END IF;
1561:
1562: OE_CONFIG_TSO_PVT.Get_MACD_Action_Mode
1555: IF l_debug_level > 0 THEN
1556: OE_DEBUG_PUB.Add('Order level copy, booked=Y',3);
1557: OE_DEBUG_PUB.Add('Header:'||l_line_tbl(k).header_id,3);
1558: OE_DEBUG_PUB.Add('TopLine:'||l_line_tbl(k).top_model_line_id,3);
1559: OE_DEBUG_PUB.Add('LineID:'||l_line_tbl(k).line_id,3);
1560: END IF;
1561:
1562: OE_CONFIG_TSO_PVT.Get_MACD_Action_Mode
1563: ( p_top_model_line_id => l_line_tbl(k).top_model_line_id
1566: ,x_return_status => l_ret_status );
1567:
1568: IF l_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1569: IF l_debug_level > 0 THEN
1570: OE_DEBUG_PUB.Add('Error in Get_MACD_Action_Mode',3);
1571: END IF;
1572: END IF;
1573:
1574: -- config mode of 4 indicates macd reconfig
1573:
1574: -- config mode of 4 indicates macd reconfig
1575: IF l_config_mode = 4 THEN
1576: IF l_debug_level > 0 THEN
1577: OE_DEBUG_PUB.Add('Order is a reconfiguration!',2);
1578: END IF;
1579:
1580: l_line_tbl.DELETE(k);
1581:
1591: END IF; --part of container = Y
1592:
1593: ELSE
1594: IF l_debug_level > 0 THEN
1595: OE_DEBUG_PUB.Add('Not in 110510. No MACD Logic Executed!',3);
1596: END IF;
1597: END IF;
1598: --bug3441056 contd
1599: --this label has been moved with the rest of the labels
1689:
1690: IF l_line_tbl(k).item_type_code = (OE_GLOBALS.G_ITEM_OPTION) THEN
1691:
1692: IF l_debug_level > 0 THEN
1693: oe_debug_pub.add( ' OPTION 1' || TO_CHAR ( L_LINE_TBL ( K ) .LINE_ID ) , 1 ) ;
1694: END IF;
1695:
1696: -- Find if Parent Line has been passed In
1697: IF l_line_tbl(k).top_model_line_id IS NOT NULL THEN
1744: /* End 3923574 */
1745:
1746: /* Populate indexes in the new table.
1747:
1748: oe_debug_pub.add('OPTION 3' || to_char(l_line_tbl(k).line_id));
1749: l_line_tbl(k).top_model_line_index := l_top_model_index;
1750: l_line_tbl(k).link_to_line_index := l_link_to_index;
1751: */
1752: END IF; -- Option
1756:
1757: IF l_line_tbl(k).item_type_code = (OE_GLOBALS.G_ITEM_CLASS) THEN
1758:
1759: IF l_debug_level > 0 THEN
1760: oe_debug_pub.add( 'CLASS 1' || TO_CHAR ( L_LINE_TBL ( K ) .LINE_ID ) , 1 ) ;
1761: END IF;
1762:
1763: -- Find if Parent Line has been passed In
1764: IF l_line_tbl(k).top_model_line_id IS NOT NULL THEN
1807:
1808: IF l_line_tbl(k).item_type_code = (OE_GLOBALS.G_ITEM_SERVICE) THEN
1809:
1810: IF l_debug_level > 0 THEN
1811: oe_debug_pub.add( 'SERVICE ' || TO_CHAR ( L_LINE_TBL ( K ) .LINE_ID ) , 2 ) ;
1812: END IF;
1813:
1814: -- Find if Parent Line has been passed In and Not a Customer Product
1815: IF l_line_tbl(k).service_reference_line_id IS NOT NULL AND
1860: END;
1861:
1862: IF l_line_tbl.EXISTS(k) THEN
1863: IF l_debug_level > 0 THEN
1864: OE_DEBUG_PUB.Add('Adding to Out tbl:'||l_line_tbl(k).line_id);
1865: END IF;
1866: l_line_out_tbl(j) := l_line_tbl(k);
1867: j := j + 1;
1868:
1882: IF (l_line_out_tbl(k).top_model_line_id IS NOT NULL AND
1883: l_line_out_tbl(k).top_model_line_id = l_line_out_tbl(k).line_id )
1884: THEN
1885: IF l_debug_level > 0 THEN
1886: oe_debug_pub.add('top_model_line_id: :'||l_line_out_tbl(k).top_model_line_id,1);
1887: oe_debug_pub.add('line_id :'||l_line_out_tbl(k).line_id,1);
1888: END IF ;
1889: --bug 14072820 IF Only_Model(l_line_out_tbl,l_line_out_tbl(k).top_model_line_id) THEN
1890: IF G_COPY_REC.copy_complete_config = FND_API.G_FALSE AND Only_Model(l_line_out_tbl,l_line_out_tbl(k).top_model_line_id) THEN --added for bug 14072820
1883: l_line_out_tbl(k).top_model_line_id = l_line_out_tbl(k).line_id )
1884: THEN
1885: IF l_debug_level > 0 THEN
1886: oe_debug_pub.add('top_model_line_id: :'||l_line_out_tbl(k).top_model_line_id,1);
1887: oe_debug_pub.add('line_id :'||l_line_out_tbl(k).line_id,1);
1888: END IF ;
1889: --bug 14072820 IF Only_Model(l_line_out_tbl,l_line_out_tbl(k).top_model_line_id) THEN
1890: IF G_COPY_REC.copy_complete_config = FND_API.G_FALSE AND Only_Model(l_line_out_tbl,l_line_out_tbl(k).top_model_line_id) THEN --added for bug 14072820
1891:
1889: --bug 14072820 IF Only_Model(l_line_out_tbl,l_line_out_tbl(k).top_model_line_id) THEN
1890: IF G_COPY_REC.copy_complete_config = FND_API.G_FALSE AND Only_Model(l_line_out_tbl,l_line_out_tbl(k).top_model_line_id) THEN --added for bug 14072820
1891:
1892: IF l_debug_level > 0 THEN
1893: oe_debug_pub.add(' Only Model Line being Copied, so no configuration :',1);
1894: END IF ;
1895:
1896: l_line_out_tbl(k).config_header_id :=NULL;
1897: l_line_out_tbl(k).config_rev_nbr :=NULL;
1909: --end Bugfix 9004082
1910:
1911:
1912: IF l_debug_level > 0 THEN
1913: oe_debug_pub.add('Exiting OE_ORDER_COPY_UTIL.HANDLE_NONSTANDARD_LINES ',1);
1914: END IF;
1915: p_x_line_tbl := l_line_out_tbl;
1916:
1917: --ER 2264774
1963: K NUMBER;
1964: J NUMBER;
1965: l_in_config_header_id NUMBER;
1966: --
1967: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1968: --
1969:
1970: l_part_of_container VARCHAR2(1);
1971: l_top_container_model VARCHAR2(1);
1971: l_top_container_model VARCHAR2(1);
1972:
1973: BEGIN
1974: IF l_debug_level > 0 THEN
1975: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.LOAD_LINES' , 1 ) ;
1976: oe_debug_pub.add('p_all_lines is ' || p_all_lines , 1 ) ;
1977: END IF;
1978:
1979: IF p_hdr_type_id IS NOT NULL THEN
1972:
1973: BEGIN
1974: IF l_debug_level > 0 THEN
1975: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.LOAD_LINES' , 1 ) ;
1976: oe_debug_pub.add('p_all_lines is ' || p_all_lines , 1 ) ;
1977: END IF;
1978:
1979: IF p_hdr_type_id IS NOT NULL THEN
1980: l_cpy_category := get_order_category(p_hdr_type_id);
2041: ELSE -- When the destination is Mixed or Order.
2042:
2043:
2044: IF l_debug_level > 0 THEN
2045: oe_debug_pub.add( 'CALLING HANDLE_NONSTANDARD_LINES' , 1 ) ;
2046: END IF;
2047: /* Start 3923574 */
2048: Handle_NonStandard_Lines(x_line_tbl
2049: ,p_incl_cancelled
2104: NVL(x_top_model_tbl(I).has_canceled_lines, 'N') = 'N'
2105: THEN
2106: IF OE_CODE_CONTROL.Get_Code_Release_Level < '110509' THEN
2107: IF l_debug_level > 0 THEN
2108: oe_debug_pub.add('1923460: ABOUT TO RUN COPY CONFIGURATION' , 1 ) ;
2109: END IF;
2110:
2111: l_dynamicSqlString := '
2112: Begin
2138: out_config_hdr_id;
2139: x_top_model_tbl(I).config_rev_nbr :=
2140: out_config_rev_nbr;
2141: IF l_debug_level > 0 THEN
2142: oe_debug_pub.add( '1923460: INDEX IS '
2143: ||TO_CHAR ( I ) , 1 ) ;
2144: oe_debug_pub.add( '1923460: OUT_CONFIG_HEADER_ID
2145: IS '||TO_CHAR ( OUT_CONFIG_HDR_ID ) , 1 ) ;
2146: oe_debug_pub.add( '1923460: OUT_CONFIG_REV_NBR IS '
2140: out_config_rev_nbr;
2141: IF l_debug_level > 0 THEN
2142: oe_debug_pub.add( '1923460: INDEX IS '
2143: ||TO_CHAR ( I ) , 1 ) ;
2144: oe_debug_pub.add( '1923460: OUT_CONFIG_HEADER_ID
2145: IS '||TO_CHAR ( OUT_CONFIG_HDR_ID ) , 1 ) ;
2146: oe_debug_pub.add( '1923460: OUT_CONFIG_REV_NBR IS '
2147: ||TO_CHAR ( OUT_CONFIG_REV_NBR ) , 1 ) ;
2148: END IF;
2142: oe_debug_pub.add( '1923460: INDEX IS '
2143: ||TO_CHAR ( I ) , 1 ) ;
2144: oe_debug_pub.add( '1923460: OUT_CONFIG_HEADER_ID
2145: IS '||TO_CHAR ( OUT_CONFIG_HDR_ID ) , 1 ) ;
2146: oe_debug_pub.add( '1923460: OUT_CONFIG_REV_NBR IS '
2147: ||TO_CHAR ( OUT_CONFIG_REV_NBR ) , 1 ) ;
2148: END IF;
2149: ELSE
2150: IF l_debug_level > 0 THEN
2147: ||TO_CHAR ( OUT_CONFIG_REV_NBR ) , 1 ) ;
2148: END IF;
2149: ELSE
2150: IF l_debug_level > 0 THEN
2151: oe_debug_pub.add( '1923460: FAILED IN COPY
2152: CONFIGURATION' , 1 ) ;
2153: END IF;
2154: END IF;
2155:
2155:
2156: ELSE -- pack I onwards
2157:
2158: IF l_debug_level > 0 THEN
2159: oe_debug_pub.add( 'NEW COPY CONFIG API' , 1 ) ;
2160: END IF;
2161:
2162: l_in_config_header_id := x_line_tbl(I).config_header_id;
2163:
2176:
2177: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2178: OE_Msg_Pub.Add_Text(l_msg_data);
2179: IF l_debug_level > 0 THEN
2180: oe_debug_pub.add( 'ERROR FROM NEW COPY: '
2181: || L_MSG_DATA , 1 ) ;
2182: END IF;
2183: END IF;
2184:
2201: x_line_tbl(K).configuration_id
2202: := l_new_item_id_tbl(J);
2203:
2204: IF l_debug_level > 0 THEN
2205: oe_debug_pub.add( 'OLD CONFIG '||
2206: L_ORIG_ITEM_ID_TBL ( J ) , 1 ) ;
2207: END IF;
2208: IF l_debug_level > 0 THEN
2209: oe_debug_pub.add( 'NEW CONFIG '
2205: oe_debug_pub.add( 'OLD CONFIG '||
2206: L_ORIG_ITEM_ID_TBL ( J ) , 1 ) ;
2207: END IF;
2208: IF l_debug_level > 0 THEN
2209: oe_debug_pub.add( 'NEW CONFIG '
2210: ||X_LINE_TBL ( K ) .CONFIGURATION_ID , 1 ) ;
2211: END IF;
2212: EXIT;
2213: END IF;
2219: K := x_line_tbl.NEXT(K);
2220: END LOOP;
2221:
2222: IF l_debug_level > 0 THEN
2223: oe_debug_pub.add('DONE UPDATING NEW CONFIG ITEM IDS',1);
2224: END IF;
2225:
2226: -- now set the new cofig hdr/rev on model.
2227: -- is this table always populated??
2243: END IF;
2244:
2245:
2246: IF l_debug_level > 0 THEN
2247: oe_debug_pub.add( 'ITEM_TYPE_CODE IS'
2248: ||X_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
2249: oe_debug_pub.add( 'LINE ID IS'||X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
2250: oe_debug_pub.add( 'TOP_MODEL_LINE_INDEX IS '
2251: ||TO_CHAR ( L_TOP_MODEL_INDEX ) , 1 ) ;
2245:
2246: IF l_debug_level > 0 THEN
2247: oe_debug_pub.add( 'ITEM_TYPE_CODE IS'
2248: ||X_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
2249: oe_debug_pub.add( 'LINE ID IS'||X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
2250: oe_debug_pub.add( 'TOP_MODEL_LINE_INDEX IS '
2251: ||TO_CHAR ( L_TOP_MODEL_INDEX ) , 1 ) ;
2252: END IF;
2253: END LOOP;
2246: IF l_debug_level > 0 THEN
2247: oe_debug_pub.add( 'ITEM_TYPE_CODE IS'
2248: ||X_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
2249: oe_debug_pub.add( 'LINE ID IS'||X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
2250: oe_debug_pub.add( 'TOP_MODEL_LINE_INDEX IS '
2251: ||TO_CHAR ( L_TOP_MODEL_INDEX ) , 1 ) ;
2252: END IF;
2253: END LOOP;
2254: END IF; -- IF x_line_tbl.count > 0
2256:
2257: END IF; -- IF x_line_tbl.count > 0
2258:
2259: IF l_debug_level > 0 THEN
2260: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.LOAD_LINES' , 1 ) ;
2261: END IF;
2262:
2263:
2264: EXCEPTION
2265:
2266: WHEN OTHERS THEN
2267:
2268: IF l_debug_level > 0 THEN
2269: oe_debug_pub.add( 'IN OTHERS LOAD LINES '|| sqlerrm , 1 ) ;
2270: END IF;
2271:
2272: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2273: THEN
2276: , l_api_name
2277: );
2278: END IF;
2279:
2280: OE_DEBUG_PUB.DumpDebug;
2281:
2282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2283:
2284: End Load_Lines;
2286: procedure Clear_Missing_Attributes(
2287: p_line_rec IN OUT NOCOPY OE_Order_PUB.Line_Rec_Type)
2288: IS
2289: --
2290: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2291: --
2292: BEGIN
2293:
2294: IF p_line_rec.SERVICE_REFERENCE_TYPE_CODE IS NULL THEN
2502: l_max_line_no NUMBER;
2503: l_total_lines NUMBER;
2504: l_copying_all_lines VARCHAR2(3);
2505: --
2506: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2507: --
2508: l_line_set_tbl Line_Set_Tbl_Type;
2509: l_count NUMBER;
2510: l_index NUMBER;
2512: l_operation VARCHAR2(30);
2513: BEGIN
2514:
2515: IF l_debug_level > 0 THEN
2516: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.INIT_LINES_NEW' , 1 ) ;
2517: END IF;
2518:
2519: IF p_line_type IS NOT NULL THEN -- If Returns is calling us then this is NULL.
2520: IF l_debug_level > 0 THEN
2517: END IF;
2518:
2519: IF p_line_type IS NOT NULL THEN -- If Returns is calling us then this is NULL.
2520: IF l_debug_level > 0 THEN
2521: oe_debug_pub.add( ' GET LINE CATEGORY ' , 1 ) ;
2522: END IF;
2523: l_cpy_line_category := Get_Line_Category(p_line_type);
2524: END IF;
2525:
2569: G_Line_Num_Rec.split_from_line_id(J) :=
2570: G_Line_Num_Rec.new_line_id(m);
2571: G_Line_Num_Rec.split_by(J) := 'USER';
2572: IF l_debug_level > 0 THEN
2573: oe_debug_pub.add( 'FOUND THE SPLIT_FROM '||G_LINE_NUM_REC.NEW_LINE_ID ( M ) , 1 ) ;
2574: END IF;
2575: EXIT;
2576: END IF;
2577:
2600: p_x_line_tbl(k).line_type_id := p_line_type;
2601: IF p_line_type <> l_temp_line_rec.line_type_id THEN
2602:
2603: IF l_debug_level > 0 THEN
2604: oe_debug_pub.add( 'AK :COPY LINE CAT ' || L_CPY_LINE_CATEGORY , 2 ) ;
2605: oe_debug_pub.add( 'AK :ORIG LINE CAT ' || L_ORIG_LINE_CATEGORY , 2 ) ;
2606: END IF;
2607: -- If we are copying from a non-return to a return type
2608: IF (l_orig_line_category = 'ORDER') AND
2601: IF p_line_type <> l_temp_line_rec.line_type_id THEN
2602:
2603: IF l_debug_level > 0 THEN
2604: oe_debug_pub.add( 'AK :COPY LINE CAT ' || L_CPY_LINE_CATEGORY , 2 ) ;
2605: oe_debug_pub.add( 'AK :ORIG LINE CAT ' || L_ORIG_LINE_CATEGORY , 2 ) ;
2606: END IF;
2607: -- If we are copying from a non-return to a return type
2608: IF (l_orig_line_category = 'ORDER') AND
2609: (l_cpy_line_category = 'RETURN') THEN
2623: l_operation := 'RETURN_TO_RETURN';
2624: END IF;
2625: END IF;
2626: IF l_debug_level > 0 THEN
2627: oe_debug_pub.add( 'IF REG TO RET'||L_REG_TO_RMA , 1 ) ;
2628: END IF;
2629:
2630:
2631: -- Init various columns
2628: END IF;
2629:
2630:
2631: -- Init various columns
2632: -- OE_DEBUG_PUB.ADD('Init various Cols');
2633: -- Set Date, Time, who columns
2634:
2635: p_x_line_tbl(k).creation_date := FND_API.G_MISS_DATE;
2636: p_x_line_tbl(k).created_by := FND_API.G_MISS_NUM;
2674: l_top_model_line_index <> FND_API.G_MISS_NUM
2675: THEN
2676: IF p_x_top_model_tbl.EXISTS(l_top_model_line_index) THEN
2677: IF l_debug_level > 0 THEN
2678: oe_debug_pub.add( '1923460: IN INIT_LINES , MODEL_INDEX IS '||TO_CHAR ( L_TOP_MODEL_LINE_INDEX ) , 1 ) ;
2679: oe_debug_pub.add( '1923460: IN INIT_LINES , CONFIG_HEADER_ID IS '||TO_CHAR ( P_X_TOP_MODEL_TBL ( L_TOP_MODEL_LINE_INDEX ) .CONFIG_HEADER_ID ) , 1 ) ;
2680: oe_debug_pub.add( '1923460: IN INIT_LINES , CONFIG_REV_NBR IS '||TO_CHAR ( P_X_TOP_MODEL_TBL ( L_TOP_MODEL_LINE_INDEX ) .CONFIG_REV_NBR ) , 1 ) ;
2681: END IF;
2682: p_x_line_tbl(k).config_header_id
2675: THEN
2676: IF p_x_top_model_tbl.EXISTS(l_top_model_line_index) THEN
2677: IF l_debug_level > 0 THEN
2678: oe_debug_pub.add( '1923460: IN INIT_LINES , MODEL_INDEX IS '||TO_CHAR ( L_TOP_MODEL_LINE_INDEX ) , 1 ) ;
2679: oe_debug_pub.add( '1923460: IN INIT_LINES , CONFIG_HEADER_ID IS '||TO_CHAR ( P_X_TOP_MODEL_TBL ( L_TOP_MODEL_LINE_INDEX ) .CONFIG_HEADER_ID ) , 1 ) ;
2680: oe_debug_pub.add( '1923460: IN INIT_LINES , CONFIG_REV_NBR IS '||TO_CHAR ( P_X_TOP_MODEL_TBL ( L_TOP_MODEL_LINE_INDEX ) .CONFIG_REV_NBR ) , 1 ) ;
2681: END IF;
2682: p_x_line_tbl(k).config_header_id
2683: := p_x_top_model_tbl(l_top_model_line_index).config_header_id;
2676: IF p_x_top_model_tbl.EXISTS(l_top_model_line_index) THEN
2677: IF l_debug_level > 0 THEN
2678: oe_debug_pub.add( '1923460: IN INIT_LINES , MODEL_INDEX IS '||TO_CHAR ( L_TOP_MODEL_LINE_INDEX ) , 1 ) ;
2679: oe_debug_pub.add( '1923460: IN INIT_LINES , CONFIG_HEADER_ID IS '||TO_CHAR ( P_X_TOP_MODEL_TBL ( L_TOP_MODEL_LINE_INDEX ) .CONFIG_HEADER_ID ) , 1 ) ;
2680: oe_debug_pub.add( '1923460: IN INIT_LINES , CONFIG_REV_NBR IS '||TO_CHAR ( P_X_TOP_MODEL_TBL ( L_TOP_MODEL_LINE_INDEX ) .CONFIG_REV_NBR ) , 1 ) ;
2681: END IF;
2682: p_x_line_tbl(k).config_header_id
2683: := p_x_top_model_tbl(l_top_model_line_index).config_header_id;
2684: p_x_line_tbl(k).config_rev_nbr
2712: INTO p_x_line_tbl(k).line_id
2713: FROM dual;
2714: G_Line_Num_Rec.new_line_id(J) := p_x_line_tbl(k).line_id;
2715: IF l_debug_level > 0 THEN
2716: oe_debug_pub.add( 'NEW LINE ID IS '||P_X_LINE_TBL ( K ) .LINE_ID , 1 ) ;
2717: END IF;
2718:
2719: -- Load line level holds for this line
2720: IF l_debug_level > 0 THEN
2717: END IF;
2718:
2719: -- Load line level holds for this line
2720: IF l_debug_level > 0 THEN
2721: oe_debug_pub.add('The COPy Line Level HOLDS '||p_copy_rec.line_holds);
2722: oe_debug_pub.add('REG to RMA '||l_reg_to_rma);
2723: oe_debug_pub.add('RMA to REG '||l_rma_to_reg);
2724: END IF;
2725:
2718:
2719: -- Load line level holds for this line
2720: IF l_debug_level > 0 THEN
2721: oe_debug_pub.add('The COPy Line Level HOLDS '||p_copy_rec.line_holds);
2722: oe_debug_pub.add('REG to RMA '||l_reg_to_rma);
2723: oe_debug_pub.add('RMA to REG '||l_rma_to_reg);
2724: END IF;
2725:
2726: IF p_copy_rec.line_holds = FND_API.G_TRUE AND
2719: -- Load line level holds for this line
2720: IF l_debug_level > 0 THEN
2721: oe_debug_pub.add('The COPy Line Level HOLDS '||p_copy_rec.line_holds);
2722: oe_debug_pub.add('REG to RMA '||l_reg_to_rma);
2723: oe_debug_pub.add('RMA to REG '||l_rma_to_reg);
2724: END IF;
2725:
2726: IF p_copy_rec.line_holds = FND_API.G_TRUE AND
2727: l_reg_to_rma = FND_API.G_FALSE AND
2768: l_line_set_tbl(x).line_set_id;
2769: l_line_set_tbl(x).set_count :=
2770: l_line_set_tbl(x).set_count + 1;
2771: IF l_debug_level > 0 THEN
2772: oe_debug_pub.add( 'Line Set Id is'||P_X_LINE_TBL( K ).line_set_id , 1 ) ;
2773: END IF;
2774: l_parent_found := TRUE;
2775: EXIT;
2776: END IF;
2811: p_x_line_tbl(k).config_header_id <> FND_API.G_MISS_NUM AND
2812: p_x_line_tbl(k).cancelled_flag <> 'Y'
2813: THEN
2814: IF l_debug_level > 0 THEN
2815: oe_debug_pub.add( 'COPY: PACK H NEW LOGIC MI '||P_X_LINE_TBL ( K ) .CONFIGURATION_ID , 1 ) ;
2816: END IF;
2817: ELSE
2818: p_x_line_tbl(k).configuration_id := FND_API.G_MISS_NUM;
2819: END IF;
3013:
3014: IF ( G_COPY_TO_DIFFERENT_ORDER_TYPE OR
3015: p_line_type <> l_temp_line_rec.line_type_id ) AND
3016: l_temp_line_rec.line_category_code <> 'RETURN' THEN
3017: oe_debug_pub.add( 'Redefaulting the Tax Code' ,1);
3018: p_x_line_tbl(k).tax_code := FND_API.G_MISS_CHAR;
3019: END IF;
3020:
3021:
3063: END IF;
3064:
3065:
3066: IF l_debug_level > 0 THEN
3067: oe_debug_pub.add( 'AK: BEFORE REG_TO RETURN' , 3 ) ;
3068: END IF;
3069: -- Special Handling if we are copying to a Return Line.
3070: IF FND_API.to_Boolean(l_reg_to_rma) THEN
3071:
3217: FND_API.to_boolean(p_line_descflex) AND
3218: FND_API.to_Boolean(l_reg_to_rma)
3219: THEN
3220: IF l_debug_level > 0 THEN
3221: oe_debug_pub.add('Copying DFF from REF Line '||
3222: l_temp_line_rec.context) ;
3223: END IF;
3224: -- Since we have cleared line record, we need to get back the
3225: -- values from reference line record.
3277:
3278: -- Added the following code to support a User Hook to copy DFF at
3279: -- line level.
3280: IF l_debug_level > 0 THEN
3281: oe_debug_pub.add('The Operation is '||l_operation) ;
3282: END IF;
3283:
3284: IF CALL_DFF_COPY_EXTN_API(l_temp_line_rec.org_id) THEN
3285:
3289: p_ref_line_rec => l_temp_line_rec,
3290: p_copy_line_rec => p_x_line_tbl(k));
3291:
3292: IF l_debug_level > 0 THEN
3293: oe_debug_pub.add('After COPY Line DFF '|| p_x_line_tbl(k).context) ;
3294: END IF;
3295: END IF;
3296:
3297: k := p_x_line_tbl.NEXT(k);
3314:
3315: END IF; -- Table has rows;
3316:
3317: IF l_debug_level > 0 THEN
3318: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.INIT_LINES_NEW' , 1 ) ;
3319: END IF;
3320:
3321:
3322:
3334: l_sub_scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
3335: l_api_name CONSTANT VARCHAR(30) := 'Load_and_Init_Line_Scredits';
3336: K NUMBER; -- Used as loop index.
3337: --
3338: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3339: --
3340: BEGIN
3341:
3342: IF l_debug_level > 0 THEN
3339: --
3340: BEGIN
3341:
3342: IF l_debug_level > 0 THEN
3343: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_LINE_SCREDITS' , 1 ) ;
3344: END IF;
3345:
3346: -- Load Line Sales Credits
3347:
3406:
3407: END IF; -- Line Table has rows
3408:
3409: IF l_debug_level > 0 THEN
3410: oe_debug_pub.add( 'LINE SC IS '||TO_CHAR ( X_LINE_SCREDIT_TBL.COUNT ) , 2 ) ;
3411: END IF;
3412:
3413: IF l_debug_level > 0 THEN
3414: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_LINE_SCREDITS' , 1 ) ;
3410: oe_debug_pub.add( 'LINE SC IS '||TO_CHAR ( X_LINE_SCREDIT_TBL.COUNT ) , 2 ) ;
3411: END IF;
3412:
3413: IF l_debug_level > 0 THEN
3414: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_LINE_SCREDITS' , 1 ) ;
3415: END IF;
3416:
3417:
3418: EXCEPTION
3419:
3420: WHEN OTHERS THEN
3421:
3422: IF l_debug_level > 0 THEN
3423: oe_debug_pub.add( 'IN OTHERS' , 1 ) ;
3424: END IF;
3425:
3426: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3427: THEN
3430: , l_api_name
3431: );
3432: END IF;
3433:
3434: OE_DEBUG_PUB.DumpDebug;
3435:
3436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3437:
3438: END Load_and_Init_Line_Scredits;
3448: l_line_id NUMBER;
3449: k NUMBER;
3450: I NUMBER := 1;
3451: l_line_category VARCHAR2(30);
3452: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3453:
3454: --R12 CC Encryption
3455: l_invoice_to_cust_id NUMBER;
3456: l_invoice_to_org_id NUMBER;
3462:
3463: BEGIN
3464:
3465: IF l_debug_level > 0 THEN
3466: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.Load_and_Init_Line_Payments.' , 1 ) ;
3467: END IF;
3468:
3469: IF p_line_tbl.COUNT > 0 THEN
3470: -- For every line in the line table
3477: l_line_category := Get_Line_Category(p_line_tbl(k).line_type_id);
3478: END IF;
3479:
3480: IF l_debug_level > 0 THEN
3481: oe_debug_pub.add( ' Destination line type is: '||l_line_category, 3 ) ;
3482: END IF;
3483:
3484: IF l_line_category = 'RETURN' THEN
3485: goto Next_Line;
3498: NULL;
3499: END;
3500:
3501: IF l_debug_level > 0 THEN
3502: oe_debug_pub.add( 'After query_rows the count is: '||l_sub_payment_tbl.COUNT, 3 ) ;
3503: END IF;
3504:
3505: -- Init Table for Copying
3506: IF l_sub_payment_tbl.COUNT > 0 THEN
3584:
3585: END IF; -- Line Table has rows
3586:
3587: IF l_debug_level > 0 THEN
3588: oe_debug_pub.add( 'Exiting OE_ORDER_COPY_UTIL.Load_and_Init_Line_Payments.' , 1 ) ;
3589: END IF;
3590:
3591: END Load_and_Init_Line_Payments;
3592:
3597: IS
3598: k NUMBER; -- Used as Index for loop.
3599: l_return_status VARCHAR2(100);
3600: --
3601: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3602: --
3603: BEGIN
3604:
3605: IF l_debug_level > 0 THEN
3602: --
3603: BEGIN
3604:
3605: IF l_debug_level > 0 THEN
3606: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.DELETE_CONFIG ' , 1 ) ;
3607: END IF;
3608:
3609: k := p_top_model_tbl.FIRST;
3610:
3615: l_return_status );
3616: k := p_top_model_tbl.NEXT(k);
3617: END LOOP;
3618: IF l_debug_level > 0 THEN
3619: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.DELETE_CONFIG' , 1 ) ;
3620: END IF;
3621: EXCEPTION
3622:
3623: WHEN OTHERS THEN
3761: l_top_model_index NUMBER;
3762: l_return_status VARCHAR2(30);
3763:
3764: --
3765: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3766: --
3767: l_copy_header_id NUMBER;
3768: l_temp_var VARCHAR2(2000) := NULL;
3769: l_copy_rec COPY_REC_TYPE;
3807: l_copy_header_payments := p_copy_rec.hdr_payments;
3808: l_copy_line_payments := p_copy_rec.line_payments;
3809:
3810: IF l_debug_level > 0 THEN
3811: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.COPY_ORDER' , 1 ) ;
3812: oe_debug_pub.add( 'BEFORE RESETTING LEVEL : '|| TO_CHAR ( G_ORDER_LEVEL_COPY ) , 3 ) ;
3813: oe_debug_pub.add( 'REDEFAULT MISSING IS ' || P_COPY_REC.DEFAULT_NULL_VALUES ) ;
3814: END IF;
3815:
3808: l_copy_line_payments := p_copy_rec.line_payments;
3809:
3810: IF l_debug_level > 0 THEN
3811: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.COPY_ORDER' , 1 ) ;
3812: oe_debug_pub.add( 'BEFORE RESETTING LEVEL : '|| TO_CHAR ( G_ORDER_LEVEL_COPY ) , 3 ) ;
3813: oe_debug_pub.add( 'REDEFAULT MISSING IS ' || P_COPY_REC.DEFAULT_NULL_VALUES ) ;
3814: END IF;
3815:
3816: G_LINE_PRICE_MODE := p_copy_rec.line_price_mode;
3809:
3810: IF l_debug_level > 0 THEN
3811: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.COPY_ORDER' , 1 ) ;
3812: oe_debug_pub.add( 'BEFORE RESETTING LEVEL : '|| TO_CHAR ( G_ORDER_LEVEL_COPY ) , 3 ) ;
3813: oe_debug_pub.add( 'REDEFAULT MISSING IS ' || P_COPY_REC.DEFAULT_NULL_VALUES ) ;
3814: END IF;
3815:
3816: G_LINE_PRICE_MODE := p_copy_rec.line_price_mode;
3817: G_ORDER_LEVEL_COPY := 0;
3841: G_REGULAR_TO_RMA := FALSE;
3842: G_NEED_TO_EXPLODE_CONFIG := FALSE;
3843: -- Loop Through the table of header Ids
3844: IF l_debug_level > 0 THEN
3845: oe_debug_pub.add('BEfore looping for '||p_hdr_id_tbl.COUNT);
3846: END IF;
3847:
3848: FOR i IN p_hdr_id_tbl.FIRST..p_hdr_id_tbl.LAST LOOP
3849:
3862: G_Canceled_Line_Deleted := FALSE;
3863: G_Order_Has_Split_Lines := FALSE;
3864:
3865: IF l_debug_level > 0 THEN
3866: oe_debug_pub.add( 'HDR ID IS '||p_hdr_id_tbl(i).id1 , 2 ) ;
3867: END IF;
3868:
3869: l_header_id := p_hdr_id_tbl(i).id1;
3870:
3876: -- Copy Hdr Information
3877:
3878: /* Added the following line to fix the bug 1923460 */
3879: IF l_debug_level > 0 THEN
3880: oe_debug_pub.add( 'BEFORE SETTING LEVEL : '|| TO_CHAR ( G_ORDER_LEVEL_COPY ) , 3 ) ;
3881: END IF;
3882: G_ORDER_LEVEL_COPY := 1;
3883: IF p_copy_rec.source_block_type = 'LINE' AND
3884: p_copy_rec.copy_complete_config = FND_API.G_TRUE
3884: p_copy_rec.copy_complete_config = FND_API.G_TRUE
3885: THEN
3886: G_NEED_TO_EXPLODE_CONFIG := TRUE;
3887: IF l_debug_level > 0 THEN
3888: oe_debug_pub.add('Setting G_NEED_TO_EXPLODE_CONFIG ' , 3 ) ;
3889: END IF;
3890: END IF;
3891: l_destination_header_id := l_header_id;
3892: IF FND_API.to_Boolean(p_copy_rec.hdr_info) THEN
3898: l_header_rec.operation := OE_GLOBALS.G_OPR_CREATE;
3899: l_header_rec.transaction_phase_code := p_copy_rec.new_phase;
3900:
3901: IF l_debug_level > 0 THEN
3902: oe_debug_pub.add( 'AK1 HEADER ID ' || TO_CHAR ( L_HEADER_ID ) , 2 ) ;
3903: END IF;
3904: ELSE -- Create Blank Header
3905:
3906: l_copy_rec := p_copy_rec;
3909: p_copy_rec.copy_complete_config = FND_API.G_TRUE
3910: THEN
3911: G_NEED_TO_EXPLODE_CONFIG := TRUE;
3912: IF l_debug_level > 0 THEN
3913: oe_debug_pub.add('Setting G_NEED_TO_EXPLODE_CONFIG ' , 3 ) ;
3914: END IF;
3915:
3916: END IF;
3917:
3915:
3916: END IF;
3917:
3918: IF l_debug_level > 0 THEN
3919: oe_debug_pub.add( 'AK IN FIRST LINE HEADER LOGIC' , 2 ) ;
3920: END IF;
3921:
3922: -- Get header_id from first line.
3923: l_line_id := p_line_id_tbl(1).id1;
3950:
3951: ELSE
3952:
3953: IF l_debug_level > 0 THEN
3954: oe_debug_pub.add( 'AK BLANK HEADER' , 3 ) ;
3955: END IF;
3956: -- Set Source to COPY
3957: l_header_rec.source_document_type_id := 2;
3958: l_header_rec.source_document_id := l_header_id;
3963: l_header_rec.order_type_id := p_copy_rec.hdr_type;
3964: END IF;
3965:
3966: IF l_debug_level > 0 THEN
3967: oe_debug_pub.add( 'ORDER TYPE ' || TO_CHAR ( L_HEADER_REC.ORDER_TYPE_ID ) , 2 ) ;
3968: END IF;
3969: -- Set manual order number
3970: IF p_copy_rec.manual_order_number IS NOT NULL THEN
3971: l_header_rec.order_number := p_copy_rec.manual_order_number;
4021: IF FND_API.to_Boolean(p_copy_rec.hdr_payments)
4022: AND OE_PREPAYMENT_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED THEN
4023: -- don't copy payment information to order of RETURN type.
4024: IF l_debug_level > 0 THEN
4025: oe_Debug_pub.add('Before hdr payments processing, destination order type is: '||get_order_category(l_header_rec.order_type_id),3);
4026: END IF;
4027: --R12 CC Encryption
4028: l_cpy_category := Get_Order_Category(p_copy_rec.hdr_type);
4029: IF nvl(l_cpy_category,'NULL') <> 'RETURN' THEN --R12 CC Encryption
4030: --bug 5113795
4031: select payment_type_code into l_payment_type_code
4032: from oe_order_headers_all where header_id = l_header_id;
4033: IF l_debug_level > 0 THEN
4034: oe_debug_pub.add('Payment type code in copy order..ksurendr'||l_payment_type_code);
4035: oe_debug_pub.add('Header_id ...'||l_header_id);
4036: oe_debug_pub.add('Copy Header Payments flag...'||l_copy_header_payments);
4037: END IF;
4038: IF l_payment_type_code = 'CREDIT_CARD' and
4031: select payment_type_code into l_payment_type_code
4032: from oe_order_headers_all where header_id = l_header_id;
4033: IF l_debug_level > 0 THEN
4034: oe_debug_pub.add('Payment type code in copy order..ksurendr'||l_payment_type_code);
4035: oe_debug_pub.add('Header_id ...'||l_header_id);
4036: oe_debug_pub.add('Copy Header Payments flag...'||l_copy_header_payments);
4037: END IF;
4038: IF l_payment_type_code = 'CREDIT_CARD' and
4039: OE_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED'
4032: from oe_order_headers_all where header_id = l_header_id;
4033: IF l_debug_level > 0 THEN
4034: oe_debug_pub.add('Payment type code in copy order..ksurendr'||l_payment_type_code);
4035: oe_debug_pub.add('Header_id ...'||l_header_id);
4036: oe_debug_pub.add('Copy Header Payments flag...'||l_copy_header_payments);
4037: END IF;
4038: IF l_payment_type_code = 'CREDIT_CARD' and
4039: OE_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED'
4040: AND l_copy_header_payments = 'T' THEN
4038: IF l_payment_type_code = 'CREDIT_CARD' and
4039: OE_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED'
4040: AND l_copy_header_payments = 'T' THEN
4041: IF l_debug_level > 0 THEN
4042: oe_debug_pub.add('Error in Copy order');
4043: END IF;
4044: FND_MESSAGE.SET_NAME('ONT','OE_CC_NO_COPY_SEC_CODE_REQ');
4045: OE_MSG_PUB.Add;
4046: RAISE FND_API.G_EXC_ERROR;
4045: OE_MSG_PUB.Add;
4046: RAISE FND_API.G_EXC_ERROR;
4047: ELSE
4048: IF l_debug_level > 0 THEN
4049: oe_debug_pub.add('Before calling load and init header payments....');
4050: END IF;
4051: Load_and_Init_Hdr_Payments(l_header_id,l_x_header_payment_tbl);
4052: END IF;
4053: --bug 5113795
4059: INTO l_header_rec.header_id
4060: FROM DUAL;
4061:
4062: --R12 CC Encryption
4063: oe_debug_pub.add('New header id...'||l_header_rec.header_id);
4064: --oe_debug_pub.adD('Original trxn extn id'||l_x_header_payment_tbl(1).trxn_extension_id);
4065: oe_debug_pub.add('category'||l_cpy_category);
4066: oe_debug_pub.add('g_create fl'||g_create_payment_flag||'and'||p_copy_rec.hdr_info||'and'||p_copy_rec.hdr_payments);
4067:
4060: FROM DUAL;
4061:
4062: --R12 CC Encryption
4063: oe_debug_pub.add('New header id...'||l_header_rec.header_id);
4064: --oe_debug_pub.adD('Original trxn extn id'||l_x_header_payment_tbl(1).trxn_extension_id);
4065: oe_debug_pub.add('category'||l_cpy_category);
4066: oe_debug_pub.add('g_create fl'||g_create_payment_flag||'and'||p_copy_rec.hdr_info||'and'||p_copy_rec.hdr_payments);
4067:
4068: /*IF nvl(l_cpy_category,'-1') <> 'RETURN' AND FND_API.to_Boolean(p_copy_rec.hdr_info)
4061:
4062: --R12 CC Encryption
4063: oe_debug_pub.add('New header id...'||l_header_rec.header_id);
4064: --oe_debug_pub.adD('Original trxn extn id'||l_x_header_payment_tbl(1).trxn_extension_id);
4065: oe_debug_pub.add('category'||l_cpy_category);
4066: oe_debug_pub.add('g_create fl'||g_create_payment_flag||'and'||p_copy_rec.hdr_info||'and'||p_copy_rec.hdr_payments);
4067:
4068: /*IF nvl(l_cpy_category,'-1') <> 'RETURN' AND FND_API.to_Boolean(p_copy_rec.hdr_info)
4069: AND FND_API.to_Boolean(p_copy_rec.hdr_payments) AND g_create_payment_flag = 'Y' THEN
4062: --R12 CC Encryption
4063: oe_debug_pub.add('New header id...'||l_header_rec.header_id);
4064: --oe_debug_pub.adD('Original trxn extn id'||l_x_header_payment_tbl(1).trxn_extension_id);
4065: oe_debug_pub.add('category'||l_cpy_category);
4066: oe_debug_pub.add('g_create fl'||g_create_payment_flag||'and'||p_copy_rec.hdr_info||'and'||p_copy_rec.hdr_payments);
4067:
4068: /*IF nvl(l_cpy_category,'-1') <> 'RETURN' AND FND_API.to_Boolean(p_copy_rec.hdr_info)
4069: AND FND_API.to_Boolean(p_copy_rec.hdr_payments) AND g_create_payment_flag = 'Y' THEN
4070: -- Condition for the payment types supported by order header
4078: --0and trxn_extension_id is not null; --Verify
4079: exception
4080: when no_data_found then
4081: IF l_debug_level > 0 THEN
4082: oe_debug_pub.add('no data found while querying oe_payments in copy_order..'||sqlerrm);
4083: END IF;
4084: l_exists := 'N';
4085: end;
4086: begin
4090: Where organization_id = l_header_rec.invoice_to_org_id;
4091: exception
4092: when no_data_found then
4093: IF l_debug_level > 0 THEN
4094: oe_debug_pub.add('no data found while querying for customer id in copy_order..'||sqlerrm);
4095: END IF;
4096: end;
4097:
4098: IF nvl(l_exists, 'N') = 'N' THEN --Verify
4145: p_copy_rec.copy_complete_config = FND_API.G_TRUE
4146: THEN
4147: G_NEED_TO_EXPLODE_CONFIG := TRUE;
4148: IF l_debug_level > 0 THEN
4149: oe_debug_pub.add('Setting G_NEED_TO_EXPLODE_CONFIG ' , 3 ) ;
4150: END IF;
4151: END IF;
4152: END IF;
4153:
4170: G_LN_VER_NUMBER := p_copy_rec.line_version_number;
4171: G_LN_PHASE_CHANGE_FLAG := p_copy_rec.line_phase_change_flag;
4172:
4173: IF l_debug_level > 0 THEN
4174: oe_debug_pub.add('Header Version Number IS '|| G_HDR_VER_NUMBER , 1 ) ;
4175: oe_debug_pub.add('Header Phase Change Flag IS '|| G_HDR_PHASE_CHANGE_FLAG , 1 ) ;
4176: oe_debug_pub.add('Line Version Number IS '|| G_LN_VER_NUMBER , 1 ) ;
4177: oe_debug_pub.add('Line Phase Change Flag IS '|| G_LN_PHASE_CHANGE_FLAG , 1 ) ;
4178: END IF;
4171: G_LN_PHASE_CHANGE_FLAG := p_copy_rec.line_phase_change_flag;
4172:
4173: IF l_debug_level > 0 THEN
4174: oe_debug_pub.add('Header Version Number IS '|| G_HDR_VER_NUMBER , 1 ) ;
4175: oe_debug_pub.add('Header Phase Change Flag IS '|| G_HDR_PHASE_CHANGE_FLAG , 1 ) ;
4176: oe_debug_pub.add('Line Version Number IS '|| G_LN_VER_NUMBER , 1 ) ;
4177: oe_debug_pub.add('Line Phase Change Flag IS '|| G_LN_PHASE_CHANGE_FLAG , 1 ) ;
4178: END IF;
4179: -- Load Lines to be copied into table and handle configurations.
4172:
4173: IF l_debug_level > 0 THEN
4174: oe_debug_pub.add('Header Version Number IS '|| G_HDR_VER_NUMBER , 1 ) ;
4175: oe_debug_pub.add('Header Phase Change Flag IS '|| G_HDR_PHASE_CHANGE_FLAG , 1 ) ;
4176: oe_debug_pub.add('Line Version Number IS '|| G_LN_VER_NUMBER , 1 ) ;
4177: oe_debug_pub.add('Line Phase Change Flag IS '|| G_LN_PHASE_CHANGE_FLAG , 1 ) ;
4178: END IF;
4179: -- Load Lines to be copied into table and handle configurations.
4180: -- Will be used in Nonstandard lines procedure.
4173: IF l_debug_level > 0 THEN
4174: oe_debug_pub.add('Header Version Number IS '|| G_HDR_VER_NUMBER , 1 ) ;
4175: oe_debug_pub.add('Header Phase Change Flag IS '|| G_HDR_PHASE_CHANGE_FLAG , 1 ) ;
4176: oe_debug_pub.add('Line Version Number IS '|| G_LN_VER_NUMBER , 1 ) ;
4177: oe_debug_pub.add('Line Phase Change Flag IS '|| G_LN_PHASE_CHANGE_FLAG , 1 ) ;
4178: END IF;
4179: -- Load Lines to be copied into table and handle configurations.
4180: -- Will be used in Nonstandard lines procedure.
4181:
4209: from oe_payments where header_id = l_header_id
4210: and line_id is not null and payment_type_code = 'CREDIT_CARD';
4211:
4212: IF l_debug_level > 0 THEN
4213: oe_debug_pub.add('In Line payments copy...');
4214: oe_debug_pub.add('Line cc payments count'|| l_cc_line_payments);
4215: oe_debug_pub.add('Header_id ..'||l_header_id);
4216: END IF;
4217:
4210: and line_id is not null and payment_type_code = 'CREDIT_CARD';
4211:
4212: IF l_debug_level > 0 THEN
4213: oe_debug_pub.add('In Line payments copy...');
4214: oe_debug_pub.add('Line cc payments count'|| l_cc_line_payments);
4215: oe_debug_pub.add('Header_id ..'||l_header_id);
4216: END IF;
4217:
4218: IF l_cc_line_payments > 0 AND
4211:
4212: IF l_debug_level > 0 THEN
4213: oe_debug_pub.add('In Line payments copy...');
4214: oe_debug_pub.add('Line cc payments count'|| l_cc_line_payments);
4215: oe_debug_pub.add('Header_id ..'||l_header_id);
4216: END IF;
4217:
4218: IF l_cc_line_payments > 0 AND
4219: OE_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED'
4218: IF l_cc_line_payments > 0 AND
4219: OE_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED'
4220: AND l_copy_line_payments = 'T' THEN
4221: IF l_debug_level > 0 THEN
4222: oe_debug_pub.add('Error in Line Payments Copy order');
4223: oe_debug_pub.add('Copy line payments checkbox...'||l_copy_line_payments);
4224: END IF;
4225: FND_MESSAGE.SET_NAME('ONT','OE_CC_NO_COPY_SEC_CODE_REQ');
4226: OE_MSG_PUB.Add;
4219: OE_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED'
4220: AND l_copy_line_payments = 'T' THEN
4221: IF l_debug_level > 0 THEN
4222: oe_debug_pub.add('Error in Line Payments Copy order');
4223: oe_debug_pub.add('Copy line payments checkbox...'||l_copy_line_payments);
4224: END IF;
4225: FND_MESSAGE.SET_NAME('ONT','OE_CC_NO_COPY_SEC_CODE_REQ');
4226: OE_MSG_PUB.Add;
4227: RAISE FND_API.G_EXC_ERROR;
4226: OE_MSG_PUB.Add;
4227: RAISE FND_API.G_EXC_ERROR;
4228: ELSE
4229: IF l_debug_level > 0 THEN
4230: oe_debug_pub.add('Before calling load and init line payments...');
4231: END IF;
4232: Load_and_Init_Line_Payments(l_line_tbl
4233: ,p_copy_rec.line_type
4234: ,l_x_line_payment_tbl);
4241:
4242: -- Modified for the ER 2351654 added extra parameter default_null_values
4243: --R12 CC Encryption
4244: IF l_debug_level > 0 THEN
4245: --oe_debug_pub.add('Credit card number in header rec...'||l_header_rec.credit_card_number);
4246: oe_debug_pub.add('Payment type code'||l_header_rec.payment_type_code);
4247: END IF;
4248:
4249: -- Added for the ER 1480867. Call the Init_Lines_New for the ER.
4242: -- Modified for the ER 2351654 added extra parameter default_null_values
4243: --R12 CC Encryption
4244: IF l_debug_level > 0 THEN
4245: --oe_debug_pub.add('Credit card number in header rec...'||l_header_rec.credit_card_number);
4246: oe_debug_pub.add('Payment type code'||l_header_rec.payment_type_code);
4247: END IF;
4248:
4249: -- Added for the ER 1480867. Call the Init_Lines_New for the ER.
4250: Init_lines_new(l_line_tbl,
4286:
4287: -- Call Process Order API to process request.
4288:
4289: IF l_debug_level > 0 THEN
4290: oe_debug_pub.add( 'BEFORE PROCESS ORDER' , 2 ) ;
4291: oe_debug_pub.add('Header Currency is '|| l_header_rec.transactional_curr_code);
4292: IF l_line_tbl.COUNT <> 0 THEN
4293: oe_debug_pub.add('Line Context is:'||l_line_tbl(1).context);
4294: END IF;
4287: -- Call Process Order API to process request.
4288:
4289: IF l_debug_level > 0 THEN
4290: oe_debug_pub.add( 'BEFORE PROCESS ORDER' , 2 ) ;
4291: oe_debug_pub.add('Header Currency is '|| l_header_rec.transactional_curr_code);
4292: IF l_line_tbl.COUNT <> 0 THEN
4293: oe_debug_pub.add('Line Context is:'||l_line_tbl(1).context);
4294: END IF;
4295: END IF;
4289: IF l_debug_level > 0 THEN
4290: oe_debug_pub.add( 'BEFORE PROCESS ORDER' , 2 ) ;
4291: oe_debug_pub.add('Header Currency is '|| l_header_rec.transactional_curr_code);
4292: IF l_line_tbl.COUNT <> 0 THEN
4293: oe_debug_pub.add('Line Context is:'||l_line_tbl(1).context);
4294: END IF;
4295: END IF;
4296:
4297: --ER 7258165 : Start : Copy accross organizations
4347: );
4348:
4349:
4350: IF l_debug_level > 0 THEN
4351: oe_debug_pub.add( 'RETURN STATUS AFTER CALL TO PO '||L_RETURN_STATUS , 1 ) ;
4352: END IF;
4353:
4354: -- Copy Sets ER #2830872 , #1566254 Begin.
4355: -- Creating the table of header ids for operation.
4359:
4360: IF p_copy_rec.line_fulfill_sets = 'T' THEN
4361: l_copy_fulfill_sets := TRUE;
4362: IF l_debug_level > 0 THEN
4363: oe_debug_pub.add(' Copying Fulfill Sets :'||p_copy_rec.line_fulfill_sets);
4364: END IF;
4365: END IF;
4366:
4367: IF p_copy_rec.line_ship_arr_sets = 'T' THEN
4366:
4367: IF p_copy_rec.line_ship_arr_sets = 'T' THEN
4368: l_copy_ship_arr_sets := TRUE;
4369: IF l_debug_level > 0 THEN
4370: oe_debug_pub.add(' Copying Ship/Arr Sets :'||p_copy_rec.line_ship_arr_sets);
4371: END IF;
4372: END IF;
4373:
4374: IF l_debug_level > 0 THEN
4371: END IF;
4372: END IF;
4373:
4374: IF l_debug_level > 0 THEN
4375: oe_debug_pub.add(' Creating Header ID Table for Copy of Sets');
4376: END IF;
4377:
4378: IF l_line_tbl.Count > 0 THEN
4379: FOR i in 1..l_line_tbl.Count LOOP
4403: l_sets := 0;
4404:
4405: -- Calling the Copy Line Sets Procedure.
4406: IF l_debug_level > 0 THEN
4407: oe_debug_pub.add(' Calling Copy Line Sets ');
4408: END IF;
4409:
4410: IF l_hdr_id_sets_tbl.Count > 0 THEN
4411: FOR i IN 1..l_hdr_id_sets_tbl.Count LOOP
4419: END IF;
4420:
4421: IF l_sets_result = FND_API.G_RET_STS_SUCCESS THEN
4422: IF l_debug_level > 0 THEN
4423: oe_debug_pub.add(' Set Result :'||l_sets_result);
4424: END IF;
4425:
4426: FND_MESSAGE.SET_NAME('ONT','OE_COPY_LINE_SETS');
4427: OE_MSG_PUB.Add;
4426: FND_MESSAGE.SET_NAME('ONT','OE_COPY_LINE_SETS');
4427: OE_MSG_PUB.Add;
4428: ELSE
4429: IF l_debug_level > 0 THEN
4430: oe_debug_pub.add(' Set Result :'||l_sets_result);
4431: END IF;
4432:
4433: FND_MESSAGE.SET_NAME('ONT','OE_FAIL_LINE_SETS');
4434: OE_MSG_PUB.Add;
4574:
4575: IF FND_API.to_Boolean(p_copy_rec.copy_order) THEN
4576:
4577: IF l_debug_level > 0 THEN
4578: oe_debug_pub.add( 'THE NEW ORDER IS '||TO_CHAR ( L_HEADER_REC.ORDER_NUMBER ) , 1 ) ;
4579: END IF;
4580:
4581: IF l_header_rec.transaction_phase_code = 'F' OR
4582: l_header_rec.transaction_phase_code IS NULL THEN
4593:
4594: ELSE
4595:
4596: IF l_debug_level > 0 THEN
4597: oe_debug_pub.add( 'APPENEDED LINES SUCCESSFULLY FOR ORDER : ' || TO_CHAR ( L_HEADER_REC.ORDER_NUMBER ) , 1 ) ;
4598: END IF;
4599:
4600: FND_MESSAGE.SET_NAME('ONT','OE_CPY_APPEND_LINES');
4601: OE_MSG_PUB.Add;
4618: END IF;
4619: OE_MSG_PUB.Add;
4620:
4621: IF l_debug_level > 0 THEN
4622: oe_debug_pub.add( 'COPY SUCCEEDED PARTIALLY FOR ORDER : ' || TO_CHAR ( L_HEADER_REC.ORDER_NUMBER ) , 1 ) ;
4623: END IF;
4624:
4625: x_header_id := l_header_rec.header_id;
4626:
4628:
4629: --debug information
4630: IF( l_all_lines_copied ) THEN
4631: IF l_debug_level > 0 THEN
4632: oe_debug_pub.add( ' ALL LINES COPIED : TRUE' , 5 ) ;
4633: END IF;
4634: ELSE
4635: IF l_debug_level > 0 THEN
4636: oe_debug_pub.add( ' ALL LINES COPIED : FALSE' , 5 ) ;
4632: oe_debug_pub.add( ' ALL LINES COPIED : TRUE' , 5 ) ;
4633: END IF;
4634: ELSE
4635: IF l_debug_level > 0 THEN
4636: oe_debug_pub.add( ' ALL LINES COPIED : FALSE' , 5 ) ;
4637: END IF;
4638: END IF;
4639:
4640: IF( l_all_lines_failed ) THEN
4638: END IF;
4639:
4640: IF( l_all_lines_failed ) THEN
4641: IF l_debug_level > 0 THEN
4642: oe_debug_pub.add( ' ALL LINES FAILED : TRUE' , 5 ) ;
4643: END IF;
4644: ELSE
4645: IF l_debug_level > 0 THEN
4646: oe_debug_pub.add( ' ALL LINES FAILED : FALSE' , 5 ) ;
4642: oe_debug_pub.add( ' ALL LINES FAILED : TRUE' , 5 ) ;
4643: END IF;
4644: ELSE
4645: IF l_debug_level > 0 THEN
4646: oe_debug_pub.add( ' ALL LINES FAILED : FALSE' , 5 ) ;
4647: END IF;
4648: END IF;
4649:
4650: IF( l_delete_config ) THEN
4648: END IF;
4649:
4650: IF( l_delete_config ) THEN
4651: IF l_debug_level > 0 THEN
4652: oe_debug_pub.add( ' DELETE CONFIG : TRUE' , 5 ) ;
4653: END IF;
4654: ELSE
4655: IF l_debug_level > 0 THEN
4656: oe_debug_pub.add( ' DELETE CONFIG : FALSE' , 5 ) ;
4652: oe_debug_pub.add( ' DELETE CONFIG : TRUE' , 5 ) ;
4653: END IF;
4654: ELSE
4655: IF l_debug_level > 0 THEN
4656: oe_debug_pub.add( ' DELETE CONFIG : FALSE' , 5 ) ;
4657: END IF;
4658: END IF;
4659: -- end of debug
4660:
4660:
4661: ELSE -- l_header_exists
4662:
4663: IF l_debug_level > 0 THEN
4664: oe_debug_pub.add( 'FAILED TO COPY ORDER' , 1 ) ;
4665: END IF;
4666:
4667: FND_MESSAGE.SET_NAME('ONT','OE_CPY_COPY_FAILED');
4668: OE_MSG_PUB.Add;
4679: j := l_line_tbl.FIRST;
4680: WHILE j IS NOT NULL LOOP
4681: BEGIN
4682: IF l_debug_level > 0 THEN
4683: oe_debug_pub.add( 'LINECOUNT : ' || TO_CHAR ( J ) , 1 ) ;
4684: END IF;
4685: l_line_tbl.DELETE(j);
4686: j := l_line_tbl.NEXT(j);
4687: END;
4704:
4705: G_LINE_PRICE_MODE := NULL;
4706:
4707: IF l_debug_level > 0 THEN
4708: oe_debug_pub.add( 'RET STATUS SUCCESS ' || X_RETURN_STATUS , 1 ) ;
4709: END IF;
4710: IF l_debug_level > 0 THEN
4711: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.COPY_ORDER' , 1 ) ;
4712: END IF;
4707: IF l_debug_level > 0 THEN
4708: oe_debug_pub.add( 'RET STATUS SUCCESS ' || X_RETURN_STATUS , 1 ) ;
4709: END IF;
4710: IF l_debug_level > 0 THEN
4711: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.COPY_ORDER' , 1 ) ;
4712: END IF;
4713:
4714: OE_DEBUG_PUB.DumpDebug;
4715:
4710: IF l_debug_level > 0 THEN
4711: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.COPY_ORDER' , 1 ) ;
4712: END IF;
4713:
4714: OE_DEBUG_PUB.DumpDebug;
4715:
4716:
4717: EXCEPTION
4718:
4718:
4719: WHEN FND_API.G_EXC_ERROR THEN
4720:
4721: IF l_debug_level > 0 THEN
4722: oe_debug_pub.add( 'IN G_EXC_ERROR ' , 1 ) ;
4723: END IF;
4724: G_LINE_PRICE_MODE := NULL;
4725:
4726: x_return_status := FND_API.G_RET_STS_ERROR ;
4727: OE_MSG_PUB.Count_And_Get
4728: ( p_count => x_msg_count,
4729: p_data => x_msg_data
4730: );
4731: OE_DEBUG_PUB.DumpDebug;
4732:
4733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4734:
4735: IF l_debug_level > 0 THEN
4732:
4733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4734:
4735: IF l_debug_level > 0 THEN
4736: oe_debug_pub.add( 'IN G_EXC_UNEXPECTED_ERROR' ) ;
4737: END IF;
4738: G_LINE_PRICE_MODE := NULL;
4739:
4740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4741: OE_MSG_PUB.Count_And_Get
4742: ( p_count => x_msg_count,
4743: p_data => x_msg_data
4744: );
4745: OE_DEBUG_PUB.DumpDebug;
4746:
4747: WHEN OTHERS THEN
4748:
4749: IF l_debug_level > 0 THEN
4746:
4747: WHEN OTHERS THEN
4748:
4749: IF l_debug_level > 0 THEN
4750: oe_debug_pub.add( 'COPY_ORDER IN OTHERS '||SQLERRM , 1 ) ;
4751: END IF;
4752: G_LINE_PRICE_MODE := NULL;
4753:
4754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4763: ( p_count => x_msg_count,
4764: p_data => x_msg_data
4765: );
4766:
4767: OE_DEBUG_PUB.DumpDebug;
4768:
4769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4770:
4771: END Copy_Order;
4774:
4775: PROCEDURE EXTEND_TBL(p_num IN NUMBER)
4776: IS
4777: --
4778: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4779: --
4780: BEGIN
4781:
4782: G_Line_Num_Rec.line_id.EXTEND(p_num);
4795:
4796: PROCEDURE DELETE_TBL
4797: IS
4798: --
4799: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4800: --
4801: BEGIN
4802:
4803: G_Line_Num_Rec.line_id.DELETE;
4856: l_line_number NUMBER;
4857: l_comp_number_tbl l_number_tbl;
4858: l_line_set_id NUMBER;
4859: --
4860: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4861: --
4862: BEGIN
4863:
4864: IF l_debug_level > 0 THEN
4861: --
4862: BEGIN
4863:
4864: IF l_debug_level > 0 THEN
4865: oe_debug_pub.add( 'ENTERING PROCESS_LINE_NUMBERS ' , 1 ) ;
4866: END IF;
4867: -- Get the lines from the copied order
4868: OPEN C_Line_Nums;
4869: FETCH C_Line_Nums BULK COLLECT INTO
4884: l_copied_rec.top_model_line_id;--9534576
4885:
4886: CLOSE C_Line_Nums;
4887: IF l_debug_level > 0 THEN
4888: oe_debug_pub.add( 'CLOSING C_LINE_NUMS ' , 1 ) ;
4889: END IF;
4890:
4891: -- Initialize the counters.
4892: l_line_number_ctr := NULL;
4897: l_split_by := NULL;
4898: l_split_from_line_id := NULL;
4899:
4900: IF l_debug_level > 0 THEN
4901: oe_debug_pub.add( 'C_LINE_NUMS COUNT IS '||L_COPIED_REC.LINE_ID.COUNT , 1 ) ;
4902: END IF;
4903:
4904: -- Debugging loop, should be taken out
4905: FOR i in 1..l_copied_rec.line_id.COUNT LOOP
4903:
4904: -- Debugging loop, should be taken out
4905: FOR i in 1..l_copied_rec.line_id.COUNT LOOP
4906: IF l_debug_level > 0 THEN
4907: oe_debug_pub.add( 'LINE ID IS '||L_COPIED_REC.LINE_ID( I ) , 1 ) ;
4908: oe_debug_pub.add( 'ITEM TYPE CODE IS '||L_COPIED_REC.ITEM_TYPE_CODE ( I ) , 1 ) ;
4909: oe_debug_pub.add( 'set id IS '||L_COPIED_REC.line_set_id( I ) , 1 ) ;
4910: END IF;
4911: END LOOP;
4904: -- Debugging loop, should be taken out
4905: FOR i in 1..l_copied_rec.line_id.COUNT LOOP
4906: IF l_debug_level > 0 THEN
4907: oe_debug_pub.add( 'LINE ID IS '||L_COPIED_REC.LINE_ID( I ) , 1 ) ;
4908: oe_debug_pub.add( 'ITEM TYPE CODE IS '||L_COPIED_REC.ITEM_TYPE_CODE ( I ) , 1 ) ;
4909: oe_debug_pub.add( 'set id IS '||L_COPIED_REC.line_set_id( I ) , 1 ) ;
4910: END IF;
4911: END LOOP;
4912:
4905: FOR i in 1..l_copied_rec.line_id.COUNT LOOP
4906: IF l_debug_level > 0 THEN
4907: oe_debug_pub.add( 'LINE ID IS '||L_COPIED_REC.LINE_ID( I ) , 1 ) ;
4908: oe_debug_pub.add( 'ITEM TYPE CODE IS '||L_COPIED_REC.ITEM_TYPE_CODE ( I ) , 1 ) ;
4909: oe_debug_pub.add( 'set id IS '||L_COPIED_REC.line_set_id( I ) , 1 ) ;
4910: END IF;
4911: END LOOP;
4912:
4913: l_prev_line_number := NULL;
4915:
4916: FOR i in 1..l_copied_rec.line_id.COUNT LOOP
4917:
4918: IF l_debug_level > 0 THEN
4919: oe_debug_pub.add( 'ITEM TYPE CODE IS '||L_COPIED_REC.ITEM_TYPE_CODE ( I ) , 1 ) ;
4920: END IF;
4921: -- Keep track of the original line_number
4922: l_line_number := l_copied_rec.line_number(i);
4923:
4947: IF l_copied_rec.item_type_code(i) = 'SERVICE' AND
4948: l_copied_rec.service_reference_line_id(i) IS NOT NULL
4949: THEN
4950: IF l_debug_level > 0 THEN
4951: oe_debug_pub.add( 'ENTERING SERVICE LINE' , 1 ) ;
4952: END IF;
4953:
4954: FOR m in REVERSE 1..(i-1) LOOP
4955: IF l_copied_rec.line_id(m) =
4955: IF l_copied_rec.line_id(m) =
4956: l_copied_rec.service_reference_line_id(i)
4957: THEN
4958: IF l_debug_level > 0 THEN
4959: oe_debug_pub.add( 'ENTERING SERVICE LINE M IS ' ||M , 1 ) ;
4960: END IF;
4961: l_copied_rec.line_number(i) := l_copied_rec.line_number(m);
4962: l_copied_rec.shipment_number(i) :=
4963: l_copied_rec.shipment_number(m);
4982:
4983: IF l_copied_rec.item_type_code(i) = 'INCLUDED'
4984: THEN
4985: IF l_debug_level > 0 THEN
4986: oe_debug_pub.add( 'ENTERING INCLUDED ITEM LINE ' , 1 ) ;
4987: END IF;
4988: -- Find the link_to_line_id to get the line numbers..
4989: FOR m in REVERSE 1..(i-1) LOOP
4990: IF l_copied_rec.line_id(m) =
4990: IF l_copied_rec.line_id(m) =
4991: l_copied_rec.link_to_line_id(i)
4992: THEN
4993: IF l_debug_level > 0 THEN
4994: oe_debug_pub.add( 'LINK TO LINE ID IS ' ||L_COPIED_REC.LINE_ID ( M ) , 1 ) ;
4995: END IF;
4996: l_copied_rec.line_number(i) := l_copied_rec.line_number(m);
4997: l_copied_rec.shipment_number(i) :=
4998: l_copied_rec.shipment_number(m);
5019: -- IF l_copied_rec.item_type_code(i) = 'OPTION'
5020: IF l_copied_rec.item_type_code(i) in ('OPTION','CLASS') --9534576
5021: THEN
5022: IF l_debug_level > 0 THEN
5023: oe_debug_pub.add( 'ENTERING OPTION ITEM LINE ' , 1 ) ;
5024: END IF;
5025: -- Find the link_to_line_id to get the line numbers..
5026: FOR m in REVERSE 1..(i-1) LOOP
5027: IF l_copied_rec.line_id(m) =
5027: IF l_copied_rec.line_id(m) =
5028: l_copied_rec.link_to_line_id(i)
5029: THEN
5030: IF l_debug_level > 0 THEN
5031: oe_debug_pub.add( 'LINK TO LINE ID IS ' ||L_COPIED_REC.LINE_ID ( M) , 1 ) ;
5032: END IF;
5033: l_copied_rec.line_number(i) := l_copied_rec.line_number(m);
5034: l_copied_rec.shipment_number(i) :=
5035: l_copied_rec.shipment_number(m);
5070: -- lines which are created as a part of the COPY call.
5071:
5072: IF NOT OE_GLOBALS.EQUAL(l_copied_rec.source_document_type_id(i),2) THEN
5073: IF l_debug_level > 0 THEN
5074: oe_debug_pub.add( 'THIS IS NON COPIED LINE' , 1 ) ;
5075: END IF;
5076: GOTO NOT_COPIED_LINE;
5077: END IF;
5078:
5088: G_Line_Num_Rec.split_from_line_id(j) IS NOT NULL AND
5089: l_copied_rec.line_set_id(i) IS NOT NULL)
5090: THEN
5091: IF l_debug_level > 0 THEN
5092: oe_debug_pub.add( 'NON-SPLIT LINE' , 1 ) ;
5093: END IF;
5094: goto CONTINUE_LOOP;
5095: END IF;
5096:
5094: goto CONTINUE_LOOP;
5095: END IF;
5096:
5097: IF l_debug_level > 0 THEN
5098: oe_debug_pub.add( 'SEARCHING FOR MATCH' , 1 ) ;
5099: END IF;
5100: -- Loop through the Copied Rec of tables to find the parent line
5101: FOR m in REVERSE 1..(i-1) LOOP
5102:
5103: IF G_Line_Num_Rec.split_from_line_id(j) =
5104: l_copied_rec.line_id(m)
5105: THEN
5106: IF l_debug_level > 0 THEN
5107: oe_debug_pub.add( 'NEW_LINE_ID IS '||G_LINE_NUM_REC.NEW_LINE_ID ( J ) , 1 ) ;
5108: oe_debug_pub.add( 'COPY LINE_ID IS '||L_COPIED_REC.LINE_ID ( I ) , 1 ) ;
5109: oe_debug_pub.add( 'SPLIT_FROM_LINE_ID IS '||G_LINE_NUM_REC.SPLIT_FROM_LINE_ID ( J ) , 1 ) ;
5110: oe_debug_pub.add( 'MATCH FOUND WITH SPLIT FROM LINE_ID' , 1 ) ;
5111: END IF;
5104: l_copied_rec.line_id(m)
5105: THEN
5106: IF l_debug_level > 0 THEN
5107: oe_debug_pub.add( 'NEW_LINE_ID IS '||G_LINE_NUM_REC.NEW_LINE_ID ( J ) , 1 ) ;
5108: oe_debug_pub.add( 'COPY LINE_ID IS '||L_COPIED_REC.LINE_ID ( I ) , 1 ) ;
5109: oe_debug_pub.add( 'SPLIT_FROM_LINE_ID IS '||G_LINE_NUM_REC.SPLIT_FROM_LINE_ID ( J ) , 1 ) ;
5110: oe_debug_pub.add( 'MATCH FOUND WITH SPLIT FROM LINE_ID' , 1 ) ;
5111: END IF;
5112: IF l_copied_rec.line_set_id(m) IS NULL THEN
5105: THEN
5106: IF l_debug_level > 0 THEN
5107: oe_debug_pub.add( 'NEW_LINE_ID IS '||G_LINE_NUM_REC.NEW_LINE_ID ( J ) , 1 ) ;
5108: oe_debug_pub.add( 'COPY LINE_ID IS '||L_COPIED_REC.LINE_ID ( I ) , 1 ) ;
5109: oe_debug_pub.add( 'SPLIT_FROM_LINE_ID IS '||G_LINE_NUM_REC.SPLIT_FROM_LINE_ID ( J ) , 1 ) ;
5110: oe_debug_pub.add( 'MATCH FOUND WITH SPLIT FROM LINE_ID' , 1 ) ;
5111: END IF;
5112: IF l_copied_rec.line_set_id(m) IS NULL THEN
5113:
5106: IF l_debug_level > 0 THEN
5107: oe_debug_pub.add( 'NEW_LINE_ID IS '||G_LINE_NUM_REC.NEW_LINE_ID ( J ) , 1 ) ;
5108: oe_debug_pub.add( 'COPY LINE_ID IS '||L_COPIED_REC.LINE_ID ( I ) , 1 ) ;
5109: oe_debug_pub.add( 'SPLIT_FROM_LINE_ID IS '||G_LINE_NUM_REC.SPLIT_FROM_LINE_ID ( J ) , 1 ) ;
5110: oe_debug_pub.add( 'MATCH FOUND WITH SPLIT FROM LINE_ID' , 1 ) ;
5111: END IF;
5112: IF l_copied_rec.line_set_id(m) IS NULL THEN
5113:
5114: SELECT OE_SETS_S.NEXTVAL
5144: END IF;
5145:
5146: END LOOP;
5147: IF l_debug_level > 0 THEN
5148: oe_debug_pub.add( 'THE SPLIT FROM IS M '||M , 1 ) ;
5149: oe_debug_pub.add( 'THE L_COUNTER IS '||L_COUNTER , 1 ) ;
5150: oe_debug_pub.add( 'THE FIRST SPLIT FROM INDEX K IS '||K , 1 ) ;
5151: oe_debug_pub.add( 'SHIPMENT_NUMBER FOR K IS '||L_SHIPMENT_NUM_TBL ( K ) , 1 ) ;
5152: END IF;
5145:
5146: END LOOP;
5147: IF l_debug_level > 0 THEN
5148: oe_debug_pub.add( 'THE SPLIT FROM IS M '||M , 1 ) ;
5149: oe_debug_pub.add( 'THE L_COUNTER IS '||L_COUNTER , 1 ) ;
5150: oe_debug_pub.add( 'THE FIRST SPLIT FROM INDEX K IS '||K , 1 ) ;
5151: oe_debug_pub.add( 'SHIPMENT_NUMBER FOR K IS '||L_SHIPMENT_NUM_TBL ( K ) , 1 ) ;
5152: END IF;
5153:
5146: END LOOP;
5147: IF l_debug_level > 0 THEN
5148: oe_debug_pub.add( 'THE SPLIT FROM IS M '||M , 1 ) ;
5149: oe_debug_pub.add( 'THE L_COUNTER IS '||L_COUNTER , 1 ) ;
5150: oe_debug_pub.add( 'THE FIRST SPLIT FROM INDEX K IS '||K , 1 ) ;
5151: oe_debug_pub.add( 'SHIPMENT_NUMBER FOR K IS '||L_SHIPMENT_NUM_TBL ( K ) , 1 ) ;
5152: END IF;
5153:
5154: l_shipment_num_tbl(k) := l_shipment_num_tbl(k) + 1;
5147: IF l_debug_level > 0 THEN
5148: oe_debug_pub.add( 'THE SPLIT FROM IS M '||M , 1 ) ;
5149: oe_debug_pub.add( 'THE L_COUNTER IS '||L_COUNTER , 1 ) ;
5150: oe_debug_pub.add( 'THE FIRST SPLIT FROM INDEX K IS '||K , 1 ) ;
5151: oe_debug_pub.add( 'SHIPMENT_NUMBER FOR K IS '||L_SHIPMENT_NUM_TBL ( K ) , 1 ) ;
5152: END IF;
5153:
5154: l_shipment_num_tbl(k) := l_shipment_num_tbl(k) + 1;
5155:
5189: l_option_number_ctr := NULL;
5190: l_comp_number_ctr := NULL;
5191: l_service_number_ctr := NULL;
5192: IF l_debug_level > 0 THEN
5193: oe_debug_pub.add( 'IN L_LINE_NUMBER_CTR' , 1 ) ;
5194: END IF;
5195: END IF;
5196:
5197: l_copied_rec.line_number(i) := l_line_number_ctr;
5208: l_option_number_ctr := NULL;
5209: l_comp_number_ctr := NULL;
5210: l_service_number_ctr := NULL;
5211: IF l_debug_level > 0 THEN
5212: oe_debug_pub.add( 'IN L_SHIPMENT_NUMBER_CTR' , 1 ) ;
5213: END IF;
5214: END IF;
5215:
5216: l_copied_rec.shipment_number(i) := l_shipment_number_ctr;
5223: l_option_number_ctr := NVL(l_option_number_ctr,0) + 1;
5224: l_comp_number_ctr := NULL;
5225: l_service_number_ctr := NULL;
5226: IF l_debug_level > 0 THEN
5227: oe_debug_pub.add( 'IN L_OPTION_NUMBER_CTR' , 1 ) ;
5228: END IF;
5229: END IF;
5230:
5231: l_copied_rec.option_number(i) := l_option_number_ctr;
5237: THEN
5238: l_comp_number_ctr := NVL(l_comp_number_ctr,0) + 1;
5239: l_service_number_ctr := NULL;
5240: IF l_debug_level > 0 THEN
5241: oe_debug_pub.add( 'IN L_COMP_NUMBER_CTR' , 1 ) ;
5242: END IF;
5243: END IF;
5244:
5245: l_copied_rec.component_number(i) := l_comp_number_ctr;
5250: l_copied_rec.service_number(i))
5251: THEN
5252: l_service_number_ctr := NVL(l_service_number_ctr,0) + 1;
5253: IF l_debug_level > 0 THEN
5254: oe_debug_pub.add( 'IN L_SERVICE_NUMBER_CTR' , 1 ) ;
5255: END IF;
5256: l_copied_rec.service_number(i) := l_service_number_ctr;
5257: END IF;
5258:
5265:
5266: -- Added following loop for debuging
5267: FOR i in 1..l_copied_rec.line_id.COUNT LOOP
5268: IF l_debug_level > 0 THEN
5269: oe_debug_pub.add( 'LINE ID IS '||L_COPIED_REC.LINE_ID ( I ) , 1 ) ;
5270: oe_debug_pub.add( 'ITEM TYPE CODE IS '||L_COPIED_REC.ITEM_TYPE_CODE ( I ) , 1 ) ;
5271: END IF;
5272:
5273: END LOOP;
5266: -- Added following loop for debuging
5267: FOR i in 1..l_copied_rec.line_id.COUNT LOOP
5268: IF l_debug_level > 0 THEN
5269: oe_debug_pub.add( 'LINE ID IS '||L_COPIED_REC.LINE_ID ( I ) , 1 ) ;
5270: oe_debug_pub.add( 'ITEM TYPE CODE IS '||L_COPIED_REC.ITEM_TYPE_CODE ( I ) , 1 ) ;
5271: END IF;
5272:
5273: END LOOP;
5274: k := l_copied_rec.line_id.COUNT;
5273: END LOOP;
5274: k := l_copied_rec.line_id.COUNT;
5275:
5276: IF l_debug_level > 0 THEN
5277: oe_debug_pub.add( 'UPDATE ORDER LINES IN BULK' , 1 ) ;
5278: END IF;
5279: FORALL i in 1..K
5280: UPDATE OE_ORDER_LINES
5281: SET line_number = l_copied_rec.line_number(i)
5288: , line_set_id = l_copied_rec.line_set_id(i)
5289: WHERE line_id = l_copied_rec.line_id(i);
5290:
5291: IF l_debug_level > 0 THEN
5292: oe_debug_pub.add( ' AFTER UPDATE ORDER LINES IN BULK' , 1 ) ;
5293: END IF;
5294: l_copied_rec.line_id.delete;
5295: l_copied_rec.line_number.delete;
5296: l_copied_rec.shipment_number.delete;
5302: l_copied_rec.source_document_type_id.delete;
5303: l_copied_rec.split_by.delete;
5304: l_copied_rec.line_set_id.delete;
5305: IF l_debug_level > 0 THEN
5306: oe_debug_pub.add( 'AFTER CLEAR L_COPY_REC' , 1 ) ;
5307: END IF;
5308:
5309: EXCEPTION
5310: WHEN OTHERS THEN
5308:
5309: EXCEPTION
5310: WHEN OTHERS THEN
5311: IF l_debug_level > 0 THEN
5312: oe_debug_pub.add( 'OTHERS ERROR , PROCESS_LINE_NUMBERS' ) ;
5313: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
5314: END IF;
5315: OE_MSG_PUB.Add_Exc_Msg
5316: ( G_PKG_NAME
5309: EXCEPTION
5310: WHEN OTHERS THEN
5311: IF l_debug_level > 0 THEN
5312: oe_debug_pub.add( 'OTHERS ERROR , PROCESS_LINE_NUMBERS' ) ;
5313: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
5314: END IF;
5315: OE_MSG_PUB.Add_Exc_Msg
5316: ( G_PKG_NAME
5317: , 'Process_Line_Numbers'
5326: p_header_id IN NUMBER,
5327: p_line_type_id IN NUMBER
5328: ) IS
5329: --
5330: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5331: --
5332: BEGIN
5333:
5334: INSERT INTO OE_SETS(
5394: x_line_tbl IN OUT NOCOPY OE_ORDER_PUB.Line_Tbl_Type)
5395: IS
5396: i binary_integer := 1;
5397: j binary_integer := 1;
5398: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5399: l_line_id T_NUM := T_NUM();
5400: l_source T_V1 := T_V1();
5401: l_line_rec OE_Order_PUB.Line_Rec_Type;
5402: CURSOR C_MODEL IS
5405: WHERE top_model_line_id = line_id;
5406:
5407: BEGIN
5408: IF l_debug_level > 0 THEN
5409: oe_debug_pub.add('Entering load_lines '||to_char(p_num_lines));
5410: END IF;
5411: -- Extend the tables
5412: l_line_id.EXTEND(p_num_lines);
5413:
5416: i:= p_line_id_tbl.FIRST;
5417: WHILE i <= p_line_id_tbl.LAST LOOP
5418: l_line_id(j) := p_line_id_tbl(i).id1;
5419: IF l_debug_level > 0 THEN
5420: oe_debug_pub.add(' The line id is '|| l_line_id(j),1);
5421: END IF;
5422: j := j + 1;
5423: i := p_line_id_tbl.NEXT(i);
5424: END LOOP;
5432: -- condition was modified to include 'MODEL' and 'KIT', wherever needed.
5433:
5434: IF p_phase_change_flag = 'Y' THEN
5435: IF l_debug_level > 0 THEN
5436: oe_debug_pub.add(' For Phase Change ',1);
5437: END IF;
5438:
5439: IF p_version_number IS NOT NULL THEN --bug 7443507
5440:
5837: END IF;
5838: x_line_tbl(i) := l_line_rec;
5839: END LOOP;
5840: IF l_debug_level > 0 THEN
5841: oe_debug_pub.add('The Line Table Count is ' || x_line_tbl.COUNT);
5842: END IF;
5843:
5844: EXCEPTION
5845: WHEN OTHERS THEN
5842: END IF;
5843:
5844: EXCEPTION
5845: WHEN OTHERS THEN
5846: oe_debug_pub.add('In Others exception');
5847: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
5848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5849:
5850: END sort_line_tbl;
5843:
5844: EXCEPTION
5845: WHEN OTHERS THEN
5846: oe_debug_pub.add('In Others exception');
5847: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
5848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5849:
5850: END sort_line_tbl;
5851:
6000: p_copy_ship_arr_sets IN BOOLEAN,
6001: x_result OUT NOCOPY VARCHAR2)
6002: IS
6003:
6004: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6005: l_selected_line_tbl OE_GLOBALS.Selected_Record_Tbl;
6006: I NUMBER := 0;
6007: l_set_id NUMBER;
6008: l_return_status VARCHAR2(30);
6046:
6047: -- Initializing the result to Success.
6048: x_result := FND_API.G_RET_STS_SUCCESS;
6049: IF l_debug_level > 0 THEN
6050: oe_debug_pub.add(' Entering Copy Line Sets.');
6051: END IF;
6052: -- Copying Fulfillment Sets based on user preference.
6053: IF p_copy_fulfillment_sets THEN
6054:
6052: -- Copying Fulfillment Sets based on user preference.
6053: IF p_copy_fulfillment_sets THEN
6054:
6055: IF l_debug_level > 0 THEN
6056: oe_debug_pub.add(' Copying Fulfillment Sets.');
6057: END IF;
6058:
6059: FOR set_rec IN set_cur('FULFILLMENT_SET')
6060: LOOP
6062: I := 0;
6063: l_selected_line_tbl.DELETE;
6064:
6065: IF l_debug_level > 0 THEN
6066: oe_debug_pub.add(' Copying Set ID :'||set_rec.set_id);
6067: oe_debug_pub.add(' Copying Set Name :'||set_rec.set_name);
6068: oe_debug_pub.add(' Copying Set Type :'||set_rec.set_type);
6069: END IF;
6070:
6063: l_selected_line_tbl.DELETE;
6064:
6065: IF l_debug_level > 0 THEN
6066: oe_debug_pub.add(' Copying Set ID :'||set_rec.set_id);
6067: oe_debug_pub.add(' Copying Set Name :'||set_rec.set_name);
6068: oe_debug_pub.add(' Copying Set Type :'||set_rec.set_type);
6069: END IF;
6070:
6071: -- Initializing the Line Table for Set processing in new header.
6064:
6065: IF l_debug_level > 0 THEN
6066: oe_debug_pub.add(' Copying Set ID :'||set_rec.set_id);
6067: oe_debug_pub.add(' Copying Set Name :'||set_rec.set_name);
6068: oe_debug_pub.add(' Copying Set Type :'||set_rec.set_type);
6069: END IF;
6070:
6071: -- Initializing the Line Table for Set processing in new header.
6072: FOR line_rec IN line_cur_fulfill(set_rec.set_id)
6089: END LOOP;
6090:
6091: IF l_selected_line_tbl.COUNT > 0 THEN
6092: IF l_debug_level > 0 THEN
6093: oe_debug_pub.add(' Line Table Ready. Processing this set:'||set_rec.set_name);
6094: END IF;
6095:
6096: -- Processing the Set for New Lines.
6097: oe_set_util.Process_Sets
6109:
6110: -- Checking Result Status.
6111: IF(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6112: IF l_debug_level > 0 THEN
6113: oe_debug_pub.add(' Lines Copied to new/existing Set ID :'||l_set_id);
6114: END IF;
6115: ELSE
6116: x_result := FND_API.G_RET_STS_ERROR;
6117: IF l_debug_level > 0 THEN
6114: END IF;
6115: ELSE
6116: x_result := FND_API.G_RET_STS_ERROR;
6117: IF l_debug_level > 0 THEN
6118: oe_debug_pub.add(' Copy of Set has errors :'||l_msg_data);
6119: END IF;
6120: l_msg_count := 0;
6121: l_msg_data := '';
6122: END IF;
6121: l_msg_data := '';
6122: END IF;
6123: ELSE
6124: IF l_debug_level > 0 THEN
6125: oe_debug_pub.add(' Line Table Empty. Not processing this set:'||set_rec.set_name);
6126: END IF;
6127: END IF;
6128: END LOOP;
6129:
6127: END IF;
6128: END LOOP;
6129:
6130: IF l_debug_level > 0 THEN
6131: oe_debug_pub.add(' Copied Fulfillment Sets.');
6132: END IF;
6133: END IF; -- Copy of Fulfillment Sets
6134:
6135: -- Copying Ship Sets based on user preference.
6135: -- Copying Ship Sets based on user preference.
6136: IF p_copy_ship_arr_sets THEN
6137:
6138: IF l_debug_level > 0 THEN
6139: oe_debug_pub.add(' Copying Ship Sets.');
6140: END IF;
6141: FOR set_rec IN set_cur('SHIP_SET')
6142: LOOP
6143: -- Initializing processing tools.
6144: I := 0;
6145: l_selected_line_tbl.DELETE;
6146:
6147: IF l_debug_level > 0 THEN
6148: oe_debug_pub.add(' Copying Set ID :'||set_rec.set_id);
6149: oe_debug_pub.add(' Copying Set Name :'||set_rec.set_name);
6150: oe_debug_pub.add(' Copying Set Type :'||set_rec.set_type);
6151: END IF;
6152:
6145: l_selected_line_tbl.DELETE;
6146:
6147: IF l_debug_level > 0 THEN
6148: oe_debug_pub.add(' Copying Set ID :'||set_rec.set_id);
6149: oe_debug_pub.add(' Copying Set Name :'||set_rec.set_name);
6150: oe_debug_pub.add(' Copying Set Type :'||set_rec.set_type);
6151: END IF;
6152:
6153: -- Initializing the Line Table for Set processing in new header.
6146:
6147: IF l_debug_level > 0 THEN
6148: oe_debug_pub.add(' Copying Set ID :'||set_rec.set_id);
6149: oe_debug_pub.add(' Copying Set Name :'||set_rec.set_name);
6150: oe_debug_pub.add(' Copying Set Type :'||set_rec.set_type);
6151: END IF;
6152:
6153: -- Initializing the Line Table for Set processing in new header.
6154: FOR line_rec IN line_cur_ship(set_rec.set_id)
6170: END LOOP;
6171:
6172: IF l_selected_line_tbl.COUNT > 0 THEN
6173: IF l_debug_level > 0 THEN
6174: oe_debug_pub.add(' Line Table Ready. Processing this set:'||set_rec.set_name);
6175: END IF;
6176:
6177: -- Processing the Set for New Lines.
6178: oe_set_util.Process_Sets
6190:
6191: -- Checking Result Status.
6192: IF(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6193: IF l_debug_level > 0 THEN
6194: oe_debug_pub.add(' Lines copied to new/existing Set ID :'||l_set_id);
6195: END IF;
6196: ELSE
6197: x_result := FND_API.G_RET_STS_ERROR;
6198: IF l_debug_level > 0 THEN
6195: END IF;
6196: ELSE
6197: x_result := FND_API.G_RET_STS_ERROR;
6198: IF l_debug_level > 0 THEN
6199: oe_debug_pub.add(' Copy of Set has errors :'||l_msg_data);
6200: END IF;
6201: l_msg_count := 0;
6202: l_msg_data := '';
6203: END IF;
6202: l_msg_data := '';
6203: END IF;
6204: ELSE
6205: IF l_debug_level > 0 THEN
6206: oe_debug_pub.add(' Line Table Empty. Not processing this set:'||set_rec.set_name);
6207: END IF;
6208: END IF;
6209: END LOOP;
6210:
6207: END IF;
6208: END IF;
6209: END LOOP;
6210:
6211: oe_debug_pub.add(' Copied Ship Sets.');
6212:
6213: END IF; -- Copy of Ship Sets
6214:
6215: -- Copying Arrival Sets based on user preference.
6215: -- Copying Arrival Sets based on user preference.
6216: IF p_copy_ship_arr_sets THEN
6217:
6218: IF l_debug_level > 0 THEN
6219: oe_debug_pub.add(' Copying Arrival Sets.');
6220: END IF;
6221:
6222: FOR set_rec IN set_cur('ARRIVAL_SET')
6223: LOOP
6225: I := 0;
6226: l_selected_line_tbl.delete;
6227:
6228: IF l_debug_level > 0 THEN
6229: oe_debug_pub.add(' Copying Set ID :'||set_rec.set_id);
6230: oe_debug_pub.add(' Copying Set Name :'||set_rec.set_name);
6231: oe_debug_pub.add(' Copying Set Type :'||set_rec.set_type);
6232: END IF;
6233:
6226: l_selected_line_tbl.delete;
6227:
6228: IF l_debug_level > 0 THEN
6229: oe_debug_pub.add(' Copying Set ID :'||set_rec.set_id);
6230: oe_debug_pub.add(' Copying Set Name :'||set_rec.set_name);
6231: oe_debug_pub.add(' Copying Set Type :'||set_rec.set_type);
6232: END IF;
6233:
6234: -- Initializing the Line Table for Set processing in new header.
6227:
6228: IF l_debug_level > 0 THEN
6229: oe_debug_pub.add(' Copying Set ID :'||set_rec.set_id);
6230: oe_debug_pub.add(' Copying Set Name :'||set_rec.set_name);
6231: oe_debug_pub.add(' Copying Set Type :'||set_rec.set_type);
6232: END IF;
6233:
6234: -- Initializing the Line Table for Set processing in new header.
6235: FOR line_rec IN line_cur_arrival(set_rec.set_id)
6252:
6253: IF l_selected_line_tbl.COUNT > 0 THEN
6254:
6255: IF l_debug_level > 0 THEN
6256: oe_debug_pub.add(' Line Table Ready. Processing this set:'||set_rec.set_name);
6257: END IF;
6258:
6259: -- Processing the Set for New Lines.
6260: oe_set_util.Process_Sets
6272:
6273: -- Checking Result Status.
6274: IF(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6275: IF l_debug_level > 0 THEN
6276: oe_debug_pub.add(' Lines copied to new/existing Set ID :'||l_set_id);
6277: END IF;
6278: ELSE
6279: x_result := FND_API.G_RET_STS_ERROR;
6280: IF l_debug_level > 0 THEN
6277: END IF;
6278: ELSE
6279: x_result := FND_API.G_RET_STS_ERROR;
6280: IF l_debug_level > 0 THEN
6281: oe_debug_pub.add(' Copy of Set has errors :'||l_msg_data);
6282: END IF;
6283: l_msg_count := 0;
6284: l_msg_data := '';
6285: END IF;
6284: l_msg_data := '';
6285: END IF;
6286: ELSE
6287: IF l_debug_level > 0 THEN
6288: oe_debug_pub.add(' Line Table Empty. Not processing this set:'||set_rec.set_name);
6289: END IF;
6290: END IF;
6291: END LOOP;
6292:
6290: END IF;
6291: END LOOP;
6292:
6293: IF l_debug_level > 0 THEN
6294: oe_debug_pub.add(' Copied Arrival Sets.');
6295: END IF;
6296:
6297: END IF; -- Copy of Arrival Sets
6298:
6300: WHEN OTHERS THEN
6301:
6302: x_result := FND_API.G_RET_STS_UNEXP_ERROR;
6303: IF l_debug_level > 0 THEN
6304: oe_debug_pub.add('Unexpected Error Occured during Copy of Line Sets');
6305: oe_debug_pub.add(SQLERRM);
6306: END IF;
6307:
6308: END COPY_LINE_SETS;
6301:
6302: x_result := FND_API.G_RET_STS_UNEXP_ERROR;
6303: IF l_debug_level > 0 THEN
6304: oe_debug_pub.add('Unexpected Error Occured during Copy of Line Sets');
6305: oe_debug_pub.add(SQLERRM);
6306: END IF;
6307:
6308: END COPY_LINE_SETS;
6309: