36: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
37: --
38: IF l_debug_on IS NULL
39: THEN
40: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
41: END IF;
42: --
43: IF l_debug_on THEN
44: wsh_debug_sv.push(l_module_name, 'Check_Cancel_Allowed_WF');
40: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
41: END IF;
42: --
43: IF l_debug_on THEN
44: wsh_debug_sv.push(l_module_name, 'Check_Cancel_Allowed_WF');
45: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
46: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
47: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
48: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
41: END IF;
42: --
43: IF l_debug_on THEN
44: wsh_debug_sv.push(l_module_name, 'Check_Cancel_Allowed_WF');
45: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
46: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
47: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
48: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
49: END IF;
42: --
43: IF l_debug_on THEN
44: wsh_debug_sv.push(l_module_name, 'Check_Cancel_Allowed_WF');
45: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
46: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
47: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
48: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
49: END IF;
50:
43: IF l_debug_on THEN
44: wsh_debug_sv.push(l_module_name, 'Check_Cancel_Allowed_WF');
45: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
46: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
47: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
48: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
49: END IF;
50:
51: IF ( P_funcmode = 'RUN' ) THEN
44: wsh_debug_sv.push(l_module_name, 'Check_Cancel_Allowed_WF');
45: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
46: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
47: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
48: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
49: END IF;
50:
51: IF ( P_funcmode = 'RUN' ) THEN
52:
53: l_Return_Status := WSH_UTIL_CORE.g_ret_sts_success;
54:
55: WSH_TRANSACTIONS_TPW_UTIL.Check_Cancel_Allowed (P_item_type, P_item_key, l_Return_Status);
56: IF l_debug_on THEN
57: wsh_debug_sv.log (l_module_name, 'Return status after check_Cancel_Allowed ', l_Return_Status);
58: END IF;
59:
60: IF ( l_Return_Status = WSH_UTIL_CORE.g_ret_sts_success ) THEN
61: X_resultout := 'COMPLETE:SUCCESS';
64: END IF;
65: END IF;
66:
67: IF l_debug_on THEN
68: wsh_debug_sv.log(l_module_name, 'X_resultout',X_resultout);
69: wsh_debug_sv.pop(l_module_name);
70: END IF;
71:
72: EXCEPTION
65: END IF;
66:
67: IF l_debug_on THEN
68: wsh_debug_sv.log(l_module_name, 'X_resultout',X_resultout);
69: wsh_debug_sv.pop(l_module_name);
70: END IF;
71:
72: EXCEPTION
73: WHEN OTHERS THEN
72: EXCEPTION
73: WHEN OTHERS THEN
74: X_resultout := 'COMPLETE:ERROR';
75: IF l_debug_on THEN
76: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
77: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
78: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
79: END IF;
80: RAISE;
73: WHEN OTHERS THEN
74: X_resultout := 'COMPLETE:ERROR';
75: IF l_debug_on THEN
76: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
77: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
78: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
79: END IF;
80: RAISE;
81: END Check_Cancel_Allowed_WF;
74: X_resultout := 'COMPLETE:ERROR';
75: IF l_debug_on THEN
76: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
77: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
78: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
79: END IF;
80: RAISE;
81: END Check_Cancel_Allowed_WF;
82:
112: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
113: --
114: IF l_debug_on IS NULL
115: THEN
116: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
117: END IF;
118: --
119: IF l_debug_on THEN
120: wsh_debug_sv.push(l_module_name, 'Send_Cbod_Success_WF');
116: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
117: END IF;
118: --
119: IF l_debug_on THEN
120: wsh_debug_sv.push(l_module_name, 'Send_Cbod_Success_WF');
121: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
122: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
123: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
124: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
117: END IF;
118: --
119: IF l_debug_on THEN
120: wsh_debug_sv.push(l_module_name, 'Send_Cbod_Success_WF');
121: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
122: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
123: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
124: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
125: END IF;
118: --
119: IF l_debug_on THEN
120: wsh_debug_sv.push(l_module_name, 'Send_Cbod_Success_WF');
121: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
122: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
123: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
124: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
125: END IF;
126:
119: IF l_debug_on THEN
120: wsh_debug_sv.push(l_module_name, 'Send_Cbod_Success_WF');
121: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
122: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
123: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
124: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
125: END IF;
126:
127: IF ( P_funcmode = 'RUN' ) THEN
120: wsh_debug_sv.push(l_module_name, 'Send_Cbod_Success_WF');
121: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
122: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
123: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
124: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
125: END IF;
126:
127: IF ( P_funcmode = 'RUN' ) THEN
128:
129: l_Return_Status := WSH_UTIL_CORE.g_ret_sts_success;
130:
131: Send_Cbod_Success (P_item_type, P_item_key, l_Return_Status);
132: IF l_debug_on THEN
133: wsh_debug_sv.log (l_module_name, 'Return status after Send_Cbod_Success ', l_Return_Status);
134: END IF;
135:
136: IF ( l_Return_Status = WSH_UTIL_CORE.g_ret_sts_success ) THEN
137: X_resultout := 'COMPLETE:SUCCESS';
140: END IF;
141: END IF;
142:
143: IF l_debug_on THEN
144: wsh_debug_sv.log(l_module_name, 'X_resultout',X_resultout);
145: wsh_debug_sv.pop(l_module_name);
146: END IF;
147:
148: EXCEPTION
141: END IF;
142:
143: IF l_debug_on THEN
144: wsh_debug_sv.log(l_module_name, 'X_resultout',X_resultout);
145: wsh_debug_sv.pop(l_module_name);
146: END IF;
147:
148: EXCEPTION
149:
149:
150: WHEN OTHERS THEN
151: X_resultout := 'COMPLETE:ERROR';
152: IF l_debug_on THEN
153: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
154: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
155: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
156: END IF;
157: RAISE;
150: WHEN OTHERS THEN
151: X_resultout := 'COMPLETE:ERROR';
152: IF l_debug_on THEN
153: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
154: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
155: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
156: END IF;
157: RAISE;
158: END Send_Cbod_Success_WF;
151: X_resultout := 'COMPLETE:ERROR';
152: IF l_debug_on THEN
153: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
154: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
155: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
156: END IF;
157: RAISE;
158: END Send_Cbod_Success_WF;
159:
189: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
190: --
191: IF l_debug_on IS NULL
192: THEN
193: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
194: END IF;
195: --
196: IF l_debug_on THEN
197: wsh_debug_sv.push(l_module_name, 'Send_Cbod_FailureWF');
193: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
194: END IF;
195: --
196: IF l_debug_on THEN
197: wsh_debug_sv.push(l_module_name, 'Send_Cbod_FailureWF');
198: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
199: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
200: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
201: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
194: END IF;
195: --
196: IF l_debug_on THEN
197: wsh_debug_sv.push(l_module_name, 'Send_Cbod_FailureWF');
198: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
199: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
200: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
201: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
202: END IF;
195: --
196: IF l_debug_on THEN
197: wsh_debug_sv.push(l_module_name, 'Send_Cbod_FailureWF');
198: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
199: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
200: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
201: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
202: END IF;
203:
196: IF l_debug_on THEN
197: wsh_debug_sv.push(l_module_name, 'Send_Cbod_FailureWF');
198: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
199: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
200: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
201: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
202: END IF;
203:
204: IF ( P_funcmode = 'RUN' ) THEN
197: wsh_debug_sv.push(l_module_name, 'Send_Cbod_FailureWF');
198: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
199: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
200: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
201: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
202: END IF;
203:
204: IF ( P_funcmode = 'RUN' ) THEN
205:
206: l_Return_Status := WSH_UTIL_CORE.g_ret_sts_success;
207:
208: Send_Cbod_Failure (P_item_type, P_item_key, l_Return_Status);
209: IF l_debug_on THEN
210: wsh_debug_sv.log (l_module_name, 'Return status after Send_Cbod_Failure ', l_Return_Status);
211: END IF;
212:
213: IF ( l_Return_Status = WSH_UTIL_CORE.g_ret_sts_success ) THEN
214: X_resultout := 'COMPLETE:SUCCESS';
216: X_resultout := 'COMPLETE:ERROR';
217: END IF;
218: END IF;
219: IF l_debug_on THEN
220: wsh_debug_sv.log(l_module_name, 'X_resultout',X_resultout);
221: wsh_debug_sv.pop(l_module_name);
222: END IF;
223:
224: EXCEPTION
217: END IF;
218: END IF;
219: IF l_debug_on THEN
220: wsh_debug_sv.log(l_module_name, 'X_resultout',X_resultout);
221: wsh_debug_sv.pop(l_module_name);
222: END IF;
223:
224: EXCEPTION
225:
225:
226: WHEN OTHERS THEN
227: X_resultout := 'COMPLETE:ERROR';
228: IF l_debug_on THEN
229: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
230: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
231: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
232: END IF;
233: RAISE;
226: WHEN OTHERS THEN
227: X_resultout := 'COMPLETE:ERROR';
228: IF l_debug_on THEN
229: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
230: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
231: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
232: END IF;
233: RAISE;
234: END Send_Cbod_Failure_WF;
227: X_resultout := 'COMPLETE:ERROR';
228: IF l_debug_on THEN
229: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
230: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
231: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
232: END IF;
233: RAISE;
234: END Send_Cbod_Failure_WF;
235:
265: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
266: --
267: IF l_debug_on IS NULL
268: THEN
269: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
270: END IF;
271: --
272: IF l_debug_on THEN
273: wsh_debug_sv.push(l_module_name, 'Raise_Cancel_Event_WF');
269: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
270: END IF;
271: --
272: IF l_debug_on THEN
273: wsh_debug_sv.push(l_module_name, 'Raise_Cancel_Event_WF');
274: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
275: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
276: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
277: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
270: END IF;
271: --
272: IF l_debug_on THEN
273: wsh_debug_sv.push(l_module_name, 'Raise_Cancel_Event_WF');
274: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
275: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
276: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
277: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
278: END IF;
271: --
272: IF l_debug_on THEN
273: wsh_debug_sv.push(l_module_name, 'Raise_Cancel_Event_WF');
274: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
275: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
276: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
277: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
278: END IF;
279:
272: IF l_debug_on THEN
273: wsh_debug_sv.push(l_module_name, 'Raise_Cancel_Event_WF');
274: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
275: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
276: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
277: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
278: END IF;
279:
280: IF ( P_funcmode = 'RUN' ) THEN
273: wsh_debug_sv.push(l_module_name, 'Raise_Cancel_Event_WF');
274: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
275: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
276: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
277: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
278: END IF;
279:
280: IF ( P_funcmode = 'RUN' ) THEN
281:
281:
282: l_Return_Status := WSH_UTIL_CORE.g_ret_sts_success;
283: Raise_Cancel_Event (P_item_type, P_item_key, l_Return_Status);
284: IF l_debug_on THEN
285: wsh_debug_sv.log (l_module_name, 'Return status after Raise_Cancel_Event ', l_Return_Status);
286: END IF;
287:
288: IF ( l_Return_Status = WSH_UTIL_CORE.g_ret_sts_success ) THEN
289: X_resultout := 'COMPLETE:SUCCESS';
292: END IF;
293: END IF;
294:
295: IF l_debug_on THEN
296: wsh_debug_sv.log(l_module_name, 'X_resultout',X_resultout);
297: wsh_debug_sv.pop(l_module_name);
298: END IF;
299: EXCEPTION
300:
293: END IF;
294:
295: IF l_debug_on THEN
296: wsh_debug_sv.log(l_module_name, 'X_resultout',X_resultout);
297: wsh_debug_sv.pop(l_module_name);
298: END IF;
299: EXCEPTION
300:
301: WHEN OTHERS THEN
300:
301: WHEN OTHERS THEN
302: X_resultout := 'COMPLETE:ERROR';
303: IF l_debug_on THEN
304: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
305: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
306: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
307: END IF;
308: RAISE;
301: WHEN OTHERS THEN
302: X_resultout := 'COMPLETE:ERROR';
303: IF l_debug_on THEN
304: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
305: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
306: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
307: END IF;
308: RAISE;
309: END Raise_Cancel_Event_WF;
302: X_resultout := 'COMPLETE:ERROR';
303: IF l_debug_on THEN
304: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
305: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
306: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
307: END IF;
308: RAISE;
309: END Raise_Cancel_Event_WF;
310:
340: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
341: --
342: IF l_debug_on IS NULL
343: THEN
344: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
345: END IF;
346: --
347: IF l_debug_on THEN
348: wsh_debug_sv.push(l_module_name, 'Raise_Close_Event_WF');
344: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
345: END IF;
346: --
347: IF l_debug_on THEN
348: wsh_debug_sv.push(l_module_name, 'Raise_Close_Event_WF');
349: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
350: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
351: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
352: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
345: END IF;
346: --
347: IF l_debug_on THEN
348: wsh_debug_sv.push(l_module_name, 'Raise_Close_Event_WF');
349: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
350: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
351: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
352: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
353: END IF;
346: --
347: IF l_debug_on THEN
348: wsh_debug_sv.push(l_module_name, 'Raise_Close_Event_WF');
349: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
350: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
351: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
352: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
353: END IF;
354:
347: IF l_debug_on THEN
348: wsh_debug_sv.push(l_module_name, 'Raise_Close_Event_WF');
349: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
350: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
351: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
352: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
353: END IF;
354:
355: IF ( P_funcmode = 'RUN' ) THEN
348: wsh_debug_sv.push(l_module_name, 'Raise_Close_Event_WF');
349: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
350: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
351: wsh_debug_sv.log(l_module_name, 'P_actid',P_actid);
352: wsh_debug_sv.log(l_module_name, 'P_funcmode',P_funcmode);
353: END IF;
354:
355: IF ( P_funcmode = 'RUN' ) THEN
356:
356:
357: l_Return_Status := WSH_UTIL_CORE.g_ret_sts_success;
358: Raise_Close_Event (P_item_type, P_item_key, l_Return_Status);
359: IF l_debug_on THEN
360: wsh_debug_sv.log (l_module_name, 'Return status after Raise_Close_Event ', l_Return_Status);
361: END IF;
362:
363: IF ( l_Return_Status = WSH_UTIL_CORE.g_ret_sts_success ) THEN
364: X_resultout := 'COMPLETE:SUCCESS';
367: END IF;
368: END IF;
369:
370: IF l_debug_on THEN
371: wsh_debug_sv.log(l_module_name, 'X_resultout',X_resultout);
372: wsh_debug_sv.pop(l_module_name);
373: END IF;
374: EXCEPTION
375:
368: END IF;
369:
370: IF l_debug_on THEN
371: wsh_debug_sv.log(l_module_name, 'X_resultout',X_resultout);
372: wsh_debug_sv.pop(l_module_name);
373: END IF;
374: EXCEPTION
375:
376: WHEN OTHERS THEN
375:
376: WHEN OTHERS THEN
377: X_resultout := 'COMPLETE:ERROR';
378: IF l_debug_on THEN
379: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
380: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
381: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
382: END IF;
383: RAISE;
376: WHEN OTHERS THEN
377: X_resultout := 'COMPLETE:ERROR';
378: IF l_debug_on THEN
379: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
380: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
381: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
382: END IF;
383: RAISE;
384: END Raise_Close_Event_WF;
377: X_resultout := 'COMPLETE:ERROR';
378: IF l_debug_on THEN
379: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
380: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
381: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
382: END IF;
383: RAISE;
384: END Raise_Close_Event_WF;
385:
417: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
418: --
419: IF l_debug_on IS NULL
420: THEN
421: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
422: END IF;
423: --
424: IF l_debug_on THEN
425: wsh_debug_sv.push(l_module_name, 'Send_Cbod_Success');
421: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
422: END IF;
423: --
424: IF l_debug_on THEN
425: wsh_debug_sv.push(l_module_name, 'Send_Cbod_Success');
426: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
427: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
428: END IF;
429:
422: END IF;
423: --
424: IF l_debug_on THEN
425: wsh_debug_sv.push(l_module_name, 'Send_Cbod_Success');
426: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
427: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
428: END IF;
429:
430: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_success;
423: --
424: IF l_debug_on THEN
425: wsh_debug_sv.push(l_module_name, 'Send_Cbod_Success');
426: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
427: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
428: END IF;
429:
430: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_success;
431:
435: 'SR',
436: l_txn_hist_record,
437: l_Return_Status);
438: IF l_debug_on THEN
439: wsh_debug_sv.log (l_module_name, 'Return status after Get_Txns_History ', l_Return_Status);
440: END IF;
441:
442: IF (l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
443: RAISE wsh_get_txns_hist_error;
443: RAISE wsh_get_txns_hist_error;
444: END IF;
445:
446: IF l_debug_on THEN
447: wsh_debug_sv.log (l_module_name, 'txn_history.Transaction Status ', l_txn_hist_record.transaction_status);
448: END IF;
449: -- Change the Event Name before calling Raise Event
450: -- R12.1.1 STANDALONE PROJECT
451: -- LSP PROJECT : consider LSP mode also.
459:
460: WSH_EXTERNAL_INTERFACE_SV.Raise_Event ( l_txn_hist_record, l_Cbod_Status, l_Return_Status );
461:
462: IF l_debug_on THEN
463: wsh_debug_sv.log (l_module_name, 'Return status after Raise_Event ', l_Return_Status);
464: END IF;
465:
466: IF (l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
467: RAISE wsh_raise_event_error;
467: RAISE wsh_raise_event_error;
468: END IF;
469:
470: IF l_debug_on THEN
471: wsh_debug_sv.pop(l_module_name);
472: END IF;
473: EXCEPTION
474: WHEN wsh_get_txns_hist_error THEN
475: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
473: EXCEPTION
474: WHEN wsh_get_txns_hist_error THEN
475: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
476: IF l_debug_on THEN
477: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_get_txns_hist_error has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
478: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_get_txns_hist_error');
479: END IF;
480:
481: WHEN wsh_raise_event_error THEN
474: WHEN wsh_get_txns_hist_error THEN
475: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
476: IF l_debug_on THEN
477: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_get_txns_hist_error has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
478: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_get_txns_hist_error');
479: END IF;
480:
481: WHEN wsh_raise_event_error THEN
482: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
480:
481: WHEN wsh_raise_event_error THEN
482: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
483: IF l_debug_on THEN
484: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_raise_event_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
485: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_raise_event_error');
486: END IF;
487:
488: WHEN OTHERS THEN
481: WHEN wsh_raise_event_error THEN
482: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
483: IF l_debug_on THEN
484: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_raise_event_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
485: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_raise_event_error');
486: END IF;
487:
488: WHEN OTHERS THEN
489: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
487:
488: WHEN OTHERS THEN
489: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
490: IF l_debug_on THEN
491: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
492: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
493: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
494: END IF;
495: END Send_Cbod_Success;
488: WHEN OTHERS THEN
489: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
490: IF l_debug_on THEN
491: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
492: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
493: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
494: END IF;
495: END Send_Cbod_Success;
496:
489: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
490: IF l_debug_on THEN
491: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
492: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
493: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
494: END IF;
495: END Send_Cbod_Success;
496:
497:
548: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
549: --
550: IF l_debug_on IS NULL
551: THEN
552: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
553: END IF;
554: --
555: IF l_debug_on THEN
556: wsh_debug_sv.push(l_module_name, 'Send_Cbod_Failure');
552: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
553: END IF;
554: --
555: IF l_debug_on THEN
556: wsh_debug_sv.push(l_module_name, 'Send_Cbod_Failure');
557: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
558: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
559: END IF;
560:
553: END IF;
554: --
555: IF l_debug_on THEN
556: wsh_debug_sv.push(l_module_name, 'Send_Cbod_Failure');
557: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
558: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
559: END IF;
560:
561: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_success;
554: --
555: IF l_debug_on THEN
556: wsh_debug_sv.push(l_module_name, 'Send_Cbod_Failure');
557: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
558: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
559: END IF;
560:
561: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_success;
562:
567: l_txn_hist_record,
568: l_Return_Status );
569:
570: IF l_debug_on THEN
571: wsh_debug_sv.log (l_module_name, 'Return status after Get_Txns_History ', l_Return_Status);
572: END IF;
573:
574: IF (l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
575: RAISE wsh_get_txns_hist_error;
578: -- Check if the error message is for the current WF or the Original WF
579: -- If the Status is populated with 'success' then it is for original instance
580: -- else it is for the current WF instance.
581: IF l_debug_on THEN
582: wsh_debug_sv.log (l_module_name, 'Transaction Status ', l_txn_hist_record.Transaction_Status);
583: wsh_debug_sv.log (l_module_name, 'Action Type ', l_txn_hist_record.Action_Type);
584: END IF;
585:
586: -- Before calling the Raise Event Update the l_txn_hist_record.Event_Name
579: -- If the Status is populated with 'success' then it is for original instance
580: -- else it is for the current WF instance.
581: IF l_debug_on THEN
582: wsh_debug_sv.log (l_module_name, 'Transaction Status ', l_txn_hist_record.Transaction_Status);
583: wsh_debug_sv.log (l_module_name, 'Action Type ', l_txn_hist_record.Action_Type);
584: END IF;
585:
586: -- Before calling the Raise Event Update the l_txn_hist_record.Event_Name
587: -- with appropriate value. Is this 'oracle.apps.wsh.tpw.scbod' ??
586: -- Before calling the Raise Event Update the l_txn_hist_record.Event_Name
587: -- with appropriate value. Is this 'oracle.apps.wsh.tpw.scbod' ??
588:
589: IF l_debug_on THEN
590: wsh_debug_sv.log (l_module_name, 'Before Calling the Raise_Event ', l_Cbod_Status);
591: END IF;
592: -- Change the Event Name before calling Raise Event
593: -- R12.1.1 STANDALONE PROJECT
594: -- LSP PROJECT : consider LSP mode also.
607: l_txn_hist_record.Internal_Control_Number;
608: IF ( l_txn_hist_cur % NOTFOUND )THEN
609: CLOSE l_txn_hist_cur;
610: IF l_debug_on THEN
611: wsh_debug_sv.log (l_module_name, 'No data found ');
612: END IF;
613: RAISE wsh_orig_txns_hist_error;
614: END IF;
615: CLOSE l_txn_hist_cur;
623: -- Call Raise Event procedure to raise the appropriate event.
624: WSH_EXTERNAL_INTERFACE_SV.Raise_Event ( l_txn_hist_record, l_Cbod_Status, l_Return_Status );
625:
626: IF l_debug_on THEN
627: wsh_debug_sv.log (l_module_name, 'After calling the Raise_Event, Status ', l_Return_Status);
628: END IF;
629:
630: IF (l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
631: RAISE wsh_raise_event_error;
631: RAISE wsh_raise_event_error;
632: END IF;
633:
634: IF l_debug_on THEN
635: wsh_debug_sv.pop(l_module_name);
636: END IF;
637: EXCEPTION
638: WHEN wsh_get_txns_hist_error THEN
639: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
637: EXCEPTION
638: WHEN wsh_get_txns_hist_error THEN
639: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
640: IF l_debug_on THEN
641: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_get_txns_hist_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
642: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_get_txns_hist_error');
643: END IF;
644:
645: WHEN wsh_orig_txns_hist_error THEN
638: WHEN wsh_get_txns_hist_error THEN
639: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
640: IF l_debug_on THEN
641: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_get_txns_hist_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
642: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_get_txns_hist_error');
643: END IF;
644:
645: WHEN wsh_orig_txns_hist_error THEN
646: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
644:
645: WHEN wsh_orig_txns_hist_error THEN
646: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
647: IF l_debug_on THEN
648: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_orig_txns_hist_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
649: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_orig_txns_hist_error');
650: END IF;
651:
652: WHEN wsh_raise_event_error THEN
645: WHEN wsh_orig_txns_hist_error THEN
646: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
647: IF l_debug_on THEN
648: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_orig_txns_hist_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
649: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_orig_txns_hist_error');
650: END IF;
651:
652: WHEN wsh_raise_event_error THEN
653: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
651:
652: WHEN wsh_raise_event_error THEN
653: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
654: IF l_debug_on THEN
655: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_raise_event_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
656: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_raise_event_error');
657: END IF;
658:
659: WHEN OTHERS THEN
652: WHEN wsh_raise_event_error THEN
653: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
654: IF l_debug_on THEN
655: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_raise_event_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
656: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_raise_event_error');
657: END IF;
658:
659: WHEN OTHERS THEN
660: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
658:
659: WHEN OTHERS THEN
660: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
661: IF l_debug_on THEN
662: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
663: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
664: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
665: END IF;
666: END Send_Cbod_Failure;
659: WHEN OTHERS THEN
660: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
661: IF l_debug_on THEN
662: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
663: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
664: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
665: END IF;
666: END Send_Cbod_Failure;
667:
660: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
661: IF l_debug_on THEN
662: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
663: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
664: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
665: END IF;
666: END Send_Cbod_Failure;
667:
668:
756: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
757: --
758: IF l_debug_on IS NULL
759: THEN
760: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
761: END IF;
762: --
763: IF l_debug_on THEN
764: wsh_debug_sv.push(l_module_name, 'Check_Cancel_Allowed');
760: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
761: END IF;
762: --
763: IF l_debug_on THEN
764: wsh_debug_sv.push(l_module_name, 'Check_Cancel_Allowed');
765: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
766: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
767: END IF;
768:
761: END IF;
762: --
763: IF l_debug_on THEN
764: wsh_debug_sv.push(l_module_name, 'Check_Cancel_Allowed');
765: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
766: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
767: END IF;
768:
769:
762: --
763: IF l_debug_on THEN
764: wsh_debug_sv.push(l_module_name, 'Check_Cancel_Allowed');
765: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
766: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
767: END IF;
768:
769:
770: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_success;
782: l_txn_hist_record,
783: l_Return_Status );
784:
785: IF l_debug_on THEN
786: wsh_debug_sv.log (l_module_name, 'Return status after Get_Txns_History ', l_Return_Status);
787: END IF;
788:
789: IF (l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
790: RAISE wsh_get_txns_hist_error;
802: l_New_Del_Interface_ID := to_number(l_txn_hist_record.Entity_Number);
803:
804:
805: IF l_debug_on THEN
806: wsh_debug_sv.log (l_module_name, 'Delivery Interface ID' , l_New_Del_Interface_ID);
807: END IF;
808:
809: -- Get the Transaction Record for the Original transaction (which has addition)
810: OPEN l_orig_txn_hist_cur (l_txn_hist_record.Orig_Document_Number, l_txn_hist_record.Trading_Partner_ID);
813:
814: IF ( l_orig_txn_hist_cur % NOTFOUND ) THEN
815: CLOSE l_orig_txn_hist_cur;
816: IF l_debug_on THEN
817: wsh_debug_sv.log (l_module_name, 'Original Record Not Found ');
818: END IF;
819: RAISE wsh_orig_txns_hist_error;
820: END IF;
821: CLOSE l_orig_txn_hist_cur;
820: END IF;
821: CLOSE l_orig_txn_hist_cur;
822:
823: IF l_debug_on THEN
824: wsh_debug_sv.log (l_module_name, 'Txn Status for original record ', l_Orig_Transaction_Status);
825: END IF;
826:
827: -- R12.1.1 STANDALONE PROJECT
828: -- LSP PROJECT : consider LSP mode also.
831: WSH_TRANSACTIONS_HISTORY_PKG.Create_Update_Txns_History ( l_txn_hist_record,
832: l_txn_hist_record.transaction_id,
833: l_Return_Status );
834: IF l_debug_on THEN
835: wsh_debug_sv.log (l_module_name, 'Return status after Create_Update_Txns_History ', l_Return_Status);
836: END IF;
837: IF ( l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
838: RAISE wsh_update_history;
839: END IF;
840:
841: WSH_PROCESS_INTERFACED_PKG.delete_interface_records ( l_New_Del_Interface_ID,
842: l_Return_Status );
843: IF l_debug_on THEN
844: wsh_debug_sv.log (l_module_name, 'Return status after delete_interface_records ', l_Return_Status);
845: END IF;
846:
847: IF ( l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
848: RAISE wsh_del_interface_rec;
853: --Bugfix 4070732 {
854: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
855: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
856: IF l_debug_on THEN
857: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
858: END IF;
859:
860: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
861: x_return_status => l_return_status);
860: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
861: x_return_status => l_return_status);
862:
863: IF l_debug_on THEN
864: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
865: END IF;
866:
867: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
868: x_return_status := l_return_status;
873: --}
874: -- End of bug 4070732
875:
876: IF l_debug_on THEN
877: wsh_debug_sv.pop(l_module_name);
878: END IF;
879: RETURN;
880: ELSIF ( l_Orig_Transaction_Status = 'ER' ) THEN
881:
881:
882: WSH_PROCESS_INTERFACED_PKG.delete_interface_records ( l_New_Del_Interface_ID,
883: l_Return_Status );
884: IF l_debug_on THEN
885: wsh_debug_sv.log (l_module_name, 'Return status after delete_interface_records ', l_Return_Status);
886: END IF;
887:
888: IF ( l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
889: RAISE wsh_del_interface_rec;
893: WSH_TRANSACTIONS_HISTORY_PKG.Create_Update_Txns_History ( l_txn_hist_record,
894: l_txn_hist_record.transaction_id,
895: l_Return_Status );
896: IF l_debug_on THEN
897: wsh_debug_sv.log (l_module_name, 'Return status after Create_Update_Txns_History ', l_Return_Status);
898: END IF;
899: IF ( l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
900: RAISE wsh_update_history;
901: END IF;
903: --Bugfix 4070732 {
904: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
905: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
906: IF l_debug_on THEN
907: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
908: END IF;
909:
910: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
911: x_return_status => l_return_status);
910: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
911: x_return_status => l_return_status);
912:
913: IF l_debug_on THEN
914: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
915: END IF;
916:
917: IF (
918: ( l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR )
934: --}
935: -- End of bug 4070732
936:
937: IF l_debug_on THEN
938: wsh_debug_sv.pop(l_module_name);
939: END IF;
940: RETURN;
941:
942: END IF;
944: OPEN l_new_del_status_cur (l_Orig_Entity_Number, l_Orig_Trading_Partner_ID);
945: FETCH l_new_del_status_cur INTO l_new_del_status, l_Delivery_ID;
946: IF (l_new_del_status_cur % NOTFOUND) THEN
947: IF l_debug_on THEN
948: wsh_debug_sv.log (l_module_name, 'No data found for l_new_del_status_cur');
949: END IF;
950: CLOSE l_new_del_status_cur;
951: RAISE wsh_invalid_delivery_no;
952: END IF;
952: END IF;
953: CLOSE l_new_del_status_cur;
954:
955: IF l_debug_on THEN
956: wsh_debug_sv.log (l_module_name, 'Delivery Name' , l_txn_hist_record.entity_number);
957: wsh_debug_sv.log (l_module_name, 'Delivery Status' , l_new_del_status);
958: END IF;
959:
960: IF ( l_new_del_status IN ('CL', 'IT', 'CO') ) THEN
953: CLOSE l_new_del_status_cur;
954:
955: IF l_debug_on THEN
956: wsh_debug_sv.log (l_module_name, 'Delivery Name' , l_txn_hist_record.entity_number);
957: wsh_debug_sv.log (l_module_name, 'Delivery Status' , l_new_del_status);
958: END IF;
959:
960: IF ( l_new_del_status IN ('CL', 'IT', 'CO') ) THEN
961: l_txn_hist_record.transaction_status := 'ER';
962: WSH_TRANSACTIONS_HISTORY_PKG.Create_Update_Txns_History ( l_txn_hist_record,
963: l_txn_hist_record.transaction_id,
964: l_Return_Status );
965: IF l_debug_on THEN
966: wsh_debug_sv.log (l_module_name, 'Return status after Create_Update_Txns_History ', l_Return_Status);
967: END IF;
968: IF ( l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
969: RAISE wsh_update_history;
970: END IF;
975: --Bugfix 4070732 {
976: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
977: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
978: IF l_debug_on THEN
979: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
980: END IF;
981:
982: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
983: x_return_status => l_return_status);
983: x_return_status => l_return_status);
984:
985:
986: IF l_debug_on THEN
987: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
988: END IF;
989:
990: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
991: x_return_status := l_return_status;
996: --}
997: -- End of bug 4070732
998:
999: IF l_debug_on THEN
1000: wsh_debug_sv.pop(l_module_name);
1001: END IF;
1002: RETURN;
1003: END IF;
1004:
1002: RETURN;
1003: END IF;
1004:
1005: IF l_debug_on THEN
1006: wsh_debug_sv.log (l_module_name, 'New Delivery Interface ID' , l_new_del_interface_id);
1007: wsh_debug_sv.log (l_module_name, 'Delivery ID' , l_delivery_id);
1008: END IF;
1009:
1010: WSH_INTERFACE_COMMON_ACTIONS.Delivery_Interface_Wrapper (l_New_Del_Interface_ID,
1003: END IF;
1004:
1005: IF l_debug_on THEN
1006: wsh_debug_sv.log (l_module_name, 'New Delivery Interface ID' , l_new_del_interface_id);
1007: wsh_debug_sv.log (l_module_name, 'Delivery ID' , l_delivery_id);
1008: END IF;
1009:
1010: WSH_INTERFACE_COMMON_ACTIONS.Delivery_Interface_Wrapper (l_New_Del_Interface_ID,
1011: 'CANCEL',
1012: l_Delivery_ID,
1013: l_Return_Status );
1014:
1015: IF l_debug_on THEN
1016: wsh_debug_sv.log (l_module_name, 'Return status after Delivery_Interface_Wrapper ', l_Return_Status);
1017: END IF;
1018:
1019: IF ( l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
1020: RAISE wsh_del_interface_wrapper;
1025: l_txn_hist_record.transaction_id,
1026: l_Return_Status );
1027:
1028: IF l_debug_on THEN
1029: wsh_debug_sv.log (l_module_name, 'Return status after Create_Update_Txns_History ', l_Return_Status);
1030: END IF;
1031:
1032: IF (l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
1033: RAISE wsh_update_history;
1036: WSH_PROCESS_INTERFACED_PKG.delete_interface_records ( l_New_Del_Interface_ID,
1037: l_Return_Status );
1038:
1039: IF l_debug_on THEN
1040: wsh_debug_sv.log (l_module_name, 'Return status after delete_interface_records ', l_Return_Status);
1041: END IF;
1042:
1043: IF ( l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
1044: RAISE wsh_del_interface_rec;
1053: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1054: --{
1055:
1056: IF l_debug_on THEN
1057: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1058: END IF;
1059:
1060: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
1061: x_return_status => l_return_status);
1060: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
1061: x_return_status => l_return_status);
1062:
1063: IF l_debug_on THEN
1064: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1065: END IF;
1066:
1067: IF (
1068: ( l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR )
1086: END IF;
1087: --bug 4070732
1088:
1089: IF l_debug_on THEN
1090: wsh_debug_sv.pop(l_module_name);
1091: END IF;
1092:
1093: EXCEPTION
1094: WHEN wsh_invalid_item_key THEN
1097: --Bugfix 4070732 {
1098: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1099: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1100: IF l_debug_on THEN
1101: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1102: END IF;
1103:
1104: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1105: x_return_status => l_return_status);
1109: END IF;
1110:
1111:
1112: IF l_debug_on THEN
1113: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1114: END IF;
1115:
1116: END IF;
1117: END IF;
1118: --}
1119: -- End of bug 383969
1120:
1121: IF l_debug_on THEN
1122: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_item_key exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1123: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_item_key');
1124: END IF;
1125:
1126: WHEN wsh_get_txns_hist_error THEN
1119: -- End of bug 383969
1120:
1121: IF l_debug_on THEN
1122: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_item_key exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1123: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_item_key');
1124: END IF;
1125:
1126: WHEN wsh_get_txns_hist_error THEN
1127: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1128: --Bugfix 4070732 {
1129: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1130: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1131: IF l_debug_on THEN
1132: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1133: END IF;
1134:
1135: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1136: x_return_status => l_return_status);
1136: x_return_status => l_return_status);
1137:
1138:
1139: IF l_debug_on THEN
1140: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1141: END IF;
1142:
1143: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1144: x_return_status := l_return_status;
1149: --}
1150: -- End of bug 383969
1151:
1152: IF l_debug_on THEN
1153: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_get_txns_hist_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1154: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_get_txns_hist_error');
1155: END IF;
1156:
1157: WHEN wsh_orig_txns_hist_error THEN
1150: -- End of bug 383969
1151:
1152: IF l_debug_on THEN
1153: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_get_txns_hist_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1154: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_get_txns_hist_error');
1155: END IF;
1156:
1157: WHEN wsh_orig_txns_hist_error THEN
1158: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1159: --Bugfix 4070732 {
1160: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1161: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1162: IF l_debug_on THEN
1163: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1164: END IF;
1165:
1166: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1167: x_return_status => l_return_status);
1167: x_return_status => l_return_status);
1168:
1169:
1170: IF l_debug_on THEN
1171: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1172: END IF;
1173:
1174: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1175: x_return_status := l_return_status;
1179: --}
1180: -- End of bug 383969
1181:
1182: IF l_debug_on THEN
1183: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_orig_txns_hist_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1184: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_orig_txns_hist_error');
1185: END IF;
1186:
1187: WHEN wsh_update_history THEN
1180: -- End of bug 383969
1181:
1182: IF l_debug_on THEN
1183: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_orig_txns_hist_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1184: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_orig_txns_hist_error');
1185: END IF;
1186:
1187: WHEN wsh_update_history THEN
1188: X_return_status := WSH_UTIL_CORE.g_ret_sts_error;
1190: --Bugfix 4070732 {
1191: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1192: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1193: IF l_debug_on THEN
1194: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1195: END IF;
1196:
1197: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1198: x_return_status => l_return_status);
1198: x_return_status => l_return_status);
1199:
1200:
1201: IF l_debug_on THEN
1202: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1203: END IF;
1204:
1205: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1206: x_return_status := l_return_status;
1211: --}
1212: -- End of bug 383969
1213:
1214: IF l_debug_on THEN
1215: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_update_history exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1216: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_update_history');
1217: END IF;
1218:
1219: WHEN wsh_del_interface_rec THEN
1212: -- End of bug 383969
1213:
1214: IF l_debug_on THEN
1215: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_update_history exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1216: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_update_history');
1217: END IF;
1218:
1219: WHEN wsh_del_interface_rec THEN
1220: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1222: --Bugfix 4070732 {
1223: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1224: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1225: IF l_debug_on THEN
1226: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1227: END IF;
1228:
1229: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1230: x_return_status => l_return_status);
1234: END IF;
1235:
1236:
1237: IF l_debug_on THEN
1238: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1239: END IF;
1240:
1241: END IF;
1242: END IF;
1243: --}
1244: -- End of bug 383969
1245:
1246: IF l_debug_on THEN
1247: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_del_interface_rec exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1248: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_del_interface_rec');
1249: END IF;
1250:
1251: WHEN wsh_invalid_delivery_no THEN
1244: -- End of bug 383969
1245:
1246: IF l_debug_on THEN
1247: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_del_interface_rec exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1248: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_del_interface_rec');
1249: END IF;
1250:
1251: WHEN wsh_invalid_delivery_no THEN
1252: X_return_status := WSH_UTIL_CORE.g_ret_sts_error;
1254: --Bugfix 4070732 {
1255: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1256: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1257: IF l_debug_on THEN
1258: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1259: END IF;
1260:
1261: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1262: x_return_status => l_return_status);
1262: x_return_status => l_return_status);
1263:
1264:
1265: IF l_debug_on THEN
1266: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1267: END IF;
1268:
1269: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1270: x_return_status := l_return_status;
1275: --}
1276: -- End of bug 383969
1277:
1278: IF l_debug_on THEN
1279: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_delivery_no exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1280: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_delivery_no');
1281: END IF;
1282:
1283: WHEN wsh_del_interface_wrapper THEN
1276: -- End of bug 383969
1277:
1278: IF l_debug_on THEN
1279: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_delivery_no exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1280: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_delivery_no');
1281: END IF;
1282:
1283: WHEN wsh_del_interface_wrapper THEN
1284: l_txn_hist_record.transaction_status := 'ER';
1294: --Bugfix 4070732 {
1295: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1296: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1297: IF l_debug_on THEN
1298: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1299: END IF;
1300:
1301: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1302: x_return_status => l_return_status);
1302: x_return_status => l_return_status);
1303:
1304:
1305: IF l_debug_on THEN
1306: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1307: END IF;
1308:
1309: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1310: x_return_status := l_return_status;
1315: --}
1316: -- End of bug 383969
1317:
1318: IF l_debug_on THEN
1319: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_del_interface_wrapper exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1320: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_del_interface_wrapper');
1321: END IF;
1322:
1323: WHEN OTHERS THEN
1316: -- End of bug 383969
1317:
1318: IF l_debug_on THEN
1319: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_del_interface_wrapper exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1320: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_del_interface_wrapper');
1321: END IF;
1322:
1323: WHEN OTHERS THEN
1324: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
1326: --Bugfix 4070732 {
1327: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1328: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1329: IF l_debug_on THEN
1330: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1331: END IF;
1332:
1333: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1334: x_return_status => l_return_status);
1334: x_return_status => l_return_status);
1335:
1336:
1337: IF l_debug_on THEN
1338: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1339: END IF;
1340:
1341: END IF;
1342: END IF;
1343: --}
1344: -- End of bug 383969
1345:
1346: IF l_debug_on THEN
1347: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1348: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1349: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1350: END IF;
1351: END Check_Cancel_Allowed;
1344: -- End of bug 383969
1345:
1346: IF l_debug_on THEN
1347: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1348: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1349: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1350: END IF;
1351: END Check_Cancel_Allowed;
1352:
1345:
1346: IF l_debug_on THEN
1347: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1348: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1349: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1350: END IF;
1351: END Check_Cancel_Allowed;
1352:
1353:
1431: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1432: --
1433: IF l_debug_on IS NULL
1434: THEN
1435: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1436: END IF;
1437: --
1438: IF l_debug_on THEN
1439: wsh_debug_sv.push(l_module_name, 'Raise_Cancel_Event');
1435: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1436: END IF;
1437: --
1438: IF l_debug_on THEN
1439: wsh_debug_sv.push(l_module_name, 'Raise_Cancel_Event');
1440: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
1441: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
1442: END IF;
1443:
1436: END IF;
1437: --
1438: IF l_debug_on THEN
1439: wsh_debug_sv.push(l_module_name, 'Raise_Cancel_Event');
1440: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
1441: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
1442: END IF;
1443:
1444: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_success;
1437: --
1438: IF l_debug_on THEN
1439: wsh_debug_sv.push(l_module_name, 'Raise_Cancel_Event');
1440: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
1441: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
1442: END IF;
1443:
1444: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_success;
1445:
1447: FETCH l_txn_hist_cur
1448: INTO l_orig_txn_hist_record;
1449: IF ( l_txn_hist_cur % NOTFOUND ) THEN
1450: IF l_debug_on THEN
1451: wsh_debug_sv.log (l_module_name, 'No data found for l_txn_hist_cur ');
1452: END IF;
1453:
1454: CLOSE l_txn_hist_cur;
1455: RAISE wsh_orig_txns_hist_error;
1457: CLOSE l_txn_hist_cur;
1458:
1459: l_orig_txn_hist_record.Event_Name := 'oracle.apps.wsh.tpw.spwf';
1460: IF l_debug_on THEN
1461: wsh_debug_sv.log (l_module_name, 'Before Raise_Event : Event Name ' , l_orig_txn_hist_record.Event_Name);
1462: wsh_debug_sv.log (l_module_name, 'Event key ' , l_orig_txn_hist_record.Event_Key);
1463: END IF;
1464: WSH_EXTERNAL_INTERFACE_SV.Raise_Event ( l_orig_txn_hist_record,
1465: NULL,
1458:
1459: l_orig_txn_hist_record.Event_Name := 'oracle.apps.wsh.tpw.spwf';
1460: IF l_debug_on THEN
1461: wsh_debug_sv.log (l_module_name, 'Before Raise_Event : Event Name ' , l_orig_txn_hist_record.Event_Name);
1462: wsh_debug_sv.log (l_module_name, 'Event key ' , l_orig_txn_hist_record.Event_Key);
1463: END IF;
1464: WSH_EXTERNAL_INTERFACE_SV.Raise_Event ( l_orig_txn_hist_record,
1465: NULL,
1466: l_Return_Status );
1465: NULL,
1466: l_Return_Status );
1467:
1468: IF l_debug_on THEN
1469: wsh_debug_sv.log (l_module_name, 'Return status after Raise_Event ', l_Return_Status);
1470: END IF;
1471:
1472: IF (l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
1473: RAISE wsh_raise_event_error;
1473: RAISE wsh_raise_event_error;
1474: END IF;
1475:
1476: IF l_debug_on THEN
1477: wsh_debug_sv.pop(l_module_name);
1478: END IF;
1479: EXCEPTION
1480: WHEN wsh_orig_txns_hist_error THEN
1481: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1479: EXCEPTION
1480: WHEN wsh_orig_txns_hist_error THEN
1481: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1482: IF l_debug_on THEN
1483: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_orig_txns_hist_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1484: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_orig_txns_hist_error');
1485: END IF;
1486:
1487: WHEN wsh_raise_event_error THEN
1480: WHEN wsh_orig_txns_hist_error THEN
1481: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1482: IF l_debug_on THEN
1483: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_orig_txns_hist_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1484: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_orig_txns_hist_error');
1485: END IF;
1486:
1487: WHEN wsh_raise_event_error THEN
1488: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1486:
1487: WHEN wsh_raise_event_error THEN
1488: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1489: IF l_debug_on THEN
1490: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_raise_event_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1491: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_raise_event_error');
1492: END IF;
1493:
1494: WHEN OTHERS THEN
1487: WHEN wsh_raise_event_error THEN
1488: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1489: IF l_debug_on THEN
1490: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_raise_event_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1491: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_raise_event_error');
1492: END IF;
1493:
1494: WHEN OTHERS THEN
1495: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
1493:
1494: WHEN OTHERS THEN
1495: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
1496: IF l_debug_on THEN
1497: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1498: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1499: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1500: END IF;
1501: END Raise_Cancel_Event;
1494: WHEN OTHERS THEN
1495: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
1496: IF l_debug_on THEN
1497: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1498: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1499: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1500: END IF;
1501: END Raise_Cancel_Event;
1502:
1495: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
1496: IF l_debug_on THEN
1497: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1498: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1499: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1500: END IF;
1501: END Raise_Cancel_Event;
1502:
1503: -- R12.1.1 STANDALONE PROJECT
1587: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1588: --
1589: IF l_debug_on IS NULL
1590: THEN
1591: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1592: END IF;
1593: --
1594: IF l_debug_on THEN
1595: wsh_debug_sv.push(l_module_name, 'Raise_Close_Event');
1591: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1592: END IF;
1593: --
1594: IF l_debug_on THEN
1595: wsh_debug_sv.push(l_module_name, 'Raise_Close_Event');
1596: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
1597: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
1598: END IF;
1599:
1592: END IF;
1593: --
1594: IF l_debug_on THEN
1595: wsh_debug_sv.push(l_module_name, 'Raise_Close_Event');
1596: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
1597: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
1598: END IF;
1599:
1600: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_success;
1593: --
1594: IF l_debug_on THEN
1595: wsh_debug_sv.push(l_module_name, 'Raise_Close_Event');
1596: wsh_debug_sv.log(l_module_name, 'P_item_type',P_item_type);
1597: wsh_debug_sv.log(l_module_name, 'P_item_key',P_item_key);
1598: END IF;
1599:
1600: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_success;
1601:
1603:
1604: l_orig_txn_hist_record.Event_Name := 'oracle.apps.wsh.standalone.spwf';
1605:
1606: IF l_debug_on THEN
1607: wsh_debug_sv.log (l_module_name, 'Before Raise_Event : Event Name ' , l_orig_txn_hist_record.Event_Name);
1608: wsh_debug_sv.log (l_module_name, 'Event key ' , l_orig_txn_hist_record.Event_Key);
1609: END IF;
1610:
1611: WSH_EXTERNAL_INTERFACE_SV.Raise_Event ( l_orig_txn_hist_record,
1604: l_orig_txn_hist_record.Event_Name := 'oracle.apps.wsh.standalone.spwf';
1605:
1606: IF l_debug_on THEN
1607: wsh_debug_sv.log (l_module_name, 'Before Raise_Event : Event Name ' , l_orig_txn_hist_record.Event_Name);
1608: wsh_debug_sv.log (l_module_name, 'Event key ' , l_orig_txn_hist_record.Event_Key);
1609: END IF;
1610:
1611: WSH_EXTERNAL_INTERFACE_SV.Raise_Event ( l_orig_txn_hist_record,
1612: NULL,
1612: NULL,
1613: l_Return_Status );
1614:
1615: IF l_debug_on THEN
1616: wsh_debug_sv.log (l_module_name, 'Return status after Raise_Event ', l_Return_Status);
1617: END IF;
1618:
1619: IF (l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
1620: RAISE wsh_raise_event_error;
1624:
1625: COMMIT;
1626:
1627: IF l_debug_on THEN
1628: wsh_debug_sv.pop(l_module_name);
1629: END IF;
1630: EXCEPTION
1631: WHEN wsh_orig_txns_hist_error THEN
1632: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1630: EXCEPTION
1631: WHEN wsh_orig_txns_hist_error THEN
1632: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1633: IF l_debug_on THEN
1634: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_orig_txns_hist_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1635: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_orig_txns_hist_error');
1636: END IF;
1637:
1638: WHEN wsh_raise_event_error THEN
1631: WHEN wsh_orig_txns_hist_error THEN
1632: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1633: IF l_debug_on THEN
1634: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_orig_txns_hist_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1635: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_orig_txns_hist_error');
1636: END IF;
1637:
1638: WHEN wsh_raise_event_error THEN
1639: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1637:
1638: WHEN wsh_raise_event_error THEN
1639: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1640: IF l_debug_on THEN
1641: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_raise_event_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1642: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_raise_event_error');
1643: END IF;
1644:
1645: WHEN OTHERS THEN
1638: WHEN wsh_raise_event_error THEN
1639: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1640: IF l_debug_on THEN
1641: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_raise_event_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1642: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_raise_event_error');
1643: END IF;
1644:
1645: WHEN OTHERS THEN
1646: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
1644:
1645: WHEN OTHERS THEN
1646: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
1647: IF l_debug_on THEN
1648: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1649: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1650: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1651: END IF;
1652: END Raise_Close_Event;
1645: WHEN OTHERS THEN
1646: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
1647: IF l_debug_on THEN
1648: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1649: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1650: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1651: END IF;
1652: END Raise_Close_Event;
1653:
1646: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
1647: IF l_debug_on THEN
1648: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1649: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1650: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1651: END IF;
1652: END Raise_Close_Event;
1653:
1654: /*===========================================================================
1769: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1770: --
1771: IF l_debug_on IS NULL
1772: THEN
1773: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1774: END IF;
1775: --
1776: IF l_debug_on THEN
1777: wsh_debug_sv.push(l_module_name, 'Send_Shipment_Advice');
1773: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1774: END IF;
1775: --
1776: IF l_debug_on THEN
1777: wsh_debug_sv.push(l_module_name, 'Send_Shipment_Advice');
1778: wsh_debug_sv.log (l_module_name, 'P_Entity_ID ', P_Entity_ID);
1779: wsh_debug_sv.log (l_module_name, 'P_Entity_Type ', P_Entity_Type);
1780: wsh_debug_sv.log (l_module_name, 'P_Action_Type ', P_Action_Type);
1781: wsh_debug_sv.log (l_module_name, 'P_Document_Type ', P_Document_Type);
1774: END IF;
1775: --
1776: IF l_debug_on THEN
1777: wsh_debug_sv.push(l_module_name, 'Send_Shipment_Advice');
1778: wsh_debug_sv.log (l_module_name, 'P_Entity_ID ', P_Entity_ID);
1779: wsh_debug_sv.log (l_module_name, 'P_Entity_Type ', P_Entity_Type);
1780: wsh_debug_sv.log (l_module_name, 'P_Action_Type ', P_Action_Type);
1781: wsh_debug_sv.log (l_module_name, 'P_Document_Type ', P_Document_Type);
1782: wsh_debug_sv.log (l_module_name, 'P_Org_ID ', P_Org_ID);
1775: --
1776: IF l_debug_on THEN
1777: wsh_debug_sv.push(l_module_name, 'Send_Shipment_Advice');
1778: wsh_debug_sv.log (l_module_name, 'P_Entity_ID ', P_Entity_ID);
1779: wsh_debug_sv.log (l_module_name, 'P_Entity_Type ', P_Entity_Type);
1780: wsh_debug_sv.log (l_module_name, 'P_Action_Type ', P_Action_Type);
1781: wsh_debug_sv.log (l_module_name, 'P_Document_Type ', P_Document_Type);
1782: wsh_debug_sv.log (l_module_name, 'P_Org_ID ', P_Org_ID);
1783: END IF;
1776: IF l_debug_on THEN
1777: wsh_debug_sv.push(l_module_name, 'Send_Shipment_Advice');
1778: wsh_debug_sv.log (l_module_name, 'P_Entity_ID ', P_Entity_ID);
1779: wsh_debug_sv.log (l_module_name, 'P_Entity_Type ', P_Entity_Type);
1780: wsh_debug_sv.log (l_module_name, 'P_Action_Type ', P_Action_Type);
1781: wsh_debug_sv.log (l_module_name, 'P_Document_Type ', P_Document_Type);
1782: wsh_debug_sv.log (l_module_name, 'P_Org_ID ', P_Org_ID);
1783: END IF;
1784:
1777: wsh_debug_sv.push(l_module_name, 'Send_Shipment_Advice');
1778: wsh_debug_sv.log (l_module_name, 'P_Entity_ID ', P_Entity_ID);
1779: wsh_debug_sv.log (l_module_name, 'P_Entity_Type ', P_Entity_Type);
1780: wsh_debug_sv.log (l_module_name, 'P_Action_Type ', P_Action_Type);
1781: wsh_debug_sv.log (l_module_name, 'P_Document_Type ', P_Document_Type);
1782: wsh_debug_sv.log (l_module_name, 'P_Org_ID ', P_Org_ID);
1783: END IF;
1784:
1785: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_success;
1778: wsh_debug_sv.log (l_module_name, 'P_Entity_ID ', P_Entity_ID);
1779: wsh_debug_sv.log (l_module_name, 'P_Entity_Type ', P_Entity_Type);
1780: wsh_debug_sv.log (l_module_name, 'P_Action_Type ', P_Action_Type);
1781: wsh_debug_sv.log (l_module_name, 'P_Document_Type ', P_Document_Type);
1782: wsh_debug_sv.log (l_module_name, 'P_Org_ID ', P_Org_ID);
1783: END IF;
1784:
1785: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_success;
1786:
1797: P_Org_ID);
1798: FETCH l_new_del_status_cur INTO l_Del_Name, l_new_del_status,l_client_id; -- LSP PROJECT
1799:
1800: IF l_debug_on THEN
1801: wsh_debug_sv.log (l_module_name, 'Delivery Name' , l_Del_Name);
1802: wsh_debug_sv.log (l_module_name, 'Delivery Status' , l_new_del_status);
1803: wsh_debug_sv.log (l_module_name, 'Client Id' , l_client_id); -- LSP PROJECT
1804: END IF;
1805:
1798: FETCH l_new_del_status_cur INTO l_Del_Name, l_new_del_status,l_client_id; -- LSP PROJECT
1799:
1800: IF l_debug_on THEN
1801: wsh_debug_sv.log (l_module_name, 'Delivery Name' , l_Del_Name);
1802: wsh_debug_sv.log (l_module_name, 'Delivery Status' , l_new_del_status);
1803: wsh_debug_sv.log (l_module_name, 'Client Id' , l_client_id); -- LSP PROJECT
1804: END IF;
1805:
1806: IF (l_new_del_status_cur % NOTFOUND) THEN
1799:
1800: IF l_debug_on THEN
1801: wsh_debug_sv.log (l_module_name, 'Delivery Name' , l_Del_Name);
1802: wsh_debug_sv.log (l_module_name, 'Delivery Status' , l_new_del_status);
1803: wsh_debug_sv.log (l_module_name, 'Client Id' , l_client_id); -- LSP PROJECT
1804: END IF;
1805:
1806: IF (l_new_del_status_cur % NOTFOUND) THEN
1807: IF l_debug_on THEN
1804: END IF;
1805:
1806: IF (l_new_del_status_cur % NOTFOUND) THEN
1807: IF l_debug_on THEN
1808: wsh_debug_sv.log (l_module_name, 'No Data found for l_new_del_status_cur');
1809: END IF;
1810: CLOSE l_new_del_status_cur;
1811: RAISE wsh_invalid_delivery_id;
1812: END IF;
1827: OPEN l_del_details_cur (P_Entity_ID, P_Org_ID);
1828: FETCH l_del_details_cur INTO l_del_detail_x;
1829: CLOSE l_del_details_cur;
1830: IF l_debug_on THEN
1831: wsh_debug_sv.log (l_module_name, 'Value of l_del_details_cur ' , l_del_detail_x);
1832: END IF;
1833: IF (NVL (l_del_detail_x, '-') <> 'X') THEN
1834: RAISE wsh_del_details_error;
1835: END IF;
1836:
1837: OPEN get_delivery_details(p_entity_id);
1838: FETCH get_delivery_details INTO l_delivery_details;
1839: IF l_debug_on THEN
1840: wsh_debug_sv.log (l_module_name, 'Value of l_delivery_details' ,l_delivery_details);
1841: END IF;
1842: CLOSE get_delivery_details;
1843:
1844: IF (NVL (l_delivery_details, '-') = 'X') THEN
1851: fetch l_check_resend_cur into l_txn_Status;
1852: close l_check_resend_cur;
1853:
1854: IF l_debug_on THEN
1855: wsh_debug_sv.log (l_module_name, 'Outbound Transaction Status' , l_txn_Status);
1856: END IF;
1857: if ( nvl(l_txn_Status, 'ER') <> 'ER' ) THEN
1858: raise wsh_sa_resend_error;
1859: end if;
1861: -- R12.1.1 STANDALONE PROJECT
1862: -- LSP PROJECT : consider LSP mode also.
1863: IF (l_wms_deployment_mode = 'D' OR (l_wms_deployment_mode = 'L' AND l_client_id IS NOT NULL )) THEN --{
1864: IF l_debug_on THEN
1865: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIP_CONFIRM_ACTIONS.Process_Delivery_To_OM',WSH_DEBUG_SV.C_PROC_LEVEL);
1866: END IF;
1867:
1868: WSH_SHIP_CONFIRM_ACTIONS.Process_Delivery_To_OM (
1869: p_delivery_id => p_entity_id,
1878: FETCH l_orig_txn_hist_cur
1879: INTO l_orig_document_number, l_orig_Transaction_Status, l_orig_Event_Key;
1880: IF (l_orig_txn_hist_cur % NOTFOUND) THEN
1881: IF l_debug_on THEN
1882: wsh_debug_sv.log (l_module_name, 'No Data found for l_orig_txn_hist_cur');
1883: END IF;
1884: CLOSE l_orig_txn_hist_cur;
1885: RAISE wsh_orig_txns_hist_error;
1886: END IF;
1888:
1889: -- If the Original transaction status is Error or In process then we cannot send a
1890: -- Shipping Advice back to the Supplier.
1891: IF l_debug_on THEN
1892: wsh_debug_sv.log (l_module_name, 'Orig Transaction Status' , l_orig_Transaction_Status);
1893: END IF;
1894: IF ( l_orig_Transaction_Status IN ('ER', 'IP') ) THEN
1895: RAISE wsh_orig_txn_hist_error_status;
1896: END IF;
1896: END IF;
1897: END IF; --}
1898: -- R12.1.1 STANDALONE PROJECT
1899: IF l_debug_on THEN
1900: wsh_debug_sv.logmsg (l_module_name, 'Updating Delivery Pending_Advice_Flag Status to Null');
1901: END IF;
1902: UPDATE wsh_new_deliveries
1903: SET pending_advice_flag = NULL,
1904: last_update_date = SYSDATE,
1925: l_curr_txn_hist_record.Trading_Partner_ID := P_Org_ID;
1926: --}
1927: END IF;
1928: IF l_debug_on THEN
1929: wsh_debug_sv.log (l_module_name, 'Trading Partner Id ' , l_curr_txn_hist_record.Trading_Partner_ID);
1930: END IF;
1931: -- LSP PROJECT : End
1932: l_curr_txn_hist_record.Action_Type := P_Action_Type;
1933: l_curr_txn_hist_record.Transaction_Status := 'IP';
1945:
1946: -- Raise event will insert the record into the transaction history table
1947: -- for the current transaction.
1948: IF l_debug_on THEN
1949: wsh_debug_sv.log (l_module_name, 'Before Raise_Event');
1950: END IF;
1951:
1952: WSH_EXTERNAL_INTERFACE_SV.Raise_Event ( l_curr_txn_hist_record,
1953: NULL,
1953: NULL,
1954: l_Return_Status );
1955:
1956: IF l_debug_on THEN
1957: wsh_debug_sv.log (l_module_name, 'After Raise_Event , return status ' , l_Return_Status);
1958: END IF;
1959:
1960: IF (l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
1961: RAISE wsh_raise_event_error;
1961: RAISE wsh_raise_event_error;
1962: END IF;
1963:
1964: IF l_debug_on THEN
1965: wsh_debug_sv.pop(l_module_name);
1966: END IF;
1967:
1968: EXCEPTION
1969: WHEN wsh_invalid_delivery_id THEN
1968: EXCEPTION
1969: WHEN wsh_invalid_delivery_id THEN
1970: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1971: IF l_debug_on THEN
1972: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_delivery_id exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1973: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_delivery_id');
1974: END IF;
1975:
1976: WHEN wsh_invalid_entity_type THEN
1969: WHEN wsh_invalid_delivery_id THEN
1970: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1971: IF l_debug_on THEN
1972: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_delivery_id exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1973: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_delivery_id');
1974: END IF;
1975:
1976: WHEN wsh_invalid_entity_type THEN
1977: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1975:
1976: WHEN wsh_invalid_entity_type THEN
1977: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1978: IF l_debug_on THEN
1979: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_entity_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1980: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_entity_type');
1981: END IF;
1982:
1983: WHEN wsh_invalid_action_type THEN
1976: WHEN wsh_invalid_entity_type THEN
1977: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1978: IF l_debug_on THEN
1979: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_entity_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1980: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_entity_type');
1981: END IF;
1982:
1983: WHEN wsh_invalid_action_type THEN
1984: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1982:
1983: WHEN wsh_invalid_action_type THEN
1984: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1985: IF l_debug_on THEN
1986: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_action_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1987: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_action_type');
1988: END IF;
1989:
1990: WHEN wsh_invalid_doc_type THEN
1983: WHEN wsh_invalid_action_type THEN
1984: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1985: IF l_debug_on THEN
1986: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_action_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1987: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_action_type');
1988: END IF;
1989:
1990: WHEN wsh_invalid_doc_type THEN
1991: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1989:
1990: WHEN wsh_invalid_doc_type THEN
1991: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1992: IF l_debug_on THEN
1993: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_doc_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1994: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_doc_type');
1995: END IF;
1996:
1997: WHEN wsh_orig_txns_hist_error THEN
1990: WHEN wsh_invalid_doc_type THEN
1991: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1992: IF l_debug_on THEN
1993: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_doc_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1994: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_doc_type');
1995: END IF;
1996:
1997: WHEN wsh_orig_txns_hist_error THEN
1998: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1996:
1997: WHEN wsh_orig_txns_hist_error THEN
1998: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1999: IF l_debug_on THEN
2000: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_orig_txns_hist_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2001: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_orig_txns_hist_error');
2002: END IF;
2003:
2004: WHEN wsh_orig_txn_hist_error_status THEN
1997: WHEN wsh_orig_txns_hist_error THEN
1998: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
1999: IF l_debug_on THEN
2000: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_orig_txns_hist_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2001: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_orig_txns_hist_error');
2002: END IF;
2003:
2004: WHEN wsh_orig_txn_hist_error_status THEN
2005: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
2003:
2004: WHEN wsh_orig_txn_hist_error_status THEN
2005: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
2006: IF l_debug_on THEN
2007: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_orig_txns_hist_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2008: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_orig_txns_hist_error');
2009: END IF;
2010: -- R12.1.1 STANDALONE PROJECT
2011: WHEN wsh_interface_to_om_failed THEN
2004: WHEN wsh_orig_txn_hist_error_status THEN
2005: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
2006: IF l_debug_on THEN
2007: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_orig_txns_hist_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2008: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_orig_txns_hist_error');
2009: END IF;
2010: -- R12.1.1 STANDALONE PROJECT
2011: WHEN wsh_interface_to_om_failed THEN
2012: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
2010: -- R12.1.1 STANDALONE PROJECT
2011: WHEN wsh_interface_to_om_failed THEN
2012: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
2013: IF l_debug_on THEN
2014: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_interface_to_om_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2015: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_interface_to_om_failed');
2016: END IF;
2017:
2018: WHEN wsh_invalid_del_status THEN
2011: WHEN wsh_interface_to_om_failed THEN
2012: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
2013: IF l_debug_on THEN
2014: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_interface_to_om_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2015: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_interface_to_om_failed');
2016: END IF;
2017:
2018: WHEN wsh_invalid_del_status THEN
2019: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
2019: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
2020: FND_MESSAGE.Set_Name ('WSH', 'WSH_INVALID_DELIVERY_STATUS');
2021: WSH_UTIL_CORE.Add_Message (x_return_status,l_module_name);
2022: IF l_debug_on THEN
2023: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_del_status exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2024: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_del_status');
2025: END IF;
2026:
2027: WHEN wsh_del_details_error THEN
2020: FND_MESSAGE.Set_Name ('WSH', 'WSH_INVALID_DELIVERY_STATUS');
2021: WSH_UTIL_CORE.Add_Message (x_return_status,l_module_name);
2022: IF l_debug_on THEN
2023: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_del_status exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2024: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_del_status');
2025: END IF;
2026:
2027: WHEN wsh_del_details_error THEN
2028: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
2028: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
2029: FND_MESSAGE.Set_Name ('WSH', 'WSH_DEL_DETAIL_ERROR');
2030: WSH_UTIL_CORE.Add_Message (x_return_status,l_module_name);
2031: IF l_debug_on THEN
2032: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_del_details_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2033: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_del_details_error');
2034: END IF;
2035:
2036: WHEN wsh_raise_event_error THEN
2029: FND_MESSAGE.Set_Name ('WSH', 'WSH_DEL_DETAIL_ERROR');
2030: WSH_UTIL_CORE.Add_Message (x_return_status,l_module_name);
2031: IF l_debug_on THEN
2032: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_del_details_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2033: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_del_details_error');
2034: END IF;
2035:
2036: WHEN wsh_raise_event_error THEN
2037: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
2035:
2036: WHEN wsh_raise_event_error THEN
2037: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
2038: IF l_debug_on THEN
2039: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_raise_event_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2040: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_raise_event_error');
2041: END IF;
2042: WHEN wsh_sa_resend_error THEN
2043: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
2036: WHEN wsh_raise_event_error THEN
2037: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
2038: IF l_debug_on THEN
2039: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_raise_event_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2040: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_raise_event_error');
2041: END IF;
2042: WHEN wsh_sa_resend_error THEN
2043: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
2044: FND_MESSAGE.Set_Name ('WSH', 'WSH_SA_RESEND_ERROR');
2044: FND_MESSAGE.Set_Name ('WSH', 'WSH_SA_RESEND_ERROR');
2045: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
2046: WSH_UTIL_CORE.Add_Message (x_return_status,l_module_name);
2047: IF l_debug_on THEN
2048: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_sa_resend_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2049: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_sa_resend_error');
2050: END IF;
2051:
2052: WHEN wsh_serial_no_inv_interface THEN
2045: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
2046: WSH_UTIL_CORE.Add_Message (x_return_status,l_module_name);
2047: IF l_debug_on THEN
2048: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_sa_resend_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2049: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_sa_resend_error');
2050: END IF;
2051:
2052: WHEN wsh_serial_no_inv_interface THEN
2053: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_error;
2054: FND_MESSAGE.Set_Name ('WSH', 'WSH_SERIAL_NO_INV_INTERFACE');
2055: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
2056: WSH_UTIL_CORE.Add_Message (x_return_status,l_module_name);
2057: IF l_debug_on THEN
2058: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_serial_no_inv_interface exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2059: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_serial_no_inv_interface');
2060: END IF;
2061:
2062: WHEN OTHERS THEN
2055: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
2056: WSH_UTIL_CORE.Add_Message (x_return_status,l_module_name);
2057: IF l_debug_on THEN
2058: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_serial_no_inv_interface exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2059: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_serial_no_inv_interface');
2060: END IF;
2061:
2062: WHEN OTHERS THEN
2063: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
2061:
2062: WHEN OTHERS THEN
2063: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
2064: IF l_debug_on THEN
2065: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2066: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2067: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2068: END IF;
2069: END Send_Shipment_Advice;
2062: WHEN OTHERS THEN
2063: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
2064: IF l_debug_on THEN
2065: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2066: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2067: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2068: END IF;
2069: END Send_Shipment_Advice;
2070:
2063: X_Return_Status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
2064: IF l_debug_on THEN
2065: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2066: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2067: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2068: END IF;
2069: END Send_Shipment_Advice;
2070:
2071: