66: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
67:
68: IF l_debug_on IS NULL
69: THEN
70: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
71: END IF;
72: IF l_debug_on THEN
73: WSH_DEBUG_SV.log(l_module_name,'ENTERING '||l_module_name);
74: END IF;
69: THEN
70: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
71: END IF;
72: IF l_debug_on THEN
73: WSH_DEBUG_SV.log(l_module_name,'ENTERING '||l_module_name);
74: END IF;
75:
76: IF p_sn_range_rec_type.from_serial_number IS NOT NULL THEN
77:
78: l_from_serial_num := p_sn_range_rec_type.from_serial_number;
79: l_to_serial_num := p_sn_range_rec_type.to_serial_number;
80:
81: IF l_debug_on THEN
82: WSH_DEBUG_SV.log(l_module_name,'l_from_serial_num ',l_from_serial_num);
83: END IF;
84:
85: IF l_debug_on THEN
86: WSH_DEBUG_SV.log(l_module_name,'l_to_serial_num ',l_to_serial_num);
82: WSH_DEBUG_SV.log(l_module_name,'l_from_serial_num ',l_from_serial_num);
83: END IF;
84:
85: IF l_debug_on THEN
86: WSH_DEBUG_SV.log(l_module_name,'l_to_serial_num ',l_to_serial_num);
87: END IF;
88:
89: l_real_serial_prefix := RTRIM(p_sn_range_rec_type.from_serial_number,
90: '0123456789');
89: l_real_serial_prefix := RTRIM(p_sn_range_rec_type.from_serial_number,
90: '0123456789');
91:
92: IF l_debug_on THEN
93: WSH_DEBUG_SV.log(l_module_name,'l_real_serial_prefix ',l_real_serial_prefix);
94: END IF;
95:
96: l_prefix_length := NVL(LENGTH(l_real_serial_prefix), 0);
97:
95:
96: l_prefix_length := NVL(LENGTH(l_real_serial_prefix), 0);
97:
98: IF l_debug_on THEN
99: WSH_DEBUG_SV.log(l_module_name,'l_prefix_length ',l_prefix_length);
100: END IF;
101:
102: l_from_numeric := TO_NUMBER(SUBSTR(p_sn_range_rec_type.from_serial_number,
103: l_prefix_length + 1));
102: l_from_numeric := TO_NUMBER(SUBSTR(p_sn_range_rec_type.from_serial_number,
103: l_prefix_length + 1));
104:
105: IF l_debug_on THEN
106: WSH_DEBUG_SV.log(l_module_name,'l_from_numeric ',l_from_numeric);
107: END IF;
108:
109: l_to_numeric := TO_NUMBER(SUBSTR(p_sn_range_rec_type.to_serial_number,
110: l_prefix_length + 1));
109: l_to_numeric := TO_NUMBER(SUBSTR(p_sn_range_rec_type.to_serial_number,
110: l_prefix_length + 1));
111:
112: IF l_debug_on THEN
113: WSH_DEBUG_SV.log(l_module_name,'l_to_numeric ',l_to_numeric);
114: END IF;
115:
116: l_range_count := l_to_numeric - l_from_numeric ;
117:
115:
116: l_range_count := l_to_numeric - l_from_numeric ;
117:
118: IF l_debug_on THEN
119: WSH_DEBUG_SV.log(l_module_name,'l_range_count ',l_range_count);
120: END IF;
121:
122: -- If range count is zero, means from and to are same and no new
123: -- serial numbers need to be generated
123: -- serial numbers need to be generated
124: IF l_range_count = 0 THEN
125:
126: IF l_debug_on THEN
127: WSH_DEBUG_SV.log(l_module_name,'Inside l_range_count ',l_range_count);
128: END IF;
129: IF l_debug_on THEN
130: WSH_DEBUG_SV.log(l_module_name,'l_from_serial_num ',l_from_serial_num);
131: END IF;
126: IF l_debug_on THEN
127: WSH_DEBUG_SV.log(l_module_name,'Inside l_range_count ',l_range_count);
128: END IF;
129: IF l_debug_on THEN
130: WSH_DEBUG_SV.log(l_module_name,'l_from_serial_num ',l_from_serial_num);
131: END IF;
132:
133: -- Only one serial number needs to go in either From or to as both are same.
134: INSERT INTO WSH_ITM_SERIAL_NUMBERS
151: LENGTH(p_sn_range_rec_type.from_serial_number)
152: - l_prefix_length, '0');
153:
154: IF l_debug_on THEN
155: WSH_DEBUG_SV.log(l_module_name,'New Serial Number ',l_new_serial_number);
156: END IF;
157:
158: INSERT INTO WSH_ITM_SERIAL_NUMBERS
159: (request_control_id,
174: WHEN OTHERS THEN
175: ROLLBACK TO WSH_ITM_EXPORT_COMPLIANCE;
176: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
177: IF l_debug_on THEN
178: WSH_DEBUG_SV.log(l_module_name,'The unexpected Error Code ' || SQLCODE || ' : ' || SQLERRM);
179: WSH_DEBUG_SV.pop(l_module_name);
180: END IF;
181:
182: IF l_debug_on THEN
175: ROLLBACK TO WSH_ITM_EXPORT_COMPLIANCE;
176: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
177: IF l_debug_on THEN
178: WSH_DEBUG_SV.log(l_module_name,'The unexpected Error Code ' || SQLCODE || ' : ' || SQLERRM);
179: WSH_DEBUG_SV.pop(l_module_name);
180: END IF;
181:
182: IF l_debug_on THEN
183: WSH_DEBUG_SV.log(l_module_name,'EXITING '||l_module_name);
179: WSH_DEBUG_SV.pop(l_module_name);
180: END IF;
181:
182: IF l_debug_on THEN
183: WSH_DEBUG_SV.log(l_module_name,'EXITING '||l_module_name);
184: END IF;
185:
186:
187: END PROCESS_SERIAL_NUMBERS;
228: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
229:
230: IF l_debug_on IS NULL
231: THEN
232: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
233: END IF;
234: IF l_debug_on THEN
235: WSH_DEBUG_SV.log(l_module_name,'ENTERING '||l_module_name);
236: END IF;
231: THEN
232: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
233: END IF;
234: IF l_debug_on THEN
235: WSH_DEBUG_SV.log(l_module_name,'ENTERING '||l_module_name);
236: END IF;
237:
238:
239:
241: LOOP
242: FETCH c_get_delivery_details INTO l_delv_detail_rec;
243: EXIT WHEN c_get_delivery_details%NOTFOUND;
244: IF l_debug_on THEN
245: WSH_DEBUG_SV.push(l_module_name);
246: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',
247: l_delv_detail_rec.delivery_detail_id);
248: WSH_DEBUG_SV.log(l_module_name,'transaction_temp_id',
249: l_delv_detail_rec.transaction_temp_id);
242: FETCH c_get_delivery_details INTO l_delv_detail_rec;
243: EXIT WHEN c_get_delivery_details%NOTFOUND;
244: IF l_debug_on THEN
245: WSH_DEBUG_SV.push(l_module_name);
246: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',
247: l_delv_detail_rec.delivery_detail_id);
248: WSH_DEBUG_SV.log(l_module_name,'transaction_temp_id',
249: l_delv_detail_rec.transaction_temp_id);
250: END IF;
244: IF l_debug_on THEN
245: WSH_DEBUG_SV.push(l_module_name);
246: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',
247: l_delv_detail_rec.delivery_detail_id);
248: WSH_DEBUG_SV.log(l_module_name,'transaction_temp_id',
249: l_delv_detail_rec.transaction_temp_id);
250: END IF;
251:
252: IF l_delv_detail_rec.transaction_temp_id IS NULL THEN
250: END IF;
251:
252: IF l_delv_detail_rec.transaction_temp_id IS NULL THEN
253: IF l_debug_on THEN
254: WSH_DEBUG_SV.log(l_module_name,'TRANSACTION_TEMP_ID IS NULL');
255: END IF;
256:
257: OPEN c_get_serial_number_from_wdd (l_delv_detail_rec.delivery_detail_id);
258: LOOP
259: FETCH c_get_serial_number_from_wdd INTO l_sn_range_rec_type;
260:
261: EXIT WHEN c_get_serial_number_from_wdd%NOTFOUND;
262: IF l_debug_on THEN
263: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',
264: l_sn_range_rec_type.delivery_detail_id);
265: WSH_DEBUG_SV.log(l_module_name,'to_serial_number',
266: l_sn_range_rec_type.to_serial_number);
267: WSH_DEBUG_SV.log(l_module_name,'from_serial_number',
261: EXIT WHEN c_get_serial_number_from_wdd%NOTFOUND;
262: IF l_debug_on THEN
263: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',
264: l_sn_range_rec_type.delivery_detail_id);
265: WSH_DEBUG_SV.log(l_module_name,'to_serial_number',
266: l_sn_range_rec_type.to_serial_number);
267: WSH_DEBUG_SV.log(l_module_name,'from_serial_number',
268: l_sn_range_rec_type.from_serial_number);
269: END IF;
263: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',
264: l_sn_range_rec_type.delivery_detail_id);
265: WSH_DEBUG_SV.log(l_module_name,'to_serial_number',
266: l_sn_range_rec_type.to_serial_number);
267: WSH_DEBUG_SV.log(l_module_name,'from_serial_number',
268: l_sn_range_rec_type.from_serial_number);
269: END IF;
270: PROCESS_SERIAL_NUMBERS(
271: p_sn_range_rec_type => l_sn_range_rec_type,
275: END LOOP;
276: CLOSE c_get_serial_number_from_wdd;
277: ELSE
278: IF l_debug_on THEN
279: WSH_DEBUG_SV.log(l_module_name,'TRANSACTION_TEMP_ID IS NOT NULL');
280: END IF;
281:
282: OPEN c_get_serial_num_range (l_delv_detail_rec.transaction_temp_id,l_delv_detail_rec.delivery_detail_id);
283: LOOP
284: FETCH c_get_serial_num_range INTO l_sn_range_rec_type;
285:
286: EXIT WHEN c_get_serial_num_range%NOTFOUND;
287: IF l_debug_on THEN
288: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',
289: l_sn_range_rec_type.delivery_detail_id);
290: WSH_DEBUG_SV.log(l_module_name,'to_serial_number',
291: l_sn_range_rec_type.to_serial_number);
292: WSH_DEBUG_SV.log(l_module_name,'from_serial_number',
286: EXIT WHEN c_get_serial_num_range%NOTFOUND;
287: IF l_debug_on THEN
288: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',
289: l_sn_range_rec_type.delivery_detail_id);
290: WSH_DEBUG_SV.log(l_module_name,'to_serial_number',
291: l_sn_range_rec_type.to_serial_number);
292: WSH_DEBUG_SV.log(l_module_name,'from_serial_number',
293: l_sn_range_rec_type.from_serial_number);
294: END IF;
288: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',
289: l_sn_range_rec_type.delivery_detail_id);
290: WSH_DEBUG_SV.log(l_module_name,'to_serial_number',
291: l_sn_range_rec_type.to_serial_number);
292: WSH_DEBUG_SV.log(l_module_name,'from_serial_number',
293: l_sn_range_rec_type.from_serial_number);
294: END IF;
295: PROCESS_SERIAL_NUMBERS(
296: p_sn_range_rec_type => l_sn_range_rec_type,
307: WHEN OTHERS THEN
308: ROLLBACK TO WSH_ITM_EXPORT_COMPLIANCE;
309: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
310: IF l_debug_on THEN
311: WSH_DEBUG_SV.log(l_module_name,'The unexpected Error Code ' || SQLCODE || ' : ' || SQLERRM);
312: WSH_DEBUG_SV.pop(l_module_name);
313: END IF;
314:
315: IF l_debug_on THEN
308: ROLLBACK TO WSH_ITM_EXPORT_COMPLIANCE;
309: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
310: IF l_debug_on THEN
311: WSH_DEBUG_SV.log(l_module_name,'The unexpected Error Code ' || SQLCODE || ' : ' || SQLERRM);
312: WSH_DEBUG_SV.pop(l_module_name);
313: END IF;
314:
315: IF l_debug_on THEN
316: WSH_DEBUG_SV.log(l_module_name,'EXITING '||l_module_name);
312: WSH_DEBUG_SV.pop(l_module_name);
313: END IF;
314:
315: IF l_debug_on THEN
316: WSH_DEBUG_SV.log(l_module_name,'EXITING '||l_module_name);
317: END IF;
318:
319:
320: END POPULATE_SERIAL_NUMBERS;
455: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
456:
457: IF l_debug_on IS NULL
458: THEN
459: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
460: END IF;
461:
462: IF l_debug_on THEN
463: WSH_DEBUG_SV.push(l_module_name);
459: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
460: END IF;
461:
462: IF l_debug_on THEN
463: WSH_DEBUG_SV.push(l_module_name);
464: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
465: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_FROM_ID',p_delivery_from_id);
466: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_TO_ID',p_delivery_to_id);
467: WSH_DEBUG_SV.log(l_module_name,'P_EVENT_NAME',p_event_name);
460: END IF;
461:
462: IF l_debug_on THEN
463: WSH_DEBUG_SV.push(l_module_name);
464: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
465: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_FROM_ID',p_delivery_from_id);
466: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_TO_ID',p_delivery_to_id);
467: WSH_DEBUG_SV.log(l_module_name,'P_EVENT_NAME',p_event_name);
468: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_CODE',p_ship_method_code);
461:
462: IF l_debug_on THEN
463: WSH_DEBUG_SV.push(l_module_name);
464: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
465: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_FROM_ID',p_delivery_from_id);
466: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_TO_ID',p_delivery_to_id);
467: WSH_DEBUG_SV.log(l_module_name,'P_EVENT_NAME',p_event_name);
468: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_CODE',p_ship_method_code);
469: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_FROM',p_pickup_date_from);
462: IF l_debug_on THEN
463: WSH_DEBUG_SV.push(l_module_name);
464: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
465: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_FROM_ID',p_delivery_from_id);
466: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_TO_ID',p_delivery_to_id);
467: WSH_DEBUG_SV.log(l_module_name,'P_EVENT_NAME',p_event_name);
468: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_CODE',p_ship_method_code);
469: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_FROM',p_pickup_date_from);
470: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_TO',p_pickup_date_to);
463: WSH_DEBUG_SV.push(l_module_name);
464: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
465: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_FROM_ID',p_delivery_from_id);
466: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_TO_ID',p_delivery_to_id);
467: WSH_DEBUG_SV.log(l_module_name,'P_EVENT_NAME',p_event_name);
468: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_CODE',p_ship_method_code);
469: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_FROM',p_pickup_date_from);
470: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_TO',p_pickup_date_to);
471: END IF;
464: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
465: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_FROM_ID',p_delivery_from_id);
466: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_TO_ID',p_delivery_to_id);
467: WSH_DEBUG_SV.log(l_module_name,'P_EVENT_NAME',p_event_name);
468: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_CODE',p_ship_method_code);
469: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_FROM',p_pickup_date_from);
470: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_TO',p_pickup_date_to);
471: END IF;
472:
465: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_FROM_ID',p_delivery_from_id);
466: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_TO_ID',p_delivery_to_id);
467: WSH_DEBUG_SV.log(l_module_name,'P_EVENT_NAME',p_event_name);
468: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_CODE',p_ship_method_code);
469: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_FROM',p_pickup_date_from);
470: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_TO',p_pickup_date_to);
471: END IF;
472:
473: -------------------------------------------------------------------------------
466: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_TO_ID',p_delivery_to_id);
467: WSH_DEBUG_SV.log(l_module_name,'P_EVENT_NAME',p_event_name);
468: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_CODE',p_ship_method_code);
469: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_FROM',p_pickup_date_from);
470: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_TO',p_pickup_date_to);
471: END IF;
472:
473: -------------------------------------------------------------------------------
474: -- Pickup Deliveries which require export screening
473: -------------------------------------------------------------------------------
474: -- Pickup Deliveries which require export screening
475: -------------------------------------------------------------------------------
476: IF l_debug_on THEN
477: WSH_DEBUG_SV.log(l_module_name,'This Section Picks up the Deliveries Which Require Screeenig For '||p_event_name||' event ');
478: END IF;
479:
480: -- This sub section prepares the query to pick up the Deliveries which require screening
481: IF p_event_name = G_PICK_RELEASE_EVENT THEN
534:
535:
536: l_exp_compliance_dlvy_query := l_exp_compliance_dlvy_query||l_tempStr||' ';
537: IF l_debug_on THEN
538: WSH_DEBUG_SV.log(l_module_name,' The Query executed ',l_exp_compliance_dlvy_query);
539: END IF;
540:
541:
542:
572:
573: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
574:
575: IF l_debug_on THEN
576: WSH_DEBUG_SV.log(l_module_name,' No Of Deliveries Selected For Screening ',l_num_delivery_id_tab.count);
577: END IF;
578:
579: IF l_num_delivery_id_tab.count < 1 THEN
580: IF l_debug_on THEN
577: END IF;
578:
579: IF l_num_delivery_id_tab.count < 1 THEN
580: IF l_debug_on THEN
581: WSH_DEBUG_SV.pop(l_module_name);
582: END IF;
583: RETURN;
584: END IF;
585:
588: ---------------------------------------------------------------------------------
589: -- Handling Require Export Screening Exceptions
590: ---------------------------------------------------------------------------------
591: IF l_debug_on THEN
592: WSH_DEBUG_SV.log(l_module_name,'This Section Handles The REQUIRE Export Screening Exception for'||p_event_name||' event ');
593: END IF;
594:
595: l_return_status := NULL;
596: l_msg_count := NULL;
617: -- Error Handling Section
618:
619: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
620: IF l_debug_on THEN
621: WSH_DEBUG_SV.log(l_module_name,' Error Handling the exception for Delivery Id : '||l_num_delivery_id_tab(j));
622: END IF;
623:
624: IF l_msg_count IS NOT NULL THEN
625: WSH_UTIL_CORE.Add_Message(l_return_status);
629: p_msg_index => i,
630: p_encoded => 'F'
631: );
632: IF l_debug_on THEN
633: WSH_DEBUG_SV.log(l_module_name,l_msg_data);
634: END IF;
635: END LOOP;
636: END IF;
637:
639: ROLLBACK TO WSH_ITM_EXPORT_COMPLIANCE;
640:
641: x_return_status := l_return_status;
642: IF l_debug_on THEN
643: WSH_DEBUG_SV.pop(l_module_name);
644: END IF;
645: RETURN;
646: END IF;
647:
649: -- Logging exceptions for Deliveries submitted for export screening
650: ---------------------------------------------------------------------------------------------------------
651:
652: IF l_debug_on THEN
653: WSH_DEBUG_SV.log(l_module_name,'This Section Logs a Submitted For Export Screening For Delivery which Require Export Screening and Handles the Existing Require Export Screening Exceptions for '||p_event_name||' event ');
654: END IF;
655:
656: l_return_status := NULL;
657: l_msg_count := NULL;
690:
691: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
692:
693: IF l_debug_on THEN
694: WSH_DEBUG_SV.log(l_module_name,' Error Logging the exception for Delivery Id : ',l_num_delivery_id_tab(j));
695: END IF;
696:
697: IF l_msg_count IS NOT NULL THEN
698: WSH_UTIL_CORE.Add_Message(l_return_status);
702: p_msg_index => i,
703: p_encoded => 'F'
704: );
705: IF l_debug_on THEN
706: WSH_DEBUG_SV.log(l_module_name,l_msg_data);
707: END IF;
708: END LOOP;
709: END IF;
710:
712: ROLLBACK TO WSH_ITM_EXPORT_COMPLIANCE;
713:
714: x_return_status := l_return_status;
715: IF l_debug_on THEN
716: WSH_DEBUG_SV.pop(l_module_name);
717: END IF;
718: RETURN;
719: END IF;
720:
726: x_return_status => l_wf_return_status
727: );
728:
729: IF l_debug_on THEN
730: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_WF_STD.RAISE_EVENT => ',l_wf_return_status);
731: END IF;
732:
733: END LOOP;
734:
735: -------------------------------------------------------------------------------
736: -- Populates Deliveries Into ITM Request Control Tables
737: -------------------------------------------------------------------------------
738: IF l_debug_on THEN
739: WSH_DEBUG_SV.log(l_module_name,'This Section Populates The Delivery Information Into Request Control Table for '||p_event_name||' event ');
740: END IF;
741:
742: -- This sub section Prepares the data to be inserted into ITM Request Control Table
743: -- Fetch user and login information
766: WHEN NO_DATA_FOUND THEN
767: NULL;
768: END;
769: IF l_debug_on THEN
770: WSH_DEBUG_SV.log(l_module_name,'Records found for delivery ' || l_rec_found);
771: END IF;
772:
773: IF (l_rec_found = 0) THEN
774: -- Get the ORGANIZATION_IF of the delivery
800: );
801: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
802: ROLLBACK TO WSH_ITM_EXPORT_COMPLIANCE;
803: IF l_debug_on THEN
804: WSH_DEBUG_SV.log(l_module_name,'Create_Update_Txns_History failed ' || x_return_status);
805: WSH_DEBUG_SV.pop(l_module_name);
806: END IF;
807: RETURN;
808: END IF;
801: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
802: ROLLBACK TO WSH_ITM_EXPORT_COMPLIANCE;
803: IF l_debug_on THEN
804: WSH_DEBUG_SV.log(l_module_name,'Create_Update_Txns_History failed ' || x_return_status);
805: WSH_DEBUG_SV.pop(l_module_name);
806: END IF;
807: RETURN;
808: END IF;
809:
807: RETURN;
808: END IF;
809:
810: IF l_debug_on THEN
811: WSH_DEBUG_SV.log(l_module_name,'Created Transaction for Delivery txns_id = ' || x_txns_id );
812: END IF;
813: END IF;
814: END LOOP;
815:
863:
864: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
865: ROLLBACK TO WSH_ITM_EXPORT_COMPLIANCE;
866: IF l_debug_on THEN
867: WSH_DEBUG_SV.log(l_module_name,'Create_Serial_numbers_failed ' || x_return_status);
868: WSH_DEBUG_SV.pop(l_module_name);
869: END IF;
870: RETURN;
871: END IF;
864: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
865: ROLLBACK TO WSH_ITM_EXPORT_COMPLIANCE;
866: IF l_debug_on THEN
867: WSH_DEBUG_SV.log(l_module_name,'Create_Serial_numbers_failed ' || x_return_status);
868: WSH_DEBUG_SV.pop(l_module_name);
869: END IF;
870: RETURN;
871: END IF;
872:
870: RETURN;
871: END IF;
872:
873: IF l_debug_on THEN
874: WSH_DEBUG_SV.pop(l_module_name);
875: END IF;
876: IF l_debug_on THEN
877: WSH_DEBUG_SV.log(l_module_name,'Before Calling WSH_ITM_CUSTOM_PROCESS.PRE_PROCESS_WSH_REQUEST');
878: END IF;
873: IF l_debug_on THEN
874: WSH_DEBUG_SV.pop(l_module_name);
875: END IF;
876: IF l_debug_on THEN
877: WSH_DEBUG_SV.log(l_module_name,'Before Calling WSH_ITM_CUSTOM_PROCESS.PRE_PROCESS_WSH_REQUEST');
878: END IF;
879:
880: WSH_ITM_CUSTOM_PROCESS.PRE_PROCESS_WSH_REQUEST
881: (
882: p_request_control_id => l_request_control_id_s
883: );
884:
885: IF l_debug_on THEN
886: WSH_DEBUG_SV.log(l_module_name,'After Calling WSH_ITM_CUSTOM_PROCESS.PRE_PROCESS_WSH_REQUEST');
887: END IF;
888: END LOOP;
889:
890: EXCEPTION
893:
894: ROLLBACK TO WSH_ITM_EXPORT_COMPLIANCE;
895: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
896: IF l_debug_on THEN
897: WSH_DEBUG_SV.log(l_module_name,'The unexpected Error Code ' || SQLCODE || ' : ' || SQLERRM);
898: WSH_DEBUG_SV.pop(l_module_name);
899: END IF;
900:
901: END SCREEN_EVENT_DELIVERIES;
894: ROLLBACK TO WSH_ITM_EXPORT_COMPLIANCE;
895: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
896: IF l_debug_on THEN
897: WSH_DEBUG_SV.log(l_module_name,'The unexpected Error Code ' || SQLCODE || ' : ' || SQLERRM);
898: WSH_DEBUG_SV.pop(l_module_name);
899: END IF;
900:
901: END SCREEN_EVENT_DELIVERIES;
902:
940: --
941: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
942: --
943: IF l_debug_on IS NULL THEN
944: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
945: END IF;
946:
947: IF l_debug_on THEN
948: WSH_DEBUG_SV.push(l_module_name);
944: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
945: END IF;
946:
947: IF l_debug_on THEN
948: WSH_DEBUG_SV.push(l_module_name);
949: WSH_DEBUG_SV.log(l_module_name,'P_EVENT_NAME',p_event_name);
950: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',p_delivery_id);
951: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
952: END IF;
945: END IF;
946:
947: IF l_debug_on THEN
948: WSH_DEBUG_SV.push(l_module_name);
949: WSH_DEBUG_SV.log(l_module_name,'P_EVENT_NAME',p_event_name);
950: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',p_delivery_id);
951: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
952: END IF;
953:
946:
947: IF l_debug_on THEN
948: WSH_DEBUG_SV.push(l_module_name);
949: WSH_DEBUG_SV.log(l_module_name,'P_EVENT_NAME',p_event_name);
950: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',p_delivery_id);
951: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
952: END IF;
953:
954: wf_event.AddParameterToList(
947: IF l_debug_on THEN
948: WSH_DEBUG_SV.push(l_module_name);
949: WSH_DEBUG_SV.log(l_module_name,'P_EVENT_NAME',p_event_name);
950: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',p_delivery_id);
951: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
952: END IF;
953:
954: wf_event.AddParameterToList(
955: p_name=>'ORGANIZATION_ID',
967: EXCEPTION
968: WHEN OTHERS THEN
969: ROLLBACK TO RAISE_ITM_EVENT;
970: IF l_debug_on THEN
971: WSH_DEBUG_SV.log(l_module_name,'The unexpected Error Code ' || SQLCODE || ' : ' || SQLERRM);
972: WSH_DEBUG_SV.pop(l_module_name);
973: END IF;
974: END RAISE_ITM_EVENT;
975:
968: WHEN OTHERS THEN
969: ROLLBACK TO RAISE_ITM_EVENT;
970: IF l_debug_on THEN
971: WSH_DEBUG_SV.log(l_module_name,'The unexpected Error Code ' || SQLCODE || ' : ' || SQLERRM);
972: WSH_DEBUG_SV.pop(l_module_name);
973: END IF;
974: END RAISE_ITM_EVENT;
975:
976:
1023: --
1024: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1025: --
1026: IF l_debug_on IS NULL THEN
1027: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1028: END IF;
1029:
1030: IF l_debug_on THEN
1031: WSH_DEBUG_SV.push(l_module_name);
1027: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1028: END IF;
1029:
1030: IF l_debug_on THEN
1031: WSH_DEBUG_SV.push(l_module_name);
1032: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION ID',p_organization_id);
1033: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_FROM_ID',p_delivery_from_id);
1034: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_TO_ID',p_delivery_to_id);
1035: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_CODE',p_ship_method_code);
1028: END IF;
1029:
1030: IF l_debug_on THEN
1031: WSH_DEBUG_SV.push(l_module_name);
1032: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION ID',p_organization_id);
1033: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_FROM_ID',p_delivery_from_id);
1034: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_TO_ID',p_delivery_to_id);
1035: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_CODE',p_ship_method_code);
1036: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_FROM',p_pickup_date_from);
1029:
1030: IF l_debug_on THEN
1031: WSH_DEBUG_SV.push(l_module_name);
1032: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION ID',p_organization_id);
1033: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_FROM_ID',p_delivery_from_id);
1034: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_TO_ID',p_delivery_to_id);
1035: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_CODE',p_ship_method_code);
1036: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_FROM',p_pickup_date_from);
1037: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_TO',p_pickup_date_to);
1030: IF l_debug_on THEN
1031: WSH_DEBUG_SV.push(l_module_name);
1032: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION ID',p_organization_id);
1033: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_FROM_ID',p_delivery_from_id);
1034: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_TO_ID',p_delivery_to_id);
1035: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_CODE',p_ship_method_code);
1036: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_FROM',p_pickup_date_from);
1037: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_TO',p_pickup_date_to);
1038: END IF;
1031: WSH_DEBUG_SV.push(l_module_name);
1032: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION ID',p_organization_id);
1033: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_FROM_ID',p_delivery_from_id);
1034: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_TO_ID',p_delivery_to_id);
1035: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_CODE',p_ship_method_code);
1036: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_FROM',p_pickup_date_from);
1037: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_TO',p_pickup_date_to);
1038: END IF;
1039:
1032: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION ID',p_organization_id);
1033: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_FROM_ID',p_delivery_from_id);
1034: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_TO_ID',p_delivery_to_id);
1035: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_CODE',p_ship_method_code);
1036: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_FROM',p_pickup_date_from);
1037: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_TO',p_pickup_date_to);
1038: END IF;
1039:
1040: ------------------------------------------------------------------------------------------
1033: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_FROM_ID',p_delivery_from_id);
1034: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_TO_ID',p_delivery_to_id);
1035: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_CODE',p_ship_method_code);
1036: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_FROM',p_pickup_date_from);
1037: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DATE_TO',p_pickup_date_to);
1038: END IF;
1039:
1040: ------------------------------------------------------------------------------------------
1041: -- Performs Export Screening For Deliveries on Pick Release Event
1048: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1049: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','Error in procedure WSH_ITM_EXPORT_SCREENING.SCREEN_DELIVERIES for Pick Release event ');
1050: retcode := 2;
1051: IF l_debug_on THEN
1052: WSH_DEBUG_SV.pop(l_module_name);
1053: END IF;
1054: RETURN;
1055: END IF;
1056:
1064: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1065: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','Error in procedure WSH_ITM_EXPORT_SCREENING.SCREEN_DELIVERIES for Ship Confirm event ');
1066: retcode := 2;
1067: IF l_debug_on THEN
1068: WSH_DEBUG_SV.pop(l_module_name);
1069: END IF;
1070: RETURN;
1071: END IF;
1072:
1070: RETURN;
1071: END IF;
1072:
1073: IF l_debug_on THEN
1074: WSH_DEBUG_SV.pop(l_module_name);
1075: END IF;
1076:
1077: EXCEPTION
1078: WHEN OTHERS THEN
1078: WHEN OTHERS THEN
1079:
1080: ROLLBACK TO WSH_ITM_EXPORT_COMPLIANCE;
1081: IF l_debug_on THEN
1082: WSH_DEBUG_SV.log(l_module_name,'The unexpected Error Code ' || SQLCODE || ' : ' || SQLERRM);
1083: END IF;
1084: retcode := 2;
1085:
1086: IF l_debug_on THEN
1083: END IF;
1084: retcode := 2;
1085:
1086: IF l_debug_on THEN
1087: WSH_DEBUG_SV.pop(l_module_name);
1088: END IF;
1089:
1090: END SCREEN_DELIVERIES;
1091: