[Home] [Help]
39: IF l_debug_level > 0 THEN
40: oe_debug_pub.add( 'ENTER SET RECURSION MODE' , 1 ) ;
41: oe_debug_pub.add( 'ENTITY CODE-'||P_ENTITY_CODE , 1 ) ;
42: oe_debug_pub.add( 'ENTRY-EXIT MODE -'||P_IN_OUT , 1 ) ;
43: oe_debug_pub.add( 'RECURSION MODE AT ENTRY -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
44: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT ENTRY -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
45: END IF;
46:
47: IF p_entity_code = 1 THEN
58: line_scredit_ctr > 0 OR
59: prn_ctr > 0 OR
60: pr_ctr > 0 ) THEN
61: --prrt_ctr > 0 ) THEN
62: oe_globals.g_recursion_mode := 'Y';
63: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
64: ELSE
65: oe_globals.g_recursion_mode := 'N';
66: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
61: --prrt_ctr > 0 ) THEN
62: oe_globals.g_recursion_mode := 'Y';
63: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
64: ELSE
65: oe_globals.g_recursion_mode := 'N';
66: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
67: END IF;
68:
69: /* This is added to control notification call to just one call out. */
81: ELSIF p_In_Out = 0 THEN
82: hdr_ctr := hdr_ctr - 1;
83: END IF;
84: IF hdr_ctr > 1 THEN
85: oe_globals.g_recursion_mode := 'Y';
86: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
87: ELSE
88: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
89: null; /* SAM */
97: ELSIF p_In_Out = 0 THEN
98: hdr_adj_ctr := hdr_adj_ctr - 1;
99: END IF;
100: IF hdr_adj_ctr > 1 THEN
101: oe_globals.g_recursion_mode := 'Y';
102: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
103: ELSE
104: oe_globals.g_recursion_mode := 'N';
105: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
100: IF hdr_adj_ctr > 1 THEN
101: oe_globals.g_recursion_mode := 'Y';
102: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
103: ELSE
104: oe_globals.g_recursion_mode := 'N';
105: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
106: END IF;
107:
108: NULL;
114: ELSIF p_In_Out = 0 THEN
115: hdr_scredit_ctr := hdr_scredit_ctr - 1;
116: END IF;
117: IF hdr_scredit_ctr > 1 THEN
118: oe_globals.g_recursion_mode := 'Y';
119: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
120: ELSE
121: oe_globals.g_recursion_mode := 'N';
122: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
117: IF hdr_scredit_ctr > 1 THEN
118: oe_globals.g_recursion_mode := 'Y';
119: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
120: ELSE
121: oe_globals.g_recursion_mode := 'N';
122: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
123: END IF;
124:
125: NULL;
129: ELSIF p_In_Out = 0 THEN
130: line_ctr := line_ctr - 1;
131: END IF;
132: IF line_ctr > 1 THEN
133: oe_globals.g_recursion_mode := 'Y';
134: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
135: ELSE
136: oe_globals.g_recursion_mode := 'N';
137: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
132: IF line_ctr > 1 THEN
133: oe_globals.g_recursion_mode := 'Y';
134: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
135: ELSE
136: oe_globals.g_recursion_mode := 'N';
137: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
138: END IF;
139:
140: NULL;
144: ELSIF p_In_Out = 0 THEN
145: line_adj_ctr := line_adj_ctr - 1;
146: END IF;
147: IF line_adj_ctr > 1 THEN
148: oe_globals.g_recursion_mode := 'Y';
149: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
150: ELSE
151: oe_globals.g_recursion_mode := 'N';
152: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
147: IF line_adj_ctr > 1 THEN
148: oe_globals.g_recursion_mode := 'Y';
149: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
150: ELSE
151: oe_globals.g_recursion_mode := 'N';
152: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
153: END IF;
154:
155: NULL;
159: ELSIF p_In_Out = 0 THEN
160: line_scredit_ctr := line_scredit_ctr - 1;
161: END IF;
162: IF line_scredit_ctr > 1 THEN
163: oe_globals.g_recursion_mode := 'Y';
164: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
165: ELSE
166: oe_globals.g_recursion_mode := 'N';
167: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
162: IF line_scredit_ctr > 1 THEN
163: oe_globals.g_recursion_mode := 'Y';
164: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
165: ELSE
166: oe_globals.g_recursion_mode := 'N';
167: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
168: END IF;
169:
170: NULL;
176: END IF;
177:
178: /* IF (prn_ctr > 1 AND
179: pr_ctr > 0) THEN
180: oe_globals.g_recursion_mode := 'Y';*/
181: IF prn_ctr > 0 AND
182: (line_ctr > 0 OR
183: Hdr_ctr > 0 OR
184: Hdr_adj_ctr > 0 OR
187: line_scredit_ctr > 0 OR
188: po_ctr > 1 OR
189: --prrt_ctr > 0 OR
190: pr_ctr > 0 ) THEN
191: oe_globals.g_recursion_mode := 'Y';
192: ELSIF prn_ctr > 1 THEN
193: oe_globals.g_recursion_mode := 'Y';
194: ELSIF
195: prn_ctr = 0 AND
189: --prrt_ctr > 0 OR
190: pr_ctr > 0 ) THEN
191: oe_globals.g_recursion_mode := 'Y';
192: ELSIF prn_ctr > 1 THEN
193: oe_globals.g_recursion_mode := 'Y';
194: ELSIF
195: prn_ctr = 0 AND
196: (line_ctr > 1 OR
197: Hdr_ctr > 1 OR
200: line_adj_ctr > 1 OR
201: line_scredit_ctr > 1 OR
202: po_ctr > 1 OR
203: pr_ctr > 1 ) THEN
204: oe_globals.g_recursion_mode := 'Y';
205:
206: ELSE
207: oe_globals.g_recursion_mode := 'N';
208: END IF;
203: pr_ctr > 1 ) THEN
204: oe_globals.g_recursion_mode := 'Y';
205:
206: ELSE
207: oe_globals.g_recursion_mode := 'N';
208: END IF;
209:
210: IF prn_ctr > 0 AND
211: (line_ctr > 0 OR
235: ELSIF p_In_Out = 0 THEN
236: pr_ctr := pr_ctr - 1;
237: END IF;
238: IF pr_ctr > 1 THEN
239: oe_globals.g_recursion_mode := 'Y';
240: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
241: ELSE
242: oe_globals.g_recursion_mode := 'N';
243: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
238: IF pr_ctr > 1 THEN
239: oe_globals.g_recursion_mode := 'Y';
240: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
241: ELSE
242: oe_globals.g_recursion_mode := 'N';
243: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
244: END IF;
245: NULL;
246:
268: -- Pricing is now going by ui flag to set the process as false while
269: -- executing request for req type in validate and write.
270:
271: /*IF prrt_ctr > 1 THEN
272: oe_globals.g_recursion_mode := 'Y';
273: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
274: ELSE
275: oe_globals.g_recursion_mode := 'N';
276: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
271: /*IF prrt_ctr > 1 THEN
272: oe_globals.g_recursion_mode := 'Y';
273: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
274: ELSE
275: oe_globals.g_recursion_mode := 'N';
276: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
277: END IF; */
278: NULL;
279:
278: NULL;
279:
280:
281: ELSE
282: oe_globals.g_recursion_mode := 'N';
283: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
284: NULL;
285: END IF;
286: IF l_debug_level > 0 THEN
283: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
284: NULL;
285: END IF;
286: IF l_debug_level > 0 THEN
287: oe_debug_pub.add( 'RECURSION MODE AT EXIT -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
288: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT EXIT -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
289: END IF;
290: End Set_Recursion_Mode ;
291:
326:
327: IF l_debug_level > 0 THEN
328: oe_debug_pub.add( 'ENTER VALID UPGRADED ORDER' ) ;
329: END IF;
330: IF (NOT OE_GLOBALS.EQUAL(p_header_id, g_header_id)) OR
331: -- aksingh perf removing OR part of below condition as not required
332: -- (g_header_id IS NULL OR g_upgraded_flag IS NULL)
333: (g_header_id IS NULL)
334: THEN
368:
369: PROCEDURE Header
370: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
371: , p_validation_level IN NUMBER
372: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
373: , p_x_header_rec IN OUT NOCOPY OE_Order_PUB.Header_Rec_Type
374: , p_x_old_header_rec IN OUT NOCOPY OE_Order_PUB.Header_Rec_Type
375: , x_return_status OUT NOCOPY VARCHAR2
376:
376:
377: )
378: IS
379: l_return_status VARCHAR2(1);
380: l_control_rec OE_GLOBALS.Control_Rec_Type;
381: l_user_id NUMBER;
382: l_resp_id NUMBER;
383: l_application_id NUMBER;
384: l_hdr_process_name VARCHAR2(30);
415: END IF;
416:
417: -- This is to check if the order is an upgraded order and is upgraded
418: -- correctly
419: IF p_x_header_rec.operation <> OE_GLOBALS.G_OPR_CREATE THEN
420:
421: IF l_debug_level > 0 THEN
422: oe_debug_pub.add( 'BEFORE CALLING VALID UPGRADE ORDER' , 2 ) ;
423: END IF;
463:
464:
465: -- Load API control record
466:
467: l_control_rec := OE_GLOBALS.Init_Control_Rec
468: ( p_operation => p_x_header_rec.operation
469: , p_control_rec => p_control_rec
470: );
471:
478: p_x_header_rec.return_status := FND_API.G_RET_STS_SUCCESS;
479:
480: -- Prepare record.
481:
482: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
483:
484: IF l_debug_level > 0 THEN
485: oe_debug_pub.add( 'OPERATION = CREATE SO SET OLD TO NULL' , 2 ) ;
486: END IF;
489: -- Set missing old record elements to NULL.
490:
491: OE_Header_Util.Convert_Miss_To_Null (p_x_old_header_rec);
492:
493: ELSIF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
494: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE
495: THEN
496:
497: IF l_debug_level > 0 THEN
490:
491: OE_Header_Util.Convert_Miss_To_Null (p_x_old_header_rec);
492:
493: ELSIF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
494: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE
495: THEN
496:
497: IF l_debug_level > 0 THEN
498: oe_debug_pub.add( 'OPERATION = UPDATE SO QUERY OLD' , 2 ) ;
545: ,p_source_document_line_id => null );
546:
547: END IF;
548:
549: IF ( p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
550: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE
551: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE) THEN
552:
553:
546:
547: END IF;
548:
549: IF ( p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
550: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE
551: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE) THEN
552:
553:
554: -- Check security
547: END IF;
548:
549: IF ( p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
550: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE
551: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE) THEN
552:
553:
554: -- Check security
555: IF l_control_rec.check_security
552:
553:
554: -- Check security
555: IF l_control_rec.check_security
556: AND (p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE
557: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
558: THEN
559:
560: IF l_debug_level > 0 THEN
553:
554: -- Check security
555: IF l_control_rec.check_security
556: AND (p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE
557: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
558: THEN
559:
560: IF l_debug_level > 0 THEN
561: oe_debug_pub.add( 'CHECK ATTRIBUTES SECURITY' ) ;
595: , p_old_header_rec => p_x_old_header_rec
596: , p_validation_level => p_validation_level
597: );
598:
599: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
600: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
602: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
603: RAISE FND_API.G_EXC_ERROR;
666: IF l_debug_level > 0 THEN
667: oe_debug_pub.add( 'VALIDATE ENTITY' , 2 ) ;
668: END IF;
669:
670: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
671:
672: OE_Validate_Header.Entity_Delete
673: ( x_return_status => l_return_status
674: , p_header_rec => p_x_header_rec
704: -- any of the constrainable attributes and also none of the defaulted
705: -- attributes was constrainable!. In such a case, the g_check_all_cols
706: -- _constraint flag would still be 'Y' as the flag is reset only
707: -- when checking for constraints.
708: IF NOT (p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
709: AND OE_Header_Security.g_check_all_cols_constraint = 'Y')
710: AND l_control_rec.check_security
711: THEN
712: IF l_debug_level > 0 THEN
742: IF l_debug_level > 0 THEN
743: oe_debug_pub.add( 'WRITE TO DB' , 2 ) ;
744: END IF;
745:
746: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
747:
748: OE_Header_Util.Delete_Row
749: ( p_header_id => p_x_header_rec.header_id
750: );
760: IF p_x_header_rec.credit_card_approval_date = FND_API.G_MISS_DATE THEN
761: p_x_header_rec.credit_card_approval_date := NULL;
762: END IF;
763:
764: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
765:
766: IF l_debug_level > 0 THEN
767: oe_debug_pub.add( 'HEADER FLOW STATUS :'||P_X_HEADER_REC.FLOW_STATUS_CODE , 1 ) ;
768: END IF;
767: oe_debug_pub.add( 'HEADER FLOW STATUS :'||P_X_HEADER_REC.FLOW_STATUS_CODE , 1 ) ;
768: END IF;
769: OE_Header_Util.Update_Row (p_x_header_rec);
770:
771: ELSIF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
772:
773: p_x_header_rec.creation_date := SYSDATE;
774: p_x_header_rec.created_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
775:
823: p_In_out => 0);
824: p_x_header_rec.return_status := FND_API.G_RET_STS_ERROR;
825: x_return_status := FND_API.G_RET_STS_ERROR;
826: OE_Header_Security.g_check_all_cols_constraint := 'Y';
827: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
828: IF l_debug_level > 0 THEN
829: oe_debug_pub.add( 'DELETE REQUEST1' , 2 ) ;
830: END IF;
831: OE_Delayed_Requests_Pvt.Clear_Request
839: p_In_out => 0);
840: p_x_header_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
842: OE_Header_Security.g_check_all_cols_constraint := 'Y';
843: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
844: IF l_debug_level > 0 THEN
845: oe_debug_pub.add( 'DELETE REQUEST2' , 2 ) ;
846: END IF;
847: OE_Delayed_Requests_Pvt.Clear_Request
863:
864: p_x_header_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
866: OE_Header_Security.g_check_all_cols_constraint := 'Y';
867: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
868: IF l_debug_level > 0 THEN
869: oe_debug_pub.add( 'DELETE REQUEST3' , 2 ) ;
870: END IF;
871: OE_Delayed_Requests_Pvt.Clear_Request
882: -------------------------------------------------------------------*/
883: PROCEDURE Header_Scredits
884: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
885: , p_validation_level IN NUMBER
886: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
887: , p_x_Header_Scredit_tbl IN OUT NOCOPY OE_Order_PUB.Header_Scredit_Tbl_Type
888: , p_x_old_Header_Scredit_tbl IN OUT NOCOPY OE_Order_PUB.Header_Scredit_Tbl_Type
889: , x_return_status OUT NOCOPY VARCHAR2
890:
891: )
892: IS
893: l_del_ret_status VARCHAR2(1);
894: l_return_status VARCHAR2(1);
895: l_control_rec OE_GLOBALS.Control_Rec_Type;
896: l_Header_Scredit_rec OE_Order_PUB.Header_Scredit_Rec_Type;
897: l_old_Header_Scredit_rec OE_Order_PUB.Header_Scredit_Rec_Type;
898: -- local variables to store OUT parameters from security check procedures
899: l_sec_result NUMBER;
1053: end if;
1054:
1055: -- Load API control record
1056:
1057: l_control_rec := OE_GLOBALS.Init_Control_Rec
1058: ( p_operation => l_Header_Scredit_rec.operation
1059: , p_control_rec => p_control_rec
1060: );
1061:
1064: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1065:
1066: -- Prepare record.
1067:
1068: IF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1069:
1070: l_Header_Scredit_rec.db_flag := FND_API.G_FALSE;
1071:
1072: -- Set missing old record elements to NULL.
1072: -- Set missing old record elements to NULL.
1073:
1074: OE_Header_Scredit_Util.Convert_Miss_To_Null (l_old_Header_Scredit_rec);
1075:
1076: ELSIF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1077: OR l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE
1078: THEN
1079:
1080: l_Header_Scredit_rec.db_flag := FND_API.G_TRUE;
1073:
1074: OE_Header_Scredit_Util.Convert_Miss_To_Null (l_old_Header_Scredit_rec);
1075:
1076: ELSIF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1077: OR l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE
1078: THEN
1079:
1080: l_Header_Scredit_rec.db_flag := FND_API.G_TRUE;
1081:
1120: END IF;
1121:
1122: -- Check security
1123: IF l_control_rec.check_security
1124: AND (l_header_scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE
1125: OR l_header_scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
1126: THEN
1127:
1128: IF l_debug_level > 0 THEN
1121:
1122: -- Check security
1123: IF l_control_rec.check_security
1124: AND (l_header_scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE
1125: OR l_header_scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
1126: THEN
1127:
1128: IF l_debug_level > 0 THEN
1129: oe_debug_pub.add( 'CHECK ATTRIBUTES SECURITY' ) ;
1206: -- Entity level validation.
1207:
1208: IF l_control_rec.validate_entity THEN
1209:
1210: IF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1211:
1212: OE_Validate_Header_Scredit.Entity_Delete
1213: ( x_return_status => l_return_status
1214: , p_Header_Scredit_rec => l_Header_Scredit_rec
1241: -- any of the constrainable attributes and also none of the defaulted
1242: -- attributes was constrainable!. In such a case, the g_check_all_cols
1243: -- _constraint flag would still be 'Y' as the flag is reset only
1244: -- when checking for constraints.
1245: IF NOT (l_header_scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1246: AND OE_Header_Scredit_Security.g_check_all_cols_constraint = 'Y')
1247: AND l_control_rec.check_security
1248: THEN
1249: IF l_debug_level > 0 THEN
1276: (p_x_header_scredit_rec => l_header_scredit_rec,
1277: p_old_header_scredit_rec => l_old_header_scredit_rec);
1278: /* End AuditTrail */
1279:
1280: IF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1281: SAVEPOINT DELETE_SCREDIT_FAILED; --bug 5331854
1282: --bug 5049879
1283: select quota_flag into l_quota_flag from oe_sales_credit_types where sales_credit_type_id = l_header_scredit_rec.sales_credit_type_id;
1284: select booked_flag into l_booked_flag from oe_order_headers where header_id = l_header_scredit_rec.header_id;
1303: l_Header_Scredit_rec.last_update_date := SYSDATE;
1304: l_Header_Scredit_rec.last_updated_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
1305: l_Header_Scredit_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
1306:
1307: IF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1308:
1309: OE_Header_Scredit_Util.Update_Row (l_Header_Scredit_rec);
1310:
1311: ELSIF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1307: IF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1308:
1309: OE_Header_Scredit_Util.Update_Row (l_Header_Scredit_rec);
1310:
1311: ELSIF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1312:
1313: l_Header_Scredit_rec.creation_date := SYSDATE;
1314: l_Header_Scredit_rec.created_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
1315:
1350: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1351: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1352:
1353: IF l_control_Rec.Process_Partial THEN
1354: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1355: IF l_debug_level > 0 THEN
1356: oe_debug_pub.add( 'DELETE REQUEST4' , 2 ) ;
1357: END IF;
1358: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
1355: IF l_debug_level > 0 THEN
1356: oe_debug_pub.add( 'DELETE REQUEST4' , 2 ) ;
1357: END IF;
1358: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
1359: (p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_SCREDIT,
1360: p_entity_id => l_header_scredit_rec.sales_credit_id,
1361: x_return_status => l_return_status);
1362: END IF;
1363: ROLLBACK TO SAVEPOINT Header_Scredits;
1362: END IF;
1363: ROLLBACK TO SAVEPOINT Header_Scredits;
1364: ELSE
1365: --bug 5331854
1366: IF OE_GLOBALS.G_UI_FLAG AND
1367: l_del_ret_status = FND_API.G_RET_STS_ERROR THEN
1368: ROLLBACK TO SAVEPOINT DELETE_SCREDIT_FAILED;
1369: END IF;
1370: --bug 5331854
1417:
1418: set_recursion_mode(p_Entity_Code => 4,
1419: p_In_out => 0);
1420: x_return_status := FND_API.G_RET_STS_ERROR;
1421: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1422: IF l_debug_level > 0 THEN
1423: oe_debug_pub.add( 'DELETE REQUEST5' , 2 ) ;
1424: END IF;
1425: OE_Delayed_Requests_Pvt.Clear_Request
1431:
1432: set_recursion_mode(p_Entity_Code => 4,
1433: p_In_out => 0);
1434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1435: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1436: IF l_debug_level > 0 THEN
1437: oe_debug_pub.add( 'DELETE REQUEST6' , 2 ) ;
1438: END IF;
1439: OE_Delayed_Requests_Pvt.Clear_Request
1445:
1446: set_recursion_mode(p_Entity_Code => 4,
1447: p_In_out => 0);
1448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1449: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1450: IF l_debug_level > 0 THEN
1451: oe_debug_pub.add( 'DELETE REQUEST7' , 2 ) ;
1452: END IF;
1453: OE_Delayed_Requests_Pvt.Clear_Request
1472: -------------------------------------------------------------------*/
1473: PROCEDURE Header_Payments
1474: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1475: , p_validation_level IN NUMBER
1476: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
1477: , p_x_Header_Payment_tbl IN OUT NOCOPY OE_Order_PUB.Header_Payment_Tbl_Type
1478: , p_x_old_Header_Payment_tbl IN OUT NOCOPY OE_Order_PUB.Header_Payment_Tbl_Type
1479: , x_return_status OUT NOCOPY VARCHAR2
1480:
1480:
1481: )
1482: IS
1483: l_return_status VARCHAR2(1);
1484: l_control_rec OE_GLOBALS.Control_Rec_Type;
1485: l_Header_Payment_rec OE_Order_PUB.Header_Payment_Rec_Type;
1486: l_old_Header_Payment_rec OE_Order_PUB.Header_Payment_Rec_Type;
1487: -- local variables to store OUT parameters from security check procedures
1488: l_sec_result NUMBER;
1636: end if;
1637:
1638: -- Load API control record
1639:
1640: l_control_rec := OE_GLOBALS.Init_Control_Rec
1641: ( p_operation => l_Header_Payment_rec.operation
1642: , p_control_rec => p_control_rec
1643: );
1644:
1647: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1648:
1649: -- Prepare record.
1650:
1651: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1652:
1653: l_Header_Payment_rec.db_flag := FND_API.G_FALSE;
1654:
1655: -- Set missing old record elements to NULL.
1661: IF l_debug_level > 0 THEN
1662: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1663: END IF;
1664:
1665: ELSIF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1666: OR l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE
1667: THEN
1668:
1669: l_Header_Payment_rec.db_flag := FND_API.G_TRUE;
1662: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1663: END IF;
1664:
1665: ELSIF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1666: OR l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE
1667: THEN
1668:
1669: l_Header_Payment_rec.db_flag := FND_API.G_TRUE;
1670:
1728: END IF;
1729:
1730: -- Check security
1731: IF l_control_rec.check_security
1732: AND (l_header_payment_rec.operation = OE_GLOBALS.G_OPR_CREATE
1733: OR l_header_payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
1734: THEN
1735:
1736: IF l_debug_level > 0 THEN
1729:
1730: -- Check security
1731: IF l_control_rec.check_security
1732: AND (l_header_payment_rec.operation = OE_GLOBALS.G_OPR_CREATE
1733: OR l_header_payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
1734: THEN
1735:
1736: IF l_debug_level > 0 THEN
1737: oe_debug_pub.add( 'CHECK ATTRIBUTES SECURITY' ) ;
1844: -- Entity level validation.
1845:
1846: IF l_control_rec.validate_entity THEN
1847:
1848: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1849:
1850: IF l_debug_level > 0 THEN
1851: oe_debug_pub.add('Payment:before OE_Validate_Header_Payment.Entity_Delete', 5);
1852: END IF;
1891: -- any of the constrainable attributes and also none of the defaulted
1892: -- attributes was constrainable!. In such a case, the g_check_all_cols
1893: -- _constraint flag would still be 'Y' as the flag is reset only
1894: -- when checking for constraints.
1895: IF NOT (l_header_payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1896: AND OE_Header_Payment_Security.g_check_all_cols_constraint = 'Y')
1897: AND l_control_rec.check_security
1898: THEN
1899: IF l_debug_level > 0 THEN
1939: oe_debug_pub.add('Payment:after Oe_Header_Payment_Util.Pre_Write_Process', 5);
1940: END IF;
1941: /* End AuditTrail */
1942:
1943: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1944: IF l_debug_level > 0 THEN
1945: oe_debug_pub.add('Payment:before Oe_Header_Payment_Util.Delete_Row',5);
1946: END IF;
1947:
1960: l_Header_Payment_rec.last_update_date := SYSDATE;
1961: l_Header_Payment_rec.last_updated_by := FND_GLOBAL.USER_ID;
1962: l_Header_Payment_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
1963:
1964: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1965:
1966: OE_Header_Payment_Util.Update_Row (l_Header_Payment_rec);
1967:
1968: ELSIF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1964: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1965:
1966: OE_Header_Payment_Util.Update_Row (l_Header_Payment_rec);
1967:
1968: ELSIF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1969:
1970: l_Header_Payment_rec.creation_date := SYSDATE;
1971: l_Header_Payment_rec.created_by := FND_GLOBAL.USER_ID;
1972:
2012:
2013: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2014: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2015: IF l_control_Rec.Process_Partial THEN
2016: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2017: IF l_debug_level > 0 THEN
2018: oe_debug_pub.add( 'DELETE REQUEST4' , 2 ) ;
2019: END IF;
2020: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
2017: IF l_debug_level > 0 THEN
2018: oe_debug_pub.add( 'DELETE REQUEST4' , 2 ) ;
2019: END IF;
2020: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
2021: (p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_PAYMENT,
2022: p_entity_id => l_header_payment_rec.header_id,
2023: x_return_status => l_return_status);
2024: END IF;
2025: ROLLBACK TO SAVEPOINT Header_Payments;
2069:
2070: WHEN FND_API.G_EXC_ERROR THEN
2071:
2072: x_return_status := FND_API.G_RET_STS_ERROR;
2073: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2074: IF l_debug_level > 0 THEN
2075: oe_debug_pub.add( 'DELETE REQUEST5' , 2 ) ;
2076: END IF;
2077: OE_Delayed_Requests_Pvt.Clear_Request
2081:
2082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2083:
2084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2085: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2086: IF l_debug_level > 0 THEN
2087: oe_debug_pub.add( 'DELETE REQUEST6' , 2 ) ;
2088: END IF;
2089: OE_Delayed_Requests_Pvt.Clear_Request
2093:
2094: WHEN OTHERS THEN
2095:
2096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2097: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2098: IF l_debug_level > 0 THEN
2099: oe_debug_pub.add( 'DELETE REQUEST7' , 2 ) ;
2100: END IF;
2101: OE_Delayed_Requests_Pvt.Clear_Request
2364:
2365: PROCEDURE Lines
2366: (p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2367: ,p_validation_level IN NUMBER
2368: ,p_control_rec IN OE_GLOBALS.Control_Rec_Type
2369: ,p_x_line_tbl IN OUT NOCOPY OE_Order_PUB.Line_Tbl_Type
2370: ,p_x_old_line_tbl IN OUT NOCOPY OE_Order_PUB.Line_Tbl_Type
2371: ,x_return_status OUT NOCOPY VARCHAR2)
2372:
2371: ,x_return_status OUT NOCOPY VARCHAR2)
2372:
2373: IS
2374: l_return_status VARCHAR2(1);
2375: l_control_rec OE_GLOBALS.Control_Rec_Type;
2376: l_line_rec OE_Order_PUB.Line_Rec_Type;
2377: l_old_line_rec OE_Order_PUB.Line_Rec_Type;
2378: l_mode VARCHAR2(20);
2379: I NUMBER;
2424: Print_Time('Entering OE_ORDER_PVT.LINES ' || l_num_lines);
2425:
2426: x_return_status := FND_API.G_RET_STS_SUCCESS;
2427:
2428: IF OE_GLOBALS.G_RECURSION_MODE <> 'Y' THEN
2429: SAVEPOINT Lines_Non_Partial;
2430: END IF;
2431:
2432: -- Initialize message list.
2457: IF l_debug_level > 0 THEN
2458: oe_debug_pub.add( '---------LOOPING FOR NTH TIME N= '|| I , 1 ) ;
2459: END IF;
2460:
2461: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_NONE THEN
2462: IF l_debug_level > 0 THEN
2463: oe_debug_pub.add( 'OPERATION IS NONE ' , 1 ) ;
2464: END IF;
2465:
2505:
2506: END IF;
2507:
2508: --Added for bug 4937633 source type for Internal orders will be Internal
2509: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE THEN
2510:
2511: IF p_x_line_tbl(I).source_document_type_id = 10
2512: OR oe_order_cache.g_header_rec.source_document_type_id = 10 THEN
2513: p_x_line_tbl(I).source_type_code := OE_GLOBALS.G_SOURCE_INTERNAL;
2509: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE THEN
2510:
2511: IF p_x_line_tbl(I).source_document_type_id = 10
2512: OR oe_order_cache.g_header_rec.source_document_type_id = 10 THEN
2513: p_x_line_tbl(I).source_type_code := OE_GLOBALS.G_SOURCE_INTERNAL;
2514: END IF;
2515: END IF;
2516: --Added for bug 4937633 end
2517:
2575: -- of errors, it is set in the exception handlers.
2576:
2577: -- Prepare record.
2578:
2579: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2580:
2581: IF l_debug_level > 0 THEN
2582: oe_debug_pub.add( 'OPERATION = CREATE SO SETTING OLD TO NULL' , 2 ) ;
2583: END IF;
2618:
2619: END IF;
2620: *******/
2621:
2622: ELSIF l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE OR
2623: l_line_rec.operation = OE_GLOBALS.G_OPR_DELETE
2624: THEN
2625:
2626: IF l_debug_level > 0 THEN
2619: END IF;
2620: *******/
2621:
2622: ELSIF l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE OR
2623: l_line_rec.operation = OE_GLOBALS.G_OPR_DELETE
2624: THEN
2625:
2626: IF l_debug_level > 0 THEN
2627: oe_debug_pub.add( 'OPERATION = UPDATE SO QUERY OLD' , 1 ) ;
2717: -- as the booking process also locks the order header.
2718: -- The g_booked_flag should have been set by the call to
2719: -- Valid_Upgraded_Order before.
2720:
2721: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2722: -- QUOTING changes
2723: -- Comment out booked flag check, move header locked
2724: -- check inside this IF statement.
2725: IF l_header_locked = FND_API.G_MISS_CHAR THEN -- AND g_booked_flag = 'N' THEN #2940426
2727: -- Lock only if the po is called by UI or
2728: -- with write_to_db flag , this way for validate_only
2729: -- don't lock.
2730:
2731: IF (OE_GLOBALS.G_UI_FLAG AND
2732: NOT (OE_GLOBALS.G_HTML_FLAG)) OR
2733: p_control_rec.write_to_db THEN
2734:
2735: IF l_debug_level > 0 THEN
2728: -- with write_to_db flag , this way for validate_only
2729: -- don't lock.
2730:
2731: IF (OE_GLOBALS.G_UI_FLAG AND
2732: NOT (OE_GLOBALS.G_HTML_FLAG)) OR
2733: p_control_rec.write_to_db THEN
2734:
2735: IF l_debug_level > 0 THEN
2736: oe_debug_pub.add( 'LOCKING THE HEADER RECORD' ) ;
2781: oe_debug_pub.add( 'L_MODE IS MODELS_AND_STANDARD' , 1 ) ;
2782: END IF;
2783:
2784: IF OE_Config_Util.G_Config_UI_Used = 'N' AND
2785: l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
2786: ((l_line_rec.top_model_line_index is NOT NULL AND
2787: l_line_rec.top_model_line_index <> FND_API.G_MISS_NUM) OR
2788: (l_line_rec.top_model_line_id is NOT NULL AND
2789: l_line_rec.top_model_line_id <> FND_API.G_MISS_NUM)) AND
2797: END IF;
2798: p_x_line_tbl(I).component_code := null;
2799: p_x_line_tbl(I).component_sequence_id := null;
2800: p_x_line_tbl(I).sort_order := null;
2801: ELSIF NOT OE_GLOBALS.EQUAL(l_line_rec.inventory_item_id,
2802: l_old_line_rec.inventory_item_id) THEN
2803: IF l_debug_level > 0 THEN
2804: oe_debug_pub.add('Line Item is Changed '
2805: ||l_line_rec.inventory_item_id , 1 ) ;
2949: END IF; -- if top model line index is populated
2950:
2951: -- if it comes here, everything was OK. ---------
2952:
2953: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
2954: (nvl(l_line_rec.item_type_code, 'A') <> OE_GLOBALS.G_ITEM_INCLUDED
2955: AND
2956: nvl(l_line_rec.item_type_code, 'A') <> OE_GLOBALS.G_ITEM_CONFIG)
2957: THEN
2950:
2951: -- if it comes here, everything was OK. ---------
2952:
2953: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
2954: (nvl(l_line_rec.item_type_code, 'A') <> OE_GLOBALS.G_ITEM_INCLUDED
2955: AND
2956: nvl(l_line_rec.item_type_code, 'A') <> OE_GLOBALS.G_ITEM_CONFIG)
2957: THEN
2958:
2952:
2953: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
2954: (nvl(l_line_rec.item_type_code, 'A') <> OE_GLOBALS.G_ITEM_INCLUDED
2955: AND
2956: nvl(l_line_rec.item_type_code, 'A') <> OE_GLOBALS.G_ITEM_CONFIG)
2957: THEN
2958:
2959: IF COMPLETE_AND_CLASS_SAVE_MODE THEN
2960:
2981: p_x_line_tbl(I).return_status := l_line_rec.return_status;
2982:
2983: END IF;
2984:
2985: IF nvl(l_line_rec.item_type_code, 'A') <> OE_GLOBALS.G_ITEM_CLASS
2986: THEN
2987: IF l_debug_level > 0 THEN
2988: oe_debug_pub.add( 'NOT A CLASS , SKIP' , 3 ) ;
2989: END IF;
2997: END IF;
2998:
2999: ELSE -- now saving options -- may not req.
3000:
3001: IF nvl(l_line_rec.item_type_code, 'A') = OE_GLOBALS.G_ITEM_CLASS
3002: THEN
3003: IF l_debug_level > 0 THEN
3004: oe_debug_pub.add( 'THIS CLASS IS ALREADY SAVED' , 3 ) ;
3005: END IF;
3044:
3045: IF p_x_line_tbl(l_service_line_index).return_status =
3046: FND_API.G_RET_STS_SUCCESS THEN
3047: -- lchen added to check parent line operation to fix bug 2017271
3048: IF p_x_line_tbl(l_service_line_index).operation = OE_GLOBALS.G_OPR_NONE
3049: THEN
3050: GOTO end_of_lines_loop;
3051: ELSE
3052: l_line_rec.service_reference_line_id :=
3101: END IF;
3102:
3103: -- Load API control record
3104:
3105: l_control_rec := OE_GLOBALS.Init_Control_Rec
3106: ( p_operation => l_line_rec.operation
3107: ,p_control_rec => p_control_rec);
3108:
3109:
3113:
3114: -- CHECK SECURITY
3115:
3116: IF l_control_rec.check_security AND
3117: (l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE OR
3118: l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
3119: THEN
3120:
3121: IF l_debug_level > 0 THEN
3114: -- CHECK SECURITY
3115:
3116: IF l_control_rec.check_security AND
3117: (l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE OR
3118: l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
3119: THEN
3120:
3121: IF l_debug_level > 0 THEN
3122: oe_debug_pub.add( 'CHECK ATTRIBUTES SECURITY' , 1 ) ;
3143:
3144:
3145: -- ATTRIBUTE LEVEL VALIDATION
3146:
3147: IF NOT (l_line_rec.operation = oe_globals.g_opr_create and
3148: (l_line_rec.split_from_line_id IS NOT NULL AND
3149: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3150: THEN
3151:
3164: IF l_debug_level > 0 THEN
3165: oe_debug_pub.add( 'AFTER ATTRIBUTE VALIDATION' , 1 ) ;
3166: END IF;
3167:
3168: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
3169: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3171: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3172: RAISE FND_API.G_EXC_ERROR;
3180:
3181: -- CLEAR DEPENDENT ATTRIBUTES
3182:
3183: IF l_control_rec.clear_dependents AND
3184: NOT (l_line_rec.operation = oe_globals.g_opr_create and
3185: (l_line_rec.split_from_line_id IS NOT NULL AND
3186: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3187: THEN
3188:
3199:
3200: -- DEFAULT MISSING ATTRIBUTES
3201:
3202: IF (l_control_rec.default_attributes) THEN
3203: IF NOT (l_line_rec.operation = oe_globals.g_opr_create and
3204: (l_line_rec.split_from_line_id IS NOT NULL AND
3205: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3206: THEN
3207:
3229:
3230: -- APPLY ATTRIBUTE CHANGES
3231:
3232: IF (l_control_rec.change_attributes)
3233: -- AND NOT (l_line_rec.operation = oe_globals.g_opr_create and
3234: -- (l_line_rec.split_from_line_id IS NOT NULL AND
3235: -- l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3236: THEN
3237:
3253:
3254: -- Entity level validation.
3255:
3256: IF l_control_rec.validate_entity
3257: AND NOT (l_line_rec.operation = oe_globals.g_opr_create and
3258: (l_line_rec.split_from_line_id IS NOT NULL AND
3259: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3260: and l_line_rec.ordered_quantity<>0 -- added for bug 6494347
3261:
3264: IF l_debug_level > 0 THEN
3265: oe_debug_pub.add( 'VALIDATE ENTITY' , 2 ) ;
3266: END IF;
3267:
3268: IF l_line_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
3269:
3270: OE_Validate_Line.Entity_Delete
3271: ( x_return_status => l_return_status
3272: ,p_line_rec => l_line_rec );
3305: -- attributes was constrainable!. In such a case, the g_check_all_cols
3306: -- _constraint flag would still be 'Y' as the flag is reset only
3307: -- when checking for constraints.
3308:
3309: IF NOT (l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND
3310: OE_Line_Security.g_check_all_cols_constraint = 'Y') AND
3311: l_control_rec.check_security THEN
3312:
3313: IF l_debug_level > 0 THEN
3353: IF l_debug_level > 0 THEN
3354: oe_debug_pub.add( 'WRITE TO DB' , 1 ) ;
3355: END IF;
3356:
3357: IF l_line_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
3358: OE_Line_Util.Delete_Row
3359: ( p_line_id => l_line_rec.line_id);
3360:
3361: -- If an OTA line has been deleted, then call the OTA API
3395: l_user_id := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
3396: l_resp_id := FND_GLOBAL.RESP_ID;
3397: l_application_id := FND_GLOBAL.RESP_APPL_ID;
3398:
3399: IF l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
3400: IF l_debug_level > 0 THEN
3401: oe_debug_pub.add( 'CALLING UPDATE ROW' , 1 ) ;
3402: END IF;
3403:
3402: END IF;
3403:
3404: OE_Line_Util.Update_Row (l_line_rec);
3405:
3406: ELSIF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3407:
3408: l_line_rec.creation_date := SYSDATE;
3409: l_line_rec.created_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
3410:
3476: -- Raise error when one of the lines in a SET fails
3477: -- while copying.
3478: IF l_line_rec.source_document_type_id = 2 AND
3479: l_line_rec.line_set_id IS NOT NULL AND
3480: l_line_rec.OPERATION = OE_GLOBALS.G_OPR_CREATE
3481: THEN
3482: RAISE FND_API.G_EXC_ERROR;
3483: END IF;
3484:
3482: RAISE FND_API.G_EXC_ERROR;
3483: END IF;
3484:
3485:
3486: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
3487: IF l_debug_level > 0 THEN
3488: oe_debug_pub.add( 'DELETE REQUEST8' , 2 ) ;
3489: END IF;
3490:
3488: oe_debug_pub.add( 'DELETE REQUEST8' , 2 ) ;
3489: END IF;
3490:
3491: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
3492: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3493: p_entity_id => l_line_rec.line_id,
3494: x_return_status => l_return_status);
3495: END IF;
3496:
3630: p_In_out => 0);
3631: OE_MSG_PUB.reset_msg_context('LINE');
3632:
3633:
3634: IF NOT (OE_GLOBALS.G_UI_FLAG) AND line_ctr = 1 THEN
3635: IF l_debug_level > 0 THEN
3636: oe_debug_pub.add( 'DELETE REQUEST9' , 2 ) ;
3637: END IF;
3638: oe_delayed_requests_pvt.Clear_Request
3662: p_In_out => 0);
3663:
3664: OE_MSG_PUB.reset_msg_context('LINE');
3665:
3666: IF NOT (OE_GLOBALS.G_UI_FLAG) and line_ctr = 1 THEN
3667: IF l_debug_level > 0 THEN
3668: oe_debug_pub.add( 'DELETE REQUEST10' , 2 ) ;
3669: END IF;
3670: oe_delayed_requests_pvt.Clear_Request
3688: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
3689: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
3690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3691:
3692: IF NOT (OE_GLOBALS.G_UI_FLAG) and line_ctr = 1 THEN
3693: IF l_debug_level > 0 THEN
3694: oe_debug_pub.add( 'DELETE REQUEST11' , 2 ) ;
3695: END IF;
3696: oe_delayed_requests_pvt.Clear_Request
3723:
3724: PROCEDURE Line_Scredits
3725: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3726: , p_validation_level IN NUMBER
3727: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
3728: , p_x_Line_Scredit_tbl IN OUT NOCOPY OE_Order_PUB.Line_Scredit_Tbl_Type
3729: , p_x_old_Line_Scredit_tbl IN OUT NOCOPY OE_Order_PUB.Line_Scredit_Tbl_Type
3730: , x_return_status OUT NOCOPY VARCHAR2
3731:
3731:
3732: )
3733: IS
3734: l_return_status VARCHAR2(1);
3735: l_control_rec OE_GLOBALS.Control_Rec_Type;
3736: l_Line_Scredit_rec OE_Order_PUB.Line_Scredit_Rec_Type;
3737: l_old_Line_Scredit_rec OE_Order_PUB.Line_Scredit_Rec_Type;
3738: -- local variables to store OUT parameters from security check procedures
3739: l_sec_result NUMBER;
3898:
3899:
3900: -- Load API control record
3901:
3902: l_control_rec := OE_GLOBALS.Init_Control_Rec
3903: ( p_operation => l_Line_Scredit_rec.operation
3904: , p_control_rec => p_control_rec
3905: );
3906:
3909: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_SUCCESS;
3910:
3911: -- Prepare record.
3912:
3913: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3914:
3915: l_Line_Scredit_rec.db_flag := FND_API.G_FALSE;
3916:
3917: -- Set missing old record elements to NULL.
3917: -- Set missing old record elements to NULL.
3918:
3919: OE_Line_Scredit_Util.Convert_Miss_To_Null (l_old_Line_Scredit_rec);
3920:
3921: ELSIF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE
3922: OR l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE
3923: THEN
3924:
3925: l_Line_Scredit_rec.db_flag := FND_API.G_TRUE;
3918:
3919: OE_Line_Scredit_Util.Convert_Miss_To_Null (l_old_Line_Scredit_rec);
3920:
3921: ELSIF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE
3922: OR l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE
3923: THEN
3924:
3925: l_Line_Scredit_rec.db_flag := FND_API.G_TRUE;
3926:
3964: END IF;
3965:
3966: -- Check security
3967: IF l_control_rec.check_security
3968: AND (l_line_scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE
3969: OR l_line_scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
3970: THEN
3971:
3972: IF l_debug_level > 0 THEN
3965:
3966: -- Check security
3967: IF l_control_rec.check_security
3968: AND (l_line_scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE
3969: OR l_line_scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
3970: THEN
3971:
3972: IF l_debug_level > 0 THEN
3973: oe_debug_pub.add( 'CHECK ATTRIBUTES SECURITY' ) ;
4060: END IF;
4061:
4062: IF l_control_rec.validate_entity THEN
4063:
4064: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
4065:
4066: OE_Validate_Line_Scredit.Entity_Delete
4067: ( x_return_status => l_return_status
4068: , p_Line_Scredit_rec => l_Line_Scredit_rec
4096: -- attributes was constrainable!. In such a case, the g_check_all_cols
4097: -- _constraint flag would still be 'Y' as the flag is reset only
4098: -- when checking for constraints.
4099: /* Bug fix 2020390, Removed the changes added for the bug 1696681 */
4100: IF NOT (l_line_scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE
4101: AND OE_Line_Scredit_Security.g_check_all_cols_constraint = 'Y')
4102: AND l_control_rec.check_security
4103: THEN
4104:
4133: (p_x_line_scredit_rec => l_line_scredit_rec,
4134: p_old_line_scredit_rec => l_old_line_scredit_rec);
4135: /* End AuditTrail */
4136:
4137: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
4138:
4139: OE_Line_Scredit_Util.Delete_Row
4140: ( p_sales_credit_id => l_Line_Scredit_rec.sales_credit_id
4141: );
4147: l_Line_Scredit_rec.last_update_date := SYSDATE;
4148: l_Line_Scredit_rec.last_updated_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
4149: l_Line_Scredit_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
4150:
4151: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
4152:
4153: OE_Line_Scredit_Util.Update_Row (l_Line_Scredit_rec);
4154:
4155: ELSIF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4151: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
4152:
4153: OE_Line_Scredit_Util.Update_Row (l_Line_Scredit_rec);
4154:
4155: ELSIF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4156:
4157: l_Line_Scredit_rec.creation_date := SYSDATE;
4158: l_Line_Scredit_rec.created_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
4159:
4193:
4194: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4195: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4196: IF l_control_rec.Process_Partial THEN
4197: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4198: IF l_debug_level > 0 THEN
4199: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
4200: END IF;
4201: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
4198: IF l_debug_level > 0 THEN
4199: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
4200: END IF;
4201: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
4202: (p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_SCREDIT,
4203: p_entity_id => l_line_scredit_rec.sales_credit_id,
4204: x_return_status => l_return_status);
4205: END IF;
4206: ROLLBACK TO SAVEPOINT Line_Scredits;
4253:
4254: set_recursion_mode(p_Entity_Code => 7,
4255: p_In_out => 0);
4256: x_return_status := FND_API.G_RET_STS_ERROR;
4257: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4258: IF l_debug_level > 0 THEN
4259: oe_debug_pub.add( 'DELETE REQUEST13' , 2 ) ;
4260: END IF;
4261: OE_Delayed_Requests_Pvt.Clear_Request
4267:
4268: set_recursion_mode(p_Entity_Code => 7,
4269: p_In_out => 0);
4270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4271: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4272: IF l_debug_level > 0 THEN
4273: oe_debug_pub.add( 'DELETE REQUEST14' , 2 ) ;
4274: END IF;
4275: OE_Delayed_Requests_Pvt.Clear_Request
4281:
4282: set_recursion_mode(p_Entity_Code => 7,
4283: p_In_out => 0);
4284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4285: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4286: IF l_debug_level > 0 THEN
4287: oe_debug_pub.add( 'DELETE REQUEST15' , 2 ) ;
4288: END IF;
4289: OE_Delayed_Requests_Pvt.Clear_Request
4307:
4308: PROCEDURE Line_Payments
4309: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4310: , p_validation_level IN NUMBER
4311: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
4312: , p_x_Line_Payment_tbl IN OUT NOCOPY OE_Order_PUB.Line_Payment_Tbl_Type
4313: , p_x_old_Line_Payment_tbl IN OUT NOCOPY OE_Order_PUB.Line_Payment_Tbl_Type
4314: , x_return_status OUT NOCOPY VARCHAR2
4315:
4315:
4316: )
4317: IS
4318: l_return_status VARCHAR2(1);
4319: l_control_rec OE_GLOBALS.Control_Rec_Type;
4320: l_Line_Payment_rec OE_Order_PUB.Line_Payment_Rec_Type;
4321: l_old_Line_Payment_rec OE_Order_PUB.Line_Payment_Rec_Type;
4322: -- local variables to store OUT parameters from security check procedures
4323: l_sec_result NUMBER;
4480:
4481:
4482: -- Load API control record
4483:
4484: l_control_rec := OE_GLOBALS.Init_Control_Rec
4485: ( p_operation => l_Line_Payment_rec.operation
4486: , p_control_rec => p_control_rec
4487: );
4488:
4491: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4492:
4493: -- Prepare record.
4494:
4495: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4496:
4497: l_Line_Payment_rec.db_flag := FND_API.G_FALSE;
4498:
4499: -- Set missing old record elements to NULL.
4505: IF l_debug_level > 0 THEN
4506: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Convert_Miss_To_Null', 5);
4507: END IF;
4508:
4509: ELSIF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
4510: OR l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE
4511: THEN
4512:
4513: l_Line_Payment_rec.db_flag := FND_API.G_TRUE;
4506: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Convert_Miss_To_Null', 5);
4507: END IF;
4508:
4509: ELSIF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
4510: OR l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE
4511: THEN
4512:
4513: l_Line_Payment_rec.db_flag := FND_API.G_TRUE;
4514:
4566: END IF;
4567:
4568: -- Check security
4569: IF l_control_rec.check_security
4570: AND (l_line_payment_rec.operation = OE_GLOBALS.G_OPR_CREATE
4571: OR l_line_payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
4572: THEN
4573:
4574: IF l_debug_level > 0 THEN
4567:
4568: -- Check security
4569: IF l_control_rec.check_security
4570: AND (l_line_payment_rec.operation = OE_GLOBALS.G_OPR_CREATE
4571: OR l_line_payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
4572: THEN
4573:
4574: IF l_debug_level > 0 THEN
4575: oe_debug_pub.add('Payment:before OE_Line_Payment_Security.Attributes', 5);
4688: END IF;
4689:
4690: IF l_control_rec.validate_entity THEN
4691:
4692: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
4693:
4694: IF l_debug_level > 0 THEN
4695: oe_debug_pub.add('Payment:before OE_Validate_Line_Payment.Entity_Delete', 5);
4696: END IF;
4736: -- attributes was constrainable!. In such a case, the g_check_all_cols
4737: -- _constraint flag would still be 'Y' as the flag is reset only
4738: -- when checking for constraints.
4739: /* Bug fix 2020390, Removed the changes added for the bug 1696681 */
4740: IF NOT (l_line_payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
4741: AND OE_Line_Payment_Security.g_check_all_cols_constraint = 'Y')
4742: AND l_control_rec.check_security
4743: THEN
4744:
4781: oe_debug_pub.add('Payment:after Oe_line_Payment_Util.Pre_Write_Process', 5);
4782: END IF;
4783: /* End AuditTrail */
4784:
4785: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
4786:
4787: IF l_debug_level > 0 THEN
4788: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Delete_Row', 5);
4789: END IF;
4803: l_Line_Payment_rec.last_update_date := SYSDATE;
4804: l_Line_Payment_rec.last_updated_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
4805: l_Line_Payment_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
4806:
4807: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
4808:
4809: IF l_debug_level > 0 THEN
4810: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Update_Row', 5);
4811: END IF;
4813: IF l_debug_level > 0 THEN
4814: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Update_Row', 5);
4815: END IF;
4816:
4817: ELSIF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4818:
4819: l_Line_Payment_rec.creation_date := SYSDATE;
4820: l_Line_Payment_rec.created_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
4821:
4861:
4862: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
4863: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4864: IF l_control_rec.Process_Partial THEN
4865: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4866: IF l_debug_level > 0 THEN
4867: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
4868: END IF;
4869: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
4866: IF l_debug_level > 0 THEN
4867: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
4868: END IF;
4869: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
4870: (p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_PAYMENT,
4871: p_entity_id => l_line_payment_rec.line_id,
4872: x_return_status => l_return_status);
4873: END IF;
4874: ROLLBACK TO SAVEPOINT Line_Payments;
4917:
4918: WHEN FND_API.G_EXC_ERROR THEN
4919:
4920: x_return_status := FND_API.G_RET_STS_ERROR;
4921: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4922: IF l_debug_level > 0 THEN
4923: oe_debug_pub.add( 'DELETE REQUEST13' , 2 ) ;
4924: END IF;
4925: OE_Delayed_Requests_Pvt.Clear_Request
4929:
4930: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4931:
4932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4933: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4934: IF l_debug_level > 0 THEN
4935: oe_debug_pub.add( 'DELETE REQUEST14' , 2 ) ;
4936: END IF;
4937: OE_Delayed_Requests_Pvt.Clear_Request
4941:
4942: WHEN OTHERS THEN
4943:
4944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4945: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4946: IF l_debug_level > 0 THEN
4947: oe_debug_pub.add( 'DELETE REQUEST15' , 2 ) ;
4948: END IF;
4949: OE_Delayed_Requests_Pvt.Clear_Request
4967:
4968: PROCEDURE Lot_Serials
4969: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4970: , p_validation_level IN NUMBER
4971: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
4972: , p_x_Lot_Serial_tbl IN OUT NOCOPY OE_Order_PUB.Lot_Serial_Tbl_Type
4973: , p_x_old_Lot_Serial_tbl IN OUT NOCOPY OE_Order_PUB.Lot_Serial_Tbl_Type
4974: , x_return_status OUT NOCOPY VARCHAR2
4975:
4975:
4976: )
4977: IS
4978: l_return_status VARCHAR2(1);
4979: l_control_rec OE_GLOBALS.Control_Rec_Type;
4980: l_Lot_Serial_rec OE_Order_PUB.Lot_Serial_Rec_Type;
4981: l_old_Lot_Serial_rec OE_Order_PUB.Lot_Serial_Rec_Type;
4982: I NUMBER; -- Used as index.
4983: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5017: END IF;
5018:
5019: -- Load API control record
5020:
5021: l_control_rec := OE_GLOBALS.Init_Control_Rec
5022: ( p_operation => l_Lot_Serial_rec.operation
5023: , p_control_rec => p_control_rec
5024: );
5025:
5028: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_SUCCESS;
5029:
5030: -- Prepare record.
5031:
5032: IF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
5033:
5034: l_Lot_Serial_rec.db_flag := FND_API.G_FALSE;
5035:
5036: -- Set missing old record elements to NULL.
5036: -- Set missing old record elements to NULL.
5037:
5038: OE_Lot_Serial_Util.Convert_Miss_To_Null (l_old_Lot_Serial_rec);
5039:
5040: ELSIF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_UPDATE
5041: OR l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_DELETE
5042: THEN
5043:
5044: l_Lot_Serial_rec.db_flag := FND_API.G_TRUE;
5037:
5038: OE_Lot_Serial_Util.Convert_Miss_To_Null (l_old_Lot_Serial_rec);
5039:
5040: ELSIF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_UPDATE
5041: OR l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_DELETE
5042: THEN
5043:
5044: l_Lot_Serial_rec.db_flag := FND_API.G_TRUE;
5045:
5125: -- Entity level validation.
5126:
5127: IF l_control_rec.validate_entity THEN
5128:
5129: IF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
5130:
5131: OE_Validate_Lot_Serial.Entity_Delete
5132: ( x_return_status => l_return_status
5133: , p_Lot_Serial_rec => l_Lot_Serial_rec
5154: -- Step 4. Write to DB
5155:
5156: IF l_control_rec.write_to_db THEN
5157:
5158: IF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
5159:
5160: OE_Lot_Serial_Util.Delete_Row
5161: ( p_lot_serial_id => l_Lot_Serial_rec.lot_serial_id
5162: );
5168: l_Lot_Serial_rec.last_update_date := SYSDATE;
5169: l_Lot_Serial_rec.last_updated_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
5170: l_Lot_Serial_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
5171:
5172: IF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
5173:
5174: OE_Lot_Serial_Util.Update_Row (l_Lot_Serial_rec);
5175:
5176: ELSIF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
5172: IF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
5173:
5174: OE_Lot_Serial_Util.Update_Row (l_Lot_Serial_rec);
5175:
5176: ELSIF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
5177:
5178: l_Lot_Serial_rec.creation_date := SYSDATE;
5179: l_Lot_Serial_rec.created_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
5180:
5236:
5237: WHEN FND_API.G_EXC_ERROR THEN
5238:
5239: x_return_status := FND_API.G_RET_STS_ERROR;
5240: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5241: IF l_debug_level > 0 THEN
5242: oe_debug_pub.add( 'DELETE REQUEST17' , 2 ) ;
5243: END IF;
5244: OE_Delayed_Requests_Pvt.Clear_Request
5247:
5248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5249:
5250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5251: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5252: IF l_debug_level > 0 THEN
5253: oe_debug_pub.add( 'DELETE REQUEST18' , 2 ) ;
5254: END IF;
5255: OE_Delayed_Requests_Pvt.Clear_Request
5258:
5259: WHEN OTHERS THEN
5260:
5261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5262: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5263: IF l_debug_level > 0 THEN
5264: oe_debug_pub.add( 'DELETE REQUEST19' , 2 ) ;
5265: END IF;
5266: OE_Delayed_Requests_Pvt.Clear_Request
5383:
5384:
5385: -- IF p_process_requests, then process all delayed requests
5386:
5387: IF ( OE_GLOBALS.G_RECURSION_MODE = 'N'
5388: AND p_process_requests
5389: AND OE_DELAYED_REQUESTS_PVT.Requests_Count > 0 )
5390: THEN
5391:
5389: AND OE_DELAYED_REQUESTS_PVT.Requests_Count > 0 )
5390: THEN
5391:
5392: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5393: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
5394: ,p_delete => FND_API.G_TRUE
5395: ,x_return_status => l_return_status
5396: );
5397: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5400: RAISE FND_API.G_EXC_ERROR;
5401: END IF;
5402:
5403: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5404: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
5405: ,p_delete => FND_API.G_TRUE
5406: ,x_return_status => l_return_status
5407: );
5408: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5411: RAISE FND_API.G_EXC_ERROR;
5412: END IF;
5413:
5414: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5415: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Att
5416: ,p_delete => FND_API.G_TRUE
5417: ,x_return_status => l_return_status
5418: );
5419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5422: RAISE FND_API.G_EXC_ERROR;
5423: END IF;
5424:
5425: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5426: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
5427: ,p_delete => FND_API.G_TRUE
5428: ,x_return_status => l_return_status
5429: );
5430: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5433: RAISE FND_API.G_EXC_ERROR;
5434: END IF;
5435:
5436: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5437: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
5438: ,p_delete => FND_API.G_TRUE
5439: ,x_return_status => l_return_status
5440: );
5441: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5444: RAISE FND_API.G_EXC_ERROR;
5445: END IF;
5446:
5447: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5448: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_PAYMENT
5449: ,p_delete => FND_API.G_TRUE
5450: ,x_return_status => l_return_status
5451: );
5452: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5455: RAISE FND_API.G_EXC_ERROR;
5456: END IF;
5457:
5458: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5459: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
5460: ,p_delete => FND_API.G_TRUE
5461: ,x_return_status => l_return_status
5462: );
5463: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5466: RAISE FND_API.G_EXC_ERROR;
5467: END IF;
5468:
5469: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5470: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
5471: ,p_delete => FND_API.G_TRUE
5472: ,x_return_status => l_return_status
5473: );
5474: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5477: RAISE FND_API.G_EXC_ERROR;
5478: END IF;
5479:
5480: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5481: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
5482: ,p_delete => FND_API.G_TRUE
5483: ,x_return_status => l_return_status
5484: );
5485: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5488: RAISE FND_API.G_EXC_ERROR;
5489: END IF;
5490:
5491: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5492: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_PAYMENT
5493: ,p_delete => FND_API.G_TRUE
5494: ,x_return_status => l_return_status
5495: );
5496: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5499: RAISE FND_API.G_EXC_ERROR;
5500: END IF;
5501:
5502: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5503: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
5504: ,p_delete => FND_API.G_TRUE
5505: ,x_return_status => l_return_status
5506: );
5507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5510: RAISE FND_API.G_EXC_ERROR;
5511: END IF;
5512:
5513: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5514: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Att
5515: ,p_delete => FND_API.G_TRUE
5516: ,x_return_status => l_return_status
5517: );
5518: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5521: RAISE FND_API.G_EXC_ERROR;
5522: END IF;
5523:
5524: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5525: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Assoc
5526: ,p_delete => FND_API.G_TRUE
5527: ,x_return_status => l_return_status
5528: );
5529: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5549: END IF; --End of requests processing
5550:
5551: -- Start flows for the Entity.
5552: IF (p_process_requests AND
5553: OE_GLOBALS.G_RECURSION_MODE = 'N') THEN
5554:
5555: OE_ORDER_WF_UTIL.START_ALL_FLOWS;
5556: END IF;
5557:
6008: END IF; /*check for record in key entities*/
6009: END IF; /*code_release_level*/
6010:
6011: /* Fix Bug # 3241831: Reset Global after all requests have been processed */
6012: IF OE_GLOBALS.G_RECURSION_MODE = 'N' AND OE_GLOBALS.G_UI_FLAG = FALSE THEN
6013: IF OE_OE_FORM_CANCEL_LINE.g_ord_lvl_can THEN
6014: IF l_debug_level > 0 THEN
6015: oe_debug_pub.add('SET G_ORD_LVL_CAN TO FALSE FOR NON UI ORDER CANCEL');
6016: END IF;
6018: END IF;
6019: END IF;
6020:
6021: --resetting g_header_created flag
6022: IF OE_GLOBALS.G_RECURSION_MODE <> 'Y' AND
6023: OE_GLOBALS.G_PRICING_RECURSION <> 'Y' THEN
6024: OE_GLOBALS.G_HEADER_CREATED := FALSE;
6025: END IF;
6026:
6019: END IF;
6020:
6021: --resetting g_header_created flag
6022: IF OE_GLOBALS.G_RECURSION_MODE <> 'Y' AND
6023: OE_GLOBALS.G_PRICING_RECURSION <> 'Y' THEN
6024: OE_GLOBALS.G_HEADER_CREATED := FALSE;
6025: END IF;
6026:
6027: IF l_debug_level > 0 THEN
6020:
6021: --resetting g_header_created flag
6022: IF OE_GLOBALS.G_RECURSION_MODE <> 'Y' AND
6023: OE_GLOBALS.G_PRICING_RECURSION <> 'Y' THEN
6024: OE_GLOBALS.G_HEADER_CREATED := FALSE;
6025: END IF;
6026:
6027: IF l_debug_level > 0 THEN
6028: oe_debug_pub.add( 'EXIT OE_ORDER_PVT.PROCESS_REQUESTS_AND_NOTIFY' , 1 ) ;
6040:
6041: set_recursion_mode(p_Entity_Code => 8,
6042: p_In_out => 0);
6043: x_return_status := FND_API.G_RET_STS_ERROR;
6044: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
6045: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
6046: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
6047: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6048: END IF;
6052:
6053: set_recursion_mode(p_Entity_Code => 8,
6054: p_In_out => 0);
6055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6056: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
6057: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
6058: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
6059: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6060: END IF;
6067: IF l_debug_level > 0 THEN
6068: oe_debug_pub.add( 'PO: EXITING PROCESS_REQUESTS_AND_NOTIFY WITH OTHERS ERROR' , 2 ) ;
6069: END IF;
6070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6071: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
6072: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
6073: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
6074: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6075: END IF;
6087: PROCEDURE Process_Order_AG
6088: ( p_api_version_number IN NUMBER
6089: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6090: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6091: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
6092: OE_GLOBALS.G_MISS_CONTROL_REC
6093: , x_return_status OUT NOCOPY VARCHAR2
6094:
6095: , x_msg_count OUT NOCOPY NUMBER
6088: ( p_api_version_number IN NUMBER
6089: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6090: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6091: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
6092: OE_GLOBALS.G_MISS_CONTROL_REC
6093: , x_return_status OUT NOCOPY VARCHAR2
6094:
6095: , x_msg_count OUT NOCOPY NUMBER
6096:
6149: , p_action_commit IN VARCHAR2 := FND_API.G_FALSE
6150: )
6151: IS
6152: l_api_version_number CONSTANT NUMBER := 1.0;
6153: l_control_rec OE_GLOBALS.Control_Rec_Type := p_control_rec;
6154: l_return_status VARCHAR2(1);
6155: I NUMBER;
6156: l_header_id NUMBER;
6157: l_call_split BOOLEAN := FALSE;
6219: --Bug 2878121: Ignore NULL operation code
6220: IF p_x_header_rec.header_id is NOT NULL AND
6221: p_x_header_rec.header_id <> FND_API.G_MISS_NUM THEN
6222: IF p_x_header_rec.operation IS NOT NULL AND
6223: p_x_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
6224: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
6225: OE_GLOBALS.G_OPR_NONE) THEN
6226: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6227: OE_MSG_PUB.Add;
6220: IF p_x_header_rec.header_id is NOT NULL AND
6221: p_x_header_rec.header_id <> FND_API.G_MISS_NUM THEN
6222: IF p_x_header_rec.operation IS NOT NULL AND
6223: p_x_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
6224: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
6225: OE_GLOBALS.G_OPR_NONE) THEN
6226: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6227: OE_MSG_PUB.Add;
6228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6221: p_x_header_rec.header_id <> FND_API.G_MISS_NUM THEN
6222: IF p_x_header_rec.operation IS NOT NULL AND
6223: p_x_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
6224: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
6225: OE_GLOBALS.G_OPR_NONE) THEN
6226: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6227: OE_MSG_PUB.Add;
6228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6229: END IF;
6229: END IF;
6230: END IF;
6231:
6232: IF p_x_header_rec.operation IS NOT NULL
6233: AND p_x_header_rec.operation <> OE_GLOBALS.G_OPR_NONE
6234: THEN
6235:
6236: -- This if is add to honor users sales credits if they do not
6237: -- want the default sales credit for the salesrep on the order
6236: -- This if is add to honor users sales credits if they do not
6237: -- want the default sales credit for the salesrep on the order
6238:
6239: IF p_x_header_scredit_tbl.COUNT > 0 and
6240: p_x_header_rec.operation = oe_globals.g_opr_create THEN
6241: OE_Validate_Header_Scredit.G_Create_Auto_Sales_Credit := 'N';
6242: END IF;
6243:
6244: Header
6263:
6264: -- Perform header group requests.
6265:
6266: IF (p_control_rec.process AND
6267: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6268: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6269: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER)
6270: THEN
6271:
6264: -- Perform header group requests.
6265:
6266: IF (p_control_rec.process AND
6267: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6268: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6269: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER)
6270: THEN
6271:
6272: NULL;
6265:
6266: IF (p_control_rec.process AND
6267: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6268: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6269: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER)
6270: THEN
6271:
6272: NULL;
6273:
6288: IF l_debug_level > 0 THEN
6289: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_ADJ_TBL' , 2 ) ;
6290: END IF;
6291:
6292: IF p_x_header_adj_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6293: AND (p_x_header_adj_tbl(I).header_id IS NULL OR
6294: p_x_header_adj_tbl(I).header_id = FND_API.G_MISS_NUM)
6295: THEN
6296: IF p_x_header_rec.header_id IS NULL OR
6338: END IF;
6339: -- Perform Header_Adj group requests.
6340:
6341: IF (p_control_rec.process AND
6342: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6343: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6344: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_ADJ)
6345: THEN
6346:
6339: -- Perform Header_Adj group requests.
6340:
6341: IF (p_control_rec.process AND
6342: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6343: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6344: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_ADJ)
6345: THEN
6346:
6347: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6340:
6341: IF (p_control_rec.process AND
6342: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6343: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6344: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_ADJ)
6345: THEN
6346:
6347: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6348: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
6344: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_ADJ)
6345: THEN
6346:
6347: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6348: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
6349: ,p_delete => FND_API.G_TRUE
6350: ,x_return_status => l_return_status
6351: );
6352: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6371:
6372: IF l_debug_level > 0 THEN
6373: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_PRICE_ATT_TBL' , 2 ) ;
6374: END IF;
6375: IF p_x_header_price_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6376: AND (p_x_header_price_att_tbl(I).header_id IS NULL OR
6377: p_x_header_price_att_tbl(I).header_id = FND_API.G_MISS_NUM)
6378: THEN
6379: IF p_x_header_rec.header_id IS NULL OR
6410: END IF;
6411: -- Perform Header_Price_Att group requests.
6412:
6413: IF (p_control_rec.process AND
6414: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6415: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
6416: OR
6417: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Price_Att
6418: )
6411: -- Perform Header_Price_Att group requests.
6412:
6413: IF (p_control_rec.process AND
6414: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6415: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
6416: OR
6417: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Price_Att
6418: )
6419: THEN
6413: IF (p_control_rec.process AND
6414: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6415: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
6416: OR
6417: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Price_Att
6418: )
6419: THEN
6420:
6421: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6418: )
6419: THEN
6420:
6421: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6422: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
6423: ,p_delete => FND_API.G_TRUE
6424: ,x_return_status => l_return_status
6425: );
6426: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6445:
6446: IF l_debug_level > 0 THEN
6447: oe_debug_pub.add( 'SETTING PRICE ADJUSTMENT ID ON HDR_ADJ_ATTBS' , 2 ) ;
6448: END IF;
6449: IF p_x_header_adj_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6450: AND (p_x_header_adj_att_tbl(I).price_adjustment_id IS NULL OR
6451: p_x_header_adj_att_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
6452: THEN
6453:
6508:
6509: IF l_debug_level > 0 THEN
6510: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_ADJ_ASSOC_TBL' , 2 ) ;
6511: END IF;
6512: IF p_x_header_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6513: AND (p_x_header_adj_assoc_tbl(I).Price_Adjustment_id IS NULL OR
6514: p_x_header_adj_assoc_tbl(I).Price_Adjustment_id = FND_API.G_MISS_NUM)
6515: THEN
6516:
6535: END IF;
6536:
6537: END IF;
6538:
6539: IF p_x_header_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6540: AND (p_x_header_adj_assoc_tbl(I).rltd_Price_Adj_Id IS NULL OR
6541: p_x_header_adj_assoc_tbl(I).rltd_Price_Adj_Id = FND_API.G_MISS_NUM)
6542: THEN
6543:
6584:
6585: IF l_debug_level > 0 THEN
6586: oe_debug_pub.add( 'SETTING HEADER_ID ON HEADER_SCREDIT_TBL' , 2 ) ;
6587: END IF;
6588: IF p_x_header_scredit_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6589: AND (p_x_header_scredit_tbl(I).header_id IS NULL OR
6590: p_x_header_scredit_tbl(I).header_id = FND_API.G_MISS_NUM)
6591: THEN
6592:
6636:
6637: -- Perform Header_Scredit group requests.
6638:
6639: IF (p_control_rec.process AND
6640: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6641: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6642: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT)
6643: THEN
6644:
6637: -- Perform Header_Scredit group requests.
6638:
6639: IF (p_control_rec.process AND
6640: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6641: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6642: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT)
6643: THEN
6644:
6645: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6638:
6639: IF (p_control_rec.process AND
6640: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6641: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6642: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT)
6643: THEN
6644:
6645: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6646: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
6642: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT)
6643: THEN
6644:
6645: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6646: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
6647: ,p_delete => FND_API.G_TRUE
6648: ,x_return_status => l_return_status
6649: );
6650: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6695:
6696: IF l_debug_level > 0 THEN
6697: oe_debug_pub.add( 'SETTING HEADER_ID ON HEADER_PAYMENT_TBL' , 2 ) ;
6698: END IF;
6699: IF p_x_header_payment_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6700: AND (p_x_header_payment_tbl(I).header_id IS NULL OR
6701: p_x_header_payment_tbl(I).header_id = FND_API.G_MISS_NUM)
6702: THEN
6703:
6747:
6748: -- Perform Header_Payment group requests.
6749:
6750: IF (p_control_rec.process AND
6751: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6752: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6753: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_PAYMENT)
6754: THEN
6755:
6748: -- Perform Header_Payment group requests.
6749:
6750: IF (p_control_rec.process AND
6751: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6752: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6753: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_PAYMENT)
6754: THEN
6755:
6756: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6749:
6750: IF (p_control_rec.process AND
6751: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6752: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6753: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_PAYMENT)
6754: THEN
6755:
6756: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6757: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Payment
6753: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_PAYMENT)
6754: THEN
6755:
6756: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6757: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Payment
6758: ,p_delete => FND_API.G_TRUE
6759: ,x_return_status => l_return_status
6760: );
6761: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6776:
6777: --Bug 2790512: Prevent processing of line if operation is invalid
6778: --Bug 2878121: Ignore NULL operation code
6779: IF p_x_line_tbl(I).operation IS NOT NULL AND
6780: p_x_line_tbl(I).operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
6781: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
6782: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
6783: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6784: OE_MSG_PUB.Add;
6777: --Bug 2790512: Prevent processing of line if operation is invalid
6778: --Bug 2878121: Ignore NULL operation code
6779: IF p_x_line_tbl(I).operation IS NOT NULL AND
6780: p_x_line_tbl(I).operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
6781: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
6782: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
6783: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6784: OE_MSG_PUB.Add;
6785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6778: --Bug 2878121: Ignore NULL operation code
6779: IF p_x_line_tbl(I).operation IS NOT NULL AND
6780: p_x_line_tbl(I).operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
6781: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
6782: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
6783: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6784: OE_MSG_PUB.Add;
6785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6786: END IF;
6784: OE_MSG_PUB.Add;
6785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6786: END IF;
6787:
6788: IF p_x_line_tbl(I).operation = oe_globals.g_opr_update
6789: AND p_x_line_tbl(I).split_action_code = 'SPLIT' THEN
6790:
6791: -- Negotiation check has been added for bug 4758902
6792: BEGIN
6828: l_header_id := p_x_line_tbl(I).header_id;
6829: END IF;
6830: END IF;
6831:
6832: IF p_x_line_tbl(I).operation <> OE_GLOBALS.G_OPR_CREATE
6833: AND (p_x_line_tbl(I).header_id IS NULL OR
6834: p_x_line_tbl(I).header_id = FND_API.G_MISS_NUM)
6835: THEN
6836: IF (l_header_id IS NOT NULL AND
6845: END IF;
6846:
6847: -- Copy the parent ID (header ID), if not passed, on
6848: -- the record for CREATE operations
6849: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE THEN
6850: IF (p_x_line_tbl(I).header_id IS NULL OR
6851: p_x_line_tbl(I).header_id = FND_API.G_MISS_NUM)
6852: THEN
6853: -- Copy parent_id.
6917:
6918: IF l_debug_level > 0 THEN
6919: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE SC TABLE' ) ;
6920: END IF;
6921: IF p_x_line_scredit_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6922: AND (p_x_line_scredit_tbl(I).line_id IS NULL OR
6923: p_x_line_scredit_tbl(I).line_id = FND_API.G_MISS_NUM)
6924: THEN
6925: IF l_debug_level > 0 THEN
6968:
6969: IF l_debug_level > 0 THEN
6970: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE SC TABLE' ) ;
6971: END IF;
6972: IF p_x_line_payment_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6973: AND (p_x_line_payment_tbl(I).line_id IS NULL OR
6974: p_x_line_payment_tbl(I).line_id = FND_API.G_MISS_NUM)
6975: THEN
6976: IF l_debug_level > 0 THEN
7015: IF l_debug_level > 0 THEN
7016: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE ADJ TABLE' , 2 ) ;
7017: END IF;
7018:
7019: IF p_x_line_adj_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7020: AND (p_x_line_adj_tbl(I).line_id IS NULL OR
7021: p_x_line_adj_tbl(I).line_id = FND_API.G_MISS_NUM)
7022: THEN
7023:
7064:
7065: -- Perform line group requests.
7066:
7067: IF (p_control_rec.process AND
7068: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7069: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7070: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE)
7071: THEN
7072: IF l_debug_level > 0 THEN
7065: -- Perform line group requests.
7066:
7067: IF (p_control_rec.process AND
7068: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7069: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7070: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE)
7071: THEN
7072: IF l_debug_level > 0 THEN
7073: oe_debug_pub.add( 'PROCESS LINE REQUESTS' ) ;
7066:
7067: IF (p_control_rec.process AND
7068: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7069: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7070: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE)
7071: THEN
7072: IF l_debug_level > 0 THEN
7073: oe_debug_pub.add( 'PROCESS LINE REQUESTS' ) ;
7074: END IF;
7073: oe_debug_pub.add( 'PROCESS LINE REQUESTS' ) ;
7074: END IF;
7075:
7076: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7077: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
7078: ,p_delete => FND_API.G_TRUE
7079: ,x_return_status => l_return_status
7080: );
7081: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7106:
7107: -- Perform Line_Adj group requests.
7108:
7109: IF (p_control_rec.process AND
7110: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7111: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7112: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_ADJ)
7113: THEN
7114:
7107: -- Perform Line_Adj group requests.
7108:
7109: IF (p_control_rec.process AND
7110: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7111: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7112: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_ADJ)
7113: THEN
7114:
7115: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7108:
7109: IF (p_control_rec.process AND
7110: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7111: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7112: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_ADJ)
7113: THEN
7114:
7115: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7116: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
7112: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_ADJ)
7113: THEN
7114:
7115: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7116: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
7117: ,p_delete => FND_API.G_TRUE
7118: ,x_return_status => l_return_status
7119: );
7120: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7154:
7155: -- Perform Line_Scredit group requests.
7156:
7157: IF (p_control_rec.process AND
7158: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7159: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7160: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_SCREDIT)
7161: THEN
7162:
7155: -- Perform Line_Scredit group requests.
7156:
7157: IF (p_control_rec.process AND
7158: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7159: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7160: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_SCREDIT)
7161: THEN
7162:
7163: IF l_debug_level > 0 THEN
7156:
7157: IF (p_control_rec.process AND
7158: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7159: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7160: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_SCREDIT)
7161: THEN
7162:
7163: IF l_debug_level > 0 THEN
7164: oe_debug_pub.add( 'PROCESSING DELAYED REQUESTS FOR LINES' , 2 ) ;
7164: oe_debug_pub.add( 'PROCESSING DELAYED REQUESTS FOR LINES' , 2 ) ;
7165: END IF;
7166:
7167: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7168: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
7169: ,p_delete => FND_API.G_TRUE
7170: ,x_return_status => l_return_status
7171: );
7172:
7213:
7214: -- Perform Line_Payment group requests.
7215:
7216: IF (p_control_rec.process AND
7217: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7218: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7219: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_PAYMENT)
7220: THEN
7221:
7214: -- Perform Line_Payment group requests.
7215:
7216: IF (p_control_rec.process AND
7217: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7218: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7219: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_PAYMENT)
7220: THEN
7221:
7222: IF l_debug_level > 0 THEN
7215:
7216: IF (p_control_rec.process AND
7217: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7218: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7219: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_PAYMENT)
7220: THEN
7221:
7222: IF l_debug_level > 0 THEN
7223: oe_debug_pub.add( 'PROCESSING DELAYED REQUESTS FOR LINES' , 2 ) ;
7223: oe_debug_pub.add( 'PROCESSING DELAYED REQUESTS FOR LINES' , 2 ) ;
7224: END IF;
7225:
7226: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7227: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_PAYMENT
7228: ,p_delete => FND_API.G_TRUE
7229: ,x_return_status => l_return_status
7230: );
7231:
7252:
7253: I := p_x_lot_serial_tbl.FIRST;
7254: WHILE I IS NOT NULL LOOP
7255:
7256: IF p_x_lot_serial_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7257: AND (p_x_lot_serial_tbl(I).line_id IS NULL OR
7258: p_x_lot_serial_tbl(I).line_id = FND_API.G_MISS_NUM)
7259: THEN
7260:
7306:
7307: -- Perform Lot_Serial group requests.
7308:
7309: IF (p_control_rec.process AND
7310: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7311: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7312: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LOT_SERIAL)
7313: THEN
7314:
7307: -- Perform Lot_Serial group requests.
7308:
7309: IF (p_control_rec.process AND
7310: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7311: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7312: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LOT_SERIAL)
7313: THEN
7314:
7315: NULL;
7308:
7309: IF (p_control_rec.process AND
7310: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7311: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7312: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LOT_SERIAL)
7313: THEN
7314:
7315: NULL;
7316:
7327:
7328: IF l_debug_level > 0 THEN
7329: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE ATTRIBUTES TABLE' , 2 ) ;
7330: END IF;
7331: IF p_x_line_price_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7332: AND (p_x_line_price_att_tbl(I).line_id IS NULL OR
7333: p_x_line_price_att_tbl(I).line_id = FND_API.G_MISS_NUM)
7334: THEN
7335:
7381:
7382: -- Perform Line_Price_Att group requests.
7383:
7384: IF (p_control_rec.process AND
7385: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7386: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7387: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Price_Att)
7388: THEN
7389:
7382: -- Perform Line_Price_Att group requests.
7383:
7384: IF (p_control_rec.process AND
7385: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7386: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7387: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Price_Att)
7388: THEN
7389:
7390: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7383:
7384: IF (p_control_rec.process AND
7385: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7386: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7387: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Price_Att)
7388: THEN
7389:
7390: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7391: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
7387: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Price_Att)
7388: THEN
7389:
7390: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7391: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
7392: ,p_delete => FND_API.G_TRUE
7393: ,x_return_status => l_return_status
7394: );
7395: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7413: IF l_debug_level > 0 THEN
7414: oe_debug_pub.add( 'SETTING PRICE_ADJUSTMENT_ID ON LINE ADJ ATTRIB TABLE' , 2 ) ;
7415: END IF;
7416:
7417: IF p_x_line_adj_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7418: AND (p_x_line_adj_att_tbl(I).price_adjustment_id IS NULL OR
7419: p_x_line_adj_att_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
7420: THEN
7421:
7475:
7476: IF l_debug_level > 0 THEN
7477: oe_debug_pub.add( 'SETTING PRICE_ADJUSTMENT_ID ON LINE ADJ ASSOCS TABLE' , 2 ) ;
7478: END IF;
7479: IF p_x_line_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7480: AND (p_x_line_adj_assoc_tbl(I).price_adjustment_id IS NULL OR
7481: p_x_line_adj_assoc_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
7482: THEN
7483:
7510: END IF;
7511: END IF;
7512: END IF;
7513:
7514: IF p_x_line_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7515: AND (p_x_line_adj_assoc_tbl(I).Line_id IS NULL OR
7516: p_x_line_adj_assoc_tbl(I).Line_id = FND_API.G_MISS_NUM)
7517: THEN
7518:
7528: p_x_line_adj_Assoc_tbl(I).Line_Id := p_x_line_tbl(p_x_Line_Adj_assoc_tbl(I).Line_index).Line_id;
7529: END IF;
7530: END IF;
7531:
7532: IF p_x_line_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7533: AND (p_x_line_adj_assoc_tbl(I).rltd_Price_Adj_Id IS NULL OR
7534: p_x_line_adj_assoc_tbl(I).rltd_Price_Adj_Id = FND_API.G_MISS_NUM)
7535: THEN
7536:
7568: IF l_debug_level > 0 THEN
7569: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON REQUEST TABLE' , 2 ) ;
7570: END IF;
7571:
7572: IF (p_x_action_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_HEADER) THEN
7573:
7574: IF (p_x_action_request_tbl(I).entity_id IS NULL OR
7575: p_x_action_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
7576: THEN
7586: p_x_action_request_tbl(I).entity_id := p_x_header_rec.header_id;
7587: END IF;
7588: END IF;
7589:
7590: ELSIF (p_x_action_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_LINE) THEN
7591:
7592: IF (p_x_action_request_tbl(I).entity_id IS NULL OR
7593: p_x_action_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
7594: THEN
7614: END IF;
7615: END IF;
7616: END IF;
7617:
7618: ELSIF (p_x_action_request_tbl(I).request_type = OE_GLOBALS.G_VERIFY_PAYMENT) THEN
7619:
7620: IF (p_x_action_request_tbl(I).entity_id IS NULL OR
7621: p_x_action_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
7622: THEN
7644: IF l_debug_level > 0 THEN
7645: oe_debug_pub.add( 'OEXVORDB: BEFORE CALLING PROCESS_DELAYED_REQUESTS' , 2 ) ;
7646: END IF;
7647: IF (p_control_rec.process AND
7648: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7649: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
7650: THEN
7651:
7652: OE_DELAYED_REQUESTS_PVT.Process_Delayed_Requests(
7645: oe_debug_pub.add( 'OEXVORDB: BEFORE CALLING PROCESS_DELAYED_REQUESTS' , 2 ) ;
7646: END IF;
7647: IF (p_control_rec.process AND
7648: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7649: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
7650: THEN
7651:
7652: OE_DELAYED_REQUESTS_PVT.Process_Delayed_Requests(
7653: x_return_status => l_return_status
7684: oe_debug_pub.add('return_status : ' || p_x_action_request_tbl(i).return_status);
7685: oe_debug_pub.add('request_type : ' || p_x_action_request_tbl(i).request_type);
7686: END IF;
7687: IF p_x_action_request_tbl(i).return_status = FND_API.G_RET_STS_ERROR
7688: AND p_x_action_request_tbl(i).request_type = OE_GLOBALS.G_VERIFY_PAYMENT THEN
7689: x_return_status := FND_API.G_RET_STS_ERROR;
7690: RAISE FND_API.G_EXC_ERROR;
7691: END IF;
7692: i := p_x_action_request_tbl.next(i);
7695: comm rej */
7696:
7697: -- Start flows for the Entity.
7698: IF (p_control_rec.process AND
7699: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL AND
7700: OE_GLOBALS.G_RECURSION_MODE = 'N')
7701: THEN
7702: OE_ORDER_WF_UTIL.START_ALL_FLOWS;
7703: -- Process WF Action requests.
7696:
7697: -- Start flows for the Entity.
7698: IF (p_control_rec.process AND
7699: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL AND
7700: OE_GLOBALS.G_RECURSION_MODE = 'N')
7701: THEN
7702: OE_ORDER_WF_UTIL.START_ALL_FLOWS;
7703: -- Process WF Action requests.
7704: IF p_x_action_request_tbl.COUNT > 0 THEN
7938: IF l_debug_level > 0 THEN
7939: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
7940: END IF;
7941:
7942: IF OE_Globals.G_RECURSION_MODE <> 'Y' AND
7943: x_return_status = FND_API.G_RET_STS_SUCCESS AND
7944: l_control_rec.write_to_db = TRUE
7945: THEN
7946: IF l_debug_level > 0 THEN
8031: PROCEDURE Process_Order
8032: ( p_api_version_number IN NUMBER
8033: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8034: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
8035: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
8036: OE_GLOBALS.G_MISS_CONTROL_REC
8037: , x_return_status OUT NOCOPY VARCHAR2
8038:
8039: , x_msg_count OUT NOCOPY NUMBER
8032: ( p_api_version_number IN NUMBER
8033: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8034: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
8035: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
8036: OE_GLOBALS.G_MISS_CONTROL_REC
8037: , x_return_status OUT NOCOPY VARCHAR2
8038:
8039: , x_msg_count OUT NOCOPY NUMBER
8040:
8141: PROCEDURE Process_Order
8142: ( p_api_version_number IN NUMBER
8143: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8144: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
8145: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
8146: OE_GLOBALS.G_MISS_CONTROL_REC
8147: , x_return_status OUT NOCOPY VARCHAR2
8148:
8149: , x_msg_count OUT NOCOPY NUMBER
8142: ( p_api_version_number IN NUMBER
8143: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8144: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
8145: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
8146: OE_GLOBALS.G_MISS_CONTROL_REC
8147: , x_return_status OUT NOCOPY VARCHAR2
8148:
8149: , x_msg_count OUT NOCOPY NUMBER
8150:
8205: IS
8206: l_api_version_number CONSTANT NUMBER := 1.0;
8207: l_api_name CONSTANT VARCHAR2(30):= 'Process_Order';
8208: l_return_status VARCHAR2(1);
8209: l_control_rec OE_GLOBALS.Control_Rec_Type;
8210: l_header_rec OE_Order_PUB.Header_Rec_Type := p_x_header_rec;
8211: l_old_header_rec OE_Order_PUB.Header_Rec_Type := p_old_header_rec;
8212: l_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
8213: l_Header_Adj_tbl OE_Order_PUB.Header_Adj_Tbl_Type;
8281: x_return_status := FND_API.G_RET_STS_SUCCESS;
8282: fnd_profile.get('ONT_NEW_EDI_ACK_FWK', l_edi_ack_pfile);
8283: l_edi_ack_pfile := nvl(l_edi_ack_pfile, 'NO');
8284:
8285: IF OE_GLOBALS.G_RECURSION_MODE <> 'Y' THEN
8286:
8287: SAVEPOINT Process_Order;
8288: END IF;
8289:
8310: END IF;
8311:
8312: -- Set Org Context
8313:
8314: OE_GLOBALS.Set_Context;
8315:
8316: -- Bug 1929163: improving performance by not copying in variables
8317: -- to local variables. Can directly work on the IN OUT variables
8318: -- IMPORTANT NOTE:
8434: --Bug 2878121: Ignore NULL operation code
8435: IF l_header_rec.header_id is NOT NULL AND
8436: l_header_rec.header_id <> FND_API.G_MISS_NUM THEN
8437: IF l_header_rec.operation IS NOT NULL AND
8438: l_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
8439: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
8440: OE_GLOBALS.G_OPR_NONE) THEN
8441: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
8442: OE_MSG_PUB.Add;
8435: IF l_header_rec.header_id is NOT NULL AND
8436: l_header_rec.header_id <> FND_API.G_MISS_NUM THEN
8437: IF l_header_rec.operation IS NOT NULL AND
8438: l_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
8439: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
8440: OE_GLOBALS.G_OPR_NONE) THEN
8441: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
8442: OE_MSG_PUB.Add;
8443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8436: l_header_rec.header_id <> FND_API.G_MISS_NUM THEN
8437: IF l_header_rec.operation IS NOT NULL AND
8438: l_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
8439: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
8440: OE_GLOBALS.G_OPR_NONE) THEN
8441: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
8442: OE_MSG_PUB.Add;
8443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8444: END IF;
8444: END IF;
8445: END IF;
8446:
8447: IF l_header_rec.operation IS NOT NULL
8448: AND l_header_rec.operation <> OE_GLOBALS.G_OPR_NONE
8449: THEN
8450:
8451: -- This if is add to honor users sales credits if they do not
8452: -- want the default sales credit for the salesrep on the order
8451: -- This if is add to honor users sales credits if they do not
8452: -- want the default sales credit for the salesrep on the order
8453:
8454: IF l_Header_Scredit_tbl.COUNT > 0 and
8455: l_header_rec.operation = oe_globals.g_opr_create THEN
8456: OE_Validate_Header_Scredit.G_Create_Auto_Sales_Credit := 'N';
8457: END IF;
8458:
8459: Header
8478:
8479: -- Perform header group requests.
8480:
8481: IF (p_control_rec.process AND
8482: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8483: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
8484: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER)
8485: THEN
8486:
8479: -- Perform header group requests.
8480:
8481: IF (p_control_rec.process AND
8482: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8483: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
8484: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER)
8485: THEN
8486:
8487: NULL;
8480:
8481: IF (p_control_rec.process AND
8482: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8483: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
8484: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER)
8485: THEN
8486:
8487: NULL;
8488:
8504: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_ADJ_TBL' , 2 ) ;
8505: END IF;
8506: l_Header_Adj_rec := l_Header_Adj_tbl(I);
8507:
8508: IF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
8509: AND (l_Header_Adj_rec.header_id IS NULL OR
8510: l_Header_Adj_rec.header_id = FND_API.G_MISS_NUM)
8511: THEN
8512: IF l_header_rec.header_id IS NULL OR
8554: END IF;
8555: -- Perform Header_Adj group requests.
8556:
8557: IF (p_control_rec.process AND
8558: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8559: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
8560: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_ADJ)
8561: THEN
8562:
8555: -- Perform Header_Adj group requests.
8556:
8557: IF (p_control_rec.process AND
8558: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8559: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
8560: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_ADJ)
8561: THEN
8562:
8563: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8556:
8557: IF (p_control_rec.process AND
8558: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8559: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
8560: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_ADJ)
8561: THEN
8562:
8563: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8564: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
8560: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_ADJ)
8561: THEN
8562:
8563: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8564: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
8565: ,p_delete => FND_API.G_TRUE
8566: ,x_return_status => l_return_status
8567: );
8568: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8589: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_PRICE_ATT_TBL' , 2 ) ;
8590: END IF;
8591: l_Header_Price_Att_Rec := l_Header_Price_att_tbl(I);
8592:
8593: IF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
8594: AND (l_Header_Price_Att_rec.header_id IS NULL OR
8595: l_Header_Price_Att_rec.header_id = FND_API.G_MISS_NUM)
8596: THEN
8597: IF l_header_rec.header_id IS NULL OR
8628: END IF;
8629: -- Perform Header_Price_Att group requests.
8630:
8631: IF (p_control_rec.process AND
8632: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8633: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
8634: OR
8635: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Price_Att
8636: )
8629: -- Perform Header_Price_Att group requests.
8630:
8631: IF (p_control_rec.process AND
8632: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8633: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
8634: OR
8635: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Price_Att
8636: )
8637: THEN
8631: IF (p_control_rec.process AND
8632: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8633: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
8634: OR
8635: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Price_Att
8636: )
8637: THEN
8638:
8639: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8636: )
8637: THEN
8638:
8639: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8640: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
8641: ,p_delete => FND_API.G_TRUE
8642: ,x_return_status => l_return_status
8643: );
8644: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8665: oe_debug_pub.add( 'SETTING PRICE ADJUSTMENT ID ON HDR_ADJ_ATTBS' , 2 ) ;
8666: END IF;
8667: l_Header_Adj_Att_rec := l_Header_Adj_Att_tbl(I);
8668:
8669: IF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
8670: AND (l_Header_Adj_Att_rec.price_adjustment_id IS NULL OR
8671: l_Header_Adj_Att_rec.price_adjustment_id = FND_API.G_MISS_NUM)
8672: THEN
8673:
8718: -- Perform Header_Adj_Att group requests.
8719:
8720: /*
8721: IF (p_control_rec.process AND
8722: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8723: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
8724: OR
8725: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Adj_Att
8726: )
8719:
8720: /*
8721: IF (p_control_rec.process AND
8722: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8723: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
8724: OR
8725: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Adj_Att
8726: )
8727: THEN
8721: IF (p_control_rec.process AND
8722: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8723: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
8724: OR
8725: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Adj_Att
8726: )
8727: THEN
8728:
8729: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8726: )
8727: THEN
8728:
8729: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8730: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Att
8731: ,p_delete => FND_API.G_TRUE
8732: ,x_return_status => l_return_status
8733: );
8734: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8756: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_ADJ_ASSOC_TBL' , 2 ) ;
8757: END IF;
8758: l_Header_Adj_Assoc_rec := l_Header_Adj_Assoc_tbl(I);
8759:
8760: IF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
8761: AND (l_Header_Adj_Assoc_rec.Price_Adjustment_id IS NULL OR
8762: l_Header_Adj_Assoc_rec.Price_Adjustment_id = FND_API.G_MISS_NUM)
8763: THEN
8764:
8783: END IF;
8784:
8785: END IF;
8786:
8787: IF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
8788: AND (l_Header_Adj_Assoc_rec.rltd_Price_Adj_Id IS NULL OR
8789: l_Header_Adj_Assoc_rec.rltd_Price_Adj_Id = FND_API.G_MISS_NUM)
8790: THEN
8791:
8822: -- Perform Header_Adj_Assoc group requests.
8823:
8824: /*
8825: IF (p_control_rec.process AND
8826: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8827: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
8828: OR
8829: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
8830: )
8823:
8824: /*
8825: IF (p_control_rec.process AND
8826: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8827: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
8828: OR
8829: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
8830: )
8831: THEN
8825: IF (p_control_rec.process AND
8826: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8827: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
8828: OR
8829: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
8830: )
8831: THEN
8832:
8833: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8830: )
8831: THEN
8832:
8833: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8834: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
8835: ,p_delete => FND_API.G_TRUE
8836: ,x_return_status => l_return_status
8837: );
8838: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8863: END IF;
8864:
8865: l_Header_Scredit_rec := l_Header_Scredit_tbl(I);
8866:
8867: IF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE
8868: AND (l_Header_Scredit_rec.header_id IS NULL OR
8869: l_Header_Scredit_rec.header_id = FND_API.G_MISS_NUM)
8870: THEN
8871: IF l_header_rec.header_id IS NULL OR -- p_x_header_rec replaced with l_header_rec for 2896409
8915:
8916: -- Perform Header_Scredit group requests.
8917:
8918: IF (p_control_rec.process AND
8919: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8920: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
8921: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT)
8922: THEN
8923:
8916: -- Perform Header_Scredit group requests.
8917:
8918: IF (p_control_rec.process AND
8919: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8920: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
8921: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT)
8922: THEN
8923:
8924: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8917:
8918: IF (p_control_rec.process AND
8919: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8920: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
8921: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT)
8922: THEN
8923:
8924: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8925: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
8921: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT)
8922: THEN
8923:
8924: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8925: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
8926: ,p_delete => FND_API.G_TRUE
8927: ,x_return_status => l_return_status
8928: );
8929: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8976:
8977: --Bug 2790512: Prevent processing of line if operation is invalid
8978: --Bug 2878121: Ignore NULL operation code
8979: IF l_line_rec.operation IS NOT NULL AND
8980: l_line_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
8981: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
8982: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
8983: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
8984: OE_MSG_PUB.Add;
8977: --Bug 2790512: Prevent processing of line if operation is invalid
8978: --Bug 2878121: Ignore NULL operation code
8979: IF l_line_rec.operation IS NOT NULL AND
8980: l_line_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
8981: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
8982: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
8983: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
8984: OE_MSG_PUB.Add;
8985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8978: --Bug 2878121: Ignore NULL operation code
8979: IF l_line_rec.operation IS NOT NULL AND
8980: l_line_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
8981: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
8982: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
8983: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
8984: OE_MSG_PUB.Add;
8985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8986: END IF;
8984: OE_MSG_PUB.Add;
8985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8986: END IF;
8987:
8988: IF l_line_rec.operation = oe_globals.g_opr_update
8989: AND l_line_rec.split_action_code = 'SPLIT' THEN
8990: l_call_split := TRUE;
8991: END IF;
8992:
9003: l_header_id := l_line_tbl(I).header_id;
9004: END IF;
9005: END IF;
9006:
9007: IF l_line_rec.operation <> OE_GLOBALS.G_OPR_CREATE
9008: AND (l_line_rec.header_id IS NULL OR
9009: l_line_rec.header_id = FND_API.G_MISS_NUM)
9010: THEN
9011: IF (l_header_id IS NOT NULL AND
9020: END IF;
9021:
9022: -- Copy the parent ID (header ID), if not passed, on
9023: -- the record for CREATE operations
9024: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE
9025: THEN
9026:
9027: IF (l_line_rec.header_id IS NULL OR
9028: l_line_rec.header_id = FND_API.G_MISS_NUM)
9195: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE SC TABLE' ) ;
9196: END IF;
9197: l_Line_Scredit_rec := l_Line_Scredit_tbl(I);
9198:
9199: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE
9200: AND (l_Line_Scredit_rec.line_id IS NULL OR
9201: l_Line_Scredit_rec.line_id = FND_API.G_MISS_NUM)
9202: THEN
9203: IF l_debug_level > 0 THEN
9249: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE ADJ TABLE' , 2 ) ;
9250: END IF;
9251: l_Line_Adj_rec := l_Line_Adj_tbl(I);
9252:
9253: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
9254: AND (l_Line_Adj_rec.line_id IS NULL OR
9255: l_Line_Adj_rec.line_id = FND_API.G_MISS_NUM)
9256: THEN
9257:
9298:
9299: -- Perform line group requests.
9300:
9301: IF (p_control_rec.process AND
9302: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9303: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9304: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE)
9305: THEN
9306: IF l_debug_level > 0 THEN
9299: -- Perform line group requests.
9300:
9301: IF (p_control_rec.process AND
9302: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9303: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9304: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE)
9305: THEN
9306: IF l_debug_level > 0 THEN
9307: oe_debug_pub.add( 'PROCESS LINE REQUESTS' ) ;
9300:
9301: IF (p_control_rec.process AND
9302: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9303: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9304: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE)
9305: THEN
9306: IF l_debug_level > 0 THEN
9307: oe_debug_pub.add( 'PROCESS LINE REQUESTS' ) ;
9308: END IF;
9307: oe_debug_pub.add( 'PROCESS LINE REQUESTS' ) ;
9308: END IF;
9309:
9310: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9311: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
9312: ,p_delete => FND_API.G_TRUE
9313: ,x_return_status => l_return_status
9314: );
9315: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9340:
9341: -- Perform Line_Adj group requests.
9342:
9343: IF (p_control_rec.process AND
9344: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9345: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9346: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_ADJ)
9347: THEN
9348:
9341: -- Perform Line_Adj group requests.
9342:
9343: IF (p_control_rec.process AND
9344: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9345: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9346: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_ADJ)
9347: THEN
9348:
9349: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9342:
9343: IF (p_control_rec.process AND
9344: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9345: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9346: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_ADJ)
9347: THEN
9348:
9349: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9350: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
9346: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_ADJ)
9347: THEN
9348:
9349: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9350: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
9351: ,p_delete => FND_API.G_TRUE
9352: ,x_return_status => l_return_status
9353: );
9354: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9388:
9389: -- Perform Line_Scredit group requests.
9390:
9391: IF (p_control_rec.process AND
9392: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9393: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9394: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_SCREDIT)
9395: THEN
9396:
9389: -- Perform Line_Scredit group requests.
9390:
9391: IF (p_control_rec.process AND
9392: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9393: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9394: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_SCREDIT)
9395: THEN
9396:
9397: IF l_debug_level > 0 THEN
9390:
9391: IF (p_control_rec.process AND
9392: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9393: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9394: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_SCREDIT)
9395: THEN
9396:
9397: IF l_debug_level > 0 THEN
9398: oe_debug_pub.add( 'PROCESSING DELAYED REQUESTS FOR LINES' , 2 ) ;
9398: oe_debug_pub.add( 'PROCESSING DELAYED REQUESTS FOR LINES' , 2 ) ;
9399: END IF;
9400:
9401: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9402: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
9403: ,p_delete => FND_API.G_TRUE
9404: ,x_return_status => l_return_status
9405: );
9406:
9431: WHILE I IS NOT NULL LOOP
9432:
9433: l_Lot_Serial_rec := l_Lot_Serial_tbl(I);
9434:
9435: IF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_CREATE
9436: AND (l_Lot_Serial_rec.line_id IS NULL OR
9437: l_Lot_Serial_rec.line_id = FND_API.G_MISS_NUM)
9438: THEN
9439:
9485:
9486: -- Perform Lot_Serial group requests.
9487:
9488: IF (p_control_rec.process AND
9489: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9490: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9491: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LOT_SERIAL)
9492: THEN
9493:
9486: -- Perform Lot_Serial group requests.
9487:
9488: IF (p_control_rec.process AND
9489: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9490: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9491: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LOT_SERIAL)
9492: THEN
9493:
9494: NULL;
9487:
9488: IF (p_control_rec.process AND
9489: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9490: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9491: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LOT_SERIAL)
9492: THEN
9493:
9494: NULL;
9495:
9508: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE ATTRIBUTES TABLE' , 2 ) ;
9509: END IF;
9510: l_Line_Price_Att_rec := l_Line_Price_Att_tbl(I);
9511:
9512: IF l_Line_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
9513: AND (l_Line_Price_Att_rec.line_id IS NULL OR
9514: l_Line_Price_Att_rec.line_id = FND_API.G_MISS_NUM)
9515: THEN
9516:
9562:
9563: -- Perform Line_Price_Att group requests.
9564:
9565: IF (p_control_rec.process AND
9566: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9567: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9568: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Price_Att)
9569: THEN
9570:
9563: -- Perform Line_Price_Att group requests.
9564:
9565: IF (p_control_rec.process AND
9566: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9567: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9568: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Price_Att)
9569: THEN
9570:
9571: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9564:
9565: IF (p_control_rec.process AND
9566: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9567: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9568: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Price_Att)
9569: THEN
9570:
9571: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9572: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
9568: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Price_Att)
9569: THEN
9570:
9571: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9572: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
9573: ,p_delete => FND_API.G_TRUE
9574: ,x_return_status => l_return_status
9575: );
9576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9595: oe_debug_pub.add( 'SETTING PRICE_ADJUSTMENT_ID ON LINE ADJ ATTRIB TABLE' , 2 ) ;
9596: END IF;
9597: l_Line_Adj_Att_rec := l_Line_Adj_Att_tbl(I);
9598:
9599: IF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
9600: AND (l_Line_Adj_Att_rec.price_adjustment_id IS NULL OR
9601: l_Line_Adj_Att_rec.price_adjustment_id = FND_API.G_MISS_NUM)
9602: THEN
9603:
9649: -- Perform Line_Adj_Att group requests.
9650: /*
9651:
9652: IF (p_control_rec.process AND
9653: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9654: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9655: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Adj_Att)
9656: THEN
9657:
9650: /*
9651:
9652: IF (p_control_rec.process AND
9653: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9654: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9655: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Adj_Att)
9656: THEN
9657:
9658: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9651:
9652: IF (p_control_rec.process AND
9653: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9654: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9655: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Adj_Att)
9656: THEN
9657:
9658: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9659: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Att
9655: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Adj_Att)
9656: THEN
9657:
9658: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9659: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Att
9660: ,p_delete => FND_API.G_TRUE
9661: ,x_return_status => l_return_status
9662: );
9663: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9682: oe_debug_pub.add( 'SETTING PRICE_ADJUSTMENT_ID ON LINE ADJ ASSOCS TABLE' , 2 ) ;
9683: END IF;
9684: l_Line_Adj_Assoc_rec := l_Line_Adj_Assoc_tbl(I);
9685:
9686: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
9687: AND (l_Line_Adj_Assoc_rec.price_adjustment_id IS NULL OR
9688: l_Line_Adj_Assoc_rec.price_adjustment_id = FND_API.G_MISS_NUM)
9689: THEN
9690:
9717: END IF;
9718: END IF;
9719: END IF;
9720:
9721: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
9722: AND (l_Line_Adj_Assoc_rec.Line_id IS NULL OR
9723: l_Line_Adj_Assoc_rec.Line_id = FND_API.G_MISS_NUM)
9724: THEN
9725:
9735: l_Line_Adj_Assoc_tbl(I).Line_Id := l_line_tbl(l_Line_Adj_Assoc_rec.Line_index).Line_id;
9736: END IF;
9737: END IF;
9738:
9739: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
9740: AND (l_Line_Adj_Assoc_rec.rltd_Price_Adj_Id IS NULL OR
9741: l_Line_Adj_Assoc_rec.rltd_Price_Adj_Id = FND_API.G_MISS_NUM)
9742: THEN
9743:
9768: -- Perform Line_Adj_Assoc group requests.
9769: /*
9770:
9771: IF (p_control_rec.process AND
9772: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9773: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9774: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Adj_Assoc)
9775: THEN
9776:
9769: /*
9770:
9771: IF (p_control_rec.process AND
9772: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9773: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9774: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Adj_Assoc)
9775: THEN
9776:
9777: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9770:
9771: IF (p_control_rec.process AND
9772: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9773: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9774: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Adj_Assoc)
9775: THEN
9776:
9777: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9778: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Assoc
9774: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Adj_Assoc)
9775: THEN
9776:
9777: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9778: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Assoc
9779: ,p_delete => FND_API.G_TRUE
9780: ,x_return_status => l_return_status
9781: );
9782: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9798: FOR k in l_request_tbl.first .. l_request_tbl.last LOOP
9799:
9800: -- oe_debug_pub.add('Processing Line Requests ' ||TO_CHAR(k), 2);
9801: IF (l_request_tbl(k).entity_code IS NULL OR
9802: l_request_tbl(k).entity_code = Oe_Globals.G_ENTITY_HEADER) THEN
9803:
9804: IF (l_request_tbl(k).entity_id = FND_API.G_MISS_NUM
9805: OR l_request_tbl(k).entity_id is null ) THEN
9806: IF l_header_rec.header_id IS NULL OR
9813: l_request_tbl(k).entity_id := l_header_rec.header_id;
9814:
9815: END IF;
9816: END IF;
9817: ELSIF (l_request_tbl(k).entity_code = Oe_Globals.G_ENTITY_LINE) THEN
9818:
9819: IF (to_number(l_request_tbl(k).param1) <> FND_API.G_MISS_NUM)
9820: AND (l_request_tbl(k).param1 IS NOT NULL) THEN
9821:
9853: IF l_debug_level > 0 THEN
9854: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON REQUEST TABLE' , 2 ) ;
9855: END IF;
9856:
9857: IF (l_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_HEADER) THEN
9858:
9859: IF (l_request_tbl(I).entity_id IS NULL OR
9860: l_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
9861: THEN
9871: l_request_tbl(I).entity_id := l_header_rec.header_id;
9872: END IF;
9873: END IF;
9874:
9875: ELSIF (l_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_LINE) THEN
9876:
9877: IF (l_request_tbl(I).entity_id IS NULL OR
9878: l_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
9879: THEN
9911: IF l_debug_level > 0 THEN
9912: oe_debug_pub.add( 'OEXVORDB: BEFORE CALLING PROCESS_DELAYED_REQUESTS' , 2 ) ;
9913: END IF;
9914: IF (p_control_rec.process AND
9915: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9916: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
9917: THEN
9918:
9919: OE_DELAYED_REQUESTS_PVT.Process_Delayed_Requests(
9912: oe_debug_pub.add( 'OEXVORDB: BEFORE CALLING PROCESS_DELAYED_REQUESTS' , 2 ) ;
9913: END IF;
9914: IF (p_control_rec.process AND
9915: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9916: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
9917: THEN
9918:
9919: OE_DELAYED_REQUESTS_PVT.Process_Delayed_Requests(
9920: x_return_status => l_return_status
9943:
9944:
9945: -- Start flows for the Entity.
9946: IF (p_control_rec.process AND
9947: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL AND
9948: OE_GLOBALS.G_RECURSION_MODE = 'N')
9949: THEN
9950: OE_ORDER_WF_UTIL.START_ALL_FLOWS;
9951: -- Process WF Action requests.
9944:
9945: -- Start flows for the Entity.
9946: IF (p_control_rec.process AND
9947: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL AND
9948: OE_GLOBALS.G_RECURSION_MODE = 'N')
9949: THEN
9950: OE_ORDER_WF_UTIL.START_ALL_FLOWS;
9951: -- Process WF Action requests.
9952: IF p_x_action_request_tbl.COUNT > 0 THEN
10181: IF l_debug_level > 0 THEN
10182: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
10183: END IF;
10184: -- Following check is commented to fix 2380911
10185: IF -- OE_Globals.G_RECURSION_MODE <> 'Y' AND
10186: x_return_status = FND_API.G_RET_STS_SUCCESS AND
10187: l_control_rec.write_to_db = TRUE
10188: THEN
10189: IF l_debug_level > 0 THEN
10284: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
10285: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
10286: x_return_status := FND_API.G_RET_STS_ERROR;
10287:
10288: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
10289: IF l_debug_level > 0 THEN
10290: oe_debug_pub.add( 'DELETE REQUEST11' , 2 ) ;
10291: END IF;
10292:
10316: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
10317: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
10318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10319:
10320: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
10321: IF l_debug_level > 0 THEN
10322: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
10323: END IF;
10324:
10349: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
10350: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
10351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10352:
10353: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
10354: IF l_debug_level > 0 THEN
10355: oe_debug_pub.add( 'DELETE REQUEST13' , 2 ) ;
10356: END IF;
10357:
10508: SAVEPOINT Lock_Order_PVT;
10509:
10510: -- Lock header
10511:
10512: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_LOCK THEN
10513:
10514: OE_Header_Util.Lock_Row
10515: ( p_x_header_rec => p_x_header_rec
10516: , x_return_status => l_return_status
10531:
10532: I := p_x_Header_Adj_tbl.FIRST;
10533: WHILE I IS NOT NULL LOOP
10534:
10535: IF p_x_Header_Adj_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10536:
10537: OE_Header_Adj_Util.Lock_Row
10538: ( p_x_Header_Adj_rec => p_x_Header_Adj_tbl(I)
10539: , x_return_status => l_return_status
10555:
10556: I := p_x_Header_Price_Att_tbl.FIRST;
10557: WHILE I IS NOT NULL LOOP
10558:
10559: IF p_x_Header_Price_Att_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10560:
10561: OE_Header_PAttr_Util.Lock_Row
10562: ( p_x_Header_Price_Att_rec => p_x_Header_Price_Att_tbl(I)
10563: , x_return_status => l_return_status
10579:
10580: I := p_x_Header_Adj_Att_tbl.FIRST;
10581: WHILE I IS NOT NULL LOOP
10582:
10583: IF p_x_Header_Adj_Att_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10584:
10585: OE_Header_Price_Aattr_Util.Lock_Row
10586: ( p_x_Header_Adj_Att_rec => p_x_Header_Adj_Att_tbl(I)
10587: , x_return_status => l_return_status
10603:
10604: I := p_x_Header_Adj_Assoc_tbl.FIRST;
10605: WHILE I IS NOT NULL LOOP
10606:
10607: IF p_x_Header_Adj_Assoc_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10608:
10609: OE_Header_Adj_Assocs_Util.Lock_Row
10610: ( p_x_Header_Adj_Assoc_rec => p_x_Header_Adj_Assoc_tbl(I)
10611: , x_return_status => l_return_status
10629:
10630: I := p_x_Header_Scredit_tbl.FIRST;
10631: WHILE I IS NOT NULL LOOP
10632:
10633: IF p_x_Header_Scredit_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10634:
10635: OE_Header_Scredit_Util.Lock_Row
10636: ( p_x_Header_Scredit_rec => p_x_Header_Scredit_tbl(I)
10637: , x_return_status => l_return_status
10654: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
10655: I := p_x_Header_Payment_tbl.FIRST;
10656: WHILE I IS NOT NULL LOOP
10657:
10658: IF p_x_Header_Payment_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10659:
10660: OE_Header_Payment_Util.Lock_Row
10661: ( p_x_Header_Payment_rec => p_x_Header_Payment_tbl(I)
10662: , x_return_status => l_return_status
10681:
10682: I := p_x_line_tbl.FIRST;
10683: WHILE I IS NOT NULL LOOP
10684:
10685: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10686:
10687: OE_Line_Util.Lock_Row
10688: ( p_x_line_rec => p_x_line_tbl(I)
10689: , x_return_status => l_return_status
10707:
10708: I := p_x_Line_Adj_tbl.FIRST;
10709: WHILE I IS NOT NULL LOOP
10710:
10711: IF p_x_Line_Adj_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10712:
10713: OE_Line_Adj_Util.Lock_Row
10714: ( p_x_Line_Adj_rec => p_x_Line_Adj_tbl(I)
10715: , x_return_status => l_return_status
10731:
10732: I := p_x_Line_Price_Att_tbl.FIRST;
10733: WHILE I IS NOT NULL LOOP
10734:
10735: IF p_x_Line_Price_Att_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10736:
10737: OE_Line_PAttr_Util.Lock_Row
10738: ( p_x_Line_Price_Att_rec => p_x_Line_Price_Att_tbl(I)
10739: , x_return_status => l_return_status
10755:
10756: I := p_x_Line_Adj_Att_tbl.FIRST;
10757: WHILE I IS NOT NULL LOOP
10758:
10759: IF p_x_Line_Adj_Att_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10760:
10761: OE_Line_Price_Aattr_Util.Lock_Row
10762: ( p_x_Line_Adj_Att_rec => p_x_Line_Adj_Att_tbl(I)
10763: , x_return_status => l_return_status
10779:
10780: I := p_x_Line_Adj_Assoc_tbl.FIRST;
10781: WHILE I IS NOT NULL LOOP
10782:
10783: IF p_x_Line_Adj_Assoc_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10784:
10785: OE_Line_Adj_Assocs_Util.Lock_Row
10786: ( p_x_Line_Adj_Assoc_rec => p_x_Line_Adj_Assoc_tbl(I)
10787: , x_return_status => l_return_status
10804: -- FOR I IN 1..p_Line_Scredit_tbl.COUNT LOOP
10805: I := p_x_Line_Scredit_tbl.FIRST;
10806: WHILE I IS NOT NULL LOOP
10807:
10808: IF p_x_Line_Scredit_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10809:
10810: OE_Line_Scredit_Util.Lock_Row
10811: ( p_x_Line_Scredit_rec => p_x_Line_Scredit_tbl(I)
10812: , x_return_status => l_return_status
10830: I := p_x_Line_Payment_tbl.FIRST;
10831:
10832: WHILE I IS NOT NULL LOOP
10833:
10834: IF p_x_Line_Payment_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10835:
10836: OE_Line_Payment_Util.Lock_Row
10837: ( p_x_Line_Payment_rec => p_x_Line_Payment_tbl(I)
10838: , x_return_status => l_return_status
10857:
10858: I := p_x_Lot_Serial_tbl.FIRST;
10859: WHILE I IS NOT NULL LOOP
10860:
10861: IF p_x_Lot_Serial_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10862:
10863: OE_Lot_Serial_Util.Lock_Row
10864: ( p_x_Lot_Serial_rec => p_x_Lot_Serial_tbl(I)
10865: , x_return_status => l_return_status
11606:
11607: IF p_x_line_rec.top_model_line_index is NOT NULL AND
11608: p_x_line_rec.top_model_line_index <> FND_API.G_MISS_NUM AND
11609: nvl(p_x_line_tbl(p_x_line_rec.top_model_line_index).operation, 'A') <>
11610: OE_GLOBALS.G_OPR_CREATE
11611: THEN
11612: l_line_rec := p_x_line_tbl(p_x_line_rec.top_model_line_index);
11613:
11614: oe_config_pvt.Explode_Bill
11740: IF l_debug_level > 0 THEN /* Bug # 4036765 */
11741: oe_debug_pub.add( 'PROCESS PARTIAL IS TRUE' , 3 ) ;
11742: END IF;
11743: p_x_line_rec.return_status := FND_API.G_RET_STS_ERROR;
11744: p_x_line_rec.operation := OE_GLOBALS.G_OPR_NONE;
11745: OE_GLOBALS.G_FAIL_ORDER_IMPORT := TRUE; /* Bug # 4036765 */
11746: ELSE
11747: IF l_debug_level > 0 THEN
11748: oe_debug_pub.add( 'PROCESS PARTIAL IS NOT TRUE' , 3 ) ;
11741: oe_debug_pub.add( 'PROCESS PARTIAL IS TRUE' , 3 ) ;
11742: END IF;
11743: p_x_line_rec.return_status := FND_API.G_RET_STS_ERROR;
11744: p_x_line_rec.operation := OE_GLOBALS.G_OPR_NONE;
11745: OE_GLOBALS.G_FAIL_ORDER_IMPORT := TRUE; /* Bug # 4036765 */
11746: ELSE
11747: IF l_debug_level > 0 THEN
11748: oe_debug_pub.add( 'PROCESS PARTIAL IS NOT TRUE' , 3 ) ;
11749: END IF;
11775: l_bom_item_type = 1 THEN
11776: IF l_debug_level > 0 THEN
11777: oe_debug_pub.add( 'THIS IS A CLASS' , 5 ) ;
11778: END IF;
11779: p_x_line_rec.item_type_code := OE_GLOBALS.G_ITEM_CLASS;
11780:
11781: ELSIF l_bom_item_type = 4 THEN
11782: IF l_debug_level > 0 THEN
11783: oe_debug_pub.add( 'THIS IS A OPTION/KIT' , 1 ) ;
11932: l_index := l_index + 1;
11933:
11934: p_x_line_tbl(l_index) := OE_Order_Pub.G_Miss_Line_Rec;
11935:
11936: p_x_line_tbl(l_index).operation := OE_GLOBALS.G_OPR_CREATE;
11937: p_x_line_tbl(l_index).component_code := l_component_code;
11938: p_x_line_tbl(l_index).top_model_line_id
11939: := p_x_line_tbl(l_option_index).top_model_line_id;
11940: p_x_line_tbl(l_index).header_id
12063: IF l_debug_level > 0 THEN
12064: oe_debug_pub.add( 'THIS IS A CLASS' , 5 ) ;
12065: END IF;
12066: p_x_line_tbl(l_index).item_type_code
12067: := OE_GLOBALS.G_ITEM_CLASS;
12068: END IF;
12069:
12070: IF l_debug_level > 0 THEN
12071: oe_debug_pub.add( 'GET ORDERED ITEM NAME' , 3 ) ;