[Home] [Help]
27:
28: -- SAM
29: TYPE OE_OPTION_INDEX_TBL_TYPE IS TABLE OF NUMBER
30: INDEX BY BINARY_INTEGER;
31: G_BINARY_LIMIT CONSTANT NUMBER := OE_GLOBALS.G_BINARY_LIMIT;
32: --SUN OIP ER
33: TYPE event_Tbl IS TABLE OF boolean
34: INDEX BY BINARY_INTEGER;
35: L_event_tbl event_Tbl;
44: IF l_debug_level > 0 THEN
45: oe_debug_pub.add( 'ENTER SET RECURSION MODE' , 1 ) ;
46: oe_debug_pub.add( 'ENTITY CODE-'||P_ENTITY_CODE , 1 ) ;
47: oe_debug_pub.add( 'ENTRY-EXIT MODE -'||P_IN_OUT , 1 ) ;
48: oe_debug_pub.add( 'RECURSION MODE AT ENTRY -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
49: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT ENTRY -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
50: END IF;
51:
52: IF p_entity_code = 1 THEN
63: line_scredit_ctr > 0 OR
64: prn_ctr > 0 OR
65: pr_ctr > 0 ) THEN
66: --prrt_ctr > 0 ) THEN
67: oe_globals.g_recursion_mode := 'Y';
68: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
69: ELSE
70: oe_globals.g_recursion_mode := 'N';
71: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
66: --prrt_ctr > 0 ) THEN
67: oe_globals.g_recursion_mode := 'Y';
68: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
69: ELSE
70: oe_globals.g_recursion_mode := 'N';
71: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
72: END IF;
73:
74: /* This is added to control notification call to just one call out. */
86: ELSIF p_In_Out = 0 THEN
87: hdr_ctr := hdr_ctr - 1;
88: END IF;
89: IF hdr_ctr > 1 THEN
90: oe_globals.g_recursion_mode := 'Y';
91: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
92: ELSE
93: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
94: null; /* SAM */
102: ELSIF p_In_Out = 0 THEN
103: hdr_adj_ctr := hdr_adj_ctr - 1;
104: END IF;
105: IF hdr_adj_ctr > 1 THEN
106: oe_globals.g_recursion_mode := 'Y';
107: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
108: ELSE
109: oe_globals.g_recursion_mode := 'N';
110: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
105: IF hdr_adj_ctr > 1 THEN
106: oe_globals.g_recursion_mode := 'Y';
107: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
108: ELSE
109: oe_globals.g_recursion_mode := 'N';
110: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
111: END IF;
112:
113: NULL;
119: ELSIF p_In_Out = 0 THEN
120: hdr_scredit_ctr := hdr_scredit_ctr - 1;
121: END IF;
122: IF hdr_scredit_ctr > 1 THEN
123: oe_globals.g_recursion_mode := 'Y';
124: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
125: ELSE
126: oe_globals.g_recursion_mode := 'N';
127: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
122: IF hdr_scredit_ctr > 1 THEN
123: oe_globals.g_recursion_mode := 'Y';
124: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
125: ELSE
126: oe_globals.g_recursion_mode := 'N';
127: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
128: END IF;
129:
130: NULL;
134: ELSIF p_In_Out = 0 THEN
135: line_ctr := line_ctr - 1;
136: END IF;
137: IF line_ctr > 1 THEN
138: oe_globals.g_recursion_mode := 'Y';
139: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
140: ELSE
141: oe_globals.g_recursion_mode := 'N';
142: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
137: IF line_ctr > 1 THEN
138: oe_globals.g_recursion_mode := 'Y';
139: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
140: ELSE
141: oe_globals.g_recursion_mode := 'N';
142: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
143: END IF;
144:
145: NULL;
149: ELSIF p_In_Out = 0 THEN
150: line_adj_ctr := line_adj_ctr - 1;
151: END IF;
152: IF line_adj_ctr > 1 THEN
153: oe_globals.g_recursion_mode := 'Y';
154: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
155: ELSE
156: oe_globals.g_recursion_mode := 'N';
157: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
152: IF line_adj_ctr > 1 THEN
153: oe_globals.g_recursion_mode := 'Y';
154: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
155: ELSE
156: oe_globals.g_recursion_mode := 'N';
157: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
158: END IF;
159:
160: NULL;
164: ELSIF p_In_Out = 0 THEN
165: line_scredit_ctr := line_scredit_ctr - 1;
166: END IF;
167: IF line_scredit_ctr > 1 THEN
168: oe_globals.g_recursion_mode := 'Y';
169: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
170: ELSE
171: oe_globals.g_recursion_mode := 'N';
172: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
167: IF line_scredit_ctr > 1 THEN
168: oe_globals.g_recursion_mode := 'Y';
169: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
170: ELSE
171: oe_globals.g_recursion_mode := 'N';
172: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
173: END IF;
174:
175: NULL;
181: END IF;
182:
183: /* IF (prn_ctr > 1 AND
184: pr_ctr > 0) THEN
185: oe_globals.g_recursion_mode := 'Y';*/
186: IF prn_ctr > 0 AND
187: (line_ctr > 0 OR
188: Hdr_ctr > 0 OR
189: Hdr_adj_ctr > 0 OR
192: line_scredit_ctr > 0 OR
193: po_ctr > 1 OR
194: --prrt_ctr > 0 OR
195: pr_ctr > 0 ) THEN
196: oe_globals.g_recursion_mode := 'Y';
197: ELSIF prn_ctr > 1 THEN
198: oe_globals.g_recursion_mode := 'Y';
199: ELSIF
200: prn_ctr = 0 AND
194: --prrt_ctr > 0 OR
195: pr_ctr > 0 ) THEN
196: oe_globals.g_recursion_mode := 'Y';
197: ELSIF prn_ctr > 1 THEN
198: oe_globals.g_recursion_mode := 'Y';
199: ELSIF
200: prn_ctr = 0 AND
201: (line_ctr > 1 OR
202: Hdr_ctr > 1 OR
205: line_adj_ctr > 1 OR
206: line_scredit_ctr > 1 OR
207: po_ctr > 1 OR
208: pr_ctr > 1 ) THEN
209: oe_globals.g_recursion_mode := 'Y';
210:
211: ELSE
212: oe_globals.g_recursion_mode := 'N';
213: END IF;
208: pr_ctr > 1 ) THEN
209: oe_globals.g_recursion_mode := 'Y';
210:
211: ELSE
212: oe_globals.g_recursion_mode := 'N';
213: END IF;
214:
215: IF prn_ctr > 0 AND
216: (line_ctr > 0 OR
240: ELSIF p_In_Out = 0 THEN
241: pr_ctr := pr_ctr - 1;
242: END IF;
243: IF pr_ctr > 1 THEN
244: oe_globals.g_recursion_mode := 'Y';
245: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
246: ELSE
247: oe_globals.g_recursion_mode := 'N';
248: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
243: IF pr_ctr > 1 THEN
244: oe_globals.g_recursion_mode := 'Y';
245: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
246: ELSE
247: oe_globals.g_recursion_mode := 'N';
248: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
249: END IF;
250: NULL;
251:
273: -- Pricing is now going by ui flag to set the process as false while
274: -- executing request for req type in validate and write.
275:
276: /*IF prrt_ctr > 1 THEN
277: oe_globals.g_recursion_mode := 'Y';
278: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
279: ELSE
280: oe_globals.g_recursion_mode := 'N';
281: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
276: /*IF prrt_ctr > 1 THEN
277: oe_globals.g_recursion_mode := 'Y';
278: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
279: ELSE
280: oe_globals.g_recursion_mode := 'N';
281: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
282: END IF; */
283: NULL;
284:
283: NULL;
284:
285:
286: ELSE
287: oe_globals.g_recursion_mode := 'N';
288: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
289: NULL;
290: END IF;
291: IF l_debug_level > 0 THEN
288: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
289: NULL;
290: END IF;
291: IF l_debug_level > 0 THEN
292: oe_debug_pub.add( 'RECURSION MODE AT EXIT -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
293: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT EXIT -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
294: END IF;
295: End Set_Recursion_Mode ;
296:
331:
332: IF l_debug_level > 0 THEN
333: oe_debug_pub.add( 'ENTER VALID UPGRADED ORDER' ) ;
334: END IF;
335: IF (NOT OE_GLOBALS.EQUAL(p_header_id, g_header_id)) OR
336: -- aksingh perf removing OR part of below condition as not required
337: -- (g_header_id IS NULL OR g_upgraded_flag IS NULL)
338: (g_header_id IS NULL)
339: THEN
373:
374: PROCEDURE Header
375: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
376: , p_validation_level IN NUMBER
377: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
378: , p_x_header_rec IN OUT NOCOPY OE_Order_PUB.Header_Rec_Type
379: , p_x_old_header_rec IN OUT NOCOPY OE_Order_PUB.Header_Rec_Type
380: , x_return_status OUT NOCOPY VARCHAR2
381:
381:
382: )
383: IS
384: l_return_status VARCHAR2(1);
385: l_control_rec OE_GLOBALS.Control_Rec_Type;
386: l_user_id NUMBER;
387: l_resp_id NUMBER;
388: l_application_id NUMBER;
389: l_hdr_process_name VARCHAR2(30);
420: END IF;
421:
422: -- This is to check if the order is an upgraded order and is upgraded
423: -- correctly
424: IF p_x_header_rec.operation <> OE_GLOBALS.G_OPR_CREATE THEN
425:
426: IF l_debug_level > 0 THEN
427: oe_debug_pub.add( 'BEFORE CALLING VALID UPGRADE ORDER' , 2 ) ;
428: END IF;
468:
469:
470: -- Load API control record
471:
472: l_control_rec := OE_GLOBALS.Init_Control_Rec
473: ( p_operation => p_x_header_rec.operation
474: , p_control_rec => p_control_rec
475: );
476:
483: p_x_header_rec.return_status := FND_API.G_RET_STS_SUCCESS;
484:
485: -- Prepare record.
486:
487: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
488:
489: IF l_debug_level > 0 THEN
490: oe_debug_pub.add( 'OPERATION = CREATE SO SET OLD TO NULL' , 2 ) ;
491: END IF;
494: -- Set missing old record elements to NULL.
495:
496: OE_Header_Util.Convert_Miss_To_Null (p_x_old_header_rec);
497:
498: ELSIF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
499: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE
500: THEN
501:
502: IF l_debug_level > 0 THEN
495:
496: OE_Header_Util.Convert_Miss_To_Null (p_x_old_header_rec);
497:
498: ELSIF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
499: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE
500: THEN
501:
502: IF l_debug_level > 0 THEN
503: oe_debug_pub.add( 'OPERATION = UPDATE SO QUERY OLD' , 2 ) ;
558: ,p_source_document_line_id => null );
559:
560: END IF;
561:
562: IF ( p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
563: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE
564: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE) THEN
565:
566:
559:
560: END IF;
561:
562: IF ( p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
563: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE
564: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE) THEN
565:
566:
567: -- Check security
560: END IF;
561:
562: IF ( p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
563: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE
564: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE) THEN
565:
566:
567: -- Check security
568: IF l_control_rec.check_security
565:
566:
567: -- Check security
568: IF l_control_rec.check_security
569: AND (p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE
570: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
571: THEN
572:
573: IF l_debug_level > 0 THEN
566:
567: -- Check security
568: IF l_control_rec.check_security
569: AND (p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE
570: OR p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
571: THEN
572:
573: IF l_debug_level > 0 THEN
574: oe_debug_pub.add( 'CALLING CHECK ATTRIBUTES SECURITY',0.5 ) ; -- debug level 0.5 added for bug 13435459
616: IF l_debug_level > 0 THEN
617: oe_debug_pub.add( 'AFTER VALIDATE ATTRIBUTES' , 0.5 ) ; -- debug added for bug 13435459
618: END IF;
619:
620: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
621: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
623: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
624: RAISE FND_API.G_EXC_ERROR;
695: IF l_debug_level > 0 THEN
696: oe_debug_pub.add( 'VALIDATE ENTITY' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
697: END IF;
698:
699: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
700:
701: OE_Validate_Header.Entity_Delete
702: ( x_return_status => l_return_status
703: , p_header_rec => p_x_header_rec
737: -- any of the constrainable attributes and also none of the defaulted
738: -- attributes was constrainable!. In such a case, the g_check_all_cols
739: -- _constraint flag would still be 'Y' as the flag is reset only
740: -- when checking for constraints.
741: IF NOT (p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE
742: AND OE_Header_Security.g_check_all_cols_constraint = 'Y')
743: AND l_control_rec.check_security
744: THEN
745: IF l_debug_level > 0 THEN
779: IF l_debug_level > 0 THEN
780: oe_debug_pub.add( 'WRITE TO DB' , 0.5 ) ; --debug level changed to 0.5 fro bug 13435459
781: END IF;
782:
783: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
784:
785: OE_Header_Util.Delete_Row
786: ( p_header_id => p_x_header_rec.header_id
787: );
797: IF p_x_header_rec.credit_card_approval_date = FND_API.G_MISS_DATE THEN
798: p_x_header_rec.credit_card_approval_date := NULL;
799: END IF;
800:
801: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
802:
803: IF l_debug_level > 0 THEN
804: oe_debug_pub.add( 'HEADER FLOW STATUS :'||P_X_HEADER_REC.FLOW_STATUS_CODE , 1 ) ;
805: END IF;
804: oe_debug_pub.add( 'HEADER FLOW STATUS :'||P_X_HEADER_REC.FLOW_STATUS_CODE , 1 ) ;
805: END IF;
806: OE_Header_Util.Update_Row (p_x_header_rec);
807:
808: ELSIF p_x_header_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
809:
810: p_x_header_rec.creation_date := SYSDATE;
811: p_x_header_rec.created_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
812:
860: p_In_out => 0);
861: p_x_header_rec.return_status := FND_API.G_RET_STS_ERROR;
862: x_return_status := FND_API.G_RET_STS_ERROR;
863: OE_Header_Security.g_check_all_cols_constraint := 'Y';
864: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
865: IF l_debug_level > 0 THEN
866: oe_debug_pub.add( 'DELETE REQUEST1' , 2 ) ;
867: END IF;
868: OE_Delayed_Requests_Pvt.Clear_Request
876: p_In_out => 0);
877: p_x_header_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
879: OE_Header_Security.g_check_all_cols_constraint := 'Y';
880: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
881: IF l_debug_level > 0 THEN
882: oe_debug_pub.add( 'DELETE REQUEST2' , 2 ) ;
883: END IF;
884: OE_Delayed_Requests_Pvt.Clear_Request
900:
901: p_x_header_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
903: OE_Header_Security.g_check_all_cols_constraint := 'Y';
904: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
905: IF l_debug_level > 0 THEN
906: oe_debug_pub.add( 'DELETE REQUEST3' , 2 ) ;
907: END IF;
908: OE_Delayed_Requests_Pvt.Clear_Request
919: -------------------------------------------------------------------*/
920: PROCEDURE Header_Scredits
921: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
922: , p_validation_level IN NUMBER
923: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
924: , p_x_Header_Scredit_tbl IN OUT NOCOPY OE_Order_PUB.Header_Scredit_Tbl_Type
925: , p_x_old_Header_Scredit_tbl IN OUT NOCOPY OE_Order_PUB.Header_Scredit_Tbl_Type
926: , x_return_status OUT NOCOPY VARCHAR2
927:
928: )
929: IS
930: l_del_ret_status VARCHAR2(1);
931: l_return_status VARCHAR2(1);
932: l_control_rec OE_GLOBALS.Control_Rec_Type;
933: l_Header_Scredit_rec OE_Order_PUB.Header_Scredit_Rec_Type;
934: l_old_Header_Scredit_rec OE_Order_PUB.Header_Scredit_Rec_Type;
935: -- local variables to store OUT parameters from security check procedures
936: l_sec_result NUMBER;
1090: end if;
1091:
1092: -- Load API control record
1093:
1094: l_control_rec := OE_GLOBALS.Init_Control_Rec
1095: ( p_operation => l_Header_Scredit_rec.operation
1096: , p_control_rec => p_control_rec
1097: );
1098:
1101: l_Header_Scredit_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1102:
1103: -- Prepare record.
1104:
1105: IF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1106:
1107: l_Header_Scredit_rec.db_flag := FND_API.G_FALSE;
1108:
1109: -- Set missing old record elements to NULL.
1109: -- Set missing old record elements to NULL.
1110:
1111: OE_Header_Scredit_Util.Convert_Miss_To_Null (l_old_Header_Scredit_rec);
1112:
1113: ELSIF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1114: OR l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE
1115: THEN
1116:
1117: l_Header_Scredit_rec.db_flag := FND_API.G_TRUE;
1110:
1111: OE_Header_Scredit_Util.Convert_Miss_To_Null (l_old_Header_Scredit_rec);
1112:
1113: ELSIF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1114: OR l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE
1115: THEN
1116:
1117: l_Header_Scredit_rec.db_flag := FND_API.G_TRUE;
1118:
1157: END IF;
1158:
1159: -- Check security
1160: IF l_control_rec.check_security
1161: AND (l_header_scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE
1162: OR l_header_scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
1163: THEN
1164:
1165: IF l_debug_level > 0 THEN
1158:
1159: -- Check security
1160: IF l_control_rec.check_security
1161: AND (l_header_scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE
1162: OR l_header_scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
1163: THEN
1164:
1165: IF l_debug_level > 0 THEN
1166: oe_debug_pub.add( 'CHECK ATTRIBUTES SECURITY' ) ;
1243: -- Entity level validation.
1244:
1245: IF l_control_rec.validate_entity THEN
1246:
1247: IF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1248:
1249: OE_Validate_Header_Scredit.Entity_Delete
1250: ( x_return_status => l_return_status
1251: , p_Header_Scredit_rec => l_Header_Scredit_rec
1278: -- any of the constrainable attributes and also none of the defaulted
1279: -- attributes was constrainable!. In such a case, the g_check_all_cols
1280: -- _constraint flag would still be 'Y' as the flag is reset only
1281: -- when checking for constraints.
1282: IF NOT (l_header_scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1283: AND OE_Header_Scredit_Security.g_check_all_cols_constraint = 'Y')
1284: AND l_control_rec.check_security
1285: THEN
1286: IF l_debug_level > 0 THEN
1313: (p_x_header_scredit_rec => l_header_scredit_rec,
1314: p_old_header_scredit_rec => l_old_header_scredit_rec);
1315: /* End AuditTrail */
1316:
1317: IF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1318: SAVEPOINT DELETE_SCREDIT_FAILED; --bug 5331854
1319: --bug 5049879
1320: 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;
1321: select booked_flag into l_booked_flag from oe_order_headers where header_id = l_header_scredit_rec.header_id;
1340: l_Header_Scredit_rec.last_update_date := SYSDATE;
1341: l_Header_Scredit_rec.last_updated_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
1342: l_Header_Scredit_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
1343:
1344: IF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1345:
1346: OE_Header_Scredit_Util.Update_Row (l_Header_Scredit_rec);
1347:
1348: ELSIF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1344: IF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1345:
1346: OE_Header_Scredit_Util.Update_Row (l_Header_Scredit_rec);
1347:
1348: ELSIF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1349:
1350: l_Header_Scredit_rec.creation_date := SYSDATE;
1351: l_Header_Scredit_rec.created_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
1352:
1387: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1388: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1389:
1390: IF l_control_Rec.Process_Partial THEN
1391: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1392: IF l_debug_level > 0 THEN
1393: oe_debug_pub.add( 'DELETE REQUEST4' , 2 ) ;
1394: END IF;
1395: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
1392: IF l_debug_level > 0 THEN
1393: oe_debug_pub.add( 'DELETE REQUEST4' , 2 ) ;
1394: END IF;
1395: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
1396: (p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_SCREDIT,
1397: p_entity_id => l_header_scredit_rec.sales_credit_id,
1398: x_return_status => l_return_status);
1399: END IF;
1400: ROLLBACK TO SAVEPOINT Header_Scredits;
1399: END IF;
1400: ROLLBACK TO SAVEPOINT Header_Scredits;
1401: ELSE
1402: --bug 5331854
1403: IF OE_GLOBALS.G_UI_FLAG AND
1404: l_del_ret_status = FND_API.G_RET_STS_ERROR THEN
1405: ROLLBACK TO SAVEPOINT DELETE_SCREDIT_FAILED;
1406: END IF;
1407: --bug 5331854
1454:
1455: set_recursion_mode(p_Entity_Code => 4,
1456: p_In_out => 0);
1457: x_return_status := FND_API.G_RET_STS_ERROR;
1458: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1459: IF l_debug_level > 0 THEN
1460: oe_debug_pub.add( 'DELETE REQUEST5' , 2 ) ;
1461: END IF;
1462: OE_Delayed_Requests_Pvt.Clear_Request
1468:
1469: set_recursion_mode(p_Entity_Code => 4,
1470: p_In_out => 0);
1471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1472: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1473: IF l_debug_level > 0 THEN
1474: oe_debug_pub.add( 'DELETE REQUEST6' , 2 ) ;
1475: END IF;
1476: OE_Delayed_Requests_Pvt.Clear_Request
1482:
1483: set_recursion_mode(p_Entity_Code => 4,
1484: p_In_out => 0);
1485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1486: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1487: IF l_debug_level > 0 THEN
1488: oe_debug_pub.add( 'DELETE REQUEST7' , 2 ) ;
1489: END IF;
1490: OE_Delayed_Requests_Pvt.Clear_Request
1509: -------------------------------------------------------------------*/
1510: PROCEDURE Header_Payments
1511: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1512: , p_validation_level IN NUMBER
1513: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
1514: , p_x_Header_Payment_tbl IN OUT NOCOPY OE_Order_PUB.Header_Payment_Tbl_Type
1515: , p_x_old_Header_Payment_tbl IN OUT NOCOPY OE_Order_PUB.Header_Payment_Tbl_Type
1516: , x_return_status OUT NOCOPY VARCHAR2
1517:
1517:
1518: )
1519: IS
1520: l_return_status VARCHAR2(1);
1521: l_control_rec OE_GLOBALS.Control_Rec_Type;
1522: l_Header_Payment_rec OE_Order_PUB.Header_Payment_Rec_Type;
1523: l_old_Header_Payment_rec OE_Order_PUB.Header_Payment_Rec_Type;
1524: -- local variables to store OUT parameters from security check procedures
1525: l_sec_result NUMBER;
1673: end if;
1674:
1675: -- Load API control record
1676:
1677: l_control_rec := OE_GLOBALS.Init_Control_Rec
1678: ( p_operation => l_Header_Payment_rec.operation
1679: , p_control_rec => p_control_rec
1680: );
1681:
1684: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1685:
1686: -- Prepare record.
1687:
1688: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1689:
1690: l_Header_Payment_rec.db_flag := FND_API.G_FALSE;
1691:
1692: -- Set missing old record elements to NULL.
1698: IF l_debug_level > 0 THEN
1699: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1700: END IF;
1701:
1702: ELSIF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1703: OR l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE
1704: THEN
1705:
1706: l_Header_Payment_rec.db_flag := FND_API.G_TRUE;
1699: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Convert_Miss_To_Null', 5);
1700: END IF;
1701:
1702: ELSIF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1703: OR l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE
1704: THEN
1705:
1706: l_Header_Payment_rec.db_flag := FND_API.G_TRUE;
1707:
1765: END IF;
1766:
1767: -- Check security
1768: IF l_control_rec.check_security
1769: AND (l_header_payment_rec.operation = OE_GLOBALS.G_OPR_CREATE
1770: OR l_header_payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
1771: THEN
1772:
1773: IF l_debug_level > 0 THEN
1766:
1767: -- Check security
1768: IF l_control_rec.check_security
1769: AND (l_header_payment_rec.operation = OE_GLOBALS.G_OPR_CREATE
1770: OR l_header_payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
1771: THEN
1772:
1773: IF l_debug_level > 0 THEN
1774: oe_debug_pub.add( 'CHECK ATTRIBUTES SECURITY' ) ;
1881: -- Entity level validation.
1882:
1883: IF l_control_rec.validate_entity THEN
1884:
1885: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1886:
1887: IF l_debug_level > 0 THEN
1888: oe_debug_pub.add('Payment:before OE_Validate_Header_Payment.Entity_Delete', 5);
1889: END IF;
1928: -- any of the constrainable attributes and also none of the defaulted
1929: -- attributes was constrainable!. In such a case, the g_check_all_cols
1930: -- _constraint flag would still be 'Y' as the flag is reset only
1931: -- when checking for constraints.
1932: IF NOT (l_header_payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1933: AND OE_Header_Payment_Security.g_check_all_cols_constraint = 'Y')
1934: AND l_control_rec.check_security
1935: THEN
1936: IF l_debug_level > 0 THEN
1976: oe_debug_pub.add('Payment:after Oe_Header_Payment_Util.Pre_Write_Process', 5);
1977: END IF;
1978: /* End AuditTrail */
1979:
1980: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1981: IF l_debug_level > 0 THEN
1982: oe_debug_pub.add('Payment:before Oe_Header_Payment_Util.Delete_Row',5);
1983: END IF;
1984:
1997: l_Header_Payment_rec.last_update_date := SYSDATE;
1998: l_Header_Payment_rec.last_updated_by := FND_GLOBAL.USER_ID;
1999: l_Header_Payment_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
2000:
2001: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
2002:
2003: OE_Header_Payment_Util.Update_Row (l_Header_Payment_rec);
2004:
2005: ELSIF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2001: IF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
2002:
2003: OE_Header_Payment_Util.Update_Row (l_Header_Payment_rec);
2004:
2005: ELSIF l_Header_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2006:
2007: l_Header_Payment_rec.creation_date := SYSDATE;
2008: l_Header_Payment_rec.created_by := FND_GLOBAL.USER_ID;
2009:
2049:
2050: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2051: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2052: IF l_control_Rec.Process_Partial THEN
2053: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2054: IF l_debug_level > 0 THEN
2055: oe_debug_pub.add( 'DELETE REQUEST4' , 2 ) ;
2056: END IF;
2057: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
2054: IF l_debug_level > 0 THEN
2055: oe_debug_pub.add( 'DELETE REQUEST4' , 2 ) ;
2056: END IF;
2057: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
2058: (p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_PAYMENT,
2059: p_entity_id => l_header_payment_rec.header_id,
2060: x_return_status => l_return_status);
2061: END IF;
2062: ROLLBACK TO SAVEPOINT Header_Payments;
2106:
2107: WHEN FND_API.G_EXC_ERROR THEN
2108:
2109: x_return_status := FND_API.G_RET_STS_ERROR;
2110: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2111: IF l_debug_level > 0 THEN
2112: oe_debug_pub.add( 'DELETE REQUEST5' , 2 ) ;
2113: END IF;
2114: OE_Delayed_Requests_Pvt.Clear_Request
2118:
2119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2120:
2121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2122: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2123: IF l_debug_level > 0 THEN
2124: oe_debug_pub.add( 'DELETE REQUEST6' , 2 ) ;
2125: END IF;
2126: OE_Delayed_Requests_Pvt.Clear_Request
2130:
2131: WHEN OTHERS THEN
2132:
2133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2134: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2135: IF l_debug_level > 0 THEN
2136: oe_debug_pub.add( 'DELETE REQUEST7' , 2 ) ;
2137: END IF;
2138: OE_Delayed_Requests_Pvt.Clear_Request
2401:
2402: PROCEDURE Lines
2403: (p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2404: ,p_validation_level IN NUMBER
2405: ,p_control_rec IN OE_GLOBALS.Control_Rec_Type
2406: ,p_x_line_tbl IN OUT NOCOPY OE_Order_PUB.Line_Tbl_Type
2407: ,p_x_old_line_tbl IN OUT NOCOPY OE_Order_PUB.Line_Tbl_Type
2408: ,x_return_status OUT NOCOPY VARCHAR2)
2409:
2408: ,x_return_status OUT NOCOPY VARCHAR2)
2409:
2410: IS
2411: l_return_status VARCHAR2(1);
2412: l_control_rec OE_GLOBALS.Control_Rec_Type;
2413: l_line_rec OE_Order_PUB.Line_Rec_Type;
2414: l_old_line_rec OE_Order_PUB.Line_Rec_Type;
2415: l_mode VARCHAR2(20);
2416: I NUMBER;
2470: END IF;
2471:
2472: x_return_status := FND_API.G_RET_STS_SUCCESS;
2473:
2474: IF OE_GLOBALS.G_RECURSION_MODE <> 'Y' THEN
2475: SAVEPOINT Lines_Non_Partial;
2476: END IF;
2477:
2478: -- Initialize message list.
2503: IF l_debug_level > 0 THEN
2504: oe_debug_pub.add( '---------LOOPING FOR NTH TIME N= '|| I , 1 ) ;
2505: END IF;
2506:
2507: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_NONE THEN
2508: IF l_debug_level > 0 THEN
2509: oe_debug_pub.add( 'OPERATION IS NONE ' , 1 ) ;
2510: END IF;
2511:
2551:
2552: END IF;
2553:
2554: --Added for bug 4937633 source type for Internal orders will be Internal
2555: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE THEN
2556:
2557: IF p_x_line_tbl(I).source_document_type_id = 10
2558: OR oe_order_cache.g_header_rec.source_document_type_id = 10 THEN
2559: p_x_line_tbl(I).source_type_code := OE_GLOBALS.G_SOURCE_INTERNAL;
2555: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE THEN
2556:
2557: IF p_x_line_tbl(I).source_document_type_id = 10
2558: OR oe_order_cache.g_header_rec.source_document_type_id = 10 THEN
2559: p_x_line_tbl(I).source_type_code := OE_GLOBALS.G_SOURCE_INTERNAL;
2560: END IF;
2561: END IF;
2562: --Added for bug 4937633 end
2563:
2621: -- of errors, it is set in the exception handlers.
2622:
2623: -- Prepare record.
2624:
2625: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2626:
2627: IF l_debug_level > 0 THEN
2628: oe_debug_pub.add( 'OPERATION = CREATE SO SETTING OLD TO NULL' , 2 ) ;
2629: END IF;
2664:
2665: END IF;
2666: *******/
2667:
2668: ELSIF l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE OR
2669: l_line_rec.operation = OE_GLOBALS.G_OPR_DELETE
2670: THEN
2671:
2672: IF l_debug_level > 0 THEN
2665: END IF;
2666: *******/
2667:
2668: ELSIF l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE OR
2669: l_line_rec.operation = OE_GLOBALS.G_OPR_DELETE
2670: THEN
2671:
2672: IF l_debug_level > 0 THEN
2673: oe_debug_pub.add( 'OPERATION = UPDATE SO QUERY OLD' , 1 ) ;
2784: -- as the booking process also locks the order header.
2785: -- The g_booked_flag should have been set by the call to
2786: -- Valid_Upgraded_Order before.
2787:
2788: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2789: -- QUOTING changes
2790: -- Comment out booked flag check, move header locked
2791: -- check inside this IF statement.
2792: IF l_header_locked = FND_API.G_MISS_CHAR THEN -- AND g_booked_flag = 'N' THEN #2940426
2794: -- Lock only if the po is called by UI or
2795: -- with write_to_db flag , this way for validate_only
2796: -- don't lock.
2797:
2798: IF (OE_GLOBALS.G_UI_FLAG AND
2799: NOT (OE_GLOBALS.G_HTML_FLAG)) OR
2800: p_control_rec.write_to_db THEN
2801:
2802: IF l_debug_level > 0 THEN
2795: -- with write_to_db flag , this way for validate_only
2796: -- don't lock.
2797:
2798: IF (OE_GLOBALS.G_UI_FLAG AND
2799: NOT (OE_GLOBALS.G_HTML_FLAG)) OR
2800: p_control_rec.write_to_db THEN
2801:
2802: IF l_debug_level > 0 THEN
2803: oe_debug_pub.add( 'LOCKING THE HEADER RECORD' ,0.5 ) ; -- debug level added for bug 13435459
2858: oe_debug_pub.add( 'L_MODE IS MODELS_AND_STANDARD' , 1 ) ;
2859: END IF;
2860:
2861: IF OE_Config_Util.G_Config_UI_Used = 'N' AND
2862: l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
2863: ((l_line_rec.top_model_line_index is NOT NULL AND
2864: l_line_rec.top_model_line_index <> FND_API.G_MISS_NUM) OR
2865: (l_line_rec.top_model_line_id is NOT NULL AND
2866: l_line_rec.top_model_line_id <> FND_API.G_MISS_NUM)) AND
2874: END IF;
2875: p_x_line_tbl(I).component_code := null;
2876: p_x_line_tbl(I).component_sequence_id := null;
2877: p_x_line_tbl(I).sort_order := null;
2878: ELSIF NOT OE_GLOBALS.EQUAL(l_line_rec.inventory_item_id,
2879: l_old_line_rec.inventory_item_id) THEN
2880: IF l_debug_level > 0 THEN
2881: oe_debug_pub.add('Line Item is Changed '
2882: ||l_line_rec.inventory_item_id , 1 ) ;
3030: END IF; -- if top model line index is populated
3031:
3032: -- if it comes here, everything was OK. ---------
3033:
3034: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
3035: (nvl(l_line_rec.item_type_code, 'A') <> OE_GLOBALS.G_ITEM_INCLUDED
3036: AND
3037: nvl(l_line_rec.item_type_code, 'A') <> OE_GLOBALS.G_ITEM_CONFIG)
3038: THEN
3031:
3032: -- if it comes here, everything was OK. ---------
3033:
3034: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
3035: (nvl(l_line_rec.item_type_code, 'A') <> OE_GLOBALS.G_ITEM_INCLUDED
3036: AND
3037: nvl(l_line_rec.item_type_code, 'A') <> OE_GLOBALS.G_ITEM_CONFIG)
3038: THEN
3039:
3033:
3034: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
3035: (nvl(l_line_rec.item_type_code, 'A') <> OE_GLOBALS.G_ITEM_INCLUDED
3036: AND
3037: nvl(l_line_rec.item_type_code, 'A') <> OE_GLOBALS.G_ITEM_CONFIG)
3038: THEN
3039:
3040: IF COMPLETE_AND_CLASS_SAVE_MODE THEN
3041:
3062: p_x_line_tbl(I).return_status := l_line_rec.return_status;
3063:
3064: END IF;
3065:
3066: IF nvl(l_line_rec.item_type_code, 'A') <> OE_GLOBALS.G_ITEM_CLASS
3067: THEN
3068: IF l_debug_level > 0 THEN
3069: oe_debug_pub.add( 'NOT A CLASS , SKIP' , 3 ) ;
3070: END IF;
3078: END IF;
3079:
3080: ELSE -- now saving options -- may not req.
3081:
3082: IF nvl(l_line_rec.item_type_code, 'A') = OE_GLOBALS.G_ITEM_CLASS
3083: THEN
3084: IF l_debug_level > 0 THEN
3085: oe_debug_pub.add( 'THIS CLASS IS ALREADY SAVED' , 3 ) ;
3086: END IF;
3125:
3126: IF p_x_line_tbl(l_service_line_index).return_status =
3127: FND_API.G_RET_STS_SUCCESS THEN
3128: -- lchen added to check parent line operation to fix bug 2017271
3129: IF p_x_line_tbl(l_service_line_index).operation = OE_GLOBALS.G_OPR_NONE
3130: THEN
3131: GOTO end_of_lines_loop;
3132: ELSE
3133: l_line_rec.service_reference_line_id :=
3182: END IF;
3183:
3184: -- Load API control record
3185:
3186: l_control_rec := OE_GLOBALS.Init_Control_Rec
3187: ( p_operation => l_line_rec.operation
3188: ,p_control_rec => p_control_rec);
3189:
3190:
3194:
3195: -- CHECK SECURITY
3196:
3197: IF l_control_rec.check_security AND
3198: (l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE OR
3199: l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
3200: THEN
3201:
3202: IF l_debug_level > 0 THEN
3195: -- CHECK SECURITY
3196:
3197: IF l_control_rec.check_security AND
3198: (l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE OR
3199: l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
3200: THEN
3201:
3202: IF l_debug_level > 0 THEN
3203: oe_debug_pub.add( 'CHECK ATTRIBUTES SECURITY' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
3228:
3229:
3230: -- ATTRIBUTE LEVEL VALIDATION
3231:
3232: IF NOT (l_line_rec.operation = oe_globals.g_opr_create and
3233: (l_line_rec.split_from_line_id IS NOT NULL AND
3234: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3235: THEN
3236:
3249: IF l_debug_level > 0 THEN
3250: oe_debug_pub.add( 'AFTER ATTRIBUTE VALIDATION' , 0.5 ) ; --debug changed to 0.5 for 13435459
3251: END IF;
3252:
3253: IF p_validation_level <> OE_GLOBALS.G_VALID_LEVEL_PARTIAL THEN
3254: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3256: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3257: RAISE FND_API.G_EXC_ERROR;
3265:
3266: -- CLEAR DEPENDENT ATTRIBUTES
3267:
3268: IF l_control_rec.clear_dependents AND
3269: NOT (l_line_rec.operation = oe_globals.g_opr_create and
3270: (l_line_rec.split_from_line_id IS NOT NULL AND
3271: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3272: THEN
3273:
3289:
3290: -- DEFAULT MISSING ATTRIBUTES
3291:
3292: IF (l_control_rec.default_attributes) THEN
3293: IF NOT (l_line_rec.operation = oe_globals.g_opr_create and
3294: (l_line_rec.split_from_line_id IS NOT NULL AND
3295: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3296: THEN
3297:
3328:
3329: -- APPLY ATTRIBUTE CHANGES
3330:
3331: IF (l_control_rec.change_attributes)
3332: -- AND NOT (l_line_rec.operation = oe_globals.g_opr_create and
3333: -- (l_line_rec.split_from_line_id IS NOT NULL AND
3334: -- l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3335: THEN
3336:
3357:
3358: -- Entity level validation.
3359:
3360: IF l_control_rec.validate_entity
3361: AND NOT (l_line_rec.operation = oe_globals.g_opr_create and
3362: (l_line_rec.split_from_line_id IS NOT NULL AND
3363: l_line_rec.split_from_line_id <> FND_API.G_MISS_NUM))
3364: and( nvl(l_line_rec.ordered_quantity,-1)<>0
3365: OR Nvl(l_line_rec.cancelled_flag,'N')='N' ) -- added for bug 6494347
3374: IF l_debug_level > 0 THEN
3375: oe_debug_pub.add( 'VALIDATE ENTITY' ,0.5 ) ; ---debug level changed to 0.5 for 13435459
3376: END IF;
3377:
3378: IF l_line_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
3379:
3380: OE_Validate_Line.Entity_Delete
3381: ( x_return_status => l_return_status
3382: ,p_line_rec => l_line_rec );
3418: -- attributes was constrainable!. In such a case, the g_check_all_cols
3419: -- _constraint flag would still be 'Y' as the flag is reset only
3420: -- when checking for constraints.
3421:
3422: IF NOT (l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND
3423: OE_Line_Security.g_check_all_cols_constraint = 'Y') AND
3424: l_control_rec.check_security THEN
3425:
3426: IF l_debug_level > 0 THEN
3471: IF l_debug_level > 0 THEN
3472: oe_debug_pub.add( 'WRITE TO DB' , 0.5 ) ; -- for bug 13435459
3473: END IF;
3474:
3475: IF l_line_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
3476: OE_Line_Util.Delete_Row
3477: ( p_line_id => l_line_rec.line_id);
3478:
3479: -- If an OTA line has been deleted, then call the OTA API
3513: l_user_id := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
3514: l_resp_id := FND_GLOBAL.RESP_ID;
3515: l_application_id := FND_GLOBAL.RESP_APPL_ID;
3516:
3517: IF l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
3518: IF l_debug_level > 0 THEN
3519: oe_debug_pub.add( 'CALLING UPDATE ROW' , 0.5 ) ; --debug changed to 0.5 for 13435459
3520: END IF;
3521:
3524: oe_debug_pub.add( 'AFTER CALLING UPDATE ROW' , 0.5 ) ; --debug changed to 0.5 for 13435459
3525: END IF;
3526:
3527:
3528: ELSIF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
3529:
3530: l_line_rec.creation_date := SYSDATE;
3531: l_line_rec.created_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
3532:
3609: -- Raise error when one of the lines in a SET fails
3610: -- while copying.
3611: IF l_line_rec.source_document_type_id = 2 AND
3612: l_line_rec.line_set_id IS NOT NULL AND
3613: l_line_rec.OPERATION = OE_GLOBALS.G_OPR_CREATE
3614: /* Starting the Fix for Bug 13348738*/
3615: AND l_line_rec.blanket_number IS NOT NULL
3616: /* Ending the Fix for Bug 13348738*/
3617: THEN
3618: RAISE FND_API.G_EXC_ERROR;
3619: END IF;
3620:
3621:
3622: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
3623: IF l_debug_level > 0 THEN
3624: oe_debug_pub.add( 'DELETE REQUEST8' , 2 ) ;
3625: END IF;
3626:
3624: oe_debug_pub.add( 'DELETE REQUEST8' , 2 ) ;
3625: END IF;
3626:
3627: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
3628: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3629: p_entity_id => l_line_rec.line_id,
3630: x_return_status => l_return_status);
3631: END IF;
3632:
3772: p_In_out => 0);
3773: OE_MSG_PUB.reset_msg_context('LINE');
3774:
3775:
3776: IF NOT (OE_GLOBALS.G_UI_FLAG) AND line_ctr = 1 THEN
3777: IF l_debug_level > 0 THEN
3778: oe_debug_pub.add( 'DELETE REQUEST9' , 2 ) ;
3779: END IF;
3780: oe_delayed_requests_pvt.Clear_Request
3804: p_In_out => 0);
3805:
3806: OE_MSG_PUB.reset_msg_context('LINE');
3807:
3808: IF NOT (OE_GLOBALS.G_UI_FLAG) and line_ctr = 1 THEN
3809: IF l_debug_level > 0 THEN
3810: oe_debug_pub.add( 'DELETE REQUEST10' , 2 ) ;
3811: END IF;
3812: oe_delayed_requests_pvt.Clear_Request
3830: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
3831: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
3832: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3833:
3834: IF NOT (OE_GLOBALS.G_UI_FLAG) and line_ctr = 1 THEN
3835: IF l_debug_level > 0 THEN
3836: oe_debug_pub.add( 'DELETE REQUEST11' , 2 ) ;
3837: END IF;
3838: oe_delayed_requests_pvt.Clear_Request
3865:
3866: PROCEDURE Line_Scredits
3867: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3868: , p_validation_level IN NUMBER
3869: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
3870: , p_x_Line_Scredit_tbl IN OUT NOCOPY OE_Order_PUB.Line_Scredit_Tbl_Type
3871: , p_x_old_Line_Scredit_tbl IN OUT NOCOPY OE_Order_PUB.Line_Scredit_Tbl_Type
3872: , x_return_status OUT NOCOPY VARCHAR2
3873:
3873:
3874: )
3875: IS
3876: l_return_status VARCHAR2(1);
3877: l_control_rec OE_GLOBALS.Control_Rec_Type;
3878: l_Line_Scredit_rec OE_Order_PUB.Line_Scredit_Rec_Type;
3879: l_old_Line_Scredit_rec OE_Order_PUB.Line_Scredit_Rec_Type;
3880: -- local variables to store OUT parameters from security check procedures
3881: l_sec_result NUMBER;
4040:
4041:
4042: -- Load API control record
4043:
4044: l_control_rec := OE_GLOBALS.Init_Control_Rec
4045: ( p_operation => l_Line_Scredit_rec.operation
4046: , p_control_rec => p_control_rec
4047: );
4048:
4051: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4052:
4053: -- Prepare record.
4054:
4055: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4056:
4057: l_Line_Scredit_rec.db_flag := FND_API.G_FALSE;
4058:
4059: -- Set missing old record elements to NULL.
4059: -- Set missing old record elements to NULL.
4060:
4061: OE_Line_Scredit_Util.Convert_Miss_To_Null (l_old_Line_Scredit_rec);
4062:
4063: ELSIF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE
4064: OR l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE
4065: THEN
4066:
4067: l_Line_Scredit_rec.db_flag := FND_API.G_TRUE;
4060:
4061: OE_Line_Scredit_Util.Convert_Miss_To_Null (l_old_Line_Scredit_rec);
4062:
4063: ELSIF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE
4064: OR l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE
4065: THEN
4066:
4067: l_Line_Scredit_rec.db_flag := FND_API.G_TRUE;
4068:
4106: END IF;
4107:
4108: -- Check security
4109: IF l_control_rec.check_security
4110: AND (l_line_scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE
4111: OR l_line_scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
4112: THEN
4113:
4114: IF l_debug_level > 0 THEN
4107:
4108: -- Check security
4109: IF l_control_rec.check_security
4110: AND (l_line_scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE
4111: OR l_line_scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
4112: THEN
4113:
4114: IF l_debug_level > 0 THEN
4115: oe_debug_pub.add( 'CHECK ATTRIBUTES SECURITY' ) ;
4202: END IF;
4203:
4204: IF l_control_rec.validate_entity THEN
4205:
4206: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
4207:
4208: OE_Validate_Line_Scredit.Entity_Delete
4209: ( x_return_status => l_return_status
4210: , p_Line_Scredit_rec => l_Line_Scredit_rec
4238: -- attributes was constrainable!. In such a case, the g_check_all_cols
4239: -- _constraint flag would still be 'Y' as the flag is reset only
4240: -- when checking for constraints.
4241: /* Bug fix 2020390, Removed the changes added for the bug 1696681 */
4242: IF NOT (l_line_scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE
4243: AND OE_Line_Scredit_Security.g_check_all_cols_constraint = 'Y')
4244: AND l_control_rec.check_security
4245: THEN
4246:
4275: (p_x_line_scredit_rec => l_line_scredit_rec,
4276: p_old_line_scredit_rec => l_old_line_scredit_rec);
4277: /* End AuditTrail */
4278:
4279: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
4280:
4281: OE_Line_Scredit_Util.Delete_Row
4282: ( p_sales_credit_id => l_Line_Scredit_rec.sales_credit_id
4283: );
4289: l_Line_Scredit_rec.last_update_date := SYSDATE;
4290: l_Line_Scredit_rec.last_updated_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
4291: l_Line_Scredit_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
4292:
4293: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
4294:
4295: OE_Line_Scredit_Util.Update_Row (l_Line_Scredit_rec);
4296:
4297: ELSIF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4293: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
4294:
4295: OE_Line_Scredit_Util.Update_Row (l_Line_Scredit_rec);
4296:
4297: ELSIF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4298:
4299: l_Line_Scredit_rec.creation_date := SYSDATE;
4300: l_Line_Scredit_rec.created_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
4301:
4335:
4336: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4337: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4338: IF l_control_rec.Process_Partial THEN
4339: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4340: IF l_debug_level > 0 THEN
4341: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
4342: END IF;
4343: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
4340: IF l_debug_level > 0 THEN
4341: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
4342: END IF;
4343: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
4344: (p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_SCREDIT,
4345: p_entity_id => l_line_scredit_rec.sales_credit_id,
4346: x_return_status => l_return_status);
4347: END IF;
4348: ROLLBACK TO SAVEPOINT Line_Scredits;
4395:
4396: set_recursion_mode(p_Entity_Code => 7,
4397: p_In_out => 0);
4398: x_return_status := FND_API.G_RET_STS_ERROR;
4399: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4400: IF l_debug_level > 0 THEN
4401: oe_debug_pub.add( 'DELETE REQUEST13' , 2 ) ;
4402: END IF;
4403: OE_Delayed_Requests_Pvt.Clear_Request
4409:
4410: set_recursion_mode(p_Entity_Code => 7,
4411: p_In_out => 0);
4412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4413: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4414: IF l_debug_level > 0 THEN
4415: oe_debug_pub.add( 'DELETE REQUEST14' , 2 ) ;
4416: END IF;
4417: OE_Delayed_Requests_Pvt.Clear_Request
4423:
4424: set_recursion_mode(p_Entity_Code => 7,
4425: p_In_out => 0);
4426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4427: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4428: IF l_debug_level > 0 THEN
4429: oe_debug_pub.add( 'DELETE REQUEST15' , 2 ) ;
4430: END IF;
4431: OE_Delayed_Requests_Pvt.Clear_Request
4449:
4450: PROCEDURE Line_Payments
4451: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4452: , p_validation_level IN NUMBER
4453: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
4454: , p_x_Line_Payment_tbl IN OUT NOCOPY OE_Order_PUB.Line_Payment_Tbl_Type
4455: , p_x_old_Line_Payment_tbl IN OUT NOCOPY OE_Order_PUB.Line_Payment_Tbl_Type
4456: , x_return_status OUT NOCOPY VARCHAR2
4457:
4457:
4458: )
4459: IS
4460: l_return_status VARCHAR2(1);
4461: l_control_rec OE_GLOBALS.Control_Rec_Type;
4462: l_Line_Payment_rec OE_Order_PUB.Line_Payment_Rec_Type;
4463: l_old_Line_Payment_rec OE_Order_PUB.Line_Payment_Rec_Type;
4464: -- local variables to store OUT parameters from security check procedures
4465: l_sec_result NUMBER;
4622:
4623:
4624: -- Load API control record
4625:
4626: l_control_rec := OE_GLOBALS.Init_Control_Rec
4627: ( p_operation => l_Line_Payment_rec.operation
4628: , p_control_rec => p_control_rec
4629: );
4630:
4633: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4634:
4635: -- Prepare record.
4636:
4637: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4638:
4639: l_Line_Payment_rec.db_flag := FND_API.G_FALSE;
4640:
4641: -- Set missing old record elements to NULL.
4647: IF l_debug_level > 0 THEN
4648: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Convert_Miss_To_Null', 5);
4649: END IF;
4650:
4651: ELSIF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
4652: OR l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE
4653: THEN
4654:
4655: l_Line_Payment_rec.db_flag := FND_API.G_TRUE;
4648: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Convert_Miss_To_Null', 5);
4649: END IF;
4650:
4651: ELSIF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
4652: OR l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE
4653: THEN
4654:
4655: l_Line_Payment_rec.db_flag := FND_API.G_TRUE;
4656:
4708: END IF;
4709:
4710: -- Check security
4711: IF l_control_rec.check_security
4712: AND (l_line_payment_rec.operation = OE_GLOBALS.G_OPR_CREATE
4713: OR l_line_payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
4714: THEN
4715:
4716: IF l_debug_level > 0 THEN
4709:
4710: -- Check security
4711: IF l_control_rec.check_security
4712: AND (l_line_payment_rec.operation = OE_GLOBALS.G_OPR_CREATE
4713: OR l_line_payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
4714: THEN
4715:
4716: IF l_debug_level > 0 THEN
4717: oe_debug_pub.add('Payment:before OE_Line_Payment_Security.Attributes', 5);
4830: END IF;
4831:
4832: IF l_control_rec.validate_entity THEN
4833:
4834: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
4835:
4836: IF l_debug_level > 0 THEN
4837: oe_debug_pub.add('Payment:before OE_Validate_Line_Payment.Entity_Delete', 5);
4838: END IF;
4878: -- attributes was constrainable!. In such a case, the g_check_all_cols
4879: -- _constraint flag would still be 'Y' as the flag is reset only
4880: -- when checking for constraints.
4881: /* Bug fix 2020390, Removed the changes added for the bug 1696681 */
4882: IF NOT (l_line_payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
4883: AND OE_Line_Payment_Security.g_check_all_cols_constraint = 'Y')
4884: AND l_control_rec.check_security
4885: THEN
4886:
4923: oe_debug_pub.add('Payment:after Oe_line_Payment_Util.Pre_Write_Process', 5);
4924: END IF;
4925: /* End AuditTrail */
4926:
4927: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
4928:
4929: IF l_debug_level > 0 THEN
4930: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Delete_Row', 5);
4931: END IF;
4945: l_Line_Payment_rec.last_update_date := SYSDATE;
4946: l_Line_Payment_rec.last_updated_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
4947: l_Line_Payment_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
4948:
4949: IF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
4950:
4951: IF l_debug_level > 0 THEN
4952: oe_debug_pub.add('Payment:before OE_Line_Payment_Util.Update_Row', 5);
4953: END IF;
4955: IF l_debug_level > 0 THEN
4956: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Update_Row', 5);
4957: END IF;
4958:
4959: ELSIF l_Line_Payment_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4960:
4961: l_Line_Payment_rec.creation_date := SYSDATE;
4962: l_Line_Payment_rec.created_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
4963:
5003:
5004: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
5005: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
5006: IF l_control_rec.Process_Partial THEN
5007: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5008: IF l_debug_level > 0 THEN
5009: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
5010: END IF;
5011: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
5008: IF l_debug_level > 0 THEN
5009: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
5010: END IF;
5011: oe_delayed_requests_pvt.Delete_Reqs_for_Deleted_Entity
5012: (p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_PAYMENT,
5013: p_entity_id => l_line_payment_rec.line_id,
5014: x_return_status => l_return_status);
5015: END IF;
5016: ROLLBACK TO SAVEPOINT Line_Payments;
5059:
5060: WHEN FND_API.G_EXC_ERROR THEN
5061:
5062: x_return_status := FND_API.G_RET_STS_ERROR;
5063: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5064: IF l_debug_level > 0 THEN
5065: oe_debug_pub.add( 'DELETE REQUEST13' , 2 ) ;
5066: END IF;
5067: OE_Delayed_Requests_Pvt.Clear_Request
5071:
5072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5073:
5074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5075: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5076: IF l_debug_level > 0 THEN
5077: oe_debug_pub.add( 'DELETE REQUEST14' , 2 ) ;
5078: END IF;
5079: OE_Delayed_Requests_Pvt.Clear_Request
5083:
5084: WHEN OTHERS THEN
5085:
5086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5087: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5088: IF l_debug_level > 0 THEN
5089: oe_debug_pub.add( 'DELETE REQUEST15' , 2 ) ;
5090: END IF;
5091: OE_Delayed_Requests_Pvt.Clear_Request
5109:
5110: PROCEDURE Lot_Serials
5111: ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5112: , p_validation_level IN NUMBER
5113: , p_control_rec IN OE_GLOBALS.Control_Rec_Type
5114: , p_x_Lot_Serial_tbl IN OUT NOCOPY OE_Order_PUB.Lot_Serial_Tbl_Type
5115: , p_x_old_Lot_Serial_tbl IN OUT NOCOPY OE_Order_PUB.Lot_Serial_Tbl_Type
5116: , x_return_status OUT NOCOPY VARCHAR2
5117:
5117:
5118: )
5119: IS
5120: l_return_status VARCHAR2(1);
5121: l_control_rec OE_GLOBALS.Control_Rec_Type;
5122: l_Lot_Serial_rec OE_Order_PUB.Lot_Serial_Rec_Type;
5123: l_old_Lot_Serial_rec OE_Order_PUB.Lot_Serial_Rec_Type;
5124: I NUMBER; -- Used as index.
5125: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5159: END IF;
5160:
5161: -- Load API control record
5162:
5163: l_control_rec := OE_GLOBALS.Init_Control_Rec
5164: ( p_operation => l_Lot_Serial_rec.operation
5165: , p_control_rec => p_control_rec
5166: );
5167:
5170: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_SUCCESS;
5171:
5172: -- Prepare record.
5173:
5174: IF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
5175:
5176: l_Lot_Serial_rec.db_flag := FND_API.G_FALSE;
5177:
5178: -- Set missing old record elements to NULL.
5178: -- Set missing old record elements to NULL.
5179:
5180: OE_Lot_Serial_Util.Convert_Miss_To_Null (l_old_Lot_Serial_rec);
5181:
5182: ELSIF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_UPDATE
5183: OR l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_DELETE
5184: THEN
5185:
5186: l_Lot_Serial_rec.db_flag := FND_API.G_TRUE;
5179:
5180: OE_Lot_Serial_Util.Convert_Miss_To_Null (l_old_Lot_Serial_rec);
5181:
5182: ELSIF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_UPDATE
5183: OR l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_DELETE
5184: THEN
5185:
5186: l_Lot_Serial_rec.db_flag := FND_API.G_TRUE;
5187:
5267: -- Entity level validation.
5268:
5269: IF l_control_rec.validate_entity THEN
5270:
5271: IF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
5272:
5273: OE_Validate_Lot_Serial.Entity_Delete
5274: ( x_return_status => l_return_status
5275: , p_Lot_Serial_rec => l_Lot_Serial_rec
5296: -- Step 4. Write to DB
5297:
5298: IF l_control_rec.write_to_db THEN
5299:
5300: IF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
5301:
5302: OE_Lot_Serial_Util.Delete_Row
5303: ( p_lot_serial_id => l_Lot_Serial_rec.lot_serial_id
5304: );
5310: l_Lot_Serial_rec.last_update_date := SYSDATE;
5311: l_Lot_Serial_rec.last_updated_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
5312: l_Lot_Serial_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
5313:
5314: IF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
5315:
5316: OE_Lot_Serial_Util.Update_Row (l_Lot_Serial_rec);
5317:
5318: ELSIF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
5314: IF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
5315:
5316: OE_Lot_Serial_Util.Update_Row (l_Lot_Serial_rec);
5317:
5318: ELSIF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
5319:
5320: l_Lot_Serial_rec.creation_date := SYSDATE;
5321: l_Lot_Serial_rec.created_by := NVL(OE_STANDARD_WF.g_user_id, FND_GLOBAL.USER_ID); -- 3169637
5322:
5378:
5379: WHEN FND_API.G_EXC_ERROR THEN
5380:
5381: x_return_status := FND_API.G_RET_STS_ERROR;
5382: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5383: IF l_debug_level > 0 THEN
5384: oe_debug_pub.add( 'DELETE REQUEST17' , 2 ) ;
5385: END IF;
5386: OE_Delayed_Requests_Pvt.Clear_Request
5389:
5390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5391:
5392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5393: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5394: IF l_debug_level > 0 THEN
5395: oe_debug_pub.add( 'DELETE REQUEST18' , 2 ) ;
5396: END IF;
5397: OE_Delayed_Requests_Pvt.Clear_Request
5400:
5401: WHEN OTHERS THEN
5402:
5403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5404: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5405: IF l_debug_level > 0 THEN
5406: oe_debug_pub.add( 'DELETE REQUEST19' , 2 ) ;
5407: END IF;
5408: OE_Delayed_Requests_Pvt.Clear_Request
5516: IF l_debug_level > 0 THEN
5517: oe_debug_pub.add( 'ENTER OE_ORDER_PVT.PROCESS_REQUESTS_AND_NOTIFY' , 1 ) ;
5518: END IF;
5519: x_return_status := FND_API.G_RET_STS_SUCCESS;
5520: IF NOT oe_globals.g_call_process_req THEN --9354229
5521: IF l_debug_level > 0 THEN
5522: oe_debug_pub.add( 'EXIT PROCESS_REQUESTS_AND_NOTIFY' , 1 ) ;
5523: END IF;
5524: RETURN;
5548: --4241385
5549:
5550: -- IF p_process_requests, then process all delayed requests
5551:
5552: IF ( OE_GLOBALS.G_RECURSION_MODE = 'N'
5553: AND p_process_requests
5554: AND OE_DELAYED_REQUESTS_PVT.Requests_Count > 0 )
5555: /* --commented for bug 10088102. This condition being worked out with bug 10064449
5556: OR --4241385
5568: same session. checking for the p_line_tbl.count>0 to ensure that line table is passed.
5569: This is to avoid processing when the API is called for someother entity only*/
5570:
5571: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5572: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
5573: ,p_delete => FND_API.G_TRUE
5574: ,x_return_status => l_return_status
5575: );
5576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5579: RAISE FND_API.G_EXC_ERROR;
5580: END IF;
5581:
5582: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5583: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
5584: ,p_delete => FND_API.G_TRUE
5585: ,x_return_status => l_return_status
5586: );
5587: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5590: RAISE FND_API.G_EXC_ERROR;
5591: END IF;
5592:
5593: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5594: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Att
5595: ,p_delete => FND_API.G_TRUE
5596: ,x_return_status => l_return_status
5597: );
5598: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5601: RAISE FND_API.G_EXC_ERROR;
5602: END IF;
5603:
5604: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5605: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
5606: ,p_delete => FND_API.G_TRUE
5607: ,x_return_status => l_return_status
5608: );
5609: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5612: RAISE FND_API.G_EXC_ERROR;
5613: END IF;
5614:
5615: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5616: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
5617: ,p_delete => FND_API.G_TRUE
5618: ,x_return_status => l_return_status
5619: );
5620: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5623: RAISE FND_API.G_EXC_ERROR;
5624: END IF;
5625:
5626: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5627: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_PAYMENT
5628: ,p_delete => FND_API.G_TRUE
5629: ,x_return_status => l_return_status
5630: );
5631: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5634: RAISE FND_API.G_EXC_ERROR;
5635: END IF;
5636:
5637: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5638: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
5639: ,p_delete => FND_API.G_TRUE
5640: ,x_return_status => l_return_status
5641: );
5642: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5645: RAISE FND_API.G_EXC_ERROR;
5646: END IF;
5647:
5648: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5649: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
5650: ,p_delete => FND_API.G_TRUE
5651: ,x_return_status => l_return_status
5652: );
5653: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5656: RAISE FND_API.G_EXC_ERROR;
5657: END IF;
5658:
5659: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5660: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
5661: ,p_delete => FND_API.G_TRUE
5662: ,x_return_status => l_return_status
5663: );
5664: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5667: RAISE FND_API.G_EXC_ERROR;
5668: END IF;
5669:
5670: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5671: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_PAYMENT
5672: ,p_delete => FND_API.G_TRUE
5673: ,x_return_status => l_return_status
5674: );
5675: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5678: RAISE FND_API.G_EXC_ERROR;
5679: END IF;
5680:
5681: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5682: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
5683: ,p_delete => FND_API.G_TRUE
5684: ,x_return_status => l_return_status
5685: );
5686: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5689: RAISE FND_API.G_EXC_ERROR;
5690: END IF;
5691:
5692: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5693: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Att
5694: ,p_delete => FND_API.G_TRUE
5695: ,x_return_status => l_return_status
5696: );
5697: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5700: RAISE FND_API.G_EXC_ERROR;
5701: END IF;
5702:
5703: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
5704: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Assoc
5705: ,p_delete => FND_API.G_TRUE
5706: ,x_return_status => l_return_status
5707: );
5708: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5728: END IF; --End of requests processing
5729:
5730: -- Start flows for the Entity.
5731: IF (p_process_requests AND
5732: OE_GLOBALS.G_RECURSION_MODE = 'N') THEN
5733:
5734: OE_ORDER_WF_UTIL.START_ALL_FLOWS;
5735: END IF;
5736:
6228: END IF; /*check for record in key entities*/
6229: END IF; /*code_release_level*/
6230:
6231: /* Fix Bug # 3241831: Reset Global after all requests have been processed */
6232: IF OE_GLOBALS.G_RECURSION_MODE = 'N' AND OE_GLOBALS.G_UI_FLAG = FALSE THEN
6233: IF OE_OE_FORM_CANCEL_LINE.g_ord_lvl_can THEN
6234: IF l_debug_level > 0 THEN
6235: oe_debug_pub.add('SET G_ORD_LVL_CAN TO FALSE FOR NON UI ORDER CANCEL');
6236: END IF;
6238: END IF;
6239: END IF;
6240:
6241: --resetting g_header_created flag
6242: IF OE_GLOBALS.G_RECURSION_MODE <> 'Y' AND
6243: OE_GLOBALS.G_PRICING_RECURSION <> 'Y' THEN
6244: OE_GLOBALS.G_HEADER_CREATED := FALSE;
6245: END IF;
6246:
6239: END IF;
6240:
6241: --resetting g_header_created flag
6242: IF OE_GLOBALS.G_RECURSION_MODE <> 'Y' AND
6243: OE_GLOBALS.G_PRICING_RECURSION <> 'Y' THEN
6244: OE_GLOBALS.G_HEADER_CREATED := FALSE;
6245: END IF;
6246:
6247: IF l_debug_level > 0 THEN
6240:
6241: --resetting g_header_created flag
6242: IF OE_GLOBALS.G_RECURSION_MODE <> 'Y' AND
6243: OE_GLOBALS.G_PRICING_RECURSION <> 'Y' THEN
6244: OE_GLOBALS.G_HEADER_CREATED := FALSE;
6245: END IF;
6246:
6247: IF l_debug_level > 0 THEN
6248: oe_debug_pub.add( 'EXIT OE_ORDER_PVT.PROCESS_REQUESTS_AND_NOTIFY' , 1 ) ;
6260:
6261: set_recursion_mode(p_Entity_Code => 8,
6262: p_In_out => 0);
6263: x_return_status := FND_API.G_RET_STS_ERROR;
6264: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
6265: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
6266: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
6267: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6268: END IF;
6272:
6273: set_recursion_mode(p_Entity_Code => 8,
6274: p_In_out => 0);
6275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6276: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
6277: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
6278: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
6279: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6280: END IF;
6287: IF l_debug_level > 0 THEN
6288: oe_debug_pub.add( 'PO: EXITING PROCESS_REQUESTS_AND_NOTIFY WITH OTHERS ERROR' , 2 ) ;
6289: END IF;
6290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6291: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
6292: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
6293: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
6294: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6295: END IF;
6307: PROCEDURE Process_Order_AG
6308: ( p_api_version_number IN NUMBER
6309: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6310: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6311: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
6312: OE_GLOBALS.G_MISS_CONTROL_REC
6313: , x_return_status OUT NOCOPY VARCHAR2
6314:
6315: , x_msg_count OUT NOCOPY NUMBER
6308: ( p_api_version_number IN NUMBER
6309: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6310: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6311: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
6312: OE_GLOBALS.G_MISS_CONTROL_REC
6313: , x_return_status OUT NOCOPY VARCHAR2
6314:
6315: , x_msg_count OUT NOCOPY NUMBER
6316:
6369: , p_action_commit IN VARCHAR2 := FND_API.G_FALSE
6370: )
6371: IS
6372: l_api_version_number CONSTANT NUMBER := 1.0;
6373: l_control_rec OE_GLOBALS.Control_Rec_Type := p_control_rec;
6374: l_return_status VARCHAR2(1);
6375: I NUMBER;
6376: l_header_id NUMBER;
6377: l_call_split BOOLEAN := FALSE;
6440: --Bug 2878121: Ignore NULL operation code
6441: IF p_x_header_rec.header_id is NOT NULL AND
6442: p_x_header_rec.header_id <> FND_API.G_MISS_NUM THEN
6443: IF p_x_header_rec.operation IS NOT NULL AND
6444: p_x_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
6445: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
6446: OE_GLOBALS.G_OPR_NONE) THEN
6447: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6448: OE_MSG_PUB.Add;
6441: IF p_x_header_rec.header_id is NOT NULL AND
6442: p_x_header_rec.header_id <> FND_API.G_MISS_NUM THEN
6443: IF p_x_header_rec.operation IS NOT NULL AND
6444: p_x_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
6445: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
6446: OE_GLOBALS.G_OPR_NONE) THEN
6447: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6448: OE_MSG_PUB.Add;
6449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6442: p_x_header_rec.header_id <> FND_API.G_MISS_NUM THEN
6443: IF p_x_header_rec.operation IS NOT NULL AND
6444: p_x_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
6445: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
6446: OE_GLOBALS.G_OPR_NONE) THEN
6447: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6448: OE_MSG_PUB.Add;
6449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6450: END IF;
6450: END IF;
6451: END IF;
6452:
6453: IF p_x_header_rec.operation IS NOT NULL
6454: AND p_x_header_rec.operation <> OE_GLOBALS.G_OPR_NONE
6455: THEN
6456:
6457: -- This if is add to honor users sales credits if they do not
6458: -- want the default sales credit for the salesrep on the order
6457: -- This if is add to honor users sales credits if they do not
6458: -- want the default sales credit for the salesrep on the order
6459:
6460: IF p_x_header_scredit_tbl.COUNT > 0 and
6461: p_x_header_rec.operation = oe_globals.g_opr_create THEN
6462: OE_Validate_Header_Scredit.G_Create_Auto_Sales_Credit := 'N';
6463: END IF;
6464:
6465: Header
6484:
6485: -- Perform header group requests.
6486:
6487: IF (p_control_rec.process AND
6488: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6489: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6490: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER)
6491: THEN
6492:
6485: -- Perform header group requests.
6486:
6487: IF (p_control_rec.process AND
6488: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6489: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6490: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER)
6491: THEN
6492:
6493: NULL;
6486:
6487: IF (p_control_rec.process AND
6488: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6489: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6490: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER)
6491: THEN
6492:
6493: NULL;
6494:
6509: IF l_debug_level > 0 THEN
6510: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_ADJ_TBL' , 2 ) ;
6511: END IF;
6512:
6513: IF p_x_header_adj_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6514: AND (p_x_header_adj_tbl(I).header_id IS NULL OR
6515: p_x_header_adj_tbl(I).header_id = FND_API.G_MISS_NUM)
6516: THEN
6517: IF p_x_header_rec.header_id IS NULL OR
6559: END IF;
6560: -- Perform Header_Adj group requests.
6561:
6562: IF (p_control_rec.process AND
6563: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6564: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6565: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_ADJ)
6566: THEN
6567:
6560: -- Perform Header_Adj group requests.
6561:
6562: IF (p_control_rec.process AND
6563: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6564: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6565: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_ADJ)
6566: THEN
6567:
6568: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6561:
6562: IF (p_control_rec.process AND
6563: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6564: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6565: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_ADJ)
6566: THEN
6567:
6568: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6569: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
6565: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_ADJ)
6566: THEN
6567:
6568: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6569: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
6570: ,p_delete => FND_API.G_TRUE
6571: ,x_return_status => l_return_status
6572: );
6573: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6592:
6593: IF l_debug_level > 0 THEN
6594: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_PRICE_ATT_TBL' , 2 ) ;
6595: END IF;
6596: IF p_x_header_price_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6597: AND (p_x_header_price_att_tbl(I).header_id IS NULL OR
6598: p_x_header_price_att_tbl(I).header_id = FND_API.G_MISS_NUM)
6599: THEN
6600: IF p_x_header_rec.header_id IS NULL OR
6631: END IF;
6632: -- Perform Header_Price_Att group requests.
6633:
6634: IF (p_control_rec.process AND
6635: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6636: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
6637: OR
6638: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Price_Att
6639: )
6632: -- Perform Header_Price_Att group requests.
6633:
6634: IF (p_control_rec.process AND
6635: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6636: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
6637: OR
6638: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Price_Att
6639: )
6640: THEN
6634: IF (p_control_rec.process AND
6635: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6636: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
6637: OR
6638: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Price_Att
6639: )
6640: THEN
6641:
6642: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6639: )
6640: THEN
6641:
6642: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6643: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
6644: ,p_delete => FND_API.G_TRUE
6645: ,x_return_status => l_return_status
6646: );
6647: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6666:
6667: IF l_debug_level > 0 THEN
6668: oe_debug_pub.add( 'SETTING PRICE ADJUSTMENT ID ON HDR_ADJ_ATTBS' , 2 ) ;
6669: END IF;
6670: IF p_x_header_adj_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6671: AND (p_x_header_adj_att_tbl(I).price_adjustment_id IS NULL OR
6672: p_x_header_adj_att_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
6673: THEN
6674:
6729:
6730: IF l_debug_level > 0 THEN
6731: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_ADJ_ASSOC_TBL' , 2 ) ;
6732: END IF;
6733: IF p_x_header_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6734: AND (p_x_header_adj_assoc_tbl(I).Price_Adjustment_id IS NULL OR
6735: p_x_header_adj_assoc_tbl(I).Price_Adjustment_id = FND_API.G_MISS_NUM)
6736: THEN
6737:
6756: END IF;
6757:
6758: END IF;
6759:
6760: IF p_x_header_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6761: AND (p_x_header_adj_assoc_tbl(I).rltd_Price_Adj_Id IS NULL OR
6762: p_x_header_adj_assoc_tbl(I).rltd_Price_Adj_Id = FND_API.G_MISS_NUM)
6763: THEN
6764:
6805:
6806: IF l_debug_level > 0 THEN
6807: oe_debug_pub.add( 'SETTING HEADER_ID ON HEADER_SCREDIT_TBL' , 2 ) ;
6808: END IF;
6809: IF p_x_header_scredit_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6810: AND (p_x_header_scredit_tbl(I).header_id IS NULL OR
6811: p_x_header_scredit_tbl(I).header_id = FND_API.G_MISS_NUM)
6812: THEN
6813:
6857:
6858: -- Perform Header_Scredit group requests.
6859:
6860: IF (p_control_rec.process AND
6861: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6862: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6863: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT)
6864: THEN
6865:
6858: -- Perform Header_Scredit group requests.
6859:
6860: IF (p_control_rec.process AND
6861: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6862: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6863: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT)
6864: THEN
6865:
6866: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6859:
6860: IF (p_control_rec.process AND
6861: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6862: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6863: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT)
6864: THEN
6865:
6866: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6867: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
6863: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT)
6864: THEN
6865:
6866: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6867: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
6868: ,p_delete => FND_API.G_TRUE
6869: ,x_return_status => l_return_status
6870: );
6871: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6916:
6917: IF l_debug_level > 0 THEN
6918: oe_debug_pub.add( 'SETTING HEADER_ID ON HEADER_PAYMENT_TBL' , 2 ) ;
6919: END IF;
6920: IF p_x_header_payment_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
6921: AND (p_x_header_payment_tbl(I).header_id IS NULL OR
6922: p_x_header_payment_tbl(I).header_id = FND_API.G_MISS_NUM)
6923: THEN
6924:
6968:
6969: -- Perform Header_Payment group requests.
6970:
6971: IF (p_control_rec.process AND
6972: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6973: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6974: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_PAYMENT)
6975: THEN
6976:
6969: -- Perform Header_Payment group requests.
6970:
6971: IF (p_control_rec.process AND
6972: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6973: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6974: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_PAYMENT)
6975: THEN
6976:
6977: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6970:
6971: IF (p_control_rec.process AND
6972: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
6973: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
6974: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_PAYMENT)
6975: THEN
6976:
6977: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6978: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Payment
6974: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_PAYMENT)
6975: THEN
6976:
6977: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
6978: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Payment
6979: ,p_delete => FND_API.G_TRUE
6980: ,x_return_status => l_return_status
6981: );
6982: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6997:
6998: --Bug 2790512: Prevent processing of line if operation is invalid
6999: --Bug 2878121: Ignore NULL operation code
7000: IF p_x_line_tbl(I).operation IS NOT NULL AND
7001: p_x_line_tbl(I).operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
7002: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
7003: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
7004: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
7005: OE_MSG_PUB.Add;
6998: --Bug 2790512: Prevent processing of line if operation is invalid
6999: --Bug 2878121: Ignore NULL operation code
7000: IF p_x_line_tbl(I).operation IS NOT NULL AND
7001: p_x_line_tbl(I).operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
7002: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
7003: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
7004: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
7005: OE_MSG_PUB.Add;
7006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6999: --Bug 2878121: Ignore NULL operation code
7000: IF p_x_line_tbl(I).operation IS NOT NULL AND
7001: p_x_line_tbl(I).operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
7002: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
7003: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
7004: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
7005: OE_MSG_PUB.Add;
7006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7007: END IF;
7005: OE_MSG_PUB.Add;
7006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7007: END IF;
7008:
7009: IF p_x_line_tbl(I).operation = oe_globals.g_opr_update
7010: AND p_x_line_tbl(I).split_action_code = 'SPLIT' THEN
7011:
7012: -- Negotiation check has been added for bug 4758902
7013: BEGIN
7049: l_header_id := p_x_line_tbl(I).header_id;
7050: END IF;
7051: END IF;
7052:
7053: IF p_x_line_tbl(I).operation <> OE_GLOBALS.G_OPR_CREATE
7054: AND (p_x_line_tbl(I).header_id IS NULL OR
7055: p_x_line_tbl(I).header_id = FND_API.G_MISS_NUM)
7056: THEN
7057: IF (l_header_id IS NOT NULL AND
7066: END IF;
7067:
7068: -- Copy the parent ID (header ID), if not passed, on
7069: -- the record for CREATE operations
7070: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE THEN
7071: IF (p_x_line_tbl(I).header_id IS NULL OR
7072: p_x_line_tbl(I).header_id = FND_API.G_MISS_NUM)
7073: THEN
7074: -- Copy parent_id.
7138:
7139: IF l_debug_level > 0 THEN
7140: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE SC TABLE' ) ;
7141: END IF;
7142: IF p_x_line_scredit_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7143: AND (p_x_line_scredit_tbl(I).line_id IS NULL OR
7144: p_x_line_scredit_tbl(I).line_id = FND_API.G_MISS_NUM)
7145: THEN
7146: IF l_debug_level > 0 THEN
7189:
7190: IF l_debug_level > 0 THEN
7191: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE SC TABLE' ) ;
7192: END IF;
7193: IF p_x_line_payment_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7194: AND (p_x_line_payment_tbl(I).line_id IS NULL OR
7195: p_x_line_payment_tbl(I).line_id = FND_API.G_MISS_NUM)
7196: THEN
7197: IF l_debug_level > 0 THEN
7236: IF l_debug_level > 0 THEN
7237: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE ADJ TABLE' , 2 ) ;
7238: END IF;
7239:
7240: IF p_x_line_adj_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7241: AND (p_x_line_adj_tbl(I).line_id IS NULL OR
7242: p_x_line_adj_tbl(I).line_id = FND_API.G_MISS_NUM)
7243: THEN
7244:
7285:
7286: -- Perform line group requests.
7287:
7288: IF (p_control_rec.process AND
7289: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7290: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7291: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE)
7292: THEN
7293: IF l_debug_level > 0 THEN
7286: -- Perform line group requests.
7287:
7288: IF (p_control_rec.process AND
7289: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7290: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7291: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE)
7292: THEN
7293: IF l_debug_level > 0 THEN
7294: oe_debug_pub.add( 'PROCESS LINE REQUESTS' ) ;
7287:
7288: IF (p_control_rec.process AND
7289: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7290: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7291: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE)
7292: THEN
7293: IF l_debug_level > 0 THEN
7294: oe_debug_pub.add( 'PROCESS LINE REQUESTS' ) ;
7295: END IF;
7294: oe_debug_pub.add( 'PROCESS LINE REQUESTS' ) ;
7295: END IF;
7296:
7297: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7298: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
7299: ,p_delete => FND_API.G_TRUE
7300: ,x_return_status => l_return_status
7301: );
7302: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7327:
7328: -- Perform Line_Adj group requests.
7329:
7330: IF (p_control_rec.process AND
7331: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7332: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7333: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_ADJ)
7334: THEN
7335:
7328: -- Perform Line_Adj group requests.
7329:
7330: IF (p_control_rec.process AND
7331: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7332: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7333: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_ADJ)
7334: THEN
7335:
7336: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7329:
7330: IF (p_control_rec.process AND
7331: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7332: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7333: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_ADJ)
7334: THEN
7335:
7336: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7337: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
7333: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_ADJ)
7334: THEN
7335:
7336: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7337: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
7338: ,p_delete => FND_API.G_TRUE
7339: ,x_return_status => l_return_status
7340: );
7341: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7375:
7376: -- Perform Line_Scredit group requests.
7377:
7378: IF (p_control_rec.process AND
7379: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7380: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7381: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_SCREDIT)
7382: THEN
7383:
7376: -- Perform Line_Scredit group requests.
7377:
7378: IF (p_control_rec.process AND
7379: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7380: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7381: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_SCREDIT)
7382: THEN
7383:
7384: IF l_debug_level > 0 THEN
7377:
7378: IF (p_control_rec.process AND
7379: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7380: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7381: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_SCREDIT)
7382: THEN
7383:
7384: IF l_debug_level > 0 THEN
7385: oe_debug_pub.add( 'PROCESSING DELAYED REQUESTS FOR LINES' , 2 ) ;
7385: oe_debug_pub.add( 'PROCESSING DELAYED REQUESTS FOR LINES' , 2 ) ;
7386: END IF;
7387:
7388: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7389: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
7390: ,p_delete => FND_API.G_TRUE
7391: ,x_return_status => l_return_status
7392: );
7393:
7434:
7435: -- Perform Line_Payment group requests.
7436:
7437: IF (p_control_rec.process AND
7438: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7439: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7440: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_PAYMENT)
7441: THEN
7442:
7435: -- Perform Line_Payment group requests.
7436:
7437: IF (p_control_rec.process AND
7438: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7439: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7440: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_PAYMENT)
7441: THEN
7442:
7443: IF l_debug_level > 0 THEN
7436:
7437: IF (p_control_rec.process AND
7438: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7439: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7440: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_PAYMENT)
7441: THEN
7442:
7443: IF l_debug_level > 0 THEN
7444: oe_debug_pub.add( 'PROCESSING DELAYED REQUESTS FOR LINES' , 2 ) ;
7444: oe_debug_pub.add( 'PROCESSING DELAYED REQUESTS FOR LINES' , 2 ) ;
7445: END IF;
7446:
7447: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7448: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_PAYMENT
7449: ,p_delete => FND_API.G_TRUE
7450: ,x_return_status => l_return_status
7451: );
7452:
7473:
7474: I := p_x_lot_serial_tbl.FIRST;
7475: WHILE I IS NOT NULL LOOP
7476:
7477: IF p_x_lot_serial_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7478: AND (p_x_lot_serial_tbl(I).line_id IS NULL OR
7479: p_x_lot_serial_tbl(I).line_id = FND_API.G_MISS_NUM)
7480: THEN
7481:
7527:
7528: -- Perform Lot_Serial group requests.
7529:
7530: IF (p_control_rec.process AND
7531: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7532: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7533: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LOT_SERIAL)
7534: THEN
7535:
7528: -- Perform Lot_Serial group requests.
7529:
7530: IF (p_control_rec.process AND
7531: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7532: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7533: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LOT_SERIAL)
7534: THEN
7535:
7536: NULL;
7529:
7530: IF (p_control_rec.process AND
7531: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7532: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7533: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LOT_SERIAL)
7534: THEN
7535:
7536: NULL;
7537:
7548:
7549: IF l_debug_level > 0 THEN
7550: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE ATTRIBUTES TABLE' , 2 ) ;
7551: END IF;
7552: IF p_x_line_price_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7553: AND (p_x_line_price_att_tbl(I).line_id IS NULL OR
7554: p_x_line_price_att_tbl(I).line_id = FND_API.G_MISS_NUM)
7555: THEN
7556:
7602:
7603: -- Perform Line_Price_Att group requests.
7604:
7605: IF (p_control_rec.process AND
7606: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7607: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7608: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Price_Att)
7609: THEN
7610:
7603: -- Perform Line_Price_Att group requests.
7604:
7605: IF (p_control_rec.process AND
7606: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7607: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7608: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Price_Att)
7609: THEN
7610:
7611: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7604:
7605: IF (p_control_rec.process AND
7606: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7607: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
7608: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Price_Att)
7609: THEN
7610:
7611: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7612: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
7608: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Price_Att)
7609: THEN
7610:
7611: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
7612: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
7613: ,p_delete => FND_API.G_TRUE
7614: ,x_return_status => l_return_status
7615: );
7616: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7634: IF l_debug_level > 0 THEN
7635: oe_debug_pub.add( 'SETTING PRICE_ADJUSTMENT_ID ON LINE ADJ ATTRIB TABLE' , 2 ) ;
7636: END IF;
7637:
7638: IF p_x_line_adj_att_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7639: AND (p_x_line_adj_att_tbl(I).price_adjustment_id IS NULL OR
7640: p_x_line_adj_att_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
7641: THEN
7642:
7696:
7697: IF l_debug_level > 0 THEN
7698: oe_debug_pub.add( 'SETTING PRICE_ADJUSTMENT_ID ON LINE ADJ ASSOCS TABLE' , 2 ) ;
7699: END IF;
7700: IF p_x_line_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7701: AND (p_x_line_adj_assoc_tbl(I).price_adjustment_id IS NULL OR
7702: p_x_line_adj_assoc_tbl(I).price_adjustment_id = FND_API.G_MISS_NUM)
7703: THEN
7704:
7731: END IF;
7732: END IF;
7733: END IF;
7734:
7735: IF p_x_line_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7736: AND (p_x_line_adj_assoc_tbl(I).Line_id IS NULL OR
7737: p_x_line_adj_assoc_tbl(I).Line_id = FND_API.G_MISS_NUM)
7738: THEN
7739:
7749: p_x_line_adj_Assoc_tbl(I).Line_Id := p_x_line_tbl(p_x_Line_Adj_assoc_tbl(I).Line_index).Line_id;
7750: END IF;
7751: END IF;
7752:
7753: IF p_x_line_adj_assoc_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE
7754: AND (p_x_line_adj_assoc_tbl(I).rltd_Price_Adj_Id IS NULL OR
7755: p_x_line_adj_assoc_tbl(I).rltd_Price_Adj_Id = FND_API.G_MISS_NUM)
7756: THEN
7757:
7789: IF l_debug_level > 0 THEN
7790: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON REQUEST TABLE' , 2 ) ;
7791: END IF;
7792:
7793: IF (p_x_action_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_HEADER) THEN
7794:
7795: IF (p_x_action_request_tbl(I).entity_id IS NULL OR
7796: p_x_action_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
7797: THEN
7808: l_hdr_flow_status_refresh := 'Y'; -- Bug 8435946
7809: END IF;
7810: END IF;
7811:
7812: ELSIF (p_x_action_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_LINE) THEN
7813:
7814: IF (p_x_action_request_tbl(I).entity_id IS NULL OR
7815: p_x_action_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
7816: THEN
7836: END IF;
7837: END IF;
7838: END IF;
7839:
7840: ELSIF (p_x_action_request_tbl(I).request_type = OE_GLOBALS.G_VERIFY_PAYMENT) THEN
7841:
7842: IF (p_x_action_request_tbl(I).entity_id IS NULL OR
7843: p_x_action_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
7844: THEN
7866: IF l_debug_level > 0 THEN
7867: oe_debug_pub.add( 'OEXVORDB: BEFORE CALLING PROCESS_DELAYED_REQUESTS' , 2 ) ;
7868: END IF;
7869: IF (p_control_rec.process AND
7870: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7871: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
7872: THEN
7873:
7874: OE_DELAYED_REQUESTS_PVT.Process_Delayed_Requests(
7867: oe_debug_pub.add( 'OEXVORDB: BEFORE CALLING PROCESS_DELAYED_REQUESTS' , 2 ) ;
7868: END IF;
7869: IF (p_control_rec.process AND
7870: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
7871: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
7872: THEN
7873:
7874: OE_DELAYED_REQUESTS_PVT.Process_Delayed_Requests(
7875: x_return_status => l_return_status
7906: oe_debug_pub.add('return_status : ' || p_x_action_request_tbl(i).return_status);
7907: oe_debug_pub.add('request_type : ' || p_x_action_request_tbl(i).request_type);
7908: END IF;
7909: IF p_x_action_request_tbl(i).return_status = FND_API.G_RET_STS_ERROR
7910: AND p_x_action_request_tbl(i).request_type = OE_GLOBALS.G_VERIFY_PAYMENT THEN
7911: x_return_status := FND_API.G_RET_STS_ERROR;
7912: RAISE FND_API.G_EXC_ERROR;
7913: END IF;
7914: i := p_x_action_request_tbl.next(i);
7917: comm rej */
7918:
7919: -- Start flows for the Entity.
7920: IF (p_control_rec.process AND
7921: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL AND
7922: OE_GLOBALS.G_RECURSION_MODE = 'N')
7923: THEN
7924: OE_ORDER_WF_UTIL.START_ALL_FLOWS;
7925: -- Process WF Action requests.
7918:
7919: -- Start flows for the Entity.
7920: IF (p_control_rec.process AND
7921: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL AND
7922: OE_GLOBALS.G_RECURSION_MODE = 'N')
7923: THEN
7924: OE_ORDER_WF_UTIL.START_ALL_FLOWS;
7925: -- Process WF Action requests.
7926: IF p_x_action_request_tbl.COUNT > 0 THEN
8167: IF l_debug_level > 0 THEN
8168: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
8169: END IF;
8170:
8171: IF OE_Globals.G_RECURSION_MODE <> 'Y' AND
8172: x_return_status = FND_API.G_RET_STS_SUCCESS AND
8173: l_control_rec.write_to_db = TRUE
8174: THEN
8175: IF l_debug_level > 0 THEN
8260: PROCEDURE Process_Order
8261: ( p_api_version_number IN NUMBER
8262: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8263: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
8264: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
8265: OE_GLOBALS.G_MISS_CONTROL_REC
8266: , x_return_status OUT NOCOPY VARCHAR2
8267:
8268: , x_msg_count OUT NOCOPY NUMBER
8261: ( p_api_version_number IN NUMBER
8262: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8263: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
8264: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
8265: OE_GLOBALS.G_MISS_CONTROL_REC
8266: , x_return_status OUT NOCOPY VARCHAR2
8267:
8268: , x_msg_count OUT NOCOPY NUMBER
8269:
8370: PROCEDURE Process_Order
8371: ( p_api_version_number IN NUMBER
8372: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8373: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
8374: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
8375: OE_GLOBALS.G_MISS_CONTROL_REC
8376: , x_return_status OUT NOCOPY VARCHAR2
8377:
8378: , x_msg_count OUT NOCOPY NUMBER
8371: ( p_api_version_number IN NUMBER
8372: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8373: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
8374: , p_control_rec IN OE_GLOBALS.Control_Rec_Type :=
8375: OE_GLOBALS.G_MISS_CONTROL_REC
8376: , x_return_status OUT NOCOPY VARCHAR2
8377:
8378: , x_msg_count OUT NOCOPY NUMBER
8379:
8434: IS
8435: l_api_version_number CONSTANT NUMBER := 1.0;
8436: l_api_name CONSTANT VARCHAR2(30):= 'Process_Order';
8437: l_return_status VARCHAR2(1);
8438: l_control_rec OE_GLOBALS.Control_Rec_Type;
8439: l_header_rec OE_Order_PUB.Header_Rec_Type := p_x_header_rec;
8440: l_old_header_rec OE_Order_PUB.Header_Rec_Type := p_old_header_rec;
8441: l_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
8442: l_Header_Adj_tbl OE_Order_PUB.Header_Adj_Tbl_Type;
8510: x_return_status := FND_API.G_RET_STS_SUCCESS;
8511: fnd_profile.get('ONT_NEW_EDI_ACK_FWK', l_edi_ack_pfile);
8512: l_edi_ack_pfile := nvl(l_edi_ack_pfile, 'NO');
8513:
8514: IF OE_GLOBALS.G_RECURSION_MODE <> 'Y' THEN
8515:
8516: SAVEPOINT Process_Order;
8517: END IF;
8518:
8539: END IF;
8540:
8541: -- Set Org Context
8542:
8543: OE_GLOBALS.Set_Context;
8544:
8545: -- Bug 1929163: improving performance by not copying in variables
8546: -- to local variables. Can directly work on the IN OUT variables
8547: -- IMPORTANT NOTE:
8663: --Bug 2878121: Ignore NULL operation code
8664: IF l_header_rec.header_id is NOT NULL AND
8665: l_header_rec.header_id <> FND_API.G_MISS_NUM THEN
8666: IF l_header_rec.operation IS NOT NULL AND
8667: l_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
8668: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
8669: OE_GLOBALS.G_OPR_NONE) THEN
8670: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
8671: OE_MSG_PUB.Add;
8664: IF l_header_rec.header_id is NOT NULL AND
8665: l_header_rec.header_id <> FND_API.G_MISS_NUM THEN
8666: IF l_header_rec.operation IS NOT NULL AND
8667: l_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
8668: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
8669: OE_GLOBALS.G_OPR_NONE) THEN
8670: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
8671: OE_MSG_PUB.Add;
8672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8665: l_header_rec.header_id <> FND_API.G_MISS_NUM THEN
8666: IF l_header_rec.operation IS NOT NULL AND
8667: l_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
8668: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
8669: OE_GLOBALS.G_OPR_NONE) THEN
8670: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
8671: OE_MSG_PUB.Add;
8672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8673: END IF;
8673: END IF;
8674: END IF;
8675:
8676: IF l_header_rec.operation IS NOT NULL
8677: AND l_header_rec.operation <> OE_GLOBALS.G_OPR_NONE
8678: THEN
8679:
8680: -- This if is add to honor users sales credits if they do not
8681: -- want the default sales credit for the salesrep on the order
8680: -- This if is add to honor users sales credits if they do not
8681: -- want the default sales credit for the salesrep on the order
8682:
8683: IF l_Header_Scredit_tbl.COUNT > 0 and
8684: l_header_rec.operation = oe_globals.g_opr_create THEN
8685: OE_Validate_Header_Scredit.G_Create_Auto_Sales_Credit := 'N';
8686: END IF;
8687:
8688: Header
8707:
8708: -- Perform header group requests.
8709:
8710: IF (p_control_rec.process AND
8711: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8712: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
8713: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER)
8714: THEN
8715:
8708: -- Perform header group requests.
8709:
8710: IF (p_control_rec.process AND
8711: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8712: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
8713: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER)
8714: THEN
8715:
8716: NULL;
8709:
8710: IF (p_control_rec.process AND
8711: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8712: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
8713: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER)
8714: THEN
8715:
8716: NULL;
8717:
8733: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_ADJ_TBL' , 2 ) ;
8734: END IF;
8735: l_Header_Adj_rec := l_Header_Adj_tbl(I);
8736:
8737: IF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
8738: AND (l_Header_Adj_rec.header_id IS NULL OR
8739: l_Header_Adj_rec.header_id = FND_API.G_MISS_NUM)
8740: THEN
8741: IF l_header_rec.header_id IS NULL OR
8783: END IF;
8784: -- Perform Header_Adj group requests.
8785:
8786: IF (p_control_rec.process AND
8787: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8788: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
8789: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_ADJ)
8790: THEN
8791:
8784: -- Perform Header_Adj group requests.
8785:
8786: IF (p_control_rec.process AND
8787: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8788: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
8789: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_ADJ)
8790: THEN
8791:
8792: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8785:
8786: IF (p_control_rec.process AND
8787: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8788: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
8789: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_ADJ)
8790: THEN
8791:
8792: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8793: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
8789: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_ADJ)
8790: THEN
8791:
8792: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8793: (p_entity_code => OE_GLOBALS.G_ENTITY_HEADER_ADJ
8794: ,p_delete => FND_API.G_TRUE
8795: ,x_return_status => l_return_status
8796: );
8797: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8818: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_PRICE_ATT_TBL' , 2 ) ;
8819: END IF;
8820: l_Header_Price_Att_Rec := l_Header_Price_att_tbl(I);
8821:
8822: IF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
8823: AND (l_Header_Price_Att_rec.header_id IS NULL OR
8824: l_Header_Price_Att_rec.header_id = FND_API.G_MISS_NUM)
8825: THEN
8826: IF l_header_rec.header_id IS NULL OR
8857: END IF;
8858: -- Perform Header_Price_Att group requests.
8859:
8860: IF (p_control_rec.process AND
8861: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8862: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
8863: OR
8864: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Price_Att
8865: )
8858: -- Perform Header_Price_Att group requests.
8859:
8860: IF (p_control_rec.process AND
8861: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8862: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
8863: OR
8864: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Price_Att
8865: )
8866: THEN
8860: IF (p_control_rec.process AND
8861: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8862: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
8863: OR
8864: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Price_Att
8865: )
8866: THEN
8867:
8868: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8865: )
8866: THEN
8867:
8868: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8869: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Price_Att
8870: ,p_delete => FND_API.G_TRUE
8871: ,x_return_status => l_return_status
8872: );
8873: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8894: oe_debug_pub.add( 'SETTING PRICE ADJUSTMENT ID ON HDR_ADJ_ATTBS' , 2 ) ;
8895: END IF;
8896: l_Header_Adj_Att_rec := l_Header_Adj_Att_tbl(I);
8897:
8898: IF l_Header_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
8899: AND (l_Header_Adj_Att_rec.price_adjustment_id IS NULL OR
8900: l_Header_Adj_Att_rec.price_adjustment_id = FND_API.G_MISS_NUM)
8901: THEN
8902:
8947: -- Perform Header_Adj_Att group requests.
8948:
8949: /*
8950: IF (p_control_rec.process AND
8951: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8952: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
8953: OR
8954: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Adj_Att
8955: )
8948:
8949: /*
8950: IF (p_control_rec.process AND
8951: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8952: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
8953: OR
8954: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Adj_Att
8955: )
8956: THEN
8950: IF (p_control_rec.process AND
8951: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
8952: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
8953: OR
8954: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Adj_Att
8955: )
8956: THEN
8957:
8958: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8955: )
8956: THEN
8957:
8958: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
8959: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Att
8960: ,p_delete => FND_API.G_TRUE
8961: ,x_return_status => l_return_status
8962: );
8963: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8985: oe_debug_pub.add( 'SETTING HEADER ID ON HDR_ADJ_ASSOC_TBL' , 2 ) ;
8986: END IF;
8987: l_Header_Adj_Assoc_rec := l_Header_Adj_Assoc_tbl(I);
8988:
8989: IF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
8990: AND (l_Header_Adj_Assoc_rec.Price_Adjustment_id IS NULL OR
8991: l_Header_Adj_Assoc_rec.Price_Adjustment_id = FND_API.G_MISS_NUM)
8992: THEN
8993:
9012: END IF;
9013:
9014: END IF;
9015:
9016: IF l_Header_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
9017: AND (l_Header_Adj_Assoc_rec.rltd_Price_Adj_Id IS NULL OR
9018: l_Header_Adj_Assoc_rec.rltd_Price_Adj_Id = FND_API.G_MISS_NUM)
9019: THEN
9020:
9051: -- Perform Header_Adj_Assoc group requests.
9052:
9053: /*
9054: IF (p_control_rec.process AND
9055: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9056: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
9057: OR
9058: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
9059: )
9052:
9053: /*
9054: IF (p_control_rec.process AND
9055: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9056: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
9057: OR
9058: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
9059: )
9060: THEN
9054: IF (p_control_rec.process AND
9055: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9056: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
9057: OR
9058: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
9059: )
9060: THEN
9061:
9062: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9059: )
9060: THEN
9061:
9062: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9063: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Adj_Assoc
9064: ,p_delete => FND_API.G_TRUE
9065: ,x_return_status => l_return_status
9066: );
9067: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9092: END IF;
9093:
9094: l_Header_Scredit_rec := l_Header_Scredit_tbl(I);
9095:
9096: IF l_Header_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE
9097: AND (l_Header_Scredit_rec.header_id IS NULL OR
9098: l_Header_Scredit_rec.header_id = FND_API.G_MISS_NUM)
9099: THEN
9100: IF l_header_rec.header_id IS NULL OR -- p_x_header_rec replaced with l_header_rec for 2896409
9144:
9145: -- Perform Header_Scredit group requests.
9146:
9147: IF (p_control_rec.process AND
9148: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9149: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9150: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT)
9151: THEN
9152:
9145: -- Perform Header_Scredit group requests.
9146:
9147: IF (p_control_rec.process AND
9148: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9149: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9150: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT)
9151: THEN
9152:
9153: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9146:
9147: IF (p_control_rec.process AND
9148: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9149: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9150: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT)
9151: THEN
9152:
9153: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9154: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
9150: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT)
9151: THEN
9152:
9153: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9154: (p_entity_code => OE_GLOBALS.G_ENTITY_Header_Scredit
9155: ,p_delete => FND_API.G_TRUE
9156: ,x_return_status => l_return_status
9157: );
9158: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9205:
9206: --Bug 2790512: Prevent processing of line if operation is invalid
9207: --Bug 2878121: Ignore NULL operation code
9208: IF l_line_rec.operation IS NOT NULL AND
9209: l_line_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
9210: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
9211: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
9212: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
9213: OE_MSG_PUB.Add;
9206: --Bug 2790512: Prevent processing of line if operation is invalid
9207: --Bug 2878121: Ignore NULL operation code
9208: IF l_line_rec.operation IS NOT NULL AND
9209: l_line_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
9210: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
9211: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
9212: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
9213: OE_MSG_PUB.Add;
9214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9207: --Bug 2878121: Ignore NULL operation code
9208: IF l_line_rec.operation IS NOT NULL AND
9209: l_line_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
9210: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
9211: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
9212: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
9213: OE_MSG_PUB.Add;
9214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9215: END IF;
9213: OE_MSG_PUB.Add;
9214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9215: END IF;
9216:
9217: IF l_line_rec.operation = oe_globals.g_opr_update
9218: AND l_line_rec.split_action_code = 'SPLIT' THEN
9219: l_call_split := TRUE;
9220: END IF;
9221:
9232: l_header_id := l_line_tbl(I).header_id;
9233: END IF;
9234: END IF;
9235:
9236: IF l_line_rec.operation <> OE_GLOBALS.G_OPR_CREATE
9237: AND (l_line_rec.header_id IS NULL OR
9238: l_line_rec.header_id = FND_API.G_MISS_NUM)
9239: THEN
9240: IF (l_header_id IS NOT NULL AND
9249: END IF;
9250:
9251: -- Copy the parent ID (header ID), if not passed, on
9252: -- the record for CREATE operations
9253: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE
9254: THEN
9255:
9256: IF (l_line_rec.header_id IS NULL OR
9257: l_line_rec.header_id = FND_API.G_MISS_NUM)
9424: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE SC TABLE' ) ;
9425: END IF;
9426: l_Line_Scredit_rec := l_Line_Scredit_tbl(I);
9427:
9428: IF l_Line_Scredit_rec.operation = OE_GLOBALS.G_OPR_CREATE
9429: AND (l_Line_Scredit_rec.line_id IS NULL OR
9430: l_Line_Scredit_rec.line_id = FND_API.G_MISS_NUM)
9431: THEN
9432: IF l_debug_level > 0 THEN
9478: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE ADJ TABLE' , 2 ) ;
9479: END IF;
9480: l_Line_Adj_rec := l_Line_Adj_tbl(I);
9481:
9482: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE
9483: AND (l_Line_Adj_rec.line_id IS NULL OR
9484: l_Line_Adj_rec.line_id = FND_API.G_MISS_NUM)
9485: THEN
9486:
9527:
9528: -- Perform line group requests.
9529:
9530: IF (p_control_rec.process AND
9531: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9532: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9533: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE)
9534: THEN
9535: IF l_debug_level > 0 THEN
9528: -- Perform line group requests.
9529:
9530: IF (p_control_rec.process AND
9531: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9532: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9533: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE)
9534: THEN
9535: IF l_debug_level > 0 THEN
9536: oe_debug_pub.add( 'PROCESS LINE REQUESTS' ) ;
9529:
9530: IF (p_control_rec.process AND
9531: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9532: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9533: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE)
9534: THEN
9535: IF l_debug_level > 0 THEN
9536: oe_debug_pub.add( 'PROCESS LINE REQUESTS' ) ;
9537: END IF;
9536: oe_debug_pub.add( 'PROCESS LINE REQUESTS' ) ;
9537: END IF;
9538:
9539: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9540: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
9541: ,p_delete => FND_API.G_TRUE
9542: ,x_return_status => l_return_status
9543: );
9544: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9569:
9570: -- Perform Line_Adj group requests.
9571:
9572: IF (p_control_rec.process AND
9573: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9574: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9575: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_ADJ)
9576: THEN
9577:
9570: -- Perform Line_Adj group requests.
9571:
9572: IF (p_control_rec.process AND
9573: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9574: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9575: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_ADJ)
9576: THEN
9577:
9578: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9571:
9572: IF (p_control_rec.process AND
9573: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9574: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9575: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_ADJ)
9576: THEN
9577:
9578: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9579: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
9575: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_ADJ)
9576: THEN
9577:
9578: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9579: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ
9580: ,p_delete => FND_API.G_TRUE
9581: ,x_return_status => l_return_status
9582: );
9583: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9617:
9618: -- Perform Line_Scredit group requests.
9619:
9620: IF (p_control_rec.process AND
9621: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9622: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9623: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_SCREDIT)
9624: THEN
9625:
9618: -- Perform Line_Scredit group requests.
9619:
9620: IF (p_control_rec.process AND
9621: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9622: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9623: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_SCREDIT)
9624: THEN
9625:
9626: IF l_debug_level > 0 THEN
9619:
9620: IF (p_control_rec.process AND
9621: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9622: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9623: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LINE_SCREDIT)
9624: THEN
9625:
9626: IF l_debug_level > 0 THEN
9627: oe_debug_pub.add( 'PROCESSING DELAYED REQUESTS FOR LINES' , 2 ) ;
9627: oe_debug_pub.add( 'PROCESSING DELAYED REQUESTS FOR LINES' , 2 ) ;
9628: END IF;
9629:
9630: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9631: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Scredit
9632: ,p_delete => FND_API.G_TRUE
9633: ,x_return_status => l_return_status
9634: );
9635:
9660: WHILE I IS NOT NULL LOOP
9661:
9662: l_Lot_Serial_rec := l_Lot_Serial_tbl(I);
9663:
9664: IF l_Lot_Serial_rec.operation = OE_GLOBALS.G_OPR_CREATE
9665: AND (l_Lot_Serial_rec.line_id IS NULL OR
9666: l_Lot_Serial_rec.line_id = FND_API.G_MISS_NUM)
9667: THEN
9668:
9714:
9715: -- Perform Lot_Serial group requests.
9716:
9717: IF (p_control_rec.process AND
9718: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9719: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9720: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LOT_SERIAL)
9721: THEN
9722:
9715: -- Perform Lot_Serial group requests.
9716:
9717: IF (p_control_rec.process AND
9718: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9719: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9720: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LOT_SERIAL)
9721: THEN
9722:
9723: NULL;
9716:
9717: IF (p_control_rec.process AND
9718: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9719: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9720: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_LOT_SERIAL)
9721: THEN
9722:
9723: NULL;
9724:
9737: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON LINE ATTRIBUTES TABLE' , 2 ) ;
9738: END IF;
9739: l_Line_Price_Att_rec := l_Line_Price_Att_tbl(I);
9740:
9741: IF l_Line_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
9742: AND (l_Line_Price_Att_rec.line_id IS NULL OR
9743: l_Line_Price_Att_rec.line_id = FND_API.G_MISS_NUM)
9744: THEN
9745:
9791:
9792: -- Perform Line_Price_Att group requests.
9793:
9794: IF (p_control_rec.process AND
9795: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9796: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9797: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Price_Att)
9798: THEN
9799:
9792: -- Perform Line_Price_Att group requests.
9793:
9794: IF (p_control_rec.process AND
9795: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9796: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9797: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Price_Att)
9798: THEN
9799:
9800: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9793:
9794: IF (p_control_rec.process AND
9795: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9796: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9797: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Price_Att)
9798: THEN
9799:
9800: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9801: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
9797: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Price_Att)
9798: THEN
9799:
9800: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9801: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Price_Att
9802: ,p_delete => FND_API.G_TRUE
9803: ,x_return_status => l_return_status
9804: );
9805: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9824: oe_debug_pub.add( 'SETTING PRICE_ADJUSTMENT_ID ON LINE ADJ ATTRIB TABLE' , 2 ) ;
9825: END IF;
9826: l_Line_Adj_Att_rec := l_Line_Adj_Att_tbl(I);
9827:
9828: IF l_Line_Adj_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE
9829: AND (l_Line_Adj_Att_rec.price_adjustment_id IS NULL OR
9830: l_Line_Adj_Att_rec.price_adjustment_id = FND_API.G_MISS_NUM)
9831: THEN
9832:
9878: -- Perform Line_Adj_Att group requests.
9879: /*
9880:
9881: IF (p_control_rec.process AND
9882: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9883: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9884: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Adj_Att)
9885: THEN
9886:
9879: /*
9880:
9881: IF (p_control_rec.process AND
9882: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9883: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9884: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Adj_Att)
9885: THEN
9886:
9887: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9880:
9881: IF (p_control_rec.process AND
9882: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
9883: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
9884: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Adj_Att)
9885: THEN
9886:
9887: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9888: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Att
9884: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Adj_Att)
9885: THEN
9886:
9887: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9888: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Att
9889: ,p_delete => FND_API.G_TRUE
9890: ,x_return_status => l_return_status
9891: );
9892: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9911: oe_debug_pub.add( 'SETTING PRICE_ADJUSTMENT_ID ON LINE ADJ ASSOCS TABLE' , 2 ) ;
9912: END IF;
9913: l_Line_Adj_Assoc_rec := l_Line_Adj_Assoc_tbl(I);
9914:
9915: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
9916: AND (l_Line_Adj_Assoc_rec.price_adjustment_id IS NULL OR
9917: l_Line_Adj_Assoc_rec.price_adjustment_id = FND_API.G_MISS_NUM)
9918: THEN
9919:
9946: END IF;
9947: END IF;
9948: END IF;
9949:
9950: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
9951: AND (l_Line_Adj_Assoc_rec.Line_id IS NULL OR
9952: l_Line_Adj_Assoc_rec.Line_id = FND_API.G_MISS_NUM)
9953: THEN
9954:
9964: l_Line_Adj_Assoc_tbl(I).Line_Id := l_line_tbl(l_Line_Adj_Assoc_rec.Line_index).Line_id;
9965: END IF;
9966: END IF;
9967:
9968: IF l_Line_Adj_Assoc_rec.operation = OE_GLOBALS.G_OPR_CREATE
9969: AND (l_Line_Adj_Assoc_rec.rltd_Price_Adj_Id IS NULL OR
9970: l_Line_Adj_Assoc_rec.rltd_Price_Adj_Id = FND_API.G_MISS_NUM)
9971: THEN
9972:
9997: -- Perform Line_Adj_Assoc group requests.
9998: /*
9999:
10000: IF (p_control_rec.process AND
10001: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
10002: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
10003: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Adj_Assoc)
10004: THEN
10005:
9998: /*
9999:
10000: IF (p_control_rec.process AND
10001: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
10002: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
10003: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Adj_Assoc)
10004: THEN
10005:
10006: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9999:
10000: IF (p_control_rec.process AND
10001: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
10002: (p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL OR
10003: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Adj_Assoc)
10004: THEN
10005:
10006: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
10007: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Assoc
10003: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_Line_Adj_Assoc)
10004: THEN
10005:
10006: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
10007: (p_entity_code => OE_GLOBALS.G_ENTITY_Line_Adj_Assoc
10008: ,p_delete => FND_API.G_TRUE
10009: ,x_return_status => l_return_status
10010: );
10011: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10027: FOR k in l_request_tbl.first .. l_request_tbl.last LOOP
10028:
10029: -- oe_debug_pub.add('Processing Line Requests ' ||TO_CHAR(k), 2);
10030: IF (l_request_tbl(k).entity_code IS NULL OR
10031: l_request_tbl(k).entity_code = Oe_Globals.G_ENTITY_HEADER) THEN
10032:
10033: IF (l_request_tbl(k).entity_id = FND_API.G_MISS_NUM
10034: OR l_request_tbl(k).entity_id is null ) THEN
10035: IF l_header_rec.header_id IS NULL OR
10042: l_request_tbl(k).entity_id := l_header_rec.header_id;
10043:
10044: END IF;
10045: END IF;
10046: ELSIF (l_request_tbl(k).entity_code = Oe_Globals.G_ENTITY_LINE) THEN
10047:
10048: IF (to_number(l_request_tbl(k).param1) <> FND_API.G_MISS_NUM)
10049: AND (l_request_tbl(k).param1 IS NOT NULL) THEN
10050:
10082: IF l_debug_level > 0 THEN
10083: oe_debug_pub.add( 'SETTING HEADER/LINE IDS ON REQUEST TABLE' , 2 ) ;
10084: END IF;
10085:
10086: IF (l_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_HEADER) THEN
10087:
10088: IF (l_request_tbl(I).entity_id IS NULL OR
10089: l_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
10090: THEN
10100: l_request_tbl(I).entity_id := l_header_rec.header_id;
10101: END IF;
10102: END IF;
10103:
10104: ELSIF (l_request_tbl(I).entity_code = OE_GLOBALS.G_ENTITY_LINE) THEN
10105:
10106: IF (l_request_tbl(I).entity_id IS NULL OR
10107: l_request_tbl(I).entity_id = FND_API.G_MISS_NUM)
10108: THEN
10140: IF l_debug_level > 0 THEN
10141: oe_debug_pub.add( 'OEXVORDB: BEFORE CALLING PROCESS_DELAYED_REQUESTS' , 2 ) ;
10142: END IF;
10143: IF (p_control_rec.process AND
10144: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
10145: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
10146: THEN
10147:
10148: OE_DELAYED_REQUESTS_PVT.Process_Delayed_Requests(
10141: oe_debug_pub.add( 'OEXVORDB: BEFORE CALLING PROCESS_DELAYED_REQUESTS' , 2 ) ;
10142: END IF;
10143: IF (p_control_rec.process AND
10144: OE_GLOBALS.G_RECURSION_MODE <> 'Y') AND
10145: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL
10146: THEN
10147:
10148: OE_DELAYED_REQUESTS_PVT.Process_Delayed_Requests(
10149: x_return_status => l_return_status
10172:
10173:
10174: -- Start flows for the Entity.
10175: IF (p_control_rec.process AND
10176: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL AND
10177: OE_GLOBALS.G_RECURSION_MODE = 'N')
10178: THEN
10179: OE_ORDER_WF_UTIL.START_ALL_FLOWS;
10180: -- Process WF Action requests.
10173:
10174: -- Start flows for the Entity.
10175: IF (p_control_rec.process AND
10176: p_control_rec.process_entity = OE_GLOBALS.G_ENTITY_ALL AND
10177: OE_GLOBALS.G_RECURSION_MODE = 'N')
10178: THEN
10179: OE_ORDER_WF_UTIL.START_ALL_FLOWS;
10180: -- Process WF Action requests.
10181: IF p_x_action_request_tbl.COUNT > 0 THEN
10410: IF l_debug_level > 0 THEN
10411: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
10412: END IF;
10413: -- Following check is commented to fix 2380911
10414: IF -- OE_Globals.G_RECURSION_MODE <> 'Y' AND
10415: x_return_status = FND_API.G_RET_STS_SUCCESS AND
10416: l_control_rec.write_to_db = TRUE
10417: THEN
10418: IF l_debug_level > 0 THEN
10513: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
10514: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
10515: x_return_status := FND_API.G_RET_STS_ERROR;
10516:
10517: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
10518: IF l_debug_level > 0 THEN
10519: oe_debug_pub.add( 'DELETE REQUEST11' , 2 ) ;
10520: END IF;
10521:
10545: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
10546: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
10547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10548:
10549: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
10550: IF l_debug_level > 0 THEN
10551: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
10552: END IF;
10553:
10578: OE_SET_UTIL.G_SET_TBL.delete; --bug#2428456
10579: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
10580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10581:
10582: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
10583: IF l_debug_level > 0 THEN
10584: oe_debug_pub.add( 'DELETE REQUEST13' , 2 ) ;
10585: END IF;
10586:
10737: SAVEPOINT Lock_Order_PVT;
10738:
10739: -- Lock header
10740:
10741: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_LOCK THEN
10742:
10743: OE_Header_Util.Lock_Row
10744: ( p_x_header_rec => p_x_header_rec
10745: , x_return_status => l_return_status
10760:
10761: I := p_x_Header_Adj_tbl.FIRST;
10762: WHILE I IS NOT NULL LOOP
10763:
10764: IF p_x_Header_Adj_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10765:
10766: OE_Header_Adj_Util.Lock_Row
10767: ( p_x_Header_Adj_rec => p_x_Header_Adj_tbl(I)
10768: , x_return_status => l_return_status
10784:
10785: I := p_x_Header_Price_Att_tbl.FIRST;
10786: WHILE I IS NOT NULL LOOP
10787:
10788: IF p_x_Header_Price_Att_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10789:
10790: OE_Header_PAttr_Util.Lock_Row
10791: ( p_x_Header_Price_Att_rec => p_x_Header_Price_Att_tbl(I)
10792: , x_return_status => l_return_status
10808:
10809: I := p_x_Header_Adj_Att_tbl.FIRST;
10810: WHILE I IS NOT NULL LOOP
10811:
10812: IF p_x_Header_Adj_Att_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10813:
10814: OE_Header_Price_Aattr_Util.Lock_Row
10815: ( p_x_Header_Adj_Att_rec => p_x_Header_Adj_Att_tbl(I)
10816: , x_return_status => l_return_status
10832:
10833: I := p_x_Header_Adj_Assoc_tbl.FIRST;
10834: WHILE I IS NOT NULL LOOP
10835:
10836: IF p_x_Header_Adj_Assoc_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10837:
10838: OE_Header_Adj_Assocs_Util.Lock_Row
10839: ( p_x_Header_Adj_Assoc_rec => p_x_Header_Adj_Assoc_tbl(I)
10840: , x_return_status => l_return_status
10858:
10859: I := p_x_Header_Scredit_tbl.FIRST;
10860: WHILE I IS NOT NULL LOOP
10861:
10862: IF p_x_Header_Scredit_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10863:
10864: OE_Header_Scredit_Util.Lock_Row
10865: ( p_x_Header_Scredit_rec => p_x_Header_Scredit_tbl(I)
10866: , x_return_status => l_return_status
10883: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
10884: I := p_x_Header_Payment_tbl.FIRST;
10885: WHILE I IS NOT NULL LOOP
10886:
10887: IF p_x_Header_Payment_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10888:
10889: OE_Header_Payment_Util.Lock_Row
10890: ( p_x_Header_Payment_rec => p_x_Header_Payment_tbl(I)
10891: , x_return_status => l_return_status
10910:
10911: I := p_x_line_tbl.FIRST;
10912: WHILE I IS NOT NULL LOOP
10913:
10914: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10915:
10916: OE_Line_Util.Lock_Row
10917: ( p_x_line_rec => p_x_line_tbl(I)
10918: , x_return_status => l_return_status
10936:
10937: I := p_x_Line_Adj_tbl.FIRST;
10938: WHILE I IS NOT NULL LOOP
10939:
10940: IF p_x_Line_Adj_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10941:
10942: OE_Line_Adj_Util.Lock_Row
10943: ( p_x_Line_Adj_rec => p_x_Line_Adj_tbl(I)
10944: , x_return_status => l_return_status
10960:
10961: I := p_x_Line_Price_Att_tbl.FIRST;
10962: WHILE I IS NOT NULL LOOP
10963:
10964: IF p_x_Line_Price_Att_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10965:
10966: OE_Line_PAttr_Util.Lock_Row
10967: ( p_x_Line_Price_Att_rec => p_x_Line_Price_Att_tbl(I)
10968: , x_return_status => l_return_status
10984:
10985: I := p_x_Line_Adj_Att_tbl.FIRST;
10986: WHILE I IS NOT NULL LOOP
10987:
10988: IF p_x_Line_Adj_Att_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
10989:
10990: OE_Line_Price_Aattr_Util.Lock_Row
10991: ( p_x_Line_Adj_Att_rec => p_x_Line_Adj_Att_tbl(I)
10992: , x_return_status => l_return_status
11008:
11009: I := p_x_Line_Adj_Assoc_tbl.FIRST;
11010: WHILE I IS NOT NULL LOOP
11011:
11012: IF p_x_Line_Adj_Assoc_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
11013:
11014: OE_Line_Adj_Assocs_Util.Lock_Row
11015: ( p_x_Line_Adj_Assoc_rec => p_x_Line_Adj_Assoc_tbl(I)
11016: , x_return_status => l_return_status
11033: -- FOR I IN 1..p_Line_Scredit_tbl.COUNT LOOP
11034: I := p_x_Line_Scredit_tbl.FIRST;
11035: WHILE I IS NOT NULL LOOP
11036:
11037: IF p_x_Line_Scredit_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
11038:
11039: OE_Line_Scredit_Util.Lock_Row
11040: ( p_x_Line_Scredit_rec => p_x_Line_Scredit_tbl(I)
11041: , x_return_status => l_return_status
11059: I := p_x_Line_Payment_tbl.FIRST;
11060:
11061: WHILE I IS NOT NULL LOOP
11062:
11063: IF p_x_Line_Payment_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
11064:
11065: OE_Line_Payment_Util.Lock_Row
11066: ( p_x_Line_Payment_rec => p_x_Line_Payment_tbl(I)
11067: , x_return_status => l_return_status
11086:
11087: I := p_x_Lot_Serial_tbl.FIRST;
11088: WHILE I IS NOT NULL LOOP
11089:
11090: IF p_x_Lot_Serial_tbl(I).operation = OE_GLOBALS.G_OPR_LOCK THEN
11091:
11092: OE_Lot_Serial_Util.Lock_Row
11093: ( p_x_Lot_Serial_rec => p_x_Lot_Serial_tbl(I)
11094: , x_return_status => l_return_status
11835:
11836: IF p_x_line_rec.top_model_line_index is NOT NULL AND
11837: p_x_line_rec.top_model_line_index <> FND_API.G_MISS_NUM AND
11838: nvl(p_x_line_tbl(p_x_line_rec.top_model_line_index).operation, 'A') <>
11839: OE_GLOBALS.G_OPR_CREATE
11840: THEN
11841: l_line_rec := p_x_line_tbl(p_x_line_rec.top_model_line_index);
11842:
11843: oe_config_pvt.Explode_Bill
11969: IF l_debug_level > 0 THEN /* Bug # 4036765 */
11970: oe_debug_pub.add( 'PROCESS PARTIAL IS TRUE' , 3 ) ;
11971: END IF;
11972: p_x_line_rec.return_status := FND_API.G_RET_STS_ERROR;
11973: p_x_line_rec.operation := OE_GLOBALS.G_OPR_NONE;
11974: OE_GLOBALS.G_FAIL_ORDER_IMPORT := TRUE; /* Bug # 4036765 */
11975: ELSE
11976: IF l_debug_level > 0 THEN
11977: oe_debug_pub.add( 'PROCESS PARTIAL IS NOT TRUE' , 3 ) ;
11970: oe_debug_pub.add( 'PROCESS PARTIAL IS TRUE' , 3 ) ;
11971: END IF;
11972: p_x_line_rec.return_status := FND_API.G_RET_STS_ERROR;
11973: p_x_line_rec.operation := OE_GLOBALS.G_OPR_NONE;
11974: OE_GLOBALS.G_FAIL_ORDER_IMPORT := TRUE; /* Bug # 4036765 */
11975: ELSE
11976: IF l_debug_level > 0 THEN
11977: oe_debug_pub.add( 'PROCESS PARTIAL IS NOT TRUE' , 3 ) ;
11978: END IF;
12004: l_bom_item_type = 1 THEN
12005: IF l_debug_level > 0 THEN
12006: oe_debug_pub.add( 'THIS IS A CLASS' , 5 ) ;
12007: END IF;
12008: p_x_line_rec.item_type_code := OE_GLOBALS.G_ITEM_CLASS;
12009:
12010: ELSIF l_bom_item_type = 4 THEN
12011: IF l_debug_level > 0 THEN
12012: oe_debug_pub.add( 'THIS IS A OPTION/KIT' , 1 ) ;
12161: l_index := l_index + 1;
12162:
12163: p_x_line_tbl(l_index) := OE_Order_Pub.G_Miss_Line_Rec;
12164:
12165: p_x_line_tbl(l_index).operation := OE_GLOBALS.G_OPR_CREATE;
12166: p_x_line_tbl(l_index).component_code := l_component_code;
12167: p_x_line_tbl(l_index).top_model_line_id
12168: := p_x_line_tbl(l_option_index).top_model_line_id;
12169: p_x_line_tbl(l_index).header_id
12292: IF l_debug_level > 0 THEN
12293: oe_debug_pub.add( 'THIS IS A CLASS' , 5 ) ;
12294: END IF;
12295: p_x_line_tbl(l_index).item_type_code
12296: := OE_GLOBALS.G_ITEM_CLASS;
12297: END IF;
12298:
12299: IF l_debug_level > 0 THEN
12300: oe_debug_pub.add( 'GET ORDERED ITEM NAME' , 3 ) ;