42:
43: BEGIN
44:
45: if (g_debug = 1) then
46: inv_trx_util_pub.TRACE('Entering INV_EXTERNAL_INTERFACE_SV.Raise_Event', 'INV_EXTERNAL_INTERFACE_SV', 9);
47: inv_trx_util_pub.TRACE('transaction_id is ' || P_txn_hist_record.transaction_id, 'INV_EXTERNAL_INTERFACE_SV', 9);
48: inv_trx_util_pub.TRACE('transaction_status is ' || P_txn_hist_record.transaction_status, 'INV_EXTERNAL_INTERFACE_SV', 9);
49: end if;
50:
43: BEGIN
44:
45: if (g_debug = 1) then
46: inv_trx_util_pub.TRACE('Entering INV_EXTERNAL_INTERFACE_SV.Raise_Event', 'INV_EXTERNAL_INTERFACE_SV', 9);
47: inv_trx_util_pub.TRACE('transaction_id is ' || P_txn_hist_record.transaction_id, 'INV_EXTERNAL_INTERFACE_SV', 9);
48: inv_trx_util_pub.TRACE('transaction_status is ' || P_txn_hist_record.transaction_status, 'INV_EXTERNAL_INTERFACE_SV', 9);
49: end if;
50:
51: x_return_status := rcv_error_pkg.g_ret_sts_success;
44:
45: if (g_debug = 1) then
46: inv_trx_util_pub.TRACE('Entering INV_EXTERNAL_INTERFACE_SV.Raise_Event', 'INV_EXTERNAL_INTERFACE_SV', 9);
47: inv_trx_util_pub.TRACE('transaction_id is ' || P_txn_hist_record.transaction_id, 'INV_EXTERNAL_INTERFACE_SV', 9);
48: inv_trx_util_pub.TRACE('transaction_status is ' || P_txn_hist_record.transaction_status, 'INV_EXTERNAL_INTERFACE_SV', 9);
49: end if;
50:
51: x_return_status := rcv_error_pkg.g_ret_sts_success;
52:
64:
65: l_Transaction_Code := UPPER (SUBSTRB (l_event_name, INSTRB(l_Event_Name, '.', -1) + 1));
66:
67: if (g_debug = 1) then
68: inv_trx_util_pub.TRACE('l_transaction_code is '||l_transaction_code, 'INV_EXTERNAL_INTERFACE_SV', 9);
69: end if;
70:
71: l_Event_Key := l_txn_hist_record.Event_Key;
72: l_wms_deployment_mode := WMS_DEPLOY.WMS_DEPLOYMENT_MODE;
76: -- Generate the document number for outgoing documents.
77:
78:
79: if (g_debug = 1) then
80: inv_trx_util_pub.TRACE('trading_partner_id is '||P_txn_hist_record.trading_partner_id, 'INV_EXTERNAL_INTERFACE_SV', 9);
81: end if;
82:
83: IF (l_wms_deployment_mode = 'L') THEN
84:
97: END IF;
98:
99:
100: if (g_debug = 1) then
101: inv_trx_util_pub.TRACE('trading_partner_site_id is '||l_Party_Site_ID, 'INV_EXTERNAL_INTERFACE_SV', 9);
102: end if;
103:
104: END IF; --}
105:
119: p_value => 'C',
120: p_parameterlist => l_msg_parameter_list);
121:
122: if (g_debug = 1) then
123: inv_trx_util_pub.TRACE('Party Type is C', 'INV_EXTERNAL_INTERFACE_SV', 9);
124: end if;
125:
126: ELSE
127:
129: p_value => 'I',
130: p_parameterlist => l_msg_parameter_list);
131:
132: if (g_debug = 1) then
133: inv_trx_util_pub.TRACE('Party Type is I', 'INV_EXTERNAL_INTERFACE_SV', 9);
134: end if;
135:
136: END IF;
137:
138: WF_EVENT.AddParameterToList (p_name => 'ECX_DOCUMENT_ID',
139: p_value => l_txn_hist_record.Entity_Number, -- entity_id
140: p_parameterlist => l_msg_parameter_list);
141: if (g_debug = 1) then
142: inv_trx_util_pub.TRACE('Document ID is '|| l_txn_hist_record.Entity_Number, 'INV_EXTERNAL_INTERFACE_SV', 9);
143: end if;
144:
145:
146: WF_EVENT.AddParameterToList (p_name => 'USER_ID',
147: p_value => FND_GLOBAL.USER_ID,
148: p_parameterlist => l_msg_parameter_list);
149:
150: if (g_debug = 1) then
151: inv_trx_util_pub.TRACE('User ID is '|| FND_GLOBAL.USER_ID, 'INV_EXTERNAL_INTERFACE_SV', 9);
152: end if;
153:
154:
155: WF_EVENT.AddParameterToList (p_name => 'APPLICATION_ID',
156: p_value => FND_GLOBAL.RESP_APPL_ID,
157: p_parameterlist => l_msg_parameter_list);
158:
159: if (g_debug = 1) then
160: inv_trx_util_pub.TRACE('Responsibility Application ID is '|| FND_GLOBAL.RESP_APPL_ID, 'INV_EXTERNAL_INTERFACE_SV', 9);
161: end if;
162:
163:
164: WF_EVENT.AddParameterToList (p_name => 'RESPONSIBILITY_ID',
164: WF_EVENT.AddParameterToList (p_name => 'RESPONSIBILITY_ID',
165: p_value => FND_GLOBAL.RESP_ID,
166: p_parameterlist => l_msg_parameter_list);
167: if (g_debug = 1) then
168: inv_trx_util_pub.TRACE('Responsibility ID is '|| FND_GLOBAL.RESP_ID, 'INV_EXTERNAL_INTERFACE_SV', 9);
169: end if;
170:
171:
172: WF_EVENT.AddParameterToList (p_name => 'ECX_TRANSACTION_TYPE',
172: WF_EVENT.AddParameterToList (p_name => 'ECX_TRANSACTION_TYPE',
173: p_value => 'INV',
174: p_parameterlist => l_msg_parameter_list);
175: if (g_debug = 1) then
176: inv_trx_util_pub.TRACE('Transaction Type is '|| 'INV', 'INV_EXTERNAL_INTERFACE_SV', 9);
177: end if;
178:
179:
180: IF ( l_wms_deployment_mode = 'L') then
182: WF_EVENT.AddParameterToList (p_name => 'ECX_TRANSACTION_SUBTYPE',
183: p_value => 'ADJ',
184: p_parameterlist => l_msg_parameter_list);
185: if (g_debug = 1) then
186: inv_trx_util_pub.TRACE('Transaction SubType is '|| 'ADJ', 'INV_EXTERNAL_INTERFACE_SV', 9);
187: end if;
188:
189: ELSE
190:
191: WF_EVENT.AddParameterToList (p_name => 'ECX_TRANSACTION_SUBTYPE',
192: p_value => 'ADJ-INT',
193: p_parameterlist => l_msg_parameter_list);
194: if (g_debug = 1) then
195: inv_trx_util_pub.TRACE('Transaction SubType is '|| 'ADJ-INT', 'INV_EXTERNAL_INTERFACE_SV', 9);
196: end if;
197:
198: END IF;
199:
201: WF_EVENT.AddParameterToList (p_name => 'USER',
202: p_value => FND_GLOBAL.user_name,
203: p_parameterlist => l_msg_parameter_list);
204: if (g_debug = 1) then
205: inv_trx_util_pub.TRACE('User_Name is '||FND_GLOBAL.user_name, 'INV_EXTERNAL_INTERFACE_SV', 9);
206: end if;
207:
208:
209: WF_EVENT.AddParameterToList (p_name => 'ECX_PARAMETER1',
209: WF_EVENT.AddParameterToList (p_name => 'ECX_PARAMETER1',
210: p_value => l_txn_hist_record.Entity_Number, --l_txn_hist_record.Action_Type,
211: p_parameterlist => l_msg_parameter_list);
212: if (g_debug = 1) then
213: inv_trx_util_pub.TRACE('ECX Parameter1 is '||l_txn_hist_record.Entity_Number, 'INV_EXTERNAL_INTERFACE_SV', 9);
214: end if;
215:
216:
217: WF_EVENT.AddParameterToList (p_name => 'ECX_PARAMETER2',
217: WF_EVENT.AddParameterToList (p_name => 'ECX_PARAMETER2',
218: p_value => l_txn_hist_record.Client_Code,
219: p_parameterlist => l_msg_parameter_list);
220: if (g_debug = 1) then
221: inv_trx_util_pub.TRACE('ECX Parameter2 is '||l_txn_hist_record.Client_Code, 'INV_EXTERNAL_INTERFACE_SV', 9);
222: end if;
223:
224:
225: INV_TRANSACTIONS_HISTORY_PKG.Create_Update_Txns_History ( l_txn_hist_record,
228: l_return_status );
229:
230:
231: if (g_debug = 1) then
232: inv_trx_util_pub.TRACE('l_txns_id is '||l_txns_id, 'INV_EXTERNAL_INTERFACE_SV', 9);
233: inv_trx_util_pub.TRACE('l_return_status is '||To_Char(l_Return_Status), 'INV_EXTERNAL_INTERFACE_SV', 9);
234: end if;
235:
236: IF ( l_Return_Status <> rcv_error_pkg.g_ret_sts_success ) THEN
229:
230:
231: if (g_debug = 1) then
232: inv_trx_util_pub.TRACE('l_txns_id is '||l_txns_id, 'INV_EXTERNAL_INTERFACE_SV', 9);
233: inv_trx_util_pub.TRACE('l_return_status is '||To_Char(l_Return_Status), 'INV_EXTERNAL_INTERFACE_SV', 9);
234: end if;
235:
236: IF ( l_Return_Status <> rcv_error_pkg.g_ret_sts_success ) THEN
237: if (g_debug = 1) then
234: end if;
235:
236: IF ( l_Return_Status <> rcv_error_pkg.g_ret_sts_success ) THEN
237: if (g_debug = 1) then
238: inv_trx_util_pub.TRACE('Raise_Event.l_Return_Status is '|| l_Return_Status, 'INV_EXTERNAL_INTERFACE_SV', 9);
239: end if;
240: RAISE update_history;
241: END IF;
242:
246:
247: IF ( l_Transaction_Code IN ('ADJO') ) THEN
248:
249: if (g_debug = 1) then
250: inv_trx_util_pub.TRACE('Raising Business Event', 'INV_EXTERNAL_INTERFACE_SV', 9);
251: end if;
252:
253: WF_EVENT.raise ( p_event_name => l_event_name,
254: p_event_key => l_Event_Key,
254: p_event_key => l_Event_Key,
255: p_parameters => l_msg_parameter_list );
256:
257: if (g_debug = 1) then
258: inv_trx_util_pub.TRACE('Completed the Business Event execution', 'INV_EXTERNAL_INTERFACE_SV', 9);
259: end if;
260:
261: END IF;
262:
260:
261: END IF;
262:
263: if (g_debug = 1) then
264: inv_trx_util_pub.TRACE('Exiting RCV_EXTERNAL_INTERFACE_SV.Raise_Event', 'INV_EXTERNAL_INTERFACE_SV', 9);
265: end if;
266:
267: EXCEPTION
268: WHEN invalid_event_name THEN
267: EXCEPTION
268: WHEN invalid_event_name THEN
269: x_return_status := rcv_error_pkg.g_ret_sts_error;
270: if (g_debug = 1) then
271: inv_trx_util_pub.TRACE('invalid_event_name exception has occured.', 'INV_EXTERNAL_INTERFACE_SV', 9);
272: end if;
273:
274: WHEN update_history THEN
275: x_return_status := rcv_error_pkg.g_ret_sts_error;
273:
274: WHEN update_history THEN
275: x_return_status := rcv_error_pkg.g_ret_sts_error;
276: if (g_debug = 1) then
277: inv_trx_util_pub.TRACE('update_history exception has occured.', 'INV_EXTERNAL_INTERFACE_SV', 9);
278: end if;
279:
280: WHEN OTHERS THEN
281: x_return_status := rcv_error_pkg.g_ret_sts_unexp_error;
280: WHEN OTHERS THEN
281: x_return_status := rcv_error_pkg.g_ret_sts_unexp_error;
282:
283: if (g_debug = 1) then
284: inv_trx_util_pub.TRACE('Unexpected error has occured. Oracle error message is '|| SQLERRM, 'INV_EXTERNAL_INTERFACE_SV', 9);
285: end if;
286:
287: END Raise_Event;
288: