[Home] [Help]
54: FUNCTION Get_Sold_To
55: RETURN NUMBER
56: IS
57: --
58: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
59: --
60: BEGIN
61:
62: OE_ORDER_CACHE.Load_Order_Header(g_line_rec.header_id);
77: FUNCTION Get_Order_Source_Id
78: RETURN NUMBER
79: IS
80: --
81: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
82: --
83: BEGIN
84: --For Bug#7592137
85: IF OE_GLOBALS.G_UI_FLAG then
86: RETURN 0;
87: ELSE
88: OE_ORDER_CACHE.Load_Order_Header(g_line_rec.header_id);
89: IF l_debug_level > 0 THEN
90: oe_debug_pub.add( 'SOURCE ID ='||OE_ORDER_CACHE.G_HEADER_REC.ORDER_SOURCE_ID ) ;
91: END IF;
92: RETURN (OE_ORDER_CACHE.g_header_rec.order_source_id);
93: END IF; --End of Bug#7592137
94:
110: RETURN VARCHAR2
111: IS
112: l_freight_code VARCHAR2(80);
113: --
114: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
115: --
116: begin
117: IF l_debug_level > 0 THEN
118: oe_debug_pub.add( 'ENTER GET FREIGHT CARRIER' ) ;
114: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
115: --
116: begin
117: IF l_debug_level > 0 THEN
118: oe_debug_pub.add( 'ENTER GET FREIGHT CARRIER' ) ;
119: END IF;
120:
121:
122: IF (p_line_rec.shipping_method_code IS NOT NULL AND
151: and ORGANIZATION_ID = p_line_rec.ship_from_org_id;
152: END IF;
153:
154: IF l_debug_level > 0 THEN
155: oe_debug_pub.add( 'EXIT GET FREIGHT CARRIER' || L_FREIGHT_CODE ) ;
156: END IF;
157: RETURN l_freight_code;
158:
159: ELSE
157: RETURN l_freight_code;
158:
159: ELSE
160: IF l_debug_level > 0 THEN
161: oe_debug_pub.add( 'INTO NULL CONDITION' || P_LINE_REC.SHIP_FROM_ORG_ID ) ;
162: END IF;
163: RETURN p_line_rec.freight_carrier_code;
164:
165: END IF;
164:
165: END IF;
166: ELSE
167: IF l_debug_level > 0 THEN
168: oe_debug_pub.add( 'SHIP FROM OR SHIP METHOD IS NULL/MISSING',1 ) ;
169: END IF;
170: RETURN NULL;
171: END IF;
172:
182:
183: WHEN NO_DATA_FOUND THEN
184:
185: IF l_debug_level > 0 THEN
186: oe_debug_pub.add( 'NO DATA FOUND GET FREIGHT CARRIER' ) ;
187: END IF;
188: RETURN NULL;
189:
190: WHEN OTHERS THEN
195: 'Get_freight_carrier'
196: );
197: END IF;
198: IF l_debug_level > 0 THEN
199: oe_debug_pub.add( 'OTHERS IN GET_FREIGHT_CARRIER' , 1 ) ;
200: END IF;
201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
202:
203:
207: RETURN VARCHAR2
208: IS
209: l_booked_flag VARCHAR2(1);
210: --
211: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
212: --
213: BEGIN
214:
215: IF NOT oe_globals.G_HTML_FLAG THEN
239: FUNCTION Get_Cancelled
240: RETURN VARCHAR2
241: IS
242: --
243: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
244: --
245: BEGIN
246:
247: RETURN 'N';
251: FUNCTION Get_Open
252: RETURN VARCHAR2
253: IS
254: --
255: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
256: --
257: BEGIN
258:
259: RETURN 'Y';
263: FUNCTION Get_Cancelled_Quantity
264: RETURN NUMBER
265: IS
266: --
267: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
268: --
269: BEGIN
270:
271: RETURN 0;
285: FUNCTION Get_Component
286: RETURN VARCHAR2
287: IS
288: --
289: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
290: --
291: BEGIN
292:
293: IF l_debug_level > 0 THEN
290: --
291: BEGIN
292:
293: IF l_debug_level > 0 THEN
294: oe_debug_pub.add( ' COMP_CODE , ITEM_TYPE_CODE ' || G_LINE_REC.ITEM_TYPE_CODE ) ;
295: END IF;
296: IF (g_line_rec.item_type_code = OE_GLOBALS.G_ITEM_MODEL) OR
297: (g_line_rec.item_type_code = OE_GLOBALS.G_ITEM_KIT AND
298: g_line_rec.line_id = g_line_rec.top_model_line_id)
316: l_top_model_line_id NUMBER;
317: l_pick_components_flag VARCHAR2(1);
318: l_item_type NUMBER;
319: --
320: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
321: --
322: BEGIN
323:
324: -- If top_model_line_id is not null, you do not want to clear it
322: BEGIN
323:
324: -- If top_model_line_id is not null, you do not want to clear it
325: IF l_debug_level > 0 THEN
326: oe_debug_pub.add( 'IN PKG OE_DEFAULT_LINE : PROCEDURE GET_TOP_MODEL_LINE' ) ;
327: END IF;
328:
329: IF ( g_line_rec.inventory_item_id is NULL OR
330: g_line_rec.inventory_item_id = FND_API.G_MISS_NUM)
382:
383: OE_Msg_Pub.Add;
384:
385: IF l_debug_level > 0 THEN
386: oe_debug_pub.add( 'NO DATA FOUND IN GET_TOP_MODEL IN DEFAULTING' , 1 ) ;
387: END IF;
388:
389: RAISE FND_API.G_EXC_ERROR;
390:
397: 'Get_Top_Model_Line'
398: );
399: END IF;
400: IF l_debug_level > 0 THEN
401: oe_debug_pub.add( 'OTHERS IN GET_TOP_MODEL IN DEFAULTING' , 1 ) ;
402: END IF;
403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
404:
405: END Get_Top_Model_Line;
428: l_agreement_name varchar2(240);
429: l_agreement_id number;
430:
431: --
432: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
433: --
434: Begin
435:
436: IF l_debug_level > 0 THEN
433: --
434: Begin
435:
436: IF l_debug_level > 0 THEN
437: oe_debug_pub.add( 'INSIDE DEFAULT_ACTIVE_AGR_REVISION' , 3 ) ;
438: oe_debug_pub.add( 'AGREEMENT_ID '||P_X_LINE_REC.AGREEMENT_ID , 3 ) ;
439: END IF;
440:
441: SELECT agreement_id
434: Begin
435:
436: IF l_debug_level > 0 THEN
437: oe_debug_pub.add( 'INSIDE DEFAULT_ACTIVE_AGR_REVISION' , 3 ) ;
438: oe_debug_pub.add( 'AGREEMENT_ID '||P_X_LINE_REC.AGREEMENT_ID , 3 ) ;
439: END IF;
440:
441: SELECT agreement_id
442: INTO l_agreement_id
448: trunc(nvl(START_DATE_ACTIVE,add_months(sysdate,-10000)))
449: AND trunc(nvl(END_DATE_ACTIVE,add_months(sysdate,+10000)));
450:
451: IF l_debug_level > 0 THEN
452: oe_debug_pub.add( 'ACTIVE AGREEMENT REVISION :'||L_AGREEMENT_ID , 3 ) ;
453: END IF;
454:
455: If p_x_line_rec.agreement_id <> l_agreement_id Then
456: IF l_debug_level > 0 THEN
453: END IF;
454:
455: If p_x_line_rec.agreement_id <> l_agreement_id Then
456: IF l_debug_level > 0 THEN
457: oe_debug_pub.add( 'ACTIVE AGREEMENT REVISION IS FOUND - CALLING PROCESS ORDER TO DEFAULT DEPENDENT ATTRIBUTES' , 3 ) ;
458: END IF;
459:
460: l_control_rec.controlled_operation := TRUE;
461: l_control_rec.check_security := TRUE;
491:
492: EXCEPTION
493: WHEN NO_DATA_FOUND THEN
494: IF l_debug_level > 0 THEN
495: oe_debug_pub.add( 'NO ACTIVE REVISION EXISTS FOR THE AGREEMENT ID :'||P_X_LINE_REC.AGREEMENT_ID , 2 ) ;
496: oe_debug_pub.add( 'ERROR WILL BE RAISED IN ENTITY LEVEL VALIDATION' , 3 ) ;
497: END IF;
498:
499: WHEN FND_API.G_EXC_ERROR THEN
492: EXCEPTION
493: WHEN NO_DATA_FOUND THEN
494: IF l_debug_level > 0 THEN
495: oe_debug_pub.add( 'NO ACTIVE REVISION EXISTS FOR THE AGREEMENT ID :'||P_X_LINE_REC.AGREEMENT_ID , 2 ) ;
496: oe_debug_pub.add( 'ERROR WILL BE RAISED IN ENTITY LEVEL VALIDATION' , 3 ) ;
497: END IF;
498:
499: WHEN FND_API.G_EXC_ERROR THEN
500: RAISE FND_API.G_EXC_ERROR;
528: )
529: IS
530: l_line_rec OE_AK_ORDER_LINES_V%ROWTYPE;
531: --
532: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
533: --
534: BEGIN
535:
536: IF l_debug_level > 0 THEN
533: --
534: BEGIN
535:
536: IF l_debug_level > 0 THEN
537: oe_debug_pub.add('ENTER Clear_And_Re_Default') ;
538: oe_debug_pub.add('Old blanket num :'
539: ||p_x_line_rec.blanket_number) ;
540: oe_debug_pub.add('Old blanket line num :'
541: ||p_x_line_rec.blanket_line_number) ;
534: BEGIN
535:
536: IF l_debug_level > 0 THEN
537: oe_debug_pub.add('ENTER Clear_And_Re_Default') ;
538: oe_debug_pub.add('Old blanket num :'
539: ||p_x_line_rec.blanket_number) ;
540: oe_debug_pub.add('Old blanket line num :'
541: ||p_x_line_rec.blanket_line_number) ;
542: oe_debug_pub.add('Old blanket version num :'
536: IF l_debug_level > 0 THEN
537: oe_debug_pub.add('ENTER Clear_And_Re_Default') ;
538: oe_debug_pub.add('Old blanket num :'
539: ||p_x_line_rec.blanket_number) ;
540: oe_debug_pub.add('Old blanket line num :'
541: ||p_x_line_rec.blanket_line_number) ;
542: oe_debug_pub.add('Old blanket version num :'
543: ||p_x_line_rec.blanket_version_number) ;
544: oe_debug_pub.add('New blanket num : '||p_blanket_number) ;
538: oe_debug_pub.add('Old blanket num :'
539: ||p_x_line_rec.blanket_number) ;
540: oe_debug_pub.add('Old blanket line num :'
541: ||p_x_line_rec.blanket_line_number) ;
542: oe_debug_pub.add('Old blanket version num :'
543: ||p_x_line_rec.blanket_version_number) ;
544: oe_debug_pub.add('New blanket num : '||p_blanket_number) ;
545: oe_debug_pub.add('New blanket line num : '||p_blanket_line_number);
546: oe_debug_pub.add('New blanket version num : '||p_blanket_version_number);
540: oe_debug_pub.add('Old blanket line num :'
541: ||p_x_line_rec.blanket_line_number) ;
542: oe_debug_pub.add('Old blanket version num :'
543: ||p_x_line_rec.blanket_version_number) ;
544: oe_debug_pub.add('New blanket num : '||p_blanket_number) ;
545: oe_debug_pub.add('New blanket line num : '||p_blanket_line_number);
546: oe_debug_pub.add('New blanket version num : '||p_blanket_version_number);
547: END IF;
548:
541: ||p_x_line_rec.blanket_line_number) ;
542: oe_debug_pub.add('Old blanket version num :'
543: ||p_x_line_rec.blanket_version_number) ;
544: oe_debug_pub.add('New blanket num : '||p_blanket_number) ;
545: oe_debug_pub.add('New blanket line num : '||p_blanket_line_number);
546: oe_debug_pub.add('New blanket version num : '||p_blanket_version_number);
547: END IF;
548:
549: -- Copy source attribute values from IN parameters
542: oe_debug_pub.add('Old blanket version num :'
543: ||p_x_line_rec.blanket_version_number) ;
544: oe_debug_pub.add('New blanket num : '||p_blanket_number) ;
545: oe_debug_pub.add('New blanket line num : '||p_blanket_line_number);
546: oe_debug_pub.add('New blanket version num : '||p_blanket_version_number);
547: END IF;
548:
549: -- Copy source attribute values from IN parameters
550: -- to the new record
592: END IF;
593: END IF;
594:
595: IF l_debug_level > 0 THEN
596: oe_debug_pub.add('Final blanket num :'
597: ||p_x_line_rec.blanket_number) ;
598: oe_debug_pub.add('Final blanket line num :'
599: ||p_x_line_rec.blanket_line_number) ;
600: oe_debug_pub.add('Final blanket version num :'
594:
595: IF l_debug_level > 0 THEN
596: oe_debug_pub.add('Final blanket num :'
597: ||p_x_line_rec.blanket_number) ;
598: oe_debug_pub.add('Final blanket line num :'
599: ||p_x_line_rec.blanket_line_number) ;
600: oe_debug_pub.add('Final blanket version num :'
601: ||p_x_line_rec.blanket_version_number) ;
602: END IF;
596: oe_debug_pub.add('Final blanket num :'
597: ||p_x_line_rec.blanket_number) ;
598: oe_debug_pub.add('Final blanket line num :'
599: ||p_x_line_rec.blanket_line_number) ;
600: oe_debug_pub.add('Final blanket version num :'
601: ||p_x_line_rec.blanket_version_number) ;
602: END IF;
603:
604: IF p_default_record = 'Y' THEN
602: END IF;
603:
604: IF p_default_record = 'Y' THEN
605: IF l_debug_level > 0 THEN
606: oe_debug_pub.add('RE-CALLING ONT_LINE_DEF_HDLR.DEFAULT_RECORD') ;
607: END IF;
608: ONT_LINE_Def_Hdlr.Default_Record
609: (p_x_rec => p_x_line_rec
610: ,p_initial_rec => l_line_rec
612: );
613: END IF;
614:
615: IF l_debug_level > 0 THEN
616: oe_debug_pub.add('EXIT Clear_And_Re_Default') ;
617: END IF;
618:
619: END Clear_And_Re_Default;
620:
633: x_blanket_request_date OUT NOCOPY DATE
634: )
635: IS
636: --
637: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
638: l_blanket_number NUMBER;
639: --
640: l_item_validation_org NUMBER :=
641: OE_Sys_Parameters.Value('MASTER_ORGANIZATION_ID');
654: l_blanket_number := p_blanket_number;
655: END IF;
656:
657: if l_debug_level > 0 then
658: oe_debug_pub.add('Enter Default_Blanket_Values');
659: oe_debug_pub.add('Request Date :'||x_blanket_request_date);
660: end if;
661:
662: --derive bl line # and bl revis #
655: END IF;
656:
657: if l_debug_level > 0 then
658: oe_debug_pub.add('Enter Default_Blanket_Values');
659: oe_debug_pub.add('Request Date :'||x_blanket_request_date);
660: end if;
661:
662: --derive bl line # and bl revis #
663: --first sorts by inventory_item_id, then by ordered_item_id (category)
668: (p_cust_po_number = FND_API.G_MISS_CHAR OR
669: p_cust_po_number IS NULL) then
670:
671: if l_debug_level > 0 then
672: oe_debug_pub.add('No blanket or customer po number on line, returning');
673: end if;
674:
675: RETURN;
676: end if;
747: x_blanket_version_number := NULL;
748: x_blanket_line_number := NULL;
749:
750: IF l_debug_level > 0 THEN
751: oe_debug_pub.add('Multiple blankets exist for customer po number--no defaulting of blanket values');
752: END IF;
753: RETURN;
754:
755: WHEN NO_DATA_FOUND THEN
809: x_blanket_version_number := NULL;
810: x_blanket_line_number := NULL;
811:
812: IF l_debug_level > 0 THEN
813: oe_debug_pub.add('Multiple blankets exist for customer po number--no defaulting of blanket values');
814: END IF;
815: RETURN;
816:
817: WHEN NO_DATA_FOUND THEN
875: x_blanket_version_number := NULL;
876: x_blanket_line_number := NULL;
877:
878: IF l_debug_level > 0 THEN
879: oe_debug_pub.add('Multiple blankets exist for customer po number--no defaulting of blanket values');
880: END IF;
881: RETURN;
882:
883: WHEN NO_DATA_FOUND THEN
935: x_blanket_version_number := NULL;
936: x_blanket_line_number := NULL;
937:
938: IF l_debug_level > 0 THEN
939: oe_debug_pub.add('Multiple blankets exist for customer po number--no defaulting of blanket values');
940: END IF;
941: RETURN;
942: WHEN NO_DATA_FOUND THEN
943: IF l_debug_level > 0 THEN
940: END IF;
941: RETURN;
942: WHEN NO_DATA_FOUND THEN
943: IF l_debug_level > 0 THEN
944: oe_debug_pub.add('No Blanket Number exists for this customer,item :'||p_sold_to_org_id,2);
945: oe_debug_pub.add('Error will be raised in Entity level validation',3);
946: END IF;
947: END; --all items
948: END; --item categories
941: RETURN;
942: WHEN NO_DATA_FOUND THEN
943: IF l_debug_level > 0 THEN
944: oe_debug_pub.add('No Blanket Number exists for this customer,item :'||p_sold_to_org_id,2);
945: oe_debug_pub.add('Error will be raised in Entity level validation',3);
946: END IF;
947: END; --all items
948: END; --item categories
949: END; --internal, customer, generic items
958: 'Default_Blanket_Values'
959: );
960: END IF;
961: IF l_debug_level > 0 THEN
962: oe_debug_pub.add('others in default_blanket_values', 1);
963: END IF;
964: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
965:
966: End Default_Blanket_Values;
977: l_blanket_line_number NUMBER;
978: l_blanket_version_number NUMBER;
979: l_blanket_request_date DATE;
980: --
981: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
982: --
983: BEGIN
984:
985: IF (p_x_line_rec.blanket_number IS NOT NULL
997: )
998: THEN
999:
1000: if l_debug_level > 0 then
1001: oe_debug_pub.add('ENTER Perform_Blanket_Functions');
1002: oe_debug_pub.add('Blanket Num :'||
1003: p_x_line_rec.blanket_number);
1004: oe_debug_pub.add('Blanket Line Num :'||
1005: p_x_line_rec.blanket_line_number);
998: THEN
999:
1000: if l_debug_level > 0 then
1001: oe_debug_pub.add('ENTER Perform_Blanket_Functions');
1002: oe_debug_pub.add('Blanket Num :'||
1003: p_x_line_rec.blanket_number);
1004: oe_debug_pub.add('Blanket Line Num :'||
1005: p_x_line_rec.blanket_line_number);
1006: oe_debug_pub.add('Cust PO :'||
1000: if l_debug_level > 0 then
1001: oe_debug_pub.add('ENTER Perform_Blanket_Functions');
1002: oe_debug_pub.add('Blanket Num :'||
1003: p_x_line_rec.blanket_number);
1004: oe_debug_pub.add('Blanket Line Num :'||
1005: p_x_line_rec.blanket_line_number);
1006: oe_debug_pub.add('Cust PO :'||
1007: p_x_line_rec.cust_po_number);
1008: oe_debug_pub.add('Old Blanket Num :'||
1002: oe_debug_pub.add('Blanket Num :'||
1003: p_x_line_rec.blanket_number);
1004: oe_debug_pub.add('Blanket Line Num :'||
1005: p_x_line_rec.blanket_line_number);
1006: oe_debug_pub.add('Cust PO :'||
1007: p_x_line_rec.cust_po_number);
1008: oe_debug_pub.add('Old Blanket Num :'||
1009: p_old_line_rec.blanket_number);
1010: oe_debug_pub.add('Old Blanket Line Num :'||
1004: oe_debug_pub.add('Blanket Line Num :'||
1005: p_x_line_rec.blanket_line_number);
1006: oe_debug_pub.add('Cust PO :'||
1007: p_x_line_rec.cust_po_number);
1008: oe_debug_pub.add('Old Blanket Num :'||
1009: p_old_line_rec.blanket_number);
1010: oe_debug_pub.add('Old Blanket Line Num :'||
1011: p_old_line_rec.blanket_line_number);
1012: oe_debug_pub.add('Old Cust PO :'||
1006: oe_debug_pub.add('Cust PO :'||
1007: p_x_line_rec.cust_po_number);
1008: oe_debug_pub.add('Old Blanket Num :'||
1009: p_old_line_rec.blanket_number);
1010: oe_debug_pub.add('Old Blanket Line Num :'||
1011: p_old_line_rec.blanket_line_number);
1012: oe_debug_pub.add('Old Cust PO :'||
1013: p_old_line_rec.cust_po_number);
1014: end if;
1008: oe_debug_pub.add('Old Blanket Num :'||
1009: p_old_line_rec.blanket_number);
1010: oe_debug_pub.add('Old Blanket Line Num :'||
1011: p_old_line_rec.blanket_line_number);
1012: oe_debug_pub.add('Old Cust PO :'||
1013: p_old_line_rec.cust_po_number);
1014: end if;
1015:
1016: -- Bug 2737082 => If blanket line number exists, removed the
1087: OR p_x_line_rec.blanket_version_number = FND_API.G_MISS_NUM)
1088: THEN
1089:
1090: if l_debug_level > 0 then
1091: oe_debug_pub.add('Default Blanket Version Number');
1092: end if;
1093:
1094: -- Derive blanket_version_number if blanket number
1095: -- ,line number are provided
1109: p_x_line_rec.blanket_version_number := l_blanket_version_number;
1110:
1111: EXCEPTION
1112: WHEN NO_DATA_FOUND THEN
1113: 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);
1114: FND_MESSAGE.SET_NAME('ONT', 'OE_BLKT_INVALID_BLANKET');
1115: fnd_message.set_token('BLANKET_NUMBER',p_x_line_rec.blanket_number);
1116: fnd_message.set_token('BLANKET_LINE_NUMBER',p_x_line_rec.blanket_line_number);
1117: OE_MSG_PUB.Add;
1153: )--bug6497015
1154: THEN
1155:
1156: if l_debug_level > 0 then
1157: oe_debug_pub.add('Blkt Number : '||p_x_line_rec.blanket_number);
1158: oe_debug_pub.add('Cust PO : '||p_x_line_rec.cust_po_number);
1159: oe_debug_pub.add('Item : '||p_x_line_rec.inventory_item_id);
1160: oe_debug_pub.add('Item Type : '||p_x_line_rec.item_type_code);
1161: end if;
1154: THEN
1155:
1156: if l_debug_level > 0 then
1157: oe_debug_pub.add('Blkt Number : '||p_x_line_rec.blanket_number);
1158: oe_debug_pub.add('Cust PO : '||p_x_line_rec.cust_po_number);
1159: oe_debug_pub.add('Item : '||p_x_line_rec.inventory_item_id);
1160: oe_debug_pub.add('Item Type : '||p_x_line_rec.item_type_code);
1161: end if;
1162:
1155:
1156: if l_debug_level > 0 then
1157: oe_debug_pub.add('Blkt Number : '||p_x_line_rec.blanket_number);
1158: oe_debug_pub.add('Cust PO : '||p_x_line_rec.cust_po_number);
1159: oe_debug_pub.add('Item : '||p_x_line_rec.inventory_item_id);
1160: oe_debug_pub.add('Item Type : '||p_x_line_rec.item_type_code);
1161: end if;
1162:
1163: -- Default Blanket Fields
1156: if l_debug_level > 0 then
1157: oe_debug_pub.add('Blkt Number : '||p_x_line_rec.blanket_number);
1158: oe_debug_pub.add('Cust PO : '||p_x_line_rec.cust_po_number);
1159: oe_debug_pub.add('Item : '||p_x_line_rec.inventory_item_id);
1160: oe_debug_pub.add('Item Type : '||p_x_line_rec.item_type_code);
1161: end if;
1162:
1163: -- Default Blanket Fields
1164: Default_Blanket_Values
1195:
1196: END IF;
1197:
1198: if l_debug_level > 0 then
1199: oe_debug_pub.add('EXIT Perform_Blanket_Functions');
1200: end if;
1201:
1202: END IF; -- if blanket number or cust po exists
1203:
1224: ,p_inventory_item_id IN NUMBER
1225: ,x_blanket_line_number OUT NOCOPY NUMBER
1226: ,x_blanket_version_number OUT NOCOPY NUMBER
1227: ) is
1228: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1229: BEGIN
1230:
1231: IF l_debug_level > 0 THEN
1232: oe_debug_pub.add( 'BSA: ENTERING Get_Blanket_Number API' ) ;
1228: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1229: BEGIN
1230:
1231: IF l_debug_level > 0 THEN
1232: oe_debug_pub.add( 'BSA: ENTERING Get_Blanket_Number API' ) ;
1233: oe_debug_pub.add( 'BSA: Blanket Number in Get_Blanket_Number: '||p_blanket_number ) ;
1234: oe_debug_pub.add( 'BSA: Inventory Item Id in Get_Blanket_Number : '||p_INVENTORY_ITEM_ID ) ;
1235: END IF;
1236:
1229: BEGIN
1230:
1231: IF l_debug_level > 0 THEN
1232: oe_debug_pub.add( 'BSA: ENTERING Get_Blanket_Number API' ) ;
1233: oe_debug_pub.add( 'BSA: Blanket Number in Get_Blanket_Number: '||p_blanket_number ) ;
1234: oe_debug_pub.add( 'BSA: Inventory Item Id in Get_Blanket_Number : '||p_INVENTORY_ITEM_ID ) ;
1235: END IF;
1236:
1237: SELECT /* MOAC_SQL_CHANGE */
1230:
1231: IF l_debug_level > 0 THEN
1232: oe_debug_pub.add( 'BSA: ENTERING Get_Blanket_Number API' ) ;
1233: oe_debug_pub.add( 'BSA: Blanket Number in Get_Blanket_Number: '||p_blanket_number ) ;
1234: oe_debug_pub.add( 'BSA: Inventory Item Id in Get_Blanket_Number : '||p_INVENTORY_ITEM_ID ) ;
1235: END IF;
1236:
1237: SELECT /* MOAC_SQL_CHANGE */
1238: BL.LINE_NUMBER,
1285:
1286: END IF;
1287:
1288: IF l_debug_level > 0 THEN
1289: oe_debug_pub.add( 'BSA: LEAVING Get_Blanket_Number API' ) ;
1290: oe_debug_pub.add( 'BSA: Blanket line Number in Get_Blanket_Number: '||p_blanket_number ) ;
1291: oe_debug_pub.add( 'BSA: Blanket line Number in Get_Blanket_Number: '||x_blanket_line_number ) ;
1292: oe_debug_pub.add( 'BSA: Blanket Version Number in Get_Blanket_Number : '||x_blanket_version_number
1293: ) ;
1286: END IF;
1287:
1288: IF l_debug_level > 0 THEN
1289: oe_debug_pub.add( 'BSA: LEAVING Get_Blanket_Number API' ) ;
1290: oe_debug_pub.add( 'BSA: Blanket line Number in Get_Blanket_Number: '||p_blanket_number ) ;
1291: oe_debug_pub.add( 'BSA: Blanket line Number in Get_Blanket_Number: '||x_blanket_line_number ) ;
1292: oe_debug_pub.add( 'BSA: Blanket Version Number in Get_Blanket_Number : '||x_blanket_version_number
1293: ) ;
1294: END IF;
1287:
1288: IF l_debug_level > 0 THEN
1289: oe_debug_pub.add( 'BSA: LEAVING Get_Blanket_Number API' ) ;
1290: oe_debug_pub.add( 'BSA: Blanket line Number in Get_Blanket_Number: '||p_blanket_number ) ;
1291: oe_debug_pub.add( 'BSA: Blanket line Number in Get_Blanket_Number: '||x_blanket_line_number ) ;
1292: oe_debug_pub.add( 'BSA: Blanket Version Number in Get_Blanket_Number : '||x_blanket_version_number
1293: ) ;
1294: END IF;
1295:
1288: IF l_debug_level > 0 THEN
1289: oe_debug_pub.add( 'BSA: LEAVING Get_Blanket_Number API' ) ;
1290: oe_debug_pub.add( 'BSA: Blanket line Number in Get_Blanket_Number: '||p_blanket_number ) ;
1291: oe_debug_pub.add( 'BSA: Blanket line Number in Get_Blanket_Number: '||x_blanket_line_number ) ;
1292: oe_debug_pub.add( 'BSA: Blanket Version Number in Get_Blanket_Number : '||x_blanket_version_number
1293: ) ;
1294: END IF;
1295:
1296: EXCEPTION
1299: x_blanket_line_number := null;
1300: x_blanket_version_number := null;
1301: p_blanket_number := null;
1302: IF l_debug_level > 0 THEN
1303: oe_debug_pub.add( 'BSA:LEAVING Get_Blanket_Number API: NO_DATA_FOUND' ) ;
1304: END IF;
1305: WHEN TOO_MANY_ROWS THEN
1306: x_blanket_line_number := null;
1307: x_blanket_version_number := null;
1306: x_blanket_line_number := null;
1307: x_blanket_version_number := null;
1308: p_blanket_number := null;
1309: IF l_debug_level > 0 THEN
1310: oe_debug_pub.add( 'BSA:LEAVING Get_Blanket_Number API: TOO_MANY_ROWS' ) ;
1311: END IF;
1312: WHEN OTHERS THEN
1313: x_blanket_line_number := null;
1314: x_blanket_version_number := null;
1313: x_blanket_line_number := null;
1314: x_blanket_version_number := null;
1315: p_blanket_number := null;
1316: IF l_debug_level > 0 THEN
1317: oe_debug_pub.add( 'BSA:LEAVING Get_Blanket_Number API: OTEHRS' ) ;
1318: END IF;
1319:
1320: End Get_Blanket_number_svc_config;
1321:
1346: l_top_model_line_rec OE_ORDER_PUB.line_rec_type;
1347: l_parent_line_id NUMBER;
1348: l_return_status VARCHAR2(1);
1349: --
1350: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1351: --
1352: l_top_container VARCHAR2(1);
1353: l_part_of_container VARCHAR2(1);
1354: BEGIN
1353: l_part_of_container VARCHAR2(1);
1354: BEGIN
1355:
1356: IF l_debug_level > 0 THEN
1357: oe_debug_pub.add( 'ENTERING MODEL_OPTION_DEFAULTING' , 1 ) ;
1358: oe_debug_pub.add( 'LINE_ID TO DEFAULT: '|| G_LINE_REC.LINE_ID , 1 ) ;
1359: END IF;
1360:
1361: /* If the top model is in a fulfillment set then we must push all its
1354: BEGIN
1355:
1356: IF l_debug_level > 0 THEN
1357: oe_debug_pub.add( 'ENTERING MODEL_OPTION_DEFAULTING' , 1 ) ;
1358: oe_debug_pub.add( 'LINE_ID TO DEFAULT: '|| G_LINE_REC.LINE_ID , 1 ) ;
1359: END IF;
1360:
1361: /* If the top model is in a fulfillment set then we must push all its
1362: children into same fulfillment set. We exclude service item and the
1391: (g_line_rec.item_type_code = OE_GLOBALS.G_ITEM_KIT AND
1392: g_line_rec.line_id = g_line_rec.top_modeL_line_id)
1393: THEN
1394: IF l_debug_level > 0 THEN
1395: oe_debug_pub.add( 'RETURNING FOR SERVICE , INCLUDED , TOP LEVEL KITS' , 1 ) ;
1396: END IF;
1397: RETURN;
1398: END IF;
1399:
1400:
1401: IF g_line_rec.ato_line_id = FND_API.G_MISS_NUM THEN
1402: g_line_rec.ato_line_id := Get_ATO_Line;
1403: IF l_debug_level > 0 THEN
1404: oe_debug_pub.add( 'GET_ATO_LINE SUCCESSFUL' , 1 ) ;
1405: END IF;
1406: END IF;
1407:
1408:
1414: g_line_rec.item_type_code = OE_GLOBALS.G_ITEM_STANDARD
1415: THEN
1416: --{ bug3601544 starts
1417: IF l_debug_level > 0 THEN
1418: OE_DEBUG_PUB.Add('IB Owner: '||g_line_rec.ib_owner,3);
1419: OE_DEBUG_PUB.Add('IB Install: '||g_line_rec.ib_installed_at_location,3);
1420: OE_DEBUG_PUB.Add('IB Current: '||g_line_rec.ib_current_location,3);
1421: END IF;
1422:
1415: THEN
1416: --{ bug3601544 starts
1417: IF l_debug_level > 0 THEN
1418: OE_DEBUG_PUB.Add('IB Owner: '||g_line_rec.ib_owner,3);
1419: OE_DEBUG_PUB.Add('IB Install: '||g_line_rec.ib_installed_at_location,3);
1420: OE_DEBUG_PUB.Add('IB Current: '||g_line_rec.ib_current_location,3);
1421: END IF;
1422:
1423: OE_CONFIG_TSO_PVT.Is_Part_Of_Container_Model
1416: --{ bug3601544 starts
1417: IF l_debug_level > 0 THEN
1418: OE_DEBUG_PUB.Add('IB Owner: '||g_line_rec.ib_owner,3);
1419: OE_DEBUG_PUB.Add('IB Install: '||g_line_rec.ib_installed_at_location,3);
1420: OE_DEBUG_PUB.Add('IB Current: '||g_line_rec.ib_current_location,3);
1421: END IF;
1422:
1423: OE_CONFIG_TSO_PVT.Is_Part_Of_Container_Model
1424: ( p_line_id => g_line_rec.line_id
1433: g_line_rec.ib_installed_at_location := NULL;
1434: g_line_rec.ib_current_location := NULL;
1435:
1436: IF l_debug_level > 0 THEN
1437: OE_DEBUG_PUB.Add('IB Fields set to NULL for Top Container Line',3);
1438: END IF;
1439: END IF;
1440: -- bug3601544 ends }
1441:
1439: END IF;
1440: -- bug3601544 ends }
1441:
1442: IF l_debug_level > 0 THEN
1443: oe_debug_pub.add( 'RETURNING FOR ITEM TYPE MODEL AND STANDARD' , 1 ) ;
1444: END IF;
1445: RETURN;
1446: END IF;
1447:
1473: p_x_child_line_rec => g_line_rec,
1474: x_return_status => l_return_status);
1475:
1476: IF l_debug_level > 0 THEN
1477: oe_debug_pub.add( 'RETURN STATUS || ' || L_RETURN_STATUS , 3 ) ;
1478: END IF;
1479:
1480: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1481: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1483: RAISE FND_API.G_EXC_ERROR;
1484: END IF;
1485:
1486: IF l_debug_level > 0 THEN
1487: oe_debug_pub.add( 'EXITING MODEL_OPTION_DEFAULTING' , 1 ) ;
1488: END IF;
1489:
1490: EXCEPTION
1491:
1490: EXCEPTION
1491:
1492: WHEN NO_DATA_FOUND THEN
1493: IF l_debug_level > 0 THEN
1494: oe_debug_pub.add( 'NO DATA FOUND IN MODEL_OPTION_DEFAULTING' , 1 ) ;
1495: END IF;
1496: RAISE FND_API.G_EXC_ERROR;
1497:
1498: WHEN OTHERS THEN
1503: 'Model_Option_Defaulting'
1504: );
1505: END IF;
1506: IF l_debug_level > 0 THEN
1507: oe_debug_pub.add( 'OTHERS IN MODEL_OPTION_DEFAULTING' , 1 ) ;
1508: END IF;
1509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1510:
1511: END Model_Option_Defaulting;
1522: l_top_model_line_rec OE_ORDER_PUB.line_rec_type;
1523: l_parent_line_id NUMBER;
1524: l_return_status VARCHAR2(1);
1525: --
1526: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1527: --
1528: BEGIN
1529:
1530: IF l_debug_level > 0 THEN
1527: --
1528: BEGIN
1529:
1530: IF l_debug_level > 0 THEN
1531: oe_debug_pub.add( 'ENTERING MODEL_OPTION_UPDATE' , 1 ) ;
1532: oe_debug_pub.add( 'LINE_ID TO DEFAULT: '|| P_X_LINE_REC.LINE_ID , 1 ) ;
1533: END IF;
1534:
1535: /* These updates are valid only for Options/clasees/included items */
1528: BEGIN
1529:
1530: IF l_debug_level > 0 THEN
1531: oe_debug_pub.add( 'ENTERING MODEL_OPTION_UPDATE' , 1 ) ;
1532: oe_debug_pub.add( 'LINE_ID TO DEFAULT: '|| P_X_LINE_REC.LINE_ID , 1 ) ;
1533: END IF;
1534:
1535: /* These updates are valid only for Options/clasees/included items */
1536:
1541: p_x_line_rec.line_id = p_x_line_rec.top_modeL_line_id)
1542: THEN
1543:
1544: IF l_debug_level > 0 THEN
1545: oe_debug_pub.add( 'RETURNING FOR ITEM TYPE SERVICE , MODEL , STANDARD AND TOP LEVEL KITS' , 1 ) ;
1546: END IF;
1547:
1548: RETURN;
1549: END IF;
1554: l_parent_line_id := p_x_line_rec.top_model_line_id;
1555: END IF;
1556:
1557: IF l_debug_level > 0 THEN
1558: oe_debug_pub.add( 'TOP MODEL LINE ID FOR TOP MODEL' || L_PARENT_LINE_ID , 1 ) ;
1559: END IF;
1560: -- 2605065 : Commented. This has been done in procedure Attributes.
1561: --OE_Order_Cache.clear_top_model_line(l_parent_line_id);
1562: l_top_model_line_rec := OE_Order_Cache.Load_Top_Model_Line
1565: p_x_line_rec.ship_tolerance_above := l_top_model_line_rec.ship_tolerance_above;
1566: p_x_line_rec.ship_tolerance_below := l_top_model_line_rec.ship_tolerance_below;
1567:
1568: IF l_debug_level > 0 THEN
1569: oe_debug_pub.add( 'EXITING MODEL_OPTION_UPDATE' , 1 ) ;
1570: END IF;
1571:
1572: EXCEPTION
1573:
1572: EXCEPTION
1573:
1574: WHEN NO_DATA_FOUND THEN
1575: IF l_debug_level > 0 THEN
1576: oe_debug_pub.add( 'NO DATA FOUND IN MODEL_OPTION_UPDATE' , 1 ) ;
1577: END IF;
1578:
1579: RAISE FND_API.G_EXC_ERROR;
1580:
1587: 'Model_Option_update'
1588: );
1589: END IF;
1590: IF l_debug_level > 0 THEN
1591: oe_debug_pub.add( 'OTHERS IN MODEL_OPTION_UPDATE' , 1 ) ;
1592: END IF;
1593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1594:
1595: END Model_Option_Update;
1618: l_build_in_wip_flag VARCHAR2(1);
1619: l_bom_item_type NUMBER;
1620: l_ato_config_item_id NUMBER;
1621: --
1622: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1623: --
1624: BEGIN
1625:
1626: IF l_debug_level > 0 THEN
1623: --
1624: BEGIN
1625:
1626: IF l_debug_level > 0 THEN
1627: oe_debug_pub.add( 'IN GET_ATO_LINE , ITEM_TYPE_CODE :' || G_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
1628: END IF;
1629:
1630: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' AND
1631: g_line_rec.item_type_code = 'CONFIG' THEN
1629:
1630: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' AND
1631: g_line_rec.item_type_code = 'CONFIG' THEN
1632: IF l_debug_level > 0 THEN
1633: oe_debug_pub.add( 'PACK H MI , CONFIG LINE '|| G_LINE_REC.ATO_LINE_ID ) ;
1634: END IF;
1635: RETURN g_line_rec.ato_line_id;
1636: END IF;
1637:
1655: l_build_in_wip_flag := OE_ORDER_CACHE.g_item_rec.build_in_wip_flag;
1656: l_bom_item_type := OE_ORDER_CACHE.g_item_rec.bom_item_type;
1657:
1658: IF l_debug_level > 0 THEN
1659: oe_debug_pub.add( 'GET_ATO_LINE: '||L_REPLENISH_TO_ORDER_FLAG||L_BUILD_IN_WIP_FLAG , 1 ) ;
1660: END IF;
1661:
1662: -- top level ATO model and ato item.
1663: -- build in wip flag, see if req?
1672: l_build_in_wip_flag = 'Y' AND
1673: Nvl(fnd_profile.Value('ONT_HON_ATO_FOR_INC'),'N')='Y')
1674: THEN
1675: IF l_debug_level > 0 THEN
1676: oe_debug_pub.add( '1. ATO_LINE_ID: '||G_LINE_REC.LINE_ID , 1 ) ;
1677: END IF;
1678: l_ato_line_id := g_line_rec.line_id;
1679: RETURN (l_ato_line_id);
1680:
1695:
1696: IF l_ato_line_id is NULL THEN
1697:
1698: IF l_debug_level > 0 THEN
1699: oe_debug_pub.add( 'TOP MODEL IS PTO' , 3 ) ;
1700: END IF;
1701:
1702: IF (g_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CLASS AND
1703: l_replenish_to_order_flag = 'Y' AND
1703: l_replenish_to_order_flag = 'Y' AND
1704: l_bom_item_type = 1) THEN
1705:
1706: IF l_debug_level > 0 THEN
1707: oe_debug_pub.add( 'MAYBE ATO LINE '||G_LINE_REC.LINE_ID , 3 ) ;
1708: END IF;
1709: l_temp_ato_line_id := g_line_rec.line_id;
1710: END IF;
1711:
1718: g_line_rec.configuration_id is not NULL AND
1719: g_line_rec.configuration_id <> FND_API.G_MISS_NUM
1720: THEN
1721: IF l_debug_level > 0 THEN
1722: oe_debug_pub.add( 'GET_ATO: PACK H NEW LOGIC MI ' || G_LINE_REC.CONFIG_HEADER_ID , 1 ) ;
1723: oe_debug_pub.add( 'CONFIGN ID ' || G_LINE_REC.CONFIGURATION_ID , 1 ) ;
1724: END IF;
1725:
1726: SELECT ato_config_item_id
1719: g_line_rec.configuration_id <> FND_API.G_MISS_NUM
1720: THEN
1721: IF l_debug_level > 0 THEN
1722: oe_debug_pub.add( 'GET_ATO: PACK H NEW LOGIC MI ' || G_LINE_REC.CONFIG_HEADER_ID , 1 ) ;
1723: oe_debug_pub.add( 'CONFIGN ID ' || G_LINE_REC.CONFIGURATION_ID , 1 ) ;
1724: END IF;
1725:
1726: SELECT ato_config_item_id
1727: INTO l_ato_config_item_id
1730: AND config_rev_nbr = g_line_rec.config_rev_nbr
1731: AND config_item_id = g_line_rec.configuration_id
1732: AND inventory_item_id = g_line_rec.inventory_item_id;
1733: IF l_debug_level > 0 THEN
1734: oe_debug_pub.add( 'GET_ATO: MI ' || L_ATO_CONFIG_ITEM_ID , 1 ) ;
1735: END IF;
1736:
1737: IF l_ato_config_item_id is NOT NULL THEN
1738: SELECT line_id
1747: AND top_model_line_id = g_line_rec.top_model_line_id;
1748:
1749: ELSE
1750: IF l_debug_level > 0 THEN
1751: oe_debug_pub.add('CONFIG_ITEM_ID NOT RETURNED FROM CZ');
1752: END IF;
1753: IF g_line_rec.item_type_code = OE_GLOBALS.G_ITEM_OPTION
1754: AND
1755: l_replenish_to_order_flag = 'Y' AND
1755: l_replenish_to_order_flag = 'Y' AND
1756: l_build_in_wip_flag = 'Y'
1757: THEN
1758: IF l_debug_level > 0 THEN
1759: oe_debug_pub.add( 'ATO ITEM UNDER PTO MODEL' , 1 ) ;
1760: END IF;
1761: RETURN g_line_rec.line_id;
1762: END IF;
1763: END IF;
1762: END IF;
1763: END IF;
1764:
1765: IF l_debug_level > 0 THEN
1766: oe_debug_pub.add( 'PTO+ATO SELECT '||L_ATO_LINE_ID , 1 ) ;
1767: END IF;
1768:
1769: ELSE
1770:
1768:
1769: ELSE
1770:
1771: IF l_debug_level > 0 THEN
1772: oe_debug_pub.add( 'USE OE_ORDER_LINES' , 3 ) ;
1773: END IF;
1774:
1775: SELECT line_id
1776: INTO l_ato_line_id
1798: LENGTH(component_code) + 1, 1) is NULL);
1799:
1800:
1801: IF l_debug_level > 0 THEN
1802: oe_debug_pub.add( 'PTO+ATO SELECT '||L_ATO_LINE_ID , 1 ) ;
1803: END IF;
1804: END IF;
1805:
1806: EXCEPTION
1805:
1806: EXCEPTION
1807: WHEN no_data_found THEN
1808: IF l_debug_level > 0 THEN
1809: oe_debug_pub.add( 'NO DATA FOUND PTO CASE '|| L_TEMP_ATO_LINE_ID , 3 ) ;
1810: END IF;
1811:
1812: -- ## 1820608 ato item under a top pto model
1813: -- should have line_id = ato_line_id, if ato_item is
1819: l_replenish_to_order_flag = 'Y' AND
1820: l_build_in_wip_flag = 'Y'
1821: THEN
1822: IF l_debug_level > 0 THEN
1823: oe_debug_pub.add( 'ATO ITEM UNDER PTO MODEL' , 1 ) ;
1824: END IF;
1825: RETURN g_line_rec.line_id;
1826: ELSE
1827: RETURN l_temp_ato_line_id;
1832: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_DUPLICATE_COMPONENT');
1833: FND_MESSAGE.Set_Token('ITEM', nvl(g_line_rec.ordered_item,g_line_rec.inventory_item_id));
1834: OE_Msg_Pub.Add;
1835: IF l_debug_level > 0 THEN
1836: oe_debug_pub.add( 'TOO MANY ROWS CASE '|| G_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
1837: END IF;
1838: RAISE;
1839:
1840: WHEN OTHERS THEN
1838: RAISE;
1839:
1840: WHEN OTHERS THEN
1841: IF l_debug_level > 0 THEN
1842: oe_debug_pub.add( 'ATO LINE EXCEPTION ' , 3 ) ;
1843: END IF;
1844: RAISE;
1845: END;
1846: END IF;
1845: END;
1846: END IF;
1847:
1848: IF l_debug_level > 0 THEN
1849: oe_debug_pub.add( '2. ATO LINE ID : '|| L_ATO_LINE_ID , 3 ) ;
1850: END IF;
1851:
1852: RETURN l_ato_line_id;
1853:
1852: RETURN l_ato_line_id;
1853:
1854: ELSE
1855: IF l_debug_level > 0 THEN
1856: oe_debug_pub.add( 'RETURN ATO_LINE_ID AS NULL' , 1 ) ;
1857: END IF;
1858: RETURN null;
1859: END IF;
1860: END IF;
1859: END IF;
1860: END IF;
1861:
1862: IF l_debug_level > 0 THEN
1863: oe_debug_pub.add( 'GG:LINE_ID : ' || G_LINE_REC.LINE_ID , 1 ) ;
1864: oe_debug_pub.add( 'GG:ATO LINE ID : ' || G_LINE_REC.ATO_LINE_ID , 1 ) ;
1865: END IF;
1866:
1867: EXCEPTION
1860: END IF;
1861:
1862: IF l_debug_level > 0 THEN
1863: oe_debug_pub.add( 'GG:LINE_ID : ' || G_LINE_REC.LINE_ID , 1 ) ;
1864: oe_debug_pub.add( 'GG:ATO LINE ID : ' || G_LINE_REC.ATO_LINE_ID , 1 ) ;
1865: END IF;
1866:
1867: EXCEPTION
1868:
1903: Select set_id
1904: From oe_line_sets
1905: Where line_id = p_line_id;
1906: --
1907: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1908: --
1909: BEGIN
1910:
1911: IF l_debug_level > 0 THEN
1908: --
1909: BEGIN
1910:
1911: IF l_debug_level > 0 THEN
1912: oe_debug_pub.add( 'ENTERING INTO INSERT_INTO_SET' , 1 ) ;
1913: oe_debug_pub.add( 'TOP MODEL IS ' || P_LINE_ID , 1 ) ;
1914: oe_debug_pub.add( 'CHILD LINE IS ' || P_CHILD_LINE_ID , 1 ) ;
1915: END IF;
1916: FOR i IN parent_sets LOOP
1909: BEGIN
1910:
1911: IF l_debug_level > 0 THEN
1912: oe_debug_pub.add( 'ENTERING INTO INSERT_INTO_SET' , 1 ) ;
1913: oe_debug_pub.add( 'TOP MODEL IS ' || P_LINE_ID , 1 ) ;
1914: oe_debug_pub.add( 'CHILD LINE IS ' || P_CHILD_LINE_ID , 1 ) ;
1915: END IF;
1916: FOR i IN parent_sets LOOP
1917: IF l_debug_level > 0 THEN
1910:
1911: IF l_debug_level > 0 THEN
1912: oe_debug_pub.add( 'ENTERING INTO INSERT_INTO_SET' , 1 ) ;
1913: oe_debug_pub.add( 'TOP MODEL IS ' || P_LINE_ID , 1 ) ;
1914: oe_debug_pub.add( 'CHILD LINE IS ' || P_CHILD_LINE_ID , 1 ) ;
1915: END IF;
1916: FOR i IN parent_sets LOOP
1917: IF l_debug_level > 0 THEN
1918: oe_debug_pub.add( 'ENTERING INTO LOOP -SET' ||I.SET_ID , 1 ) ;
1914: oe_debug_pub.add( 'CHILD LINE IS ' || P_CHILD_LINE_ID , 1 ) ;
1915: END IF;
1916: FOR i IN parent_sets LOOP
1917: IF l_debug_level > 0 THEN
1918: oe_debug_pub.add( 'ENTERING INTO LOOP -SET' ||I.SET_ID , 1 ) ;
1919: END IF;
1920:
1921:
1922:
1929: END LOOP;
1930:
1931: x_return_status := FND_API.G_RET_STS_SUCCESS;
1932: IF l_debug_level > 0 THEN
1933: oe_debug_pub.add( 'EXITING FROM INSERT_INTO_SET' , 1 ) ;
1934: END IF;
1935:
1936: EXCEPTION
1937:
1944: FUNCTION Get_Fulfilled_Quantity
1945: RETURN NUMBER
1946: IS
1947: --
1948: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1949: --
1950: BEGIN
1951:
1952: RETURN NULL;
1958: p_old_line_rec OE_ORDER_PUB.Line_Rec_Type,
1959: p_item_type_code VARCHAR2)
1960: IS
1961: --
1962: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1963: --
1964: BEGIN
1965: IF l_debug_level > 0 THEN
1966: oe_debug_pub.add( 'ENTERING CHECK ITEM TYPE' ) ;
1962: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1963: --
1964: BEGIN
1965: IF l_debug_level > 0 THEN
1966: oe_debug_pub.add( 'ENTERING CHECK ITEM TYPE' ) ;
1967: oe_debug_pub.add( 'ITEM TYPE '|| P_ITEM_TYPE_CODE ) ;
1968: END IF;
1969: IF p_line_rec.operation = oe_globals.g_opr_update THEN
1970: IF (p_old_line_rec.item_type_code <> FND_API.G_MISS_CHAR AND
1963: --
1964: BEGIN
1965: IF l_debug_level > 0 THEN
1966: oe_debug_pub.add( 'ENTERING CHECK ITEM TYPE' ) ;
1967: oe_debug_pub.add( 'ITEM TYPE '|| P_ITEM_TYPE_CODE ) ;
1968: END IF;
1969: IF p_line_rec.operation = oe_globals.g_opr_update THEN
1970: IF (p_old_line_rec.item_type_code <> FND_API.G_MISS_CHAR AND
1971: p_old_line_rec.item_type_code IS NOT NULL) THEN
1975:
1976: FND_MESSAGE.SET_NAME('ONT','OE_ITEM_TYPE_CONST');
1977: OE_MSG_PUB.ADD;
1978: IF l_debug_level > 0 THEN
1979: oe_debug_pub.add( 'ITEM_TYPE_CODE CONSTRAINED' ) ;
1980: END IF;
1981: RAISE FND_API.G_EXC_ERROR;
1982:
1983: END IF;
1984: END IF;
1985: END IF;
1986:
1987: IF l_debug_level > 0 THEN
1988: oe_debug_pub.add( 'ITEM_TYPE_CODE : OPERATION IS CREATE ' ) ;
1989: END IF;
1990:
1991: END Check_Item_Type;
1992:
1998: l_bom_item_type VARCHAR2(30);
1999: l_service_item_flag VARCHAR2(1);
2000: l_pick_components_flag VARCHAR2(1);
2001: --
2002: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2003: --
2004: BEGIN
2005:
2006: IF l_debug_level > 0 THEN
2003: --
2004: BEGIN
2005:
2006: IF l_debug_level > 0 THEN
2007: oe_debug_pub.add( 'IN DEFAULTING: FUNCTION GET_ITEM_TYPE' , 1 ) ;
2008: oe_debug_pub.add( 'THE INV ITEM IS'||TO_CHAR ( G_LINE_REC.INVENTORY_ITEM_ID ) , 1 ) ;
2009: --6933507
2010: oe_debug_pub.add( ' line_category_code = '|| p_line_rec.line_category_code , 1 ) ;
2011: oe_debug_pub.add( ' retrobill_request_id = '|| p_line_rec.retrobill_request_id , 1 ) ;
2004: BEGIN
2005:
2006: IF l_debug_level > 0 THEN
2007: oe_debug_pub.add( 'IN DEFAULTING: FUNCTION GET_ITEM_TYPE' , 1 ) ;
2008: oe_debug_pub.add( 'THE INV ITEM IS'||TO_CHAR ( G_LINE_REC.INVENTORY_ITEM_ID ) , 1 ) ;
2009: --6933507
2010: oe_debug_pub.add( ' line_category_code = '|| p_line_rec.line_category_code , 1 ) ;
2011: oe_debug_pub.add( ' retrobill_request_id = '|| p_line_rec.retrobill_request_id , 1 ) ;
2012: oe_debug_pub.add( ' item_type_code = '|| p_line_rec.item_type_code , 1 ) ;
2006: IF l_debug_level > 0 THEN
2007: oe_debug_pub.add( 'IN DEFAULTING: FUNCTION GET_ITEM_TYPE' , 1 ) ;
2008: oe_debug_pub.add( 'THE INV ITEM IS'||TO_CHAR ( G_LINE_REC.INVENTORY_ITEM_ID ) , 1 ) ;
2009: --6933507
2010: oe_debug_pub.add( ' line_category_code = '|| p_line_rec.line_category_code , 1 ) ;
2011: oe_debug_pub.add( ' retrobill_request_id = '|| p_line_rec.retrobill_request_id , 1 ) ;
2012: oe_debug_pub.add( ' item_type_code = '|| p_line_rec.item_type_code , 1 ) ;
2013: --6933507
2014: END IF;
2007: oe_debug_pub.add( 'IN DEFAULTING: FUNCTION GET_ITEM_TYPE' , 1 ) ;
2008: oe_debug_pub.add( 'THE INV ITEM IS'||TO_CHAR ( G_LINE_REC.INVENTORY_ITEM_ID ) , 1 ) ;
2009: --6933507
2010: oe_debug_pub.add( ' line_category_code = '|| p_line_rec.line_category_code , 1 ) ;
2011: oe_debug_pub.add( ' retrobill_request_id = '|| p_line_rec.retrobill_request_id , 1 ) ;
2012: oe_debug_pub.add( ' item_type_code = '|| p_line_rec.item_type_code , 1 ) ;
2013: --6933507
2014: END IF;
2015:
2008: oe_debug_pub.add( 'THE INV ITEM IS'||TO_CHAR ( G_LINE_REC.INVENTORY_ITEM_ID ) , 1 ) ;
2009: --6933507
2010: oe_debug_pub.add( ' line_category_code = '|| p_line_rec.line_category_code , 1 ) ;
2011: oe_debug_pub.add( ' retrobill_request_id = '|| p_line_rec.retrobill_request_id , 1 ) ;
2012: oe_debug_pub.add( ' item_type_code = '|| p_line_rec.item_type_code , 1 ) ;
2013: --6933507
2014: END IF;
2015:
2016: IF ( g_line_rec.inventory_item_id is NULL OR
2052: l_service_item_flag := OE_ORDER_CACHE.g_item_rec.service_item_flag;
2053: l_pick_components_flag := OE_ORDER_CACHE.g_item_rec.pick_components_flag;
2054:
2055: IF l_debug_level > 0 THEN
2056: oe_debug_pub.add( 'BOM ITEM TYPE IS ' || L_BOM_ITEM_TYPE ) ;
2057: END IF;
2058: -- sol_ord_er #16014165
2059: If(OE_ORDER_CACHE.g_item_rec.contract_item_type_code = OE_GLOBALS.G_ITEM_SUBSCRIPTION)
2060: THEN
2062: If( OE_Sys_Parameters.VALUE('OM_DEF_SUBSCRIPTION_BEHAVIOUR',p_line_rec.org_id) = 'SUB')
2063: AND p_line_rec.subscription_enable_flag <> 'N' THEN
2064: g_line_rec.subscription_enable_flag := 'Y';
2065: IF l_debug_level > 0 THEN
2066: oe_debug_pub.add('SK OEXDLINB.pls SUBSCRIPTION1 Y');
2067: END IF;
2068: Else
2069: /* If default system parameter is NULL or Standard but via PO API value passed is Y then store Y */
2070: If p_line_rec.subscription_enable_flag = 'Y' then
2068: Else
2069: /* If default system parameter is NULL or Standard but via PO API value passed is Y then store Y */
2070: If p_line_rec.subscription_enable_flag = 'Y' then
2071: IF l_debug_level > 0 THEN
2072: oe_debug_pub.add('SK OEXDLINB.pls SUBSCRIPTION2 Y');
2073: End If;
2074: g_line_rec.subscription_enable_flag := 'Y';
2075: else
2076: g_line_rec.subscription_enable_flag := 'N';
2074: g_line_rec.subscription_enable_flag := 'Y';
2075: else
2076: g_line_rec.subscription_enable_flag := 'N';
2077: IF l_debug_level > 0 THEN
2078: oe_debug_pub.add('SK OEXDLINB.pls SUBSCRIPTION3 N');
2079: END IF;
2080: end if;
2081: end if;
2082: /* If the Item is not a Subscription Item */
2082: /* If the Item is not a Subscription Item */
2083: else
2084: g_line_rec.subscription_enable_flag := 'N';
2085: IF l_debug_level > 0 THEN
2086: oe_debug_pub.add('SK OEXDLINB.pls SUBSCRIPTION4 N');
2087: End If;
2088: End If;
2089: /* Logic commented at LABEL: SOL_ORD 100 is implemented here */
2090: If p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_INCLUDED THEN
2101: -- nvl(g_line_rec.top_model_line_index, 0) <> nvl(g_line_rec.line_index,0)
2102: -- line_rec dose not have line_index
2103: THEN
2104: IF l_debug_level > 0 THEN
2105: oe_debug_pub.add( 'RETURNING CLASS AS THE ITEM TYPE FOR ATO SUBCONFIG' , 1 ) ;
2106: END IF;
2107: --Procedure to check change in item_type_code
2108: Check_Item_Type(p_line_rec,
2109: p_old_line_rec,
2111: RETURN OE_GLOBALS.G_ITEM_CLASS;
2112: END IF;
2113:
2114: IF l_debug_level > 0 THEN
2115: oe_debug_pub.add( 'RETURNING MODEL AS THE ITEM TYPE' , 1 ) ;
2116: END IF;
2117: --Procedure to check change in item_type_code
2118: Check_Item_Type(p_line_rec,
2119: p_old_line_rec,
2122:
2123: ELSIF l_bom_item_type = 2
2124: THEN
2125: IF l_debug_level > 0 THEN
2126: oe_debug_pub.add( 'RETURNING CLASS AS THE ITEM TYPE' , 1 ) ;
2127: END IF;
2128: -- Only CLASS items have bom_item_type = 2
2129: --Procedure to check change in item_type_code
2130: Check_Item_Type(p_line_rec,
2136: l_service_item_flag = 'N'
2137: THEN
2138:
2139: IF l_debug_level > 0 THEN
2140: oe_debug_pub.add( 'BOM 4 AND FLAG = N' ) ;
2141: END IF;
2142: -- Following 3 items can have bom_item_type = 4 :
2143: -- STANDARD item, OPTION item and a KIT
2144: -- We will distinguish an item to be a kit by seeing if
2157: ELSIF (g_line_rec.top_model_line_id is not null AND
2158: g_line_rec.top_model_line_id <> FND_API.G_MISS_NUM)
2159: THEN
2160: IF l_debug_level > 0 THEN
2161: oe_debug_pub.add( 'GET_ITEM_TYPE NO DATA FOUND , BOM_ITEM_TYPE : 4' , 1 ) ;
2162: END IF;
2163: l_item_type_code := OE_GLOBALS.G_ITEM_OPTION;
2164: -- sol_ord_er #16014165
2165: ELSIF g_line_rec.subscription_enable_flag = 'Y' then
2163: l_item_type_code := OE_GLOBALS.G_ITEM_OPTION;
2164: -- sol_ord_er #16014165
2165: ELSIF g_line_rec.subscription_enable_flag = 'Y' then
2166: IF l_debug_level > 0 THEN
2167: oe_debug_pub.add('SK OEXDLINB.pls 7.1 Returning Service');
2168: End If;
2169: l_item_type_code := OE_GLOBALS.G_ITEM_SERVICE;
2170: -- sol_ord_er #16014165 end
2171: ELSE
2172: l_item_type_code := OE_GLOBALS.G_ITEM_STANDARD;
2173: END IF;
2174:
2175: IF l_debug_level > 0 THEN
2176: oe_debug_pub.add( ' BEFORE CALLING CHECK 1' ) ;
2177: END IF;
2178: --Procedure to check change in item_type_code
2179: Check_Item_Type(p_line_rec,
2180: p_old_line_rec,
2184: ELSIF l_service_item_flag = 'Y' and
2185: l_bom_item_type = 4
2186: THEN
2187: IF l_debug_level > 0 THEN
2188: oe_debug_pub.add( 'SERVICE ITEM FLAG IS: ' || L_SERVICE_ITEM_FLAG ) ;
2189: END IF;
2190: --Procedure to check change in item_type_code
2191: Check_Item_Type(p_line_rec,
2192: p_old_line_rec,
2197:
2198: RETURN null;
2199:
2200: IF l_debug_level > 0 THEN
2201: oe_debug_pub.add( 'EXITING DEFAULTING: FUNCTION GET_ITEM_TYPE' ) ;
2202: END IF;
2203:
2204: EXCEPTION
2205:
2204: EXCEPTION
2205:
2206: WHEN NO_DATA_FOUND THEN
2207: IF l_debug_level > 0 THEN
2208: oe_debug_pub.add( ' BEFORE CALLING CHECK 4' ) ;
2209: END IF;
2210: l_item_type_code := OE_GLOBALS.G_ITEM_STANDARD;
2211: --Procedure to check change in item_type_code
2212: Check_Item_Type(p_line_rec,
2236: RETURN NUMBER
2237: IS
2238: l_line_id NUMBER := NULL;
2239: --
2240: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2241: --
2242: BEGIN
2243:
2244: SELECT OE_ORDER_LINES_S.NEXTVAL
2252: FUNCTION Get_Orig_Sys_Doc_Ref
2253: RETURN VARCHAR2
2254: IS
2255: --
2256: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2257: --
2258: BEGIN
2259:
2260: OE_ORDER_CACHE.Load_Order_Header(g_line_rec.header_id);
2267: RETURN NUMBER
2268: IS
2269: l_Org_id NUMBER := NULL;
2270: --
2271: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2272: --
2273: BEGIN
2274:
2275: OE_GLOBALS.Set_Context;
2285: IS
2286: l_order_category varchar2(30);
2287: l_category varchar2(30) := NULL;
2288: --
2289: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2290: --
2291: BEGIN
2292: IF l_debug_level > 0 THEN
2293: oe_debug_pub.add( 'IN DEFAULTING: FUNCTION GET_LINE_CATEGORY' , 1 ) ;
2289: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2290: --
2291: BEGIN
2292: IF l_debug_level > 0 THEN
2293: oe_debug_pub.add( 'IN DEFAULTING: FUNCTION GET_LINE_CATEGORY' , 1 ) ;
2294: END IF;
2295:
2296: /* replaced with the following IF for 2421909
2297: IF (p_line_rec.operation = oe_globals.g_opr_create) and
2302: IF (p_line_rec.line_type_id IS NULL OR -- 2421909
2303: p_line_rec.line_type_id = FND_API.G_MISS_NUM) THEN
2304:
2305: IF l_debug_level > 0 THEN
2306: oe_debug_pub.add( 'AK IN DEFAULTING: WHEN LINE_TYPE_ID IS NULL' , 1 ) ;
2307: oe_debug_pub.add( 'AK IN DEFAULTING:' || P_LINE_REC.HEADER_ID , 1 ) ;
2308: END IF;
2309:
2310: /* Replaced with the following IF statement for 2421909
2303: p_line_rec.line_type_id = FND_API.G_MISS_NUM) THEN
2304:
2305: IF l_debug_level > 0 THEN
2306: oe_debug_pub.add( 'AK IN DEFAULTING: WHEN LINE_TYPE_ID IS NULL' , 1 ) ;
2307: oe_debug_pub.add( 'AK IN DEFAULTING:' || P_LINE_REC.HEADER_ID , 1 ) ;
2308: END IF;
2309:
2310: /* Replaced with the following IF statement for 2421909
2311: OE_ORDER_CACHE.Load_Order_Header(p_line_rec.header_id);
2315: IF (p_line_rec.operation = oe_globals.g_opr_create)
2316: THEN -- 2421909ND
2317:
2318: IF l_debug_level > 0 THEN
2319: oe_debug_pub.add( 'AK IN DEFAULTING: OPERATION IS CREATE' , 1 ) ;
2320: END IF;
2321: OE_ORDER_CACHE.Load_Order_Header(p_line_rec.header_id);
2322: l_order_category := OE_ORDER_CACHE.g_header_rec.ORDER_CATEGORY_CODE;
2323: ELSE
2326:
2327: ELSE
2328:
2329: IF l_debug_level > 0 THEN
2330: oe_debug_pub.add( 'AK IN DEFAULTING: WHEN LINE_TYPE_ID IS NOT NULL' , 1 ) ;
2331: END IF;
2332: OE_ORDER_CACHE.Load_Line_Type(p_line_rec.line_type_id);
2333: l_order_category := OE_ORDER_CACHE.g_line_type_rec.ORDER_CATEGORY_CODE;
2334:
2347: p_line_rec.line_category_code = 'ORDER' AND
2348: p_line_rec.order_source_id = 27 ) THEN
2349: l_category := 'ORDER';
2350: IF l_debug_level > 0 THEN
2351: oe_debug_pub.add( 'Retrobill price increase Line Category ' || L_CATEGORY ) ;
2352: END IF;
2353: END IF;
2354: --retro}
2355: IF l_debug_level > 0 THEN
2352: END IF;
2353: END IF;
2354: --retro}
2355: IF l_debug_level > 0 THEN
2356: oe_debug_pub.add( 'LINE CATEGORY: ' || L_CATEGORY ) ;
2357: END IF;
2358:
2359: IF p_line_rec.operation = oe_globals.g_opr_update THEN
2360:
2376: else
2377: FND_MESSAGE.SET_NAME('ONT', 'OE_LINE_CAT_CONST');
2378: OE_MSG_PUB.ADD;
2379: IF l_debug_level > 0 THEN
2380: oe_debug_pub.add( 'LINE CATEGORY CONSTRINED' ) ;
2381: END IF;
2382: RAISE FND_API.G_EXC_ERROR;
2383: END IF;
2384: END IF;
2388: END IF;
2389:
2390:
2391: IF l_debug_level > 0 THEN
2392: oe_debug_pub.add( 'IN DEFAULTING: RETURNLINECATEROY' , 1 ) ;
2393: END IF;
2394: RETURN l_category;
2395:
2396: EXCEPTION
2396: EXCEPTION
2397:
2398: WHEN NO_DATA_FOUND THEN
2399: IF l_debug_level > 0 THEN
2400: oe_debug_pub.add( 'IN DEFAULTING: NO DATAFOUND' , 1 ) ;
2401: END IF;
2402: l_category := 'ORDER';
2403: IF p_line_rec.operation = oe_globals.g_opr_update THEN
2404:
2409: l_category) THEN
2410: FND_MESSAGE.SET_NAME('ONT', 'OE_LINE_CAT_CONST');
2411: OE_MSG_PUB.ADD;
2412: IF l_debug_level > 0 THEN
2413: oe_debug_pub.add( 'LINE CATEGORY CONSTRINED' ) ;
2414: END IF;
2415: RAISE FND_API.G_EXC_ERROR;
2416: END IF;
2417:
2440: RETURN NUMBER
2441: IS
2442: l_line_number NUMBER := NULL;
2443: --
2444: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2445: --
2446: BEGIN
2447:
2448: IF l_debug_level > 0 THEN
2445: --
2446: BEGIN
2447:
2448: IF l_debug_level > 0 THEN
2449: oe_debug_pub.add( 'IN PKG OE_DEFAULT_LINE: FUNCTION GET_LINE_NUMBER' ) ;
2450: END IF;
2451:
2452: IF g_line_rec.top_model_line_id IS NULL
2453: OR g_line_rec.top_model_line_id = FND_API.G_MISS_NUM
2463:
2464: ELSE
2465:
2466: IF l_debug_level > 0 THEN
2467: oe_debug_pub.add( 'LOADING TOP_MODEL_LINE_ID: ' || G_LINE_REC.TOP_MODEL_LINE_ID ) ;
2468: END IF;
2469: OE_Order_Cache.Load_top_model_line
2470: (g_line_rec.top_model_line_id );
2471: l_line_number := OE_Order_Cache.g_top_model_line_rec.line_number;
2472:
2473: RETURN (l_line_number);
2474:
2475: IF l_debug_level > 0 THEN
2476: oe_debug_pub.add( 'LOADDED TOP_MODEL_LINE_ID ' ) ;
2477: END IF;
2478:
2479: END IF;
2480:
2498: RETURN DATE
2499: IS
2500: l_latest_acceptable_date DATE;
2501: --
2502: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2503: --
2504: BEGIN
2505:
2506: OE_ORDER_CACHE.Load_Order_Header(g_line_rec.header_id);
2519: FUNCTION Get_Pricing_Quantity
2520: RETURN NUMBER
2521: IS
2522: --
2523: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2524: --
2525: BEGIN
2526:
2527: IF g_line_rec.ordered_quantity = FND_API.G_MISS_NUM then
2559: RETURN NUMBER
2560: IS
2561: l_ship_number NUMBER := NULL;
2562: --
2563: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2564: --
2565: BEGIN
2566:
2567: IF l_debug_level > 0 THEN
2564: --
2565: BEGIN
2566:
2567: IF l_debug_level > 0 THEN
2568: oe_debug_pub.add( 'IN PKG OE_DEFAULT_LINE: FUNCTION GET_SHIPMENT_NUMBER' ) ;
2569: END IF;
2570:
2571: IF g_line_rec.top_model_line_id IS NULL
2572: OR g_line_rec.top_model_line_id = FND_API.G_MISS_NUM
2618: FUNCTION Get_Shipping_Interfaced
2619: RETURN VARCHAR2
2620: IS
2621: --
2622: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2623: --
2624: BEGIN
2625:
2626: RETURN 'N';
2632: RETURN VARCHAR2
2633: IS
2634: l_source_type VARCHAR2(30) := OE_GLOBALS.G_SOURCE_INTERNAL;
2635: --
2636: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2637: --
2638: BEGIN
2639:
2640: IF l_debug_level > 0 THEN
2637: --
2638: BEGIN
2639:
2640: IF l_debug_level > 0 THEN
2641: oe_debug_pub.add( 'DEFAULTING SOURCE TYPE' ) ;
2642: END IF;
2643:
2644: IF p_line_type_id is not null AND
2645: p_line_type_id <> FND_API.G_MISS_NUM THEN
2665: END IF;
2666:
2667:
2668: IF l_debug_level > 0 THEN
2669: oe_debug_pub.add( 'DEFAULTING SOURCE TYPE AS || L_SOURCE_TYPE' ) ;
2670: END IF;
2671:
2672: IF l_source_type <> p_source_type THEN
2673: RETURN l_source_type;
2686: ,p_item_type_code IN VARCHAR2)
2687: RETURN VARCHAR2
2688: IS
2689: --
2690: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2691: --
2692: BEGIN
2693:
2694: IF ( p_inventory_item_id is NULL OR
2701: RETURN 'Y';
2702: END IF;
2703:
2704: IF l_debug_level > 0 THEN
2705: oe_debug_pub.add( '1 , ATO_LINE_ID: '|| P_ATO_LINE_ID , 1 ) ;
2706: END IF;
2707:
2708:
2709: IF (p_ato_line_id is not null) AND
2719: p_line_id = p_ato_line_id )
2720: THEN
2721:
2722: IF l_debug_level > 0 THEN
2723: oe_debug_pub.add( 'ATO MODEL OR OPTION' , 1 ) ;
2724: END IF;
2725: RETURN 'N';
2726:
2727: END IF;
2732: OE_Order_Cache.Load_Item (p_inventory_item_id
2733: ,p_ship_from_org_id);
2734:
2735: IF l_debug_level > 0 THEN
2736: oe_debug_pub.add( 'SHIPPABLE FLAG: ' || OE_ORDER_CACHE.G_ITEM_REC.SHIPPABLE_ITEM_FLAG , 1 ) ;
2737: END IF;
2738:
2739: RETURN OE_ORDER_CACHE.g_item_rec.shippable_item_flag;
2740:
2745: FUNCTION Get_SMC_Flag
2746: RETURN VARCHAR2
2747: IS
2748: --
2749: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2750: --
2751: BEGIN
2752:
2753: IF l_debug_level > 0 THEN
2750: --
2751: BEGIN
2752:
2753: IF l_debug_level > 0 THEN
2754: oe_debug_pub.add( 'DEFAULTING SMC FLAG ' , 1 ) ;
2755: END IF;
2756:
2757: IF ( g_line_rec.inventory_item_id is NULL OR
2758: g_line_rec.inventory_item_id = FND_API.G_MISS_NUM )
2758: g_line_rec.inventory_item_id = FND_API.G_MISS_NUM )
2759: THEN
2760: RETURN NULL;
2761: IF l_debug_level > 0 THEN
2762: oe_debug_pub.add( 'SMC1 FLAG VALUE IS NULL' , 1 ) ;
2763: END IF;
2764: END IF;
2765:
2766: IF l_debug_level > 0 THEN
2763: END IF;
2764: END IF;
2765:
2766: IF l_debug_level > 0 THEN
2767: oe_debug_pub.add( 'GET SMC: TOP MODEL LINE ID :' || G_LINE_REC.TOP_MODEL_LINE_ID , 1 ) ;
2768: END IF;
2769:
2770: -- SMC PTO flag is only for PTO's and Kits
2771:
2774: OE_Order_Cache.Load_Item (g_line_rec.inventory_item_id
2775: ,g_line_rec.ship_from_org_id);
2776:
2777: IF l_debug_level > 0 THEN
2778: oe_debug_pub.add( 'SMC FLAG ' || OE_ORDER_CACHE.G_ITEM_REC.SHIP_MODEL_COMPLETE_FLAG , 3 ) ;
2779: END IF;
2780: RETURN OE_ORDER_CACHE.g_item_rec.ship_model_complete_flag;
2781:
2782: ELSIF
2784: g_line_rec.ship_model_complete_flag <> FND_API.G_MISS_CHAR AND
2785: g_line_rec.top_model_line_id is not NULL
2786: THEN
2787: IF l_debug_level > 0 THEN
2788: oe_debug_pub.add( 'SMC4 FLAG ' || G_LINE_REC.SHIP_MODEL_COMPLETE_FLAG , 3 ) ;
2789: END IF;
2790: return g_line_rec.ship_model_complete_flag;
2791: ELSE
2792: RETURN null;
2790: return g_line_rec.ship_model_complete_flag;
2791: ELSE
2792: RETURN null;
2793: IF l_debug_level > 0 THEN
2794: oe_debug_pub.add( 'SMC5 FLAG VALUE IS NULL' , 3 ) ;
2795: END IF;
2796: END IF;
2797:
2798: END Get_SMC_Flag;
2807: IS
2808: l_invoice_line_id NUMBER := NULL;
2809: l_order_line_id NUMBER := NULL;
2810: --
2811: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2812: --
2813: BEGIN
2814:
2815: IF (p_return_context = 'INVOICE') THEN
2818:
2819: ELSIF p_return_context in ('SERIAL') THEN
2820:
2821: IF l_debug_level > 0 THEN
2822: oe_debug_pub.add( 'ATTR1 ' || P_RETURN_ATTRIBUTE1 , 1 ) ;
2823: oe_debug_pub.add( 'ATTR2 ' || P_RETURN_ATTRIBUTE2 , 1 ) ;
2824: END IF;
2825: BEGIN
2826:
2819: ELSIF p_return_context in ('SERIAL') THEN
2820:
2821: IF l_debug_level > 0 THEN
2822: oe_debug_pub.add( 'ATTR1 ' || P_RETURN_ATTRIBUTE1 , 1 ) ;
2823: oe_debug_pub.add( 'ATTR2 ' || P_RETURN_ATTRIBUTE2 , 1 ) ;
2824: END IF;
2825: BEGIN
2826:
2827: SELECT l.line_id
2837: AND u.inventory_item_id = to_number(p_return_attribute1)
2838: AND rownum = 1;
2839:
2840: IF l_debug_level > 0 THEN
2841: oe_debug_pub.add( 'LINE ' || TO_CHAR ( L_ORDER_LINE_ID ) , 1 ) ;
2842: END IF;
2843:
2844: IF l_order_line_id IS NOT NULL THEN
2845: SELECT /* MOAC_SQL_CHANGE */ rctl.customer_trx_line_id
2856: AND rctl.interface_line_attribute11 = '0' --Bug2721441
2857: AND rctl.org_id=rct.org_id
2858: AND rownum = 1;
2859: IF l_debug_level > 0 THEN
2860: oe_debug_pub.add( 'INV LINE ' || TO_CHAR ( L_INVOICE_LINE_ID ) , 1 ) ;
2861: END IF;
2862: END IF;
2863: RETURN l_invoice_line_id;
2864: EXCEPTION
2864: EXCEPTION
2865: WHEN NO_DATA_FOUND THEN
2866: -- not invoiced yet, return NULL
2867: IF l_debug_level > 0 THEN
2868: oe_debug_pub.add( 'IN NO DATA ' , 1 ) ;
2869: END IF;
2870: RETURN NULL;
2871: END;
2872:
3015: l_index2 NUMBER;
3016: l_match VARCHAR2(1);
3017:
3018: --
3019: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3020: --
3021: BEGIN
3022: IF l_debug_level > 0 THEN
3023: oe_debug_pub.add( 'ATTR1 ' || P_RETURN_ATTRIBUTE1 , 1 ) ;
3019: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3020: --
3021: BEGIN
3022: IF l_debug_level > 0 THEN
3023: oe_debug_pub.add( 'ATTR1 ' || P_RETURN_ATTRIBUTE1 , 1 ) ;
3024: oe_debug_pub.add( 'ATTR2 ' || P_RETURN_ATTRIBUTE2 , 1 ) ;
3025: END IF;
3026:
3027: IF (p_return_context = 'INVOICE') THEN
3020: --
3021: BEGIN
3022: IF l_debug_level > 0 THEN
3023: oe_debug_pub.add( 'ATTR1 ' || P_RETURN_ATTRIBUTE1 , 1 ) ;
3024: oe_debug_pub.add( 'ATTR2 ' || P_RETURN_ATTRIBUTE2 , 1 ) ;
3025: END IF;
3026:
3027: IF (p_return_context = 'INVOICE') THEN
3028: BEGIN
3047:
3048: WHEN OTHERS THEN
3049: -- this should not be possible
3050: IF l_debug_level > 0 THEN
3051: oe_debug_pub.add( 'ERROR WHILE GETTING THE REFERENCE LINE FOR THE INVOICE LINE' , 2 ) ;
3052: END IF;
3053: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3054: THEN
3055: OE_MSG_PUB.Add_Exc_Msg
3066:
3067: ELSIF p_return_context in ('SERIAL') THEN
3068:
3069: IF l_debug_level > 0 THEN
3070: oe_debug_pub.add( 'IN SERIAL ' ) ;
3071: END IF;
3072: -- Check to find whether the item is LOT-SERIAL controlled
3073:
3074: OPEN control_codes;
3080:
3081: BEGIN
3082: IF l_lot_control_flag = 'Y' THEN
3083: IF l_debug_level > 0 THEN
3084: oe_debug_pub.add( 'IN LOT-SERIAL ' ) ;
3085: END IF;
3086:
3087: -- If the item is LOT-SERIAL Controlled
3088:
3092: LOOP
3093: l_line_tbl(l_index2) := C_LINE.line_id;
3094: l_index2:= l_index2+1;
3095: IF l_debug_level > 0 THEN
3096: oe_debug_pub.add( 'IN LOT-SERIAL12 ' ) ;
3097: END IF;
3098:
3099: -- Check to see if any referenced return exists for the line.
3100: l_index1 := 0;
3105: AND line_category_code = 'RETURN'
3106: AND cancelled_flag <> 'Y';
3107:
3108: IF l_debug_level > 0 THEN
3109: oe_debug_pub.add( 'IN LOT-SERIAL2 '||TO_CHAR ( L_INDEX1 ) ) ;
3110: END IF;
3111: -- If there is no referenced return for this line then return
3112: -- this line as a referenced_line_id.
3113:
3112: -- this line as a referenced_line_id.
3113:
3114: IF l_index1 = 0 THEN
3115: IF l_debug_level > 0 THEN
3116: oe_debug_pub.add( 'IN SERIAL3 '||TO_CHAR ( L_INDEX1 ) ) ;
3117: END IF;
3118: l_order_line_id := C_LINE.line_id;
3119: GOTO GET_INVOICE_LINE;
3120: END IF;
3124: -- If the item is LOT Controlled
3125: l_index2:=1;
3126: FOR C_LINE IN C_REF_LINE(p_return_attribute1, p_return_attribute2)LOOP
3127: IF l_debug_level > 0 THEN
3128: oe_debug_pub.add( 'IN SERIAL1 ' ) ;
3129: END IF;
3130: l_line_tbl(l_index2) := C_LINE.line_id;
3131: l_index2:= l_index2+1;
3132: IF l_debug_level > 0 THEN
3129: END IF;
3130: l_line_tbl(l_index2) := C_LINE.line_id;
3131: l_index2:= l_index2+1;
3132: IF l_debug_level > 0 THEN
3133: oe_debug_pub.add( 'IN SERIAL12 ' ) ;
3134: END IF;
3135:
3136: -- Check to see if any referenced return exists for the line.
3137: l_index1 := 0;
3142: AND line_category_code = 'RETURN'
3143: AND cancelled_flag <> 'Y';
3144:
3145: IF l_debug_level > 0 THEN
3146: oe_debug_pub.add( 'IN SERIAL2 '||TO_CHAR ( L_INDEX1 ) ) ;
3147: END IF;
3148: -- If there is no referenced return for this line then return
3149: -- this line as a referenced_line_id.
3150:
3149: -- this line as a referenced_line_id.
3150:
3151: IF l_index1 = 0 THEN
3152: IF l_debug_level > 0 THEN
3153: oe_debug_pub.add( 'IN SERIAL3 '||TO_CHAR ( L_INDEX1 ) ) ;
3154: END IF;
3155: l_order_line_id := C_LINE.line_id;
3156: GOTO GET_INVOICE_LINE;
3157: END IF;
3161: -- If there are no outbound lines which refers the entered Serial
3162: -- Number then raise error with message.
3163:
3164: IF l_debug_level > 0 THEN
3165: oe_debug_pub.add( 'IN SERIAL4 '||TO_CHAR ( L_LINE_TBL.COUNT ) ) ;
3166: END IF;
3167: IF l_line_tbl.count = 0 THEN
3168: FND_Message.Set_Name('ONT', 'OE_NO_LINES_FOR_SERIAL_NUMBER');
3169: oe_msg_pub.add;
3177:
3178: -- Check the OE_LOT_SERIAL_NUMBERS table for the entered Serial Number.
3179:
3180: IF l_debug_level > 0 THEN
3181: oe_debug_pub.add( 'IN SERIAL5 ' ) ;
3182: END IF;
3183: FOR C2 IN C_LOT_SERIAL(p_return_attribute2) LOOP
3184:
3185: -- If record exists in oe_lot_serial_numbers for the entered SN,
3203: -- bug#5452691
3204: -- and cancelled_flag <> 'Y';
3205: END IF;
3206: IF l_debug_level > 0 THEN
3207: oe_debug_pub.add( 'IN SERIAL6 THE REF LINE IS '|| TO_CHAR ( L_REF_LINE_TBL ( L_INDEX2 ) ) ) ;
3208: END IF;
3209: l_index2 := l_index2+1;
3210: END LOOP;
3211:
3212: -- There can not be more than one outbound line referring the entered
3213: -- SN and no RMA referring it.
3214:
3215: IF l_debug_level > 0 THEN
3216: oe_debug_pub.add( 'IN SERIAL7 ' ) ;
3217: END IF;
3218: IF l_ref_line_tbl.COUNT = 0 AND
3219: l_line_tbl.count > 1 THEN
3220: IF l_debug_level > 0 THEN
3217: END IF;
3218: IF l_ref_line_tbl.COUNT = 0 AND
3219: l_line_tbl.count > 1 THEN
3220: IF l_debug_level > 0 THEN
3221: oe_debug_pub.add( 'IN SERIAL71 ' ) ;
3222: END IF;
3223: FND_Message.Set_Name('ONT', 'OE_DUPLICATE_LINES_FOR_SAME_SN');
3224: oe_msg_pub.add;
3225: RAISE FND_API.G_EXC_ERROR;
3225: RAISE FND_API.G_EXC_ERROR;
3226: END IF;
3227:
3228: IF l_debug_level > 0 THEN
3229: oe_debug_pub.add( 'IN SERIAL8 ' ) ;
3230: END IF;
3231: IF l_ref_line_tbl.COUNT = 0 AND
3232: l_line_tbl.count = 1 THEN
3233: IF l_debug_level > 0 THEN
3230: END IF;
3231: IF l_ref_line_tbl.COUNT = 0 AND
3232: l_line_tbl.count = 1 THEN
3233: IF l_debug_level > 0 THEN
3234: oe_debug_pub.add( 'IN SERIAL81 ' ) ;
3235: END IF;
3236: l_order_line_id := l_line_tbl(1);
3237: END IF;
3238:
3251: IF l_line_tbl(l_index1) = l_ref_line_tbl(l_index2)
3252: THEN
3253: l_match := 'Y';
3254: IF l_debug_level > 0 THEN
3255: oe_debug_pub.add( 'MATCH FOUND ' ) ;
3256: END IF;
3257: GOTO END_OF_INDEX1_LOOP;
3258: END IF;
3259: l_index2 := l_ref_line_tbl.NEXT(l_index2);
3267: END LOOP;
3268: END IF;
3269:
3270: << GET_INVOICE_LINE >>
3271: -- oe_debug_pub.add('Line ' || to_char(l_order_line_id),1);
3272:
3273: -- If there is no valid outbound line to be referenced for the entered
3274: -- SN then raise error.
3275:
3274: -- SN then raise error.
3275:
3276: IF l_order_line_id IS NULL THEN
3277: IF l_debug_level > 0 THEN
3278: oe_debug_pub.add( 'NO LINES AVAILABLE FOR RETURN' ) ;
3279: END IF;
3280: FND_Message.Set_Name('ONT', 'OE_NO_LINES_FOR_SERIAL_NUMBER');
3281: oe_msg_pub.add;
3282: RAISE FND_API.G_EXC_ERROR;
3281: oe_msg_pub.add;
3282: RAISE FND_API.G_EXC_ERROR;
3283: ELSE
3284: IF l_debug_level > 0 THEN
3285: oe_debug_pub.add('LINE ' || TO_CHAR(L_ORDER_LINE_ID),1);
3286: END IF;
3287: END IF;
3288:
3289: FOR c_info_rec1 in C_ORDER_INFO(l_order_line_id) LOOP
3292: END LOOP;
3293:
3294: p_ref_line_id := l_order_line_id;
3295: IF l_debug_level > 0 THEN
3296: oe_debug_pub.add( 'IN SERIAL9 ' ) ;
3297: END IF;
3298: BEGIN
3299: SELECT /* MOAC_SQL_CHANGE */ rctl.customer_trx_line_id
3300: INTO l_invoice_line_id
3312: AND rctl.interface_line_attribute11 = '0' --Bug2721441
3313: AND rctl.org_id=rct.org_id
3314: AND rownum = 1;
3315: IF l_debug_level > 0 THEN
3316: oe_debug_pub.add( 'INVOICE LINE ' || TO_CHAR ( L_INVOICE_LINE_ID ) , 1 ) ;
3317: END IF;
3318:
3319: EXCEPTION
3320:
3320:
3321: WHEN OTHERS THEN
3322: -- not invoiced yet, return NULL
3323: IF l_debug_level > 0 THEN
3324: oe_debug_pub.add( 'NOT INVOICED YET' , 1 ) ;
3325: END IF;
3326: RETURN NULL;
3327:
3328: END;
3327:
3328: END;
3329: RETURN l_invoice_line_id;
3330: IF l_debug_level > 0 THEN
3331: oe_debug_pub.add( 'IN SERIAL10' ) ;
3332: END IF;
3333:
3334: EXCEPTION
3335: WHEN FND_API.G_EXC_ERROR THEN
3335: WHEN FND_API.G_EXC_ERROR THEN
3336: RAISE FND_API.G_EXC_ERROR;
3337: WHEN OTHERS THEN
3338: IF l_debug_level > 0 THEN
3339: oe_debug_pub.add( 'IN OTHERS EXCEPTION FOR SERIAL' , 2 ) ;
3340: END IF;
3341: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3342: THEN
3343: OE_MSG_PUB.Add_Exc_Msg
3356: l_trxn_type_name:= c_info_rec2.name;
3357: END LOOP;
3358:
3359: IF l_order_number IS NULL THEN
3360: oe_debug_pub.add('Invalid Return Reference',1);
3361: fnd_message.set_name('ONT', 'OE_RETURN_INVALID_SO_LINE');
3362: OE_MSG_PUB.Add;
3363: RAISE FND_API.G_EXC_ERROR;
3364: END IF;
3388: EXCEPTION
3389:
3390: WHEN OTHERS THEN
3391: IF l_debug_level > 0 THEN
3392: oe_debug_pub.add( 'IN OTHERS EXCEPTION FOR CONTEXT OF PO/ORDER' , 2 ) ;
3393: END IF;
3394: -- not invoiced yet, return NULL
3395: p_ref_line_id := p_return_attribute2;
3396: RETURN NULL;
3410: ) RETURN NUMBER
3411: IS
3412: l_order_line_id NUMBER := NULL;
3413: --
3414: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3415: --
3416: BEGIN
3417:
3418: IF l_debug_level > 0 THEN
3415: --
3416: BEGIN
3417:
3418: IF l_debug_level > 0 THEN
3419: oe_debug_pub.add( 'ENTERING GET_DEFAULTING_ORDER_LINE' ) ;
3420: END IF;
3421:
3422: IF (p_return_context = 'ORDER') THEN
3423:
3506: l_tax_exempt_flag VARCHAR2(1);
3507: l_tax_exempt_reason_code VARCHAR2(30);
3508: l_tax_exempt_number VARCHAR2(80);
3509: --
3510: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3511: --
3512: BEGIN
3513:
3514: IF (p_invoice_line_id IS NOT NULL) THEN
3582:
3583: END IF; -- exists invoice line
3584:
3585: IF l_debug_level > 0 THEN
3586: oe_debug_pub.add( 'EXITING ATTRIBUTES_FROM_INVOICE_LINE' , 1 ) ;
3587: END IF;
3588:
3589: END Attributes_From_Invoice_Line;
3590:
3596: l_ref_line_rec OE_ORDER_PUB.Line_Rec_Type;
3597: l_revision_controlled VARCHAR2(1);
3598: x_item_rec OE_Order_Cache.Item_Rec_Type;
3599: --
3600: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3601: --
3602: l_overship_invoice_basis varchar2(30) := null; --- bug# 6617423
3603:
3604: BEGIN
3603:
3604: BEGIN
3605:
3606: IF l_debug_level > 0 THEN
3607: oe_debug_pub.add( 'ENTERING ATTRIBUTES_FROM_ORDER_LINE with p_order_line_id = ' ||p_order_line_id , 1 ) ;
3608: END IF;
3609:
3610: IF (p_order_line_id IS NOT NULL AND
3611: p_order_line_id<>FND_API.G_MISS_NUM) THEN
3640: p_x_line_rec.ordered_quantity = fnd_api.g_miss_num) THEN
3641:
3642: -- p_x_line_rec.ordered_quantity := l_ref_line_rec.ordered_quantity; -- bug# 6617423
3643: -- bug# 6617423 : Start ---------
3644: oe_debug_pub.add( ' p_x_line_rec.org_id = '||p_x_line_rec.org_id ,5);
3645: IF p_x_line_rec.org_id = FND_API.G_MISS_NUM THEN
3646: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',NULL);
3647: ELSE
3648: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',p_x_line_rec.org_id);
3646: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',NULL);
3647: ELSE
3648: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',p_x_line_rec.org_id);
3649: END IF;
3650: oe_debug_pub.add( ' l_overship_invoice_basis = '|| l_overship_invoice_basis ,5 ) ;
3651: oe_debug_pub.add( ' l_ref_line_rec.invoiced_quantity = '|| l_ref_line_rec.invoiced_quantity ,5 ) ;
3652: oe_debug_pub.add( ' l_ref_line_rec.ordered_quantity = '|| l_ref_line_rec.ordered_quantity,5 ) ;
3653:
3654: IF l_overship_invoice_basis = 'SHIPPED' then
3647: ELSE
3648: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',p_x_line_rec.org_id);
3649: END IF;
3650: oe_debug_pub.add( ' l_overship_invoice_basis = '|| l_overship_invoice_basis ,5 ) ;
3651: oe_debug_pub.add( ' l_ref_line_rec.invoiced_quantity = '|| l_ref_line_rec.invoiced_quantity ,5 ) ;
3652: oe_debug_pub.add( ' l_ref_line_rec.ordered_quantity = '|| l_ref_line_rec.ordered_quantity,5 ) ;
3653:
3654: IF l_overship_invoice_basis = 'SHIPPED' then
3655: p_x_line_rec.ordered_quantity := nvl(l_ref_line_rec.shipped_quantity, l_ref_line_rec.ordered_quantity);
3648: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',p_x_line_rec.org_id);
3649: END IF;
3650: oe_debug_pub.add( ' l_overship_invoice_basis = '|| l_overship_invoice_basis ,5 ) ;
3651: oe_debug_pub.add( ' l_ref_line_rec.invoiced_quantity = '|| l_ref_line_rec.invoiced_quantity ,5 ) ;
3652: oe_debug_pub.add( ' l_ref_line_rec.ordered_quantity = '|| l_ref_line_rec.ordered_quantity,5 ) ;
3653:
3654: IF l_overship_invoice_basis = 'SHIPPED' then
3655: p_x_line_rec.ordered_quantity := nvl(l_ref_line_rec.shipped_quantity, l_ref_line_rec.ordered_quantity);
3656: ELSE
3655: p_x_line_rec.ordered_quantity := nvl(l_ref_line_rec.shipped_quantity, l_ref_line_rec.ordered_quantity);
3656: ELSE
3657: p_x_line_rec.ordered_quantity := l_ref_line_rec.ordered_quantity;
3658: end if;
3659: oe_debug_pub.add( ' p_x_line_rec.ordered_quantity = '|| p_x_line_rec.ordered_quantity, 5 ) ;
3660: -- bug# 6617423 : End
3661:
3662: p_x_line_rec.order_quantity_uom := l_ref_line_rec.order_quantity_uom;
3663:
3801: END IF;
3802:
3803: --RT{
3804: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
3805: oe_debug_pub.add('Retro:ref_head_id:'||l_ref_line_rec.header_id||' line_id:'||l_ref_line_rec.line_id);
3806: Oe_Retrobill_Pvt.Get_Return_Price(p_header_id=> l_ref_line_rec.header_id,
3807: p_line_id => l_ref_line_rec.line_id,
3808: p_ordered_qty => p_x_line_rec.ordered_quantity, --bug3540728
3809: p_pricing_qty => p_x_line_rec.pricing_quantity, --bug3540728
3903: IF x_item_rec.ont_pricing_qty_source = 'S' THEN -- INVCONV
3904: -- x_item_rec.tracking_quantity_ind = 'P' AND -- INVCONV - TAKE OUT AS OPENED UP TO ANY ITEM AND ORG
3905: -- x_item_rec.wms_enabled_flag = 'Y' THEN
3906: IF l_debug_level > 0 THEN
3907: oe_debug_pub.add( 'Discrete Catchweight enabled. l_ref_line_rec.shipped_quantity2: '|| l_ref_line_rec.shipped_quantity2||
3908: ': 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);
3909: END IF;
3910: p_x_line_rec.ordered_quantity2 := l_ref_line_rec.shipped_quantity2/ l_ref_line_rec.ordered_quantity * p_x_line_rec.ordered_quantity;
3911: p_x_line_rec.ordered_quantity_uom2 := x_item_rec.secondary_uom_code;
3918: p_x_line_rec.pricing_quantity_uom,
3919: p_x_line_rec.ordered_quantity2
3920: );
3921: IF l_debug_level > 0 THEN
3922: oe_debug_pub.add( 'p_x_line_rec.pricing_quantity:'|| p_x_line_rec.pricing_quantity);
3923: END IF;
3924: END IF; -- end check for pricing uom, shipping uom2
3925: END IF; -- check for discrete catchweight
3926: END IF; -- end checks for item org existence
3990:
3991: IF l_revision_controlled = 'Y' THEN
3992:
3993: IF l_debug_level > 0 THEN
3994: oe_debug_pub.add( 'THE ITEM IS REVISION CONTROLLED' ) ;
3995: END IF;
3996:
3997: Begin
3998: select distinct revision
4011: When Too_Many_Rows Then
4012: p_x_line_rec.item_revision := NULL;
4013: End;
4014: IF l_debug_level > 0 THEN
4015: oe_debug_pub.add( 'THE ITEM REVISION IS: '|| P_X_LINE_REC.ITEM_REVISION ) ;
4016: END IF;
4017: END IF;
4018:
4019: END IF;
4049: END IF;
4050: -- Override List Price
4051:
4052: IF l_debug_level > 0 THEN
4053: oe_debug_pub.add( 'EXITING ATTRIBUTES_FROM_ORDER_LINE' , 1 ) ;
4054: END IF;
4055:
4056: END Attributes_From_Order_Line;
4057:
4063: l_defaulting_invoice_line_id NUMBER := NULL;
4064: l_defaulting_order_line_id NUMBER := NULL;
4065: l_line_rec oe_order_pub.line_rec_type;
4066: --
4067: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4068: l_return_status VARCHAR2(1);
4069: l_sold_to_org_id NUMBER;
4070: l_currency_code VARCHAR2(15);
4071:
4073:
4074: BEGIN
4075:
4076: IF l_debug_level > 0 THEN
4077: oe_debug_pub.add( 'INSIDE DEFAULTING RMA' , 1 ) ;
4078: oe_debug_pub.add( 'RMA OPERATION IS'||P_X_LINE_REC.OPERATION , 1 ) ;
4079: END IF;
4080:
4081: IF NOT OE_GLOBALS.Equal(p_x_line_rec.return_attribute2, p_old_line_rec.return_attribute2)
4074: BEGIN
4075:
4076: IF l_debug_level > 0 THEN
4077: oe_debug_pub.add( 'INSIDE DEFAULTING RMA' , 1 ) ;
4078: oe_debug_pub.add( 'RMA OPERATION IS'||P_X_LINE_REC.OPERATION , 1 ) ;
4079: END IF;
4080:
4081: IF NOT OE_GLOBALS.Equal(p_x_line_rec.return_attribute2, p_old_line_rec.return_attribute2)
4082: THEN
4080:
4081: IF NOT OE_GLOBALS.Equal(p_x_line_rec.return_attribute2, p_old_line_rec.return_attribute2)
4082: THEN
4083: IF l_debug_level > 0 THEN
4084: oe_debug_pub.add( 'CLEARING RMA_ATTRIBUTES' , 1 ) ;
4085: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_CONTEXT = '||P_OLD_LINE_REC.RETURN_CONTEXT , 1 ) ;
4086: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE1 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
4087: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE2 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
4088: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE3 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
4081: IF NOT OE_GLOBALS.Equal(p_x_line_rec.return_attribute2, p_old_line_rec.return_attribute2)
4082: THEN
4083: IF l_debug_level > 0 THEN
4084: oe_debug_pub.add( 'CLEARING RMA_ATTRIBUTES' , 1 ) ;
4085: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_CONTEXT = '||P_OLD_LINE_REC.RETURN_CONTEXT , 1 ) ;
4086: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE1 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
4087: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE2 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
4088: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE3 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
4089:
4082: THEN
4083: IF l_debug_level > 0 THEN
4084: oe_debug_pub.add( 'CLEARING RMA_ATTRIBUTES' , 1 ) ;
4085: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_CONTEXT = '||P_OLD_LINE_REC.RETURN_CONTEXT , 1 ) ;
4086: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE1 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
4087: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE2 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
4088: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE3 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
4089:
4090: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_CONTEXT = '||P_X_LINE_REC.RETURN_CONTEXT , 1 ) ;
4083: IF l_debug_level > 0 THEN
4084: oe_debug_pub.add( 'CLEARING RMA_ATTRIBUTES' , 1 ) ;
4085: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_CONTEXT = '||P_OLD_LINE_REC.RETURN_CONTEXT , 1 ) ;
4086: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE1 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
4087: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE2 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
4088: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE3 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
4089:
4090: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_CONTEXT = '||P_X_LINE_REC.RETURN_CONTEXT , 1 ) ;
4091: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE1 = '||P_X_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
4084: oe_debug_pub.add( 'CLEARING RMA_ATTRIBUTES' , 1 ) ;
4085: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_CONTEXT = '||P_OLD_LINE_REC.RETURN_CONTEXT , 1 ) ;
4086: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE1 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
4087: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE2 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
4088: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE3 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
4089:
4090: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_CONTEXT = '||P_X_LINE_REC.RETURN_CONTEXT , 1 ) ;
4091: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE1 = '||P_X_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
4092: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
4086: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE1 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
4087: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE2 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
4088: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE3 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
4089:
4090: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_CONTEXT = '||P_X_LINE_REC.RETURN_CONTEXT , 1 ) ;
4091: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE1 = '||P_X_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
4092: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
4093: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
4094:
4087: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE2 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
4088: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE3 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
4089:
4090: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_CONTEXT = '||P_X_LINE_REC.RETURN_CONTEXT , 1 ) ;
4091: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE1 = '||P_X_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
4092: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
4093: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
4094:
4095: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_id = '|| p_x_line_rec.source_document_id , 1 ) ;
4088: oe_debug_pub.add( ' OLD P_OLD_LINE_REC.RETURN_ATTRIBUTE3 = '||P_OLD_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
4089:
4090: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_CONTEXT = '||P_X_LINE_REC.RETURN_CONTEXT , 1 ) ;
4091: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE1 = '||P_X_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
4092: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
4093: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
4094:
4095: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_id = '|| p_x_line_rec.source_document_id , 1 ) ;
4096: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_line_id = '|| p_x_line_rec.source_document_line_id , 1 ) ;
4089:
4090: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_CONTEXT = '||P_X_LINE_REC.RETURN_CONTEXT , 1 ) ;
4091: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE1 = '||P_X_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
4092: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
4093: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
4094:
4095: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_id = '|| p_x_line_rec.source_document_id , 1 ) ;
4096: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_line_id = '|| p_x_line_rec.source_document_line_id , 1 ) ;
4097: oe_debug_pub.add( ' NEW p_x_line_rec.orig_sys_document_ref = '|| p_x_line_rec.orig_sys_document_ref , 1 ) ;
4091: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE1 = '||P_X_LINE_REC.RETURN_ATTRIBUTE1 , 1 ) ;
4092: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
4093: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
4094:
4095: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_id = '|| p_x_line_rec.source_document_id , 1 ) ;
4096: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_line_id = '|| p_x_line_rec.source_document_line_id , 1 ) ;
4097: oe_debug_pub.add( ' NEW p_x_line_rec.orig_sys_document_ref = '|| p_x_line_rec.orig_sys_document_ref , 1 ) ;
4098: oe_debug_pub.add( ' NEW p_x_line_rec.orig_sys_line_ref = '||p_x_line_rec.orig_sys_line_ref , 1 ) ;
4099: END IF;
4092: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE2 , 1 ) ;
4093: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
4094:
4095: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_id = '|| p_x_line_rec.source_document_id , 1 ) ;
4096: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_line_id = '|| p_x_line_rec.source_document_line_id , 1 ) ;
4097: oe_debug_pub.add( ' NEW p_x_line_rec.orig_sys_document_ref = '|| p_x_line_rec.orig_sys_document_ref , 1 ) ;
4098: oe_debug_pub.add( ' NEW p_x_line_rec.orig_sys_line_ref = '||p_x_line_rec.orig_sys_line_ref , 1 ) ;
4099: END IF;
4100:
4093: oe_debug_pub.add( ' NEW P_X_LINE_REC.RETURN_ATTRIBUTE2 = '||P_X_LINE_REC.RETURN_ATTRIBUTE3 , 1 ) ;
4094:
4095: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_id = '|| p_x_line_rec.source_document_id , 1 ) ;
4096: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_line_id = '|| p_x_line_rec.source_document_line_id , 1 ) ;
4097: oe_debug_pub.add( ' NEW p_x_line_rec.orig_sys_document_ref = '|| p_x_line_rec.orig_sys_document_ref , 1 ) ;
4098: oe_debug_pub.add( ' NEW p_x_line_rec.orig_sys_line_ref = '||p_x_line_rec.orig_sys_line_ref , 1 ) ;
4099: END IF;
4100:
4101: -- Backup the passed in record.
4094:
4095: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_id = '|| p_x_line_rec.source_document_id , 1 ) ;
4096: oe_debug_pub.add( ' NEW p_x_line_rec.source_document_line_id = '|| p_x_line_rec.source_document_line_id , 1 ) ;
4097: oe_debug_pub.add( ' NEW p_x_line_rec.orig_sys_document_ref = '|| p_x_line_rec.orig_sys_document_ref , 1 ) ;
4098: oe_debug_pub.add( ' NEW p_x_line_rec.orig_sys_line_ref = '||p_x_line_rec.orig_sys_line_ref , 1 ) ;
4099: END IF;
4100:
4101: -- Backup the passed in record.
4102: l_line_rec := p_x_line_rec;
4165: */
4166:
4167:
4168: IF l_debug_level > 0 THEN
4169: oe_debug_pub.add( ' l_line_rec.ordered_quantity = '||l_line_rec.ordered_quantity,5 ) ;
4170: oe_debug_pub.add( ' l_line_rec.shipped_quantity = '||l_line_rec.shipped_quantity,5 ) ;
4171: oe_debug_pub.add( ' l_line_rec.invoiced_quantity = '||l_line_rec.invoiced_quantity,5 ) ;
4172: oe_debug_pub.add( ' l_line_rec.order_quantity_uom = '||l_line_rec.order_quantity_uom,5 ) ;
4173: oe_debug_pub.add( ' l_line_rec.pricing_quantity = '||l_line_rec.pricing_quantity,5 ) ;
4166:
4167:
4168: IF l_debug_level > 0 THEN
4169: oe_debug_pub.add( ' l_line_rec.ordered_quantity = '||l_line_rec.ordered_quantity,5 ) ;
4170: oe_debug_pub.add( ' l_line_rec.shipped_quantity = '||l_line_rec.shipped_quantity,5 ) ;
4171: oe_debug_pub.add( ' l_line_rec.invoiced_quantity = '||l_line_rec.invoiced_quantity,5 ) ;
4172: oe_debug_pub.add( ' l_line_rec.order_quantity_uom = '||l_line_rec.order_quantity_uom,5 ) ;
4173: oe_debug_pub.add( ' l_line_rec.pricing_quantity = '||l_line_rec.pricing_quantity,5 ) ;
4174: oe_debug_pub.add( ' l_line_rec.pricing_quantity_uom = '||l_line_rec.pricing_quantity_uom,5 ) ;
4167:
4168: IF l_debug_level > 0 THEN
4169: oe_debug_pub.add( ' l_line_rec.ordered_quantity = '||l_line_rec.ordered_quantity,5 ) ;
4170: oe_debug_pub.add( ' l_line_rec.shipped_quantity = '||l_line_rec.shipped_quantity,5 ) ;
4171: oe_debug_pub.add( ' l_line_rec.invoiced_quantity = '||l_line_rec.invoiced_quantity,5 ) ;
4172: oe_debug_pub.add( ' l_line_rec.order_quantity_uom = '||l_line_rec.order_quantity_uom,5 ) ;
4173: oe_debug_pub.add( ' l_line_rec.pricing_quantity = '||l_line_rec.pricing_quantity,5 ) ;
4174: oe_debug_pub.add( ' l_line_rec.pricing_quantity_uom = '||l_line_rec.pricing_quantity_uom,5 ) ;
4175: oe_debug_pub.add( ' p_x_line_rec.org_id = '||p_x_line_rec.org_id ,5) ;
4168: IF l_debug_level > 0 THEN
4169: oe_debug_pub.add( ' l_line_rec.ordered_quantity = '||l_line_rec.ordered_quantity,5 ) ;
4170: oe_debug_pub.add( ' l_line_rec.shipped_quantity = '||l_line_rec.shipped_quantity,5 ) ;
4171: oe_debug_pub.add( ' l_line_rec.invoiced_quantity = '||l_line_rec.invoiced_quantity,5 ) ;
4172: oe_debug_pub.add( ' l_line_rec.order_quantity_uom = '||l_line_rec.order_quantity_uom,5 ) ;
4173: oe_debug_pub.add( ' l_line_rec.pricing_quantity = '||l_line_rec.pricing_quantity,5 ) ;
4174: oe_debug_pub.add( ' l_line_rec.pricing_quantity_uom = '||l_line_rec.pricing_quantity_uom,5 ) ;
4175: oe_debug_pub.add( ' p_x_line_rec.org_id = '||p_x_line_rec.org_id ,5) ;
4176: oe_debug_pub.add( ' p_x_line_rec.ordered_quantity = '|| p_x_line_rec.ordered_quantity,5 ) ;
4169: oe_debug_pub.add( ' l_line_rec.ordered_quantity = '||l_line_rec.ordered_quantity,5 ) ;
4170: oe_debug_pub.add( ' l_line_rec.shipped_quantity = '||l_line_rec.shipped_quantity,5 ) ;
4171: oe_debug_pub.add( ' l_line_rec.invoiced_quantity = '||l_line_rec.invoiced_quantity,5 ) ;
4172: oe_debug_pub.add( ' l_line_rec.order_quantity_uom = '||l_line_rec.order_quantity_uom,5 ) ;
4173: oe_debug_pub.add( ' l_line_rec.pricing_quantity = '||l_line_rec.pricing_quantity,5 ) ;
4174: oe_debug_pub.add( ' l_line_rec.pricing_quantity_uom = '||l_line_rec.pricing_quantity_uom,5 ) ;
4175: oe_debug_pub.add( ' p_x_line_rec.org_id = '||p_x_line_rec.org_id ,5) ;
4176: oe_debug_pub.add( ' p_x_line_rec.ordered_quantity = '|| p_x_line_rec.ordered_quantity,5 ) ;
4177: END IF;
4170: oe_debug_pub.add( ' l_line_rec.shipped_quantity = '||l_line_rec.shipped_quantity,5 ) ;
4171: oe_debug_pub.add( ' l_line_rec.invoiced_quantity = '||l_line_rec.invoiced_quantity,5 ) ;
4172: oe_debug_pub.add( ' l_line_rec.order_quantity_uom = '||l_line_rec.order_quantity_uom,5 ) ;
4173: oe_debug_pub.add( ' l_line_rec.pricing_quantity = '||l_line_rec.pricing_quantity,5 ) ;
4174: oe_debug_pub.add( ' l_line_rec.pricing_quantity_uom = '||l_line_rec.pricing_quantity_uom,5 ) ;
4175: oe_debug_pub.add( ' p_x_line_rec.org_id = '||p_x_line_rec.org_id ,5) ;
4176: oe_debug_pub.add( ' p_x_line_rec.ordered_quantity = '|| p_x_line_rec.ordered_quantity,5 ) ;
4177: END IF;
4178:
4171: oe_debug_pub.add( ' l_line_rec.invoiced_quantity = '||l_line_rec.invoiced_quantity,5 ) ;
4172: oe_debug_pub.add( ' l_line_rec.order_quantity_uom = '||l_line_rec.order_quantity_uom,5 ) ;
4173: oe_debug_pub.add( ' l_line_rec.pricing_quantity = '||l_line_rec.pricing_quantity,5 ) ;
4174: oe_debug_pub.add( ' l_line_rec.pricing_quantity_uom = '||l_line_rec.pricing_quantity_uom,5 ) ;
4175: oe_debug_pub.add( ' p_x_line_rec.org_id = '||p_x_line_rec.org_id ,5) ;
4176: oe_debug_pub.add( ' p_x_line_rec.ordered_quantity = '|| p_x_line_rec.ordered_quantity,5 ) ;
4177: END IF;
4178:
4179:
4172: oe_debug_pub.add( ' l_line_rec.order_quantity_uom = '||l_line_rec.order_quantity_uom,5 ) ;
4173: oe_debug_pub.add( ' l_line_rec.pricing_quantity = '||l_line_rec.pricing_quantity,5 ) ;
4174: oe_debug_pub.add( ' l_line_rec.pricing_quantity_uom = '||l_line_rec.pricing_quantity_uom,5 ) ;
4175: oe_debug_pub.add( ' p_x_line_rec.org_id = '||p_x_line_rec.org_id ,5) ;
4176: oe_debug_pub.add( ' p_x_line_rec.ordered_quantity = '|| p_x_line_rec.ordered_quantity,5 ) ;
4177: END IF;
4178:
4179:
4180: IF OE_GLOBALS.G_RETURN_CHILDREN_MODE = 'Y' OR NOT (OE_GLOBALS.G_UI_FLAG) THEN
4181: p_x_line_rec.ordered_quantity := l_line_rec.ordered_quantity; -- bug# 6617423 -----bug#9854947: Uncommenting the code
4182: ---bug#9854947 : commenting the following ER's code : this is unwanted
4183: /*
4184: -- bug# 6617423 : start
4185: oe_debug_pub.add( '
4187: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',NULL);
4188: ELSE
4189: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',p_x_line_rec.org_id);
4187: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',NULL);
4188: ELSE
4189: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',p_x_line_rec.org_id);
4190: END IF;
4191: oe_debug_pub.add( '
4193: IF l_overship_invoice_basis = 'SHIPPED' then
4194: p_x_line_rec.ordered_quantity := nvl(l_line_rec.shipped_quantity, l_line_rec.ordered_quantity);
4195: ELSE
4194: p_x_line_rec.ordered_quantity := nvl(l_line_rec.shipped_quantity, l_line_rec.ordered_quantity);
4195: ELSE
4196: p_x_line_rec.ordered_quantity := l_line_rec.ordered_quantity;
4197: end if;
4198: oe_debug_pub.add( ' p_x_line_rec.ordered_quantity = '|| p_x_line_rec.ordered_quantity , 5 ) ;
4199: -- bug# 6617423 : End
4200: */
4201: ---bug#9854947 : End
4202:
4203: p_x_line_rec.order_quantity_uom := l_line_rec.order_quantity_uom;
4204: p_x_line_rec.pricing_quantity := l_line_rec.pricing_quantity;
4205: p_x_line_rec.pricing_quantity_uom := l_line_rec.pricing_quantity_uom;
4206: IF l_debug_level > 0 THEN
4207: oe_debug_pub.add( 'THE ORDERED QTY IS SET = '||p_x_line_rec.ordered_quantity ) ;
4208: END IF;
4209: END IF;
4210:
4211: IF p_x_line_rec.source_document_type_id = 2 THEN
4215: IF p_x_line_rec.source_document_type_id = 2 OR OE_GLOBALS.G_RETURN_CHILDREN_MODE = 'Y' THEN
4216: p_x_line_rec.calculate_price_flag := l_line_rec.calculate_price_flag;
4217: p_x_line_rec.pricing_date := l_line_rec.pricing_date;
4218: IF l_debug_level > 0 THEN
4219: oe_debug_pub.add( 'CALCULATE PRICE FLAG : '||P_X_LINE_REC.CALCULATE_PRICE_FLAG ) ;
4220: oe_debug_pub.add( 'PRICING DATE : '||P_X_LINE_REC.PRICING_DATE ) ;
4221: END IF;
4222: END IF;
4223:
4216: p_x_line_rec.calculate_price_flag := l_line_rec.calculate_price_flag;
4217: p_x_line_rec.pricing_date := l_line_rec.pricing_date;
4218: IF l_debug_level > 0 THEN
4219: oe_debug_pub.add( 'CALCULATE PRICE FLAG : '||P_X_LINE_REC.CALCULATE_PRICE_FLAG ) ;
4220: oe_debug_pub.add( 'PRICING DATE : '||P_X_LINE_REC.PRICING_DATE ) ;
4221: END IF;
4222: END IF;
4223:
4224: -- Fix for the issue 2347377. Retain the flex values if sent in
4225: -- by NON-UI call like (OrderImport) / COPY.
4226:
4227: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4228: IF l_debug_level > 0 THEN
4229: oe_debug_pub.add('Context is' ||P_X_LINE_REC.context);
4230: oe_debug_pub.add('Attribute 1 is : '||P_X_LINE_REC.attribute1);
4231: END IF;
4232:
4233: -- Retain the Line DFF info
4226:
4227: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4228: IF l_debug_level > 0 THEN
4229: oe_debug_pub.add('Context is' ||P_X_LINE_REC.context);
4230: oe_debug_pub.add('Attribute 1 is : '||P_X_LINE_REC.attribute1);
4231: END IF;
4232:
4233: -- Retain the Line DFF info
4234: p_x_line_rec.context := l_line_rec.context;
4355: p_x_line_rec.return_attribute2 <> FND_API.G_MISS_CHAR
4356: THEN
4357:
4358: IF l_debug_level > 0 THEN
4359: oe_debug_pub.add( 'IN DEFAULT RETURN ATTRIBUTES' , 1 ) ;
4360: END IF;
4361:
4362: -- reprice when pricing attributes change
4363: -- also if the flag is passed in, keep the original flag
4364: IF (p_x_line_rec.calculate_price_flag IS NULL OR
4365: p_x_line_rec.calculate_price_flag = FND_API.G_MISS_CHAR)
4366: THEN
4367: IF l_debug_level > 0 THEN
4368: oe_debug_pub.add( 'SETTING CALCULATE PRICE FLAG' , 1 ) ;
4369: END IF;
4370: p_x_line_rec.calculate_price_flag := 'N';
4371:
4372: END IF;
4371:
4372: END IF;
4373:
4374: IF l_debug_level > 0 THEN
4375: oe_debug_pub.add( 'IN DEFAULT RETURN ATTRIBUTES -1' , 1 ) ;
4376: END IF;
4377:
4378: IF NOT OE_GLOBALS.Equal(p_x_line_rec.return_attribute2, p_old_line_rec.return_attribute2) THEN
4379:
4382: l_sold_to_org_id := OE_ORDER_CACHE.g_header_rec.SOLD_TO_ORG_ID;
4383: l_currency_code := OE_ORDER_CACHE.g_header_rec.transactional_curr_code;
4384:
4385: IF l_debug_level > 0 THEN
4386: oe_debug_pub.add( 'IN DEFAULT RETURN ATTRIBUTES 0' , 1 ) ;
4387: oe_debug_pub.add('Sold To Org Id IS '|| l_sold_to_org_id , 1 ) ;
4388: oe_debug_pub.add('Header Currency IS '||l_currency_code , 1 ) ;
4389: END IF;
4390: -- default attributes from invoice line
4383: l_currency_code := OE_ORDER_CACHE.g_header_rec.transactional_curr_code;
4384:
4385: IF l_debug_level > 0 THEN
4386: oe_debug_pub.add( 'IN DEFAULT RETURN ATTRIBUTES 0' , 1 ) ;
4387: oe_debug_pub.add('Sold To Org Id IS '|| l_sold_to_org_id , 1 ) ;
4388: oe_debug_pub.add('Header Currency IS '||l_currency_code , 1 ) ;
4389: END IF;
4390: -- default attributes from invoice line
4391: l_defaulting_invoice_line_id := Get_Def_Invoice_Line_Int
4384:
4385: IF l_debug_level > 0 THEN
4386: oe_debug_pub.add( 'IN DEFAULT RETURN ATTRIBUTES 0' , 1 ) ;
4387: oe_debug_pub.add('Sold To Org Id IS '|| l_sold_to_org_id , 1 ) ;
4388: oe_debug_pub.add('Header Currency IS '||l_currency_code , 1 ) ;
4389: END IF;
4390: -- default attributes from invoice line
4391: l_defaulting_invoice_line_id := Get_Def_Invoice_Line_Int
4392: (p_x_line_rec.return_context,
4395: l_sold_to_org_id,
4396: l_currency_code,
4397: l_defaulting_order_line_id);
4398: IF l_debug_level > 0 THEN
4399: oe_debug_pub.add( 'IN DEFAULT RETURN ATTRIBUTES 1' , 1 ) ;
4400: END IF;
4401:
4402: -- Since only one serial number can be entered from the reference
4403: -- set the Ordered_quantity to 1.
4416: p_x_line_rec => p_x_line_rec);
4417: END IF;
4418:
4419: IF l_debug_level > 0 THEN
4420: oe_debug_pub.add( 'IN DEFAULT RETURN ATTRIBUTES 2' , 1 ) ;
4421: END IF;
4422:
4423: Attributes_From_Order_Line
4424: (p_order_line_id => l_defaulting_order_line_id,
4424: (p_order_line_id => l_defaulting_order_line_id,
4425: p_x_line_rec => p_x_line_rec);
4426:
4427: IF l_debug_level > 0 THEN
4428: oe_debug_pub.add( 'IN DEFAULT RETURN ATTRIBUTES 4' , 1 ) ;
4429: END IF;
4430:
4431: -- Clear attributes that do not make sense to returns
4432: p_x_line_rec.shipped_quantity := NULL;
4466: , p_validation_level => OE_GLOBALS.G_VALID_PARTIAL_WITH_DEF); */ --bug 14698931
4467: ---Start bug# 14698931
4468: if OE_GLOBALS.g_validate_desc_flex ='Y' then
4469: if l_debug_level>0 then
4470: oe_debug_pub.add(' do not validate DFF , setting OE_GLOBALS.G_validate_desc_flex ');
4471: end if;
4472:
4473: OE_GLOBALS.g_validate_desc_flex := 'N' ;
4474: OE_Validate_Line.Attributes(
4486: end if ;
4487: ---End bug# 14698931
4488:
4489: IF l_debug_level > 0 THEN
4490: oe_debug_pub.add( 'THE ORDERED QTY IS '||P_X_LINE_REC.ORDERED_QUANTITY ) ;
4491: oe_debug_pub.add( 'THE PRICING QTY IS '||P_X_LINE_REC.PRICING_QUANTITY ) ;
4492: END IF;
4493: END IF; --IF NOT OE_GLOBALS.Equal(p_x_line_rec.return_attribute2,....
4494:
4487: ---End bug# 14698931
4488:
4489: IF l_debug_level > 0 THEN
4490: oe_debug_pub.add( 'THE ORDERED QTY IS '||P_X_LINE_REC.ORDERED_QUANTITY ) ;
4491: oe_debug_pub.add( 'THE PRICING QTY IS '||P_X_LINE_REC.PRICING_QUANTITY ) ;
4492: END IF;
4493: END IF; --IF NOT OE_GLOBALS.Equal(p_x_line_rec.return_attribute2,....
4494:
4495: END IF; --- IF p_x_line_rec.return_attribute2 is NOT NULL
4519:
4520: l_exists VARCHAR2(1);
4521: l_party_type VARCHAR2(30);
4522: --
4523: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4524: --
4525: BEGIN
4526:
4527: IF l_debug_level > 0 THEN
4524: --
4525: BEGIN
4526:
4527: IF l_debug_level > 0 THEN
4528: oe_debug_pub.add( 'ENTER OE_DEFAULT_LINE.ATTRIBUTES' , 1 ) ;
4529: END IF;
4530: fnd_profile.get('ONT_IMP_MULTIPLE_SHIPMENTS', g_multiple_shipments);
4531: g_multiple_shipments := nvl(g_multiple_shipments, 'NO');
4532:
4589: g_line_rec.line_id := Get_Line;
4590: END IF;
4591: -- Fix for 2362210
4592: IF l_debug_level > 0 THEN
4593: oe_debug_pub.add( 'LINE ID = '||G_LINE_REC.LINE_ID ) ;
4594: oe_debug_pub.add( 'LINE SYS = '||G_LINE_REC.ORIG_SYS_LINE_REF ) ;
4595: oe_debug_pub.add( 'SOURCE_DOCUMENT_ID = '|| G_LINE_REC.SOURCE_DOCUMENT_ID ) ;
4596: END IF;
4597: IF ((g_line_rec.orig_sys_line_ref = FND_API.G_MISS_CHAR
4590: END IF;
4591: -- Fix for 2362210
4592: IF l_debug_level > 0 THEN
4593: oe_debug_pub.add( 'LINE ID = '||G_LINE_REC.LINE_ID ) ;
4594: oe_debug_pub.add( 'LINE SYS = '||G_LINE_REC.ORIG_SYS_LINE_REF ) ;
4595: oe_debug_pub.add( 'SOURCE_DOCUMENT_ID = '|| G_LINE_REC.SOURCE_DOCUMENT_ID ) ;
4596: END IF;
4597: IF ((g_line_rec.orig_sys_line_ref = FND_API.G_MISS_CHAR
4598: OR g_line_rec.orig_sys_line_ref IS NULL)
4591: -- Fix for 2362210
4592: IF l_debug_level > 0 THEN
4593: oe_debug_pub.add( 'LINE ID = '||G_LINE_REC.LINE_ID ) ;
4594: oe_debug_pub.add( 'LINE SYS = '||G_LINE_REC.ORIG_SYS_LINE_REF ) ;
4595: oe_debug_pub.add( 'SOURCE_DOCUMENT_ID = '|| G_LINE_REC.SOURCE_DOCUMENT_ID ) ;
4596: END IF;
4597: IF ((g_line_rec.orig_sys_line_ref = FND_API.G_MISS_CHAR
4598: OR g_line_rec.orig_sys_line_ref IS NULL)
4599: AND
4610: IF g_line_rec.line_category_code = FND_API.G_MISS_CHAR THEN
4611: g_line_rec.line_category_code :=
4612: Get_line_category(g_line_rec,p_old_line_rec);
4613: IF l_debug_level > 0 THEN
4614: oe_debug_pub.add( 'AFTER CALLING LINE CATEGORY1' || G_LINE_REC.LINE_CATEGORY_CODE ) ;
4615: END IF;
4616:
4617: /* Added for the BUG #3257965.
4618: For update operation need to raise an error for line_category_code. */
4631: ELSE
4632: FND_MESSAGE.SET_NAME('ONT', 'OE_LINE_CAT_CONST');
4633: OE_MSG_PUB.ADD;
4634: IF l_debug_level > 0 THEN
4635: oe_debug_pub.add( 'LINE CATEGORY CONSTRINED' ) ;
4636: END IF;
4637: RAISE FND_API.G_EXC_ERROR;
4638: END IF;
4639: END IF;
4647: NOT OE_GLOBALS.Equal(g_line_rec.line_category_code,
4648: p_old_line_rec.line_category_code)
4649: THEN
4650: IF l_debug_level > 0 THEN
4651: oe_debug_pub.add('LINE CATEGORY CHANGED - REASON set to miss') ;
4652: END IF;
4653: g_line_rec.return_reason_code := FND_API.G_MISS_CHAR;
4654: END IF;
4655:
4664: OE_Order_Cache.clear_top_model_line(g_line_rec.top_model_line_id);
4665: END IF;
4666:
4667: IF l_debug_level > 0 THEN
4668: oe_debug_pub.add( 'BEFORE ITEM_TYPE' ) ;
4669: END IF;
4670: IF g_line_rec.item_type_code = FND_API.G_MISS_CHAR
4671: or NOT OE_GLOBALS.Equal(g_line_rec.line_category_code,
4672: p_old_line_rec.line_category_code)
4682:
4683: IF NOT OE_GLOBALS.Equal(p_old_line_rec.inventory_item_id,
4684: g_line_rec.inventory_item_id) THEN
4685: IF l_debug_level > 0 THEN
4686: oe_debug_pub.add( 'CALLING GET_SMC' , 3 ) ;
4687: END IF;
4688: g_line_rec.ship_model_complete_flag := Get_SMC_Flag;
4689: IF l_debug_level > 0 THEN
4690: oe_debug_pub.add( 'CALLING GET_ATO' , 3 ) ;
4686: oe_debug_pub.add( 'CALLING GET_SMC' , 3 ) ;
4687: END IF;
4688: g_line_rec.ship_model_complete_flag := Get_SMC_Flag;
4689: IF l_debug_level > 0 THEN
4690: oe_debug_pub.add( 'CALLING GET_ATO' , 3 ) ;
4691: END IF;
4692: g_line_rec.ato_line_id := Get_Ato_Line;
4693: END IF;
4694:
4769: g_line_rec.shipping_interfaced_flag := Get_Shipping_Interfaced;
4770: END IF;
4771:
4772: IF l_debug_level > 0 THEN
4773: oe_debug_pub.add( 'AK BEFORE LINE CATEGORY1' ) ;
4774: END IF;
4775:
4776: /* IF g_line_rec.line_category_code = FND_API.G_MISS_CHAR THEN
4777: g_line_rec.line_category_code :=
4802:
4803: /* Start Fix for 2420456*/
4804:
4805: IF l_debug_level > 0 THEN
4806: oe_debug_pub.add( 'TOLERANCE BELOW : '||G_LINE_REC.SHIP_TOLERANCE_BELOW , 3 ) ;
4807: oe_debug_pub.add( 'TOLERANCE BELOW : '||P_OLD_LINE_REC.SHIP_TOLERANCE_BELOW , 3 ) ;
4808: END IF;
4809:
4810: IF nvl(g_line_rec.top_model_line_id,0) <> nvl(g_line_rec.ato_line_id,0) AND
4803: /* Start Fix for 2420456*/
4804:
4805: IF l_debug_level > 0 THEN
4806: oe_debug_pub.add( 'TOLERANCE BELOW : '||G_LINE_REC.SHIP_TOLERANCE_BELOW , 3 ) ;
4807: oe_debug_pub.add( 'TOLERANCE BELOW : '||P_OLD_LINE_REC.SHIP_TOLERANCE_BELOW , 3 ) ;
4808: END IF;
4809:
4810: IF nvl(g_line_rec.top_model_line_id,0) <> nvl(g_line_rec.ato_line_id,0) AND
4811: g_line_rec.top_model_line_id IS NOT NULL THEN
4818: g_line_rec.ship_tolerance_below = p_old_Line_rec.ship_tolerance_below THEN
4819: g_line_rec.ship_tolerance_below := 0;
4820: l_set_tolerance_below := 'Y';
4821: IF l_debug_level > 0 THEN
4822: oe_debug_pub.add( 'SET THE TOLERANCES BELOW TO 0 ' , 3 ) ;
4823: END IF;
4824:
4825: END IF;
4826:
4829: g_line_rec.ship_tolerance_above = p_old_Line_rec.ship_tolerance_above THEN
4830: g_line_rec.ship_tolerance_above := 0;
4831: l_set_tolerance_above := 'Y';
4832: IF l_debug_level > 0 THEN
4833: oe_debug_pub.add( 'SET THE TOLERANCES ABOVE TO 0 ' , 3 ) ;
4834: END IF;
4835:
4836: END IF;
4837:
4842: (nvl(g_line_rec.ship_tolerance_below,0) <> 0 OR
4843: nvl(g_line_rec.ship_tolerance_above,0) <> 0 )THEN
4844:
4845: IF l_debug_level > 0 THEN
4846: oe_debug_pub.add( 'SHIP TOLERANCES CAN NOT BE SPECIFIED ON PTOS' , 3 ) ;
4847: END IF;
4848: fnd_message.set_name('ONT','OE_NO_TOL_FOR_PTO');
4849: OE_MSG_PUB.Add;
4850: RAISE FND_API.G_EXC_ERROR;
4883:
4884: -- Call the default handler framework to default the missing attributes
4885:
4886: IF l_debug_level > 0 THEN
4887: oe_debug_pub.add( 'IN2 LINE NUMBER :'||L_IN_REC.LINE_NUMBER ) ;
4888: END IF;
4889:
4890: l_rec := l_in_rec;
4891:
4922:
4923: l_rec.party_type := l_party_type;
4924:
4925: IF l_debug_level > 0 then
4926: oe_debug_pub.add('party type in defaulting is: '||l_party_type, 3);
4927: END IF;
4928: END IF;
4929: END IF;
4930:
4944: )
4945: THEN
4946:
4947: if l_debug_level > 0 then
4948: oe_debug_pub.add('Blkt Num or Request Date changed');
4949: end if;
4950:
4951: Perform_Blanket_Functions
4952: (p_x_line_rec => l_rec
4968: If p_x_Line_rec.subscription_enable_flag is NULL OR
4969: p_x_Line_rec.subscription_enable_flag = FND_API.G_MISS_CHAR THEN
4970: p_x_Line_rec.subscription_enable_flag := g_line_rec.subscription_enable_flag;
4971: if l_debug_level > 0 then
4972: oe_debug_pub.add( 'SK OEXDLINB.pls 16 after RowType_Rec_to_API_Rec, '||p_x_Line_rec.subscription_enable_flag);
4973: End If;
4974: End If;
4975: -- sol_ord_er #16014165 end
4976:
5005: End If;
5006:
5007:
5008: IF l_debug_level > 0 THEN
5009: oe_debug_pub.add( 'AFTER DEFAULTING LINE CATEGORY1' || P_X_LINE_REC.LINE_CATEGORY_CODE ) ;
5010: END IF;
5011:
5012: IF p_x_line_rec.line_category_code = FND_API.G_MISS_CHAR OR -- added for 2421909
5013: p_x_line_rec.line_category_code IS NULL THEN
5012: IF p_x_line_rec.line_category_code = FND_API.G_MISS_CHAR OR -- added for 2421909
5013: p_x_line_rec.line_category_code IS NULL THEN
5014: p_x_line_rec.line_category_code := Get_line_category(p_x_line_rec,p_old_line_rec);
5015: IF l_debug_level > 0 THEN
5016: oe_debug_pub.add( 'AFTER CALLING LINE CATEGORY2' || P_X_LINE_REC.LINE_CATEGORY_CODE , 1 ) ;
5017: END IF;
5018: END IF;
5019:
5020: -- Copy the value back to the out record for marketing source code.
5028:
5029:
5030: --Code moved for bug 3737773 -starts here
5031: IF l_debug_level > 0 THEN
5032: oe_debug_pub.add( ' Before Defaulting P_Qty and P_Qty_Uom Values:' , 1 ) ;
5033: oe_debug_pub.add(' Pricing Qty: '|| p_x_line_rec.pricing_quantity ,1);
5034: oe_debug_pub.add(' Pricing UOM: '|| p_x_line_rec.pricing_quantity_uom,1 );
5035: oe_debug_pub.add(' Ordered Qty: '|| p_x_line_rec.ordered_quantity ,1);
5036: oe_debug_pub.add(' Ordered UOM: '|| p_x_line_rec.order_quantity_uom,1);
5029:
5030: --Code moved for bug 3737773 -starts here
5031: IF l_debug_level > 0 THEN
5032: oe_debug_pub.add( ' Before Defaulting P_Qty and P_Qty_Uom Values:' , 1 ) ;
5033: oe_debug_pub.add(' Pricing Qty: '|| p_x_line_rec.pricing_quantity ,1);
5034: oe_debug_pub.add(' Pricing UOM: '|| p_x_line_rec.pricing_quantity_uom,1 );
5035: oe_debug_pub.add(' Ordered Qty: '|| p_x_line_rec.ordered_quantity ,1);
5036: oe_debug_pub.add(' Ordered UOM: '|| p_x_line_rec.order_quantity_uom,1);
5037: END IF;
5030: --Code moved for bug 3737773 -starts here
5031: IF l_debug_level > 0 THEN
5032: oe_debug_pub.add( ' Before Defaulting P_Qty and P_Qty_Uom Values:' , 1 ) ;
5033: oe_debug_pub.add(' Pricing Qty: '|| p_x_line_rec.pricing_quantity ,1);
5034: oe_debug_pub.add(' Pricing UOM: '|| p_x_line_rec.pricing_quantity_uom,1 );
5035: oe_debug_pub.add(' Ordered Qty: '|| p_x_line_rec.ordered_quantity ,1);
5036: oe_debug_pub.add(' Ordered UOM: '|| p_x_line_rec.order_quantity_uom,1);
5037: END IF;
5038:
5031: IF l_debug_level > 0 THEN
5032: oe_debug_pub.add( ' Before Defaulting P_Qty and P_Qty_Uom Values:' , 1 ) ;
5033: oe_debug_pub.add(' Pricing Qty: '|| p_x_line_rec.pricing_quantity ,1);
5034: oe_debug_pub.add(' Pricing UOM: '|| p_x_line_rec.pricing_quantity_uom,1 );
5035: oe_debug_pub.add(' Ordered Qty: '|| p_x_line_rec.ordered_quantity ,1);
5036: oe_debug_pub.add(' Ordered UOM: '|| p_x_line_rec.order_quantity_uom,1);
5037: END IF;
5038:
5039: -- The code below is not required when order created from UI, but is required for the orders created/update othe sources like Process Order
5032: oe_debug_pub.add( ' Before Defaulting P_Qty and P_Qty_Uom Values:' , 1 ) ;
5033: oe_debug_pub.add(' Pricing Qty: '|| p_x_line_rec.pricing_quantity ,1);
5034: oe_debug_pub.add(' Pricing UOM: '|| p_x_line_rec.pricing_quantity_uom,1 );
5035: oe_debug_pub.add(' Ordered Qty: '|| p_x_line_rec.ordered_quantity ,1);
5036: oe_debug_pub.add(' Ordered UOM: '|| p_x_line_rec.order_quantity_uom,1);
5037: END IF;
5038:
5039: -- The code below is not required when order created from UI, but is required for the orders created/update othe sources like Process Order
5040: -- and Order Import. The Pricing Quantity and UOM is anyways returned by Pricing Engine in case UI. Added condition accordingly for bug 7675652.
5051: p_x_line_rec.pricing_quantity := Get_Pricing_Quantity;
5052: --Added the message after review. May be value -99999 is returned when no conversion exists.
5053: if(p_x_line_rec.pricing_quantity = -99999) Then
5054: IF l_debug_level > 0 THEN
5055: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
5056: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
5057: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
5058: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
5059: oe_debug_pub.add( ' Conversion does not exists' , 1 ) ;
5052: --Added the message after review. May be value -99999 is returned when no conversion exists.
5053: if(p_x_line_rec.pricing_quantity = -99999) Then
5054: IF l_debug_level > 0 THEN
5055: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
5056: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
5057: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
5058: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
5059: oe_debug_pub.add( ' Conversion does not exists' , 1 ) ;
5060: END IF;
5053: if(p_x_line_rec.pricing_quantity = -99999) Then
5054: IF l_debug_level > 0 THEN
5055: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
5056: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
5057: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
5058: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
5059: oe_debug_pub.add( ' Conversion does not exists' , 1 ) ;
5060: END IF;
5061:
5054: IF l_debug_level > 0 THEN
5055: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
5056: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
5057: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
5058: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
5059: oe_debug_pub.add( ' Conversion does not exists' , 1 ) ;
5060: END IF;
5061:
5062: FND_MESSAGE.SET_NAME('ONT', 'ONT_PRC_INVALID_UOM_CONVERSION');
5055: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
5056: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
5057: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
5058: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
5059: oe_debug_pub.add( ' Conversion does not exists' , 1 ) ;
5060: END IF;
5061:
5062: FND_MESSAGE.SET_NAME('ONT', 'ONT_PRC_INVALID_UOM_CONVERSION');
5063: fnd_message.set_token('UOM_TEXT',p_x_line_rec.pricing_quantity_uom);
5073: p_x_line_rec.pricing_quantity_uom := p_x_line_rec.order_quantity_uom;
5074: ELSE --P_QTY is not equal to O_QTY and P_UOM is Not Populated
5075: --RAISE ERROR
5076: IF l_debug_level > 0 THEN
5077: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
5078: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
5079: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
5080: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
5081: oe_debug_pub.add( ' Pricing Qty is not equal to Ord Qty and P_UOM is not populated' , 1 ) ;
5074: ELSE --P_QTY is not equal to O_QTY and P_UOM is Not Populated
5075: --RAISE ERROR
5076: IF l_debug_level > 0 THEN
5077: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
5078: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
5079: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
5080: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
5081: oe_debug_pub.add( ' Pricing Qty is not equal to Ord Qty and P_UOM is not populated' , 1 ) ;
5082: END IF;
5075: --RAISE ERROR
5076: IF l_debug_level > 0 THEN
5077: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
5078: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
5079: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
5080: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
5081: oe_debug_pub.add( ' Pricing Qty is not equal to Ord Qty and P_UOM is not populated' , 1 ) ;
5082: END IF;
5083: --commented for bug 11778250
5076: IF l_debug_level > 0 THEN
5077: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
5078: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
5079: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
5080: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
5081: oe_debug_pub.add( ' Pricing Qty is not equal to Ord Qty and P_UOM is not populated' , 1 ) ;
5082: END IF;
5083: --commented for bug 11778250
5084: /*IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
5077: oe_debug_pub.add(' Pricing Qty '|| p_x_line_rec.pricing_quantity ,1);
5078: oe_debug_pub.add(' Pricing UOM '|| p_x_line_rec.pricing_quantity_uom,1 );
5079: oe_debug_pub.add(' Ordered Qty '|| p_x_line_rec.ordered_quantity ,1);
5080: oe_debug_pub.add(' Ordered UOM '|| p_x_line_rec.order_quantity_uom,1);
5081: oe_debug_pub.add( ' Pricing Qty is not equal to Ord Qty and P_UOM is not populated' , 1 ) ;
5082: END IF;
5083: --commented for bug 11778250
5084: /*IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
5085: --Added the message after review.
5107:
5108: -- Copy the value back to the out record for order source id.
5109: if (p_x_line_rec.order_source_id = FND_API.G_MISS_NUM) then
5110: IF l_debug_level > 0 THEN
5111: oe_debug_pub.add( 'OEXDLINB - AKSINGH - CHECK FOR G_MISS_NUM' ) ;
5112: END IF;
5113: p_x_line_rec.order_source_id := Get_Order_Source_Id;
5114: else
5115: IF l_debug_level > 0 THEN
5112: END IF;
5113: p_x_line_rec.order_source_id := Get_Order_Source_Id;
5114: else
5115: IF l_debug_level > 0 THEN
5116: oe_debug_pub.add( 'OEXDLINB - AKSINGH - CHECK FOR ELSE' ) ;
5117: END IF;
5118: p_x_line_rec.order_source_id := p_x_line_rec.order_source_id;
5119: end if;
5120:
5120:
5121: -- Copy the value back to the out record for Commitment_Id.
5122: if (p_x_line_rec.commitment_id = FND_API.G_MISS_NUM) then
5123: IF l_debug_level > 0 THEN
5124: oe_debug_pub.add( 'OEXDLINB - COMMITMENT_ID - CHECK FOR G_MISS_NUM' ) ;
5125: END IF;
5126: p_x_line_rec.commitment_id := NULL;
5127: else
5128: IF l_debug_level > 0 THEN
5125: END IF;
5126: p_x_line_rec.commitment_id := NULL;
5127: else
5128: IF l_debug_level > 0 THEN
5129: oe_debug_pub.add( 'OEXDLINB - COMMITMENT_ID - CHECK FOR ELSE' ) ;
5130: END IF;
5131: p_x_line_rec.commitment_id := p_x_line_rec.commitment_id;
5132: end if;
5133:
5230: IF (OE_CODE_CONTROL.Get_Code_Release_Level >= '110508') AND
5231: (g_multiple_shipments = 'YES') THEN
5232: p_x_line_rec.orig_sys_shipment_ref := 'OE_ORDER_LINES_ALL'||p_x_line_rec.line_id||'.'||'1';
5233: IF l_debug_level > 0 THEN
5234: oe_debug_pub.add( 'SHIP SYS = '||P_X_LINE_REC.ORIG_SYS_SHIPMENT_REF ) ;
5235: END IF;
5236: ELSE
5237: p_x_line_rec.orig_sys_shipment_ref := NULL;
5238: END IF;
5400: -- value as CUST (should not over-write to INT)
5401:
5402: IF p_old_line_rec.item_identifier_type IS NULL THEN
5403: IF l_debug_level > 0 THEN
5404: oe_debug_pub.add( 'ITEM_IDENTIFIER_TYPE IS NULL , DEFAULT TO INT' ) ;
5405: END IF;
5406: p_x_line_rec.item_identifier_type := 'INT';
5407: ELSE
5408: IF l_debug_level > 0 THEN
5405: END IF;
5406: p_x_line_rec.item_identifier_type := 'INT';
5407: ELSE
5408: IF l_debug_level > 0 THEN
5409: oe_debug_pub.add( 'ASSIGNING ITEM_IDENTIFIER_TYPE FROM P_OLD_LINE_REC: '||P_OLD_LINE_REC.ITEM_IDENTIFIER_TYPE ) ;
5410: END IF;
5411: p_x_line_rec.item_identifier_type := p_old_line_rec.item_identifier_type;
5412: END IF;
5413: END IF;
5436: IF NOT OE_GLOBALS.Equal(p_x_line_rec.request_date,
5437: p_old_line_rec.request_date)
5438: THEN
5439: IF l_debug_level > 0 THEN
5440: oe_debug_pub.add( 'OEXDLINB -1- CHECK FOR G_MISS_DATE FOR REQUEST ' ) ;
5441: END IF;
5442: IF p_x_line_rec.request_date <> FND_API.G_MISS_DATE THEN
5443: -- aksingh added this if for the bug 1745501
5444: IF l_debug_level > 0 THEN
5441: END IF;
5442: IF p_x_line_rec.request_date <> FND_API.G_MISS_DATE THEN
5443: -- aksingh added this if for the bug 1745501
5444: IF l_debug_level > 0 THEN
5445: oe_debug_pub.add( 'OEXDLINB -2- CHECK FOR G_MISS_DATE FOR LATEST ' ) ;
5446: END IF;
5447: IF OE_GLOBALS.Equal(p_x_line_rec.latest_acceptable_date,
5448: p_old_line_rec.latest_acceptable_date)
5449: OR p_x_line_rec.latest_acceptable_date = FND_API.G_MISS_DATE
5448: p_old_line_rec.latest_acceptable_date)
5449: OR p_x_line_rec.latest_acceptable_date = FND_API.G_MISS_DATE
5450: THEN
5451: IF l_debug_level > 0 THEN
5452: oe_debug_pub.add( 'OEXDLINB -3- AFTER CHECK FOR G_MISS_DATE FOR LATEST ' ) ;
5453: END IF;
5454: p_x_line_rec.latest_acceptable_date :=
5455: Get_Latest_Acceptable_Date(p_x_line_rec.request_date);
5456: END IF;
5582: -- ## bug fix: 1609895, shippable flag from warehouse
5583: -- sol_ord_er #16014165
5584: -- It is possible to default the Subsscription Item as Standard and then change to Subscription
5585: IF l_debug_level > 0 THEN
5586: oe_debug_pub.add( 'SK OEXDLINB.pls 2255 Subscription= '||p_x_line_rec.subscription_enable_flag
5587: ||' Old Subscription= '||p_old_line_rec.subscription_enable_flag,5 );
5588: oe_debug_pub.add( ' Shippable= '|| p_x_line_rec.shippable_flag
5589: ||' Old Shippable= '||p_old_line_rec.shippable_flag);
5590: oe_debug_pub.add( ' Item Type= '||p_x_line_rec.item_type_code
5584: -- It is possible to default the Subsscription Item as Standard and then change to Subscription
5585: IF l_debug_level > 0 THEN
5586: oe_debug_pub.add( 'SK OEXDLINB.pls 2255 Subscription= '||p_x_line_rec.subscription_enable_flag
5587: ||' Old Subscription= '||p_old_line_rec.subscription_enable_flag,5 );
5588: oe_debug_pub.add( ' Shippable= '|| p_x_line_rec.shippable_flag
5589: ||' Old Shippable= '||p_old_line_rec.shippable_flag);
5590: oe_debug_pub.add( ' Item Type= '||p_x_line_rec.item_type_code
5591: ||' Old Item Type= '|| p_old_line_rec.item_type_code);
5592: End If;
5586: oe_debug_pub.add( 'SK OEXDLINB.pls 2255 Subscription= '||p_x_line_rec.subscription_enable_flag
5587: ||' Old Subscription= '||p_old_line_rec.subscription_enable_flag,5 );
5588: oe_debug_pub.add( ' Shippable= '|| p_x_line_rec.shippable_flag
5589: ||' Old Shippable= '||p_old_line_rec.shippable_flag);
5590: oe_debug_pub.add( ' Item Type= '||p_x_line_rec.item_type_code
5591: ||' Old Item Type= '|| p_old_line_rec.item_type_code);
5592: End If;
5593: -- sol_ord_er #16014165 end
5594: IF (p_x_line_rec.shippable_flag is NULL OR
5595: p_x_line_rec.shippable_flag = FND_API.G_MISS_CHAR )
5596: OR NOT OE_GLOBALS.Equal(p_x_Line_rec.subscription_enable_flag,
5597: p_old_line_rec.subscription_enable_flag) THEN -- sol_ord_er #16014165
5598: IF l_debug_level > 0 THEN
5599: oe_debug_pub.add( 'CALLING GET SHIPPABLE_FLAG ' , 1 ) ;
5600: END IF;
5601: -- sol_ord_er #16014165
5602: /* For Subscription Line no Shipping Required */
5603: If p_x_Line_rec.subscription_enable_flag ='Y' then
5601: -- sol_ord_er #16014165
5602: /* For Subscription Line no Shipping Required */
5603: If p_x_Line_rec.subscription_enable_flag ='Y' then
5604: IF l_debug_level > 0 THEN
5605: oe_debug_pub.add( 'SK OEXDLINB.pls 2244 Subscription Line, Not Shippable ' );
5606: End If;
5607: p_x_line_rec.shippable_flag := 'N';
5608: else
5609: -- sol_ord_er #16014165 end
5619: -- This is only required if the Item Type changes to Standard but with the old flag value as Y(where it cant be Standard)
5620: If NVL(p_old_line_rec.subscription_enable_flag,'N')='Y' and p_x_line_rec.item_type_code = 'STANDARD'
5621: THEN
5622: IF l_debug_level > 0 THEN
5623: oe_debug_pub.add(' SK OEXDLINB.pls 2255.1 Clearing Dependency for Subscription Service');
5624: End If;
5625: p_x_line_rec.service_Start_date := '';
5626: p_x_line_rec.service_end_date := '';
5627: p_x_line_rec.service_period := '';
5633: p_x_line_rec.ship_from_org_id) THEN
5634: IF p_x_line_rec.ship_from_org_id is not null
5635: THEN
5636: IF l_debug_level > 0 THEN
5637: oe_debug_pub.add( 'SETTING RE_SOURCE_FLAG TO N' , 1 ) ;
5638: END IF;
5639: p_x_line_rec.re_source_flag := 'N';
5640: ELSE
5641: IF l_debug_level > 0 THEN
5638: END IF;
5639: p_x_line_rec.re_source_flag := 'N';
5640: ELSE
5641: IF l_debug_level > 0 THEN
5642: oe_debug_pub.add( '1.SETTING RE_SOURCE_FLAG TO NULL' , 1 ) ;
5643: END IF;
5644: p_x_line_rec.re_source_flag := '';
5645: END IF;
5646: END IF;
5686: /* Fix for bug 2420456 */
5687: IF l_set_tolerance_below = 'Y' THEN
5688:
5689: IF l_debug_level > 0 THEN
5690: oe_debug_pub.add( 'TOLERANCE BELOW : '||P_X_LINE_REC.SHIP_TOLERANCE_BELOW , 3 ) ;
5691: END IF;
5692: p_x_line_rec.ship_tolerance_below := 0;
5693: l_set_tolerance_below := 'N';
5694: IF l_debug_level > 0 THEN
5691: END IF;
5692: p_x_line_rec.ship_tolerance_below := 0;
5693: l_set_tolerance_below := 'N';
5694: IF l_debug_level > 0 THEN
5695: oe_debug_pub.add( 'SET THE TOLERANCES BELOW TO 0 ' , 3 ) ;
5696: END IF;
5697:
5698: END IF;
5699:
5699:
5700: IF l_set_tolerance_above = 'Y' THEN
5701:
5702: IF l_debug_level > 0 THEN
5703: oe_debug_pub.add( 'TOLERANCE BELOW : '||P_X_LINE_REC.SHIP_TOLERANCE_ABOVE , 3 ) ;
5704: END IF;
5705: p_x_line_rec.ship_tolerance_above := 0;
5706: l_set_tolerance_above := 'N';
5707: IF l_debug_level > 0 THEN
5704: END IF;
5705: p_x_line_rec.ship_tolerance_above := 0;
5706: l_set_tolerance_above := 'N';
5707: IF l_debug_level > 0 THEN
5708: oe_debug_pub.add( 'SET THE TOLERANCES ABOVE TO 0 ' , 3 ) ;
5709: END IF;
5710:
5711: END IF;
5712:
5730:
5731: p_x_line_rec.user_item_description := NULL;
5732: FND_MESSAGE.Set_Name('ONT', 'ONT_USER_ITEM_DESC_CLEARED');
5733: IF l_debug_level > 0 THEN
5734: oe_debug_pub.add( 'CLEAR OUT USER_ITEM_DESCRIPTION WHEN ITEM CHANGES.' , 3 ) ;
5735: END IF;
5736:
5737: END IF;
5738:
5756: END IF;
5757: -- Bug 14340558 End
5758:
5759: IF l_debug_level > 0 THEN
5760: oe_debug_pub.add( 'EXIT OE_DEFAULT_LINE.ATTRIBUTES' , 1 ) ;
5761: END IF;
5762: EXCEPTION
5763:
5764: WHEN FND_API.G_EXC_ERROR THEN
5796: l_msg_count NUMBER;
5797: l_msg_data VARCHAR2(2000);
5798: l_item_rec OE_ORDER_CACHE.item_rec_type;
5799:
5800: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5801:
5802: BEGIN
5803: if l_debug_level > 0 then
5804: oe_debug_pub.add('Enter Get dual uom');
5800: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5801:
5802: BEGIN
5803: if l_debug_level > 0 then
5804: oe_debug_pub.add('Enter Get dual uom');
5805: end if;
5806:
5807: IF oe_line_util.dual_uom_control -- INVCONV Process_Characteristics
5808: (p_line_rec.inventory_item_id,p_line_rec.ship_from_org_id,l_item_rec) THEN
5807: IF oe_line_util.dual_uom_control -- INVCONV Process_Characteristics
5808: (p_line_rec.inventory_item_id,p_line_rec.ship_from_org_id,l_item_rec) THEN
5809: IF l_item_rec.tracking_quantity_ind = 'PS' THEN -- INVCONV
5810: if l_debug_level > 0 then
5811: oe_debug_pub.add('Get dual uom - tracking in P and S ');
5812: end if;
5813: /* convert 4 digit apps OPM codes to equivalent 3 byte APPS codes */
5814: /* Primary UM
5815: GMI_Reservation_Util.Get_AppsUOM_from_OPMUOM
5834: END IF; -- IF oe_line_util.dual_uom_control -- INVCONV Process_Characteristics
5835:
5836:
5837: if l_debug_level > 0 then
5838: oe_debug_pub.add('Get Dual Uom returns dual UM of ' || l_item_rec.secondary_uom_code);
5839: end if;
5840:
5841: EXCEPTION
5842:
5842:
5843: WHEN NO_DATA_FOUND THEN
5844:
5845: if l_debug_level > 0 then
5846: oe_debug_pub.add('No Data Found Get Dual Uom' );
5847: end if;
5848: RETURN NULL;
5849:
5850: WHEN OTHERS THEN
5855: 'Get_Dual_Uom'
5856: );
5857: END IF;
5858: if l_debug_level > 0 then
5859: oe_debug_pub.add('others in get_dual uom', 1);
5860: end if;
5861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5862:
5863:
5870: PROCEDURE Set_Header_Def_Hdlr_Rec (p_header_id IN NUMBER)
5871: IS
5872: l_header_rec OE_Order_PUB.Header_Rec_Type ;
5873: l_rowtype_header_rec OE_AK_ORDER_HEADERS_V%ROWTYPE;
5874: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5875: BEGIN
5876:
5877: if l_debug_level >0 then
5878: oe_debug_pub.add(' Entering in OE_Default_Test.Set_Header_Def_Hdlr_Rec with Header Id: '|| p_header_id);
5874: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5875: BEGIN
5876:
5877: if l_debug_level >0 then
5878: oe_debug_pub.add(' Entering in OE_Default_Test.Set_Header_Def_Hdlr_Rec with Header Id: '|| p_header_id);
5879: end if ;
5880:
5881: IF ( ONT_Header_Def_Hdlr.g_record.header_id IS NULL OR
5882: ONT_Header_Def_Hdlr.g_record.header_id <> p_header_id)
5895:
5896: ONT_Header_Def_Hdlr.g_record := l_rowtype_header_rec ;
5897:
5898: if l_debug_level >0 then
5899: oe_debug_pub.add('ONT_Header_Def_Hdlr.g_record.Header_id: '||ONT_Header_Def_Hdlr.g_record.Header_id);
5900: end if ;
5901:
5902: END IF ;
5903:
5901:
5902: END IF ;
5903:
5904: if l_debug_level >0 then
5905: oe_debug_pub.add(' Exiting OE_Default_Test.Set_Header_Def_Hdlr_Rec ');
5906: end if ;
5907: EXCEPTION
5908: When Others Then
5909: if l_debug_level >0 then
5906: end if ;
5907: EXCEPTION
5908: When Others Then
5909: if l_debug_level >0 then
5910: oe_debug_pub.add(' Exception in OE_Default_Test.Set_Header_Def_Hdlr_Rec ');
5911: end if ;
5912: END Set_Header_Def_Hdlr_Rec ;
5913:
5914: END OE_Default_Line;