40: oe_debug_pub.add( 'ENTER SET RECURSION MODE' , 1 ) ;
41: oe_debug_pub.add( 'ENTITY CODE-'||P_ENTITY_CODE , 1 ) ;
42: oe_debug_pub.add( 'ENTRY-EXIT MODE -'||P_IN_OUT , 1 ) ;
43: oe_debug_pub.add( 'RECURSION MODE AT ENTRY -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
44: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT ENTRY -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
45: END IF;
46:
47: IF p_entity_code = 1 THEN
48: IF p_In_Out = 1 THEN
59: prn_ctr > 0 OR
60: pr_ctr > 0 ) THEN
61: --prrt_ctr > 0 ) THEN
62: oe_globals.g_recursion_mode := 'Y';
63: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
64: ELSE
65: oe_globals.g_recursion_mode := 'N';
66: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
67: END IF;
62: oe_globals.g_recursion_mode := 'Y';
63: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
64: ELSE
65: oe_globals.g_recursion_mode := 'N';
66: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
67: END IF;
68:
69: /* This is added to control notification call to just one call out. */
70: IF po_ctr > 1 THEN
67: END IF;
68:
69: /* This is added to control notification call to just one call out. */
70: IF po_ctr > 1 THEN
71: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
72: ELSE
73: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
74: END IF;
75:
69: /* This is added to control notification call to just one call out. */
70: IF po_ctr > 1 THEN
71: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
72: ELSE
73: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
74: END IF;
75:
76: NULL;
77: ELSIF p_entity_code = 2 THEN
82: hdr_ctr := hdr_ctr - 1;
83: END IF;
84: IF hdr_ctr > 1 THEN
85: oe_globals.g_recursion_mode := 'Y';
86: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
87: ELSE
88: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
89: null; /* SAM */
90: END IF;
84: IF hdr_ctr > 1 THEN
85: oe_globals.g_recursion_mode := 'Y';
86: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
87: ELSE
88: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
89: null; /* SAM */
90: END IF;
91:
92:
98: hdr_adj_ctr := hdr_adj_ctr - 1;
99: END IF;
100: IF hdr_adj_ctr > 1 THEN
101: oe_globals.g_recursion_mode := 'Y';
102: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
103: ELSE
104: oe_globals.g_recursion_mode := 'N';
105: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
106: END IF;
101: oe_globals.g_recursion_mode := 'Y';
102: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
103: ELSE
104: oe_globals.g_recursion_mode := 'N';
105: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
106: END IF;
107:
108: NULL;
109:
115: hdr_scredit_ctr := hdr_scredit_ctr - 1;
116: END IF;
117: IF hdr_scredit_ctr > 1 THEN
118: oe_globals.g_recursion_mode := 'Y';
119: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
120: ELSE
121: oe_globals.g_recursion_mode := 'N';
122: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
123: END IF;
118: oe_globals.g_recursion_mode := 'Y';
119: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
120: ELSE
121: oe_globals.g_recursion_mode := 'N';
122: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
123: END IF;
124:
125: NULL;
126: ELSIF p_entity_code = 5 THEN
130: line_ctr := line_ctr - 1;
131: END IF;
132: IF line_ctr > 1 THEN
133: oe_globals.g_recursion_mode := 'Y';
134: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
135: ELSE
136: oe_globals.g_recursion_mode := 'N';
137: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
138: END IF;
133: oe_globals.g_recursion_mode := 'Y';
134: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
135: ELSE
136: oe_globals.g_recursion_mode := 'N';
137: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
138: END IF;
139:
140: NULL;
141: ELSIF p_entity_code = 6 THEN
145: line_adj_ctr := line_adj_ctr - 1;
146: END IF;
147: IF line_adj_ctr > 1 THEN
148: oe_globals.g_recursion_mode := 'Y';
149: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
150: ELSE
151: oe_globals.g_recursion_mode := 'N';
152: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
153: END IF;
148: oe_globals.g_recursion_mode := 'Y';
149: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
150: ELSE
151: oe_globals.g_recursion_mode := 'N';
152: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
153: END IF;
154:
155: NULL;
156: ELSIF p_entity_code = 7 THEN
160: line_scredit_ctr := line_scredit_ctr - 1;
161: END IF;
162: IF line_scredit_ctr > 1 THEN
163: oe_globals.g_recursion_mode := 'Y';
164: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
165: ELSE
166: oe_globals.g_recursion_mode := 'N';
167: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
168: END IF;
163: oe_globals.g_recursion_mode := 'Y';
164: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
165: ELSE
166: oe_globals.g_recursion_mode := 'N';
167: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
168: END IF;
169:
170: NULL;
171: ELSIF p_entity_code = 8 THEN
218: pr_ctr > 0 OR
219: --prrt_ctr > 0 OR
220: poa_ctr > 0 ) THEN
221:
222: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
223: ELSIF prn_ctr > 1 THEN
224: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
225: ELSE
226: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
220: poa_ctr > 0 ) THEN
221:
222: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
223: ELSIF prn_ctr > 1 THEN
224: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
225: ELSE
226: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
227:
228: END IF;
222: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
223: ELSIF prn_ctr > 1 THEN
224: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
225: ELSE
226: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
227:
228: END IF;
229:
230:
236: pr_ctr := pr_ctr - 1;
237: END IF;
238: IF pr_ctr > 1 THEN
239: oe_globals.g_recursion_mode := 'Y';
240: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
241: ELSE
242: oe_globals.g_recursion_mode := 'N';
243: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
244: END IF;
239: oe_globals.g_recursion_mode := 'Y';
240: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
241: ELSE
242: oe_globals.g_recursion_mode := 'N';
243: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
244: END IF;
245: NULL;
246:
247: ELSIF p_entity_code = 10 THEN
250: ELSIF p_In_Out = 0 THEN
251: poa_ctr := poa_ctr - 1;
252: END IF;
253: IF poa_ctr > 1 THEN
254: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
255: ELSE
256: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
257:
258: END IF;
252: END IF;
253: IF poa_ctr > 1 THEN
254: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
255: ELSE
256: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
257:
258: END IF;
259: NULL;
260: ELSIF p_entity_code = 11 THEN
269: -- executing request for req type in validate and write.
270:
271: /*IF prrt_ctr > 1 THEN
272: oe_globals.g_recursion_mode := 'Y';
273: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
274: ELSE
275: oe_globals.g_recursion_mode := 'N';
276: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
277: END IF; */
272: oe_globals.g_recursion_mode := 'Y';
273: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'Y';
274: ELSE
275: oe_globals.g_recursion_mode := 'N';
276: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
277: END IF; */
278: NULL;
279:
280:
279:
280:
281: ELSE
282: oe_globals.g_recursion_mode := 'N';
283: OE_ORDER_UTIL.G_Recursion_Without_Exception := 'N';
284: NULL;
285: END IF;
286: IF l_debug_level > 0 THEN
287: oe_debug_pub.add( 'RECURSION MODE AT EXIT -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
284: NULL;
285: END IF;
286: IF l_debug_level > 0 THEN
287: oe_debug_pub.add( 'RECURSION MODE AT EXIT -' || OE_GLOBALS.G_RECURSION_MODE , 1 ) ;
288: oe_debug_pub.add( 'RECURSION MODE WITHOUT EXP AT EXIT -' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
289: END IF;
290: End Set_Recursion_Mode ;
291:
292:
5673: END IF; -- p_notify and p_process_ack
5674:
5675: ELSE /*post pack H*/
5676: IF l_debug_level > 0 THEN
5677: oe_debug_pub.add( 'JPN: GLOBAL RECURSION WITHOUT EXCEPTION: ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5678: oe_debug_pub.add( 'JPN: GLOBAL CACHE BOOKED FLAG' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5679: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5680: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5681: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5675: ELSE /*post pack H*/
5676: IF l_debug_level > 0 THEN
5677: oe_debug_pub.add( 'JPN: GLOBAL RECURSION WITHOUT EXCEPTION: ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5678: oe_debug_pub.add( 'JPN: GLOBAL CACHE BOOKED FLAG' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5679: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5680: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5681: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5682: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5683: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5676: IF l_debug_level > 0 THEN
5677: oe_debug_pub.add( 'JPN: GLOBAL RECURSION WITHOUT EXCEPTION: ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5678: oe_debug_pub.add( 'JPN: GLOBAL CACHE BOOKED FLAG' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5679: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5680: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5681: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5682: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5683: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5684: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5677: oe_debug_pub.add( 'JPN: GLOBAL RECURSION WITHOUT EXCEPTION: ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5678: oe_debug_pub.add( 'JPN: GLOBAL CACHE BOOKED FLAG' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5679: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5680: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5681: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5682: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5683: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5684: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5685: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5678: oe_debug_pub.add( 'JPN: GLOBAL CACHE BOOKED FLAG' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5679: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5680: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5681: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5682: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5683: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5684: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5685: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5686: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5679: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5680: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5681: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5682: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5683: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5684: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5685: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5686: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5687: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5680: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5681: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5682: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5683: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5684: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5685: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5686: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5687: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5688: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5681: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5682: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5683: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5684: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5685: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5686: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5687: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5688: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5689: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5682: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5683: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5684: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5685: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5686: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5687: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5688: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5689: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5690: oe_debug_pub.add( 'JPN: COUNT OF NEW LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_LOT_SERIAL_TBL.COUNT ) ;
5683: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_ADJ_TBL.COUNT ) ;
5684: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5685: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5686: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5687: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5688: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5689: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5690: oe_debug_pub.add( 'JPN: COUNT OF NEW LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_LOT_SERIAL_TBL.COUNT ) ;
5691: oe_debug_pub.add( 'JPN: COUNT OF OLD LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_OLD_LOT_SERIAL_TBL.COUNT ) ;
5684: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_HEADER_ADJ_TBL.COUNT ) ;
5685: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5686: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5687: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5688: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5689: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5690: oe_debug_pub.add( 'JPN: COUNT OF NEW LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_LOT_SERIAL_TBL.COUNT ) ;
5691: oe_debug_pub.add( 'JPN: COUNT OF OLD LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_OLD_LOT_SERIAL_TBL.COUNT ) ;
5692: END IF;
5685: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR ADJ TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_ADJ_TBL.COUNT ) ;
5686: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5687: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5688: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5689: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5690: oe_debug_pub.add( 'JPN: COUNT OF NEW LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_LOT_SERIAL_TBL.COUNT ) ;
5691: oe_debug_pub.add( 'JPN: COUNT OF OLD LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_OLD_LOT_SERIAL_TBL.COUNT ) ;
5692: END IF;
5693:
5686: oe_debug_pub.add( 'JPN: COUNT OF NEW HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_HEADER_SCREDIT_TBL.COUNT ) ;
5687: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5688: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5689: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5690: oe_debug_pub.add( 'JPN: COUNT OF NEW LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_LOT_SERIAL_TBL.COUNT ) ;
5691: oe_debug_pub.add( 'JPN: COUNT OF OLD LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_OLD_LOT_SERIAL_TBL.COUNT ) ;
5692: END IF;
5693:
5694: /*check global pictures, to see if there's any record in the seven key entities*/
5687: oe_debug_pub.add( 'JPN: COUNT OF OLD HDR SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_HEADER_SCREDIT_TBL.COUNT ) ;
5688: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_LINE_SCREDIT_TBL.COUNT ) ;
5689: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE SCREDIT TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_SCREDIT_TBL.COUNT ) ;
5690: oe_debug_pub.add( 'JPN: COUNT OF NEW LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_LOT_SERIAL_TBL.COUNT ) ;
5691: oe_debug_pub.add( 'JPN: COUNT OF OLD LOT SERIAL TABLE= '|| OE_ORDER_UTIL.G_OLD_LOT_SERIAL_TBL.COUNT ) ;
5692: END IF;
5693:
5694: /*check global pictures, to see if there's any record in the seven key entities*/
5695:
5692: END IF;
5693:
5694: /*check global pictures, to see if there's any record in the seven key entities*/
5695:
5696: IF ( OE_ORDER_UTIL.g_header_rec.header_id is not null
5697: OR OE_ORDER_UTIL.g_header_rec.header_id <> FND_API.G_MISS_NUM
5698: OR OE_ORDER_UTIL.g_header_adj_tbl.count >0
5699: OR OE_ORDER_UTIL.g_Header_Scredit_tbl.count >0
5700: -- OR OE_ORDER_UTIL.g_Header_Payment_tbl.count >0
5693:
5694: /*check global pictures, to see if there's any record in the seven key entities*/
5695:
5696: IF ( OE_ORDER_UTIL.g_header_rec.header_id is not null
5697: OR OE_ORDER_UTIL.g_header_rec.header_id <> FND_API.G_MISS_NUM
5698: OR OE_ORDER_UTIL.g_header_adj_tbl.count >0
5699: OR OE_ORDER_UTIL.g_Header_Scredit_tbl.count >0
5700: -- OR OE_ORDER_UTIL.g_Header_Payment_tbl.count >0
5701: OR OE_ORDER_UTIL.g_line_tbl.count >0
5694: /*check global pictures, to see if there's any record in the seven key entities*/
5695:
5696: IF ( OE_ORDER_UTIL.g_header_rec.header_id is not null
5697: OR OE_ORDER_UTIL.g_header_rec.header_id <> FND_API.G_MISS_NUM
5698: OR OE_ORDER_UTIL.g_header_adj_tbl.count >0
5699: OR OE_ORDER_UTIL.g_Header_Scredit_tbl.count >0
5700: -- OR OE_ORDER_UTIL.g_Header_Payment_tbl.count >0
5701: OR OE_ORDER_UTIL.g_line_tbl.count >0
5702: OR OE_ORDER_UTIL.g_Line_Adj_tbl.count >0
5695:
5696: IF ( OE_ORDER_UTIL.g_header_rec.header_id is not null
5697: OR OE_ORDER_UTIL.g_header_rec.header_id <> FND_API.G_MISS_NUM
5698: OR OE_ORDER_UTIL.g_header_adj_tbl.count >0
5699: OR OE_ORDER_UTIL.g_Header_Scredit_tbl.count >0
5700: -- OR OE_ORDER_UTIL.g_Header_Payment_tbl.count >0
5701: OR OE_ORDER_UTIL.g_line_tbl.count >0
5702: OR OE_ORDER_UTIL.g_Line_Adj_tbl.count >0
5703: OR OE_ORDER_UTIL.g_Line_Scredit_tbl.count >0
5696: IF ( OE_ORDER_UTIL.g_header_rec.header_id is not null
5697: OR OE_ORDER_UTIL.g_header_rec.header_id <> FND_API.G_MISS_NUM
5698: OR OE_ORDER_UTIL.g_header_adj_tbl.count >0
5699: OR OE_ORDER_UTIL.g_Header_Scredit_tbl.count >0
5700: -- OR OE_ORDER_UTIL.g_Header_Payment_tbl.count >0
5701: OR OE_ORDER_UTIL.g_line_tbl.count >0
5702: OR OE_ORDER_UTIL.g_Line_Adj_tbl.count >0
5703: OR OE_ORDER_UTIL.g_Line_Scredit_tbl.count >0
5704: -- OR OE_ORDER_UTIL.g_Line_Payment_tbl.count >0
5697: OR OE_ORDER_UTIL.g_header_rec.header_id <> FND_API.G_MISS_NUM
5698: OR OE_ORDER_UTIL.g_header_adj_tbl.count >0
5699: OR OE_ORDER_UTIL.g_Header_Scredit_tbl.count >0
5700: -- OR OE_ORDER_UTIL.g_Header_Payment_tbl.count >0
5701: OR OE_ORDER_UTIL.g_line_tbl.count >0
5702: OR OE_ORDER_UTIL.g_Line_Adj_tbl.count >0
5703: OR OE_ORDER_UTIL.g_Line_Scredit_tbl.count >0
5704: -- OR OE_ORDER_UTIL.g_Line_Payment_tbl.count >0
5705: OR OE_ORDER_UTIL.g_Lot_Serial_tbl.count >0 ) THEN
5698: OR OE_ORDER_UTIL.g_header_adj_tbl.count >0
5699: OR OE_ORDER_UTIL.g_Header_Scredit_tbl.count >0
5700: -- OR OE_ORDER_UTIL.g_Header_Payment_tbl.count >0
5701: OR OE_ORDER_UTIL.g_line_tbl.count >0
5702: OR OE_ORDER_UTIL.g_Line_Adj_tbl.count >0
5703: OR OE_ORDER_UTIL.g_Line_Scredit_tbl.count >0
5704: -- OR OE_ORDER_UTIL.g_Line_Payment_tbl.count >0
5705: OR OE_ORDER_UTIL.g_Lot_Serial_tbl.count >0 ) THEN
5706:
5699: OR OE_ORDER_UTIL.g_Header_Scredit_tbl.count >0
5700: -- OR OE_ORDER_UTIL.g_Header_Payment_tbl.count >0
5701: OR OE_ORDER_UTIL.g_line_tbl.count >0
5702: OR OE_ORDER_UTIL.g_Line_Adj_tbl.count >0
5703: OR OE_ORDER_UTIL.g_Line_Scredit_tbl.count >0
5704: -- OR OE_ORDER_UTIL.g_Line_Payment_tbl.count >0
5705: OR OE_ORDER_UTIL.g_Lot_Serial_tbl.count >0 ) THEN
5706:
5707: /* start of bug 2781468 hashraf */
5700: -- OR OE_ORDER_UTIL.g_Header_Payment_tbl.count >0
5701: OR OE_ORDER_UTIL.g_line_tbl.count >0
5702: OR OE_ORDER_UTIL.g_Line_Adj_tbl.count >0
5703: OR OE_ORDER_UTIL.g_Line_Scredit_tbl.count >0
5704: -- OR OE_ORDER_UTIL.g_Line_Payment_tbl.count >0
5705: OR OE_ORDER_UTIL.g_Lot_Serial_tbl.count >0 ) THEN
5706:
5707: /* start of bug 2781468 hashraf */
5708:
5701: OR OE_ORDER_UTIL.g_line_tbl.count >0
5702: OR OE_ORDER_UTIL.g_Line_Adj_tbl.count >0
5703: OR OE_ORDER_UTIL.g_Line_Scredit_tbl.count >0
5704: -- OR OE_ORDER_UTIL.g_Line_Payment_tbl.count >0
5705: OR OE_ORDER_UTIL.g_Lot_Serial_tbl.count >0 ) THEN
5706:
5707: /* start of bug 2781468 hashraf */
5708:
5709: /* need to get the header_id which will then be passed to load_order_header
5711: */
5712:
5713: l_index := 1;
5714:
5715: IF ( OE_ORDER_UTIL.g_header_rec.header_id is not null
5716: AND OE_ORDER_UTIL.g_header_rec.header_id <> FND_API.G_MISS_NUM) THEN
5717: l_header_id := OE_ORDER_UTIL.g_header_rec.header_id;
5718:
5719: IF l_debug_level > 0 THEN
5712:
5713: l_index := 1;
5714:
5715: IF ( OE_ORDER_UTIL.g_header_rec.header_id is not null
5716: AND OE_ORDER_UTIL.g_header_rec.header_id <> FND_API.G_MISS_NUM) THEN
5717: l_header_id := OE_ORDER_UTIL.g_header_rec.header_id;
5718:
5719: IF l_debug_level > 0 THEN
5720: oe_debug_pub.add('header id in g_header_rec is: ' || l_header_id ) ;
5713: l_index := 1;
5714:
5715: IF ( OE_ORDER_UTIL.g_header_rec.header_id is not null
5716: AND OE_ORDER_UTIL.g_header_rec.header_id <> FND_API.G_MISS_NUM) THEN
5717: l_header_id := OE_ORDER_UTIL.g_header_rec.header_id;
5718:
5719: IF l_debug_level > 0 THEN
5720: oe_debug_pub.add('header id in g_header_rec is: ' || l_header_id ) ;
5721: END IF;
5719: IF l_debug_level > 0 THEN
5720: oe_debug_pub.add('header id in g_header_rec is: ' || l_header_id ) ;
5721: END IF;
5722:
5723: ELSIF ( OE_ORDER_UTIL.g_header_adj_tbl.count >0 ) THEN
5724: IF l_debug_level > 0 THEN
5725: oe_debug_pub.add('Inside the header_adj_tbl loop');
5726: END IF;
5727: l_index := OE_ORDER_UTIL.g_header_adj_tbl.first;
5723: ELSIF ( OE_ORDER_UTIL.g_header_adj_tbl.count >0 ) THEN
5724: IF l_debug_level > 0 THEN
5725: oe_debug_pub.add('Inside the header_adj_tbl loop');
5726: END IF;
5727: l_index := OE_ORDER_UTIL.g_header_adj_tbl.first;
5728: IF (l_index is not null) THEN
5729: l_header_id := OE_ORDER_UTIL.g_header_adj_tbl(l_index).header_id;
5730: IF l_debug_level > 0 THEN
5731: oe_debug_pub.add('header id in g_header_adj_tbl is: ' || l_header_id ) ;
5725: oe_debug_pub.add('Inside the header_adj_tbl loop');
5726: END IF;
5727: l_index := OE_ORDER_UTIL.g_header_adj_tbl.first;
5728: IF (l_index is not null) THEN
5729: l_header_id := OE_ORDER_UTIL.g_header_adj_tbl(l_index).header_id;
5730: IF l_debug_level > 0 THEN
5731: oe_debug_pub.add('header id in g_header_adj_tbl is: ' || l_header_id ) ;
5732: oe_debug_pub.add('l_index in g_header_adj_tbl is: ' || l_index ) ;
5733: END IF;
5732: oe_debug_pub.add('l_index in g_header_adj_tbl is: ' || l_index ) ;
5733: END IF;
5734: END IF;
5735:
5736: ELSIF ( OE_ORDER_UTIL.g_Header_Scredit_tbl.count >0 ) THEN
5737: IF l_debug_level > 0 THEN
5738: oe_debug_pub.add('Inside the header_Scredit_tbl loop');
5739: END IF;
5740: l_index := OE_ORDER_UTIL.g_header_Scredit_tbl.first;
5736: ELSIF ( OE_ORDER_UTIL.g_Header_Scredit_tbl.count >0 ) THEN
5737: IF l_debug_level > 0 THEN
5738: oe_debug_pub.add('Inside the header_Scredit_tbl loop');
5739: END IF;
5740: l_index := OE_ORDER_UTIL.g_header_Scredit_tbl.first;
5741: IF (l_index is not null) THEN
5742: l_header_id := OE_ORDER_UTIL.g_header_Scredit_tbl(l_index).header_id;
5743: IF l_debug_level > 0 THEN
5744: oe_debug_pub.add('header id in g_header_Scredit_tbl is: ' || l_header_id ) ;
5738: oe_debug_pub.add('Inside the header_Scredit_tbl loop');
5739: END IF;
5740: l_index := OE_ORDER_UTIL.g_header_Scredit_tbl.first;
5741: IF (l_index is not null) THEN
5742: l_header_id := OE_ORDER_UTIL.g_header_Scredit_tbl(l_index).header_id;
5743: IF l_debug_level > 0 THEN
5744: oe_debug_pub.add('header id in g_header_Scredit_tbl is: ' || l_header_id ) ;
5745: oe_debug_pub.add('l_index in g_header_Scredit_tbl is: ' || l_index ) ;
5746: END IF;
5745: oe_debug_pub.add('l_index in g_header_Scredit_tbl is: ' || l_index ) ;
5746: END IF;
5747: END IF;
5748:
5749: ELSIF ( OE_ORDER_UTIL.g_line_tbl.count >0 ) THEN
5750: IF l_debug_level > 0 THEN
5751: oe_debug_pub.add('Inside the line loop');
5752: END IF;
5753: l_index := OE_ORDER_UTIL.g_line_tbl.first;
5749: ELSIF ( OE_ORDER_UTIL.g_line_tbl.count >0 ) THEN
5750: IF l_debug_level > 0 THEN
5751: oe_debug_pub.add('Inside the line loop');
5752: END IF;
5753: l_index := OE_ORDER_UTIL.g_line_tbl.first;
5754: IF (l_index is not null) THEN
5755: l_header_id := OE_ORDER_UTIL.g_line_tbl(l_index).header_id;
5756: IF l_debug_level > 0 THEN
5757: oe_debug_pub.add('header id in g_line_tbl is: ' || l_header_id ) ;
5751: oe_debug_pub.add('Inside the line loop');
5752: END IF;
5753: l_index := OE_ORDER_UTIL.g_line_tbl.first;
5754: IF (l_index is not null) THEN
5755: l_header_id := OE_ORDER_UTIL.g_line_tbl(l_index).header_id;
5756: IF l_debug_level > 0 THEN
5757: oe_debug_pub.add('header id in g_line_tbl is: ' || l_header_id ) ;
5758: oe_debug_pub.add('l_index in g_line_tbl is: ' || l_index ) ;
5759: END IF;
5758: oe_debug_pub.add('l_index in g_line_tbl is: ' || l_index ) ;
5759: END IF;
5760: END IF;
5761:
5762: ELSIF ( OE_ORDER_UTIL.g_line_adj_tbl.count >0 ) THEN
5763:
5764: IF l_debug_level > 0 THEN
5765: oe_debug_pub.add('Inside the line_adj loop');
5766: END IF;
5763:
5764: IF l_debug_level > 0 THEN
5765: oe_debug_pub.add('Inside the line_adj loop');
5766: END IF;
5767: l_index := OE_ORDER_UTIL.g_line_adj_tbl.first;
5768: IF (l_index is not null) THEN
5769:
5770: l_header_id := OE_ORDER_UTIL.g_line_adj_tbl(l_index).header_id;
5771: IF l_debug_level > 0 THEN
5766: END IF;
5767: l_index := OE_ORDER_UTIL.g_line_adj_tbl.first;
5768: IF (l_index is not null) THEN
5769:
5770: l_header_id := OE_ORDER_UTIL.g_line_adj_tbl(l_index).header_id;
5771: IF l_debug_level > 0 THEN
5772: oe_debug_pub.add('header id in g_line_adj_tbl is: ' || l_header_id ) ;
5773: oe_debug_pub.add('l_index in g_line_adj_tbl is: ' || l_index ) ;
5774: END IF;
5773: oe_debug_pub.add('l_index in g_line_adj_tbl is: ' || l_index ) ;
5774: END IF;
5775: END IF;
5776:
5777: ELSIF ( OE_ORDER_UTIL.g_line_Scredit_tbl.count >0 ) THEN
5778:
5779: IF l_debug_level > 0 THEN
5780: oe_debug_pub.add('Inside the line_Scredit loop');
5781: END IF;
5778:
5779: IF l_debug_level > 0 THEN
5780: oe_debug_pub.add('Inside the line_Scredit loop');
5781: END IF;
5782: l_index := OE_ORDER_UTIL.g_line_Scredit_tbl.first;
5783: IF (l_index is not null) THEN
5784:
5785: l_header_id := OE_ORDER_UTIL.g_line_Scredit_tbl(l_index).header_id;
5786: IF l_debug_level > 0 THEN
5781: END IF;
5782: l_index := OE_ORDER_UTIL.g_line_Scredit_tbl.first;
5783: IF (l_index is not null) THEN
5784:
5785: l_header_id := OE_ORDER_UTIL.g_line_Scredit_tbl(l_index).header_id;
5786: IF l_debug_level > 0 THEN
5787: oe_debug_pub.add('header id in g_line_Scredit_tbl is: ' || l_header_id );
5788: oe_debug_pub.add('l_index in g_line_Scredit_tbl is: ' || l_index ) ;
5789: END IF;
5788: oe_debug_pub.add('l_index in g_line_Scredit_tbl is: ' || l_index ) ;
5789: END IF;
5790: END IF;
5791:
5792: ELSIF ( OE_ORDER_UTIL.g_Lot_Serial_tbl.count >0 ) THEN
5793: IF l_debug_level > 0 THEN
5794: oe_debug_pub.add('Inside the group by_lot_serial loop');
5795: END IF;
5796: l_index := OE_ORDER_UTIL.g_Lot_Serial_tbl.first;
5792: ELSIF ( OE_ORDER_UTIL.g_Lot_Serial_tbl.count >0 ) THEN
5793: IF l_debug_level > 0 THEN
5794: oe_debug_pub.add('Inside the group by_lot_serial loop');
5795: END IF;
5796: l_index := OE_ORDER_UTIL.g_Lot_Serial_tbl.first;
5797: IF (l_index is not null) THEN
5798: l_line_id := OE_ORDER_UTIL.g_Lot_Serial_tbl(l_index).line_id;
5799:
5800: BEGIN
5794: oe_debug_pub.add('Inside the group by_lot_serial loop');
5795: END IF;
5796: l_index := OE_ORDER_UTIL.g_Lot_Serial_tbl.first;
5797: IF (l_index is not null) THEN
5798: l_line_id := OE_ORDER_UTIL.g_Lot_Serial_tbl(l_index).line_id;
5799:
5800: BEGIN
5801: SELECT header_id
5802: INTO l_header_id
5833: oe_debug_pub.add('Out of Load_Order_Header in PRN');
5834: END IF;
5835: /* end of bug 2781468*/
5836:
5837: IF (OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N' AND
5838: OE_ORDER_CACHE.g_header_rec.booked_flag = 'Y') THEN
5839:
5840: IF l_debug_level > 0 THEN
5841: oe_debug_pub.add( 'POST PACK H. CALLING NOTIFY_OC API' , 1 ) ;
5846: , p_init_msg_list => FND_API.G_FALSE
5847: , x_return_status => l_return_status
5848: , x_msg_count => l_msg_count
5849: , x_msg_data => l_msg_data
5850: , p_header_rec => OE_ORDER_UTIL.g_header_rec
5851: , p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5852: , p_header_adj_tbl => OE_ORDER_UTIL.g_header_adj_tbl
5853: , p_old_header_adj_tbl => OE_ORDER_UTIL.g_old_header_adj_tbl
5854: , p_Header_Scredit_tbl => OE_ORDER_UTIL.g_Header_Scredit_tbl
5847: , x_return_status => l_return_status
5848: , x_msg_count => l_msg_count
5849: , x_msg_data => l_msg_data
5850: , p_header_rec => OE_ORDER_UTIL.g_header_rec
5851: , p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5852: , p_header_adj_tbl => OE_ORDER_UTIL.g_header_adj_tbl
5853: , p_old_header_adj_tbl => OE_ORDER_UTIL.g_old_header_adj_tbl
5854: , p_Header_Scredit_tbl => OE_ORDER_UTIL.g_Header_Scredit_tbl
5855: , p_old_Header_Scredit_tbl => OE_ORDER_UTIL.g_old_Header_Scredit_tbl
5848: , x_msg_count => l_msg_count
5849: , x_msg_data => l_msg_data
5850: , p_header_rec => OE_ORDER_UTIL.g_header_rec
5851: , p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5852: , p_header_adj_tbl => OE_ORDER_UTIL.g_header_adj_tbl
5853: , p_old_header_adj_tbl => OE_ORDER_UTIL.g_old_header_adj_tbl
5854: , p_Header_Scredit_tbl => OE_ORDER_UTIL.g_Header_Scredit_tbl
5855: , p_old_Header_Scredit_tbl => OE_ORDER_UTIL.g_old_Header_Scredit_tbl
5856: -- , p_Header_Payment_tbl => OE_ORDER_UTIL.g_Header_Payment_tbl
5849: , x_msg_data => l_msg_data
5850: , p_header_rec => OE_ORDER_UTIL.g_header_rec
5851: , p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5852: , p_header_adj_tbl => OE_ORDER_UTIL.g_header_adj_tbl
5853: , p_old_header_adj_tbl => OE_ORDER_UTIL.g_old_header_adj_tbl
5854: , p_Header_Scredit_tbl => OE_ORDER_UTIL.g_Header_Scredit_tbl
5855: , p_old_Header_Scredit_tbl => OE_ORDER_UTIL.g_old_Header_Scredit_tbl
5856: -- , p_Header_Payment_tbl => OE_ORDER_UTIL.g_Header_Payment_tbl
5857: -- , p_old_Header_Payment_tbl => OE_ORDER_UTIL.g_old_Header_Payment_tbl
5850: , p_header_rec => OE_ORDER_UTIL.g_header_rec
5851: , p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5852: , p_header_adj_tbl => OE_ORDER_UTIL.g_header_adj_tbl
5853: , p_old_header_adj_tbl => OE_ORDER_UTIL.g_old_header_adj_tbl
5854: , p_Header_Scredit_tbl => OE_ORDER_UTIL.g_Header_Scredit_tbl
5855: , p_old_Header_Scredit_tbl => OE_ORDER_UTIL.g_old_Header_Scredit_tbl
5856: -- , p_Header_Payment_tbl => OE_ORDER_UTIL.g_Header_Payment_tbl
5857: -- , p_old_Header_Payment_tbl => OE_ORDER_UTIL.g_old_Header_Payment_tbl
5858: , p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5851: , p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5852: , p_header_adj_tbl => OE_ORDER_UTIL.g_header_adj_tbl
5853: , p_old_header_adj_tbl => OE_ORDER_UTIL.g_old_header_adj_tbl
5854: , p_Header_Scredit_tbl => OE_ORDER_UTIL.g_Header_Scredit_tbl
5855: , p_old_Header_Scredit_tbl => OE_ORDER_UTIL.g_old_Header_Scredit_tbl
5856: -- , p_Header_Payment_tbl => OE_ORDER_UTIL.g_Header_Payment_tbl
5857: -- , p_old_Header_Payment_tbl => OE_ORDER_UTIL.g_old_Header_Payment_tbl
5858: , p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5859: , p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5852: , p_header_adj_tbl => OE_ORDER_UTIL.g_header_adj_tbl
5853: , p_old_header_adj_tbl => OE_ORDER_UTIL.g_old_header_adj_tbl
5854: , p_Header_Scredit_tbl => OE_ORDER_UTIL.g_Header_Scredit_tbl
5855: , p_old_Header_Scredit_tbl => OE_ORDER_UTIL.g_old_Header_Scredit_tbl
5856: -- , p_Header_Payment_tbl => OE_ORDER_UTIL.g_Header_Payment_tbl
5857: -- , p_old_Header_Payment_tbl => OE_ORDER_UTIL.g_old_Header_Payment_tbl
5858: , p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5859: , p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5860: , p_Line_Adj_tbl => OE_ORDER_UTIL.g_Line_Adj_tbl
5853: , p_old_header_adj_tbl => OE_ORDER_UTIL.g_old_header_adj_tbl
5854: , p_Header_Scredit_tbl => OE_ORDER_UTIL.g_Header_Scredit_tbl
5855: , p_old_Header_Scredit_tbl => OE_ORDER_UTIL.g_old_Header_Scredit_tbl
5856: -- , p_Header_Payment_tbl => OE_ORDER_UTIL.g_Header_Payment_tbl
5857: -- , p_old_Header_Payment_tbl => OE_ORDER_UTIL.g_old_Header_Payment_tbl
5858: , p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5859: , p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5860: , p_Line_Adj_tbl => OE_ORDER_UTIL.g_Line_Adj_tbl
5861: , p_old_Line_Adj_tbl => OE_ORDER_UTIL.g_old_Line_Adj_tbl
5854: , p_Header_Scredit_tbl => OE_ORDER_UTIL.g_Header_Scredit_tbl
5855: , p_old_Header_Scredit_tbl => OE_ORDER_UTIL.g_old_Header_Scredit_tbl
5856: -- , p_Header_Payment_tbl => OE_ORDER_UTIL.g_Header_Payment_tbl
5857: -- , p_old_Header_Payment_tbl => OE_ORDER_UTIL.g_old_Header_Payment_tbl
5858: , p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5859: , p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5860: , p_Line_Adj_tbl => OE_ORDER_UTIL.g_Line_Adj_tbl
5861: , p_old_Line_Adj_tbl => OE_ORDER_UTIL.g_old_Line_Adj_tbl
5862: , p_Line_Scredit_tbl => OE_ORDER_UTIL.g_Line_Scredit_tbl
5855: , p_old_Header_Scredit_tbl => OE_ORDER_UTIL.g_old_Header_Scredit_tbl
5856: -- , p_Header_Payment_tbl => OE_ORDER_UTIL.g_Header_Payment_tbl
5857: -- , p_old_Header_Payment_tbl => OE_ORDER_UTIL.g_old_Header_Payment_tbl
5858: , p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5859: , p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5860: , p_Line_Adj_tbl => OE_ORDER_UTIL.g_Line_Adj_tbl
5861: , p_old_Line_Adj_tbl => OE_ORDER_UTIL.g_old_Line_Adj_tbl
5862: , p_Line_Scredit_tbl => OE_ORDER_UTIL.g_Line_Scredit_tbl
5863: , p_old_Line_Scredit_tbl => OE_ORDER_UTIL.g_old_Line_Scredit_tbl
5856: -- , p_Header_Payment_tbl => OE_ORDER_UTIL.g_Header_Payment_tbl
5857: -- , p_old_Header_Payment_tbl => OE_ORDER_UTIL.g_old_Header_Payment_tbl
5858: , p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5859: , p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5860: , p_Line_Adj_tbl => OE_ORDER_UTIL.g_Line_Adj_tbl
5861: , p_old_Line_Adj_tbl => OE_ORDER_UTIL.g_old_Line_Adj_tbl
5862: , p_Line_Scredit_tbl => OE_ORDER_UTIL.g_Line_Scredit_tbl
5863: , p_old_Line_Scredit_tbl => OE_ORDER_UTIL.g_old_Line_Scredit_tbl
5864: -- , p_Line_Payment_tbl => OE_ORDER_UTIL.g_Line_Payment_tbl
5857: -- , p_old_Header_Payment_tbl => OE_ORDER_UTIL.g_old_Header_Payment_tbl
5858: , p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5859: , p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5860: , p_Line_Adj_tbl => OE_ORDER_UTIL.g_Line_Adj_tbl
5861: , p_old_Line_Adj_tbl => OE_ORDER_UTIL.g_old_Line_Adj_tbl
5862: , p_Line_Scredit_tbl => OE_ORDER_UTIL.g_Line_Scredit_tbl
5863: , p_old_Line_Scredit_tbl => OE_ORDER_UTIL.g_old_Line_Scredit_tbl
5864: -- , p_Line_Payment_tbl => OE_ORDER_UTIL.g_Line_Payment_tbl
5865: -- , p_old_Line_Payment_tbl => OE_ORDER_UTIL.g_old_Line_Payment_tbl
5858: , p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5859: , p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5860: , p_Line_Adj_tbl => OE_ORDER_UTIL.g_Line_Adj_tbl
5861: , p_old_Line_Adj_tbl => OE_ORDER_UTIL.g_old_Line_Adj_tbl
5862: , p_Line_Scredit_tbl => OE_ORDER_UTIL.g_Line_Scredit_tbl
5863: , p_old_Line_Scredit_tbl => OE_ORDER_UTIL.g_old_Line_Scredit_tbl
5864: -- , p_Line_Payment_tbl => OE_ORDER_UTIL.g_Line_Payment_tbl
5865: -- , p_old_Line_Payment_tbl => OE_ORDER_UTIL.g_old_Line_Payment_tbl
5866: , p_Lot_Serial_tbl => OE_ORDER_UTIL.g_Lot_Serial_tbl
5859: , p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5860: , p_Line_Adj_tbl => OE_ORDER_UTIL.g_Line_Adj_tbl
5861: , p_old_Line_Adj_tbl => OE_ORDER_UTIL.g_old_Line_Adj_tbl
5862: , p_Line_Scredit_tbl => OE_ORDER_UTIL.g_Line_Scredit_tbl
5863: , p_old_Line_Scredit_tbl => OE_ORDER_UTIL.g_old_Line_Scredit_tbl
5864: -- , p_Line_Payment_tbl => OE_ORDER_UTIL.g_Line_Payment_tbl
5865: -- , p_old_Line_Payment_tbl => OE_ORDER_UTIL.g_old_Line_Payment_tbl
5866: , p_Lot_Serial_tbl => OE_ORDER_UTIL.g_Lot_Serial_tbl
5867: , p_old_Lot_Serial_tbl => OE_ORDER_UTIL.g_old_Lot_Serial_tbl
5860: , p_Line_Adj_tbl => OE_ORDER_UTIL.g_Line_Adj_tbl
5861: , p_old_Line_Adj_tbl => OE_ORDER_UTIL.g_old_Line_Adj_tbl
5862: , p_Line_Scredit_tbl => OE_ORDER_UTIL.g_Line_Scredit_tbl
5863: , p_old_Line_Scredit_tbl => OE_ORDER_UTIL.g_old_Line_Scredit_tbl
5864: -- , p_Line_Payment_tbl => OE_ORDER_UTIL.g_Line_Payment_tbl
5865: -- , p_old_Line_Payment_tbl => OE_ORDER_UTIL.g_old_Line_Payment_tbl
5866: , p_Lot_Serial_tbl => OE_ORDER_UTIL.g_Lot_Serial_tbl
5867: , p_old_Lot_Serial_tbl => OE_ORDER_UTIL.g_old_Lot_Serial_tbl
5868: );
5861: , p_old_Line_Adj_tbl => OE_ORDER_UTIL.g_old_Line_Adj_tbl
5862: , p_Line_Scredit_tbl => OE_ORDER_UTIL.g_Line_Scredit_tbl
5863: , p_old_Line_Scredit_tbl => OE_ORDER_UTIL.g_old_Line_Scredit_tbl
5864: -- , p_Line_Payment_tbl => OE_ORDER_UTIL.g_Line_Payment_tbl
5865: -- , p_old_Line_Payment_tbl => OE_ORDER_UTIL.g_old_Line_Payment_tbl
5866: , p_Lot_Serial_tbl => OE_ORDER_UTIL.g_Lot_Serial_tbl
5867: , p_old_Lot_Serial_tbl => OE_ORDER_UTIL.g_old_Lot_Serial_tbl
5868: );
5869:
5862: , p_Line_Scredit_tbl => OE_ORDER_UTIL.g_Line_Scredit_tbl
5863: , p_old_Line_Scredit_tbl => OE_ORDER_UTIL.g_old_Line_Scredit_tbl
5864: -- , p_Line_Payment_tbl => OE_ORDER_UTIL.g_Line_Payment_tbl
5865: -- , p_old_Line_Payment_tbl => OE_ORDER_UTIL.g_old_Line_Payment_tbl
5866: , p_Lot_Serial_tbl => OE_ORDER_UTIL.g_Lot_Serial_tbl
5867: , p_old_Lot_Serial_tbl => OE_ORDER_UTIL.g_old_Lot_Serial_tbl
5868: );
5869:
5870: IF l_debug_level > 0 THEN
5863: , p_old_Line_Scredit_tbl => OE_ORDER_UTIL.g_old_Line_Scredit_tbl
5864: -- , p_Line_Payment_tbl => OE_ORDER_UTIL.g_Line_Payment_tbl
5865: -- , p_old_Line_Payment_tbl => OE_ORDER_UTIL.g_old_Line_Payment_tbl
5866: , p_Lot_Serial_tbl => OE_ORDER_UTIL.g_Lot_Serial_tbl
5867: , p_old_Lot_Serial_tbl => OE_ORDER_UTIL.g_old_Lot_Serial_tbl
5868: );
5869:
5870: IF l_debug_level > 0 THEN
5871: oe_debug_pub.add( 'AFTER NOTIFY_OC API' , 1 ) ;
5880: END IF;
5881:
5882: IF l_debug_level > 0 THEN
5883: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
5884: oe_debug_pub.add( 'PACKS ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
5885: oe_debug_pub.add( 'PACKS' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG , 1 ) ;
5886: END IF;
5887:
5888: IF (OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N' AND
5884: oe_debug_pub.add( 'PACKS ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
5885: oe_debug_pub.add( 'PACKS' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG , 1 ) ;
5886: END IF;
5887:
5888: IF (OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N' AND
5889: OE_ORDER_CACHE.g_header_rec.booked_flag = 'Y' AND p_process_ack) THEN
5890:
5891: IF l_debug_level > 0 THEN
5892: oe_debug_pub.add( 'POST PACK H.CALLING ACKS API' , 1 ) ;
5913: OE_Acknowledgment_Pub.Process_SSO
5914: (p_api_version_number => 1
5915: ,p_init_msg_list => FND_API.G_FALSE
5916: ,p_header_rec => OE_ORDER_CACHE.g_header_rec
5917: ,p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5918: ,p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5919: ,p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5920:
5921: ,x_return_status => l_return_status
5914: (p_api_version_number => 1
5915: ,p_init_msg_list => FND_API.G_FALSE
5916: ,p_header_rec => OE_ORDER_CACHE.g_header_rec
5917: ,p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5918: ,p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5919: ,p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5920:
5921: ,x_return_status => l_return_status
5922: );
5915: ,p_init_msg_list => FND_API.G_FALSE
5916: ,p_header_rec => OE_ORDER_CACHE.g_header_rec
5917: ,p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5918: ,p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5919: ,p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5920:
5921: ,x_return_status => l_return_status
5922: );
5923:
5925: Elsif Oe_Code_Control.Code_Release_Level >= '110510' And
5926: OE_ORDER_CACHE.g_header_rec.order_source_id in (0,2,6) And
5927: l_edi_ack_pfile = 'YES' Then
5928: OE_Acknowledgment_Pvt.Process_Acknowledgment
5929: (p_header_rec => OE_ORDER_UTIL.g_header_rec,
5930: p_line_tbl => OE_ORDER_UTIL.g_line_tbl,
5931: p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec,
5932: p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl,
5933: x_return_status => l_return_status);
5926: OE_ORDER_CACHE.g_header_rec.order_source_id in (0,2,6) And
5927: l_edi_ack_pfile = 'YES' Then
5928: OE_Acknowledgment_Pvt.Process_Acknowledgment
5929: (p_header_rec => OE_ORDER_UTIL.g_header_rec,
5930: p_line_tbl => OE_ORDER_UTIL.g_line_tbl,
5931: p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec,
5932: p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl,
5933: x_return_status => l_return_status);
5934: Elsif l_edi_ack_pfile = 'NO' And
5927: l_edi_ack_pfile = 'YES' Then
5928: OE_Acknowledgment_Pvt.Process_Acknowledgment
5929: (p_header_rec => OE_ORDER_UTIL.g_header_rec,
5930: p_line_tbl => OE_ORDER_UTIL.g_line_tbl,
5931: p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec,
5932: p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl,
5933: x_return_status => l_return_status);
5934: Elsif l_edi_ack_pfile = 'NO' And
5935: OE_ORDER_CACHE.g_header_rec.order_source_id in (0,2,6) Then
5928: OE_Acknowledgment_Pvt.Process_Acknowledgment
5929: (p_header_rec => OE_ORDER_UTIL.g_header_rec,
5930: p_line_tbl => OE_ORDER_UTIL.g_line_tbl,
5931: p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec,
5932: p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl,
5933: x_return_status => l_return_status);
5934: Elsif l_edi_ack_pfile = 'NO' And
5935: OE_ORDER_CACHE.g_header_rec.order_source_id in (0,2,6) Then
5936: OE_Acknowledgment_Pvt.Process_Acknowledgment
5935: OE_ORDER_CACHE.g_header_rec.order_source_id in (0,2,6) Then
5936: OE_Acknowledgment_Pvt.Process_Acknowledgment
5937: (p_api_version_number => 1
5938: ,p_init_msg_list => FND_API.G_FALSE
5939: ,p_header_rec => OE_ORDER_UTIL.g_header_rec
5940: ,p_header_adj_tbl => OE_ORDER_UTIL.g_header_adj_tbl
5941: ,p_header_Scredit_tbl => OE_ORDER_UTIL.g_header_scredit_tbl
5942: ,p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5943: ,p_line_adj_tbl => OE_ORDER_UTIL.g_line_adj_tbl
5936: OE_Acknowledgment_Pvt.Process_Acknowledgment
5937: (p_api_version_number => 1
5938: ,p_init_msg_list => FND_API.G_FALSE
5939: ,p_header_rec => OE_ORDER_UTIL.g_header_rec
5940: ,p_header_adj_tbl => OE_ORDER_UTIL.g_header_adj_tbl
5941: ,p_header_Scredit_tbl => OE_ORDER_UTIL.g_header_scredit_tbl
5942: ,p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5943: ,p_line_adj_tbl => OE_ORDER_UTIL.g_line_adj_tbl
5944: ,p_line_scredit_tbl => OE_ORDER_UTIL.g_line_scredit_tbl
5937: (p_api_version_number => 1
5938: ,p_init_msg_list => FND_API.G_FALSE
5939: ,p_header_rec => OE_ORDER_UTIL.g_header_rec
5940: ,p_header_adj_tbl => OE_ORDER_UTIL.g_header_adj_tbl
5941: ,p_header_Scredit_tbl => OE_ORDER_UTIL.g_header_scredit_tbl
5942: ,p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5943: ,p_line_adj_tbl => OE_ORDER_UTIL.g_line_adj_tbl
5944: ,p_line_scredit_tbl => OE_ORDER_UTIL.g_line_scredit_tbl
5945: ,p_lot_serial_tbl => OE_ORDER_UTIL.g_lot_serial_tbl
5938: ,p_init_msg_list => FND_API.G_FALSE
5939: ,p_header_rec => OE_ORDER_UTIL.g_header_rec
5940: ,p_header_adj_tbl => OE_ORDER_UTIL.g_header_adj_tbl
5941: ,p_header_Scredit_tbl => OE_ORDER_UTIL.g_header_scredit_tbl
5942: ,p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5943: ,p_line_adj_tbl => OE_ORDER_UTIL.g_line_adj_tbl
5944: ,p_line_scredit_tbl => OE_ORDER_UTIL.g_line_scredit_tbl
5945: ,p_lot_serial_tbl => OE_ORDER_UTIL.g_lot_serial_tbl
5946: ,p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5939: ,p_header_rec => OE_ORDER_UTIL.g_header_rec
5940: ,p_header_adj_tbl => OE_ORDER_UTIL.g_header_adj_tbl
5941: ,p_header_Scredit_tbl => OE_ORDER_UTIL.g_header_scredit_tbl
5942: ,p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5943: ,p_line_adj_tbl => OE_ORDER_UTIL.g_line_adj_tbl
5944: ,p_line_scredit_tbl => OE_ORDER_UTIL.g_line_scredit_tbl
5945: ,p_lot_serial_tbl => OE_ORDER_UTIL.g_lot_serial_tbl
5946: ,p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5947: ,p_old_header_adj_tbl => OE_ORDER_UTIL.g_old_header_adj_tbl
5940: ,p_header_adj_tbl => OE_ORDER_UTIL.g_header_adj_tbl
5941: ,p_header_Scredit_tbl => OE_ORDER_UTIL.g_header_scredit_tbl
5942: ,p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5943: ,p_line_adj_tbl => OE_ORDER_UTIL.g_line_adj_tbl
5944: ,p_line_scredit_tbl => OE_ORDER_UTIL.g_line_scredit_tbl
5945: ,p_lot_serial_tbl => OE_ORDER_UTIL.g_lot_serial_tbl
5946: ,p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5947: ,p_old_header_adj_tbl => OE_ORDER_UTIL.g_old_header_adj_tbl
5948: ,p_old_header_Scredit_tbl => OE_ORDER_UTIL.g_old_header_scredit_tbl
5941: ,p_header_Scredit_tbl => OE_ORDER_UTIL.g_header_scredit_tbl
5942: ,p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5943: ,p_line_adj_tbl => OE_ORDER_UTIL.g_line_adj_tbl
5944: ,p_line_scredit_tbl => OE_ORDER_UTIL.g_line_scredit_tbl
5945: ,p_lot_serial_tbl => OE_ORDER_UTIL.g_lot_serial_tbl
5946: ,p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5947: ,p_old_header_adj_tbl => OE_ORDER_UTIL.g_old_header_adj_tbl
5948: ,p_old_header_Scredit_tbl => OE_ORDER_UTIL.g_old_header_scredit_tbl
5949: ,p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5942: ,p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5943: ,p_line_adj_tbl => OE_ORDER_UTIL.g_line_adj_tbl
5944: ,p_line_scredit_tbl => OE_ORDER_UTIL.g_line_scredit_tbl
5945: ,p_lot_serial_tbl => OE_ORDER_UTIL.g_lot_serial_tbl
5946: ,p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5947: ,p_old_header_adj_tbl => OE_ORDER_UTIL.g_old_header_adj_tbl
5948: ,p_old_header_Scredit_tbl => OE_ORDER_UTIL.g_old_header_scredit_tbl
5949: ,p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5950: ,p_old_line_adj_tbl => OE_ORDER_UTIL.g_old_line_adj_tbl
5943: ,p_line_adj_tbl => OE_ORDER_UTIL.g_line_adj_tbl
5944: ,p_line_scredit_tbl => OE_ORDER_UTIL.g_line_scredit_tbl
5945: ,p_lot_serial_tbl => OE_ORDER_UTIL.g_lot_serial_tbl
5946: ,p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5947: ,p_old_header_adj_tbl => OE_ORDER_UTIL.g_old_header_adj_tbl
5948: ,p_old_header_Scredit_tbl => OE_ORDER_UTIL.g_old_header_scredit_tbl
5949: ,p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5950: ,p_old_line_adj_tbl => OE_ORDER_UTIL.g_old_line_adj_tbl
5951: ,p_old_line_scredit_tbl => OE_ORDER_UTIL.g_old_line_scredit_tbl
5944: ,p_line_scredit_tbl => OE_ORDER_UTIL.g_line_scredit_tbl
5945: ,p_lot_serial_tbl => OE_ORDER_UTIL.g_lot_serial_tbl
5946: ,p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5947: ,p_old_header_adj_tbl => OE_ORDER_UTIL.g_old_header_adj_tbl
5948: ,p_old_header_Scredit_tbl => OE_ORDER_UTIL.g_old_header_scredit_tbl
5949: ,p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5950: ,p_old_line_adj_tbl => OE_ORDER_UTIL.g_old_line_adj_tbl
5951: ,p_old_line_scredit_tbl => OE_ORDER_UTIL.g_old_line_scredit_tbl
5952: ,p_old_lot_serial_tbl => OE_ORDER_UTIL.g_old_lot_serial_tbl
5945: ,p_lot_serial_tbl => OE_ORDER_UTIL.g_lot_serial_tbl
5946: ,p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5947: ,p_old_header_adj_tbl => OE_ORDER_UTIL.g_old_header_adj_tbl
5948: ,p_old_header_Scredit_tbl => OE_ORDER_UTIL.g_old_header_scredit_tbl
5949: ,p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5950: ,p_old_line_adj_tbl => OE_ORDER_UTIL.g_old_line_adj_tbl
5951: ,p_old_line_scredit_tbl => OE_ORDER_UTIL.g_old_line_scredit_tbl
5952: ,p_old_lot_serial_tbl => OE_ORDER_UTIL.g_old_lot_serial_tbl
5953:
5946: ,p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5947: ,p_old_header_adj_tbl => OE_ORDER_UTIL.g_old_header_adj_tbl
5948: ,p_old_header_Scredit_tbl => OE_ORDER_UTIL.g_old_header_scredit_tbl
5949: ,p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5950: ,p_old_line_adj_tbl => OE_ORDER_UTIL.g_old_line_adj_tbl
5951: ,p_old_line_scredit_tbl => OE_ORDER_UTIL.g_old_line_scredit_tbl
5952: ,p_old_lot_serial_tbl => OE_ORDER_UTIL.g_old_lot_serial_tbl
5953:
5954: ,p_buyer_seller_flag => 'B'
5947: ,p_old_header_adj_tbl => OE_ORDER_UTIL.g_old_header_adj_tbl
5948: ,p_old_header_Scredit_tbl => OE_ORDER_UTIL.g_old_header_scredit_tbl
5949: ,p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5950: ,p_old_line_adj_tbl => OE_ORDER_UTIL.g_old_line_adj_tbl
5951: ,p_old_line_scredit_tbl => OE_ORDER_UTIL.g_old_line_scredit_tbl
5952: ,p_old_lot_serial_tbl => OE_ORDER_UTIL.g_old_lot_serial_tbl
5953:
5954: ,p_buyer_seller_flag => 'B'
5955: ,p_reject_order => 'N'
5948: ,p_old_header_Scredit_tbl => OE_ORDER_UTIL.g_old_header_scredit_tbl
5949: ,p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5950: ,p_old_line_adj_tbl => OE_ORDER_UTIL.g_old_line_adj_tbl
5951: ,p_old_line_scredit_tbl => OE_ORDER_UTIL.g_old_line_scredit_tbl
5952: ,p_old_lot_serial_tbl => OE_ORDER_UTIL.g_old_lot_serial_tbl
5953:
5954: ,p_buyer_seller_flag => 'B'
5955: ,p_reject_order => 'N'
5956:
5973: -- DBI project changes start
5974: IF l_debug_level > 0 THEN
5975: oe_debug_pub.add( 'CALLING OE_DBI_UTIL' , 1 ) ;
5976: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5977: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5978: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
5979: END IF;
5980:
5981: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
5979: END IF;
5980:
5981: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
5982: oe_order_cache.g_header_rec.booked_flag = 'Y' AND
5983: OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N'
5984: -- AND p_header_rec.header_id IS NOT NULL AND
5985: --p_header_rec.header_id <> FND_API.G_MISS_NUM
5986: THEN
5987: OE_DBI_UTIL.Update_DBI_Log( x_return_status => l_return_status);
5998:
5999:
6000: /* Now clear the global pl/sql tables */
6001: /* Also clear for >= 11i10 for versioning */
6002: IF (OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N' AND
6003: (OE_ORDER_CACHE.g_header_rec.booked_flag = 'Y' OR
6004: OE_CODE_CONTROL.Code_Release_Level >= '110510' )) THEN
6005: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6006: END IF;
6001: /* Also clear for >= 11i10 for versioning */
6002: IF (OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N' AND
6003: (OE_ORDER_CACHE.g_header_rec.booked_flag = 'Y' OR
6004: OE_CODE_CONTROL.Code_Release_Level >= '110510' )) THEN
6005: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6006: END IF;
6007:
6008: END IF; /*check for record in key entities*/
6009: END IF; /*code_release_level*/
6043: x_return_status := FND_API.G_RET_STS_ERROR;
6044: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
6045: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
6046: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
6047: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6048: END IF;
6049: END IF;
6050:
6051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6056: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
6057: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
6058: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
6059: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6060: END IF;
6061: END IF;
6062:
6063: WHEN OTHERS THEN
6070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6071: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
6072: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
6073: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
6074: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6075: END IF;
6076: END IF;
6077: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6078: THEN
10291: END IF;
10292:
10293: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
10294: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
10295: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
10296: END IF;
10297: OE_ORDER_WF_UTIL.CLEAR_FLOWSTART_GLOBALS;
10298: ROLLBACK TO SAVEPOINT Process_Order;
10299:
10323: END IF;
10324:
10325: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
10326: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
10327: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
10328: END IF;
10329: OE_ORDER_WF_UTIL.CLEAR_FLOWSTART_GLOBALS;
10330: ROLLBACK TO SAVEPOINT Process_Order;
10331:
10356: END IF;
10357:
10358: OE_DELAYED_REQUESTS_PVT.Clear_Request(l_return_status);
10359: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
10360: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
10361: END IF;
10362: OE_ORDER_WF_UTIL.CLEAR_FLOWSTART_GLOBALS;
10363: ROLLBACK TO SAVEPOINT Process_Order;
10364: