[Home] [Help]
52: FUNCTION Get_Sold_To
53: RETURN NUMBER
54: IS
55: --
56: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
57: --
58: BEGIN
59:
60: OE_ORDER_CACHE.Load_Order_Header(g_line_rec.header_id);
75: FUNCTION Get_Order_Source_Id
76: RETURN NUMBER
77: IS
78: --
79: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
80: --
81: BEGIN
82: --For Bug#7592137
83: IF OE_GLOBALS.G_UI_FLAG then
84: RETURN 0;
85: ELSE
86: OE_ORDER_CACHE.Load_Order_Header(g_line_rec.header_id);
87: IF l_debug_level > 0 THEN
88: oe_debug_pub.add( 'SOURCE ID ='||OE_ORDER_CACHE.G_HEADER_REC.ORDER_SOURCE_ID ) ;
89: END IF;
90: RETURN (OE_ORDER_CACHE.g_header_rec.order_source_id);
91: END IF; --End of Bug#7592137
92:
108: RETURN VARCHAR2
109: IS
110: l_freight_code VARCHAR2(80);
111: --
112: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
113: --
114: begin
115: IF l_debug_level > 0 THEN
116: oe_debug_pub.add( 'ENTER GET FREIGHT CARRIER' ) ;
112: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
113: --
114: begin
115: IF l_debug_level > 0 THEN
116: oe_debug_pub.add( 'ENTER GET FREIGHT CARRIER' ) ;
117: END IF;
118:
119:
120: IF (p_line_rec.shipping_method_code IS NOT NULL AND
149: and ORGANIZATION_ID = p_line_rec.ship_from_org_id;
150: END IF;
151:
152: IF l_debug_level > 0 THEN
153: oe_debug_pub.add( 'EXIT GET FREIGHT CARRIER' || L_FREIGHT_CODE ) ;
154: END IF;
155: RETURN l_freight_code;
156:
157: ELSE
155: RETURN l_freight_code;
156:
157: ELSE
158: IF l_debug_level > 0 THEN
159: oe_debug_pub.add( 'INTO NULL CONDITION' || P_LINE_REC.SHIP_FROM_ORG_ID ) ;
160: END IF;
161: RETURN p_line_rec.freight_carrier_code;
162:
163: END IF;
162:
163: END IF;
164: ELSE
165: IF l_debug_level > 0 THEN
166: oe_debug_pub.add( 'SHIP FROM OR SHIP METHOD IS NULL/MISSING',1 ) ;
167: END IF;
168: RETURN NULL;
169: END IF;
170:
180:
181: WHEN NO_DATA_FOUND THEN
182:
183: IF l_debug_level > 0 THEN
184: oe_debug_pub.add( 'NO DATA FOUND GET FREIGHT CARRIER' ) ;
185: END IF;
186: RETURN NULL;
187:
188: WHEN OTHERS THEN
193: 'Get_freight_carrier'
194: );
195: END IF;
196: IF l_debug_level > 0 THEN
197: oe_debug_pub.add( 'OTHERS IN GET_FREIGHT_CARRIER' , 1 ) ;
198: END IF;
199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
200:
201:
205: RETURN VARCHAR2
206: IS
207: l_booked_flag VARCHAR2(1);
208: --
209: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
210: --
211: BEGIN
212:
213: IF NOT oe_globals.G_HTML_FLAG THEN
237: FUNCTION Get_Cancelled
238: RETURN VARCHAR2
239: IS
240: --
241: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
242: --
243: BEGIN
244:
245: RETURN 'N';
249: FUNCTION Get_Open
250: RETURN VARCHAR2
251: IS
252: --
253: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
254: --
255: BEGIN
256:
257: RETURN 'Y';
261: FUNCTION Get_Cancelled_Quantity
262: RETURN NUMBER
263: IS
264: --
265: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
266: --
267: BEGIN
268:
269: RETURN 0;
283: FUNCTION Get_Component
284: RETURN VARCHAR2
285: IS
286: --
287: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
288: --
289: BEGIN
290:
291: IF l_debug_level > 0 THEN
288: --
289: BEGIN
290:
291: IF l_debug_level > 0 THEN
292: oe_debug_pub.add( ' COMP_CODE , ITEM_TYPE_CODE ' || G_LINE_REC.ITEM_TYPE_CODE ) ;
293: END IF;
294: IF (g_line_rec.item_type_code = OE_GLOBALS.G_ITEM_MODEL) OR
295: (g_line_rec.item_type_code = OE_GLOBALS.G_ITEM_KIT AND
296: g_line_rec.line_id = g_line_rec.top_model_line_id)
314: l_top_model_line_id NUMBER;
315: l_pick_components_flag VARCHAR2(1);
316: l_item_type NUMBER;
317: --
318: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
319: --
320: BEGIN
321:
322: -- If top_model_line_id is not null, you do not want to clear it
320: BEGIN
321:
322: -- If top_model_line_id is not null, you do not want to clear it
323: IF l_debug_level > 0 THEN
324: oe_debug_pub.add( 'IN PKG OE_DEFAULT_LINE : PROCEDURE GET_TOP_MODEL_LINE' ) ;
325: END IF;
326:
327: IF ( g_line_rec.inventory_item_id is NULL OR
328: g_line_rec.inventory_item_id = FND_API.G_MISS_NUM)
380:
381: OE_Msg_Pub.Add;
382:
383: IF l_debug_level > 0 THEN
384: oe_debug_pub.add( 'NO DATA FOUND IN GET_TOP_MODEL IN DEFAULTING' , 1 ) ;
385: END IF;
386:
387: RAISE FND_API.G_EXC_ERROR;
388:
395: 'Get_Top_Model_Line'
396: );
397: END IF;
398: IF l_debug_level > 0 THEN
399: oe_debug_pub.add( 'OTHERS IN GET_TOP_MODEL IN DEFAULTING' , 1 ) ;
400: END IF;
401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
402:
403: END Get_Top_Model_Line;
426: l_agreement_name varchar2(240);
427: l_agreement_id number;
428:
429: --
430: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
431: --
432: Begin
433:
434: IF l_debug_level > 0 THEN
431: --
432: Begin
433:
434: IF l_debug_level > 0 THEN
435: oe_debug_pub.add( 'INSIDE DEFAULT_ACTIVE_AGR_REVISION' , 3 ) ;
436: oe_debug_pub.add( 'AGREEMENT_ID '||P_X_LINE_REC.AGREEMENT_ID , 3 ) ;
437: END IF;
438:
439: SELECT agreement_id
432: Begin
433:
434: IF l_debug_level > 0 THEN
435: oe_debug_pub.add( 'INSIDE DEFAULT_ACTIVE_AGR_REVISION' , 3 ) ;
436: oe_debug_pub.add( 'AGREEMENT_ID '||P_X_LINE_REC.AGREEMENT_ID , 3 ) ;
437: END IF;
438:
439: SELECT agreement_id
440: INTO l_agreement_id
446: trunc(nvl(START_DATE_ACTIVE,add_months(sysdate,-10000)))
447: AND trunc(nvl(END_DATE_ACTIVE,add_months(sysdate,+10000)));
448:
449: IF l_debug_level > 0 THEN
450: oe_debug_pub.add( 'ACTIVE AGREEMENT REVISION :'||L_AGREEMENT_ID , 3 ) ;
451: END IF;
452:
453: If p_x_line_rec.agreement_id <> l_agreement_id Then
454: IF l_debug_level > 0 THEN
451: END IF;
452:
453: If p_x_line_rec.agreement_id <> l_agreement_id Then
454: IF l_debug_level > 0 THEN
455: oe_debug_pub.add( 'ACTIVE AGREEMENT REVISION IS FOUND - CALLING PROCESS ORDER TO DEFAULT DEPENDENT ATTRIBUTES' , 3 ) ;
456: END IF;
457:
458: l_control_rec.controlled_operation := TRUE;
459: l_control_rec.check_security := TRUE;
489:
490: EXCEPTION
491: WHEN NO_DATA_FOUND THEN
492: IF l_debug_level > 0 THEN
493: oe_debug_pub.add( 'NO ACTIVE REVISION EXISTS FOR THE AGREEMENT ID :'||P_X_LINE_REC.AGREEMENT_ID , 2 ) ;
494: oe_debug_pub.add( 'ERROR WILL BE RAISED IN ENTITY LEVEL VALIDATION' , 3 ) ;
495: END IF;
496:
497: WHEN FND_API.G_EXC_ERROR THEN
490: EXCEPTION
491: WHEN NO_DATA_FOUND THEN
492: IF l_debug_level > 0 THEN
493: oe_debug_pub.add( 'NO ACTIVE REVISION EXISTS FOR THE AGREEMENT ID :'||P_X_LINE_REC.AGREEMENT_ID , 2 ) ;
494: oe_debug_pub.add( 'ERROR WILL BE RAISED IN ENTITY LEVEL VALIDATION' , 3 ) ;
495: END IF;
496:
497: WHEN FND_API.G_EXC_ERROR THEN
498: RAISE FND_API.G_EXC_ERROR;
526: )
527: IS
528: l_line_rec OE_AK_ORDER_LINES_V%ROWTYPE;
529: --
530: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
531: --
532: BEGIN
533:
534: IF l_debug_level > 0 THEN
531: --
532: BEGIN
533:
534: IF l_debug_level > 0 THEN
535: oe_debug_pub.add('ENTER Clear_And_Re_Default') ;
536: oe_debug_pub.add('Old blanket num :'
537: ||p_x_line_rec.blanket_number) ;
538: oe_debug_pub.add('Old blanket line num :'
539: ||p_x_line_rec.blanket_line_number) ;
532: BEGIN
533:
534: IF l_debug_level > 0 THEN
535: oe_debug_pub.add('ENTER Clear_And_Re_Default') ;
536: oe_debug_pub.add('Old blanket num :'
537: ||p_x_line_rec.blanket_number) ;
538: oe_debug_pub.add('Old blanket line num :'
539: ||p_x_line_rec.blanket_line_number) ;
540: oe_debug_pub.add('Old blanket version num :'
534: IF l_debug_level > 0 THEN
535: oe_debug_pub.add('ENTER Clear_And_Re_Default') ;
536: oe_debug_pub.add('Old blanket num :'
537: ||p_x_line_rec.blanket_number) ;
538: oe_debug_pub.add('Old blanket line num :'
539: ||p_x_line_rec.blanket_line_number) ;
540: oe_debug_pub.add('Old blanket version num :'
541: ||p_x_line_rec.blanket_version_number) ;
542: oe_debug_pub.add('New blanket num : '||p_blanket_number) ;
536: oe_debug_pub.add('Old blanket num :'
537: ||p_x_line_rec.blanket_number) ;
538: oe_debug_pub.add('Old blanket line num :'
539: ||p_x_line_rec.blanket_line_number) ;
540: oe_debug_pub.add('Old blanket version num :'
541: ||p_x_line_rec.blanket_version_number) ;
542: oe_debug_pub.add('New blanket num : '||p_blanket_number) ;
543: oe_debug_pub.add('New blanket line num : '||p_blanket_line_number);
544: oe_debug_pub.add('New blanket version num : '||p_blanket_version_number);
538: oe_debug_pub.add('Old blanket line num :'
539: ||p_x_line_rec.blanket_line_number) ;
540: oe_debug_pub.add('Old blanket version num :'
541: ||p_x_line_rec.blanket_version_number) ;
542: oe_debug_pub.add('New blanket num : '||p_blanket_number) ;
543: oe_debug_pub.add('New blanket line num : '||p_blanket_line_number);
544: oe_debug_pub.add('New blanket version num : '||p_blanket_version_number);
545: END IF;
546:
539: ||p_x_line_rec.blanket_line_number) ;
540: oe_debug_pub.add('Old blanket version num :'
541: ||p_x_line_rec.blanket_version_number) ;
542: oe_debug_pub.add('New blanket num : '||p_blanket_number) ;
543: oe_debug_pub.add('New blanket line num : '||p_blanket_line_number);
544: oe_debug_pub.add('New blanket version num : '||p_blanket_version_number);
545: END IF;
546:
547: -- Copy source attribute values from IN parameters
540: oe_debug_pub.add('Old blanket version num :'
541: ||p_x_line_rec.blanket_version_number) ;
542: oe_debug_pub.add('New blanket num : '||p_blanket_number) ;
543: oe_debug_pub.add('New blanket line num : '||p_blanket_line_number);
544: oe_debug_pub.add('New blanket version num : '||p_blanket_version_number);
545: END IF;
546:
547: -- Copy source attribute values from IN parameters
548: -- to the new record
590: END IF;
591: END IF;
592:
593: IF l_debug_level > 0 THEN
594: oe_debug_pub.add('Final blanket num :'
595: ||p_x_line_rec.blanket_number) ;
596: oe_debug_pub.add('Final blanket line num :'
597: ||p_x_line_rec.blanket_line_number) ;
598: oe_debug_pub.add('Final blanket version num :'
592:
593: IF l_debug_level > 0 THEN
594: oe_debug_pub.add('Final blanket num :'
595: ||p_x_line_rec.blanket_number) ;
596: oe_debug_pub.add('Final blanket line num :'
597: ||p_x_line_rec.blanket_line_number) ;
598: oe_debug_pub.add('Final blanket version num :'
599: ||p_x_line_rec.blanket_version_number) ;
600: END IF;
594: oe_debug_pub.add('Final blanket num :'
595: ||p_x_line_rec.blanket_number) ;
596: oe_debug_pub.add('Final blanket line num :'
597: ||p_x_line_rec.blanket_line_number) ;
598: oe_debug_pub.add('Final blanket version num :'
599: ||p_x_line_rec.blanket_version_number) ;
600: END IF;
601:
602: IF p_default_record = 'Y' THEN
600: END IF;
601:
602: IF p_default_record = 'Y' THEN
603: IF l_debug_level > 0 THEN
604: oe_debug_pub.add('RE-CALLING ONT_LINE_DEF_HDLR.DEFAULT_RECORD') ;
605: END IF;
606: ONT_LINE_Def_Hdlr.Default_Record
607: (p_x_rec => p_x_line_rec
608: ,p_initial_rec => l_line_rec
610: );
611: END IF;
612:
613: IF l_debug_level > 0 THEN
614: oe_debug_pub.add('EXIT Clear_And_Re_Default') ;
615: END IF;
616:
617: END Clear_And_Re_Default;
618:
631: x_blanket_request_date OUT NOCOPY DATE
632: )
633: IS
634: --
635: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
636: l_blanket_number NUMBER;
637: --
638: l_item_validation_org NUMBER :=
639: OE_Sys_Parameters.Value('MASTER_ORGANIZATION_ID');
652: l_blanket_number := p_blanket_number;
653: END IF;
654:
655: if l_debug_level > 0 then
656: oe_debug_pub.add('Enter Default_Blanket_Values');
657: oe_debug_pub.add('Request Date :'||x_blanket_request_date);
658: end if;
659:
660: --derive bl line # and bl revis #
653: END IF;
654:
655: if l_debug_level > 0 then
656: oe_debug_pub.add('Enter Default_Blanket_Values');
657: oe_debug_pub.add('Request Date :'||x_blanket_request_date);
658: end if;
659:
660: --derive bl line # and bl revis #
661: --first sorts by inventory_item_id, then by ordered_item_id (category)
666: (p_cust_po_number = FND_API.G_MISS_CHAR OR
667: p_cust_po_number IS NULL) then
668:
669: if l_debug_level > 0 then
670: oe_debug_pub.add('No blanket or customer po number on line, returning');
671: end if;
672:
673: RETURN;
674: end if;
745: x_blanket_version_number := NULL;
746: x_blanket_line_number := NULL;
747:
748: IF l_debug_level > 0 THEN
749: oe_debug_pub.add('Multiple blankets exist for customer po number--no defaulting of blanket values');
750: END IF;
751: RETURN;
752:
753: WHEN NO_DATA_FOUND THEN
807: x_blanket_version_number := NULL;
808: x_blanket_line_number := NULL;
809:
810: IF l_debug_level > 0 THEN
811: oe_debug_pub.add('Multiple blankets exist for customer po number--no defaulting of blanket values');
812: END IF;
813: RETURN;
814:
815: WHEN NO_DATA_FOUND THEN
873: x_blanket_version_number := NULL;
874: x_blanket_line_number := NULL;
875:
876: IF l_debug_level > 0 THEN
877: oe_debug_pub.add('Multiple blankets exist for customer po number--no defaulting of blanket values');
878: END IF;
879: RETURN;
880:
881: WHEN NO_DATA_FOUND THEN
933: x_blanket_version_number := NULL;
934: x_blanket_line_number := NULL;
935:
936: IF l_debug_level > 0 THEN
937: oe_debug_pub.add('Multiple blankets exist for customer po number--no defaulting of blanket values');
938: END IF;
939: RETURN;
940: WHEN NO_DATA_FOUND THEN
941: IF l_debug_level > 0 THEN
938: END IF;
939: RETURN;
940: WHEN NO_DATA_FOUND THEN
941: IF l_debug_level > 0 THEN
942: oe_debug_pub.add('No Blanket Number exists for this customer,item :'||p_sold_to_org_id,2);
943: oe_debug_pub.add('Error will be raised in Entity level validation',3);
944: END IF;
945: END; --all items
946: END; --item categories
939: RETURN;
940: WHEN NO_DATA_FOUND THEN
941: IF l_debug_level > 0 THEN
942: oe_debug_pub.add('No Blanket Number exists for this customer,item :'||p_sold_to_org_id,2);
943: oe_debug_pub.add('Error will be raised in Entity level validation',3);
944: END IF;
945: END; --all items
946: END; --item categories
947: END; --internal, customer, generic items
956: 'Default_Blanket_Values'
957: );
958: END IF;
959: IF l_debug_level > 0 THEN
960: oe_debug_pub.add('others in default_blanket_values', 1);
961: END IF;
962: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
963:
964: End Default_Blanket_Values;
975: l_blanket_line_number NUMBER;
976: l_blanket_version_number NUMBER;
977: l_blanket_request_date DATE;
978: --
979: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
980: --
981: BEGIN
982:
983: IF (p_x_line_rec.blanket_number IS NOT NULL
995: )
996: THEN
997:
998: if l_debug_level > 0 then
999: oe_debug_pub.add('ENTER Perform_Blanket_Functions');
1000: oe_debug_pub.add('Blanket Num :'||
1001: p_x_line_rec.blanket_number);
1002: oe_debug_pub.add('Blanket Line Num :'||
1003: p_x_line_rec.blanket_line_number);
996: THEN
997:
998: if l_debug_level > 0 then
999: oe_debug_pub.add('ENTER Perform_Blanket_Functions');
1000: oe_debug_pub.add('Blanket Num :'||
1001: p_x_line_rec.blanket_number);
1002: oe_debug_pub.add('Blanket Line Num :'||
1003: p_x_line_rec.blanket_line_number);
1004: oe_debug_pub.add('Cust PO :'||
998: if l_debug_level > 0 then
999: oe_debug_pub.add('ENTER Perform_Blanket_Functions');
1000: oe_debug_pub.add('Blanket Num :'||
1001: p_x_line_rec.blanket_number);
1002: oe_debug_pub.add('Blanket Line Num :'||
1003: p_x_line_rec.blanket_line_number);
1004: oe_debug_pub.add('Cust PO :'||
1005: p_x_line_rec.cust_po_number);
1006: oe_debug_pub.add('Old Blanket Num :'||
1000: oe_debug_pub.add('Blanket Num :'||
1001: p_x_line_rec.blanket_number);
1002: oe_debug_pub.add('Blanket Line Num :'||
1003: p_x_line_rec.blanket_line_number);
1004: oe_debug_pub.add('Cust PO :'||
1005: p_x_line_rec.cust_po_number);
1006: oe_debug_pub.add('Old Blanket Num :'||
1007: p_old_line_rec.blanket_number);
1008: oe_debug_pub.add('Old Blanket Line Num :'||
1002: oe_debug_pub.add('Blanket Line Num :'||
1003: p_x_line_rec.blanket_line_number);
1004: oe_debug_pub.add('Cust PO :'||
1005: p_x_line_rec.cust_po_number);
1006: oe_debug_pub.add('Old Blanket Num :'||
1007: p_old_line_rec.blanket_number);
1008: oe_debug_pub.add('Old Blanket Line Num :'||
1009: p_old_line_rec.blanket_line_number);
1010: oe_debug_pub.add('Old Cust PO :'||
1004: oe_debug_pub.add('Cust PO :'||
1005: p_x_line_rec.cust_po_number);
1006: oe_debug_pub.add('Old Blanket Num :'||
1007: p_old_line_rec.blanket_number);
1008: oe_debug_pub.add('Old Blanket Line Num :'||
1009: p_old_line_rec.blanket_line_number);
1010: oe_debug_pub.add('Old Cust PO :'||
1011: p_old_line_rec.cust_po_number);
1012: end if;
1006: oe_debug_pub.add('Old Blanket Num :'||
1007: p_old_line_rec.blanket_number);
1008: oe_debug_pub.add('Old Blanket Line Num :'||
1009: p_old_line_rec.blanket_line_number);
1010: oe_debug_pub.add('Old Cust PO :'||
1011: p_old_line_rec.cust_po_number);
1012: end if;
1013:
1014: -- Bug 2737082 => If blanket line number exists, removed the
1026: OR p_x_line_rec.blanket_version_number = FND_API.G_MISS_NUM)
1027: THEN
1028:
1029: if l_debug_level > 0 then
1030: oe_debug_pub.add('Default Blanket Version Number');
1031: end if;
1032:
1033: -- Derive blanket_version_number if blanket number
1034: -- ,line number are provided
1048: p_x_line_rec.blanket_version_number := l_blanket_version_number;
1049:
1050: EXCEPTION
1051: WHEN NO_DATA_FOUND THEN
1052: oe_debug_pub.add('Blanket Values combination is not valid: Blanket #:'||p_x_line_rec.blanket_number || ', Blanket Line #:'||p_x_line_rec.blanket_line_number, 2);
1053: FND_MESSAGE.SET_NAME('ONT', 'OE_BLKT_INVALID_BLANKET');
1054: fnd_message.set_token('BLANKET_NUMBER',p_x_line_rec.blanket_number);
1055: fnd_message.set_token('BLANKET_LINE_NUMBER',p_x_line_rec.blanket_line_number);
1056: OE_MSG_PUB.Add;
1092: )--bug6497015
1093: THEN
1094:
1095: if l_debug_level > 0 then
1096: oe_debug_pub.add('Blkt Number : '||p_x_line_rec.blanket_number);
1097: oe_debug_pub.add('Cust PO : '||p_x_line_rec.cust_po_number);
1098: oe_debug_pub.add('Item : '||p_x_line_rec.inventory_item_id);
1099: oe_debug_pub.add('Item Type : '||p_x_line_rec.item_type_code);
1100: end if;
1093: THEN
1094:
1095: if l_debug_level > 0 then
1096: oe_debug_pub.add('Blkt Number : '||p_x_line_rec.blanket_number);
1097: oe_debug_pub.add('Cust PO : '||p_x_line_rec.cust_po_number);
1098: oe_debug_pub.add('Item : '||p_x_line_rec.inventory_item_id);
1099: oe_debug_pub.add('Item Type : '||p_x_line_rec.item_type_code);
1100: end if;
1101:
1094:
1095: if l_debug_level > 0 then
1096: oe_debug_pub.add('Blkt Number : '||p_x_line_rec.blanket_number);
1097: oe_debug_pub.add('Cust PO : '||p_x_line_rec.cust_po_number);
1098: oe_debug_pub.add('Item : '||p_x_line_rec.inventory_item_id);
1099: oe_debug_pub.add('Item Type : '||p_x_line_rec.item_type_code);
1100: end if;
1101:
1102: -- Default Blanket Fields
1095: if l_debug_level > 0 then
1096: oe_debug_pub.add('Blkt Number : '||p_x_line_rec.blanket_number);
1097: oe_debug_pub.add('Cust PO : '||p_x_line_rec.cust_po_number);
1098: oe_debug_pub.add('Item : '||p_x_line_rec.inventory_item_id);
1099: oe_debug_pub.add('Item Type : '||p_x_line_rec.item_type_code);
1100: end if;
1101:
1102: -- Default Blanket Fields
1103: Default_Blanket_Values
1133:
1134: END IF;
1135:
1136: if l_debug_level > 0 then
1137: oe_debug_pub.add('EXIT Perform_Blanket_Functions');
1138: end if;
1139:
1140: END IF; -- if blanket number or cust po exists
1141:
1162: ,p_inventory_item_id IN NUMBER
1163: ,x_blanket_line_number OUT NOCOPY NUMBER
1164: ,x_blanket_version_number OUT NOCOPY NUMBER
1165: ) is
1166: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1167: BEGIN
1168:
1169: IF l_debug_level > 0 THEN
1170: oe_debug_pub.add( 'BSA: ENTERING Get_Blanket_Number API' ) ;
1166: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1167: BEGIN
1168:
1169: IF l_debug_level > 0 THEN
1170: oe_debug_pub.add( 'BSA: ENTERING Get_Blanket_Number API' ) ;
1171: oe_debug_pub.add( 'BSA: Blanket Number in Get_Blanket_Number: '||p_blanket_number ) ;
1172: oe_debug_pub.add( 'BSA: Inventory Item Id in Get_Blanket_Number : '||p_INVENTORY_ITEM_ID ) ;
1173: END IF;
1174:
1167: BEGIN
1168:
1169: IF l_debug_level > 0 THEN
1170: oe_debug_pub.add( 'BSA: ENTERING Get_Blanket_Number API' ) ;
1171: oe_debug_pub.add( 'BSA: Blanket Number in Get_Blanket_Number: '||p_blanket_number ) ;
1172: oe_debug_pub.add( 'BSA: Inventory Item Id in Get_Blanket_Number : '||p_INVENTORY_ITEM_ID ) ;
1173: END IF;
1174:
1175: SELECT /* MOAC_SQL_CHANGE */
1168:
1169: IF l_debug_level > 0 THEN
1170: oe_debug_pub.add( 'BSA: ENTERING Get_Blanket_Number API' ) ;
1171: oe_debug_pub.add( 'BSA: Blanket Number in Get_Blanket_Number: '||p_blanket_number ) ;
1172: oe_debug_pub.add( 'BSA: Inventory Item Id in Get_Blanket_Number : '||p_INVENTORY_ITEM_ID ) ;
1173: END IF;
1174:
1175: SELECT /* MOAC_SQL_CHANGE */
1176: BL.LINE_NUMBER,
1223:
1224: END IF;
1225:
1226: IF l_debug_level > 0 THEN
1227: oe_debug_pub.add( 'BSA: LEAVING Get_Blanket_Number API' ) ;
1228: oe_debug_pub.add( 'BSA: Blanket line Number in Get_Blanket_Number: '||p_blanket_number ) ;
1229: oe_debug_pub.add( 'BSA: Blanket line Number in Get_Blanket_Number: '||x_blanket_line_number ) ;
1230: oe_debug_pub.add( 'BSA: Blanket Version Number in Get_Blanket_Number : '||x_blanket_version_number
1231: ) ;
1224: END IF;
1225:
1226: IF l_debug_level > 0 THEN
1227: oe_debug_pub.add( 'BSA: LEAVING Get_Blanket_Number API' ) ;
1228: oe_debug_pub.add( 'BSA: Blanket line Number in Get_Blanket_Number: '||p_blanket_number ) ;
1229: oe_debug_pub.add( 'BSA: Blanket line Number in Get_Blanket_Number: '||x_blanket_line_number ) ;
1230: oe_debug_pub.add( 'BSA: Blanket Version Number in Get_Blanket_Number : '||x_blanket_version_number
1231: ) ;
1232: END IF;
1225:
1226: IF l_debug_level > 0 THEN
1227: oe_debug_pub.add( 'BSA: LEAVING Get_Blanket_Number API' ) ;
1228: oe_debug_pub.add( 'BSA: Blanket line Number in Get_Blanket_Number: '||p_blanket_number ) ;
1229: oe_debug_pub.add( 'BSA: Blanket line Number in Get_Blanket_Number: '||x_blanket_line_number ) ;
1230: oe_debug_pub.add( 'BSA: Blanket Version Number in Get_Blanket_Number : '||x_blanket_version_number
1231: ) ;
1232: END IF;
1233:
1226: IF l_debug_level > 0 THEN
1227: oe_debug_pub.add( 'BSA: LEAVING Get_Blanket_Number API' ) ;
1228: oe_debug_pub.add( 'BSA: Blanket line Number in Get_Blanket_Number: '||p_blanket_number ) ;
1229: oe_debug_pub.add( 'BSA: Blanket line Number in Get_Blanket_Number: '||x_blanket_line_number ) ;
1230: oe_debug_pub.add( 'BSA: Blanket Version Number in Get_Blanket_Number : '||x_blanket_version_number
1231: ) ;
1232: END IF;
1233:
1234: EXCEPTION
1237: x_blanket_line_number := null;
1238: x_blanket_version_number := null;
1239: p_blanket_number := null;
1240: IF l_debug_level > 0 THEN
1241: oe_debug_pub.add( 'BSA:LEAVING Get_Blanket_Number API: NO_DATA_FOUND' ) ;
1242: END IF;
1243: WHEN TOO_MANY_ROWS THEN
1244: x_blanket_line_number := null;
1245: x_blanket_version_number := null;
1244: x_blanket_line_number := null;
1245: x_blanket_version_number := null;
1246: p_blanket_number := null;
1247: IF l_debug_level > 0 THEN
1248: oe_debug_pub.add( 'BSA:LEAVING Get_Blanket_Number API: TOO_MANY_ROWS' ) ;
1249: END IF;
1250: WHEN OTHERS THEN
1251: x_blanket_line_number := null;
1252: x_blanket_version_number := null;
1251: x_blanket_line_number := null;
1252: x_blanket_version_number := null;
1253: p_blanket_number := null;
1254: IF l_debug_level > 0 THEN
1255: oe_debug_pub.add( 'BSA:LEAVING Get_Blanket_Number API: OTEHRS' ) ;
1256: END IF;
1257:
1258: End Get_Blanket_number_svc_config;
1259:
1284: l_top_model_line_rec OE_ORDER_PUB.line_rec_type;
1285: l_parent_line_id NUMBER;
1286: l_return_status VARCHAR2(1);
1287: --
1288: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1289: --
1290: l_top_container VARCHAR2(1);
1291: l_part_of_container VARCHAR2(1);
1292: BEGIN
1291: l_part_of_container VARCHAR2(1);
1292: BEGIN
1293:
1294: IF l_debug_level > 0 THEN
1295: oe_debug_pub.add( 'ENTERING MODEL_OPTION_DEFAULTING' , 1 ) ;
1296: oe_debug_pub.add( 'LINE_ID TO DEFAULT: '|| G_LINE_REC.LINE_ID , 1 ) ;
1297: END IF;
1298:
1299: /* If the top model is in a fulfillment set then we must push all its
1292: BEGIN
1293:
1294: IF l_debug_level > 0 THEN
1295: oe_debug_pub.add( 'ENTERING MODEL_OPTION_DEFAULTING' , 1 ) ;
1296: oe_debug_pub.add( 'LINE_ID TO DEFAULT: '|| G_LINE_REC.LINE_ID , 1 ) ;
1297: END IF;
1298:
1299: /* If the top model is in a fulfillment set then we must push all its
1300: children into same fulfillment set. We exclude service item and the
1329: (g_line_rec.item_type_code = OE_GLOBALS.G_ITEM_KIT AND
1330: g_line_rec.line_id = g_line_rec.top_modeL_line_id)
1331: THEN
1332: IF l_debug_level > 0 THEN
1333: oe_debug_pub.add( 'RETURNING FOR SERVICE , INCLUDED , TOP LEVEL KITS' , 1 ) ;
1334: END IF;
1335: RETURN;
1336: END IF;
1337:
1338:
1339: IF g_line_rec.ato_line_id = FND_API.G_MISS_NUM THEN
1340: g_line_rec.ato_line_id := Get_ATO_Line;
1341: IF l_debug_level > 0 THEN
1342: oe_debug_pub.add( 'GET_ATO_LINE SUCCESSFUL' , 1 ) ;
1343: END IF;
1344: END IF;
1345:
1346:
1352: g_line_rec.item_type_code = OE_GLOBALS.G_ITEM_STANDARD
1353: THEN
1354: --{ bug3601544 starts
1355: IF l_debug_level > 0 THEN
1356: OE_DEBUG_PUB.Add('IB Owner: '||g_line_rec.ib_owner,3);
1357: OE_DEBUG_PUB.Add('IB Install: '||g_line_rec.ib_installed_at_location,3);
1358: OE_DEBUG_PUB.Add('IB Current: '||g_line_rec.ib_current_location,3);
1359: END IF;
1360:
1353: THEN
1354: --{ bug3601544 starts
1355: IF l_debug_level > 0 THEN
1356: OE_DEBUG_PUB.Add('IB Owner: '||g_line_rec.ib_owner,3);
1357: OE_DEBUG_PUB.Add('IB Install: '||g_line_rec.ib_installed_at_location,3);
1358: OE_DEBUG_PUB.Add('IB Current: '||g_line_rec.ib_current_location,3);
1359: END IF;
1360:
1361: OE_CONFIG_TSO_PVT.Is_Part_Of_Container_Model
1354: --{ bug3601544 starts
1355: IF l_debug_level > 0 THEN
1356: OE_DEBUG_PUB.Add('IB Owner: '||g_line_rec.ib_owner,3);
1357: OE_DEBUG_PUB.Add('IB Install: '||g_line_rec.ib_installed_at_location,3);
1358: OE_DEBUG_PUB.Add('IB Current: '||g_line_rec.ib_current_location,3);
1359: END IF;
1360:
1361: OE_CONFIG_TSO_PVT.Is_Part_Of_Container_Model
1362: ( p_line_id => g_line_rec.line_id
1371: g_line_rec.ib_installed_at_location := NULL;
1372: g_line_rec.ib_current_location := NULL;
1373:
1374: IF l_debug_level > 0 THEN
1375: OE_DEBUG_PUB.Add('IB Fields set to NULL for Top Container Line',3);
1376: END IF;
1377: END IF;
1378: -- bug3601544 ends }
1379:
1377: END IF;
1378: -- bug3601544 ends }
1379:
1380: IF l_debug_level > 0 THEN
1381: oe_debug_pub.add( 'RETURNING FOR ITEM TYPE MODEL AND STANDARD' , 1 ) ;
1382: END IF;
1383: RETURN;
1384: END IF;
1385:
1411: p_x_child_line_rec => g_line_rec,
1412: x_return_status => l_return_status);
1413:
1414: IF l_debug_level > 0 THEN
1415: oe_debug_pub.add( 'RETURN STATUS || ' || L_RETURN_STATUS , 3 ) ;
1416: END IF;
1417:
1418: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1421: RAISE FND_API.G_EXC_ERROR;
1422: END IF;
1423:
1424: IF l_debug_level > 0 THEN
1425: oe_debug_pub.add( 'EXITING MODEL_OPTION_DEFAULTING' , 1 ) ;
1426: END IF;
1427:
1428: EXCEPTION
1429:
1428: EXCEPTION
1429:
1430: WHEN NO_DATA_FOUND THEN
1431: IF l_debug_level > 0 THEN
1432: oe_debug_pub.add( 'NO DATA FOUND IN MODEL_OPTION_DEFAULTING' , 1 ) ;
1433: END IF;
1434: RAISE FND_API.G_EXC_ERROR;
1435:
1436: WHEN OTHERS THEN
1441: 'Model_Option_Defaulting'
1442: );
1443: END IF;
1444: IF l_debug_level > 0 THEN
1445: oe_debug_pub.add( 'OTHERS IN MODEL_OPTION_DEFAULTING' , 1 ) ;
1446: END IF;
1447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1448:
1449: END Model_Option_Defaulting;
1460: l_top_model_line_rec OE_ORDER_PUB.line_rec_type;
1461: l_parent_line_id NUMBER;
1462: l_return_status VARCHAR2(1);
1463: --
1464: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1465: --
1466: BEGIN
1467:
1468: IF l_debug_level > 0 THEN
1465: --
1466: BEGIN
1467:
1468: IF l_debug_level > 0 THEN
1469: oe_debug_pub.add( 'ENTERING MODEL_OPTION_UPDATE' , 1 ) ;
1470: oe_debug_pub.add( 'LINE_ID TO DEFAULT: '|| P_X_LINE_REC.LINE_ID , 1 ) ;
1471: END IF;
1472:
1473: /* These updates are valid only for Options/clasees/included items */
1466: BEGIN
1467:
1468: IF l_debug_level > 0 THEN
1469: oe_debug_pub.add( 'ENTERING MODEL_OPTION_UPDATE' , 1 ) ;
1470: oe_debug_pub.add( 'LINE_ID TO DEFAULT: '|| P_X_LINE_REC.LINE_ID , 1 ) ;
1471: END IF;
1472:
1473: /* These updates are valid only for Options/clasees/included items */
1474:
1479: p_x_line_rec.line_id = p_x_line_rec.top_modeL_line_id)
1480: THEN
1481:
1482: IF l_debug_level > 0 THEN
1483: oe_debug_pub.add( 'RETURNING FOR ITEM TYPE SERVICE , MODEL , STANDARD AND TOP LEVEL KITS' , 1 ) ;
1484: END IF;
1485:
1486: RETURN;
1487: END IF;
1492: l_parent_line_id := p_x_line_rec.top_model_line_id;
1493: END IF;
1494:
1495: IF l_debug_level > 0 THEN
1496: oe_debug_pub.add( 'TOP MODEL LINE ID FOR TOP MODEL' || L_PARENT_LINE_ID , 1 ) ;
1497: END IF;
1498: -- 2605065 : Commented. This has been done in procedure Attributes.
1499: --OE_Order_Cache.clear_top_model_line(l_parent_line_id);
1500: l_top_model_line_rec := OE_Order_Cache.Load_Top_Model_Line
1503: p_x_line_rec.ship_tolerance_above := l_top_model_line_rec.ship_tolerance_above;
1504: p_x_line_rec.ship_tolerance_below := l_top_model_line_rec.ship_tolerance_below;
1505:
1506: IF l_debug_level > 0 THEN
1507: oe_debug_pub.add( 'EXITING MODEL_OPTION_UPDATE' , 1 ) ;
1508: END IF;
1509:
1510: EXCEPTION
1511:
1510: EXCEPTION
1511:
1512: WHEN NO_DATA_FOUND THEN
1513: IF l_debug_level > 0 THEN
1514: oe_debug_pub.add( 'NO DATA FOUND IN MODEL_OPTION_UPDATE' , 1 ) ;
1515: END IF;
1516:
1517: RAISE FND_API.G_EXC_ERROR;
1518:
1525: 'Model_Option_update'
1526: );
1527: END IF;
1528: IF l_debug_level > 0 THEN
1529: oe_debug_pub.add( 'OTHERS IN MODEL_OPTION_UPDATE' , 1 ) ;
1530: END IF;
1531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1532:
1533: END Model_Option_Update;
1556: l_build_in_wip_flag VARCHAR2(1);
1557: l_bom_item_type NUMBER;
1558: l_ato_config_item_id NUMBER;
1559: --
1560: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1561: --
1562: BEGIN
1563:
1564: IF l_debug_level > 0 THEN
1561: --
1562: BEGIN
1563:
1564: IF l_debug_level > 0 THEN
1565: oe_debug_pub.add( 'IN GET_ATO_LINE , ITEM_TYPE_CODE :' || G_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
1566: END IF;
1567:
1568: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' AND
1569: g_line_rec.item_type_code = 'CONFIG' THEN
1567:
1568: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' AND
1569: g_line_rec.item_type_code = 'CONFIG' THEN
1570: IF l_debug_level > 0 THEN
1571: oe_debug_pub.add( 'PACK H MI , CONFIG LINE '|| G_LINE_REC.ATO_LINE_ID ) ;
1572: END IF;
1573: RETURN g_line_rec.ato_line_id;
1574: END IF;
1575:
1593: l_build_in_wip_flag := OE_ORDER_CACHE.g_item_rec.build_in_wip_flag;
1594: l_bom_item_type := OE_ORDER_CACHE.g_item_rec.bom_item_type;
1595:
1596: IF l_debug_level > 0 THEN
1597: oe_debug_pub.add( 'GET_ATO_LINE: '||L_REPLENISH_TO_ORDER_FLAG||L_BUILD_IN_WIP_FLAG , 1 ) ;
1598: END IF;
1599:
1600: -- top level ATO model and ato item.
1601: -- build in wip flag, see if req?
1606: l_replenish_to_order_flag = 'Y' AND
1607: l_build_in_wip_flag = 'Y')
1608: THEN
1609: IF l_debug_level > 0 THEN
1610: oe_debug_pub.add( '1. ATO_LINE_ID: '||G_LINE_REC.LINE_ID , 1 ) ;
1611: END IF;
1612: l_ato_line_id := g_line_rec.line_id;
1613: RETURN (l_ato_line_id);
1614:
1629:
1630: IF l_ato_line_id is NULL THEN
1631:
1632: IF l_debug_level > 0 THEN
1633: oe_debug_pub.add( 'TOP MODEL IS PTO' , 3 ) ;
1634: END IF;
1635:
1636: IF (g_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CLASS AND
1637: l_replenish_to_order_flag = 'Y' AND
1637: l_replenish_to_order_flag = 'Y' AND
1638: l_bom_item_type = 1) THEN
1639:
1640: IF l_debug_level > 0 THEN
1641: oe_debug_pub.add( 'MAYBE ATO LINE '||G_LINE_REC.LINE_ID , 3 ) ;
1642: END IF;
1643: l_temp_ato_line_id := g_line_rec.line_id;
1644: END IF;
1645:
1652: g_line_rec.configuration_id is not NULL AND
1653: g_line_rec.configuration_id <> FND_API.G_MISS_NUM
1654: THEN
1655: IF l_debug_level > 0 THEN
1656: oe_debug_pub.add( 'GET_ATO: PACK H NEW LOGIC MI ' || G_LINE_REC.CONFIG_HEADER_ID , 1 ) ;
1657: oe_debug_pub.add( 'CONFIGN ID ' || G_LINE_REC.CONFIGURATION_ID , 1 ) ;
1658: END IF;
1659:
1660: SELECT ato_config_item_id
1653: g_line_rec.configuration_id <> FND_API.G_MISS_NUM
1654: THEN
1655: IF l_debug_level > 0 THEN
1656: oe_debug_pub.add( 'GET_ATO: PACK H NEW LOGIC MI ' || G_LINE_REC.CONFIG_HEADER_ID , 1 ) ;
1657: oe_debug_pub.add( 'CONFIGN ID ' || G_LINE_REC.CONFIGURATION_ID , 1 ) ;
1658: END IF;
1659:
1660: SELECT ato_config_item_id
1661: INTO l_ato_config_item_id
1664: AND config_rev_nbr = g_line_rec.config_rev_nbr
1665: AND config_item_id = g_line_rec.configuration_id
1666: AND inventory_item_id = g_line_rec.inventory_item_id;
1667: IF l_debug_level > 0 THEN
1668: oe_debug_pub.add( 'GET_ATO: MI ' || L_ATO_CONFIG_ITEM_ID , 1 ) ;
1669: END IF;
1670:
1671: IF l_ato_config_item_id is NOT NULL THEN
1672: SELECT line_id
1681: AND top_model_line_id = g_line_rec.top_model_line_id;
1682:
1683: ELSE
1684: IF l_debug_level > 0 THEN
1685: oe_debug_pub.add('CONFIG_ITEM_ID NOT RETURNED FROM CZ');
1686: END IF;
1687: IF g_line_rec.item_type_code = OE_GLOBALS.G_ITEM_OPTION
1688: AND
1689: l_replenish_to_order_flag = 'Y' AND
1689: l_replenish_to_order_flag = 'Y' AND
1690: l_build_in_wip_flag = 'Y'
1691: THEN
1692: IF l_debug_level > 0 THEN
1693: oe_debug_pub.add( 'ATO ITEM UNDER PTO MODEL' , 1 ) ;
1694: END IF;
1695: RETURN g_line_rec.line_id;
1696: END IF;
1697: END IF;
1696: END IF;
1697: END IF;
1698:
1699: IF l_debug_level > 0 THEN
1700: oe_debug_pub.add( 'PTO+ATO SELECT '||L_ATO_LINE_ID , 1 ) ;
1701: END IF;
1702:
1703: ELSE
1704:
1702:
1703: ELSE
1704:
1705: IF l_debug_level > 0 THEN
1706: oe_debug_pub.add( 'USE OE_ORDER_LINES' , 3 ) ;
1707: END IF;
1708:
1709: SELECT line_id
1710: INTO l_ato_line_id
1732: LENGTH(component_code) + 1, 1) is NULL);
1733:
1734:
1735: IF l_debug_level > 0 THEN
1736: oe_debug_pub.add( 'PTO+ATO SELECT '||L_ATO_LINE_ID , 1 ) ;
1737: END IF;
1738: END IF;
1739:
1740: EXCEPTION
1739:
1740: EXCEPTION
1741: WHEN no_data_found THEN
1742: IF l_debug_level > 0 THEN
1743: oe_debug_pub.add( 'NO DATA FOUND PTO CASE '|| L_TEMP_ATO_LINE_ID , 3 ) ;
1744: END IF;
1745:
1746: -- ## 1820608 ato item under a top pto model
1747: -- should have line_id = ato_line_id, if ato_item is
1753: l_replenish_to_order_flag = 'Y' AND
1754: l_build_in_wip_flag = 'Y'
1755: THEN
1756: IF l_debug_level > 0 THEN
1757: oe_debug_pub.add( 'ATO ITEM UNDER PTO MODEL' , 1 ) ;
1758: END IF;
1759: RETURN g_line_rec.line_id;
1760: ELSE
1761: RETURN l_temp_ato_line_id;
1766: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_DUPLICATE_COMPONENT');
1767: FND_MESSAGE.Set_Token('ITEM', nvl(g_line_rec.ordered_item,g_line_rec.inventory_item_id));
1768: OE_Msg_Pub.Add;
1769: IF l_debug_level > 0 THEN
1770: oe_debug_pub.add( 'TOO MANY ROWS CASE '|| G_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
1771: END IF;
1772: RAISE;
1773:
1774: WHEN OTHERS THEN
1772: RAISE;
1773:
1774: WHEN OTHERS THEN
1775: IF l_debug_level > 0 THEN
1776: oe_debug_pub.add( 'ATO LINE EXCEPTION ' , 3 ) ;
1777: END IF;
1778: RAISE;
1779: END;
1780: END IF;
1779: END;
1780: END IF;
1781:
1782: IF l_debug_level > 0 THEN
1783: oe_debug_pub.add( '2. ATO LINE ID : '|| L_ATO_LINE_ID , 3 ) ;
1784: END IF;
1785:
1786: RETURN l_ato_line_id;
1787:
1786: RETURN l_ato_line_id;
1787:
1788: ELSE
1789: IF l_debug_level > 0 THEN
1790: oe_debug_pub.add( 'RETURN ATO_LINE_ID AS NULL' , 1 ) ;
1791: END IF;
1792: RETURN null;
1793: END IF;
1794: END IF;
1793: END IF;
1794: END IF;
1795:
1796: IF l_debug_level > 0 THEN
1797: oe_debug_pub.add( 'GG:LINE_ID : ' || G_LINE_REC.LINE_ID , 1 ) ;
1798: oe_debug_pub.add( 'GG:ATO LINE ID : ' || G_LINE_REC.ATO_LINE_ID , 1 ) ;
1799: END IF;
1800:
1801: EXCEPTION
1794: END IF;
1795:
1796: IF l_debug_level > 0 THEN
1797: oe_debug_pub.add( 'GG:LINE_ID : ' || G_LINE_REC.LINE_ID , 1 ) ;
1798: oe_debug_pub.add( 'GG:ATO LINE ID : ' || G_LINE_REC.ATO_LINE_ID , 1 ) ;
1799: END IF;
1800:
1801: EXCEPTION
1802:
1837: Select set_id
1838: From oe_line_sets
1839: Where line_id = p_line_id;
1840: --
1841: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1842: --
1843: BEGIN
1844:
1845: IF l_debug_level > 0 THEN
1842: --
1843: BEGIN
1844:
1845: IF l_debug_level > 0 THEN
1846: oe_debug_pub.add( 'ENTERING INTO INSERT_INTO_SET' , 1 ) ;
1847: oe_debug_pub.add( 'TOP MODEL IS ' || P_LINE_ID , 1 ) ;
1848: oe_debug_pub.add( 'CHILD LINE IS ' || P_CHILD_LINE_ID , 1 ) ;
1849: END IF;
1850: FOR i IN parent_sets LOOP
1843: BEGIN
1844:
1845: IF l_debug_level > 0 THEN
1846: oe_debug_pub.add( 'ENTERING INTO INSERT_INTO_SET' , 1 ) ;
1847: oe_debug_pub.add( 'TOP MODEL IS ' || P_LINE_ID , 1 ) ;
1848: oe_debug_pub.add( 'CHILD LINE IS ' || P_CHILD_LINE_ID , 1 ) ;
1849: END IF;
1850: FOR i IN parent_sets LOOP
1851: IF l_debug_level > 0 THEN
1844:
1845: IF l_debug_level > 0 THEN
1846: oe_debug_pub.add( 'ENTERING INTO INSERT_INTO_SET' , 1 ) ;
1847: oe_debug_pub.add( 'TOP MODEL IS ' || P_LINE_ID , 1 ) ;
1848: oe_debug_pub.add( 'CHILD LINE IS ' || P_CHILD_LINE_ID , 1 ) ;
1849: END IF;
1850: FOR i IN parent_sets LOOP
1851: IF l_debug_level > 0 THEN
1852: oe_debug_pub.add( 'ENTERING INTO LOOP -SET' ||I.SET_ID , 1 ) ;
1848: oe_debug_pub.add( 'CHILD LINE IS ' || P_CHILD_LINE_ID , 1 ) ;
1849: END IF;
1850: FOR i IN parent_sets LOOP
1851: IF l_debug_level > 0 THEN
1852: oe_debug_pub.add( 'ENTERING INTO LOOP -SET' ||I.SET_ID , 1 ) ;
1853: END IF;
1854:
1855:
1856:
1863: END LOOP;
1864:
1865: x_return_status := FND_API.G_RET_STS_SUCCESS;
1866: IF l_debug_level > 0 THEN
1867: oe_debug_pub.add( 'EXITING FROM INSERT_INTO_SET' , 1 ) ;
1868: END IF;
1869:
1870: EXCEPTION
1871:
1878: FUNCTION Get_Fulfilled_Quantity
1879: RETURN NUMBER
1880: IS
1881: --
1882: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1883: --
1884: BEGIN
1885:
1886: RETURN NULL;
1892: p_old_line_rec OE_ORDER_PUB.Line_Rec_Type,
1893: p_item_type_code VARCHAR2)
1894: IS
1895: --
1896: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1897: --
1898: BEGIN
1899: IF l_debug_level > 0 THEN
1900: oe_debug_pub.add( 'ENTERING CHECK ITEM TYPE' ) ;
1896: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1897: --
1898: BEGIN
1899: IF l_debug_level > 0 THEN
1900: oe_debug_pub.add( 'ENTERING CHECK ITEM TYPE' ) ;
1901: oe_debug_pub.add( 'ITEM TYPE '|| P_ITEM_TYPE_CODE ) ;
1902: END IF;
1903: IF p_line_rec.operation = oe_globals.g_opr_update THEN
1904: IF (p_old_line_rec.item_type_code <> FND_API.G_MISS_CHAR AND
1897: --
1898: BEGIN
1899: IF l_debug_level > 0 THEN
1900: oe_debug_pub.add( 'ENTERING CHECK ITEM TYPE' ) ;
1901: oe_debug_pub.add( 'ITEM TYPE '|| P_ITEM_TYPE_CODE ) ;
1902: END IF;
1903: IF p_line_rec.operation = oe_globals.g_opr_update THEN
1904: IF (p_old_line_rec.item_type_code <> FND_API.G_MISS_CHAR AND
1905: p_old_line_rec.item_type_code IS NOT NULL) THEN
1909:
1910: FND_MESSAGE.SET_NAME('ONT','OE_ITEM_TYPE_CONST');
1911: OE_MSG_PUB.ADD;
1912: IF l_debug_level > 0 THEN
1913: oe_debug_pub.add( 'ITEM_TYPE_CODE CONSTRAINED' ) ;
1914: END IF;
1915: RAISE FND_API.G_EXC_ERROR;
1916:
1917: END IF;
1918: END IF;
1919: END IF;
1920:
1921: IF l_debug_level > 0 THEN
1922: oe_debug_pub.add( 'ITEM_TYPE_CODE : OPERATION IS CREATE ' ) ;
1923: END IF;
1924:
1925: END Check_Item_Type;
1926:
1932: l_bom_item_type VARCHAR2(30);
1933: l_service_item_flag VARCHAR2(1);
1934: l_pick_components_flag VARCHAR2(1);
1935: --
1936: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1937: --
1938: BEGIN
1939:
1940: IF l_debug_level > 0 THEN
1937: --
1938: BEGIN
1939:
1940: IF l_debug_level > 0 THEN
1941: oe_debug_pub.add( 'IN DEFAULTING: FUNCTION GET_ITEM_TYPE' , 1 ) ;
1942: oe_debug_pub.add( 'THE INV ITEM IS'||TO_CHAR ( G_LINE_REC.INVENTORY_ITEM_ID ) , 1 ) ;
1943: --6933507
1944: oe_debug_pub.add( ' line_category_code = '|| p_line_rec.line_category_code , 1 ) ;
1945: oe_debug_pub.add( ' retrobill_request_id = '|| p_line_rec.retrobill_request_id , 1 ) ;
1938: BEGIN
1939:
1940: IF l_debug_level > 0 THEN
1941: oe_debug_pub.add( 'IN DEFAULTING: FUNCTION GET_ITEM_TYPE' , 1 ) ;
1942: oe_debug_pub.add( 'THE INV ITEM IS'||TO_CHAR ( G_LINE_REC.INVENTORY_ITEM_ID ) , 1 ) ;
1943: --6933507
1944: oe_debug_pub.add( ' line_category_code = '|| p_line_rec.line_category_code , 1 ) ;
1945: oe_debug_pub.add( ' retrobill_request_id = '|| p_line_rec.retrobill_request_id , 1 ) ;
1946: oe_debug_pub.add( ' item_type_code = '|| p_line_rec.item_type_code , 1 ) ;
1940: IF l_debug_level > 0 THEN
1941: oe_debug_pub.add( 'IN DEFAULTING: FUNCTION GET_ITEM_TYPE' , 1 ) ;
1942: oe_debug_pub.add( 'THE INV ITEM IS'||TO_CHAR ( G_LINE_REC.INVENTORY_ITEM_ID ) , 1 ) ;
1943: --6933507
1944: oe_debug_pub.add( ' line_category_code = '|| p_line_rec.line_category_code , 1 ) ;
1945: oe_debug_pub.add( ' retrobill_request_id = '|| p_line_rec.retrobill_request_id , 1 ) ;
1946: oe_debug_pub.add( ' item_type_code = '|| p_line_rec.item_type_code , 1 ) ;
1947: --6933507
1948: END IF;
1941: oe_debug_pub.add( 'IN DEFAULTING: FUNCTION GET_ITEM_TYPE' , 1 ) ;
1942: oe_debug_pub.add( 'THE INV ITEM IS'||TO_CHAR ( G_LINE_REC.INVENTORY_ITEM_ID ) , 1 ) ;
1943: --6933507
1944: oe_debug_pub.add( ' line_category_code = '|| p_line_rec.line_category_code , 1 ) ;
1945: oe_debug_pub.add( ' retrobill_request_id = '|| p_line_rec.retrobill_request_id , 1 ) ;
1946: oe_debug_pub.add( ' item_type_code = '|| p_line_rec.item_type_code , 1 ) ;
1947: --6933507
1948: END IF;
1949:
1942: oe_debug_pub.add( 'THE INV ITEM IS'||TO_CHAR ( G_LINE_REC.INVENTORY_ITEM_ID ) , 1 ) ;
1943: --6933507
1944: oe_debug_pub.add( ' line_category_code = '|| p_line_rec.line_category_code , 1 ) ;
1945: oe_debug_pub.add( ' retrobill_request_id = '|| p_line_rec.retrobill_request_id , 1 ) ;
1946: oe_debug_pub.add( ' item_type_code = '|| p_line_rec.item_type_code , 1 ) ;
1947: --6933507
1948: END IF;
1949:
1950: IF ( g_line_rec.inventory_item_id is NULL OR
1982: l_service_item_flag := OE_ORDER_CACHE.g_item_rec.service_item_flag;
1983: l_pick_components_flag := OE_ORDER_CACHE.g_item_rec.pick_components_flag;
1984:
1985: IF l_debug_level > 0 THEN
1986: oe_debug_pub.add( 'BOM ITEM TYPE IS ' || L_BOM_ITEM_TYPE ) ;
1987: END IF;
1988:
1989: IF l_bom_item_type = 1
1990: -- MODEL items and ato's under pto have bom_item_type = 1
1995: -- nvl(g_line_rec.top_model_line_index, 0) <> nvl(g_line_rec.line_index,0)
1996: -- line_rec dose not have line_index
1997: THEN
1998: IF l_debug_level > 0 THEN
1999: oe_debug_pub.add( 'RETURNING CLASS AS THE ITEM TYPE FOR ATO SUBCONFIG' , 1 ) ;
2000: END IF;
2001: --Procedure to check change in item_type_code
2002: Check_Item_Type(p_line_rec,
2003: p_old_line_rec,
2005: RETURN OE_GLOBALS.G_ITEM_CLASS;
2006: END IF;
2007:
2008: IF l_debug_level > 0 THEN
2009: oe_debug_pub.add( 'RETURNING MODEL AS THE ITEM TYPE' , 1 ) ;
2010: END IF;
2011: --Procedure to check change in item_type_code
2012: Check_Item_Type(p_line_rec,
2013: p_old_line_rec,
2016:
2017: ELSIF l_bom_item_type = 2
2018: THEN
2019: IF l_debug_level > 0 THEN
2020: oe_debug_pub.add( 'RETURNING CLASS AS THE ITEM TYPE' , 1 ) ;
2021: END IF;
2022: -- Only CLASS items have bom_item_type = 2
2023: --Procedure to check change in item_type_code
2024: Check_Item_Type(p_line_rec,
2030: l_service_item_flag = 'N'
2031: THEN
2032:
2033: IF l_debug_level > 0 THEN
2034: oe_debug_pub.add( 'BOM 4 AND FLAG = N' ) ;
2035: END IF;
2036: -- Following 3 items can have bom_item_type = 4 :
2037: -- STANDARD item, OPTION item and a KIT
2038: -- We will distinguish an item to be a kit by seeing if
2047: ELSIF (g_line_rec.top_model_line_id is not null AND
2048: g_line_rec.top_model_line_id <> FND_API.G_MISS_NUM)
2049: THEN
2050: IF l_debug_level > 0 THEN
2051: oe_debug_pub.add( 'GET_ITEM_TYPE NO DATA FOUND , BOM_ITEM_TYPE : 4' , 1 ) ;
2052: END IF;
2053: l_item_type_code := OE_GLOBALS.G_ITEM_OPTION;
2054: ELSE
2055: l_item_type_code := OE_GLOBALS.G_ITEM_STANDARD;
2055: l_item_type_code := OE_GLOBALS.G_ITEM_STANDARD;
2056: END IF;
2057:
2058: IF l_debug_level > 0 THEN
2059: oe_debug_pub.add( ' BEFORE CALLING CHECK 1' ) ;
2060: END IF;
2061: --Procedure to check change in item_type_code
2062: Check_Item_Type(p_line_rec,
2063: p_old_line_rec,
2067: ELSIF l_service_item_flag = 'Y' and
2068: l_bom_item_type = 4
2069: THEN
2070: IF l_debug_level > 0 THEN
2071: oe_debug_pub.add( 'SERVICE ITEM FLAG IS: ' || L_SERVICE_ITEM_FLAG ) ;
2072: END IF;
2073: --Procedure to check change in item_type_code
2074: Check_Item_Type(p_line_rec,
2075: p_old_line_rec,
2080:
2081: RETURN null;
2082:
2083: IF l_debug_level > 0 THEN
2084: oe_debug_pub.add( 'EXITING DEFAULTING: FUNCTION GET_ITEM_TYPE' ) ;
2085: END IF;
2086:
2087: EXCEPTION
2088:
2087: EXCEPTION
2088:
2089: WHEN NO_DATA_FOUND THEN
2090: IF l_debug_level > 0 THEN
2091: oe_debug_pub.add( ' BEFORE CALLING CHECK 4' ) ;
2092: END IF;
2093: l_item_type_code := OE_GLOBALS.G_ITEM_STANDARD;
2094: --Procedure to check change in item_type_code
2095: Check_Item_Type(p_line_rec,
2119: RETURN NUMBER
2120: IS
2121: l_line_id NUMBER := NULL;
2122: --
2123: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2124: --
2125: BEGIN
2126:
2127: SELECT OE_ORDER_LINES_S.NEXTVAL
2135: FUNCTION Get_Orig_Sys_Doc_Ref
2136: RETURN VARCHAR2
2137: IS
2138: --
2139: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2140: --
2141: BEGIN
2142:
2143: OE_ORDER_CACHE.Load_Order_Header(g_line_rec.header_id);
2150: RETURN NUMBER
2151: IS
2152: l_Org_id NUMBER := NULL;
2153: --
2154: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2155: --
2156: BEGIN
2157:
2158: OE_GLOBALS.Set_Context;
2168: IS
2169: l_order_category varchar2(30);
2170: l_category varchar2(30) := NULL;
2171: --
2172: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2173: --
2174: BEGIN
2175: IF l_debug_level > 0 THEN
2176: oe_debug_pub.add( 'IN DEFAULTING: FUNCTION GET_LINE_CATEGORY' , 1 ) ;
2172: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2173: --
2174: BEGIN
2175: IF l_debug_level > 0 THEN
2176: oe_debug_pub.add( 'IN DEFAULTING: FUNCTION GET_LINE_CATEGORY' , 1 ) ;
2177: END IF;
2178:
2179: /* replaced with the following IF for 2421909
2180: IF (p_line_rec.operation = oe_globals.g_opr_create) and
2185: IF (p_line_rec.line_type_id IS NULL OR -- 2421909
2186: p_line_rec.line_type_id = FND_API.G_MISS_NUM) THEN
2187:
2188: IF l_debug_level > 0 THEN
2189: oe_debug_pub.add( 'AK IN DEFAULTING: WHEN LINE_TYPE_ID IS NULL' , 1 ) ;
2190: oe_debug_pub.add( 'AK IN DEFAULTING:' || P_LINE_REC.HEADER_ID , 1 ) ;
2191: END IF;
2192:
2193: /* Replaced with the following IF statement for 2421909
2186: p_line_rec.line_type_id = FND_API.G_MISS_NUM) THEN
2187:
2188: IF l_debug_level > 0 THEN
2189: oe_debug_pub.add( 'AK IN DEFAULTING: WHEN LINE_TYPE_ID IS NULL' , 1 ) ;
2190: oe_debug_pub.add( 'AK IN DEFAULTING:' || P_LINE_REC.HEADER_ID , 1 ) ;
2191: END IF;
2192:
2193: /* Replaced with the following IF statement for 2421909
2194: OE_ORDER_CACHE.Load_Order_Header(p_line_rec.header_id);
2198: IF (p_line_rec.operation = oe_globals.g_opr_create)
2199: THEN -- 2421909ND
2200:
2201: IF l_debug_level > 0 THEN
2202: oe_debug_pub.add( 'AK IN DEFAULTING: OPERATION IS CREATE' , 1 ) ;
2203: END IF;
2204: OE_ORDER_CACHE.Load_Order_Header(p_line_rec.header_id);
2205: l_order_category := OE_ORDER_CACHE.g_header_rec.ORDER_CATEGORY_CODE;
2206: ELSE
2209:
2210: ELSE
2211:
2212: IF l_debug_level > 0 THEN
2213: oe_debug_pub.add( 'AK IN DEFAULTING: WHEN LINE_TYPE_ID IS NOT NULL' , 1 ) ;
2214: END IF;
2215: OE_ORDER_CACHE.Load_Line_Type(p_line_rec.line_type_id);
2216: l_order_category := OE_ORDER_CACHE.g_line_type_rec.ORDER_CATEGORY_CODE;
2217:
2230: p_line_rec.line_category_code = 'ORDER' AND
2231: p_line_rec.order_source_id = 27 ) THEN
2232: l_category := 'ORDER';
2233: IF l_debug_level > 0 THEN
2234: oe_debug_pub.add( 'Retrobill price increase Line Category ' || L_CATEGORY ) ;
2235: END IF;
2236: END IF;
2237: --retro}
2238: IF l_debug_level > 0 THEN
2235: END IF;
2236: END IF;
2237: --retro}
2238: IF l_debug_level > 0 THEN
2239: oe_debug_pub.add( 'LINE CATEGORY: ' || L_CATEGORY ) ;
2240: END IF;
2241:
2242: IF p_line_rec.operation = oe_globals.g_opr_update THEN
2243:
2259: else
2260: FND_MESSAGE.SET_NAME('ONT', 'OE_LINE_CAT_CONST');
2261: OE_MSG_PUB.ADD;
2262: IF l_debug_level > 0 THEN
2263: oe_debug_pub.add( 'LINE CATEGORY CONSTRINED' ) ;
2264: END IF;
2265: RAISE FND_API.G_EXC_ERROR;
2266: END IF;
2267: END IF;
2271: END IF;
2272:
2273:
2274: IF l_debug_level > 0 THEN
2275: oe_debug_pub.add( 'IN DEFAULTING: RETURNLINECATEROY' , 1 ) ;
2276: END IF;
2277: RETURN l_category;
2278:
2279: EXCEPTION
2279: EXCEPTION
2280:
2281: WHEN NO_DATA_FOUND THEN
2282: IF l_debug_level > 0 THEN
2283: oe_debug_pub.add( 'IN DEFAULTING: NO DATAFOUND' , 1 ) ;
2284: END IF;
2285: l_category := 'ORDER';
2286: IF p_line_rec.operation = oe_globals.g_opr_update THEN
2287:
2292: l_category) THEN
2293: FND_MESSAGE.SET_NAME('ONT', 'OE_LINE_CAT_CONST');
2294: OE_MSG_PUB.ADD;
2295: IF l_debug_level > 0 THEN
2296: oe_debug_pub.add( 'LINE CATEGORY CONSTRINED' ) ;
2297: END IF;
2298: RAISE FND_API.G_EXC_ERROR;
2299: END IF;
2300:
2323: RETURN NUMBER
2324: IS
2325: l_line_number NUMBER := NULL;
2326: --
2327: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2328: --
2329: BEGIN
2330:
2331: IF l_debug_level > 0 THEN
2328: --
2329: BEGIN
2330:
2331: IF l_debug_level > 0 THEN
2332: oe_debug_pub.add( 'IN PKG OE_DEFAULT_LINE: FUNCTION GET_LINE_NUMBER' ) ;
2333: END IF;
2334:
2335: IF g_line_rec.top_model_line_id IS NULL
2336: OR g_line_rec.top_model_line_id = FND_API.G_MISS_NUM
2346:
2347: ELSE
2348:
2349: IF l_debug_level > 0 THEN
2350: oe_debug_pub.add( 'LOADING TOP_MODEL_LINE_ID: ' || G_LINE_REC.TOP_MODEL_LINE_ID ) ;
2351: END IF;
2352: OE_Order_Cache.Load_top_model_line
2353: (g_line_rec.top_model_line_id );
2354: l_line_number := OE_Order_Cache.g_top_model_line_rec.line_number;
2355:
2356: RETURN (l_line_number);
2357:
2358: IF l_debug_level > 0 THEN
2359: oe_debug_pub.add( 'LOADDED TOP_MODEL_LINE_ID ' ) ;
2360: END IF;
2361:
2362: END IF;
2363:
2381: RETURN DATE
2382: IS
2383: l_latest_acceptable_date DATE;
2384: --
2385: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2386: --
2387: BEGIN
2388:
2389: OE_ORDER_CACHE.Load_Order_Header(g_line_rec.header_id);
2402: FUNCTION Get_Pricing_Quantity
2403: RETURN NUMBER
2404: IS
2405: --
2406: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2407: --
2408: BEGIN
2409:
2410: IF g_line_rec.ordered_quantity = FND_API.G_MISS_NUM then
2442: RETURN NUMBER
2443: IS
2444: l_ship_number NUMBER := NULL;
2445: --
2446: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2447: --
2448: BEGIN
2449:
2450: IF l_debug_level > 0 THEN
2447: --
2448: BEGIN
2449:
2450: IF l_debug_level > 0 THEN
2451: oe_debug_pub.add( 'IN PKG OE_DEFAULT_LINE: FUNCTION GET_SHIPMENT_NUMBER' ) ;
2452: END IF;
2453:
2454: IF g_line_rec.top_model_line_id IS NULL
2455: OR g_line_rec.top_model_line_id = FND_API.G_MISS_NUM
2501: FUNCTION Get_Shipping_Interfaced
2502: RETURN VARCHAR2
2503: IS
2504: --
2505: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2506: --
2507: BEGIN
2508:
2509: RETURN 'N';
2515: RETURN VARCHAR2
2516: IS
2517: l_source_type VARCHAR2(30) := OE_GLOBALS.G_SOURCE_INTERNAL;
2518: --
2519: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2520: --
2521: BEGIN
2522:
2523: IF l_debug_level > 0 THEN
2520: --
2521: BEGIN
2522:
2523: IF l_debug_level > 0 THEN
2524: oe_debug_pub.add( 'DEFAULTING SOURCE TYPE' ) ;
2525: END IF;
2526:
2527: IF p_line_type_id is not null AND
2528: p_line_type_id <> FND_API.G_MISS_NUM THEN
2548: END IF;
2549:
2550:
2551: IF l_debug_level > 0 THEN
2552: oe_debug_pub.add( 'DEFAULTING SOURCE TYPE AS || L_SOURCE_TYPE' ) ;
2553: END IF;
2554:
2555: IF l_source_type <> p_source_type THEN
2556: RETURN l_source_type;
2569: ,p_item_type_code IN VARCHAR2)
2570: RETURN VARCHAR2
2571: IS
2572: --
2573: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2574: --
2575: BEGIN
2576:
2577: IF ( p_inventory_item_id is NULL OR
2584: RETURN 'Y';
2585: END IF;
2586:
2587: IF l_debug_level > 0 THEN
2588: oe_debug_pub.add( '1 , ATO_LINE_ID: '|| P_ATO_LINE_ID , 1 ) ;
2589: END IF;
2590:
2591:
2592: IF (p_ato_line_id is not null) AND
2600: p_line_id = p_ato_line_id )
2601: THEN
2602:
2603: IF l_debug_level > 0 THEN
2604: oe_debug_pub.add( 'ATO MODEL OR OPTION' , 1 ) ;
2605: END IF;
2606: RETURN 'N';
2607:
2608: END IF;
2613: OE_Order_Cache.Load_Item (p_inventory_item_id
2614: ,p_ship_from_org_id);
2615:
2616: IF l_debug_level > 0 THEN
2617: oe_debug_pub.add( 'SHIPPABLE FLAG: ' || OE_ORDER_CACHE.G_ITEM_REC.SHIPPABLE_ITEM_FLAG , 1 ) ;
2618: END IF;
2619:
2620: RETURN OE_ORDER_CACHE.g_item_rec.shippable_item_flag;
2621:
2626: FUNCTION Get_SMC_Flag
2627: RETURN VARCHAR2
2628: IS
2629: --
2630: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2631: --
2632: BEGIN
2633:
2634: IF l_debug_level > 0 THEN
2631: --
2632: BEGIN
2633:
2634: IF l_debug_level > 0 THEN
2635: oe_debug_pub.add( 'DEFAULTING SMC FLAG ' , 1 ) ;
2636: END IF;
2637:
2638: IF ( g_line_rec.inventory_item_id is NULL OR
2639: g_line_rec.inventory_item_id = FND_API.G_MISS_NUM )
2639: g_line_rec.inventory_item_id = FND_API.G_MISS_NUM )
2640: THEN
2641: RETURN NULL;
2642: IF l_debug_level > 0 THEN
2643: oe_debug_pub.add( 'SMC1 FLAG VALUE IS NULL' , 1 ) ;
2644: END IF;
2645: END IF;
2646:
2647: IF l_debug_level > 0 THEN
2644: END IF;
2645: END IF;
2646:
2647: IF l_debug_level > 0 THEN
2648: oe_debug_pub.add( 'GET SMC: TOP MODEL LINE ID :' || G_LINE_REC.TOP_MODEL_LINE_ID , 1 ) ;
2649: END IF;
2650:
2651: -- SMC PTO flag is only for PTO's and Kits
2652:
2655: OE_Order_Cache.Load_Item (g_line_rec.inventory_item_id
2656: ,g_line_rec.ship_from_org_id);
2657:
2658: IF l_debug_level > 0 THEN
2659: oe_debug_pub.add( 'SMC FLAG ' || OE_ORDER_CACHE.G_ITEM_REC.SHIP_MODEL_COMPLETE_FLAG , 3 ) ;
2660: END IF;
2661: RETURN OE_ORDER_CACHE.g_item_rec.ship_model_complete_flag;
2662:
2663: ELSIF
2665: g_line_rec.ship_model_complete_flag <> FND_API.G_MISS_CHAR AND
2666: g_line_rec.top_model_line_id is not NULL
2667: THEN
2668: IF l_debug_level > 0 THEN
2669: oe_debug_pub.add( 'SMC4 FLAG ' || G_LINE_REC.SHIP_MODEL_COMPLETE_FLAG , 3 ) ;
2670: END IF;
2671: return g_line_rec.ship_model_complete_flag;
2672: ELSE
2673: RETURN null;
2671: return g_line_rec.ship_model_complete_flag;
2672: ELSE
2673: RETURN null;
2674: IF l_debug_level > 0 THEN
2675: oe_debug_pub.add( 'SMC5 FLAG VALUE IS NULL' , 3 ) ;
2676: END IF;
2677: END IF;
2678:
2679: END Get_SMC_Flag;
2688: IS
2689: l_invoice_line_id NUMBER := NULL;
2690: l_order_line_id NUMBER := NULL;
2691: --
2692: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2693: --
2694: BEGIN
2695:
2696: IF (p_return_context = 'INVOICE') THEN
2699:
2700: ELSIF p_return_context in ('SERIAL') THEN
2701:
2702: IF l_debug_level > 0 THEN
2703: oe_debug_pub.add( 'ATTR1 ' || P_RETURN_ATTRIBUTE1 , 1 ) ;
2704: oe_debug_pub.add( 'ATTR2 ' || P_RETURN_ATTRIBUTE2 , 1 ) ;
2705: END IF;
2706: BEGIN
2707:
2700: ELSIF p_return_context in ('SERIAL') THEN
2701:
2702: IF l_debug_level > 0 THEN
2703: oe_debug_pub.add( 'ATTR1 ' || P_RETURN_ATTRIBUTE1 , 1 ) ;
2704: oe_debug_pub.add( 'ATTR2 ' || P_RETURN_ATTRIBUTE2 , 1 ) ;
2705: END IF;
2706: BEGIN
2707:
2708: SELECT l.line_id
2718: AND u.inventory_item_id = to_number(p_return_attribute1)
2719: AND rownum = 1;
2720:
2721: IF l_debug_level > 0 THEN
2722: oe_debug_pub.add( 'LINE ' || TO_CHAR ( L_ORDER_LINE_ID ) , 1 ) ;
2723: END IF;
2724:
2725: IF l_order_line_id IS NOT NULL THEN
2726: SELECT /* MOAC_SQL_CHANGE */ rctl.customer_trx_line_id
2737: AND rctl.interface_line_attribute11 = '0' --Bug2721441
2738: AND rctl.org_id=rct.org_id
2739: AND rownum = 1;
2740: IF l_debug_level > 0 THEN
2741: oe_debug_pub.add( 'INV LINE ' || TO_CHAR ( L_INVOICE_LINE_ID ) , 1 ) ;
2742: END IF;
2743: END IF;
2744: RETURN l_invoice_line_id;
2745: EXCEPTION
2745: EXCEPTION
2746: WHEN NO_DATA_FOUND THEN
2747: -- not invoiced yet, return NULL
2748: IF l_debug_level > 0 THEN
2749: oe_debug_pub.add( 'IN NO DATA ' , 1 ) ;
2750: END IF;
2751: RETURN NULL;
2752: END;
2753:
2896: l_index2 NUMBER;
2897: l_match VARCHAR2(1);
2898:
2899: --
2900: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2901: --
2902: BEGIN
2903: IF l_debug_level > 0 THEN
2904: oe_debug_pub.add( 'ATTR1 ' || P_RETURN_ATTRIBUTE1 , 1 ) ;
2900: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2901: --
2902: BEGIN
2903: IF l_debug_level > 0 THEN
2904: oe_debug_pub.add( 'ATTR1 ' || P_RETURN_ATTRIBUTE1 , 1 ) ;
2905: oe_debug_pub.add( 'ATTR2 ' || P_RETURN_ATTRIBUTE2 , 1 ) ;
2906: END IF;
2907:
2908: IF (p_return_context = 'INVOICE') THEN
2901: --
2902: BEGIN
2903: IF l_debug_level > 0 THEN
2904: oe_debug_pub.add( 'ATTR1 ' || P_RETURN_ATTRIBUTE1 , 1 ) ;
2905: oe_debug_pub.add( 'ATTR2 ' || P_RETURN_ATTRIBUTE2 , 1 ) ;
2906: END IF;
2907:
2908: IF (p_return_context = 'INVOICE') THEN
2909: BEGIN
2928:
2929: WHEN OTHERS THEN
2930: -- this should not be possible
2931: IF l_debug_level > 0 THEN
2932: oe_debug_pub.add( 'ERROR WHILE GETTING THE REFERENCE LINE FOR THE INVOICE LINE' , 2 ) ;
2933: END IF;
2934: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2935: THEN
2936: OE_MSG_PUB.Add_Exc_Msg
2947:
2948: ELSIF p_return_context in ('SERIAL') THEN
2949:
2950: IF l_debug_level > 0 THEN
2951: oe_debug_pub.add( 'IN SERIAL ' ) ;
2952: END IF;
2953: -- Check to find whether the item is LOT-SERIAL controlled
2954:
2955: OPEN control_codes;
2961:
2962: BEGIN
2963: IF l_lot_control_flag = 'Y' THEN
2964: IF l_debug_level > 0 THEN
2965: oe_debug_pub.add( 'IN LOT-SERIAL ' ) ;
2966: END IF;
2967:
2968: -- If the item is LOT-SERIAL Controlled
2969:
2973: LOOP
2974: l_line_tbl(l_index2) := C_LINE.line_id;
2975: l_index2:= l_index2+1;
2976: IF l_debug_level > 0 THEN
2977: oe_debug_pub.add( 'IN LOT-SERIAL12 ' ) ;
2978: END IF;
2979:
2980: -- Check to see if any referenced return exists for the line.
2981: l_index1 := 0;
2986: AND line_category_code = 'RETURN'
2987: AND cancelled_flag <> 'Y';
2988:
2989: IF l_debug_level > 0 THEN
2990: oe_debug_pub.add( 'IN LOT-SERIAL2 '||TO_CHAR ( L_INDEX1 ) ) ;
2991: END IF;
2992: -- If there is no referenced return for this line then return
2993: -- this line as a referenced_line_id.
2994:
2993: -- this line as a referenced_line_id.
2994:
2995: IF l_index1 = 0 THEN
2996: IF l_debug_level > 0 THEN
2997: oe_debug_pub.add( 'IN SERIAL3 '||TO_CHAR ( L_INDEX1 ) ) ;
2998: END IF;
2999: l_order_line_id := C_LINE.line_id;
3000: GOTO GET_INVOICE_LINE;
3001: END IF;
3005: -- If the item is LOT Controlled
3006: l_index2:=1;
3007: FOR C_LINE IN C_REF_LINE(p_return_attribute1, p_return_attribute2)LOOP
3008: IF l_debug_level > 0 THEN
3009: oe_debug_pub.add( 'IN SERIAL1 ' ) ;
3010: END IF;
3011: l_line_tbl(l_index2) := C_LINE.line_id;
3012: l_index2:= l_index2+1;
3013: IF l_debug_level > 0 THEN
3010: END IF;
3011: l_line_tbl(l_index2) := C_LINE.line_id;
3012: l_index2:= l_index2+1;
3013: IF l_debug_level > 0 THEN
3014: oe_debug_pub.add( 'IN SERIAL12 ' ) ;
3015: END IF;
3016:
3017: -- Check to see if any referenced return exists for the line.
3018: l_index1 := 0;
3023: AND line_category_code = 'RETURN'
3024: AND cancelled_flag <> 'Y';
3025:
3026: IF l_debug_level > 0 THEN
3027: oe_debug_pub.add( 'IN SERIAL2 '||TO_CHAR ( L_INDEX1 ) ) ;
3028: END IF;
3029: -- If there is no referenced return for this line then return
3030: -- this line as a referenced_line_id.
3031:
3030: -- this line as a referenced_line_id.
3031:
3032: IF l_index1 = 0 THEN
3033: IF l_debug_level > 0 THEN
3034: oe_debug_pub.add( 'IN SERIAL3 '||TO_CHAR ( L_INDEX1 ) ) ;
3035: END IF;
3036: l_order_line_id := C_LINE.line_id;
3037: GOTO GET_INVOICE_LINE;
3038: END IF;
3042: -- If there are no outbound lines which refers the entered Serial
3043: -- Number then raise error with message.
3044:
3045: IF l_debug_level > 0 THEN
3046: oe_debug_pub.add( 'IN SERIAL4 '||TO_CHAR ( L_LINE_TBL.COUNT ) ) ;
3047: END IF;
3048: IF l_line_tbl.count = 0 THEN
3049: FND_Message.Set_Name('ONT', 'OE_NO_LINES_FOR_SERIAL_NUMBER');
3050: oe_msg_pub.add;
3058:
3059: -- Check the OE_LOT_SERIAL_NUMBERS table for the entered Serial Number.
3060:
3061: IF l_debug_level > 0 THEN
3062: oe_debug_pub.add( 'IN SERIAL5 ' ) ;
3063: END IF;
3064: FOR C2 IN C_LOT_SERIAL(p_return_attribute2) LOOP
3065:
3066: -- If record exists in oe_lot_serial_numbers for the entered SN,
3084: -- bug#5452691
3085: -- and cancelled_flag <> 'Y';
3086: END IF;
3087: IF l_debug_level > 0 THEN
3088: oe_debug_pub.add( 'IN SERIAL6 THE REF LINE IS '|| TO_CHAR ( L_REF_LINE_TBL ( L_INDEX2 ) ) ) ;
3089: END IF;
3090: l_index2 := l_index2+1;
3091: END LOOP;
3092:
3093: -- There can not be more than one outbound line referring the entered
3094: -- SN and no RMA referring it.
3095:
3096: IF l_debug_level > 0 THEN
3097: oe_debug_pub.add( 'IN SERIAL7 ' ) ;
3098: END IF;
3099: IF l_ref_line_tbl.COUNT = 0 AND
3100: l_line_tbl.count > 1 THEN
3101: IF l_debug_level > 0 THEN
3098: END IF;
3099: IF l_ref_line_tbl.COUNT = 0 AND
3100: l_line_tbl.count > 1 THEN
3101: IF l_debug_level > 0 THEN
3102: oe_debug_pub.add( 'IN SERIAL71 ' ) ;
3103: END IF;
3104: FND_Message.Set_Name('ONT', 'OE_DUPLICATE_LINES_FOR_SAME_SN');
3105: oe_msg_pub.add;
3106: RAISE FND_API.G_EXC_ERROR;
3106: RAISE FND_API.G_EXC_ERROR;
3107: END IF;
3108:
3109: IF l_debug_level > 0 THEN
3110: oe_debug_pub.add( 'IN SERIAL8 ' ) ;
3111: END IF;
3112: IF l_ref_line_tbl.COUNT = 0 AND
3113: l_line_tbl.count = 1 THEN
3114: IF l_debug_level > 0 THEN
3111: END IF;
3112: IF l_ref_line_tbl.COUNT = 0 AND
3113: l_line_tbl.count = 1 THEN
3114: IF l_debug_level > 0 THEN
3115: oe_debug_pub.add( 'IN SERIAL81 ' ) ;
3116: END IF;
3117: l_order_line_id := l_line_tbl(1);
3118: END IF;
3119:
3132: IF l_line_tbl(l_index1) = l_ref_line_tbl(l_index2)
3133: THEN
3134: l_match := 'Y';
3135: IF l_debug_level > 0 THEN
3136: oe_debug_pub.add( 'MATCH FOUND ' ) ;
3137: END IF;
3138: GOTO END_OF_INDEX1_LOOP;
3139: END IF;
3140: l_index2 := l_ref_line_tbl.NEXT(l_index2);
3148: END LOOP;
3149: END IF;
3150:
3151: << GET_INVOICE_LINE >>
3152: -- oe_debug_pub.add('Line ' || to_char(l_order_line_id),1);
3153:
3154: -- If there is no valid outbound line to be referenced for the entered
3155: -- SN then raise error.
3156:
3155: -- SN then raise error.
3156:
3157: IF l_order_line_id IS NULL THEN
3158: IF l_debug_level > 0 THEN
3159: oe_debug_pub.add( 'NO LINES AVAILABLE FOR RETURN' ) ;
3160: END IF;
3161: FND_Message.Set_Name('ONT', 'OE_NO_LINES_FOR_SERIAL_NUMBER');
3162: oe_msg_pub.add;
3163: RAISE FND_API.G_EXC_ERROR;
3162: oe_msg_pub.add;
3163: RAISE FND_API.G_EXC_ERROR;
3164: ELSE
3165: IF l_debug_level > 0 THEN
3166: oe_debug_pub.add('LINE ' || TO_CHAR(L_ORDER_LINE_ID),1);
3167: END IF;
3168: END IF;
3169:
3170: FOR c_info_rec1 in C_ORDER_INFO(l_order_line_id) LOOP
3173: END LOOP;
3174:
3175: p_ref_line_id := l_order_line_id;
3176: IF l_debug_level > 0 THEN
3177: oe_debug_pub.add( 'IN SERIAL9 ' ) ;
3178: END IF;
3179: BEGIN
3180: SELECT /* MOAC_SQL_CHANGE */ rctl.customer_trx_line_id
3181: INTO l_invoice_line_id
3193: AND rctl.interface_line_attribute11 = '0' --Bug2721441
3194: AND rctl.org_id=rct.org_id
3195: AND rownum = 1;
3196: IF l_debug_level > 0 THEN
3197: oe_debug_pub.add( 'INVOICE LINE ' || TO_CHAR ( L_INVOICE_LINE_ID ) , 1 ) ;
3198: END IF;
3199:
3200: EXCEPTION
3201:
3201:
3202: WHEN OTHERS THEN
3203: -- not invoiced yet, return NULL
3204: IF l_debug_level > 0 THEN
3205: oe_debug_pub.add( 'NOT INVOICED YET' , 1 ) ;
3206: END IF;
3207: RETURN NULL;
3208:
3209: END;
3208:
3209: END;
3210: RETURN l_invoice_line_id;
3211: IF l_debug_level > 0 THEN
3212: oe_debug_pub.add( 'IN SERIAL10' ) ;
3213: END IF;
3214:
3215: EXCEPTION
3216: WHEN FND_API.G_EXC_ERROR THEN
3216: WHEN FND_API.G_EXC_ERROR THEN
3217: RAISE FND_API.G_EXC_ERROR;
3218: WHEN OTHERS THEN
3219: IF l_debug_level > 0 THEN
3220: oe_debug_pub.add( 'IN OTHERS EXCEPTION FOR SERIAL' , 2 ) ;
3221: END IF;
3222: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3223: THEN
3224: OE_MSG_PUB.Add_Exc_Msg
3237: l_trxn_type_name:= c_info_rec2.name;
3238: END LOOP;
3239:
3240: IF l_order_number IS NULL THEN
3241: oe_debug_pub.add('Invalid Return Reference',1);
3242: fnd_message.set_name('ONT', 'OE_RETURN_INVALID_SO_LINE');
3243: OE_MSG_PUB.Add;
3244: RAISE FND_API.G_EXC_ERROR;
3245: END IF;
3269: EXCEPTION
3270:
3271: WHEN OTHERS THEN
3272: IF l_debug_level > 0 THEN
3273: oe_debug_pub.add( 'IN OTHERS EXCEPTION FOR CONTEXT OF PO/ORDER' , 2 ) ;
3274: END IF;
3275: -- not invoiced yet, return NULL
3276: p_ref_line_id := p_return_attribute2;
3277: RETURN NULL;
3291: ) RETURN NUMBER
3292: IS
3293: l_order_line_id NUMBER := NULL;
3294: --
3295: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3296: --
3297: BEGIN
3298:
3299: IF l_debug_level > 0 THEN
3296: --
3297: BEGIN
3298:
3299: IF l_debug_level > 0 THEN
3300: oe_debug_pub.add( 'ENTERING GET_DEFAULTING_ORDER_LINE' ) ;
3301: END IF;
3302:
3303: IF (p_return_context = 'ORDER') THEN
3304:
3387: l_tax_exempt_flag VARCHAR2(1);
3388: l_tax_exempt_reason_code VARCHAR2(30);
3389: l_tax_exempt_number VARCHAR2(80);
3390: --
3391: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3392: --
3393: BEGIN
3394:
3395: IF (p_invoice_line_id IS NOT NULL) THEN
3463:
3464: END IF; -- exists invoice line
3465:
3466: IF l_debug_level > 0 THEN
3467: oe_debug_pub.add( 'EXITING ATTRIBUTES_FROM_INVOICE_LINE' , 1 ) ;
3468: END IF;
3469:
3470: END Attributes_From_Invoice_Line;
3471:
3477: l_ref_line_rec OE_ORDER_PUB.Line_Rec_Type;
3478: l_revision_controlled VARCHAR2(1);
3479: x_item_rec OE_Order_Cache.Item_Rec_Type;
3480: --
3481: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3482: --
3483: l_overship_invoice_basis varchar2(30) := null; --- bug# 6617423
3484:
3485: BEGIN
3484:
3485: BEGIN
3486:
3487: IF l_debug_level > 0 THEN
3488: oe_debug_pub.add( 'ENTERING ATTRIBUTES_FROM_ORDER_LINE with p_order_line_id = ' ||p_order_line_id , 1 ) ;
3489: END IF;
3490:
3491: IF (p_order_line_id IS NOT NULL AND
3492: p_order_line_id<>FND_API.G_MISS_NUM) THEN
3521: p_x_line_rec.ordered_quantity = fnd_api.g_miss_num) THEN
3522:
3523: -- p_x_line_rec.ordered_quantity := l_ref_line_rec.ordered_quantity; -- bug# 6617423
3524: -- bug# 6617423 : Start ---------
3525: oe_debug_pub.add( ' p_x_line_rec.org_id = '||p_x_line_rec.org_id ,5);
3526: IF p_x_line_rec.org_id = FND_API.G_MISS_NUM THEN
3527: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',NULL);
3528: ELSE
3529: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',p_x_line_rec.org_id);
3527: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',NULL);
3528: ELSE
3529: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',p_x_line_rec.org_id);
3530: END IF;
3531: oe_debug_pub.add( ' l_overship_invoice_basis = '|| l_overship_invoice_basis ,5 ) ;
3532: oe_debug_pub.add( ' l_ref_line_rec.invoiced_quantity = '|| l_ref_line_rec.invoiced_quantity ,5 ) ;
3533: oe_debug_pub.add( ' l_ref_line_rec.ordered_quantity = '|| l_ref_line_rec.ordered_quantity,5 ) ;
3534:
3535: IF l_overship_invoice_basis = 'SHIPPED' then
3528: ELSE
3529: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',p_x_line_rec.org_id);
3530: END IF;
3531: oe_debug_pub.add( ' l_overship_invoice_basis = '|| l_overship_invoice_basis ,5 ) ;
3532: oe_debug_pub.add( ' l_ref_line_rec.invoiced_quantity = '|| l_ref_line_rec.invoiced_quantity ,5 ) ;
3533: oe_debug_pub.add( ' l_ref_line_rec.ordered_quantity = '|| l_ref_line_rec.ordered_quantity,5 ) ;
3534:
3535: IF l_overship_invoice_basis = 'SHIPPED' then
3536: p_x_line_rec.ordered_quantity := nvl(l_ref_line_rec.shipped_quantity, l_ref_line_rec.ordered_quantity);
3529: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',p_x_line_rec.org_id);
3530: END IF;
3531: oe_debug_pub.add( ' l_overship_invoice_basis = '|| l_overship_invoice_basis ,5 ) ;
3532: oe_debug_pub.add( ' l_ref_line_rec.invoiced_quantity = '|| l_ref_line_rec.invoiced_quantity ,5 ) ;
3533: oe_debug_pub.add( ' l_ref_line_rec.ordered_quantity = '|| l_ref_line_rec.ordered_quantity,5 ) ;
3534:
3535: IF l_overship_invoice_basis = 'SHIPPED' then
3536: p_x_line_rec.ordered_quantity := nvl(l_ref_line_rec.shipped_quantity, l_ref_line_rec.ordered_quantity);
3537: ELSE
3536: p_x_line_rec.ordered_quantity := nvl(l_ref_line_rec.shipped_quantity, l_ref_line_rec.ordered_quantity);
3537: ELSE
3538: p_x_line_rec.ordered_quantity := l_ref_line_rec.ordered_quantity;
3539: end if;
3540: oe_debug_pub.add( ' p_x_line_rec.ordered_quantity = '|| p_x_line_rec.ordered_quantity, 5 ) ;
3541: -- bug# 6617423 : End
3542:
3543: p_x_line_rec.order_quantity_uom := l_ref_line_rec.order_quantity_uom;
3544:
3674: END IF;
3675:
3676: --RT{
3677: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
3678: oe_debug_pub.add('Retro:ref_head_id:'||l_ref_line_rec.header_id||' line_id:'||l_ref_line_rec.line_id);
3679: Oe_Retrobill_Pvt.Get_Return_Price(p_header_id=> l_ref_line_rec.header_id,
3680: p_line_id => l_ref_line_rec.line_id,
3681: p_ordered_qty => p_x_line_rec.ordered_quantity, --bug3540728
3682: p_pricing_qty => p_x_line_rec.pricing_quantity, --bug3540728
3776: IF x_item_rec.ont_pricing_qty_source = 'S' THEN -- INVCONV
3777: -- x_item_rec.tracking_quantity_ind = 'P' AND -- INVCONV - TAKE OUT AS OPENED UP TO ANY ITEM AND ORG
3778: -- x_item_rec.wms_enabled_flag = 'Y' THEN
3779: IF l_debug_level > 0 THEN
3780: oe_debug_pub.add( 'Discrete Catchweight enabled. l_ref_line_rec.shipped_quantity2: '|| l_ref_line_rec.shipped_quantity2||
3781: ': l_ref_line_rec.ordered_quantity:'|| l_ref_line_rec.ordered_quantity||': l_ref_line_rec.pricing_quantity_uom:'|| l_ref_line_rec.pricing_quantity_uom);
3782: END IF;
3783: p_x_line_rec.ordered_quantity2 := l_ref_line_rec.shipped_quantity2/ l_ref_line_rec.ordered_quantity * p_x_line_rec.ordered_quantity;
3784: p_x_line_rec.ordered_quantity_uom2 := x_item_rec.secondary_uom_code;
3791: p_x_line_rec.pricing_quantity_uom,
3792: p_x_line_rec.ordered_quantity2
3793: );
3794: IF l_debug_level > 0 THEN
3795: oe_debug_pub.add( 'p_x_line_rec.pricing_quantity:'|| p_x_line_rec.pricing_quantity);
3796: END IF;
3797: END IF; -- end check for pricing uom, shipping uom2
3798: END IF; -- check for discrete catchweight
3799: END IF; -- end checks for item org existence
3863:
3864: IF l_revision_controlled = 'Y' THEN
3865:
3866: IF l_debug_level > 0 THEN
3867: oe_debug_pub.add( 'THE ITEM IS REVISION CONTROLLED' ) ;
3868: END IF;
3869:
3870: Begin
3871: select distinct revision
3884: When Too_Many_Rows Then
3885: p_x_line_rec.item_revision := NULL;
3886: End;
3887: IF l_debug_level > 0 THEN
3888: oe_debug_pub.add( 'THE ITEM REVISION IS: '|| P_X_LINE_REC.ITEM_REVISION ) ;
3889: END IF;
3890: END IF;
3891:
3892: END IF;
3922: END IF;
3923: -- Override List Price
3924:
3925: IF l_debug_level > 0 THEN
3926: oe_debug_pub.add( 'EXITING ATTRIBUTES_FROM_ORDER_LINE' , 1 ) ;
3927: END IF;
3928:
3929: END Attributes_From_Order_Line;
3930:
3936: l_defaulting_invoice_line_id NUMBER := NULL;
3937: l_defaulting_order_line_id NUMBER := NULL;
3938: l_line_rec oe_order_pub.line_rec_type;
3939: --
3940: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3941: l_return_status VARCHAR2(1);
3942: l_sold_to_org_id NUMBER;
3943: l_currency_code VARCHAR2(15);
3944:
3946:
3947: BEGIN
3948:
3949: IF l_debug_level > 0 THEN
3950: oe_debug_pub.add( 'INSIDE DEFAULTING RMA' , 1 ) ;
3951: oe_debug_pub.add( 'RMA OPERATION IS'||P_X_LINE_REC.OPERATION , 1 ) ;
3952: END IF;
3953: IF NOT OE_GLOBALS.Equal(p_x_line_rec.return_attribute2,
3954: p_old_line_rec.return_attribute2)
3947: BEGIN
3948:
3949: IF l_debug_level > 0 THEN
3950: oe_debug_pub.add( 'INSIDE DEFAULTING RMA' , 1 ) ;
3951: oe_debug_pub.add( 'RMA OPERATION IS'||P_X_LINE_REC.OPERATION , 1 ) ;
3952: END IF;
3953: IF NOT OE_GLOBALS.Equal(p_x_line_rec.return_attribute2,
3954: p_old_line_rec.return_attribute2)
3955: THEN
3953: IF NOT OE_GLOBALS.Equal(p_x_line_rec.return_attribute2,
3954: p_old_line_rec.return_attribute2)
3955: THEN
3956: IF l_debug_level > 0 THEN
3957: oe_debug_pub.add( 'CLEARING RMA_ATTRIBUTES' , 1 ) ;
3958: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_CONTEXT = '||P_OLD_LINE_REC.RETURN_CONTEXT , 1 ) ;
3959: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE1 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
3960: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE2 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
3961: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE3 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
3954: p_old_line_rec.return_attribute2)
3955: THEN
3956: IF l_debug_level > 0 THEN
3957: oe_debug_pub.add( 'CLEARING RMA_ATTRIBUTES' , 1 ) ;
3958: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_CONTEXT = '||P_OLD_LINE_REC.RETURN_CONTEXT , 1 ) ;
3959: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE1 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
3960: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE2 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
3961: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE3 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
3962:
3955: THEN
3956: IF l_debug_level > 0 THEN
3957: oe_debug_pub.add( 'CLEARING RMA_ATTRIBUTES' , 1 ) ;
3958: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_CONTEXT = '||P_OLD_LINE_REC.RETURN_CONTEXT , 1 ) ;
3959: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE1 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
3960: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE2 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
3961: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE3 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
3962:
3963: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_CONTEXT = '||P_X_LINE_REC.RETURN_CONTEXT , 1 ) ;
3956: IF l_debug_level > 0 THEN
3957: oe_debug_pub.add( 'CLEARING RMA_ATTRIBUTES' , 1 ) ;
3958: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_CONTEXT = '||P_OLD_LINE_REC.RETURN_CONTEXT , 1 ) ;
3959: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE1 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
3960: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE2 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
3961: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE3 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
3962:
3963: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_CONTEXT = '||P_X_LINE_REC.RETURN_CONTEXT , 1 ) ;
3964: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE1 = '||P_X_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
3957: oe_debug_pub.add( 'CLEARING RMA_ATTRIBUTES' , 1 ) ;
3958: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_CONTEXT = '||P_OLD_LINE_REC.RETURN_CONTEXT , 1 ) ;
3959: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE1 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
3960: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE2 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
3961: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE3 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
3962:
3963: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_CONTEXT = '||P_X_LINE_REC.RETURN_CONTEXT , 1 ) ;
3964: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE1 = '||P_X_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
3965: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
3959: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE1 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
3960: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE2 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
3961: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE3 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
3962:
3963: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_CONTEXT = '||P_X_LINE_REC.RETURN_CONTEXT , 1 ) ;
3964: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE1 = '||P_X_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
3965: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
3966: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
3967:
3960: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE2 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
3961: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE3 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
3962:
3963: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_CONTEXT = '||P_X_LINE_REC.RETURN_CONTEXT , 1 ) ;
3964: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE1 = '||P_X_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
3965: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
3966: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
3967:
3968: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_id = '|| p_x_line_rec.source_document_id , 1 ) ;
3961: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE3 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
3962:
3963: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_CONTEXT = '||P_X_LINE_REC.RETURN_CONTEXT , 1 ) ;
3964: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE1 = '||P_X_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
3965: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
3966: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
3967:
3968: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_id = '|| p_x_line_rec.source_document_id , 1 ) ;
3969: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_line_id = '|| p_x_line_rec.source_document_line_id , 1 ) ;
3962:
3963: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_CONTEXT = '||P_X_LINE_REC.RETURN_CONTEXT , 1 ) ;
3964: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE1 = '||P_X_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
3965: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
3966: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
3967:
3968: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_id = '|| p_x_line_rec.source_document_id , 1 ) ;
3969: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_line_id = '|| p_x_line_rec.source_document_line_id , 1 ) ;
3970: oe_debug_pub.add( ' NEW p_x_line_rec.orig_sys_document_ref = '|| p_x_line_rec.orig_sys_document_ref , 1 ) ;
3964: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE1 = '||P_X_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
3965: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
3966: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
3967:
3968: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_id = '|| p_x_line_rec.source_document_id , 1 ) ;
3969: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_line_id = '|| p_x_line_rec.source_document_line_id , 1 ) ;
3970: oe_debug_pub.add( ' NEW p_x_line_rec.orig_sys_document_ref = '|| p_x_line_rec.orig_sys_document_ref , 1 ) ;
3971: oe_debug_pub.add( ' NEW p_x_line_rec.orig_sys_line_ref = '||p_x_line_rec.orig_sys_line_ref , 1 ) ;
3972: END IF;
3965: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
3966: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
3967:
3968: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_id = '|| p_x_line_rec.source_document_id , 1 ) ;
3969: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_line_id = '|| p_x_line_rec.source_document_line_id , 1 ) ;
3970: oe_debug_pub.add( ' NEW p_x_line_rec.orig_sys_document_ref = '|| p_x_line_rec.orig_sys_document_ref , 1 ) ;
3971: oe_debug_pub.add( ' NEW p_x_line_rec.orig_sys_line_ref = '||p_x_line_rec.orig_sys_line_ref , 1 ) ;
3972: END IF;
3973:
3966: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
3967:
3968: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_id = '|| p_x_line_rec.source_document_id , 1 ) ;
3969: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_line_id = '|| p_x_line_rec.source_document_line_id , 1 ) ;
3970: oe_debug_pub.add( ' NEW p_x_line_rec.orig_sys_document_ref = '|| p_x_line_rec.orig_sys_document_ref , 1 ) ;
3971: oe_debug_pub.add( ' NEW p_x_line_rec.orig_sys_line_ref = '||p_x_line_rec.orig_sys_line_ref , 1 ) ;
3972: END IF;
3973:
3974: -- Backup the passed in record.
3967:
3968: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_id = '|| p_x_line_rec.source_document_id , 1 ) ;
3969: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_line_id = '|| p_x_line_rec.source_document_line_id , 1 ) ;
3970: oe_debug_pub.add( ' NEW p_x_line_rec.orig_sys_document_ref = '|| p_x_line_rec.orig_sys_document_ref , 1 ) ;
3971: oe_debug_pub.add( ' NEW p_x_line_rec.orig_sys_line_ref = '||p_x_line_rec.orig_sys_line_ref , 1 ) ;
3972: END IF;
3973:
3974: -- Backup the passed in record.
3975: l_line_rec := p_x_line_rec;
4038: */
4039:
4040:
4041: IF l_debug_level > 0 THEN
4042: oe_debug_pub.add( ' l_line_rec.ordered_quantity = '||l_line_rec.ordered_quantity,5 ) ;
4043: oe_debug_pub.add( ' l_line_rec.invoiced_quantity = '||l_line_rec.invoiced_quantity,5 ) ;
4044: oe_debug_pub.add( ' p_x_line_rec.org_id = '||p_x_line_rec.org_id ,5) ;
4045: oe_debug_pub.add( ' p_x_line_rec.ordered_quantity = '|| p_x_line_rec.ordered_quantity,5 ) ;
4046: END IF;
4039:
4040:
4041: IF l_debug_level > 0 THEN
4042: oe_debug_pub.add( ' l_line_rec.ordered_quantity = '||l_line_rec.ordered_quantity,5 ) ;
4043: oe_debug_pub.add( ' l_line_rec.invoiced_quantity = '||l_line_rec.invoiced_quantity,5 ) ;
4044: oe_debug_pub.add( ' p_x_line_rec.org_id = '||p_x_line_rec.org_id ,5) ;
4045: oe_debug_pub.add( ' p_x_line_rec.ordered_quantity = '|| p_x_line_rec.ordered_quantity,5 ) ;
4046: END IF;
4047:
4040:
4041: IF l_debug_level > 0 THEN
4042: oe_debug_pub.add( ' l_line_rec.ordered_quantity = '||l_line_rec.ordered_quantity,5 ) ;
4043: oe_debug_pub.add( ' l_line_rec.invoiced_quantity = '||l_line_rec.invoiced_quantity,5 ) ;
4044: oe_debug_pub.add( ' p_x_line_rec.org_id = '||p_x_line_rec.org_id ,5) ;
4045: oe_debug_pub.add( ' p_x_line_rec.ordered_quantity = '|| p_x_line_rec.ordered_quantity,5 ) ;
4046: END IF;
4047:
4048:
4041: IF l_debug_level > 0 THEN
4042: oe_debug_pub.add( ' l_line_rec.ordered_quantity = '||l_line_rec.ordered_quantity,5 ) ;
4043: oe_debug_pub.add( ' l_line_rec.invoiced_quantity = '||l_line_rec.invoiced_quantity,5 ) ;
4044: oe_debug_pub.add( ' p_x_line_rec.org_id = '||p_x_line_rec.org_id ,5) ;
4045: oe_debug_pub.add( ' p_x_line_rec.ordered_quantity = '|| p_x_line_rec.ordered_quantity,5 ) ;
4046: END IF;
4047:
4048:
4049: IF OE_GLOBALS.G_RETURN_CHILDREN_MODE = 'Y' OR NOT (OE_GLOBALS.G_UI_FLAG) THEN
4049: IF OE_GLOBALS.G_RETURN_CHILDREN_MODE = 'Y' OR NOT (OE_GLOBALS.G_UI_FLAG) THEN
4050: --p_x_line_rec.ordered_quantity := l_line_rec.ordered_quantity; -- bug# 6617423
4051:
4052: -- bug# 6617423 : start
4053: oe_debug_pub.add( '
4055: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',NULL);
4056: ELSE
4057: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',p_x_line_rec.org_id);
4055: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',NULL);
4056: ELSE
4057: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',p_x_line_rec.org_id);
4058: END IF;
4059: oe_debug_pub.add( '
4061: IF l_overship_invoice_basis = 'SHIPPED' then
4062: p_x_line_rec.ordered_quantity := nvl(l_line_rec.shipped_quantity, l_line_rec.ordered_quantity);
4063: ELSE
4062: p_x_line_rec.ordered_quantity := nvl(l_line_rec.shipped_quantity, l_line_rec.ordered_quantity);
4063: ELSE
4064: p_x_line_rec.ordered_quantity := l_line_rec.ordered_quantity;
4065: end if;
4066: oe_debug_pub.add( ' p_x_line_rec.ordered_quantity = '|| p_x_line_rec.ordered_quantity , 5 ) ;
4067: -- bug# 6617423 : End
4068:
4069: p_x_line_rec.order_quantity_uom := l_line_rec.order_quantity_uom;
4070: p_x_line_rec.pricing_quantity := l_line_rec.pricing_quantity;
4069: p_x_line_rec.order_quantity_uom := l_line_rec.order_quantity_uom;
4070: p_x_line_rec.pricing_quantity := l_line_rec.pricing_quantity;
4071: p_x_line_rec.pricing_quantity_uom := l_line_rec.pricing_quantity_uom;
4072: IF l_debug_level > 0 THEN
4073: oe_debug_pub.add( 'THE ORDERED QTY IS SET' ) ;
4074: END IF;
4075: END IF;
4076:
4077: IF p_x_line_rec.source_document_type_id = 2
4084: THEN
4085: p_x_line_rec.calculate_price_flag := l_line_rec.calculate_price_flag;
4086: p_x_line_rec.pricing_date := l_line_rec.pricing_date;
4087: IF l_debug_level > 0 THEN
4088: oe_debug_pub.add( 'CALCULATE PRICE FLAG : '||P_X_LINE_REC.CALCULATE_PRICE_FLAG ) ;
4089: oe_debug_pub.add( 'PRICING DATE : '||P_X_LINE_REC.PRICING_DATE ) ;
4090: END IF;
4091:
4092: END IF;
4085: p_x_line_rec.calculate_price_flag := l_line_rec.calculate_price_flag;
4086: p_x_line_rec.pricing_date := l_line_rec.pricing_date;
4087: IF l_debug_level > 0 THEN
4088: oe_debug_pub.add( 'CALCULATE PRICE FLAG : '||P_X_LINE_REC.CALCULATE_PRICE_FLAG ) ;
4089: oe_debug_pub.add( 'PRICING DATE : '||P_X_LINE_REC.PRICING_DATE ) ;
4090: END IF;
4091:
4092: END IF;
4093:
4096:
4097: IF NOT (OE_GLOBALS.G_UI_FLAG)
4098: THEN
4099: IF l_debug_level > 0 THEN
4100: oe_debug_pub.add('Context is' ||P_X_LINE_REC.context);
4101: oe_debug_pub.add('Attribute 1 is : '||P_X_LINE_REC.attribute1);
4102: END IF;
4103:
4104: -- Retain the Line DFF info
4097: IF NOT (OE_GLOBALS.G_UI_FLAG)
4098: THEN
4099: IF l_debug_level > 0 THEN
4100: oe_debug_pub.add('Context is' ||P_X_LINE_REC.context);
4101: oe_debug_pub.add('Attribute 1 is : '||P_X_LINE_REC.attribute1);
4102: END IF;
4103:
4104: -- Retain the Line DFF info
4105: p_x_line_rec.context := l_line_rec.context;
4225: p_x_line_rec.return_attribute2 <> FND_API.G_MISS_CHAR
4226: THEN
4227:
4228: IF l_debug_level > 0 THEN
4229: oe_debug_pub.add( 'IN DEFAULT RETURN ATTRIBUTES' , 1 ) ;
4230: END IF;
4231:
4232: -- reprice when pricing attributes change
4233: -- also if the flag is passed in, keep the original flag
4234: IF (p_x_line_rec.calculate_price_flag IS NULL OR
4235: p_x_line_rec.calculate_price_flag = FND_API.G_MISS_CHAR)
4236: THEN
4237: IF l_debug_level > 0 THEN
4238: oe_debug_pub.add( 'SETTING CALCULATE PRICE FLAG' , 1 ) ;
4239: END IF;
4240: p_x_line_rec.calculate_price_flag := 'N';
4241:
4242: END IF;
4241:
4242: END IF;
4243:
4244: IF l_debug_level > 0 THEN
4245: oe_debug_pub.add( 'IN DEFAULT RETURN ATTRIBUTES -1' , 1 ) ;
4246: END IF;
4247: IF NOT OE_GLOBALS.Equal(p_x_line_rec.return_attribute2,
4248: p_old_line_rec.return_attribute2)
4249: THEN
4253: l_sold_to_org_id := OE_ORDER_CACHE.g_header_rec.SOLD_TO_ORG_ID;
4254: l_currency_code := OE_ORDER_CACHE.g_header_rec.transactional_curr_code;
4255:
4256: IF l_debug_level > 0 THEN
4257: oe_debug_pub.add( 'IN DEFAULT RETURN ATTRIBUTES 0' , 1 ) ;
4258: oe_debug_pub.add('Sold To Org Id IS '|| l_sold_to_org_id , 1 ) ;
4259: oe_debug_pub.add('Header Currency IS '||l_currency_code , 1 ) ;
4260: END IF;
4261: -- default attributes from invoice line
4254: l_currency_code := OE_ORDER_CACHE.g_header_rec.transactional_curr_code;
4255:
4256: IF l_debug_level > 0 THEN
4257: oe_debug_pub.add( 'IN DEFAULT RETURN ATTRIBUTES 0' , 1 ) ;
4258: oe_debug_pub.add('Sold To Org Id IS '|| l_sold_to_org_id , 1 ) ;
4259: oe_debug_pub.add('Header Currency IS '||l_currency_code , 1 ) ;
4260: END IF;
4261: -- default attributes from invoice line
4262: l_defaulting_invoice_line_id := Get_Def_Invoice_Line_Int
4255:
4256: IF l_debug_level > 0 THEN
4257: oe_debug_pub.add( 'IN DEFAULT RETURN ATTRIBUTES 0' , 1 ) ;
4258: oe_debug_pub.add('Sold To Org Id IS '|| l_sold_to_org_id , 1 ) ;
4259: oe_debug_pub.add('Header Currency IS '||l_currency_code , 1 ) ;
4260: END IF;
4261: -- default attributes from invoice line
4262: l_defaulting_invoice_line_id := Get_Def_Invoice_Line_Int
4263: (p_x_line_rec.return_context,
4266: l_sold_to_org_id,
4267: l_currency_code,
4268: l_defaulting_order_line_id);
4269: IF l_debug_level > 0 THEN
4270: oe_debug_pub.add( 'IN DEFAULT RETURN ATTRIBUTES 1' , 1 ) ;
4271: END IF;
4272:
4273: -- Since only one serial number can be entered from the reference
4274: -- set the Ordered_quantity to 1.
4287: p_x_line_rec => p_x_line_rec);
4288: END IF;
4289:
4290: IF l_debug_level > 0 THEN
4291: oe_debug_pub.add( 'IN DEFAULT RETURN ATTRIBUTES 2' , 1 ) ;
4292: END IF;
4293:
4294: Attributes_From_Order_Line
4295: (p_order_line_id => l_defaulting_order_line_id,
4295: (p_order_line_id => l_defaulting_order_line_id,
4296: p_x_line_rec => p_x_line_rec);
4297:
4298: IF l_debug_level > 0 THEN
4299: oe_debug_pub.add( 'IN DEFAULT RETURN ATTRIBUTES 4' , 1 ) ;
4300: END IF;
4301:
4302: -- Clear attributes that do not make sense to returns
4303: p_x_line_rec.shipped_quantity := NULL;
4336: , p_x_line_rec => p_x_line_rec
4337: , p_validation_level => OE_GLOBALS.G_VALID_PARTIAL_WITH_DEF);
4338:
4339: IF l_debug_level > 0 THEN
4340: oe_debug_pub.add( 'THE ORDERED QTY IS '||P_X_LINE_REC.ORDERED_QUANTITY ) ;
4341: oe_debug_pub.add( 'THE PRICING QTY IS '||P_X_LINE_REC.PRICING_QUANTITY ) ;
4342: END IF;
4343: END IF;
4344:
4337: , p_validation_level => OE_GLOBALS.G_VALID_PARTIAL_WITH_DEF);
4338:
4339: IF l_debug_level > 0 THEN
4340: oe_debug_pub.add( 'THE ORDERED QTY IS '||P_X_LINE_REC.ORDERED_QUANTITY ) ;
4341: oe_debug_pub.add( 'THE PRICING QTY IS '||P_X_LINE_REC.PRICING_QUANTITY ) ;
4342: END IF;
4343: END IF;
4344:
4345: END IF;
4369:
4370: l_exists VARCHAR2(1);
4371: l_party_type VARCHAR2(30);
4372: --
4373: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4374: --
4375: BEGIN
4376:
4377: IF l_debug_level > 0 THEN
4374: --
4375: BEGIN
4376:
4377: IF l_debug_level > 0 THEN
4378: oe_debug_pub.add( 'ENTER OE_DEFAULT_LINE.ATTRIBUTES' , 1 ) ;
4379: END IF;
4380: fnd_profile.get('ONT_IMP_MULTIPLE_SHIPMENTS', g_multiple_shipments);
4381: g_multiple_shipments := nvl(g_multiple_shipments, 'NO');
4382:
4439: g_line_rec.line_id := Get_Line;
4440: END IF;
4441: -- Fix for 2362210
4442: IF l_debug_level > 0 THEN
4443: oe_debug_pub.add( 'LINE ID = '||G_LINE_REC.LINE_ID ) ;
4444: oe_debug_pub.add( 'LINE SYS = '||G_LINE_REC.ORIG_SYS_LINE_REF ) ;
4445: oe_debug_pub.add( 'SOURCE_DOCUMENT_ID = '|| G_LINE_REC.SOURCE_DOCUMENT_ID ) ;
4446: END IF;
4447: IF ((g_line_rec.orig_sys_line_ref = FND_API.G_MISS_CHAR
4440: END IF;
4441: -- Fix for 2362210
4442: IF l_debug_level > 0 THEN
4443: oe_debug_pub.add( 'LINE ID = '||G_LINE_REC.LINE_ID ) ;
4444: oe_debug_pub.add( 'LINE SYS = '||G_LINE_REC.ORIG_SYS_LINE_REF ) ;
4445: oe_debug_pub.add( 'SOURCE_DOCUMENT_ID = '|| G_LINE_REC.SOURCE_DOCUMENT_ID ) ;
4446: END IF;
4447: IF ((g_line_rec.orig_sys_line_ref = FND_API.G_MISS_CHAR
4448: OR g_line_rec.orig_sys_line_ref IS NULL)
4441: -- Fix for 2362210
4442: IF l_debug_level > 0 THEN
4443: oe_debug_pub.add( 'LINE ID = '||G_LINE_REC.LINE_ID ) ;
4444: oe_debug_pub.add( 'LINE SYS = '||G_LINE_REC.ORIG_SYS_LINE_REF ) ;
4445: oe_debug_pub.add( 'SOURCE_DOCUMENT_ID = '|| G_LINE_REC.SOURCE_DOCUMENT_ID ) ;
4446: END IF;
4447: IF ((g_line_rec.orig_sys_line_ref = FND_API.G_MISS_CHAR
4448: OR g_line_rec.orig_sys_line_ref IS NULL)
4449: AND
4460: IF g_line_rec.line_category_code = FND_API.G_MISS_CHAR THEN
4461: g_line_rec.line_category_code :=
4462: Get_line_category(g_line_rec,p_old_line_rec);
4463: IF l_debug_level > 0 THEN
4464: oe_debug_pub.add( 'AFTER CALLING LINE CATEGORY1' || G_LINE_REC.LINE_CATEGORY_CODE ) ;
4465: END IF;
4466:
4467: /* Added for the BUG #3257965.
4468: For update operation need to raise an error for line_category_code. */
4481: ELSE
4482: FND_MESSAGE.SET_NAME('ONT', 'OE_LINE_CAT_CONST');
4483: OE_MSG_PUB.ADD;
4484: IF l_debug_level > 0 THEN
4485: oe_debug_pub.add( 'LINE CATEGORY CONSTRINED' ) ;
4486: END IF;
4487: RAISE FND_API.G_EXC_ERROR;
4488: END IF;
4489: END IF;
4497: NOT OE_GLOBALS.Equal(g_line_rec.line_category_code,
4498: p_old_line_rec.line_category_code)
4499: THEN
4500: IF l_debug_level > 0 THEN
4501: oe_debug_pub.add('LINE CATEGORY CHANGED - REASON set to miss') ;
4502: END IF;
4503: g_line_rec.return_reason_code := FND_API.G_MISS_CHAR;
4504: END IF;
4505:
4514: OE_Order_Cache.clear_top_model_line(g_line_rec.top_model_line_id);
4515: END IF;
4516:
4517: IF l_debug_level > 0 THEN
4518: oe_debug_pub.add( 'BEFORE ITEM_TYPE' ) ;
4519: END IF;
4520: IF g_line_rec.item_type_code = FND_API.G_MISS_CHAR
4521: or NOT OE_GLOBALS.Equal(g_line_rec.line_category_code,
4522: p_old_line_rec.line_category_code)
4532:
4533: IF NOT OE_GLOBALS.Equal(p_old_line_rec.inventory_item_id,
4534: g_line_rec.inventory_item_id) THEN
4535: IF l_debug_level > 0 THEN
4536: oe_debug_pub.add( 'CALLING GET_SMC' , 3 ) ;
4537: END IF;
4538: g_line_rec.ship_model_complete_flag := Get_SMC_Flag;
4539: IF l_debug_level > 0 THEN
4540: oe_debug_pub.add( 'CALLING GET_ATO' , 3 ) ;
4536: oe_debug_pub.add( 'CALLING GET_SMC' , 3 ) ;
4537: END IF;
4538: g_line_rec.ship_model_complete_flag := Get_SMC_Flag;
4539: IF l_debug_level > 0 THEN
4540: oe_debug_pub.add( 'CALLING GET_ATO' , 3 ) ;
4541: END IF;
4542: g_line_rec.ato_line_id := Get_Ato_Line;
4543: END IF;
4544:
4619: g_line_rec.shipping_interfaced_flag := Get_Shipping_Interfaced;
4620: END IF;
4621:
4622: IF l_debug_level > 0 THEN
4623: oe_debug_pub.add( 'AK BEFORE LINE CATEGORY1' ) ;
4624: END IF;
4625:
4626: /* IF g_line_rec.line_category_code = FND_API.G_MISS_CHAR THEN
4627: g_line_rec.line_category_code :=
4652:
4653: /* Start Fix for 2420456*/
4654:
4655: IF l_debug_level > 0 THEN
4656: oe_debug_pub.add( 'TOLERANCE BELOW : '||G_LINE_REC.SHIP_TOLERANCE_BELOW , 3 ) ;
4657: oe_debug_pub.add( 'TOLERANCE BELOW : '||P_OLD_LINE_REC.SHIP_TOLERANCE_BELOW , 3 ) ;
4658: END IF;
4659:
4660: IF nvl(g_line_rec.top_model_line_id,0) <> nvl(g_line_rec.ato_line_id,0) AND
4653: /* Start Fix for 2420456*/
4654:
4655: IF l_debug_level > 0 THEN
4656: oe_debug_pub.add( 'TOLERANCE BELOW : '||G_LINE_REC.SHIP_TOLERANCE_BELOW , 3 ) ;
4657: oe_debug_pub.add( 'TOLERANCE BELOW : '||P_OLD_LINE_REC.SHIP_TOLERANCE_BELOW , 3 ) ;
4658: END IF;
4659:
4660: IF nvl(g_line_rec.top_model_line_id,0) <> nvl(g_line_rec.ato_line_id,0) AND
4661: g_line_rec.top_model_line_id IS NOT NULL THEN
4668: g_line_rec.ship_tolerance_below = p_old_Line_rec.ship_tolerance_below THEN
4669: g_line_rec.ship_tolerance_below := 0;
4670: l_set_tolerance_below := 'Y';
4671: IF l_debug_level > 0 THEN
4672: oe_debug_pub.add( 'SET THE TOLERANCES BELOW TO 0 ' , 3 ) ;
4673: END IF;
4674:
4675: END IF;
4676:
4679: g_line_rec.ship_tolerance_above = p_old_Line_rec.ship_tolerance_above THEN
4680: g_line_rec.ship_tolerance_above := 0;
4681: l_set_tolerance_above := 'Y';
4682: IF l_debug_level > 0 THEN
4683: oe_debug_pub.add( 'SET THE TOLERANCES ABOVE TO 0 ' , 3 ) ;
4684: END IF;
4685:
4686: END IF;
4687:
4692: (nvl(g_line_rec.ship_tolerance_below,0) <> 0 OR
4693: nvl(g_line_rec.ship_tolerance_above,0) <> 0 )THEN
4694:
4695: IF l_debug_level > 0 THEN
4696: oe_debug_pub.add( 'SHIP TOLERANCES CAN NOT BE SPECIFIED ON PTOS' , 3 ) ;
4697: END IF;
4698: fnd_message.set_name('ONT','OE_NO_TOL_FOR_PTO');
4699: OE_MSG_PUB.Add;
4700: RAISE FND_API.G_EXC_ERROR;
4733:
4734: -- Call the default handler framework to default the missing attributes
4735:
4736: IF l_debug_level > 0 THEN
4737: oe_debug_pub.add( 'IN2 LINE NUMBER :'||L_IN_REC.LINE_NUMBER ) ;
4738: END IF;
4739:
4740: l_rec := l_in_rec;
4741:
4772:
4773: l_rec.party_type := l_party_type;
4774:
4775: IF l_debug_level > 0 then
4776: oe_debug_pub.add('party type in defaulting is: '||l_party_type, 3);
4777: END IF;
4778: END IF;
4779: END IF;
4780:
4794: )
4795: THEN
4796:
4797: if l_debug_level > 0 then
4798: oe_debug_pub.add('Blkt Num or Request Date changed');
4799: end if;
4800:
4801: Perform_Blanket_Functions
4802: (p_x_line_rec => l_rec
4846: End If;
4847:
4848:
4849: IF l_debug_level > 0 THEN
4850: oe_debug_pub.add( 'AFTER DEFAULTING LINE CATEGORY1' || P_X_LINE_REC.LINE_CATEGORY_CODE ) ;
4851: END IF;
4852:
4853: IF p_x_line_rec.line_category_code = FND_API.G_MISS_CHAR OR -- added for 2421909
4854: p_x_line_rec.line_category_code IS NULL THEN
4853: IF p_x_line_rec.line_category_code = FND_API.G_MISS_CHAR OR -- added for 2421909
4854: p_x_line_rec.line_category_code IS NULL THEN
4855: p_x_line_rec.line_category_code := Get_line_category(p_x_line_rec,p_old_line_rec);
4856: IF l_debug_level > 0 THEN
4857: oe_debug_pub.add( 'AFTER CALLING LINE CATEGORY2' || P_X_LINE_REC.LINE_CATEGORY_CODE , 1 ) ;
4858: END IF;
4859: END IF;
4860:
4861: -- Copy the value back to the out record for marketing source code.
4869:
4870:
4871: --Code moved for bug 3737773 -starts here
4872: IF l_debug_level > 0 THEN
4873: oe_debug_pub.add( ' Before Defaulting P_Qty and P_Qty_Uom Values:' , 1 ) ;
4874: oe_debug_pub.add(' Pricing Qty: '|| p_x_line_rec.pricing_quantity ,1);
4875: oe_debug_pub.add(' Pricing UOM: '|| p_x_line_rec.pricing_quantity_uom,1 );
4876: oe_debug_pub.add(' Ordered Qty: '|| p_x_line_rec.ordered_quantity ,1);
4877: oe_debug_pub.add(' Ordered UOM: '|| p_x_line_rec.order_quantity_uom,1);
4870:
4871: --Code moved for bug 3737773 -starts here
4872: IF l_debug_level > 0 THEN
4873: oe_debug_pub.add( ' Before Defaulting P_Qty and P_Qty_Uom Values:' , 1 ) ;
4874: oe_debug_pub.add(' Pricing Qty: '|| p_x_line_rec.pricing_quantity ,1);
4875: oe_debug_pub.add(' Pricing UOM: '|| p_x_line_rec.pricing_quantity_uom,1 );
4876: oe_debug_pub.add(' Ordered Qty: '|| p_x_line_rec.ordered_quantity ,1);
4877: oe_debug_pub.add(' Ordered UOM: '|| p_x_line_rec.order_quantity_uom,1);
4878: END IF;
4871: --Code moved for bug 3737773 -starts here
4872: IF l_debug_level > 0 THEN
4873: oe_debug_pub.add( ' Before Defaulting P_Qty and P_Qty_Uom Values:' , 1 ) ;
4874: oe_debug_pub.add(' Pricing Qty: '|| p_x_line_rec.pricing_quantity ,1);
4875: oe_debug_pub.add(' Pricing UOM: '|| p_x_line_rec.pricing_quantity_uom,1 );
4876: oe_debug_pub.add(' Ordered Qty: '|| p_x_line_rec.ordered_quantity ,1);
4877: oe_debug_pub.add(' Ordered UOM: '|| p_x_line_rec.order_quantity_uom,1);
4878: END IF;
4879:
4872: IF l_debug_level > 0 THEN
4873: oe_debug_pub.add( ' Before Defaulting P_Qty and P_Qty_Uom Values:' , 1 ) ;
4874: oe_debug_pub.add(' Pricing Qty: '|| p_x_line_rec.pricing_quantity ,1);
4875: oe_debug_pub.add(' Pricing UOM: '|| p_x_line_rec.pricing_quantity_uom,1 );
4876: oe_debug_pub.add(' Ordered Qty: '|| p_x_line_rec.ordered_quantity ,1);
4877: oe_debug_pub.add(' Ordered UOM: '|| p_x_line_rec.order_quantity_uom,1);
4878: END IF;
4879:
4880: IF (p_x_line_rec.pricing_quantity = FND_API.G_MISS_NUM
4873: oe_debug_pub.add( ' Before Defaulting P_Qty and P_Qty_Uom Values:' , 1 ) ;
4874: oe_debug_pub.add(' Pricing Qty: '|| p_x_line_rec.pricing_quantity ,1);
4875: oe_debug_pub.add(' Pricing UOM: '|| p_x_line_rec.pricing_quantity_uom,1 );
4876: oe_debug_pub.add(' Ordered Qty: '|| p_x_line_rec.ordered_quantity ,1);
4877: oe_debug_pub.add(' Ordered UOM: '|| p_x_line_rec.order_quantity_uom,1);
4878: END IF;
4879:
4880: IF (p_x_line_rec.pricing_quantity = FND_API.G_MISS_NUM
4881: OR p_x_line_rec.pricing_quantity is NULL
4888: p_x_line_rec.pricing_quantity := Get_Pricing_Quantity;
4889: --Added the message after review. May be value -99999 is returned when no conversion exists.
4890: if(p_x_line_rec.pricing_quantity = -99999) Then
4891: IF l_debug_level > 0 THEN
4892: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
4893: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
4894: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
4895: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
4896: oe_debug_pub.add( ' Conversion does not exists' , 1 ) ;
4889: --Added the message after review. May be value -99999 is returned when no conversion exists.
4890: if(p_x_line_rec.pricing_quantity = -99999) Then
4891: IF l_debug_level > 0 THEN
4892: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
4893: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
4894: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
4895: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
4896: oe_debug_pub.add( ' Conversion does not exists' , 1 ) ;
4897: END IF;
4890: if(p_x_line_rec.pricing_quantity = -99999) Then
4891: IF l_debug_level > 0 THEN
4892: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
4893: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
4894: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
4895: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
4896: oe_debug_pub.add( ' Conversion does not exists' , 1 ) ;
4897: END IF;
4898:
4891: IF l_debug_level > 0 THEN
4892: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
4893: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
4894: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
4895: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
4896: oe_debug_pub.add( ' Conversion does not exists' , 1 ) ;
4897: END IF;
4898:
4899: FND_MESSAGE.SET_NAME('ONT', 'ONT_PRC_INVALID_UOM_CONVERSION');
4892: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
4893: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
4894: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
4895: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
4896: oe_debug_pub.add( ' Conversion does not exists' , 1 ) ;
4897: END IF;
4898:
4899: FND_MESSAGE.SET_NAME('ONT', 'ONT_PRC_INVALID_UOM_CONVERSION');
4900: fnd_message.set_token('UOM_TEXT',p_x_line_rec.pricing_quantity_uom);
4910: p_x_line_rec.pricing_quantity_uom := p_x_line_rec.order_quantity_uom;
4911: ELSE --P_QTY is not equal to O_QTY and P_UOM is Not Populated
4912: --RAISE ERROR
4913: IF l_debug_level > 0 THEN
4914: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
4915: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
4916: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
4917: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
4918: oe_debug_pub.add( ' Pricing Qty is not equal to Ord Qty and P_UOM is not populated' , 1 ) ;
4911: ELSE --P_QTY is not equal to O_QTY and P_UOM is Not Populated
4912: --RAISE ERROR
4913: IF l_debug_level > 0 THEN
4914: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
4915: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
4916: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
4917: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
4918: oe_debug_pub.add( ' Pricing Qty is not equal to Ord Qty and P_UOM is not populated' , 1 ) ;
4919: END IF;
4912: --RAISE ERROR
4913: IF l_debug_level > 0 THEN
4914: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
4915: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
4916: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
4917: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
4918: oe_debug_pub.add( ' Pricing Qty is not equal to Ord Qty and P_UOM is not populated' , 1 ) ;
4919: END IF;
4920:
4913: IF l_debug_level > 0 THEN
4914: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
4915: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
4916: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
4917: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
4918: oe_debug_pub.add( ' Pricing Qty is not equal to Ord Qty and P_UOM is not populated' , 1 ) ;
4919: END IF;
4920:
4921: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4914: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
4915: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
4916: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
4917: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
4918: oe_debug_pub.add( ' Pricing Qty is not equal to Ord Qty and P_UOM is not populated' , 1 ) ;
4919: END IF;
4920:
4921: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4922: --Added the message after review.
4943:
4944: -- Copy the value back to the out record for order source id.
4945: if (p_x_line_rec.order_source_id = FND_API.G_MISS_NUM) then
4946: IF l_debug_level > 0 THEN
4947: oe_debug_pub.add( 'OEXDLINB - AKSINGH - CHECK FOR G_MISS_NUM' ) ;
4948: END IF;
4949: p_x_line_rec.order_source_id := Get_Order_Source_Id;
4950: else
4951: IF l_debug_level > 0 THEN
4948: END IF;
4949: p_x_line_rec.order_source_id := Get_Order_Source_Id;
4950: else
4951: IF l_debug_level > 0 THEN
4952: oe_debug_pub.add( 'OEXDLINB - AKSINGH - CHECK FOR ELSE' ) ;
4953: END IF;
4954: p_x_line_rec.order_source_id := p_x_line_rec.order_source_id;
4955: end if;
4956:
4956:
4957: -- Copy the value back to the out record for Commitment_Id.
4958: if (p_x_line_rec.commitment_id = FND_API.G_MISS_NUM) then
4959: IF l_debug_level > 0 THEN
4960: oe_debug_pub.add( 'OEXDLINB - COMMITMENT_ID - CHECK FOR G_MISS_NUM' ) ;
4961: END IF;
4962: p_x_line_rec.commitment_id := NULL;
4963: else
4964: IF l_debug_level > 0 THEN
4961: END IF;
4962: p_x_line_rec.commitment_id := NULL;
4963: else
4964: IF l_debug_level > 0 THEN
4965: oe_debug_pub.add( 'OEXDLINB - COMMITMENT_ID - CHECK FOR ELSE' ) ;
4966: END IF;
4967: p_x_line_rec.commitment_id := p_x_line_rec.commitment_id;
4968: end if;
4969:
5049: IF (OE_CODE_CONTROL.Get_Code_Release_Level >= '110508') AND
5050: (g_multiple_shipments = 'YES') THEN
5051: p_x_line_rec.orig_sys_shipment_ref := 'OE_ORDER_LINES_ALL'||p_x_line_rec.line_id||'.'||'1';
5052: IF l_debug_level > 0 THEN
5053: oe_debug_pub.add( 'SHIP SYS = '||P_X_LINE_REC.ORIG_SYS_SHIPMENT_REF ) ;
5054: END IF;
5055: ELSE
5056: p_x_line_rec.orig_sys_shipment_ref := NULL;
5057: END IF;
5204: -- value as CUST (should not over-write to INT)
5205:
5206: IF p_old_line_rec.item_identifier_type IS NULL THEN
5207: IF l_debug_level > 0 THEN
5208: oe_debug_pub.add( 'ITEM_IDENTIFIER_TYPE IS NULL , DEFAULT TO INT' ) ;
5209: END IF;
5210: p_x_line_rec.item_identifier_type := 'INT';
5211: ELSE
5212: IF l_debug_level > 0 THEN
5209: END IF;
5210: p_x_line_rec.item_identifier_type := 'INT';
5211: ELSE
5212: IF l_debug_level > 0 THEN
5213: oe_debug_pub.add( 'ASSIGNING ITEM_IDENTIFIER_TYPE FROM P_OLD_LINE_REC: '||P_OLD_LINE_REC.ITEM_IDENTIFIER_TYPE ) ;
5214: END IF;
5215: p_x_line_rec.item_identifier_type := p_old_line_rec.item_identifier_type;
5216: END IF;
5217: END IF;
5240: IF NOT OE_GLOBALS.Equal(p_x_line_rec.request_date,
5241: p_old_line_rec.request_date)
5242: THEN
5243: IF l_debug_level > 0 THEN
5244: oe_debug_pub.add( 'OEXDLINB -1- CHECK FOR G_MISS_DATE FOR REQUEST ' ) ;
5245: END IF;
5246: IF p_x_line_rec.request_date <> FND_API.G_MISS_DATE THEN
5247: -- aksingh added this if for the bug 1745501
5248: IF l_debug_level > 0 THEN
5245: END IF;
5246: IF p_x_line_rec.request_date <> FND_API.G_MISS_DATE THEN
5247: -- aksingh added this if for the bug 1745501
5248: IF l_debug_level > 0 THEN
5249: oe_debug_pub.add( 'OEXDLINB -2- CHECK FOR G_MISS_DATE FOR LATEST ' ) ;
5250: END IF;
5251: IF OE_GLOBALS.Equal(p_x_line_rec.latest_acceptable_date,
5252: p_old_line_rec.latest_acceptable_date)
5253: OR p_x_line_rec.latest_acceptable_date = FND_API.G_MISS_DATE
5252: p_old_line_rec.latest_acceptable_date)
5253: OR p_x_line_rec.latest_acceptable_date = FND_API.G_MISS_DATE
5254: THEN
5255: IF l_debug_level > 0 THEN
5256: oe_debug_pub.add( 'OEXDLINB -3- AFTER CHECK FOR G_MISS_DATE FOR LATEST ' ) ;
5257: END IF;
5258: p_x_line_rec.latest_acceptable_date :=
5259: Get_Latest_Acceptable_Date(p_x_line_rec.request_date);
5260: END IF;
5356:
5357: IF p_x_line_rec.shippable_flag is NULL OR
5358: p_x_line_rec.shippable_flag = FND_API.G_MISS_CHAR THEN
5359: IF l_debug_level > 0 THEN
5360: oe_debug_pub.add( 'CALLING GET SHIPPABLE_FLAG ' , 1 ) ;
5361: END IF;
5362:
5363: p_x_line_rec.shippable_flag :=
5364: Get_Shippable( p_line_id => p_x_line_rec.line_id
5373: p_x_line_rec.ship_from_org_id) THEN
5374: IF p_x_line_rec.ship_from_org_id is not null
5375: THEN
5376: IF l_debug_level > 0 THEN
5377: oe_debug_pub.add( 'SETTING RE_SOURCE_FLAG TO N' , 1 ) ;
5378: END IF;
5379: p_x_line_rec.re_source_flag := 'N';
5380: ELSE
5381: IF l_debug_level > 0 THEN
5378: END IF;
5379: p_x_line_rec.re_source_flag := 'N';
5380: ELSE
5381: IF l_debug_level > 0 THEN
5382: oe_debug_pub.add( '1.SETTING RE_SOURCE_FLAG TO NULL' , 1 ) ;
5383: END IF;
5384: p_x_line_rec.re_source_flag := '';
5385: END IF;
5386: END IF;
5426: /* Fix for bug 2420456 */
5427: IF l_set_tolerance_below = 'Y' THEN
5428:
5429: IF l_debug_level > 0 THEN
5430: oe_debug_pub.add( 'TOLERANCE BELOW : '||P_X_LINE_REC.SHIP_TOLERANCE_BELOW , 3 ) ;
5431: END IF;
5432: p_x_line_rec.ship_tolerance_below := 0;
5433: l_set_tolerance_below := 'N';
5434: IF l_debug_level > 0 THEN
5431: END IF;
5432: p_x_line_rec.ship_tolerance_below := 0;
5433: l_set_tolerance_below := 'N';
5434: IF l_debug_level > 0 THEN
5435: oe_debug_pub.add( 'SET THE TOLERANCES BELOW TO 0 ' , 3 ) ;
5436: END IF;
5437:
5438: END IF;
5439:
5439:
5440: IF l_set_tolerance_above = 'Y' THEN
5441:
5442: IF l_debug_level > 0 THEN
5443: oe_debug_pub.add( 'TOLERANCE BELOW : '||P_X_LINE_REC.SHIP_TOLERANCE_ABOVE , 3 ) ;
5444: END IF;
5445: p_x_line_rec.ship_tolerance_above := 0;
5446: l_set_tolerance_above := 'N';
5447: IF l_debug_level > 0 THEN
5444: END IF;
5445: p_x_line_rec.ship_tolerance_above := 0;
5446: l_set_tolerance_above := 'N';
5447: IF l_debug_level > 0 THEN
5448: oe_debug_pub.add( 'SET THE TOLERANCES ABOVE TO 0 ' , 3 ) ;
5449: END IF;
5450:
5451: END IF;
5452:
5466:
5467: p_x_line_rec.user_item_description := NULL;
5468: FND_MESSAGE.Set_Name('ONT', 'ONT_USER_ITEM_DESC_CLEARED');
5469: IF l_debug_level > 0 THEN
5470: oe_debug_pub.add( 'CLEAR OUT USER_ITEM_DESCRIPTION WHEN ITEM CHANGES.' , 3 ) ;
5471: END IF;
5472:
5473: END IF;
5474:
5480: END IF;
5481: -- Override List Price
5482:
5483: IF l_debug_level > 0 THEN
5484: oe_debug_pub.add( 'EXIT OE_DEFAULT_LINE.ATTRIBUTES' , 1 ) ;
5485: END IF;
5486: EXCEPTION
5487:
5488: WHEN FND_API.G_EXC_ERROR THEN
5520: l_msg_count NUMBER;
5521: l_msg_data VARCHAR2(2000);
5522: l_item_rec OE_ORDER_CACHE.item_rec_type;
5523:
5524: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5525:
5526: BEGIN
5527: if l_debug_level > 0 then
5528: oe_debug_pub.add('Enter Get dual uom');
5524: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5525:
5526: BEGIN
5527: if l_debug_level > 0 then
5528: oe_debug_pub.add('Enter Get dual uom');
5529: end if;
5530:
5531: IF oe_line_util.dual_uom_control -- INVCONV Process_Characteristics
5532: (p_line_rec.inventory_item_id,p_line_rec.ship_from_org_id,l_item_rec) THEN
5531: IF oe_line_util.dual_uom_control -- INVCONV Process_Characteristics
5532: (p_line_rec.inventory_item_id,p_line_rec.ship_from_org_id,l_item_rec) THEN
5533: IF l_item_rec.tracking_quantity_ind = 'PS' THEN -- INVCONV
5534: if l_debug_level > 0 then
5535: oe_debug_pub.add('Get dual uom - tracking in P and S ');
5536: end if;
5537: /* convert 4 digit apps OPM codes to equivalent 3 byte APPS codes */
5538: /* Primary UM
5539: GMI_Reservation_Util.Get_AppsUOM_from_OPMUOM
5558: END IF; -- IF oe_line_util.dual_uom_control -- INVCONV Process_Characteristics
5559:
5560:
5561: if l_debug_level > 0 then
5562: oe_debug_pub.add('Get Dual Uom returns dual UM of ' || l_item_rec.secondary_uom_code);
5563: end if;
5564:
5565: EXCEPTION
5566:
5566:
5567: WHEN NO_DATA_FOUND THEN
5568:
5569: if l_debug_level > 0 then
5570: oe_debug_pub.add('No Data Found Get Dual Uom' );
5571: end if;
5572: RETURN NULL;
5573:
5574: WHEN OTHERS THEN
5579: 'Get_Dual_Uom'
5580: );
5581: END IF;
5582: if l_debug_level > 0 then
5583: oe_debug_pub.add('others in get_dual uom', 1);
5584: end if;
5585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5586:
5587:
5594: PROCEDURE Set_Header_Def_Hdlr_Rec (p_header_id IN NUMBER)
5595: IS
5596: l_header_rec OE_Order_PUB.Header_Rec_Type ;
5597: l_rowtype_header_rec OE_AK_ORDER_HEADERS_V%ROWTYPE;
5598: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5599: BEGIN
5600:
5601: if l_debug_level >0 then
5602: oe_debug_pub.add(' Entering in OE_Default_Test.Set_Header_Def_Hdlr_Rec with Header Id: '|| p_header_id);
5598: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5599: BEGIN
5600:
5601: if l_debug_level >0 then
5602: oe_debug_pub.add(' Entering in OE_Default_Test.Set_Header_Def_Hdlr_Rec with Header Id: '|| p_header_id);
5603: end if ;
5604:
5605: IF ( ONT_Header_Def_Hdlr.g_record.header_id IS NULL OR
5606: ONT_Header_Def_Hdlr.g_record.header_id <> p_header_id)
5619:
5620: ONT_Header_Def_Hdlr.g_record := l_rowtype_header_rec ;
5621:
5622: if l_debug_level >0 then
5623: oe_debug_pub.add('ONT_Header_Def_Hdlr.g_record.Header_id: '||ONT_Header_Def_Hdlr.g_record.Header_id);
5624: end if ;
5625:
5626: END IF ;
5627:
5625:
5626: END IF ;
5627:
5628: if l_debug_level >0 then
5629: oe_debug_pub.add(' Exiting OE_Default_Test.Set_Header_Def_Hdlr_Rec ');
5630: end if ;
5631: EXCEPTION
5632: When Others Then
5633: if l_debug_level >0 then
5630: end if ;
5631: EXCEPTION
5632: When Others Then
5633: if l_debug_level >0 then
5634: oe_debug_pub.add(' Exception in OE_Default_Test.Set_Header_Def_Hdlr_Rec ');
5635: end if ;
5636: END Set_Header_Def_Hdlr_Rec ;
5637:
5638: END OE_Default_Line;