[Home] [Help]
50: Return Copy_rec_type
51: IS
52: x_copy_rec copy_rec_type;
53: --
54: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
55: --
56: BEGIN
57: x_copy_rec.init_msg_list := FND_API.G_FALSE;
58: x_copy_rec.commit := FND_API.G_FALSE;
85: IS
86:
87: K NUMBER; -- Used as Index for loop.
88: --
89: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
90: --
91: BEGIN
92:
93: IF l_debug_level > 0 THEN
90: --
91: BEGIN
92:
93: IF l_debug_level > 0 THEN
94: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.FIND_LINEINDEX ' , 1 ) ;
95: END IF;
96:
97: k := p_line_tbl.FIRST;
98:
103:
104: -- Return Index
105:
106: IF l_debug_level > 0 THEN
107: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.FIND_LINEINDEX ' , 1 ) ;
108: END IF;
109: RETURN k;
110:
111: END IF;
115:
116: -- Line not in table
117:
118: IF l_debug_level > 0 THEN
119: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.FIND_LINEINDEX ' , 1 ) ;
120: END IF;
121: RETURN FND_API.G_MISS_NUM;
122:
123: END Find_LineIndex;
136: SELECT ORDER_CATEGORY_CODE --SELECT ORDER_CATEGORY_CODE
137: FROM OE_transaction_TYPES_all --FROM OE_ORDER_TYPES_V
138: WHERE TRANSACTION_TYPE_ID = p_order_type_in; --WHERE ORDER_TYPE_ID = p_order_type_in;
139: --
140: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
141: --
142: BEGIN
143:
144: IF l_debug_level > 0 THEN
141: --
142: BEGIN
143:
144: IF l_debug_level > 0 THEN
145: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.GET_ORDER_CATEGORY' , 1 ) ;
146: END IF;
147:
148: OPEN GET_ORDER_CAT (p_order_type_id);
149: FETCH GET_ORDER_CAT
151:
152: CLOSE GET_ORDER_CAT;
153:
154: IF l_debug_level > 0 THEN
155: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.GET_ORDER_CATEGORY' , 1 ) ;
156: END IF;
157:
158: RETURN l_category;
159: EXCEPTION
185: SELECT ORDER_CATEGORY_CODE --SELECT ORDER_CATEGORY_CODE
186: FROM OE_transaction_TYPES_all --FROM OE_LINE_TYPES_V
187: WHERE TRANSACTION_TYPE_ID = p_line_type_in; --WHERE LINE_TYPE_ID = p_line_type_in;
188: --
189: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
190: --
191: BEGIN
192:
193: IF l_debug_level > 0 THEN
190: --
191: BEGIN
192:
193: IF l_debug_level > 0 THEN
194: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.GET_LINE_CATEGORY' , 1 ) ;
195: END IF;
196:
197: OPEN GET_LINE_CAT(p_line_type_id);
198: FETCH GET_LINE_CAT
199: INTO l_category;
200: CLOSE GET_LINE_CAT;
201:
202: IF l_debug_level > 0 THEN
203: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.GET_LINE_CATEGORY' , 1 ) ;
204: END IF;
205:
206: RETURN l_category;
207: EXCEPTION
227: l_category VARCHAR2(30) := NULL;
228: l_line_type_id NUMBER;
229: l_line_type VARCHAR2(240);
230: --
231: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
232: --
233: BEGIN
234: IF l_debug_level > 0 THEN
235: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.GET_DEFAULT_LINE' , 1 ) ;
231: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
232: --
233: BEGIN
234: IF l_debug_level > 0 THEN
235: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.GET_DEFAULT_LINE' , 1 ) ;
236: END IF;
237: l_category := get_order_category(p_order_type_id);
238:
239: BEGIN
244: WHERE transaction_type_id = p_order_type_id;
245: ELSE
246:
247: IF l_debug_level > 0 THEN
248: oe_debug_pub.add( 'BEFORE DEFAULT LINE_TYPE' , 2 ) ;
249: END IF;
250: SELECT default_outbound_line_type_id
251: INTO l_line_type_id
252: FROM oe_transaction_types_v
253: WHERE transaction_type_id = p_order_type_id;
254: END IF;
255:
256: IF l_debug_level > 0 THEN
257: oe_debug_pub.add( 'BEFORE LINE_TYPE ID' , 2 ) ;
258: END IF;
259: SELECT name
260: INTO l_line_type
261: FROM Oe_line_types_v
270:
271: END;
272:
273: IF l_debug_level > 0 THEN
274: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.GET_DEFAULT_LINE' , 1 ) ;
275: END IF;
276: x_line_type_id := l_line_type_id;
277: Return l_line_type;
278:
279: EXCEPTION
280: WHEN OTHERS THEN
281:
282: IF l_debug_level > 0 THEN
283: oe_debug_pub.add( 'IN OTHERS ASWIN' , 2 ) ;
284: END IF;
285:
286: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
287: THEN
316: FROM OE_ORDER_HEADERS
317: WHERE header_id = p_header_in;
318:
319: --
320: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
321: --
322: BEGIN
323:
324: IF l_debug_level > 0 THEN
321: --
322: BEGIN
323:
324: IF l_debug_level > 0 THEN
325: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.GET_DOCUMENT_INFO' , 1 ) ;
326: END IF;
327:
328: IF G_DOC_HEADER_ID IS NOT NULL THEN
329: IF p_header_id = G_DOC_HEADER_ID THEN
356:
357: CLOSE GET_DOC_INFO;
358:
359: IF l_debug_level > 0 THEN
360: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.GET_DOCUMENT_INFO' , 1 ) ;
361: END IF;
362:
363: EXCEPTION
364: WHEN OTHERS THEN
383: l_orig_category VARCHAR2(30);
384: l_cpy_category VARCHAR2(30);
385: l_orig_ship_from_org_id OE_Order_Headers.ship_from_org_id%TYPE;
386: --
387: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
388: --
389: --R12 CC Encryption
390: l_payment_exists VARCHAR2(1) := 'N';
391: --R12 CC Encryption
391: --R12 CC Encryption
392: BEGIN
393:
394: IF l_debug_level > 0 THEN
395: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.COPY_HEADER' , 1 ) ;
396: END IF;
397:
398: -- Query the Header to be copied
399:
397:
398: -- Query the Header to be copied
399:
400: IF l_debug_level > 0 THEN
401: oe_debug_pub.add( 'ORDER HEADER IS '||TO_CHAR ( P_HEADER_ID ) , 2 ) ;
402: END IF;
403:
404: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
405: OE_Version_History_Util.Query_row(p_header_id => p_header_id,
411: x_header_rec => x_header_rec);
412: END IF;
413:
414: IF l_debug_level > 0 THEN
415: oe_debug_pub.add( 'After querying Header '||x_header_rec.order_number,1);
416: END IF;
417:
418: /* Added the following code to null out nocopy acknowledgement related fields in the order header , to fix the bug 1862719 */
419:
467: x_header_rec.order_firmed_date := FND_API.G_MISS_DATE ;
468: --end
469:
470: IF l_debug_level > 0 THEN
471: oe_debug_pub.add( 'ORDER TO BE COPIED IS '||TO_CHAR ( X_HEADER_REC.ORDER_NUMBER ) , 2 ) ;
472: END IF;
473:
474: -- Query Original Order Category
475:
574:
575: -- retain the original behavior if multiple payments not enabled.
576: IF NOT OE_PREPAYMENT_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED THEN
577: IF l_debug_level > 0 THEN
578: oe_debug_pub.add('Multiple Payments not enabled, old code path.', 3 ) ;
579: END IF;
580:
581: IF (p_copy_rec.hdr_payments = FND_API.G_FALSE) THEN
582: x_header_rec.credit_card_number := FND_API.G_MISS_CHAR;
605: EXCEPTION
606: WHEN NO_DATA_FOUND THEN
607: l_payment_exists := 'N';
608: IF l_debug_level >0 THEN
609: oe_debug_pub.add('Header id'||p_header_id);
610: END IF;
611: END;
612: IF l_payment_exists = 'Y' THEN
613: x_header_rec.credit_card_number := FND_API.G_MISS_CHAR;
744: END IF;
745:
746: /* Take the comment out nocopy once testing is done in omhut2 */
747: IF l_debug_level > 0 THEN
748: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.COPY_HEADER ' , 1 ) ;
749: END IF;
750:
751:
752: EXCEPTION
753:
754: WHEN OTHERS THEN
755:
756: IF l_debug_level > 0 THEN
757: oe_debug_pub.add( 'IN OTHERS' , 2 ) ;
758: END IF;
759:
760: If OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
761: THEN
764: , l_api_name
765: );
766: END IF;
767:
768: OE_DEBUG_PUB.DumpDebug;
769:
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771:
772: END Copy_Header;
779: ,x_Header_Scredit_tbl IN OUT NOCOPY OE_Order_PUB.Header_Scredit_Tbl_Type)
780: IS
781: l_api_name CONSTANT VARCHAR(30) := 'Load_and_Init_Hdr_Scredits';
782: --
783: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
784: --
785: BEGIN
786:
787: IF l_debug_level > 0 THEN
784: --
785: BEGIN
786:
787: IF l_debug_level > 0 THEN
788: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_HDR_SCREDITS' , 1 ) ;
789: END IF;
790:
791: -- Load Header Sales Credits
792: BEGIN
824:
825: END IF; -- Table has rows
826:
827: IF l_debug_level > 0 THEN
828: oe_debug_pub.add( 'HEADER SC IS '||TO_CHAR ( X_HEADER_SCREDIT_TBL.COUNT ) , 2 ) ;
829: END IF;
830:
831: IF l_debug_level > 0 THEN
832: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_HDR_SCREDITS' , 1 ) ;
828: oe_debug_pub.add( 'HEADER SC IS '||TO_CHAR ( X_HEADER_SCREDIT_TBL.COUNT ) , 2 ) ;
829: END IF;
830:
831: IF l_debug_level > 0 THEN
832: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_HDR_SCREDITS' , 1 ) ;
833: END IF;
834:
835:
836:
838:
839: WHEN OTHERS THEN
840:
841: IF l_debug_level > 0 THEN
842: oe_debug_pub.add( 'IN OTHERS' , 2 ) ;
843: END IF;
844:
845: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
846: THEN
849: , l_api_name
850: );
851: END IF;
852:
853: OE_DEBUG_PUB.DumpDebug;
854:
855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856:
857: END Load_and_Init_Hdr_Scredits;
871: l_return_status VARCHAR2(1);
872: l_v_number NUMBER;
873:
874: --
875: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
876: --
877: BEGIN
878:
879:
877: BEGIN
878:
879:
880: IF l_debug_level > 0 THEN
881: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_HDR_HOLDS' , 1 ) ;
882: END IF;
883:
884: -- Since the action request table could already have rows in it
885: -- set the index appropriately.
906:
907: -- Load Order Based holds for Copying
908:
909: IF l_debug_level > 0 THEN
910: oe_debug_pub.add( 'CALLING OE_HOLD_SOURCES_PVT.QUERY_HOLD_SOURCE' , 2 ) ;
911: END IF;
912:
913: OE_HOLD_SOURCES_PVT.QUERY_HOLD_SOURCE(p_header_id,
914: l_hold_source_tbl,
918: RAISE FND_API.G_EXC_ERROR;
919: END IF;
920:
921: IF l_debug_level > 0 THEN
922: oe_debug_pub.add( 'AFTER OE_HOLD_SOURCES_PVT.QUERY_HOLD_SOURCE' , 2 ) ;
923: END IF;
924:
925: IF (l_hold_source_tbl.COUNT > 0) THEN
926: FOR curr in l_hold_source_tbl.FIRST .. l_hold_source_tbl.LAST LOOP
930: IF l_hold_source_tbl(curr).hold_entity_code = 'O'
931: AND l_hold_source_tbl(curr).hold_id >= 1000 THEN
932:
933: IF l_debug_level > 0 THEN
934: oe_debug_pub.add( 'LOADING HOLD SOURCE '|| TO_CHAR ( L_HOLD_SOURCE_TBL ( CURR ) .HOLD_ID ) , 2 ) ;
935: END IF;
936:
937: l_action_request_tbl(k).entity_code := OE_GLOBALS.G_ENTITY_HEADER;
938: l_action_request_tbl(k).request_type:= OE_Globals.G_APPLY_HOLD;
944: l_action_request_tbl(k).date_param1 :=
945: l_hold_source_tbl(curr).hold_until_date;
946:
947: IF l_debug_level > 0 THEN
948: oe_debug_pub.add( 'AFTER LOADING HOLD SOURCE DATE' , 3 ) ;
949: END IF;
950:
951: -- load Hold source desc flex
952: l_action_request_tbl(k).param10 := l_hold_source_tbl(curr).context;
972: END LOOP;
973: END IF; -- Table has records
974:
975: IF l_debug_level > 0 THEN
976: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_HDR_HOLDS' , 1 ) ;
977: END IF;
978:
979: RETURN l_action_request_tbl;
980:
983:
984: WHEN OTHERS THEN
985:
986: IF l_debug_level > 0 THEN
987: oe_debug_pub.add( 'IN OTHERS' , 3 ) ;
988: END IF;
989:
990: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
991: THEN
994: , l_api_name
995: );
996: END IF;
997:
998: OE_DEBUG_PUB.DumpDebug;
999:
1000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1001:
1002: END Load_and_Init_Hdr_Holds;
1016: L_msg_count NUMBER;
1017: L_msg_data VARCHAR2(2000);
1018: --R12 CC Encryption
1019:
1020: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1021:
1022: BEGIN
1023:
1024: IF l_debug_level > 0 THEN
1021:
1022: BEGIN
1023:
1024: IF l_debug_level > 0 THEN
1025: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.Load_and_Init_Hdr_Payments', 3
1026: ) ;
1027: END IF;
1028:
1029: x_Header_Payment_tbl.delete;
1031: (p_header_id => p_header_id,
1032: x_header_payment_tbl => x_header_payment_tbl);
1033:
1034: IF l_debug_level > 0 THEN
1035: oe_debug_pub.add( 'After query_rows, the count is: '|| x_header_payment_tbl.COUNT,3) ;
1036: END IF;
1037:
1038: IF x_header_payment_tbl.COUNT > 0 THEN
1039: -- assign G_MISS to those attributes that are not copied.
1047: x_header_payment_tbl(k).credit_card_approval_code := FND_API.G_MISS_CHAR;
1048: x_header_payment_tbl(k).payment_amount := 0;
1049: x_header_payment_tbl(k).payment_set_id := FND_API.G_MISS_NUM;
1050: IF l_debug_level > 0 THEN
1051: oe_debug_pub.add('trxn_extension id'||x_header_payment_tbl(k).trxn_extension_id);
1052: END IF;
1053:
1054: --R12 CC Encryption
1055: /*IF x_header_payment_tbl(k).payment_type_code
1100: END LOOP;
1101: END IF;
1102:
1103: IF l_debug_level > 0 THEN
1104: oe_debug_pub.add( 'Exiting OE_ORDER_COPY_UTIL.Load_and_Init_Hdr_Payments', 3) ;
1105: END IF;
1106: END Load_and_Init_Hdr_Payments;
1107:
1108:
1118: l_hold_source_tbl OE_Hold_Sources_PVT.Hold_Source_TBL;
1119: l_return_status VARCHAR2(1);
1120:
1121: --
1122: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1123: --
1124: BEGIN
1125:
1126: IF l_debug_level > 0 THEN
1123: --
1124: BEGIN
1125:
1126: IF l_debug_level > 0 THEN
1127: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_LINE_HOLDS' , 1 ) ;
1128: END IF;
1129:
1130: k := p_action_request_tbl.COUNT + 1;
1131:
1131:
1132: -- Load Order Based holds for Copying
1133:
1134: IF l_debug_level > 0 THEN
1135: oe_debug_pub.add( 'CALLING OE_HOLD_SOURCES_PVT.Query_Line__Hold_Source' , 2 ) ;
1136: END IF;
1137:
1138: OE_HOLD_SOURCES_PVT.Query_Line__Hold_Source(p_line_id,
1139: l_hold_source_tbl,
1143: RAISE FND_API.G_EXC_ERROR;
1144: END IF;
1145:
1146: IF l_debug_level > 0 THEN
1147: oe_debug_pub.add('AFTER Query_Line__Hold_Source count '||l_hold_source_tbl.COUNT) ;
1148: END IF;
1149:
1150: IF (l_hold_source_tbl.COUNT > 0) THEN
1151:
1156: IF l_hold_source_tbl(curr).hold_entity_code = 'O'
1157: AND l_hold_source_tbl(curr).hold_id >= 1000 THEN
1158:
1159: IF l_debug_level > 0 THEN
1160: oe_debug_pub.add( 'LOADING HOLD SOURCE '|| TO_CHAR ( L_HOLD_SOURCE_TBL ( CURR ) .HOLD_ID ) , 2 ) ;
1161: END IF;
1162:
1163: p_action_request_tbl(k).entity_code := OE_GLOBALS.G_ENTITY_LINE;
1164: p_action_request_tbl(k).entity_id := p_new_line_id;
1171: p_action_request_tbl(k).date_param1 :=
1172: l_hold_source_tbl(curr).hold_until_date;
1173:
1174: IF l_debug_level > 0 THEN
1175: oe_debug_pub.add( 'AFTER LOADING HOLD SOURCE DATE' , 3 ) ;
1176: END IF;
1177:
1178: -- load Hold source desc flex
1179: p_action_request_tbl(k).param10 := l_hold_source_tbl(curr).context;
1199: END LOOP;
1200: END IF; -- Table has records
1201:
1202: IF l_debug_level > 0 THEN
1203: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_LINE_HOLDS' , 1 ) ;
1204: END IF;
1205:
1206:
1207: EXCEPTION
1208:
1209: WHEN OTHERS THEN
1210:
1211: IF l_debug_level > 0 THEN
1212: oe_debug_pub.add( 'IN OTHERS' , 3 ) ;
1213: END IF;
1214:
1215: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1216: THEN
1219: , l_api_name
1220: );
1221: END IF;
1222:
1223: OE_DEBUG_PUB.DumpDebug;
1224:
1225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1226:
1227: END Load_and_Init_Line_Holds;
1246: l_top_model_index NUMBER;
1247: k NUMBER;
1248: j NUMBER := 1;
1249: --
1250: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1251: --
1252: BEGIN
1253:
1254: IF l_debug_level > 0 THEN
1251: --
1252: BEGIN
1253:
1254: IF l_debug_level > 0 THEN
1255: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.HANDLE_RETURN_LINES ' , 1 ) ;
1256: END IF;
1257:
1258: -- Initialize local table
1259:
1361: k := l_line_tbl.NEXT(k);
1362: END LOOP;
1363:
1364: IF l_debug_level > 0 THEN
1365: oe_debug_pub.add('Exiting OE_ORDER_COPY_UTIL.HANDLE_RETURN_LINES',1);
1366: END IF;
1367:
1368: p_x_line_tbl := l_line_out_tbl;
1369:
1407: l_part_of_container VARCHAR2(1);
1408: l_config_mode NUMBER;
1409: l_ret_status VARCHAR2(1);
1410: --
1411: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1412: --
1413: l_top NUMBER;
1414: idx NUMBER;
1415: BEGIN
1414: idx NUMBER;
1415: BEGIN
1416:
1417: IF l_debug_level > 0 THEN
1418: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.HANDLE_NONSTANDARD_LINES ' , 1 ) ;
1419: END IF;
1420: --ER 2264774
1421: --Load PRG lines in memory, it will used
1422: --for matching during line processing.
1441: --MACD------------------------------------------------------
1442:
1443: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110510' THEN
1444: IF l_debug_level > 0 THEN
1445: OE_DEBUG_PUB.Add('RowCount:'||l_line_tbl.COUNT,3);
1446: OE_DEBUG_PUB.Add('MACD-Copy Level is:'
1447: ||G_ORDER_LEVEL_COPY,3);
1448: END IF;
1449:
1442:
1443: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110510' THEN
1444: IF l_debug_level > 0 THEN
1445: OE_DEBUG_PUB.Add('RowCount:'||l_line_tbl.COUNT,3);
1446: OE_DEBUG_PUB.Add('MACD-Copy Level is:'
1447: ||G_ORDER_LEVEL_COPY,3);
1448: END IF;
1449:
1450: OE_CONFIG_TSO_PVT.Is_Part_Of_Container_Model
1455: ,x_top_container_model => l_top_container_model
1456: ,x_part_of_container => l_part_of_container );
1457:
1458: IF l_debug_level > 0 THEN
1459: OE_DEBUG_PUB.Add('Line ID:'||l_line_tbl(k).line_id,2);
1460: OE_DEBUG_PUB.Add('TopLine:'||l_line_tbl(k).top_model_line_id,2);
1461: OE_DEBUG_PUB.Add('Top Container:'||l_top_container_model,3);
1462: OE_DEBUG_PUB.Add('Part of Container:'||l_part_of_container,3);
1463: END IF;
1456: ,x_part_of_container => l_part_of_container );
1457:
1458: IF l_debug_level > 0 THEN
1459: OE_DEBUG_PUB.Add('Line ID:'||l_line_tbl(k).line_id,2);
1460: OE_DEBUG_PUB.Add('TopLine:'||l_line_tbl(k).top_model_line_id,2);
1461: OE_DEBUG_PUB.Add('Top Container:'||l_top_container_model,3);
1462: OE_DEBUG_PUB.Add('Part of Container:'||l_part_of_container,3);
1463: END IF;
1464:
1457:
1458: IF l_debug_level > 0 THEN
1459: OE_DEBUG_PUB.Add('Line ID:'||l_line_tbl(k).line_id,2);
1460: OE_DEBUG_PUB.Add('TopLine:'||l_line_tbl(k).top_model_line_id,2);
1461: OE_DEBUG_PUB.Add('Top Container:'||l_top_container_model,3);
1462: OE_DEBUG_PUB.Add('Part of Container:'||l_part_of_container,3);
1463: END IF;
1464:
1465: IF l_part_of_container = 'Y' THEN
1458: IF l_debug_level > 0 THEN
1459: OE_DEBUG_PUB.Add('Line ID:'||l_line_tbl(k).line_id,2);
1460: OE_DEBUG_PUB.Add('TopLine:'||l_line_tbl(k).top_model_line_id,2);
1461: OE_DEBUG_PUB.Add('Top Container:'||l_top_container_model,3);
1462: OE_DEBUG_PUB.Add('Part of Container:'||l_part_of_container,3);
1463: END IF;
1464:
1465: IF l_part_of_container = 'Y' THEN
1466:
1466:
1467: IF G_ORDER_LEVEL_COPY = 0 THEN
1468:
1469: IF l_debug_level > 0 THEN
1470: OE_DEBUG_PUB.Add('MACD:No line level copy allowed!',3);
1471: END IF;
1472:
1473: l_line_tbl.DELETE(k);
1474: --bug3441056 start
1480: ELSIF G_ORDER_LEVEL_COPY = 1 THEN
1481:
1482: IF l_line_tbl(k).booked_flag = 'Y' THEN
1483: IF l_debug_level > 0 THEN
1484: OE_DEBUG_PUB.Add('Order level copy, booked=Y',3);
1485: OE_DEBUG_PUB.Add('Header:'||l_line_tbl(k).header_id,3);
1486: OE_DEBUG_PUB.Add('TopLine:'||l_line_tbl(k).top_model_line_id,3);
1487: OE_DEBUG_PUB.Add('LineID:'||l_line_tbl(k).line_id,3);
1488: END IF;
1481:
1482: IF l_line_tbl(k).booked_flag = 'Y' THEN
1483: IF l_debug_level > 0 THEN
1484: OE_DEBUG_PUB.Add('Order level copy, booked=Y',3);
1485: OE_DEBUG_PUB.Add('Header:'||l_line_tbl(k).header_id,3);
1486: OE_DEBUG_PUB.Add('TopLine:'||l_line_tbl(k).top_model_line_id,3);
1487: OE_DEBUG_PUB.Add('LineID:'||l_line_tbl(k).line_id,3);
1488: END IF;
1489:
1482: IF l_line_tbl(k).booked_flag = 'Y' THEN
1483: IF l_debug_level > 0 THEN
1484: OE_DEBUG_PUB.Add('Order level copy, booked=Y',3);
1485: OE_DEBUG_PUB.Add('Header:'||l_line_tbl(k).header_id,3);
1486: OE_DEBUG_PUB.Add('TopLine:'||l_line_tbl(k).top_model_line_id,3);
1487: OE_DEBUG_PUB.Add('LineID:'||l_line_tbl(k).line_id,3);
1488: END IF;
1489:
1490: OE_CONFIG_TSO_PVT.Get_MACD_Action_Mode
1483: IF l_debug_level > 0 THEN
1484: OE_DEBUG_PUB.Add('Order level copy, booked=Y',3);
1485: OE_DEBUG_PUB.Add('Header:'||l_line_tbl(k).header_id,3);
1486: OE_DEBUG_PUB.Add('TopLine:'||l_line_tbl(k).top_model_line_id,3);
1487: OE_DEBUG_PUB.Add('LineID:'||l_line_tbl(k).line_id,3);
1488: END IF;
1489:
1490: OE_CONFIG_TSO_PVT.Get_MACD_Action_Mode
1491: ( p_top_model_line_id => l_line_tbl(k).top_model_line_id
1494: ,x_return_status => l_ret_status );
1495:
1496: IF l_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1497: IF l_debug_level > 0 THEN
1498: OE_DEBUG_PUB.Add('Error in Get_MACD_Action_Mode',3);
1499: END IF;
1500: END IF;
1501:
1502: -- config mode of 4 indicates macd reconfig
1501:
1502: -- config mode of 4 indicates macd reconfig
1503: IF l_config_mode = 4 THEN
1504: IF l_debug_level > 0 THEN
1505: OE_DEBUG_PUB.Add('Order is a reconfiguration!',2);
1506: END IF;
1507:
1508: l_line_tbl.DELETE(k);
1509:
1519: END IF; --part of container = Y
1520:
1521: ELSE
1522: IF l_debug_level > 0 THEN
1523: OE_DEBUG_PUB.Add('Not in 110510. No MACD Logic Executed!',3);
1524: END IF;
1525: END IF;
1526: --bug3441056 contd
1527: --this label has been moved with the rest of the labels
1617:
1618: IF l_line_tbl(k).item_type_code = (OE_GLOBALS.G_ITEM_OPTION) THEN
1619:
1620: IF l_debug_level > 0 THEN
1621: oe_debug_pub.add( ' OPTION 1' || TO_CHAR ( L_LINE_TBL ( K ) .LINE_ID ) , 1 ) ;
1622: END IF;
1623:
1624: -- Find if Parent Line has been passed In
1625: IF l_line_tbl(k).top_model_line_id IS NOT NULL THEN
1672: /* End 3923574 */
1673:
1674: /* Populate indexes in the new table.
1675:
1676: oe_debug_pub.add('OPTION 3' || to_char(l_line_tbl(k).line_id));
1677: l_line_tbl(k).top_model_line_index := l_top_model_index;
1678: l_line_tbl(k).link_to_line_index := l_link_to_index;
1679: */
1680: END IF; -- Option
1684:
1685: IF l_line_tbl(k).item_type_code = (OE_GLOBALS.G_ITEM_CLASS) THEN
1686:
1687: IF l_debug_level > 0 THEN
1688: oe_debug_pub.add( 'CLASS 1' || TO_CHAR ( L_LINE_TBL ( K ) .LINE_ID ) , 1 ) ;
1689: END IF;
1690:
1691: -- Find if Parent Line has been passed In
1692: IF l_line_tbl(k).top_model_line_id IS NOT NULL THEN
1735:
1736: IF l_line_tbl(k).item_type_code = (OE_GLOBALS.G_ITEM_SERVICE) THEN
1737:
1738: IF l_debug_level > 0 THEN
1739: oe_debug_pub.add( 'SERVICE ' || TO_CHAR ( L_LINE_TBL ( K ) .LINE_ID ) , 2 ) ;
1740: END IF;
1741:
1742: -- Find if Parent Line has been passed In and Not a Customer Product
1743: IF l_line_tbl(k).service_reference_line_id IS NOT NULL AND
1788: END;
1789:
1790: IF l_line_tbl.EXISTS(k) THEN
1791: IF l_debug_level > 0 THEN
1792: OE_DEBUG_PUB.Add('Adding to Out tbl:'||l_line_tbl(k).line_id);
1793: END IF;
1794: l_line_out_tbl(j) := l_line_tbl(k);
1795: j := j + 1;
1796:
1799: k := l_line_tbl.NEXT(k);
1800: END LOOP;
1801:
1802: IF l_debug_level > 0 THEN
1803: oe_debug_pub.add('Exiting OE_ORDER_COPY_UTIL.HANDLE_NONSTANDARD_LINES ',1);
1804: END IF;
1805: p_x_line_tbl := l_line_out_tbl;
1806:
1807: --ER 2264774
1853: K NUMBER;
1854: J NUMBER;
1855: l_in_config_header_id NUMBER;
1856: --
1857: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1858: --
1859:
1860: l_part_of_container VARCHAR2(1);
1861: l_top_container_model VARCHAR2(1);
1861: l_top_container_model VARCHAR2(1);
1862:
1863: BEGIN
1864: IF l_debug_level > 0 THEN
1865: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.LOAD_LINES' , 1 ) ;
1866: oe_debug_pub.add('p_all_lines is ' || p_all_lines , 1 ) ;
1867: END IF;
1868:
1869: IF p_hdr_type_id IS NOT NULL THEN
1862:
1863: BEGIN
1864: IF l_debug_level > 0 THEN
1865: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.LOAD_LINES' , 1 ) ;
1866: oe_debug_pub.add('p_all_lines is ' || p_all_lines , 1 ) ;
1867: END IF;
1868:
1869: IF p_hdr_type_id IS NOT NULL THEN
1870: l_cpy_category := get_order_category(p_hdr_type_id);
1922: ELSE -- When the destination is Mixed or Order.
1923:
1924:
1925: IF l_debug_level > 0 THEN
1926: oe_debug_pub.add( 'CALLING HANDLE_NONSTANDARD_LINES' , 1 ) ;
1927: END IF;
1928: /* Start 3923574 */
1929: Handle_NonStandard_Lines(x_line_tbl
1930: ,p_incl_cancelled
1985: NVL(x_top_model_tbl(I).has_canceled_lines, 'N') = 'N'
1986: THEN
1987: IF OE_CODE_CONTROL.Get_Code_Release_Level < '110509' THEN
1988: IF l_debug_level > 0 THEN
1989: oe_debug_pub.add('1923460: ABOUT TO RUN COPY CONFIGURATION' , 1 ) ;
1990: END IF;
1991:
1992: l_dynamicSqlString := '
1993: Begin
2019: out_config_hdr_id;
2020: x_top_model_tbl(I).config_rev_nbr :=
2021: out_config_rev_nbr;
2022: IF l_debug_level > 0 THEN
2023: oe_debug_pub.add( '1923460: INDEX IS '
2024: ||TO_CHAR ( I ) , 1 ) ;
2025: oe_debug_pub.add( '1923460: OUT_CONFIG_HEADER_ID
2026: IS '||TO_CHAR ( OUT_CONFIG_HDR_ID ) , 1 ) ;
2027: oe_debug_pub.add( '1923460: OUT_CONFIG_REV_NBR IS '
2021: out_config_rev_nbr;
2022: IF l_debug_level > 0 THEN
2023: oe_debug_pub.add( '1923460: INDEX IS '
2024: ||TO_CHAR ( I ) , 1 ) ;
2025: oe_debug_pub.add( '1923460: OUT_CONFIG_HEADER_ID
2026: IS '||TO_CHAR ( OUT_CONFIG_HDR_ID ) , 1 ) ;
2027: oe_debug_pub.add( '1923460: OUT_CONFIG_REV_NBR IS '
2028: ||TO_CHAR ( OUT_CONFIG_REV_NBR ) , 1 ) ;
2029: END IF;
2023: oe_debug_pub.add( '1923460: INDEX IS '
2024: ||TO_CHAR ( I ) , 1 ) ;
2025: oe_debug_pub.add( '1923460: OUT_CONFIG_HEADER_ID
2026: IS '||TO_CHAR ( OUT_CONFIG_HDR_ID ) , 1 ) ;
2027: oe_debug_pub.add( '1923460: OUT_CONFIG_REV_NBR IS '
2028: ||TO_CHAR ( OUT_CONFIG_REV_NBR ) , 1 ) ;
2029: END IF;
2030: ELSE
2031: IF l_debug_level > 0 THEN
2028: ||TO_CHAR ( OUT_CONFIG_REV_NBR ) , 1 ) ;
2029: END IF;
2030: ELSE
2031: IF l_debug_level > 0 THEN
2032: oe_debug_pub.add( '1923460: FAILED IN COPY
2033: CONFIGURATION' , 1 ) ;
2034: END IF;
2035: END IF;
2036:
2036:
2037: ELSE -- pack I onwards
2038:
2039: IF l_debug_level > 0 THEN
2040: oe_debug_pub.add( 'NEW COPY CONFIG API' , 1 ) ;
2041: END IF;
2042:
2043: l_in_config_header_id := x_line_tbl(I).config_header_id;
2044:
2057:
2058: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2059: OE_Msg_Pub.Add_Text(l_msg_data);
2060: IF l_debug_level > 0 THEN
2061: oe_debug_pub.add( 'ERROR FROM NEW COPY: '
2062: || L_MSG_DATA , 1 ) ;
2063: END IF;
2064: END IF;
2065:
2082: x_line_tbl(K).configuration_id
2083: := l_new_item_id_tbl(J);
2084:
2085: IF l_debug_level > 0 THEN
2086: oe_debug_pub.add( 'OLD CONFIG '||
2087: L_ORIG_ITEM_ID_TBL ( J ) , 1 ) ;
2088: END IF;
2089: IF l_debug_level > 0 THEN
2090: oe_debug_pub.add( 'NEW CONFIG '
2086: oe_debug_pub.add( 'OLD CONFIG '||
2087: L_ORIG_ITEM_ID_TBL ( J ) , 1 ) ;
2088: END IF;
2089: IF l_debug_level > 0 THEN
2090: oe_debug_pub.add( 'NEW CONFIG '
2091: ||X_LINE_TBL ( K ) .CONFIGURATION_ID , 1 ) ;
2092: END IF;
2093: EXIT;
2094: END IF;
2100: K := x_line_tbl.NEXT(K);
2101: END LOOP;
2102:
2103: IF l_debug_level > 0 THEN
2104: oe_debug_pub.add('DONE UPDATING NEW CONFIG ITEM IDS',1);
2105: END IF;
2106:
2107: -- now set the new cofig hdr/rev on model.
2108: -- is this table always populated??
2124: END IF;
2125:
2126:
2127: IF l_debug_level > 0 THEN
2128: oe_debug_pub.add( 'ITEM_TYPE_CODE IS'
2129: ||X_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
2130: oe_debug_pub.add( 'LINE ID IS'||X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
2131: oe_debug_pub.add( 'TOP_MODEL_LINE_INDEX IS '
2132: ||TO_CHAR ( L_TOP_MODEL_INDEX ) , 1 ) ;
2126:
2127: IF l_debug_level > 0 THEN
2128: oe_debug_pub.add( 'ITEM_TYPE_CODE IS'
2129: ||X_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
2130: oe_debug_pub.add( 'LINE ID IS'||X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
2131: oe_debug_pub.add( 'TOP_MODEL_LINE_INDEX IS '
2132: ||TO_CHAR ( L_TOP_MODEL_INDEX ) , 1 ) ;
2133: END IF;
2134: END LOOP;
2127: IF l_debug_level > 0 THEN
2128: oe_debug_pub.add( 'ITEM_TYPE_CODE IS'
2129: ||X_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
2130: oe_debug_pub.add( 'LINE ID IS'||X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
2131: oe_debug_pub.add( 'TOP_MODEL_LINE_INDEX IS '
2132: ||TO_CHAR ( L_TOP_MODEL_INDEX ) , 1 ) ;
2133: END IF;
2134: END LOOP;
2135: END IF; -- IF x_line_tbl.count > 0
2137:
2138: END IF; -- IF x_line_tbl.count > 0
2139:
2140: IF l_debug_level > 0 THEN
2141: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.LOAD_LINES' , 1 ) ;
2142: END IF;
2143:
2144:
2145: EXCEPTION
2146:
2147: WHEN OTHERS THEN
2148:
2149: IF l_debug_level > 0 THEN
2150: oe_debug_pub.add( 'IN OTHERS LOAD LINES '|| sqlerrm , 1 ) ;
2151: END IF;
2152:
2153: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2154: THEN
2157: , l_api_name
2158: );
2159: END IF;
2160:
2161: OE_DEBUG_PUB.DumpDebug;
2162:
2163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2164:
2165: End Load_Lines;
2167: procedure Clear_Missing_Attributes(
2168: p_line_rec IN OUT NOCOPY OE_Order_PUB.Line_Rec_Type)
2169: IS
2170: --
2171: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2172: --
2173: BEGIN
2174:
2175: IF p_line_rec.SERVICE_REFERENCE_TYPE_CODE IS NULL THEN
2383: l_max_line_no NUMBER;
2384: l_total_lines NUMBER;
2385: l_copying_all_lines VARCHAR2(3);
2386: --
2387: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2388: --
2389: l_line_set_tbl Line_Set_Tbl_Type;
2390: l_count NUMBER;
2391: l_index NUMBER;
2393: l_operation VARCHAR2(30);
2394: BEGIN
2395:
2396: IF l_debug_level > 0 THEN
2397: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.INIT_LINES_NEW' , 1 ) ;
2398: END IF;
2399:
2400: IF p_line_type IS NOT NULL THEN -- If Returns is calling us then this is NULL.
2401: IF l_debug_level > 0 THEN
2398: END IF;
2399:
2400: IF p_line_type IS NOT NULL THEN -- If Returns is calling us then this is NULL.
2401: IF l_debug_level > 0 THEN
2402: oe_debug_pub.add( ' GET LINE CATEGORY ' , 1 ) ;
2403: END IF;
2404: l_cpy_line_category := Get_Line_Category(p_line_type);
2405: END IF;
2406:
2450: G_Line_Num_Rec.split_from_line_id(J) :=
2451: G_Line_Num_Rec.new_line_id(m);
2452: G_Line_Num_Rec.split_by(J) := 'USER';
2453: IF l_debug_level > 0 THEN
2454: oe_debug_pub.add( 'FOUND THE SPLIT_FROM '||G_LINE_NUM_REC.NEW_LINE_ID ( M ) , 1 ) ;
2455: END IF;
2456: EXIT;
2457: END IF;
2458:
2481: p_x_line_tbl(k).line_type_id := p_line_type;
2482: IF p_line_type <> l_temp_line_rec.line_type_id THEN
2483:
2484: IF l_debug_level > 0 THEN
2485: oe_debug_pub.add( 'AK :COPY LINE CAT ' || L_CPY_LINE_CATEGORY , 2 ) ;
2486: oe_debug_pub.add( 'AK :ORIG LINE CAT ' || L_ORIG_LINE_CATEGORY , 2 ) ;
2487: END IF;
2488: -- If we are copying from a non-return to a return type
2489: IF (l_orig_line_category = 'ORDER') AND
2482: IF p_line_type <> l_temp_line_rec.line_type_id THEN
2483:
2484: IF l_debug_level > 0 THEN
2485: oe_debug_pub.add( 'AK :COPY LINE CAT ' || L_CPY_LINE_CATEGORY , 2 ) ;
2486: oe_debug_pub.add( 'AK :ORIG LINE CAT ' || L_ORIG_LINE_CATEGORY , 2 ) ;
2487: END IF;
2488: -- If we are copying from a non-return to a return type
2489: IF (l_orig_line_category = 'ORDER') AND
2490: (l_cpy_line_category = 'RETURN') THEN
2504: l_operation := 'RETURN_TO_RETURN';
2505: END IF;
2506: END IF;
2507: IF l_debug_level > 0 THEN
2508: oe_debug_pub.add( 'IF REG TO RET'||L_REG_TO_RMA , 1 ) ;
2509: END IF;
2510:
2511:
2512: -- Init various columns
2509: END IF;
2510:
2511:
2512: -- Init various columns
2513: -- OE_DEBUG_PUB.ADD('Init various Cols');
2514: -- Set Date, Time, who columns
2515:
2516: p_x_line_tbl(k).creation_date := FND_API.G_MISS_DATE;
2517: p_x_line_tbl(k).created_by := FND_API.G_MISS_NUM;
2555: l_top_model_line_index <> FND_API.G_MISS_NUM
2556: THEN
2557: IF p_x_top_model_tbl.EXISTS(l_top_model_line_index) THEN
2558: IF l_debug_level > 0 THEN
2559: oe_debug_pub.add( '1923460: IN INIT_LINES , MODEL_INDEX IS '||TO_CHAR ( L_TOP_MODEL_LINE_INDEX ) , 1 ) ;
2560: 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 ) ;
2561: 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 ) ;
2562: END IF;
2563: p_x_line_tbl(k).config_header_id
2556: THEN
2557: IF p_x_top_model_tbl.EXISTS(l_top_model_line_index) THEN
2558: IF l_debug_level > 0 THEN
2559: oe_debug_pub.add( '1923460: IN INIT_LINES , MODEL_INDEX IS '||TO_CHAR ( L_TOP_MODEL_LINE_INDEX ) , 1 ) ;
2560: 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 ) ;
2561: 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 ) ;
2562: END IF;
2563: p_x_line_tbl(k).config_header_id
2564: := p_x_top_model_tbl(l_top_model_line_index).config_header_id;
2557: IF p_x_top_model_tbl.EXISTS(l_top_model_line_index) THEN
2558: IF l_debug_level > 0 THEN
2559: oe_debug_pub.add( '1923460: IN INIT_LINES , MODEL_INDEX IS '||TO_CHAR ( L_TOP_MODEL_LINE_INDEX ) , 1 ) ;
2560: 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 ) ;
2561: 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 ) ;
2562: END IF;
2563: p_x_line_tbl(k).config_header_id
2564: := p_x_top_model_tbl(l_top_model_line_index).config_header_id;
2565: p_x_line_tbl(k).config_rev_nbr
2593: INTO p_x_line_tbl(k).line_id
2594: FROM dual;
2595: G_Line_Num_Rec.new_line_id(J) := p_x_line_tbl(k).line_id;
2596: IF l_debug_level > 0 THEN
2597: oe_debug_pub.add( 'NEW LINE ID IS '||P_X_LINE_TBL ( K ) .LINE_ID , 1 ) ;
2598: END IF;
2599:
2600: -- Load line level holds for this line
2601: IF l_debug_level > 0 THEN
2598: END IF;
2599:
2600: -- Load line level holds for this line
2601: IF l_debug_level > 0 THEN
2602: oe_debug_pub.add('The COPy Line Level HOLDS '||p_copy_rec.line_holds);
2603: oe_debug_pub.add('REG to RMA '||l_reg_to_rma);
2604: oe_debug_pub.add('RMA to REG '||l_rma_to_reg);
2605: END IF;
2606:
2599:
2600: -- Load line level holds for this line
2601: IF l_debug_level > 0 THEN
2602: oe_debug_pub.add('The COPy Line Level HOLDS '||p_copy_rec.line_holds);
2603: oe_debug_pub.add('REG to RMA '||l_reg_to_rma);
2604: oe_debug_pub.add('RMA to REG '||l_rma_to_reg);
2605: END IF;
2606:
2607: IF p_copy_rec.line_holds = FND_API.G_TRUE AND
2600: -- Load line level holds for this line
2601: IF l_debug_level > 0 THEN
2602: oe_debug_pub.add('The COPy Line Level HOLDS '||p_copy_rec.line_holds);
2603: oe_debug_pub.add('REG to RMA '||l_reg_to_rma);
2604: oe_debug_pub.add('RMA to REG '||l_rma_to_reg);
2605: END IF;
2606:
2607: IF p_copy_rec.line_holds = FND_API.G_TRUE AND
2608: l_reg_to_rma = FND_API.G_FALSE AND
2649: l_line_set_tbl(x).line_set_id;
2650: l_line_set_tbl(x).set_count :=
2651: l_line_set_tbl(x).set_count + 1;
2652: IF l_debug_level > 0 THEN
2653: oe_debug_pub.add( 'Line Set Id is'||P_X_LINE_TBL( K ).line_set_id , 1 ) ;
2654: END IF;
2655: l_parent_found := TRUE;
2656: EXIT;
2657: END IF;
2691: p_x_line_tbl(k).config_header_id <> FND_API.G_MISS_NUM AND
2692: p_x_line_tbl(k).cancelled_flag <> 'Y'
2693: THEN
2694: IF l_debug_level > 0 THEN
2695: oe_debug_pub.add( 'COPY: PACK H NEW LOGIC MI '||P_X_LINE_TBL ( K ) .CONFIGURATION_ID , 1 ) ;
2696: END IF;
2697: ELSE
2698: p_x_line_tbl(k).configuration_id := FND_API.G_MISS_NUM;
2699: END IF;
2888:
2889: IF ( G_COPY_TO_DIFFERENT_ORDER_TYPE OR
2890: p_line_type <> l_temp_line_rec.line_type_id ) AND
2891: l_temp_line_rec.line_category_code <> 'RETURN' THEN
2892: oe_debug_pub.add( 'Redefaulting the Tax Code' ,1);
2893: p_x_line_tbl(k).tax_code := FND_API.G_MISS_CHAR;
2894: END IF;
2895:
2896:
2938: END IF;
2939:
2940:
2941: IF l_debug_level > 0 THEN
2942: oe_debug_pub.add( 'AK: BEFORE REG_TO RETURN' , 3 ) ;
2943: END IF;
2944: -- Special Handling if we are copying to a Return Line.
2945: IF FND_API.to_Boolean(l_reg_to_rma) THEN
2946:
3067: FND_API.to_boolean(p_line_descflex) AND
3068: FND_API.to_Boolean(l_reg_to_rma)
3069: THEN
3070: IF l_debug_level > 0 THEN
3071: oe_debug_pub.add('Copying DFF from REF Line '||
3072: l_temp_line_rec.context) ;
3073: END IF;
3074: -- Since we have cleared line record, we need to get back the
3075: -- values from reference line record.
3127:
3128: -- Added the following code to support a User Hook to copy DFF at
3129: -- line level.
3130: IF l_debug_level > 0 THEN
3131: oe_debug_pub.add('The Operation is '||l_operation) ;
3132: END IF;
3133:
3134: IF CALL_DFF_COPY_EXTN_API(l_temp_line_rec.org_id) THEN
3135:
3139: p_ref_line_rec => l_temp_line_rec,
3140: p_copy_line_rec => p_x_line_tbl(k));
3141:
3142: IF l_debug_level > 0 THEN
3143: oe_debug_pub.add('After COPY Line DFF '|| p_x_line_tbl(k).context) ;
3144: END IF;
3145: END IF;
3146:
3147: k := p_x_line_tbl.NEXT(k);
3164:
3165: END IF; -- Table has rows;
3166:
3167: IF l_debug_level > 0 THEN
3168: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.INIT_LINES_NEW' , 1 ) ;
3169: END IF;
3170:
3171:
3172:
3184: l_sub_scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
3185: l_api_name CONSTANT VARCHAR(30) := 'Load_and_Init_Line_Scredits';
3186: K NUMBER; -- Used as loop index.
3187: --
3188: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3189: --
3190: BEGIN
3191:
3192: IF l_debug_level > 0 THEN
3189: --
3190: BEGIN
3191:
3192: IF l_debug_level > 0 THEN
3193: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_LINE_SCREDITS' , 1 ) ;
3194: END IF;
3195:
3196: -- Load Line Sales Credits
3197:
3256:
3257: END IF; -- Line Table has rows
3258:
3259: IF l_debug_level > 0 THEN
3260: oe_debug_pub.add( 'LINE SC IS '||TO_CHAR ( X_LINE_SCREDIT_TBL.COUNT ) , 2 ) ;
3261: END IF;
3262:
3263: IF l_debug_level > 0 THEN
3264: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_LINE_SCREDITS' , 1 ) ;
3260: oe_debug_pub.add( 'LINE SC IS '||TO_CHAR ( X_LINE_SCREDIT_TBL.COUNT ) , 2 ) ;
3261: END IF;
3262:
3263: IF l_debug_level > 0 THEN
3264: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.LOAD_AND_INIT_LINE_SCREDITS' , 1 ) ;
3265: END IF;
3266:
3267:
3268: EXCEPTION
3269:
3270: WHEN OTHERS THEN
3271:
3272: IF l_debug_level > 0 THEN
3273: oe_debug_pub.add( 'IN OTHERS' , 1 ) ;
3274: END IF;
3275:
3276: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3277: THEN
3280: , l_api_name
3281: );
3282: END IF;
3283:
3284: OE_DEBUG_PUB.DumpDebug;
3285:
3286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3287:
3288: END Load_and_Init_Line_Scredits;
3298: l_line_id NUMBER;
3299: k NUMBER;
3300: I NUMBER := 1;
3301: l_line_category VARCHAR2(30);
3302: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3303:
3304: --R12 CC Encryption
3305: l_invoice_to_cust_id NUMBER;
3306: l_invoice_to_org_id NUMBER;
3312:
3313: BEGIN
3314:
3315: IF l_debug_level > 0 THEN
3316: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.Load_and_Init_Line_Payments.' , 1 ) ;
3317: END IF;
3318:
3319: IF p_line_tbl.COUNT > 0 THEN
3320: -- For every line in the line table
3327: l_line_category := Get_Line_Category(p_line_tbl(k).line_type_id);
3328: END IF;
3329:
3330: IF l_debug_level > 0 THEN
3331: oe_debug_pub.add( ' Destination line type is: '||l_line_category, 3 ) ;
3332: END IF;
3333:
3334: IF l_line_category = 'RETURN' THEN
3335: goto Next_Line;
3348: NULL;
3349: END;
3350:
3351: IF l_debug_level > 0 THEN
3352: oe_debug_pub.add( 'After query_rows the count is: '||l_sub_payment_tbl.COUNT, 3 ) ;
3353: END IF;
3354:
3355: -- Init Table for Copying
3356: IF l_sub_payment_tbl.COUNT > 0 THEN
3434:
3435: END IF; -- Line Table has rows
3436:
3437: IF l_debug_level > 0 THEN
3438: oe_debug_pub.add( 'Exiting OE_ORDER_COPY_UTIL.Load_and_Init_Line_Payments.' , 1 ) ;
3439: END IF;
3440:
3441: END Load_and_Init_Line_Payments;
3442:
3447: IS
3448: k NUMBER; -- Used as Index for loop.
3449: l_return_status VARCHAR2(100);
3450: --
3451: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3452: --
3453: BEGIN
3454:
3455: IF l_debug_level > 0 THEN
3452: --
3453: BEGIN
3454:
3455: IF l_debug_level > 0 THEN
3456: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.DELETE_CONFIG ' , 1 ) ;
3457: END IF;
3458:
3459: k := p_top_model_tbl.FIRST;
3460:
3465: l_return_status );
3466: k := p_top_model_tbl.NEXT(k);
3467: END LOOP;
3468: IF l_debug_level > 0 THEN
3469: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.DELETE_CONFIG' , 1 ) ;
3470: END IF;
3471: EXCEPTION
3472:
3473: WHEN OTHERS THEN
3611: l_top_model_index NUMBER;
3612: l_return_status VARCHAR2(30);
3613:
3614: --
3615: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3616: --
3617: l_copy_header_id NUMBER;
3618: l_temp_var VARCHAR2(2000) := NULL;
3619: l_copy_rec COPY_REC_TYPE;
3657: l_copy_header_payments := p_copy_rec.hdr_payments;
3658: l_copy_line_payments := p_copy_rec.line_payments;
3659:
3660: IF l_debug_level > 0 THEN
3661: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.COPY_ORDER' , 1 ) ;
3662: oe_debug_pub.add( 'BEFORE RESETTING LEVEL : '|| TO_CHAR ( G_ORDER_LEVEL_COPY ) , 3 ) ;
3663: oe_debug_pub.add( 'REDEFAULT MISSING IS ' || P_COPY_REC.DEFAULT_NULL_VALUES ) ;
3664: END IF;
3665:
3658: l_copy_line_payments := p_copy_rec.line_payments;
3659:
3660: IF l_debug_level > 0 THEN
3661: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.COPY_ORDER' , 1 ) ;
3662: oe_debug_pub.add( 'BEFORE RESETTING LEVEL : '|| TO_CHAR ( G_ORDER_LEVEL_COPY ) , 3 ) ;
3663: oe_debug_pub.add( 'REDEFAULT MISSING IS ' || P_COPY_REC.DEFAULT_NULL_VALUES ) ;
3664: END IF;
3665:
3666: G_LINE_PRICE_MODE := p_copy_rec.line_price_mode;
3659:
3660: IF l_debug_level > 0 THEN
3661: oe_debug_pub.add( 'ENTERING OE_ORDER_COPY_UTIL.COPY_ORDER' , 1 ) ;
3662: oe_debug_pub.add( 'BEFORE RESETTING LEVEL : '|| TO_CHAR ( G_ORDER_LEVEL_COPY ) , 3 ) ;
3663: oe_debug_pub.add( 'REDEFAULT MISSING IS ' || P_COPY_REC.DEFAULT_NULL_VALUES ) ;
3664: END IF;
3665:
3666: G_LINE_PRICE_MODE := p_copy_rec.line_price_mode;
3667: G_ORDER_LEVEL_COPY := 0;
3691: G_REGULAR_TO_RMA := FALSE;
3692: G_NEED_TO_EXPLODE_CONFIG := FALSE;
3693: -- Loop Through the table of header Ids
3694: IF l_debug_level > 0 THEN
3695: oe_debug_pub.add('BEfore looping for '||p_hdr_id_tbl.COUNT);
3696: END IF;
3697:
3698: FOR i IN p_hdr_id_tbl.FIRST..p_hdr_id_tbl.LAST LOOP
3699:
3712: G_Canceled_Line_Deleted := FALSE;
3713: G_Order_Has_Split_Lines := FALSE;
3714:
3715: IF l_debug_level > 0 THEN
3716: oe_debug_pub.add( 'HDR ID IS '||p_hdr_id_tbl(i).id1 , 2 ) ;
3717: END IF;
3718:
3719: l_header_id := p_hdr_id_tbl(i).id1;
3720:
3726: -- Copy Hdr Information
3727:
3728: /* Added the following line to fix the bug 1923460 */
3729: IF l_debug_level > 0 THEN
3730: oe_debug_pub.add( 'BEFORE SETTING LEVEL : '|| TO_CHAR ( G_ORDER_LEVEL_COPY ) , 3 ) ;
3731: END IF;
3732: G_ORDER_LEVEL_COPY := 1;
3733: IF p_copy_rec.source_block_type = 'LINE' AND
3734: p_copy_rec.copy_complete_config = FND_API.G_TRUE
3734: p_copy_rec.copy_complete_config = FND_API.G_TRUE
3735: THEN
3736: G_NEED_TO_EXPLODE_CONFIG := TRUE;
3737: IF l_debug_level > 0 THEN
3738: oe_debug_pub.add('Setting G_NEED_TO_EXPLODE_CONFIG ' , 3 ) ;
3739: END IF;
3740: END IF;
3741: l_destination_header_id := l_header_id;
3742: IF FND_API.to_Boolean(p_copy_rec.hdr_info) THEN
3748: l_header_rec.operation := OE_GLOBALS.G_OPR_CREATE;
3749: l_header_rec.transaction_phase_code := p_copy_rec.new_phase;
3750:
3751: IF l_debug_level > 0 THEN
3752: oe_debug_pub.add( 'AK1 HEADER ID ' || TO_CHAR ( L_HEADER_ID ) , 2 ) ;
3753: END IF;
3754: ELSE -- Create Blank Header
3755:
3756: l_copy_rec := p_copy_rec;
3759: p_copy_rec.copy_complete_config = FND_API.G_TRUE
3760: THEN
3761: G_NEED_TO_EXPLODE_CONFIG := TRUE;
3762: IF l_debug_level > 0 THEN
3763: oe_debug_pub.add('Setting G_NEED_TO_EXPLODE_CONFIG ' , 3 ) ;
3764: END IF;
3765:
3766: END IF;
3767:
3765:
3766: END IF;
3767:
3768: IF l_debug_level > 0 THEN
3769: oe_debug_pub.add( 'AK IN FIRST LINE HEADER LOGIC' , 2 ) ;
3770: END IF;
3771:
3772: -- Get header_id from first line.
3773: l_line_id := p_line_id_tbl(1).id1;
3800:
3801: ELSE
3802:
3803: IF l_debug_level > 0 THEN
3804: oe_debug_pub.add( 'AK BLANK HEADER' , 3 ) ;
3805: END IF;
3806: -- Set Source to COPY
3807: l_header_rec.source_document_type_id := 2;
3808: l_header_rec.source_document_id := l_header_id;
3813: l_header_rec.order_type_id := p_copy_rec.hdr_type;
3814: END IF;
3815:
3816: IF l_debug_level > 0 THEN
3817: oe_debug_pub.add( 'ORDER TYPE ' || TO_CHAR ( L_HEADER_REC.ORDER_TYPE_ID ) , 2 ) ;
3818: END IF;
3819: -- Set manual order number
3820: IF p_copy_rec.manual_order_number IS NOT NULL THEN
3821: l_header_rec.order_number := p_copy_rec.manual_order_number;
3871: IF FND_API.to_Boolean(p_copy_rec.hdr_payments)
3872: AND OE_PREPAYMENT_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED THEN
3873: -- don't copy payment information to order of RETURN type.
3874: IF l_debug_level > 0 THEN
3875: oe_Debug_pub.add('Before hdr payments processing, destination order type is: '||get_order_category(l_header_rec.order_type_id),3);
3876: END IF;
3877: --R12 CC Encryption
3878: l_cpy_category := Get_Order_Category(p_copy_rec.hdr_type);
3879: IF nvl(l_cpy_category,'NULL') <> 'RETURN' THEN --R12 CC Encryption
3880: --bug 5113795
3881: select payment_type_code into l_payment_type_code
3882: from oe_order_headers_all where header_id = l_header_id;
3883: IF l_debug_level > 0 THEN
3884: oe_debug_pub.add('Payment type code in copy order..ksurendr'||l_payment_type_code);
3885: oe_debug_pub.add('Header_id ...'||l_header_id);
3886: oe_debug_pub.add('Copy Header Payments flag...'||l_copy_header_payments);
3887: END IF;
3888: IF l_payment_type_code = 'CREDIT_CARD' and
3881: select payment_type_code into l_payment_type_code
3882: from oe_order_headers_all where header_id = l_header_id;
3883: IF l_debug_level > 0 THEN
3884: oe_debug_pub.add('Payment type code in copy order..ksurendr'||l_payment_type_code);
3885: oe_debug_pub.add('Header_id ...'||l_header_id);
3886: oe_debug_pub.add('Copy Header Payments flag...'||l_copy_header_payments);
3887: END IF;
3888: IF l_payment_type_code = 'CREDIT_CARD' and
3889: OE_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED'
3882: from oe_order_headers_all where header_id = l_header_id;
3883: IF l_debug_level > 0 THEN
3884: oe_debug_pub.add('Payment type code in copy order..ksurendr'||l_payment_type_code);
3885: oe_debug_pub.add('Header_id ...'||l_header_id);
3886: oe_debug_pub.add('Copy Header Payments flag...'||l_copy_header_payments);
3887: END IF;
3888: IF l_payment_type_code = 'CREDIT_CARD' and
3889: OE_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED'
3890: AND l_copy_header_payments = 'T' THEN
3888: IF l_payment_type_code = 'CREDIT_CARD' and
3889: OE_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED'
3890: AND l_copy_header_payments = 'T' THEN
3891: IF l_debug_level > 0 THEN
3892: oe_debug_pub.add('Error in Copy order');
3893: END IF;
3894: FND_MESSAGE.SET_NAME('ONT','OE_CC_NO_COPY_SEC_CODE_REQ');
3895: OE_MSG_PUB.Add;
3896: RAISE FND_API.G_EXC_ERROR;
3895: OE_MSG_PUB.Add;
3896: RAISE FND_API.G_EXC_ERROR;
3897: ELSE
3898: IF l_debug_level > 0 THEN
3899: oe_debug_pub.add('Before calling load and init header payments....');
3900: END IF;
3901: Load_and_Init_Hdr_Payments(l_header_id,l_x_header_payment_tbl);
3902: END IF;
3903: --bug 5113795
3909: INTO l_header_rec.header_id
3910: FROM DUAL;
3911:
3912: --R12 CC Encryption
3913: oe_debug_pub.add('New header id...'||l_header_rec.header_id);
3914: --oe_debug_pub.adD('Original trxn extn id'||l_x_header_payment_tbl(1).trxn_extension_id);
3915: oe_debug_pub.add('category'||l_cpy_category);
3916: oe_debug_pub.add('g_create fl'||g_create_payment_flag||'and'||p_copy_rec.hdr_info||'and'||p_copy_rec.hdr_payments);
3917:
3910: FROM DUAL;
3911:
3912: --R12 CC Encryption
3913: oe_debug_pub.add('New header id...'||l_header_rec.header_id);
3914: --oe_debug_pub.adD('Original trxn extn id'||l_x_header_payment_tbl(1).trxn_extension_id);
3915: oe_debug_pub.add('category'||l_cpy_category);
3916: oe_debug_pub.add('g_create fl'||g_create_payment_flag||'and'||p_copy_rec.hdr_info||'and'||p_copy_rec.hdr_payments);
3917:
3918: /*IF nvl(l_cpy_category,'-1') <> 'RETURN' AND FND_API.to_Boolean(p_copy_rec.hdr_info)
3911:
3912: --R12 CC Encryption
3913: oe_debug_pub.add('New header id...'||l_header_rec.header_id);
3914: --oe_debug_pub.adD('Original trxn extn id'||l_x_header_payment_tbl(1).trxn_extension_id);
3915: oe_debug_pub.add('category'||l_cpy_category);
3916: oe_debug_pub.add('g_create fl'||g_create_payment_flag||'and'||p_copy_rec.hdr_info||'and'||p_copy_rec.hdr_payments);
3917:
3918: /*IF nvl(l_cpy_category,'-1') <> 'RETURN' AND FND_API.to_Boolean(p_copy_rec.hdr_info)
3919: AND FND_API.to_Boolean(p_copy_rec.hdr_payments) AND g_create_payment_flag = 'Y' THEN
3912: --R12 CC Encryption
3913: oe_debug_pub.add('New header id...'||l_header_rec.header_id);
3914: --oe_debug_pub.adD('Original trxn extn id'||l_x_header_payment_tbl(1).trxn_extension_id);
3915: oe_debug_pub.add('category'||l_cpy_category);
3916: oe_debug_pub.add('g_create fl'||g_create_payment_flag||'and'||p_copy_rec.hdr_info||'and'||p_copy_rec.hdr_payments);
3917:
3918: /*IF nvl(l_cpy_category,'-1') <> 'RETURN' AND FND_API.to_Boolean(p_copy_rec.hdr_info)
3919: AND FND_API.to_Boolean(p_copy_rec.hdr_payments) AND g_create_payment_flag = 'Y' THEN
3920: -- Condition for the payment types supported by order header
3928: --0and trxn_extension_id is not null; --Verify
3929: exception
3930: when no_data_found then
3931: IF l_debug_level > 0 THEN
3932: oe_debug_pub.add('no data found while querying oe_payments in copy_order..'||sqlerrm);
3933: END IF;
3934: l_exists := 'N';
3935: end;
3936: begin
3940: Where organization_id = l_header_rec.invoice_to_org_id;
3941: exception
3942: when no_data_found then
3943: IF l_debug_level > 0 THEN
3944: oe_debug_pub.add('no data found while querying for customer id in copy_order..'||sqlerrm);
3945: END IF;
3946: end;
3947:
3948: IF nvl(l_exists, 'N') = 'N' THEN --Verify
3995: p_copy_rec.copy_complete_config = FND_API.G_TRUE
3996: THEN
3997: G_NEED_TO_EXPLODE_CONFIG := TRUE;
3998: IF l_debug_level > 0 THEN
3999: oe_debug_pub.add('Setting G_NEED_TO_EXPLODE_CONFIG ' , 3 ) ;
4000: END IF;
4001: END IF;
4002: END IF;
4003:
4020: G_LN_VER_NUMBER := p_copy_rec.line_version_number;
4021: G_LN_PHASE_CHANGE_FLAG := p_copy_rec.line_phase_change_flag;
4022:
4023: IF l_debug_level > 0 THEN
4024: oe_debug_pub.add('Header Version Number IS '|| G_HDR_VER_NUMBER , 1 ) ;
4025: oe_debug_pub.add('Header Phase Change Flag IS '|| G_HDR_PHASE_CHANGE_FLAG , 1 ) ;
4026: oe_debug_pub.add('Line Version Number IS '|| G_LN_VER_NUMBER , 1 ) ;
4027: oe_debug_pub.add('Line Phase Change Flag IS '|| G_LN_PHASE_CHANGE_FLAG , 1 ) ;
4028: END IF;
4021: G_LN_PHASE_CHANGE_FLAG := p_copy_rec.line_phase_change_flag;
4022:
4023: IF l_debug_level > 0 THEN
4024: oe_debug_pub.add('Header Version Number IS '|| G_HDR_VER_NUMBER , 1 ) ;
4025: oe_debug_pub.add('Header Phase Change Flag IS '|| G_HDR_PHASE_CHANGE_FLAG , 1 ) ;
4026: oe_debug_pub.add('Line Version Number IS '|| G_LN_VER_NUMBER , 1 ) ;
4027: oe_debug_pub.add('Line Phase Change Flag IS '|| G_LN_PHASE_CHANGE_FLAG , 1 ) ;
4028: END IF;
4029: -- Load Lines to be copied into table and handle configurations.
4022:
4023: IF l_debug_level > 0 THEN
4024: oe_debug_pub.add('Header Version Number IS '|| G_HDR_VER_NUMBER , 1 ) ;
4025: oe_debug_pub.add('Header Phase Change Flag IS '|| G_HDR_PHASE_CHANGE_FLAG , 1 ) ;
4026: oe_debug_pub.add('Line Version Number IS '|| G_LN_VER_NUMBER , 1 ) ;
4027: oe_debug_pub.add('Line Phase Change Flag IS '|| G_LN_PHASE_CHANGE_FLAG , 1 ) ;
4028: END IF;
4029: -- Load Lines to be copied into table and handle configurations.
4030: -- Will be used in Nonstandard lines procedure.
4023: IF l_debug_level > 0 THEN
4024: oe_debug_pub.add('Header Version Number IS '|| G_HDR_VER_NUMBER , 1 ) ;
4025: oe_debug_pub.add('Header Phase Change Flag IS '|| G_HDR_PHASE_CHANGE_FLAG , 1 ) ;
4026: oe_debug_pub.add('Line Version Number IS '|| G_LN_VER_NUMBER , 1 ) ;
4027: oe_debug_pub.add('Line Phase Change Flag IS '|| G_LN_PHASE_CHANGE_FLAG , 1 ) ;
4028: END IF;
4029: -- Load Lines to be copied into table and handle configurations.
4030: -- Will be used in Nonstandard lines procedure.
4031:
4059: from oe_payments where header_id = l_header_id
4060: and line_id is not null and payment_type_code = 'CREDIT_CARD';
4061:
4062: IF l_debug_level > 0 THEN
4063: oe_debug_pub.add('In Line payments copy...');
4064: oe_debug_pub.add('Line cc payments count'|| l_cc_line_payments);
4065: oe_debug_pub.add('Header_id ..'||l_header_id);
4066: END IF;
4067:
4060: and line_id is not null and payment_type_code = 'CREDIT_CARD';
4061:
4062: IF l_debug_level > 0 THEN
4063: oe_debug_pub.add('In Line payments copy...');
4064: oe_debug_pub.add('Line cc payments count'|| l_cc_line_payments);
4065: oe_debug_pub.add('Header_id ..'||l_header_id);
4066: END IF;
4067:
4068: IF l_cc_line_payments > 0 AND
4061:
4062: IF l_debug_level > 0 THEN
4063: oe_debug_pub.add('In Line payments copy...');
4064: oe_debug_pub.add('Line cc payments count'|| l_cc_line_payments);
4065: oe_debug_pub.add('Header_id ..'||l_header_id);
4066: END IF;
4067:
4068: IF l_cc_line_payments > 0 AND
4069: OE_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED'
4068: IF l_cc_line_payments > 0 AND
4069: OE_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED'
4070: AND l_copy_line_payments = 'T' THEN
4071: IF l_debug_level > 0 THEN
4072: oe_debug_pub.add('Error in Line Payments Copy order');
4073: oe_debug_pub.add('Copy line payments checkbox...'||l_copy_line_payments);
4074: END IF;
4075: FND_MESSAGE.SET_NAME('ONT','OE_CC_NO_COPY_SEC_CODE_REQ');
4076: OE_MSG_PUB.Add;
4069: OE_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED'
4070: AND l_copy_line_payments = 'T' THEN
4071: IF l_debug_level > 0 THEN
4072: oe_debug_pub.add('Error in Line Payments Copy order');
4073: oe_debug_pub.add('Copy line payments checkbox...'||l_copy_line_payments);
4074: END IF;
4075: FND_MESSAGE.SET_NAME('ONT','OE_CC_NO_COPY_SEC_CODE_REQ');
4076: OE_MSG_PUB.Add;
4077: RAISE FND_API.G_EXC_ERROR;
4076: OE_MSG_PUB.Add;
4077: RAISE FND_API.G_EXC_ERROR;
4078: ELSE
4079: IF l_debug_level > 0 THEN
4080: oe_debug_pub.add('Before calling load and init line payments...');
4081: END IF;
4082: Load_and_Init_Line_Payments(l_line_tbl
4083: ,p_copy_rec.line_type
4084: ,l_x_line_payment_tbl);
4091:
4092: -- Modified for the ER 2351654 added extra parameter default_null_values
4093: --R12 CC Encryption
4094: IF l_debug_level > 0 THEN
4095: oe_debug_pub.add('Credit card number in header rec...'||l_header_rec.credit_card_number);
4096: oe_debug_pub.add('Payment type code'||l_header_rec.payment_type_code);
4097: END IF;
4098:
4099: -- Added for the ER 1480867. Call the Init_Lines_New for the ER.
4092: -- Modified for the ER 2351654 added extra parameter default_null_values
4093: --R12 CC Encryption
4094: IF l_debug_level > 0 THEN
4095: oe_debug_pub.add('Credit card number in header rec...'||l_header_rec.credit_card_number);
4096: oe_debug_pub.add('Payment type code'||l_header_rec.payment_type_code);
4097: END IF;
4098:
4099: -- Added for the ER 1480867. Call the Init_Lines_New for the ER.
4100: Init_lines_new(l_line_tbl,
4136:
4137: -- Call Process Order API to process request.
4138:
4139: IF l_debug_level > 0 THEN
4140: oe_debug_pub.add( 'BEFORE PROCESS ORDER' , 2 ) ;
4141: oe_debug_pub.add('Header Currency is '|| l_header_rec.transactional_curr_code);
4142: IF l_line_tbl.COUNT <> 0 THEN
4143: oe_debug_pub.add('Line Context is:'||l_line_tbl(1).context);
4144: END IF;
4137: -- Call Process Order API to process request.
4138:
4139: IF l_debug_level > 0 THEN
4140: oe_debug_pub.add( 'BEFORE PROCESS ORDER' , 2 ) ;
4141: oe_debug_pub.add('Header Currency is '|| l_header_rec.transactional_curr_code);
4142: IF l_line_tbl.COUNT <> 0 THEN
4143: oe_debug_pub.add('Line Context is:'||l_line_tbl(1).context);
4144: END IF;
4145: END IF;
4139: IF l_debug_level > 0 THEN
4140: oe_debug_pub.add( 'BEFORE PROCESS ORDER' , 2 ) ;
4141: oe_debug_pub.add('Header Currency is '|| l_header_rec.transactional_curr_code);
4142: IF l_line_tbl.COUNT <> 0 THEN
4143: oe_debug_pub.add('Line Context is:'||l_line_tbl(1).context);
4144: END IF;
4145: END IF;
4146:
4147: --ER 7258165 : Start : Copy accross organizations
4197: );
4198:
4199:
4200: IF l_debug_level > 0 THEN
4201: oe_debug_pub.add( 'RETURN STATUS AFTER CALL TO PO '||L_RETURN_STATUS , 1 ) ;
4202: END IF;
4203:
4204: -- Copy Sets ER #2830872 , #1566254 Begin.
4205: -- Creating the table of header ids for operation.
4209:
4210: IF p_copy_rec.line_fulfill_sets = 'T' THEN
4211: l_copy_fulfill_sets := TRUE;
4212: IF l_debug_level > 0 THEN
4213: oe_debug_pub.add(' Copying Fulfill Sets :'||p_copy_rec.line_fulfill_sets);
4214: END IF;
4215: END IF;
4216:
4217: IF p_copy_rec.line_ship_arr_sets = 'T' THEN
4216:
4217: IF p_copy_rec.line_ship_arr_sets = 'T' THEN
4218: l_copy_ship_arr_sets := TRUE;
4219: IF l_debug_level > 0 THEN
4220: oe_debug_pub.add(' Copying Ship/Arr Sets :'||p_copy_rec.line_ship_arr_sets);
4221: END IF;
4222: END IF;
4223:
4224: IF l_debug_level > 0 THEN
4221: END IF;
4222: END IF;
4223:
4224: IF l_debug_level > 0 THEN
4225: oe_debug_pub.add(' Creating Header ID Table for Copy of Sets');
4226: END IF;
4227:
4228: IF l_line_tbl.Count > 0 THEN
4229: FOR i in 1..l_line_tbl.Count LOOP
4253: l_sets := 0;
4254:
4255: -- Calling the Copy Line Sets Procedure.
4256: IF l_debug_level > 0 THEN
4257: oe_debug_pub.add(' Calling Copy Line Sets ');
4258: END IF;
4259:
4260: IF l_hdr_id_sets_tbl.Count > 0 THEN
4261: FOR i IN 1..l_hdr_id_sets_tbl.Count LOOP
4269: END IF;
4270:
4271: IF l_sets_result = FND_API.G_RET_STS_SUCCESS THEN
4272: IF l_debug_level > 0 THEN
4273: oe_debug_pub.add(' Set Result :'||l_sets_result);
4274: END IF;
4275:
4276: FND_MESSAGE.SET_NAME('ONT','OE_COPY_LINE_SETS');
4277: OE_MSG_PUB.Add;
4276: FND_MESSAGE.SET_NAME('ONT','OE_COPY_LINE_SETS');
4277: OE_MSG_PUB.Add;
4278: ELSE
4279: IF l_debug_level > 0 THEN
4280: oe_debug_pub.add(' Set Result :'||l_sets_result);
4281: END IF;
4282:
4283: FND_MESSAGE.SET_NAME('ONT','OE_FAIL_LINE_SETS');
4284: OE_MSG_PUB.Add;
4424:
4425: IF FND_API.to_Boolean(p_copy_rec.copy_order) THEN
4426:
4427: IF l_debug_level > 0 THEN
4428: oe_debug_pub.add( 'THE NEW ORDER IS '||TO_CHAR ( L_HEADER_REC.ORDER_NUMBER ) , 1 ) ;
4429: END IF;
4430:
4431: IF l_header_rec.transaction_phase_code = 'F' OR
4432: l_header_rec.transaction_phase_code IS NULL THEN
4443:
4444: ELSE
4445:
4446: IF l_debug_level > 0 THEN
4447: oe_debug_pub.add( 'APPENEDED LINES SUCCESSFULLY FOR ORDER : ' || TO_CHAR ( L_HEADER_REC.ORDER_NUMBER ) , 1 ) ;
4448: END IF;
4449:
4450: FND_MESSAGE.SET_NAME('ONT','OE_CPY_APPEND_LINES');
4451: OE_MSG_PUB.Add;
4468: END IF;
4469: OE_MSG_PUB.Add;
4470:
4471: IF l_debug_level > 0 THEN
4472: oe_debug_pub.add( 'COPY SUCCEEDED PARTIALLY FOR ORDER : ' || TO_CHAR ( L_HEADER_REC.ORDER_NUMBER ) , 1 ) ;
4473: END IF;
4474:
4475: x_header_id := l_header_rec.header_id;
4476:
4478:
4479: --debug information
4480: IF( l_all_lines_copied ) THEN
4481: IF l_debug_level > 0 THEN
4482: oe_debug_pub.add( ' ALL LINES COPIED : TRUE' , 5 ) ;
4483: END IF;
4484: ELSE
4485: IF l_debug_level > 0 THEN
4486: oe_debug_pub.add( ' ALL LINES COPIED : FALSE' , 5 ) ;
4482: oe_debug_pub.add( ' ALL LINES COPIED : TRUE' , 5 ) ;
4483: END IF;
4484: ELSE
4485: IF l_debug_level > 0 THEN
4486: oe_debug_pub.add( ' ALL LINES COPIED : FALSE' , 5 ) ;
4487: END IF;
4488: END IF;
4489:
4490: IF( l_all_lines_failed ) THEN
4488: END IF;
4489:
4490: IF( l_all_lines_failed ) THEN
4491: IF l_debug_level > 0 THEN
4492: oe_debug_pub.add( ' ALL LINES FAILED : TRUE' , 5 ) ;
4493: END IF;
4494: ELSE
4495: IF l_debug_level > 0 THEN
4496: oe_debug_pub.add( ' ALL LINES FAILED : FALSE' , 5 ) ;
4492: oe_debug_pub.add( ' ALL LINES FAILED : TRUE' , 5 ) ;
4493: END IF;
4494: ELSE
4495: IF l_debug_level > 0 THEN
4496: oe_debug_pub.add( ' ALL LINES FAILED : FALSE' , 5 ) ;
4497: END IF;
4498: END IF;
4499:
4500: IF( l_delete_config ) THEN
4498: END IF;
4499:
4500: IF( l_delete_config ) THEN
4501: IF l_debug_level > 0 THEN
4502: oe_debug_pub.add( ' DELETE CONFIG : TRUE' , 5 ) ;
4503: END IF;
4504: ELSE
4505: IF l_debug_level > 0 THEN
4506: oe_debug_pub.add( ' DELETE CONFIG : FALSE' , 5 ) ;
4502: oe_debug_pub.add( ' DELETE CONFIG : TRUE' , 5 ) ;
4503: END IF;
4504: ELSE
4505: IF l_debug_level > 0 THEN
4506: oe_debug_pub.add( ' DELETE CONFIG : FALSE' , 5 ) ;
4507: END IF;
4508: END IF;
4509: -- end of debug
4510:
4510:
4511: ELSE -- l_header_exists
4512:
4513: IF l_debug_level > 0 THEN
4514: oe_debug_pub.add( 'FAILED TO COPY ORDER' , 1 ) ;
4515: END IF;
4516:
4517: FND_MESSAGE.SET_NAME('ONT','OE_CPY_COPY_FAILED');
4518: OE_MSG_PUB.Add;
4529: j := l_line_tbl.FIRST;
4530: WHILE j IS NOT NULL LOOP
4531: BEGIN
4532: IF l_debug_level > 0 THEN
4533: oe_debug_pub.add( 'LINECOUNT : ' || TO_CHAR ( J ) , 1 ) ;
4534: END IF;
4535: l_line_tbl.DELETE(j);
4536: j := l_line_tbl.NEXT(j);
4537: END;
4554:
4555: G_LINE_PRICE_MODE := NULL;
4556:
4557: IF l_debug_level > 0 THEN
4558: oe_debug_pub.add( 'RET STATUS SUCCESS ' || X_RETURN_STATUS , 1 ) ;
4559: END IF;
4560: IF l_debug_level > 0 THEN
4561: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.COPY_ORDER' , 1 ) ;
4562: END IF;
4557: IF l_debug_level > 0 THEN
4558: oe_debug_pub.add( 'RET STATUS SUCCESS ' || X_RETURN_STATUS , 1 ) ;
4559: END IF;
4560: IF l_debug_level > 0 THEN
4561: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.COPY_ORDER' , 1 ) ;
4562: END IF;
4563:
4564: OE_DEBUG_PUB.DumpDebug;
4565:
4560: IF l_debug_level > 0 THEN
4561: oe_debug_pub.add( 'EXITING OE_ORDER_COPY_UTIL.COPY_ORDER' , 1 ) ;
4562: END IF;
4563:
4564: OE_DEBUG_PUB.DumpDebug;
4565:
4566:
4567: EXCEPTION
4568:
4568:
4569: WHEN FND_API.G_EXC_ERROR THEN
4570:
4571: IF l_debug_level > 0 THEN
4572: oe_debug_pub.add( 'IN G_EXC_ERROR ' , 1 ) ;
4573: END IF;
4574: G_LINE_PRICE_MODE := NULL;
4575:
4576: x_return_status := FND_API.G_RET_STS_ERROR ;
4577: OE_MSG_PUB.Count_And_Get
4578: ( p_count => x_msg_count,
4579: p_data => x_msg_data
4580: );
4581: OE_DEBUG_PUB.DumpDebug;
4582:
4583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4584:
4585: IF l_debug_level > 0 THEN
4582:
4583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4584:
4585: IF l_debug_level > 0 THEN
4586: oe_debug_pub.add( 'IN G_EXC_UNEXPECTED_ERROR' ) ;
4587: END IF;
4588: G_LINE_PRICE_MODE := NULL;
4589:
4590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4591: OE_MSG_PUB.Count_And_Get
4592: ( p_count => x_msg_count,
4593: p_data => x_msg_data
4594: );
4595: OE_DEBUG_PUB.DumpDebug;
4596:
4597: WHEN OTHERS THEN
4598:
4599: IF l_debug_level > 0 THEN
4596:
4597: WHEN OTHERS THEN
4598:
4599: IF l_debug_level > 0 THEN
4600: oe_debug_pub.add( 'COPY_ORDER IN OTHERS '||SQLERRM , 1 ) ;
4601: END IF;
4602: G_LINE_PRICE_MODE := NULL;
4603:
4604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4613: ( p_count => x_msg_count,
4614: p_data => x_msg_data
4615: );
4616:
4617: OE_DEBUG_PUB.DumpDebug;
4618:
4619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4620:
4621: END Copy_Order;
4624:
4625: PROCEDURE EXTEND_TBL(p_num IN NUMBER)
4626: IS
4627: --
4628: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4629: --
4630: BEGIN
4631:
4632: G_Line_Num_Rec.line_id.EXTEND(p_num);
4645:
4646: PROCEDURE DELETE_TBL
4647: IS
4648: --
4649: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4650: --
4651: BEGIN
4652:
4653: G_Line_Num_Rec.line_id.DELETE;
4705: l_line_number NUMBER;
4706: l_comp_number_tbl l_number_tbl;
4707: l_line_set_id NUMBER;
4708: --
4709: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4710: --
4711: BEGIN
4712:
4713: IF l_debug_level > 0 THEN
4710: --
4711: BEGIN
4712:
4713: IF l_debug_level > 0 THEN
4714: oe_debug_pub.add( 'ENTERING PROCESS_LINE_NUMBERS ' , 1 ) ;
4715: END IF;
4716: -- Get the lines from the copied order
4717: OPEN C_Line_Nums;
4718: FETCH C_Line_Nums BULK COLLECT INTO
4732: l_copied_rec.link_to_line_id;
4733:
4734: CLOSE C_Line_Nums;
4735: IF l_debug_level > 0 THEN
4736: oe_debug_pub.add( 'CLOSING C_LINE_NUMS ' , 1 ) ;
4737: END IF;
4738:
4739: -- Initialize the counters.
4740: l_line_number_ctr := NULL;
4745: l_split_by := NULL;
4746: l_split_from_line_id := NULL;
4747:
4748: IF l_debug_level > 0 THEN
4749: oe_debug_pub.add( 'C_LINE_NUMS COUNT IS '||L_COPIED_REC.LINE_ID.COUNT , 1 ) ;
4750: END IF;
4751:
4752: -- Debugging loop, should be taken out
4753: FOR i in 1..l_copied_rec.line_id.COUNT LOOP
4751:
4752: -- Debugging loop, should be taken out
4753: FOR i in 1..l_copied_rec.line_id.COUNT LOOP
4754: IF l_debug_level > 0 THEN
4755: oe_debug_pub.add( 'LINE ID IS '||L_COPIED_REC.LINE_ID( I ) , 1 ) ;
4756: oe_debug_pub.add( 'ITEM TYPE CODE IS '||L_COPIED_REC.ITEM_TYPE_CODE ( I ) , 1 ) ;
4757: oe_debug_pub.add( 'set id IS '||L_COPIED_REC.line_set_id( I ) , 1 ) ;
4758: END IF;
4759: END LOOP;
4752: -- Debugging loop, should be taken out
4753: FOR i in 1..l_copied_rec.line_id.COUNT LOOP
4754: IF l_debug_level > 0 THEN
4755: oe_debug_pub.add( 'LINE ID IS '||L_COPIED_REC.LINE_ID( I ) , 1 ) ;
4756: oe_debug_pub.add( 'ITEM TYPE CODE IS '||L_COPIED_REC.ITEM_TYPE_CODE ( I ) , 1 ) ;
4757: oe_debug_pub.add( 'set id IS '||L_COPIED_REC.line_set_id( I ) , 1 ) ;
4758: END IF;
4759: END LOOP;
4760:
4753: FOR i in 1..l_copied_rec.line_id.COUNT LOOP
4754: IF l_debug_level > 0 THEN
4755: oe_debug_pub.add( 'LINE ID IS '||L_COPIED_REC.LINE_ID( I ) , 1 ) ;
4756: oe_debug_pub.add( 'ITEM TYPE CODE IS '||L_COPIED_REC.ITEM_TYPE_CODE ( I ) , 1 ) ;
4757: oe_debug_pub.add( 'set id IS '||L_COPIED_REC.line_set_id( I ) , 1 ) ;
4758: END IF;
4759: END LOOP;
4760:
4761: l_prev_line_number := NULL;
4763:
4764: FOR i in 1..l_copied_rec.line_id.COUNT LOOP
4765:
4766: IF l_debug_level > 0 THEN
4767: oe_debug_pub.add( 'ITEM TYPE CODE IS '||L_COPIED_REC.ITEM_TYPE_CODE ( I ) , 1 ) ;
4768: END IF;
4769: -- Keep track of the original line_number
4770: l_line_number := l_copied_rec.line_number(i);
4771:
4795: IF l_copied_rec.item_type_code(i) = 'SERVICE' AND
4796: l_copied_rec.service_reference_line_id(i) IS NOT NULL
4797: THEN
4798: IF l_debug_level > 0 THEN
4799: oe_debug_pub.add( 'ENTERING SERVICE LINE' , 1 ) ;
4800: END IF;
4801:
4802: FOR m in REVERSE 1..(i-1) LOOP
4803: IF l_copied_rec.line_id(m) =
4803: IF l_copied_rec.line_id(m) =
4804: l_copied_rec.service_reference_line_id(i)
4805: THEN
4806: IF l_debug_level > 0 THEN
4807: oe_debug_pub.add( 'ENTERING SERVICE LINE M IS ' ||M , 1 ) ;
4808: END IF;
4809: l_copied_rec.line_number(i) := l_copied_rec.line_number(m);
4810: l_copied_rec.shipment_number(i) :=
4811: l_copied_rec.shipment_number(m);
4830:
4831: IF l_copied_rec.item_type_code(i) = 'INCLUDED'
4832: THEN
4833: IF l_debug_level > 0 THEN
4834: oe_debug_pub.add( 'ENTERING INCLUDED ITEM LINE ' , 1 ) ;
4835: END IF;
4836: -- Find the link_to_line_id to get the line numbers..
4837: FOR m in REVERSE 1..(i-1) LOOP
4838: IF l_copied_rec.line_id(m) =
4838: IF l_copied_rec.line_id(m) =
4839: l_copied_rec.link_to_line_id(i)
4840: THEN
4841: IF l_debug_level > 0 THEN
4842: oe_debug_pub.add( 'LINK TO LINE ID IS ' ||L_COPIED_REC.LINE_ID ( M ) , 1 ) ;
4843: END IF;
4844: l_copied_rec.line_number(i) := l_copied_rec.line_number(m);
4845: l_copied_rec.shipment_number(i) :=
4846: l_copied_rec.shipment_number(m);
4866:
4867: IF l_copied_rec.item_type_code(i) = 'OPTION'
4868: THEN
4869: IF l_debug_level > 0 THEN
4870: oe_debug_pub.add( 'ENTERING OPTION ITEM LINE ' , 1 ) ;
4871: END IF;
4872: -- Find the link_to_line_id to get the line numbers..
4873: FOR m in REVERSE 1..(i-1) LOOP
4874: IF l_copied_rec.line_id(m) =
4874: IF l_copied_rec.line_id(m) =
4875: l_copied_rec.link_to_line_id(i)
4876: THEN
4877: IF l_debug_level > 0 THEN
4878: oe_debug_pub.add( 'LINK TO LINE ID IS ' ||L_COPIED_REC.LINE_ID ( M) , 1 ) ;
4879: END IF;
4880: l_copied_rec.line_number(i) := l_copied_rec.line_number(m);
4881: l_copied_rec.shipment_number(i) :=
4882: l_copied_rec.shipment_number(m);
4903: -- lines which are created as a part of the COPY call.
4904:
4905: IF NOT OE_GLOBALS.EQUAL(l_copied_rec.source_document_type_id(i),2) THEN
4906: IF l_debug_level > 0 THEN
4907: oe_debug_pub.add( 'THIS IS NON COPIED LINE' , 1 ) ;
4908: END IF;
4909: GOTO NOT_COPIED_LINE;
4910: END IF;
4911:
4921: G_Line_Num_Rec.split_from_line_id(j) IS NOT NULL AND
4922: l_copied_rec.line_set_id(i) IS NOT NULL)
4923: THEN
4924: IF l_debug_level > 0 THEN
4925: oe_debug_pub.add( 'NON-SPLIT LINE' , 1 ) ;
4926: END IF;
4927: goto CONTINUE_LOOP;
4928: END IF;
4929:
4927: goto CONTINUE_LOOP;
4928: END IF;
4929:
4930: IF l_debug_level > 0 THEN
4931: oe_debug_pub.add( 'SEARCHING FOR MATCH' , 1 ) ;
4932: END IF;
4933: -- Loop through the Copied Rec of tables to find the parent line
4934: FOR m in REVERSE 1..(i-1) LOOP
4935:
4936: IF G_Line_Num_Rec.split_from_line_id(j) =
4937: l_copied_rec.line_id(m)
4938: THEN
4939: IF l_debug_level > 0 THEN
4940: oe_debug_pub.add( 'NEW_LINE_ID IS '||G_LINE_NUM_REC.NEW_LINE_ID ( J ) , 1 ) ;
4941: oe_debug_pub.add( 'COPY LINE_ID IS '||L_COPIED_REC.LINE_ID ( I ) , 1 ) ;
4942: oe_debug_pub.add( 'SPLIT_FROM_LINE_ID IS '||G_LINE_NUM_REC.SPLIT_FROM_LINE_ID ( J ) , 1 ) ;
4943: oe_debug_pub.add( 'MATCH FOUND WITH SPLIT FROM LINE_ID' , 1 ) ;
4944: END IF;
4937: l_copied_rec.line_id(m)
4938: THEN
4939: IF l_debug_level > 0 THEN
4940: oe_debug_pub.add( 'NEW_LINE_ID IS '||G_LINE_NUM_REC.NEW_LINE_ID ( J ) , 1 ) ;
4941: oe_debug_pub.add( 'COPY LINE_ID IS '||L_COPIED_REC.LINE_ID ( I ) , 1 ) ;
4942: oe_debug_pub.add( 'SPLIT_FROM_LINE_ID IS '||G_LINE_NUM_REC.SPLIT_FROM_LINE_ID ( J ) , 1 ) ;
4943: oe_debug_pub.add( 'MATCH FOUND WITH SPLIT FROM LINE_ID' , 1 ) ;
4944: END IF;
4945: IF l_copied_rec.line_set_id(m) IS NULL THEN
4938: THEN
4939: IF l_debug_level > 0 THEN
4940: oe_debug_pub.add( 'NEW_LINE_ID IS '||G_LINE_NUM_REC.NEW_LINE_ID ( J ) , 1 ) ;
4941: oe_debug_pub.add( 'COPY LINE_ID IS '||L_COPIED_REC.LINE_ID ( I ) , 1 ) ;
4942: oe_debug_pub.add( 'SPLIT_FROM_LINE_ID IS '||G_LINE_NUM_REC.SPLIT_FROM_LINE_ID ( J ) , 1 ) ;
4943: oe_debug_pub.add( 'MATCH FOUND WITH SPLIT FROM LINE_ID' , 1 ) ;
4944: END IF;
4945: IF l_copied_rec.line_set_id(m) IS NULL THEN
4946:
4939: IF l_debug_level > 0 THEN
4940: oe_debug_pub.add( 'NEW_LINE_ID IS '||G_LINE_NUM_REC.NEW_LINE_ID ( J ) , 1 ) ;
4941: oe_debug_pub.add( 'COPY LINE_ID IS '||L_COPIED_REC.LINE_ID ( I ) , 1 ) ;
4942: oe_debug_pub.add( 'SPLIT_FROM_LINE_ID IS '||G_LINE_NUM_REC.SPLIT_FROM_LINE_ID ( J ) , 1 ) ;
4943: oe_debug_pub.add( 'MATCH FOUND WITH SPLIT FROM LINE_ID' , 1 ) ;
4944: END IF;
4945: IF l_copied_rec.line_set_id(m) IS NULL THEN
4946:
4947: SELECT OE_SETS_S.NEXTVAL
4977: END IF;
4978:
4979: END LOOP;
4980: IF l_debug_level > 0 THEN
4981: oe_debug_pub.add( 'THE SPLIT FROM IS M '||M , 1 ) ;
4982: oe_debug_pub.add( 'THE L_COUNTER IS '||L_COUNTER , 1 ) ;
4983: oe_debug_pub.add( 'THE FIRST SPLIT FROM INDEX K IS '||K , 1 ) ;
4984: oe_debug_pub.add( 'SHIPMENT_NUMBER FOR K IS '||L_SHIPMENT_NUM_TBL ( K ) , 1 ) ;
4985: END IF;
4978:
4979: END LOOP;
4980: IF l_debug_level > 0 THEN
4981: oe_debug_pub.add( 'THE SPLIT FROM IS M '||M , 1 ) ;
4982: oe_debug_pub.add( 'THE L_COUNTER IS '||L_COUNTER , 1 ) ;
4983: oe_debug_pub.add( 'THE FIRST SPLIT FROM INDEX K IS '||K , 1 ) ;
4984: oe_debug_pub.add( 'SHIPMENT_NUMBER FOR K IS '||L_SHIPMENT_NUM_TBL ( K ) , 1 ) ;
4985: END IF;
4986:
4979: END LOOP;
4980: IF l_debug_level > 0 THEN
4981: oe_debug_pub.add( 'THE SPLIT FROM IS M '||M , 1 ) ;
4982: oe_debug_pub.add( 'THE L_COUNTER IS '||L_COUNTER , 1 ) ;
4983: oe_debug_pub.add( 'THE FIRST SPLIT FROM INDEX K IS '||K , 1 ) ;
4984: oe_debug_pub.add( 'SHIPMENT_NUMBER FOR K IS '||L_SHIPMENT_NUM_TBL ( K ) , 1 ) ;
4985: END IF;
4986:
4987: l_shipment_num_tbl(k) := l_shipment_num_tbl(k) + 1;
4980: IF l_debug_level > 0 THEN
4981: oe_debug_pub.add( 'THE SPLIT FROM IS M '||M , 1 ) ;
4982: oe_debug_pub.add( 'THE L_COUNTER IS '||L_COUNTER , 1 ) ;
4983: oe_debug_pub.add( 'THE FIRST SPLIT FROM INDEX K IS '||K , 1 ) ;
4984: oe_debug_pub.add( 'SHIPMENT_NUMBER FOR K IS '||L_SHIPMENT_NUM_TBL ( K ) , 1 ) ;
4985: END IF;
4986:
4987: l_shipment_num_tbl(k) := l_shipment_num_tbl(k) + 1;
4988:
5022: l_option_number_ctr := NULL;
5023: l_comp_number_ctr := NULL;
5024: l_service_number_ctr := NULL;
5025: IF l_debug_level > 0 THEN
5026: oe_debug_pub.add( 'IN L_LINE_NUMBER_CTR' , 1 ) ;
5027: END IF;
5028: END IF;
5029:
5030: l_copied_rec.line_number(i) := l_line_number_ctr;
5037: l_option_number_ctr := NULL;
5038: l_comp_number_ctr := NULL;
5039: l_service_number_ctr := NULL;
5040: IF l_debug_level > 0 THEN
5041: oe_debug_pub.add( 'IN L_SHIPMENT_NUMBER_CTR' , 1 ) ;
5042: END IF;
5043: END IF;
5044:
5045: l_copied_rec.shipment_number(i) := l_shipment_number_ctr;
5052: l_option_number_ctr := NVL(l_option_number_ctr,0) + 1;
5053: l_comp_number_ctr := NULL;
5054: l_service_number_ctr := NULL;
5055: IF l_debug_level > 0 THEN
5056: oe_debug_pub.add( 'IN L_OPTION_NUMBER_CTR' , 1 ) ;
5057: END IF;
5058: END IF;
5059:
5060: l_copied_rec.option_number(i) := l_option_number_ctr;
5066: THEN
5067: l_comp_number_ctr := NVL(l_comp_number_ctr,0) + 1;
5068: l_service_number_ctr := NULL;
5069: IF l_debug_level > 0 THEN
5070: oe_debug_pub.add( 'IN L_COMP_NUMBER_CTR' , 1 ) ;
5071: END IF;
5072: END IF;
5073:
5074: l_copied_rec.component_number(i) := l_comp_number_ctr;
5079: l_copied_rec.service_number(i))
5080: THEN
5081: l_service_number_ctr := NVL(l_service_number_ctr,0) + 1;
5082: IF l_debug_level > 0 THEN
5083: oe_debug_pub.add( 'IN L_SERVICE_NUMBER_CTR' , 1 ) ;
5084: END IF;
5085: l_copied_rec.service_number(i) := l_service_number_ctr;
5086: END IF;
5087:
5094:
5095: -- Added following loop for debuging
5096: FOR i in 1..l_copied_rec.line_id.COUNT LOOP
5097: IF l_debug_level > 0 THEN
5098: oe_debug_pub.add( 'LINE ID IS '||L_COPIED_REC.LINE_ID ( I ) , 1 ) ;
5099: oe_debug_pub.add( 'ITEM TYPE CODE IS '||L_COPIED_REC.ITEM_TYPE_CODE ( I ) , 1 ) ;
5100: END IF;
5101:
5102: END LOOP;
5095: -- Added following loop for debuging
5096: FOR i in 1..l_copied_rec.line_id.COUNT LOOP
5097: IF l_debug_level > 0 THEN
5098: oe_debug_pub.add( 'LINE ID IS '||L_COPIED_REC.LINE_ID ( I ) , 1 ) ;
5099: oe_debug_pub.add( 'ITEM TYPE CODE IS '||L_COPIED_REC.ITEM_TYPE_CODE ( I ) , 1 ) ;
5100: END IF;
5101:
5102: END LOOP;
5103: k := l_copied_rec.line_id.COUNT;
5102: END LOOP;
5103: k := l_copied_rec.line_id.COUNT;
5104:
5105: IF l_debug_level > 0 THEN
5106: oe_debug_pub.add( 'UPDATE ORDER LINES IN BULK' , 1 ) ;
5107: END IF;
5108: FORALL i in 1..K
5109: UPDATE OE_ORDER_LINES
5110: SET line_number = l_copied_rec.line_number(i)
5117: , line_set_id = l_copied_rec.line_set_id(i)
5118: WHERE line_id = l_copied_rec.line_id(i);
5119:
5120: IF l_debug_level > 0 THEN
5121: oe_debug_pub.add( ' AFTER UPDATE ORDER LINES IN BULK' , 1 ) ;
5122: END IF;
5123: l_copied_rec.line_id.delete;
5124: l_copied_rec.line_number.delete;
5125: l_copied_rec.shipment_number.delete;
5131: l_copied_rec.source_document_type_id.delete;
5132: l_copied_rec.split_by.delete;
5133: l_copied_rec.line_set_id.delete;
5134: IF l_debug_level > 0 THEN
5135: oe_debug_pub.add( 'AFTER CLEAR L_COPY_REC' , 1 ) ;
5136: END IF;
5137:
5138: EXCEPTION
5139: WHEN OTHERS THEN
5137:
5138: EXCEPTION
5139: WHEN OTHERS THEN
5140: IF l_debug_level > 0 THEN
5141: oe_debug_pub.add( 'OTHERS ERROR , PROCESS_LINE_NUMBERS' ) ;
5142: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
5143: END IF;
5144: OE_MSG_PUB.Add_Exc_Msg
5145: ( G_PKG_NAME
5138: EXCEPTION
5139: WHEN OTHERS THEN
5140: IF l_debug_level > 0 THEN
5141: oe_debug_pub.add( 'OTHERS ERROR , PROCESS_LINE_NUMBERS' ) ;
5142: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
5143: END IF;
5144: OE_MSG_PUB.Add_Exc_Msg
5145: ( G_PKG_NAME
5146: , 'Process_Line_Numbers'
5155: p_header_id IN NUMBER,
5156: p_line_type_id IN NUMBER
5157: ) IS
5158: --
5159: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5160: --
5161: BEGIN
5162:
5163: INSERT INTO OE_SETS(
5223: x_line_tbl IN OUT NOCOPY OE_ORDER_PUB.Line_Tbl_Type)
5224: IS
5225: i binary_integer := 1;
5226: j binary_integer := 1;
5227: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5228: l_line_id T_NUM := T_NUM();
5229: l_source T_V1 := T_V1();
5230: l_line_rec OE_Order_PUB.Line_Rec_Type;
5231: CURSOR C_MODEL IS
5234: WHERE top_model_line_id = line_id;
5235:
5236: BEGIN
5237: IF l_debug_level > 0 THEN
5238: oe_debug_pub.add('Entering load_lines '||to_char(p_num_lines));
5239: END IF;
5240: -- Extend the tables
5241: l_line_id.EXTEND(p_num_lines);
5242:
5245: i:= p_line_id_tbl.FIRST;
5246: WHILE i <= p_line_id_tbl.LAST LOOP
5247: l_line_id(j) := p_line_id_tbl(i).id1;
5248: IF l_debug_level > 0 THEN
5249: oe_debug_pub.add(' The line id is '|| l_line_id(j),1);
5250: END IF;
5251: j := j + 1;
5252: i := p_line_id_tbl.NEXT(i);
5253: END LOOP;
5261: -- condition was modified to include 'MODEL' and 'KIT', wherever needed.
5262:
5263: IF p_phase_change_flag = 'Y' THEN
5264: IF l_debug_level > 0 THEN
5265: oe_debug_pub.add(' For Phase Change ',1);
5266: END IF;
5267:
5268: IF p_version_number IS NOT NULL THEN --bug 7443507
5269:
5666: END IF;
5667: x_line_tbl(i) := l_line_rec;
5668: END LOOP;
5669: IF l_debug_level > 0 THEN
5670: oe_debug_pub.add('The Line Table Count is ' || x_line_tbl.COUNT);
5671: END IF;
5672:
5673: EXCEPTION
5674: WHEN OTHERS THEN
5671: END IF;
5672:
5673: EXCEPTION
5674: WHEN OTHERS THEN
5675: oe_debug_pub.add('In Others exception');
5676: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
5677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5678:
5679: END sort_line_tbl;
5672:
5673: EXCEPTION
5674: WHEN OTHERS THEN
5675: oe_debug_pub.add('In Others exception');
5676: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
5677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5678:
5679: END sort_line_tbl;
5680:
5808: p_copy_ship_arr_sets IN BOOLEAN,
5809: x_result OUT NOCOPY VARCHAR2)
5810: IS
5811:
5812: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5813: l_selected_line_tbl OE_GLOBALS.Selected_Record_Tbl;
5814: I NUMBER := 0;
5815: l_set_id NUMBER;
5816: l_return_status VARCHAR2(30);
5854:
5855: -- Initializing the result to Success.
5856: x_result := FND_API.G_RET_STS_SUCCESS;
5857: IF l_debug_level > 0 THEN
5858: oe_debug_pub.add(' Entering Copy Line Sets.');
5859: END IF;
5860: -- Copying Fulfillment Sets based on user preference.
5861: IF p_copy_fulfillment_sets THEN
5862:
5860: -- Copying Fulfillment Sets based on user preference.
5861: IF p_copy_fulfillment_sets THEN
5862:
5863: IF l_debug_level > 0 THEN
5864: oe_debug_pub.add(' Copying Fulfillment Sets.');
5865: END IF;
5866:
5867: FOR set_rec IN set_cur('FULFILLMENT_SET')
5868: LOOP
5870: I := 0;
5871: l_selected_line_tbl.DELETE;
5872:
5873: IF l_debug_level > 0 THEN
5874: oe_debug_pub.add(' Copying Set ID :'||set_rec.set_id);
5875: oe_debug_pub.add(' Copying Set Name :'||set_rec.set_name);
5876: oe_debug_pub.add(' Copying Set Type :'||set_rec.set_type);
5877: END IF;
5878:
5871: l_selected_line_tbl.DELETE;
5872:
5873: IF l_debug_level > 0 THEN
5874: oe_debug_pub.add(' Copying Set ID :'||set_rec.set_id);
5875: oe_debug_pub.add(' Copying Set Name :'||set_rec.set_name);
5876: oe_debug_pub.add(' Copying Set Type :'||set_rec.set_type);
5877: END IF;
5878:
5879: -- Initializing the Line Table for Set processing in new header.
5872:
5873: IF l_debug_level > 0 THEN
5874: oe_debug_pub.add(' Copying Set ID :'||set_rec.set_id);
5875: oe_debug_pub.add(' Copying Set Name :'||set_rec.set_name);
5876: oe_debug_pub.add(' Copying Set Type :'||set_rec.set_type);
5877: END IF;
5878:
5879: -- Initializing the Line Table for Set processing in new header.
5880: FOR line_rec IN line_cur_fulfill(set_rec.set_id)
5897: END LOOP;
5898:
5899: IF l_selected_line_tbl.COUNT > 0 THEN
5900: IF l_debug_level > 0 THEN
5901: oe_debug_pub.add(' Line Table Ready. Processing this set:'||set_rec.set_name);
5902: END IF;
5903:
5904: -- Processing the Set for New Lines.
5905: oe_set_util.Process_Sets
5917:
5918: -- Checking Result Status.
5919: IF(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5920: IF l_debug_level > 0 THEN
5921: oe_debug_pub.add(' Lines Copied to new/existing Set ID :'||l_set_id);
5922: END IF;
5923: ELSE
5924: x_result := FND_API.G_RET_STS_ERROR;
5925: IF l_debug_level > 0 THEN
5922: END IF;
5923: ELSE
5924: x_result := FND_API.G_RET_STS_ERROR;
5925: IF l_debug_level > 0 THEN
5926: oe_debug_pub.add(' Copy of Set has errors :'||l_msg_data);
5927: END IF;
5928: l_msg_count := 0;
5929: l_msg_data := '';
5930: END IF;
5929: l_msg_data := '';
5930: END IF;
5931: ELSE
5932: IF l_debug_level > 0 THEN
5933: oe_debug_pub.add(' Line Table Empty. Not processing this set:'||set_rec.set_name);
5934: END IF;
5935: END IF;
5936: END LOOP;
5937:
5935: END IF;
5936: END LOOP;
5937:
5938: IF l_debug_level > 0 THEN
5939: oe_debug_pub.add(' Copied Fulfillment Sets.');
5940: END IF;
5941: END IF; -- Copy of Fulfillment Sets
5942:
5943: -- Copying Ship Sets based on user preference.
5943: -- Copying Ship Sets based on user preference.
5944: IF p_copy_ship_arr_sets THEN
5945:
5946: IF l_debug_level > 0 THEN
5947: oe_debug_pub.add(' Copying Ship Sets.');
5948: END IF;
5949: FOR set_rec IN set_cur('SHIP_SET')
5950: LOOP
5951: -- Initializing processing tools.
5952: I := 0;
5953: l_selected_line_tbl.DELETE;
5954:
5955: IF l_debug_level > 0 THEN
5956: oe_debug_pub.add(' Copying Set ID :'||set_rec.set_id);
5957: oe_debug_pub.add(' Copying Set Name :'||set_rec.set_name);
5958: oe_debug_pub.add(' Copying Set Type :'||set_rec.set_type);
5959: END IF;
5960:
5953: l_selected_line_tbl.DELETE;
5954:
5955: IF l_debug_level > 0 THEN
5956: oe_debug_pub.add(' Copying Set ID :'||set_rec.set_id);
5957: oe_debug_pub.add(' Copying Set Name :'||set_rec.set_name);
5958: oe_debug_pub.add(' Copying Set Type :'||set_rec.set_type);
5959: END IF;
5960:
5961: -- Initializing the Line Table for Set processing in new header.
5954:
5955: IF l_debug_level > 0 THEN
5956: oe_debug_pub.add(' Copying Set ID :'||set_rec.set_id);
5957: oe_debug_pub.add(' Copying Set Name :'||set_rec.set_name);
5958: oe_debug_pub.add(' Copying Set Type :'||set_rec.set_type);
5959: END IF;
5960:
5961: -- Initializing the Line Table for Set processing in new header.
5962: FOR line_rec IN line_cur_ship(set_rec.set_id)
5978: END LOOP;
5979:
5980: IF l_selected_line_tbl.COUNT > 0 THEN
5981: IF l_debug_level > 0 THEN
5982: oe_debug_pub.add(' Line Table Ready. Processing this set:'||set_rec.set_name);
5983: END IF;
5984:
5985: -- Processing the Set for New Lines.
5986: oe_set_util.Process_Sets
5998:
5999: -- Checking Result Status.
6000: IF(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6001: IF l_debug_level > 0 THEN
6002: oe_debug_pub.add(' Lines copied to new/existing Set ID :'||l_set_id);
6003: END IF;
6004: ELSE
6005: x_result := FND_API.G_RET_STS_ERROR;
6006: IF l_debug_level > 0 THEN
6003: END IF;
6004: ELSE
6005: x_result := FND_API.G_RET_STS_ERROR;
6006: IF l_debug_level > 0 THEN
6007: oe_debug_pub.add(' Copy of Set has errors :'||l_msg_data);
6008: END IF;
6009: l_msg_count := 0;
6010: l_msg_data := '';
6011: END IF;
6010: l_msg_data := '';
6011: END IF;
6012: ELSE
6013: IF l_debug_level > 0 THEN
6014: oe_debug_pub.add(' Line Table Empty. Not processing this set:'||set_rec.set_name);
6015: END IF;
6016: END IF;
6017: END LOOP;
6018:
6015: END IF;
6016: END IF;
6017: END LOOP;
6018:
6019: oe_debug_pub.add(' Copied Ship Sets.');
6020:
6021: END IF; -- Copy of Ship Sets
6022:
6023: -- Copying Arrival Sets based on user preference.
6023: -- Copying Arrival Sets based on user preference.
6024: IF p_copy_ship_arr_sets THEN
6025:
6026: IF l_debug_level > 0 THEN
6027: oe_debug_pub.add(' Copying Arrival Sets.');
6028: END IF;
6029:
6030: FOR set_rec IN set_cur('ARRIVAL_SET')
6031: LOOP
6033: I := 0;
6034: l_selected_line_tbl.delete;
6035:
6036: IF l_debug_level > 0 THEN
6037: oe_debug_pub.add(' Copying Set ID :'||set_rec.set_id);
6038: oe_debug_pub.add(' Copying Set Name :'||set_rec.set_name);
6039: oe_debug_pub.add(' Copying Set Type :'||set_rec.set_type);
6040: END IF;
6041:
6034: l_selected_line_tbl.delete;
6035:
6036: IF l_debug_level > 0 THEN
6037: oe_debug_pub.add(' Copying Set ID :'||set_rec.set_id);
6038: oe_debug_pub.add(' Copying Set Name :'||set_rec.set_name);
6039: oe_debug_pub.add(' Copying Set Type :'||set_rec.set_type);
6040: END IF;
6041:
6042: -- Initializing the Line Table for Set processing in new header.
6035:
6036: IF l_debug_level > 0 THEN
6037: oe_debug_pub.add(' Copying Set ID :'||set_rec.set_id);
6038: oe_debug_pub.add(' Copying Set Name :'||set_rec.set_name);
6039: oe_debug_pub.add(' Copying Set Type :'||set_rec.set_type);
6040: END IF;
6041:
6042: -- Initializing the Line Table for Set processing in new header.
6043: FOR line_rec IN line_cur_arrival(set_rec.set_id)
6060:
6061: IF l_selected_line_tbl.COUNT > 0 THEN
6062:
6063: IF l_debug_level > 0 THEN
6064: oe_debug_pub.add(' Line Table Ready. Processing this set:'||set_rec.set_name);
6065: END IF;
6066:
6067: -- Processing the Set for New Lines.
6068: oe_set_util.Process_Sets
6080:
6081: -- Checking Result Status.
6082: IF(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6083: IF l_debug_level > 0 THEN
6084: oe_debug_pub.add(' Lines copied to new/existing Set ID :'||l_set_id);
6085: END IF;
6086: ELSE
6087: x_result := FND_API.G_RET_STS_ERROR;
6088: IF l_debug_level > 0 THEN
6085: END IF;
6086: ELSE
6087: x_result := FND_API.G_RET_STS_ERROR;
6088: IF l_debug_level > 0 THEN
6089: oe_debug_pub.add(' Copy of Set has errors :'||l_msg_data);
6090: END IF;
6091: l_msg_count := 0;
6092: l_msg_data := '';
6093: END IF;
6092: l_msg_data := '';
6093: END IF;
6094: ELSE
6095: IF l_debug_level > 0 THEN
6096: oe_debug_pub.add(' Line Table Empty. Not processing this set:'||set_rec.set_name);
6097: END IF;
6098: END IF;
6099: END LOOP;
6100:
6098: END IF;
6099: END LOOP;
6100:
6101: IF l_debug_level > 0 THEN
6102: oe_debug_pub.add(' Copied Arrival Sets.');
6103: END IF;
6104:
6105: END IF; -- Copy of Arrival Sets
6106:
6108: WHEN OTHERS THEN
6109:
6110: x_result := FND_API.G_RET_STS_UNEXP_ERROR;
6111: IF l_debug_level > 0 THEN
6112: oe_debug_pub.add('Unexpected Error Occured during Copy of Line Sets');
6113: oe_debug_pub.add(SQLERRM);
6114: END IF;
6115:
6116: END COPY_LINE_SETS;
6109:
6110: x_result := FND_API.G_RET_STS_UNEXP_ERROR;
6111: IF l_debug_level > 0 THEN
6112: oe_debug_pub.add('Unexpected Error Occured during Copy of Line Sets');
6113: oe_debug_pub.add(SQLERRM);
6114: END IF;
6115:
6116: END COPY_LINE_SETS;
6117: