[Home] [Help]
86:
87: BEGIN
88:
89: IF (l_debug_Level <= 2) THEN
90: cln_debug_pub.Add('========= Entering create_collab_setattr == ',2);
91: END IF;
92:
93: -- Parameters received
94: IF (l_Debug_Level <= 1) THEN
91: END IF;
92:
93: -- Parameters received
94: IF (l_Debug_Level <= 1) THEN
95: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
96: cln_debug_pub.Add('itemtype - '||itemtype, 1);
97: cln_debug_pub.Add('itemkey - '||itemkey, 1);
98: cln_debug_pub.Add('actid - '||actid, 1);
99: cln_debug_pub.Add('funcmode - '||funcmode, 1);
92:
93: -- Parameters received
94: IF (l_Debug_Level <= 1) THEN
95: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
96: cln_debug_pub.Add('itemtype - '||itemtype, 1);
97: cln_debug_pub.Add('itemkey - '||itemkey, 1);
98: cln_debug_pub.Add('actid - '||actid, 1);
99: cln_debug_pub.Add('funcmode - '||funcmode, 1);
100: cln_debug_pub.Add('---------------------------------------------',1);
93: -- Parameters received
94: IF (l_Debug_Level <= 1) THEN
95: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
96: cln_debug_pub.Add('itemtype - '||itemtype, 1);
97: cln_debug_pub.Add('itemkey - '||itemkey, 1);
98: cln_debug_pub.Add('actid - '||actid, 1);
99: cln_debug_pub.Add('funcmode - '||funcmode, 1);
100: cln_debug_pub.Add('---------------------------------------------',1);
101: END IF;
94: IF (l_Debug_Level <= 1) THEN
95: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
96: cln_debug_pub.Add('itemtype - '||itemtype, 1);
97: cln_debug_pub.Add('itemkey - '||itemkey, 1);
98: cln_debug_pub.Add('actid - '||actid, 1);
99: cln_debug_pub.Add('funcmode - '||funcmode, 1);
100: cln_debug_pub.Add('---------------------------------------------',1);
101: END IF;
102:
95: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
96: cln_debug_pub.Add('itemtype - '||itemtype, 1);
97: cln_debug_pub.Add('itemkey - '||itemkey, 1);
98: cln_debug_pub.Add('actid - '||actid, 1);
99: cln_debug_pub.Add('funcmode - '||funcmode, 1);
100: cln_debug_pub.Add('---------------------------------------------',1);
101: END IF;
102:
103: -- if funcmode is not null then exit
96: cln_debug_pub.Add('itemtype - '||itemtype, 1);
97: cln_debug_pub.Add('itemkey - '||itemkey, 1);
98: cln_debug_pub.Add('actid - '||actid, 1);
99: cln_debug_pub.Add('funcmode - '||funcmode, 1);
100: cln_debug_pub.Add('---------------------------------------------',1);
101: END IF;
102:
103: -- if funcmode is not null then exit
104: IF (funcmode <> wf_engine.eng_run) THEN
103: -- if funcmode is not null then exit
104: IF (funcmode <> wf_engine.eng_run) THEN
105: resultout := wf_engine.eng_null;
106: IF (l_Debug_Level <= 2) THEN
107: cln_debug_pub.Add('M4U:====== Exiting create_collab_setattr - Normal : resultout - ' || resultout,2);
108: END IF;
109: RETURN;
110: END IF;
111:
110: END IF;
111:
112: l_event_key := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_EVENT_KEY',TRUE);
113: IF (l_Debug_Level <= 1) THEN
114: cln_debug_pub.Add('ECX Event Key ----'||l_event_key,1);
115: END IF;
116:
117: l_ecx_parameter1 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER1',TRUE);
118: IF (l_Debug_Level <= 1) THEN
115: END IF;
116:
117: l_ecx_parameter1 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER1',TRUE);
118: IF (l_Debug_Level <= 1) THEN
119: cln_debug_pub.Add('ECX Parameter1 ----'||l_ecx_parameter1,1);
120: END IF;
121:
122: l_ecx_parameter2 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER2',TRUE);
123: IF (l_Debug_Level <= 1) THEN
120: END IF;
121:
122: l_ecx_parameter2 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER2',TRUE);
123: IF (l_Debug_Level <= 1) THEN
124: cln_debug_pub.Add('ECX Parameter2 ----'||l_ecx_parameter2,1);
125: END IF;
126:
127: l_ecx_parameter3 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER3',TRUE);
128: IF (l_Debug_Level <= 1) THEN
125: END IF;
126:
127: l_ecx_parameter3 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER3',TRUE);
128: IF (l_Debug_Level <= 1) THEN
129: cln_debug_pub.Add('ECX Parameter3 ----'||l_ecx_parameter3,1);
130: END IF;
131:
132: l_ecx_parameter4 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER4',TRUE);
133: IF (l_Debug_Level <= 1) THEN
130: END IF;
131:
132: l_ecx_parameter4 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER4',TRUE);
133: IF (l_Debug_Level <= 1) THEN
134: cln_debug_pub.Add('ECX Parameter4 ----'||l_ecx_parameter4,1);
135: END IF;
136:
137: l_ecx_parameter5 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER5',TRUE);
138: IF (l_Debug_Level <= 1) THEN
135: END IF;
136:
137: l_ecx_parameter5 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER5',TRUE);
138: IF (l_Debug_Level <= 1) THEN
139: cln_debug_pub.Add('ECX Parameter5 ----'||l_ecx_parameter5,1);
140: END IF;
141:
142: l_xmlg_transaction_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_TRANSACTION_TYPE',TRUE);
143: IF (l_Debug_Level <= 1) THEN
140: END IF;
141:
142: l_xmlg_transaction_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_TRANSACTION_TYPE',TRUE);
143: IF (l_Debug_Level <= 1) THEN
144: cln_debug_pub.Add('XMLG Ext Transaction Type ----'||l_xmlg_transaction_type, 1);
145: END IF;
146:
147: l_xmlg_transaction_subtype := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_TRANSACTION_SUBTYPE',TRUE);
148: IF (l_Debug_Level <= 1) THEN
145: END IF;
146:
147: l_xmlg_transaction_subtype := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_TRANSACTION_SUBTYPE',TRUE);
148: IF (l_Debug_Level <= 1) THEN
149: cln_debug_pub.Add('XMLG Ext Transaction Sub Type ----'||l_xmlg_transaction_subtype, 1);
150: END IF;
151:
152: l_coll_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_CLN_COLL_TYPE',TRUE);
153: IF (l_Debug_Level <= 1) THEN
150: END IF;
151:
152: l_coll_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_CLN_COLL_TYPE',TRUE);
153: IF (l_Debug_Level <= 1) THEN
154: cln_debug_pub.Add('COLLABORATION TYPE ----'||l_coll_type,1);
155: END IF;
156:
157: l_doc_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_CLN_DOC_TYPE',TRUE);
158: IF (l_Debug_Level <= 1) THEN
155: END IF;
156:
157: l_doc_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_CLN_DOC_TYPE',TRUE);
158: IF (l_Debug_Level <= 1) THEN
159: cln_debug_pub.Add('DOCUMENT TYPE ----'||l_doc_type,1);
160: END IF;
161:
162: l_doc_owner := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_DOC_OWNER',TRUE);
163: IF (l_Debug_Level <= 1) THEN
160: END IF;
161:
162: l_doc_owner := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_DOC_OWNER',TRUE);
163: IF (l_Debug_Level <= 1) THEN
164: cln_debug_pub.Add('DOCUMENT OWNER ----'||l_doc_owner,1);
165: END IF;
166:
167: l_doc_no := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_DOC_NO',TRUE);
168: IF (l_Debug_Level <= 1) THEN
165: END IF;
166:
167: l_doc_no := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_DOC_NO',TRUE);
168: IF (l_Debug_Level <= 1) THEN
169: cln_debug_pub.Add('DOCUMENT NUMBER ----'||l_doc_no,1);
170: END IF;
171:
172: l_xmlg_document_id := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_DOCUMENT_ID',TRUE);
173: IF (l_Debug_Level <= 1) THEN
170: END IF;
171:
172: l_xmlg_document_id := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_DOCUMENT_ID',TRUE);
173: IF (l_Debug_Level <= 1) THEN
174: cln_debug_pub.Add('ECX DOCUMENT ID ----'||l_xmlg_document_id,1);
175: END IF;
176:
177: l_partner_doc_no := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_PARTNER_DOC_NO',TRUE);
178: IF (l_Debug_Level <= 1) THEN
175: END IF;
176:
177: l_partner_doc_no := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_PARTNER_DOC_NO',TRUE);
178: IF (l_Debug_Level <= 1) THEN
179: cln_debug_pub.Add('PARTNER DOCUMENT NUMBER ----'||l_partner_doc_no,1);
180: END IF;
181:
182: l_owner_role := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_OWNER_ROLE',TRUE);
183: IF (l_Debug_Level <= 1) THEN
180: END IF;
181:
182: l_owner_role := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_OWNER_ROLE',TRUE);
183: IF (l_Debug_Level <= 1) THEN
184: cln_debug_pub.Add('OWNER ROLE ----'||l_owner_role,1);
185: END IF;
186:
187: l_create_msg_text := wf_engine.GetItemAttrText(itemtype, itemkey, 'MESSAGE_TEXT',TRUE);
188: IF (l_Debug_Level <= 1) THEN
185: END IF;
186:
187: l_create_msg_text := wf_engine.GetItemAttrText(itemtype, itemkey, 'MESSAGE_TEXT',TRUE);
188: IF (l_Debug_Level <= 1) THEN
189: cln_debug_pub.Add('Message Text ----'||l_create_msg_text, 1);
190: END IF;
191:
192: l_attribute1 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE1',TRUE);
193: IF (l_Debug_Level <= 1) THEN
190: END IF;
191:
192: l_attribute1 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE1',TRUE);
193: IF (l_Debug_Level <= 1) THEN
194: cln_debug_pub.Add('ATTRIBUTE1 ----'||l_attribute1, 1);
195: END IF;
196:
197: l_attribute2 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE2',TRUE);
198: IF (l_Debug_Level <= 1) THEN
195: END IF;
196:
197: l_attribute2 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE2',TRUE);
198: IF (l_Debug_Level <= 1) THEN
199: cln_debug_pub.Add('ATTRIBUTE2 ----'||l_attribute2, 1);
200: END IF;
201:
202: l_attribute3 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE3',TRUE);
203: IF (l_Debug_Level <= 1) THEN
200: END IF;
201:
202: l_attribute3 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE3',TRUE);
203: IF (l_Debug_Level <= 1) THEN
204: cln_debug_pub.Add('ATTRIBUTE3 ----'||l_attribute3, 1);
205: END IF;
206:
207: l_attribute4 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE4',TRUE);
208: IF (l_Debug_Level <= 1) THEN
205: END IF;
206:
207: l_attribute4 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE4',TRUE);
208: IF (l_Debug_Level <= 1) THEN
209: cln_debug_pub.Add('ATTRIBUTE4 ----'||l_attribute4, 1);
210: END IF;
211:
212: l_attribute5 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE5',TRUE);
213: IF (l_Debug_Level <= 1) THEN
210: END IF;
211:
212: l_attribute5 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE5',TRUE);
213: IF (l_Debug_Level <= 1) THEN
214: cln_debug_pub.Add('ATTRIBUTE5 ----'||l_attribute5, 1);
215: END IF;
216:
217: l_attribute6 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE6',TRUE);
218: IF (l_Debug_Level <= 1) THEN
215: END IF;
216:
217: l_attribute6 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE6',TRUE);
218: IF (l_Debug_Level <= 1) THEN
219: cln_debug_pub.Add('ATTRIBUTE6 ----'||l_attribute6, 1);
220: END IF;
221:
222: l_attribute7 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE7',TRUE);
223: IF (l_Debug_Level <= 1) THEN
220: END IF;
221:
222: l_attribute7 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE7',TRUE);
223: IF (l_Debug_Level <= 1) THEN
224: cln_debug_pub.Add('ATTRIBUTE7 ----'||l_attribute7, 1);
225: END IF;
226:
227: l_attribute8 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE8',TRUE);
228: IF (l_Debug_Level <= 1) THEN
225: END IF;
226:
227: l_attribute8 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE8',TRUE);
228: IF (l_Debug_Level <= 1) THEN
229: cln_debug_pub.Add('ATTRIBUTE8 ----'||l_attribute8, 1);
230: END IF;
231:
232: l_attribute9 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE9',TRUE);
233: IF (l_Debug_Level <= 1) THEN
230: END IF;
231:
232: l_attribute9 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE9',TRUE);
233: IF (l_Debug_Level <= 1) THEN
234: cln_debug_pub.Add('ATTRIBUTE9 ----'||l_attribute9, 1);
235: END IF;
236:
237: l_attribute10 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE10',TRUE);
238: IF (l_Debug_Level <= 1) THEN
235: END IF;
236:
237: l_attribute10 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE10',TRUE);
238: IF (l_Debug_Level <= 1) THEN
239: cln_debug_pub.Add('ATTRIBUTE10 ----'||l_attribute10, 1);
240: END IF;
241:
242: l_attribute11 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE11',TRUE);
243: IF (l_Debug_Level <= 1) THEN
240: END IF;
241:
242: l_attribute11 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE11',TRUE);
243: IF (l_Debug_Level <= 1) THEN
244: cln_debug_pub.Add('ATTRIBUTE11 ----'||l_attribute11, 1);
245: END IF;
246:
247: l_attribute12 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE12',TRUE);
248: IF (l_Debug_Level <= 1) THEN
245: END IF;
246:
247: l_attribute12 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE12',TRUE);
248: IF (l_Debug_Level <= 1) THEN
249: cln_debug_pub.Add('ATTRIBUTE12 ----'||l_attribute12, 1);
250: END IF;
251:
252: l_attribute13 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE13',TRUE);
253: IF (l_Debug_Level <= 1) THEN
250: END IF;
251:
252: l_attribute13 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE13',TRUE);
253: IF (l_Debug_Level <= 1) THEN
254: cln_debug_pub.Add('ATTRIBUTE13 ----'||l_attribute13, 1);
255: END IF;
256:
257: l_attribute14 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE14',TRUE);
258: IF (l_Debug_Level <= 1) THEN
255: END IF;
256:
257: l_attribute14 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE14',TRUE);
258: IF (l_Debug_Level <= 1) THEN
259: cln_debug_pub.Add('ATTRIBUTE14 ----'||l_attribute14, 1);
260: END IF;
261:
262: l_attribute15 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE15',TRUE);
263: IF (l_Debug_Level <= 1) THEN
260: END IF;
261:
262: l_attribute15 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ATTRIBUTE15',TRUE);
263: IF (l_Debug_Level <= 1) THEN
264: cln_debug_pub.Add('ATTRIBUTE15 ----'||l_attribute15, 1);
265: END IF;
266:
267: l_dattribute1 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey, 'DATTRIBUTE1',TRUE));
268: IF (l_Debug_Level <= 1) THEN
265: END IF;
266:
267: l_dattribute1 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey, 'DATTRIBUTE1',TRUE));
268: IF (l_Debug_Level <= 1) THEN
269: cln_debug_pub.Add('DATTRIBUTE1 ----'||l_dattribute1, 1);
270: END IF;
271:
272: l_dattribute2 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey, 'DATTRIBUTE2',TRUE));
273: IF (l_Debug_Level <= 1) THEN
270: END IF;
271:
272: l_dattribute2 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey, 'DATTRIBUTE2',TRUE));
273: IF (l_Debug_Level <= 1) THEN
274: cln_debug_pub.Add('DATTRIBUTE2 ----'||l_dattribute2, 1);
275: END IF;
276:
277: l_dattribute3 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey, 'DATTRIBUTE3',TRUE));
278: IF (l_Debug_Level <= 1) THEN
275: END IF;
276:
277: l_dattribute3 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey, 'DATTRIBUTE3',TRUE));
278: IF (l_Debug_Level <= 1) THEN
279: cln_debug_pub.Add('DATTRIBUTE3 ----'||l_dattribute3, 1);
280: END IF;
281:
282: l_dattribute4 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey, 'DATTRIBUTE4',TRUE));
283: IF (l_Debug_Level <= 1) THEN
280: END IF;
281:
282: l_dattribute4 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey, 'DATTRIBUTE4',TRUE));
283: IF (l_Debug_Level <= 1) THEN
284: cln_debug_pub.Add('DATTRIBUTE4 ----'||l_dattribute4, 1);
285: END IF;
286:
287: l_dattribute5 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey, 'DATTRIBUTE5',TRUE));
288: IF (l_Debug_Level <= 1) THEN
285: END IF;
286:
287: l_dattribute5 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey, 'DATTRIBUTE5',TRUE));
288: IF (l_Debug_Level <= 1) THEN
289: cln_debug_pub.Add('DATTRIBUTE5 ----'||l_dattribute5, 1);
290: END IF;
291:
292: IF (l_Debug_Level <= 1) THEN
293: cln_debug_pub.Add('------------------------------------------', 1);
289: cln_debug_pub.Add('DATTRIBUTE5 ----'||l_dattribute5, 1);
290: END IF;
291:
292: IF (l_Debug_Level <= 1) THEN
293: cln_debug_pub.Add('------------------------------------------', 1);
294: END IF;
295:
296:
297:
296:
297:
298: -- set item-attributes of WF
299: IF (l_Debug_Level <= 1) THEN
300: cln_debug_pub.Add('----- Set WF Item Attributes ----- ',1);
301: END IF;
302:
303: wf_engine.setItemAttrtext(
304: itemtype => itemtype,
306: aname => 'ECX_PARTY_SITE_ID',
307: avalue => m4u_ucc_utils.g_party_site_id);
308:
309: IF (l_Debug_Level <= 1) THEN
310: cln_debug_pub.Add(' Item Attribute - ECX_PARTY_SITE_ID set',1);
311: END IF;
312:
313: wf_engine.setItemAttrtext(
314: itemtype => itemtype,
316: aname => 'ECX_PARTY_ID',
317: avalue => m4u_ucc_utils.g_party_id);
318:
319: IF (l_Debug_Level <= 1) THEN
320: cln_debug_pub.Add(' Item Attribute - ECX_PARTY_ID set',1);
321: END IF;
322:
323: wf_engine.setItemAttrtext(
324: itemtype => itemtype,
326: aname => 'ECX_PARTY_TYPE',
327: avalue => m4u_ucc_utils.c_party_type);
328:
329: IF (l_Debug_Level <= 1) THEN
330: cln_debug_pub.Add(' Item Attribute - ECX_PARTY_TYPE set',1);
331: END IF;
332:
333: wf_engine.setItemAttrtext(
334: itemtype => itemtype,
336: aname => 'M4U_XML_VALIDATION_REQUIRED',
337: avalue => fnd_profile.value('M4U_XML_VALIDATION_REQUIRED'));
338:
339: IF (l_Debug_Level <= 1) THEN
340: cln_debug_pub.Add(' XML Validation Reqd - ' || fnd_profile.value('M4U_XML_VALIDATION_REQUIRED'),1);
341: cln_debug_pub.Add('----- ----------------------------- ----- ',1);
342: END IF;
343:
344: IF (l_Debug_Level <= 1) THEN
337: avalue => fnd_profile.value('M4U_XML_VALIDATION_REQUIRED'));
338:
339: IF (l_Debug_Level <= 1) THEN
340: cln_debug_pub.Add(' XML Validation Reqd - ' || fnd_profile.value('M4U_XML_VALIDATION_REQUIRED'),1);
341: cln_debug_pub.Add('----- ----------------------------- ----- ',1);
342: END IF;
343:
344: IF (l_Debug_Level <= 1) THEN
345: cln_debug_pub.Add('----- Before call to - cln_ch_collaboration_pkg.create_collaboration -----',1);
341: cln_debug_pub.Add('----- ----------------------------- ----- ',1);
342: END IF;
343:
344: IF (l_Debug_Level <= 1) THEN
345: cln_debug_pub.Add('----- Before call to - cln_ch_collaboration_pkg.create_collaboration -----',1);
346: END IF;
347:
348: cln_ch_collaboration_pkg.create_collaboration (
349: x_return_status => l_return_status,
397: p_collaboration_standard => 'UCCNET',
398: p_owner_role => l_owner_role);
399:
400: IF (l_Debug_Level <= 1) THEN
401: cln_debug_pub.add('Create collaboration returned values',1);
402: cln_debug_pub.add('Collab_id - ' || l_coll_id,1);
403: cln_debug_pub.add('x_return_status - ' || l_return_status,1);
404: cln_debug_pub.add('x_msg_data - ' || l_msg_data,1);
405: END IF;
398: p_owner_role => l_owner_role);
399:
400: IF (l_Debug_Level <= 1) THEN
401: cln_debug_pub.add('Create collaboration returned values',1);
402: cln_debug_pub.add('Collab_id - ' || l_coll_id,1);
403: cln_debug_pub.add('x_return_status - ' || l_return_status,1);
404: cln_debug_pub.add('x_msg_data - ' || l_msg_data,1);
405: END IF;
406:
399:
400: IF (l_Debug_Level <= 1) THEN
401: cln_debug_pub.add('Create collaboration returned values',1);
402: cln_debug_pub.add('Collab_id - ' || l_coll_id,1);
403: cln_debug_pub.add('x_return_status - ' || l_return_status,1);
404: cln_debug_pub.add('x_msg_data - ' || l_msg_data,1);
405: END IF;
406:
407:
400: IF (l_Debug_Level <= 1) THEN
401: cln_debug_pub.add('Create collaboration returned values',1);
402: cln_debug_pub.add('Collab_id - ' || l_coll_id,1);
403: cln_debug_pub.add('x_return_status - ' || l_return_status,1);
404: cln_debug_pub.add('x_msg_data - ' || l_msg_data,1);
405: END IF;
406:
407:
408: IF l_return_status = 'S' THEN
409: resultout := wf_engine.eng_completed || ':SUCCESS';
410: l_truncated_key := SUBSTR(l_event_key,1,10);
411:
412: IF (l_Debug_Level <= 1) THEN
413: cln_debug_pub.add('Truncated Key Value - '||l_truncated_key,1);
414: END IF;
415:
416: IF (l_truncated_key = 'M4U_EGOEVT') THEN
417: ego_uccnet_events_pub.set_collaboration_id(
424: x_msg_count => l_msg_count,
425: x_msg_data => l_msg_data);
426:
427: IF (l_Debug_Level <= 1) THEN
428: cln_debug_pub.Add('ego_uccnet_events_pub.set_collaboration_id - ', 1);
429: cln_debug_pub.Add(' l_return_status - '|| l_return_status, 1);
430: cln_debug_pub.Add(' l_msg_data - '|| l_msg_data, 1);
431: cln_debug_pub.Add(' l_msg_count - '|| l_msg_count, 1);
432: END IF;
425: x_msg_data => l_msg_data);
426:
427: IF (l_Debug_Level <= 1) THEN
428: cln_debug_pub.Add('ego_uccnet_events_pub.set_collaboration_id - ', 1);
429: cln_debug_pub.Add(' l_return_status - '|| l_return_status, 1);
430: cln_debug_pub.Add(' l_msg_data - '|| l_msg_data, 1);
431: cln_debug_pub.Add(' l_msg_count - '|| l_msg_count, 1);
432: END IF;
433: END IF;
426:
427: IF (l_Debug_Level <= 1) THEN
428: cln_debug_pub.Add('ego_uccnet_events_pub.set_collaboration_id - ', 1);
429: cln_debug_pub.Add(' l_return_status - '|| l_return_status, 1);
430: cln_debug_pub.Add(' l_msg_data - '|| l_msg_data, 1);
431: cln_debug_pub.Add(' l_msg_count - '|| l_msg_count, 1);
432: END IF;
433: END IF;
434: ELSE
427: IF (l_Debug_Level <= 1) THEN
428: cln_debug_pub.Add('ego_uccnet_events_pub.set_collaboration_id - ', 1);
429: cln_debug_pub.Add(' l_return_status - '|| l_return_status, 1);
430: cln_debug_pub.Add(' l_msg_data - '|| l_msg_data, 1);
431: cln_debug_pub.Add(' l_msg_count - '|| l_msg_count, 1);
432: END IF;
433: END IF;
434: ELSE
435: resultout := wf_engine.eng_completed || ':FAIL';
455: aname => 'ECX_PARAMETER1',
456: avalue => l_coll_id);
457:
458: IF (l_Debug_Level <= 1) THEN
459: cln_debug_pub.Add('ECX_PARAMETER1 set to collaboration id value :- ' || l_coll_id,1);
460: END IF;
461:
462: IF (l_Debug_Level <= 2) THEN
463: cln_debug_pub.Add('====== Exiting m4u_xml_genprocess_out.create_collab_setattr - Normal : resultout-' || resultout,2);
459: cln_debug_pub.Add('ECX_PARAMETER1 set to collaboration id value :- ' || l_coll_id,1);
460: END IF;
461:
462: IF (l_Debug_Level <= 2) THEN
463: cln_debug_pub.Add('====== Exiting m4u_xml_genprocess_out.create_collab_setattr - Normal : resultout-' || resultout,2);
464: END IF;
465:
466: RETURN;
467:
485: l_fnd_msg := FND_MESSAGE.GET;
486: CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR(l_fnd_msg );
487:
488: IF (l_Debug_Level <= 5) THEN
489: cln_debug_pub.Add('Unexpected Error -'||l_error_code||' : '||l_error_msg,5);
490: END IF;
491:
492: IF (l_Debug_Level <= 2) THEN
493: cln_debug_pub.Add('=========== Exiting m4u_xml_genprocess_out.create_collab_setattr - Exception =========== ',2);
489: cln_debug_pub.Add('Unexpected Error -'||l_error_code||' : '||l_error_msg,5);
490: END IF;
491:
492: IF (l_Debug_Level <= 2) THEN
493: cln_debug_pub.Add('=========== Exiting m4u_xml_genprocess_out.create_collab_setattr - Exception =========== ',2);
494: END IF;
495:
496: wf_Core.context('m4u_xml_genprocess_out','create_collab_setattr', itemtype, itemkey, to_char(actid), funcmode);
497: RAISE;
591:
592: BEGIN
593:
594: IF (l_debug_Level <= 2) THEN
595: cln_debug_pub.Add('========= Entering update_collab_setattr == ',2);
596: END IF;
597:
598: -- Parameters received
599: IF (l_Debug_Level <= 1) THEN
596: END IF;
597:
598: -- Parameters received
599: IF (l_Debug_Level <= 1) THEN
600: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
601: cln_debug_pub.Add('itemtype - '||itemtype, 1);
602: cln_debug_pub.Add('itemkey - '||itemkey, 1);
603: cln_debug_pub.Add('actid - '||actid, 1);
604: cln_debug_pub.Add('funcmode - '||funcmode, 1);
597:
598: -- Parameters received
599: IF (l_Debug_Level <= 1) THEN
600: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
601: cln_debug_pub.Add('itemtype - '||itemtype, 1);
602: cln_debug_pub.Add('itemkey - '||itemkey, 1);
603: cln_debug_pub.Add('actid - '||actid, 1);
604: cln_debug_pub.Add('funcmode - '||funcmode, 1);
605: cln_debug_pub.Add('---------------------------------------------',1);
598: -- Parameters received
599: IF (l_Debug_Level <= 1) THEN
600: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
601: cln_debug_pub.Add('itemtype - '||itemtype, 1);
602: cln_debug_pub.Add('itemkey - '||itemkey, 1);
603: cln_debug_pub.Add('actid - '||actid, 1);
604: cln_debug_pub.Add('funcmode - '||funcmode, 1);
605: cln_debug_pub.Add('---------------------------------------------',1);
606: END IF;
599: IF (l_Debug_Level <= 1) THEN
600: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
601: cln_debug_pub.Add('itemtype - '||itemtype, 1);
602: cln_debug_pub.Add('itemkey - '||itemkey, 1);
603: cln_debug_pub.Add('actid - '||actid, 1);
604: cln_debug_pub.Add('funcmode - '||funcmode, 1);
605: cln_debug_pub.Add('---------------------------------------------',1);
606: END IF;
607:
600: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
601: cln_debug_pub.Add('itemtype - '||itemtype, 1);
602: cln_debug_pub.Add('itemkey - '||itemkey, 1);
603: cln_debug_pub.Add('actid - '||actid, 1);
604: cln_debug_pub.Add('funcmode - '||funcmode, 1);
605: cln_debug_pub.Add('---------------------------------------------',1);
606: END IF;
607:
608: -- if funcmode is not null then exit
601: cln_debug_pub.Add('itemtype - '||itemtype, 1);
602: cln_debug_pub.Add('itemkey - '||itemkey, 1);
603: cln_debug_pub.Add('actid - '||actid, 1);
604: cln_debug_pub.Add('funcmode - '||funcmode, 1);
605: cln_debug_pub.Add('---------------------------------------------',1);
606: END IF;
607:
608: -- if funcmode is not null then exit
609: IF (funcmode <> wf_engine.eng_run) THEN
608: -- if funcmode is not null then exit
609: IF (funcmode <> wf_engine.eng_run) THEN
610: resultout := wf_engine.eng_null;
611: IF (l_Debug_Level <= 2) THEN
612: cln_debug_pub.Add('M4U:====== Exiting update_collab_setattr - Normal : resultout - ' || resultout,2);
613: END IF;
614: RETURN;
615: END IF;
616:
615: END IF;
616:
617: l_event_key := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_EVENT_KEY',TRUE);
618: IF (l_Debug_Level <= 1) THEN
619: cln_debug_pub.Add('Ecx Event Key ----'||l_event_key,1);
620: END IF;
621:
622: -- ECX Parameter1 contains the collaboration ID
623: l_ecx_parameter1 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER1',TRUE);
621:
622: -- ECX Parameter1 contains the collaboration ID
623: l_ecx_parameter1 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER1',TRUE);
624: IF (l_Debug_Level <= 1) THEN
625: cln_debug_pub.Add('ECX Parameter1 ----'||l_ecx_parameter1,1);
626: END IF;
627:
628: l_ecx_parameter2 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER2',TRUE);
629: IF (l_Debug_Level <= 1) THEN
626: END IF;
627:
628: l_ecx_parameter2 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER2',TRUE);
629: IF (l_Debug_Level <= 1) THEN
630: cln_debug_pub.Add('ECX Parameter2 ----'||l_ecx_parameter2,1);
631: END IF;
632:
633: l_ecx_parameter3 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER3',TRUE);
634: IF (l_Debug_Level <= 1) THEN
631: END IF;
632:
633: l_ecx_parameter3 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER3',TRUE);
634: IF (l_Debug_Level <= 1) THEN
635: cln_debug_pub.Add('ECX Parameter3 ----'||l_ecx_parameter3,1);
636: END IF;
637:
638: l_ecx_parameter4 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER4',TRUE);
639: IF (l_Debug_Level <= 1) THEN
636: END IF;
637:
638: l_ecx_parameter4 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER4',TRUE);
639: IF (l_Debug_Level <= 1) THEN
640: cln_debug_pub.Add('ECX Parameter4 ----'||l_ecx_parameter4,1);
641: END IF;
642:
643: l_ecx_parameter5 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER5',TRUE);
644: IF (l_Debug_Level <= 1) THEN
641: END IF;
642:
643: l_ecx_parameter5 := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER5',TRUE);
644: IF (l_Debug_Level <= 1) THEN
645: cln_debug_pub.Add('ECX Parameter5 ----'||l_ecx_parameter5,1);
646: END IF;
647:
648: l_coll_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_CLN_COLL_TYPE',TRUE);
649: IF (l_Debug_Level <= 1) THEN
646: END IF;
647:
648: l_coll_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_CLN_COLL_TYPE',TRUE);
649: IF (l_Debug_Level <= 1) THEN
650: cln_debug_pub.Add('COLLABORATION TYPE ----'||l_coll_type,1);
651: END IF;
652:
653: l_doc_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_CLN_DOC_TYPE',TRUE);
654: IF (l_Debug_Level <= 1) THEN
651: END IF;
652:
653: l_doc_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_CLN_DOC_TYPE',TRUE);
654: IF (l_Debug_Level <= 1) THEN
655: cln_debug_pub.Add('DOCUMENT TYPE ----'||l_doc_type,1);
656: END IF;
657:
658: l_xmlg_transaction_type := wf_engine.GetItemAttrText(itemtype, itemkey,'ECX_TRANSACTION_TYPE',TRUE);
659: IF (l_Debug_Level <= 1) THEN
656: END IF;
657:
658: l_xmlg_transaction_type := wf_engine.GetItemAttrText(itemtype, itemkey,'ECX_TRANSACTION_TYPE',TRUE);
659: IF (l_Debug_Level <= 1) THEN
660: cln_debug_pub.Add('ECX Transaction Type ----'||l_xmlg_transaction_type, 1);
661: END IF;
662:
663: l_xmlg_transaction_subtype := wf_engine.GetItemAttrText(itemtype, itemkey,'ECX_TRANSACTION_SUBTYPE',TRUE);
664: IF (l_Debug_Level <= 1) THEN
661: END IF;
662:
663: l_xmlg_transaction_subtype := wf_engine.GetItemAttrText(itemtype, itemkey,'ECX_TRANSACTION_SUBTYPE',TRUE);
664: IF (l_Debug_Level <= 1) THEN
665: cln_debug_pub.Add('ECX Transaction Sub Type ----'||l_xmlg_transaction_subtype, 1);
666: END IF;
667:
668: l_msg_text := wf_engine.GetItemAttrText(itemtype, itemkey,'MESSAGE_TEXT',TRUE);
669: IF (l_Debug_Level <= 1) THEN
666: END IF;
667:
668: l_msg_text := wf_engine.GetItemAttrText(itemtype, itemkey,'MESSAGE_TEXT',TRUE);
669: IF (l_Debug_Level <= 1) THEN
670: cln_debug_pub.Add('Message Text ----'||l_msg_text, 1);
671: END IF;
672:
673: l_attribute1 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE1',TRUE);
674: IF (l_Debug_Level <= 1) THEN
671: END IF;
672:
673: l_attribute1 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE1',TRUE);
674: IF (l_Debug_Level <= 1) THEN
675: cln_debug_pub.Add('ATTRIBUTE1 ----'||l_attribute1, 1);
676: END IF;
677:
678: l_attribute2 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE2',TRUE);
679: IF (l_Debug_Level <= 1) THEN
676: END IF;
677:
678: l_attribute2 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE2',TRUE);
679: IF (l_Debug_Level <= 1) THEN
680: cln_debug_pub.Add('ATTRIBUTE2 ----'||l_attribute2, 1);
681: END IF;
682:
683: l_attribute3 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE3',TRUE);
684: IF (l_Debug_Level <= 1) THEN
681: END IF;
682:
683: l_attribute3 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE3',TRUE);
684: IF (l_Debug_Level <= 1) THEN
685: cln_debug_pub.Add('ATTRIBUTE3 ----'||l_attribute3, 1);
686: END IF;
687:
688: l_attribute4 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE4',TRUE);
689: IF (l_Debug_Level <= 1) THEN
686: END IF;
687:
688: l_attribute4 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE4',TRUE);
689: IF (l_Debug_Level <= 1) THEN
690: cln_debug_pub.Add('ATTRIBUTE4 ----'||l_attribute4, 1);
691: END IF;
692:
693: l_attribute5 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE5',TRUE);
694: IF (l_Debug_Level <= 1) THEN
691: END IF;
692:
693: l_attribute5 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE5',TRUE);
694: IF (l_Debug_Level <= 1) THEN
695: cln_debug_pub.Add('ATTRIBUTE5 ----'||l_attribute5, 1);
696: END IF;
697:
698: l_attribute6 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE6',TRUE);
699: IF (l_Debug_Level <= 1) THEN
696: END IF;
697:
698: l_attribute6 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE6',TRUE);
699: IF (l_Debug_Level <= 1) THEN
700: cln_debug_pub.Add('ATTRIBUTE6 ----'||l_attribute6, 1);
701: END IF;
702:
703: l_attribute7 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE7',TRUE);
704: IF (l_Debug_Level <= 1) THEN
701: END IF;
702:
703: l_attribute7 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE7',TRUE);
704: IF (l_Debug_Level <= 1) THEN
705: cln_debug_pub.Add('ATTRIBUTE7 ----'||l_attribute7, 1);
706: END IF;
707:
708: l_attribute8 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE8',TRUE);
709: IF (l_Debug_Level <= 1) THEN
706: END IF;
707:
708: l_attribute8 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE8',TRUE);
709: IF (l_Debug_Level <= 1) THEN
710: cln_debug_pub.Add('ATTRIBUTE8 ----'||l_attribute8, 1);
711: END IF;
712:
713: l_attribute9 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE9',TRUE);
714: IF (l_Debug_Level <= 1) THEN
711: END IF;
712:
713: l_attribute9 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE9',TRUE);
714: IF (l_Debug_Level <= 1) THEN
715: cln_debug_pub.Add('ATTRIBUTE9 ----'||l_attribute9, 1);
716: END IF;
717:
718: l_attribute10 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE10',TRUE);
719: IF (l_Debug_Level <= 1) THEN
716: END IF;
717:
718: l_attribute10 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE10',TRUE);
719: IF (l_Debug_Level <= 1) THEN
720: cln_debug_pub.Add('ATTRIBUTE10 ----'||l_attribute10, 1);
721: END IF;
722:
723: l_attribute11 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE11',TRUE);
724: IF (l_Debug_Level <= 1) THEN
721: END IF;
722:
723: l_attribute11 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE11',TRUE);
724: IF (l_Debug_Level <= 1) THEN
725: cln_debug_pub.Add('ATTRIBUTE11 ----'||l_attribute11, 1);
726: END IF;
727:
728: l_attribute12 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE12',TRUE);
729: IF (l_Debug_Level <= 1) THEN
726: END IF;
727:
728: l_attribute12 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE12',TRUE);
729: IF (l_Debug_Level <= 1) THEN
730: cln_debug_pub.Add('ATTRIBUTE12 ----'||l_attribute12, 1);
731: END IF;
732:
733: l_attribute13 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE13',TRUE);
734: IF (l_Debug_Level <= 1) THEN
731: END IF;
732:
733: l_attribute13 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE13',TRUE);
734: IF (l_Debug_Level <= 1) THEN
735: cln_debug_pub.Add('ATTRIBUTE13 ----'||l_attribute13, 1);
736: END IF;
737:
738: l_attribute14 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE14',TRUE);
739: IF (l_Debug_Level <= 1) THEN
736: END IF;
737:
738: l_attribute14 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE14',TRUE);
739: IF (l_Debug_Level <= 1) THEN
740: cln_debug_pub.Add('ATTRIBUTE14 ----'||l_attribute14, 1);
741: END IF;
742:
743: l_attribute15 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE15',TRUE);
744: IF (l_Debug_Level <= 1) THEN
741: END IF;
742:
743: l_attribute15 := wf_engine.GetItemAttrText(itemtype, itemkey,'ATTRIBUTE15',TRUE);
744: IF (l_Debug_Level <= 1) THEN
745: cln_debug_pub.Add('ATTRIBUTE15 ----'||l_attribute15, 1);
746: END IF;
747:
748: l_dattribute1 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey,'DATTRIBUTE1',TRUE));
749: IF (l_Debug_Level <= 1) THEN
746: END IF;
747:
748: l_dattribute1 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey,'DATTRIBUTE1',TRUE));
749: IF (l_Debug_Level <= 1) THEN
750: cln_debug_pub.Add('DATTRIBUTE1 ----'||l_dattribute1, 1);
751: END IF;
752:
753: l_dattribute2 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey,'DATTRIBUTE2',TRUE));
754: IF (l_Debug_Level <= 1) THEN
751: END IF;
752:
753: l_dattribute2 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey,'DATTRIBUTE2',TRUE));
754: IF (l_Debug_Level <= 1) THEN
755: cln_debug_pub.Add('DATTRIBUTE2 ----'||l_dattribute2, 1);
756: END IF;
757:
758: l_dattribute3 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey,'DATTRIBUTE3',TRUE));
759: IF (l_Debug_Level <= 1) THEN
756: END IF;
757:
758: l_dattribute3 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey,'DATTRIBUTE3',TRUE));
759: IF (l_Debug_Level <= 1) THEN
760: cln_debug_pub.Add('DATTRIBUTE3 ----'||l_dattribute3, 1);
761: END IF;
762:
763: l_dattribute4 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey,'DATTRIBUTE4',TRUE));
764: IF (l_Debug_Level <= 1) THEN
761: END IF;
762:
763: l_dattribute4 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey,'DATTRIBUTE4',TRUE));
764: IF (l_Debug_Level <= 1) THEN
765: cln_debug_pub.Add('DATTRIBUTE4 ----'||l_dattribute4, 1);
766: END IF;
767:
768: l_dattribute5 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey,'DATTRIBUTE5',TRUE));
769: IF (l_Debug_Level <= 1) THEN
766: END IF;
767:
768: l_dattribute5 := m4u_ucc_utils.CONVERT_TO_DATE(wf_engine.GetItemAttrText(itemtype, itemkey,'DATTRIBUTE5',TRUE));
769: IF (l_Debug_Level <= 1) THEN
770: cln_debug_pub.Add('DATTRIBUTE5 ----'||l_dattribute5, 1);
771: END IF;
772:
773: l_xmlg_message_id := wf_engine.GetItemAttrText(itemtype, itemkey,'ECX_MSGID_ATTR',TRUE);
774: IF (l_debug_Level <= 1) THEN
771: END IF;
772:
773: l_xmlg_message_id := wf_engine.GetItemAttrText(itemtype, itemkey,'ECX_MSGID_ATTR',TRUE);
774: IF (l_debug_Level <= 1) THEN
775: cln_debug_pub.Add('XMLG Message ID ----' || l_xmlg_message_id,1);
776: END IF;
777:
778: l_xmlg_document_id := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_DOCUMENT_ID',TRUE);
779: IF (l_debug_Level <= 1) THEN
776: END IF;
777:
778: l_xmlg_document_id := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_DOCUMENT_ID',TRUE);
779: IF (l_debug_Level <= 1) THEN
780: cln_debug_pub.Add('XMLG Document ID ----' || l_xmlg_document_id,1);
781: END IF;
782:
783: -- This attribute when filled is used for add messages screen
784: l_wf_error_msg := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_ERROR_MSG',TRUE );
782:
783: -- This attribute when filled is used for add messages screen
784: l_wf_error_msg := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_ERROR_MSG',TRUE );
785: IF (l_debug_Level <= 1) THEN
786: cln_debug_pub.Add('WF Error Msg ----' || l_wf_error_msg,1);
787: END IF;
788:
789: -- This attribute is used for puttg up prefix to generic msgs that can be used
790: -- in the collaboration event details screen
789: -- This attribute is used for puttg up prefix to generic msgs that can be used
790: -- in the collaboration event details screen
791: l_fnd_msg_key := wf_engine.GetActivityAttrText(itemtype, itemkey, actid,'M4U_FND_MSG',TRUE);
792: IF (l_debug_Level <= 1) THEN
793: cln_debug_pub.Add('Message Prefix ----' || l_fnd_msg_key,1);
794: END IF;
795:
796: -- check if error type is set at Activity level
797: -- else check at item level, doing this because some of the WF activities involving the
801: l_wf_error_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_ERROR_TYPE',TRUE);
802: END IF;
803:
804: IF (l_debug_Level <= 1) THEN
805: cln_debug_pub.Add('l_wf_error_type ----' || l_wf_error_type,1);
806: END IF;
807:
808: IF (l_Debug_Level <= 1) THEN
809: cln_debug_pub.Add('------------------------------------------', 1);
805: cln_debug_pub.Add('l_wf_error_type ----' || l_wf_error_type,1);
806: END IF;
807:
808: IF (l_Debug_Level <= 1) THEN
809: cln_debug_pub.Add('------------------------------------------', 1);
810: END IF;
811:
812: -- set CLN Disposition, CLN Coll Status, CLN Doc status, CLN Message Text
813: IF ( l_wf_error_type is NULL) THEN
827: aname => 'M4U_ERROR_FLAG',
828: avalue => 'Y');
829:
830: IF (l_debug_Level <= 1) THEN
831: cln_debug_pub.Add('M4U_ERROR_FLAG - Y',1);
832: END IF;
833: END IF;
834:
835: CLN_CH_COLLABORATION_PKG.UPDATE_COLLABORATION(
860: x_dtl_coll_id => l_coll_dtl_id
861: );
862:
863: IF (l_Debug_Level <= 1) THEN
864: cln_debug_pub.add('collaboration history updated for cln_id - ' || l_coll_id,1);
865: cln_debug_pub.add('Collab_detail_id - ' || l_coll_dtl_id,1);
866: cln_debug_pub.add('x_return_status - ' || l_return_status,1);
867: cln_debug_pub.add('x_msg_data - ' || l_msg_data,1);
868: END IF;
861: );
862:
863: IF (l_Debug_Level <= 1) THEN
864: cln_debug_pub.add('collaboration history updated for cln_id - ' || l_coll_id,1);
865: cln_debug_pub.add('Collab_detail_id - ' || l_coll_dtl_id,1);
866: cln_debug_pub.add('x_return_status - ' || l_return_status,1);
867: cln_debug_pub.add('x_msg_data - ' || l_msg_data,1);
868: END IF;
869:
862:
863: IF (l_Debug_Level <= 1) THEN
864: cln_debug_pub.add('collaboration history updated for cln_id - ' || l_coll_id,1);
865: cln_debug_pub.add('Collab_detail_id - ' || l_coll_dtl_id,1);
866: cln_debug_pub.add('x_return_status - ' || l_return_status,1);
867: cln_debug_pub.add('x_msg_data - ' || l_msg_data,1);
868: END IF;
869:
870:
863: IF (l_Debug_Level <= 1) THEN
864: cln_debug_pub.add('collaboration history updated for cln_id - ' || l_coll_id,1);
865: cln_debug_pub.add('Collab_detail_id - ' || l_coll_dtl_id,1);
866: cln_debug_pub.add('x_return_status - ' || l_return_status,1);
867: cln_debug_pub.add('x_msg_data - ' || l_msg_data,1);
868: END IF;
869:
870:
871: IF l_return_status <> 'S' THEN
896: aname => 'M4U_ERROR_FLAG',
897: avalue => 'Y');
898:
899: IF (l_debug_Level <= 1) THEN
900: cln_debug_pub.Add('M4U_ERROR_FLAG - Y',1);
901: END IF;
902:
903: -- Notify the administrator
904: CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR(l_fnd_msg);
903: -- Notify the administrator
904: CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR(l_fnd_msg);
905:
906: IF (l_debug_Level <= 1) THEN
907: cln_debug_pub.Add('return from call to Notify_Administrator',1);
908: END IF;
909:
910: IF (l_doc_type = 'M4U_CIN' OR l_doc_type = 'M4U_RCIR' OR l_doc_type = 'M4U_RCIR_BATCH') THEN
911: ego_uccnet_events_pub.update_event_disposition(
917: x_msg_count => l_msg_count,
918: x_msg_data => l_msg_data );
919:
920: IF (l_Debug_Level <= 1) THEN
921: cln_debug_pub.Add('ego_uccnet_events_pub.update_event_disposition - returns', 1);
922: cln_debug_pub.Add(' l_return_status - '|| l_return_status, 1);
923: cln_debug_pub.Add(' l_msg_data - '|| l_msg_data, 1);
924: cln_debug_pub.Add(' l_msg_count - '|| l_msg_count, 1);
925: END IF;
918: x_msg_data => l_msg_data );
919:
920: IF (l_Debug_Level <= 1) THEN
921: cln_debug_pub.Add('ego_uccnet_events_pub.update_event_disposition - returns', 1);
922: cln_debug_pub.Add(' l_return_status - '|| l_return_status, 1);
923: cln_debug_pub.Add(' l_msg_data - '|| l_msg_data, 1);
924: cln_debug_pub.Add(' l_msg_count - '|| l_msg_count, 1);
925: END IF;
926:
919:
920: IF (l_Debug_Level <= 1) THEN
921: cln_debug_pub.Add('ego_uccnet_events_pub.update_event_disposition - returns', 1);
922: cln_debug_pub.Add(' l_return_status - '|| l_return_status, 1);
923: cln_debug_pub.Add(' l_msg_data - '|| l_msg_data, 1);
924: cln_debug_pub.Add(' l_msg_count - '|| l_msg_count, 1);
925: END IF;
926:
927: IF (l_Debug_Level <= 2) THEN
920: IF (l_Debug_Level <= 1) THEN
921: cln_debug_pub.Add('ego_uccnet_events_pub.update_event_disposition - returns', 1);
922: cln_debug_pub.Add(' l_return_status - '|| l_return_status, 1);
923: cln_debug_pub.Add(' l_msg_data - '|| l_msg_data, 1);
924: cln_debug_pub.Add(' l_msg_count - '|| l_msg_count, 1);
925: END IF;
926:
927: IF (l_Debug_Level <= 2) THEN
928: cln_debug_pub.Add('====== Exiting m4u_xml_genprocess_out.update_cln_collaborations - Normal : resultout-' || resultout,2);
924: cln_debug_pub.Add(' l_msg_count - '|| l_msg_count, 1);
925: END IF;
926:
927: IF (l_Debug_Level <= 2) THEN
928: cln_debug_pub.Add('====== Exiting m4u_xml_genprocess_out.update_cln_collaborations - Normal : resultout-' || resultout,2);
929: END IF;
930: RETURN; -- Something wrong, simply notify admin and bailout, ...
931: END IF;
932: END IF;
933:
934:
935: IF l_wf_error_msg IS NOT NULL THEN
936: IF (l_Debug_Level <= 1) THEN
937: cln_debug_pub.add('adding error detail to dtl_coll_id - ' || l_coll_dtl_id,1);
938: cln_debug_pub.add('message - ' || l_wf_error_msg,1);
939: END IF;
940:
941:
934:
935: IF l_wf_error_msg IS NOT NULL THEN
936: IF (l_Debug_Level <= 1) THEN
937: cln_debug_pub.add('adding error detail to dtl_coll_id - ' || l_coll_dtl_id,1);
938: cln_debug_pub.add('message - ' || l_wf_error_msg,1);
939: END IF;
940:
941:
942: IF (l_doc_type = 'M4U_CIN' OR l_doc_type = 'M4U_RCIR' OR l_doc_type = 'M4U_RCIR_BATCH') THEN
949: x_msg_count => l_msg_count,
950: x_msg_data => l_msg_data );
951:
952: IF (l_Debug_Level <= 1) THEN
953: cln_debug_pub.Add('ego_uccnet_events_pub.update_event_disposition - returns', 1);
954: cln_debug_pub.Add(' l_return_status - '|| l_return_status, 1);
955: cln_debug_pub.Add(' l_msg_data - '|| l_msg_data, 1);
956: cln_debug_pub.Add(' l_msg_count - '|| l_msg_count, 1);
957: END IF;
950: x_msg_data => l_msg_data );
951:
952: IF (l_Debug_Level <= 1) THEN
953: cln_debug_pub.Add('ego_uccnet_events_pub.update_event_disposition - returns', 1);
954: cln_debug_pub.Add(' l_return_status - '|| l_return_status, 1);
955: cln_debug_pub.Add(' l_msg_data - '|| l_msg_data, 1);
956: cln_debug_pub.Add(' l_msg_count - '|| l_msg_count, 1);
957: END IF;
958: END IF;
951:
952: IF (l_Debug_Level <= 1) THEN
953: cln_debug_pub.Add('ego_uccnet_events_pub.update_event_disposition - returns', 1);
954: cln_debug_pub.Add(' l_return_status - '|| l_return_status, 1);
955: cln_debug_pub.Add(' l_msg_data - '|| l_msg_data, 1);
956: cln_debug_pub.Add(' l_msg_count - '|| l_msg_count, 1);
957: END IF;
958: END IF;
959:
952: IF (l_Debug_Level <= 1) THEN
953: cln_debug_pub.Add('ego_uccnet_events_pub.update_event_disposition - returns', 1);
954: cln_debug_pub.Add(' l_return_status - '|| l_return_status, 1);
955: cln_debug_pub.Add(' l_msg_data - '|| l_msg_data, 1);
956: cln_debug_pub.Add(' l_msg_count - '|| l_msg_count, 1);
957: END IF;
958: END IF;
959:
960:
966: p_dtl_msg => l_wf_error_msg
967: );
968:
969: IF (l_Debug_Level <= 1) THEN
970: cln_debug_pub.add('error detail added to dtl_coll_id - ' || l_coll_dtl_id,1);
971: cln_debug_pub.add('x_return_status - ' || l_return_status,1);
972: cln_debug_pub.add('x_msg_data - ' || l_msg_data,1);
973: END IF;
974:
967: );
968:
969: IF (l_Debug_Level <= 1) THEN
970: cln_debug_pub.add('error detail added to dtl_coll_id - ' || l_coll_dtl_id,1);
971: cln_debug_pub.add('x_return_status - ' || l_return_status,1);
972: cln_debug_pub.add('x_msg_data - ' || l_msg_data,1);
973: END IF;
974:
975: IF l_return_status <> 'S' THEN
968:
969: IF (l_Debug_Level <= 1) THEN
970: cln_debug_pub.add('error detail added to dtl_coll_id - ' || l_coll_dtl_id,1);
971: cln_debug_pub.add('x_return_status - ' || l_return_status,1);
972: cln_debug_pub.add('x_msg_data - ' || l_msg_data,1);
973: END IF;
974:
975: IF l_return_status <> 'S' THEN
976: FND_MESSAGE.SET_NAME('CLN','M4U_UPDATE_COLL_FAILURE');
1000: aname => 'M4U_ERROR_FLAG',
1001: avalue => 'Y');
1002:
1003: IF (l_debug_Level <= 1) THEN
1004: cln_debug_pub.Add('M4U_ERROR_FLAG - set to Y',1);
1005: END IF;
1006:
1007: CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR(l_fnd_msg);
1008: IF (l_debug_Level <= 1) THEN
1005: END IF;
1006:
1007: CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR(l_fnd_msg);
1008: IF (l_debug_Level <= 1) THEN
1009: cln_debug_pub.Add('returning from call to Notifiy_Administrator',1);
1010: END IF;
1011: END IF;
1012: END IF;
1013:
1018: aname => 'M4U_ERROR_TYPE',
1019: avalue => NULL);
1020:
1021: IF (l_debug_Level <= 1) THEN
1022: cln_debug_pub.Add('M4U_ERROR_TYPE set to NULL',1);
1023: END IF;
1024:
1025: -- this nullfies the value stored in the message for add messages table
1026: wf_engine.setItemAttrtext(
1029: aname => 'M4U_ERROR_MSG',
1030: avalue => NULL);
1031:
1032: IF (l_debug_Level <= 1) THEN
1033: cln_debug_pub.Add('M4U_ERROR_MSG set to NULL',1);
1034: END IF;
1035:
1036: resultout := wf_engine.eng_completed;
1037:
1035:
1036: resultout := wf_engine.eng_completed;
1037:
1038: IF (l_Debug_Level <= 2) THEN
1039: cln_debug_pub.Add('====== Exiting m4u_xml_genprocess_out.update_collab_setattr - Normal : resultout-' || resultout,2);
1040: END IF;
1041:
1042: RETURN;
1043: -- Exception Handling
1060:
1061: CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR(l_fnd_msg);
1062:
1063: IF (l_Debug_Level <= 5) THEN
1064: cln_debug_pub.Add('Unexpected Error -'||l_error_code||' : '||l_error_msg,5);
1065: END IF;
1066:
1067: IF (l_Debug_Level <= 2) THEN
1068: cln_debug_pub.Add('=========== Exiting m4u_xml_genprocess_out.update_collab_setattr - Exception =========== ',2);
1064: cln_debug_pub.Add('Unexpected Error -'||l_error_code||' : '||l_error_msg,5);
1065: END IF;
1066:
1067: IF (l_Debug_Level <= 2) THEN
1068: cln_debug_pub.Add('=========== Exiting m4u_xml_genprocess_out.update_collab_setattr - Exception =========== ',2);
1069: END IF;
1070:
1071: wf_Core.context('m4u_xml_genprocess_out','update_collab_setattr',
1072: itemtype, itemkey, to_char(actid), funcmode);
1153: as well, that is GTIN=TOP_GTIN
1154: */
1155: BEGIN
1156: IF (l_debug_Level <= 2) THEN
1157: cln_debug_pub.Add('========= Entering create_batchcollab_setattr == ',2);
1158: END IF;
1159:
1160: -- Parameters received
1161: IF (l_Debug_Level <= 1) THEN
1158: END IF;
1159:
1160: -- Parameters received
1161: IF (l_Debug_Level <= 1) THEN
1162: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
1163: cln_debug_pub.Add('itemtype - '||itemtype, 1);
1164: cln_debug_pub.Add('itemkey - '||itemkey, 1);
1165: cln_debug_pub.Add('actid - '||actid, 1);
1166: cln_debug_pub.Add('funcmode - '||funcmode, 1);
1159:
1160: -- Parameters received
1161: IF (l_Debug_Level <= 1) THEN
1162: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
1163: cln_debug_pub.Add('itemtype - '||itemtype, 1);
1164: cln_debug_pub.Add('itemkey - '||itemkey, 1);
1165: cln_debug_pub.Add('actid - '||actid, 1);
1166: cln_debug_pub.Add('funcmode - '||funcmode, 1);
1167: cln_debug_pub.Add('---------------------------------------------',1);
1160: -- Parameters received
1161: IF (l_Debug_Level <= 1) THEN
1162: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
1163: cln_debug_pub.Add('itemtype - '||itemtype, 1);
1164: cln_debug_pub.Add('itemkey - '||itemkey, 1);
1165: cln_debug_pub.Add('actid - '||actid, 1);
1166: cln_debug_pub.Add('funcmode - '||funcmode, 1);
1167: cln_debug_pub.Add('---------------------------------------------',1);
1168: END IF;
1161: IF (l_Debug_Level <= 1) THEN
1162: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
1163: cln_debug_pub.Add('itemtype - '||itemtype, 1);
1164: cln_debug_pub.Add('itemkey - '||itemkey, 1);
1165: cln_debug_pub.Add('actid - '||actid, 1);
1166: cln_debug_pub.Add('funcmode - '||funcmode, 1);
1167: cln_debug_pub.Add('---------------------------------------------',1);
1168: END IF;
1169:
1162: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
1163: cln_debug_pub.Add('itemtype - '||itemtype, 1);
1164: cln_debug_pub.Add('itemkey - '||itemkey, 1);
1165: cln_debug_pub.Add('actid - '||actid, 1);
1166: cln_debug_pub.Add('funcmode - '||funcmode, 1);
1167: cln_debug_pub.Add('---------------------------------------------',1);
1168: END IF;
1169:
1170: -- if funcmode is not null then exit
1163: cln_debug_pub.Add('itemtype - '||itemtype, 1);
1164: cln_debug_pub.Add('itemkey - '||itemkey, 1);
1165: cln_debug_pub.Add('actid - '||actid, 1);
1166: cln_debug_pub.Add('funcmode - '||funcmode, 1);
1167: cln_debug_pub.Add('---------------------------------------------',1);
1168: END IF;
1169:
1170: -- if funcmode is not null then exit
1171: IF (funcmode <> wf_engine.eng_run) THEN
1170: -- if funcmode is not null then exit
1171: IF (funcmode <> wf_engine.eng_run) THEN
1172: resultout := wf_engine.eng_null;
1173: IF (l_Debug_Level <= 2) THEN
1174: cln_debug_pub.Add('M4U:====== Exiting create_batchcollab_setattr - Normal : resultout - ' || resultout,2);
1175: END IF;
1176: RETURN;
1177: END IF;
1178:
1178:
1179: -- Pramaters obtained with the event from EGO
1180: l_xmlg_transaction_type := wf_engine.GetItemAttrText(itemtype, itemkey,'ECX_TRANSACTION_TYPE',TRUE);
1181: IF (l_Debug_Level <= 1) THEN
1182: cln_debug_pub.Add('ECX Transaction Type ----'||l_xmlg_transaction_type, 1);
1183: END IF;
1184:
1185: l_xmlg_transaction_subtype := wf_engine.GetItemAttrText(itemtype, itemkey,'ECX_TRANSACTION_SUBTYPE',TRUE);
1186: IF (l_Debug_Level <= 1) THEN
1183: END IF;
1184:
1185: l_xmlg_transaction_subtype := wf_engine.GetItemAttrText(itemtype, itemkey,'ECX_TRANSACTION_SUBTYPE',TRUE);
1186: IF (l_Debug_Level <= 1) THEN
1187: cln_debug_pub.Add('ECX Transaction Sub Type ----'||l_xmlg_transaction_subtype, 1);
1188: END IF;
1189:
1190: l_ego_batch_id := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER2',TRUE);
1191: IF (l_Debug_Level <= 1) THEN
1188: END IF;
1189:
1190: l_ego_batch_id := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER2',TRUE);
1191: IF (l_Debug_Level <= 1) THEN
1192: cln_debug_pub.Add('EGO batch id ----'|| l_ego_batch_id , 1);
1193: END IF;
1194:
1195: l_ego_subbatch_id := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER1',TRUE);
1196: IF (l_Debug_Level <= 1) THEN
1193: END IF;
1194:
1195: l_ego_subbatch_id := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER1',TRUE);
1196: IF (l_Debug_Level <= 1) THEN
1197: cln_debug_pub.Add('EGO subbatch id ----'|| l_ego_subbatch_id , 1);
1198: END IF;
1199:
1200: l_event_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER3',TRUE);
1201: IF (l_Debug_Level <= 1) THEN
1198: END IF;
1199:
1200: l_event_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'ECX_PARAMETER3',TRUE);
1201: IF (l_Debug_Level <= 1) THEN
1202: cln_debug_pub.Add('Event Type ----'|| l_event_type , 1);
1203: END IF;
1204:
1205: l_coll_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_CLN_COLL_TYPE',TRUE);
1206: IF (l_Debug_Level <= 1) THEN
1203: END IF;
1204:
1205: l_coll_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_CLN_COLL_TYPE',TRUE);
1206: IF (l_Debug_Level <= 1) THEN
1207: cln_debug_pub.Add('Collaboration Type ----'|| l_coll_type , 1);
1208: END IF;
1209:
1210: l_doc_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_CLN_DOC_TYPE',TRUE);
1211: IF (l_Debug_Level <= 1) THEN
1208: END IF;
1209:
1210: l_doc_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_CLN_DOC_TYPE',TRUE);
1211: IF (l_Debug_Level <= 1) THEN
1212: cln_debug_pub.Add('DOCUMENT TYPE ----'||l_doc_type,1);
1213: END IF;
1214:
1215:
1216: l_xmlg_document_id := l_ego_batch_id || ':' || l_ego_subbatch_id;
1215:
1216: l_xmlg_document_id := l_ego_batch_id || ':' || l_ego_subbatch_id;
1217:
1218: IF (l_Debug_Level <= 1) THEN
1219: cln_debug_pub.Add('ECX document id ----'|| l_xmlg_document_id, 1);
1220: END IF;
1221:
1222:
1223: -- set item-attributes of WF
1221:
1222:
1223: -- set item-attributes of WF
1224: IF (l_Debug_Level <= 1) THEN
1225: cln_debug_pub.Add('----- Set WF Item Attributes ----- ',1);
1226: END IF;
1227:
1228: wf_engine.setItemAttrtext(
1229: itemtype => itemtype,
1231: aname => 'ECX_PARTY_SITE_ID',
1232: avalue => m4u_ucc_utils.g_party_site_id);
1233:
1234: IF (l_Debug_Level <= 1) THEN
1235: cln_debug_pub.Add(' Item Attribute - ECX_PARTY_SITE_ID set',1);
1236: END IF;
1237:
1238: wf_engine.setItemAttrtext(
1239: itemtype => itemtype,
1241: aname => 'ECX_PARTY_ID',
1242: avalue => m4u_ucc_utils.g_party_id);
1243:
1244: IF (l_Debug_Level <= 1) THEN
1245: cln_debug_pub.Add(' Item Attribute - ECX_PARTY_ID set',1);
1246: END IF;
1247:
1248: wf_engine.setItemAttrtext(
1249: itemtype => itemtype,
1251: aname => 'ECX_PARTY_TYPE',
1252: avalue => m4u_ucc_utils.c_party_type);
1253:
1254: IF (l_Debug_Level <= 1) THEN
1255: cln_debug_pub.Add(' Item Attribute - ECX_PARTY_TYPE set',1);
1256: END IF;
1257:
1258: wf_engine.setItemAttrtext(
1259: itemtype => itemtype,
1261: aname => 'M4U_XML_VALIDATION_REQUIRED',
1262: avalue => fnd_profile.value('M4U_XML_VALIDATION_REQUIRED'));
1263:
1264: IF (l_Debug_Level <= 1) THEN
1265: cln_debug_pub.Add(' XML Validation Reqd - ' || fnd_profile.value('M4U_XML_VALIDATION_REQUIRED'),1);
1266: END IF;
1267:
1268:
1269:
1280:
1281: EXIT WHEN c_gtinInBatch%NOTFOUND;
1282:
1283: IF (l_Debug_Level <= 1) THEN
1284: cln_debug_pub.Add(' in the loop w/ l_gtin - '|| l_gtin , 1);
1285: cln_debug_pub.Add(' l_event_action - '|| l_event_action , 1);
1286: cln_debug_pub.Add(' l_gtin - '|| l_gtin , 1);
1287: cln_debug_pub.Add(' l_top_gtin - '|| l_top_gtin , 1);
1288: cln_debug_pub.Add(' l_doc_owner - '|| l_doc_owner , 1);
1281: EXIT WHEN c_gtinInBatch%NOTFOUND;
1282:
1283: IF (l_Debug_Level <= 1) THEN
1284: cln_debug_pub.Add(' in the loop w/ l_gtin - '|| l_gtin , 1);
1285: cln_debug_pub.Add(' l_event_action - '|| l_event_action , 1);
1286: cln_debug_pub.Add(' l_gtin - '|| l_gtin , 1);
1287: cln_debug_pub.Add(' l_top_gtin - '|| l_top_gtin , 1);
1288: cln_debug_pub.Add(' l_doc_owner - '|| l_doc_owner , 1);
1289: cln_debug_pub.Add(' l_target_market - '|| l_target_market , 1);
1282:
1283: IF (l_Debug_Level <= 1) THEN
1284: cln_debug_pub.Add(' in the loop w/ l_gtin - '|| l_gtin , 1);
1285: cln_debug_pub.Add(' l_event_action - '|| l_event_action , 1);
1286: cln_debug_pub.Add(' l_gtin - '|| l_gtin , 1);
1287: cln_debug_pub.Add(' l_top_gtin - '|| l_top_gtin , 1);
1288: cln_debug_pub.Add(' l_doc_owner - '|| l_doc_owner , 1);
1289: cln_debug_pub.Add(' l_target_market - '|| l_target_market , 1);
1290: cln_debug_pub.Add(' l_tp_gln - '|| l_tp_gln , 1);
1283: IF (l_Debug_Level <= 1) THEN
1284: cln_debug_pub.Add(' in the loop w/ l_gtin - '|| l_gtin , 1);
1285: cln_debug_pub.Add(' l_event_action - '|| l_event_action , 1);
1286: cln_debug_pub.Add(' l_gtin - '|| l_gtin , 1);
1287: cln_debug_pub.Add(' l_top_gtin - '|| l_top_gtin , 1);
1288: cln_debug_pub.Add(' l_doc_owner - '|| l_doc_owner , 1);
1289: cln_debug_pub.Add(' l_target_market - '|| l_target_market , 1);
1290: cln_debug_pub.Add(' l_tp_gln - '|| l_tp_gln , 1);
1291: cln_debug_pub.Add(' l_org_id - '|| l_org_id , 1);
1284: cln_debug_pub.Add(' in the loop w/ l_gtin - '|| l_gtin , 1);
1285: cln_debug_pub.Add(' l_event_action - '|| l_event_action , 1);
1286: cln_debug_pub.Add(' l_gtin - '|| l_gtin , 1);
1287: cln_debug_pub.Add(' l_top_gtin - '|| l_top_gtin , 1);
1288: cln_debug_pub.Add(' l_doc_owner - '|| l_doc_owner , 1);
1289: cln_debug_pub.Add(' l_target_market - '|| l_target_market , 1);
1290: cln_debug_pub.Add(' l_tp_gln - '|| l_tp_gln , 1);
1291: cln_debug_pub.Add(' l_org_id - '|| l_org_id , 1);
1292: cln_debug_pub.Add(' l_item_number - '|| l_item_number , 1);
1285: cln_debug_pub.Add(' l_event_action - '|| l_event_action , 1);
1286: cln_debug_pub.Add(' l_gtin - '|| l_gtin , 1);
1287: cln_debug_pub.Add(' l_top_gtin - '|| l_top_gtin , 1);
1288: cln_debug_pub.Add(' l_doc_owner - '|| l_doc_owner , 1);
1289: cln_debug_pub.Add(' l_target_market - '|| l_target_market , 1);
1290: cln_debug_pub.Add(' l_tp_gln - '|| l_tp_gln , 1);
1291: cln_debug_pub.Add(' l_org_id - '|| l_org_id , 1);
1292: cln_debug_pub.Add(' l_item_number - '|| l_item_number , 1);
1293: cln_debug_pub.Add(' l_owner_role - '|| l_owner_role , 1);
1286: cln_debug_pub.Add(' l_gtin - '|| l_gtin , 1);
1287: cln_debug_pub.Add(' l_top_gtin - '|| l_top_gtin , 1);
1288: cln_debug_pub.Add(' l_doc_owner - '|| l_doc_owner , 1);
1289: cln_debug_pub.Add(' l_target_market - '|| l_target_market , 1);
1290: cln_debug_pub.Add(' l_tp_gln - '|| l_tp_gln , 1);
1291: cln_debug_pub.Add(' l_org_id - '|| l_org_id , 1);
1292: cln_debug_pub.Add(' l_item_number - '|| l_item_number , 1);
1293: cln_debug_pub.Add(' l_owner_role - '|| l_owner_role , 1);
1294: END IF;
1287: cln_debug_pub.Add(' l_top_gtin - '|| l_top_gtin , 1);
1288: cln_debug_pub.Add(' l_doc_owner - '|| l_doc_owner , 1);
1289: cln_debug_pub.Add(' l_target_market - '|| l_target_market , 1);
1290: cln_debug_pub.Add(' l_tp_gln - '|| l_tp_gln , 1);
1291: cln_debug_pub.Add(' l_org_id - '|| l_org_id , 1);
1292: cln_debug_pub.Add(' l_item_number - '|| l_item_number , 1);
1293: cln_debug_pub.Add(' l_owner_role - '|| l_owner_role , 1);
1294: END IF;
1295:
1288: cln_debug_pub.Add(' l_doc_owner - '|| l_doc_owner , 1);
1289: cln_debug_pub.Add(' l_target_market - '|| l_target_market , 1);
1290: cln_debug_pub.Add(' l_tp_gln - '|| l_tp_gln , 1);
1291: cln_debug_pub.Add(' l_org_id - '|| l_org_id , 1);
1292: cln_debug_pub.Add(' l_item_number - '|| l_item_number , 1);
1293: cln_debug_pub.Add(' l_owner_role - '|| l_owner_role , 1);
1294: END IF;
1295:
1296:
1289: cln_debug_pub.Add(' l_target_market - '|| l_target_market , 1);
1290: cln_debug_pub.Add(' l_tp_gln - '|| l_tp_gln , 1);
1291: cln_debug_pub.Add(' l_org_id - '|| l_org_id , 1);
1292: cln_debug_pub.Add(' l_item_number - '|| l_item_number , 1);
1293: cln_debug_pub.Add(' l_owner_role - '|| l_owner_role , 1);
1294: END IF;
1295:
1296:
1297:
1308: aname => 'M4U_CLN_COLL_TYPE',
1309: avalue => l_coll_type);
1310:
1311: IF (l_Debug_Level <= 1) THEN
1312: cln_debug_pub.Add('M4U_CLN_DOC_TYPE - ' || l_doc_type, 1);
1313: END IF;
1314:
1315: wf_engine.setItemAttrtext(
1316: itemtype => itemtype,
1318: aname => 'ECX_DOCUMENT_ID',
1319: avalue => l_xmlg_document_id);
1320:
1321: IF (l_Debug_Level <= 1) THEN
1322: cln_debug_pub.Add('ECX_DOCUMENT_ID - ' || l_xmlg_document_id, 1);
1323: END IF;
1324:
1325:
1326: /* create CLN collaboration and update the ego_uccnet_events with CLN-id*/
1364: p_collaboration_standard => 'UCCNET',
1365: p_owner_role => l_owner_role);
1366:
1367: IF (l_Debug_Level <= 1) THEN
1368: cln_debug_pub.Add('create collaboration returns - ', 1);
1369: cln_debug_pub.Add(' x_return_status - '|| x_return_status, 1);
1370: cln_debug_pub.Add(' x_msg_data - '|| x_msg_data, 1);
1371: cln_debug_pub.Add(' x_coll_id - '|| x_coll_id, 1);
1372: END IF;
1365: p_owner_role => l_owner_role);
1366:
1367: IF (l_Debug_Level <= 1) THEN
1368: cln_debug_pub.Add('create collaboration returns - ', 1);
1369: cln_debug_pub.Add(' x_return_status - '|| x_return_status, 1);
1370: cln_debug_pub.Add(' x_msg_data - '|| x_msg_data, 1);
1371: cln_debug_pub.Add(' x_coll_id - '|| x_coll_id, 1);
1372: END IF;
1373:
1366:
1367: IF (l_Debug_Level <= 1) THEN
1368: cln_debug_pub.Add('create collaboration returns - ', 1);
1369: cln_debug_pub.Add(' x_return_status - '|| x_return_status, 1);
1370: cln_debug_pub.Add(' x_msg_data - '|| x_msg_data, 1);
1371: cln_debug_pub.Add(' x_coll_id - '|| x_coll_id, 1);
1372: END IF;
1373:
1374: IF (x_return_status ='S') THEN
1367: IF (l_Debug_Level <= 1) THEN
1368: cln_debug_pub.Add('create collaboration returns - ', 1);
1369: cln_debug_pub.Add(' x_return_status - '|| x_return_status, 1);
1370: cln_debug_pub.Add(' x_msg_data - '|| x_msg_data, 1);
1371: cln_debug_pub.Add(' x_coll_id - '|| x_coll_id, 1);
1372: END IF;
1373:
1374: IF (x_return_status ='S') THEN
1375:
1383: x_msg_count => x_msg_count,
1384: x_msg_data => x_msg_data);
1385:
1386: IF (l_Debug_Level <= 1) THEN
1387: cln_debug_pub.Add('ego_uccnet_events_pub.set_collaboration_id - ', 1);
1388: cln_debug_pub.Add(' x_return_status - '|| x_return_status, 1);
1389: cln_debug_pub.Add(' x_msg_data - '|| x_msg_data, 1);
1390: cln_debug_pub.Add(' x_msg_count - '|| x_msg_count, 1);
1391: END IF;
1384: x_msg_data => x_msg_data);
1385:
1386: IF (l_Debug_Level <= 1) THEN
1387: cln_debug_pub.Add('ego_uccnet_events_pub.set_collaboration_id - ', 1);
1388: cln_debug_pub.Add(' x_return_status - '|| x_return_status, 1);
1389: cln_debug_pub.Add(' x_msg_data - '|| x_msg_data, 1);
1390: cln_debug_pub.Add(' x_msg_count - '|| x_msg_count, 1);
1391: END IF;
1392:
1385:
1386: IF (l_Debug_Level <= 1) THEN
1387: cln_debug_pub.Add('ego_uccnet_events_pub.set_collaboration_id - ', 1);
1388: cln_debug_pub.Add(' x_return_status - '|| x_return_status, 1);
1389: cln_debug_pub.Add(' x_msg_data - '|| x_msg_data, 1);
1390: cln_debug_pub.Add(' x_msg_count - '|| x_msg_count, 1);
1391: END IF;
1392:
1393: ELSE
1386: IF (l_Debug_Level <= 1) THEN
1387: cln_debug_pub.Add('ego_uccnet_events_pub.set_collaboration_id - ', 1);
1388: cln_debug_pub.Add(' x_return_status - '|| x_return_status, 1);
1389: cln_debug_pub.Add(' x_msg_data - '|| x_msg_data, 1);
1390: cln_debug_pub.Add(' x_msg_count - '|| x_msg_count, 1);
1391: END IF;
1392:
1393: ELSE
1394: resultout := wf_engine.eng_completed || ':FAIL';
1399: aname => 'M4U_ERROR_FLAG',
1400: avalue => 'Y');
1401:
1402: IF (l_Debug_Level <= 1) THEN
1403: cln_debug_pub.Add('M4U_ERROR_FLAG set to Y', 1);
1404: END IF;
1405:
1406: FND_MESSAGE.SET_NAME('CLN','M4U_OUT_CREATE_COLL_FAILURE');
1407: l_fnd_msg := FND_MESSAGE.GET;
1414: || ', Error message - '
1415: || x_msg_data);
1416:
1417: IF (l_Debug_Level <= 2) THEN
1418: cln_debug_pub.Add('EXITING m4u_xml_genprocess_out.create_cln_collaborations FAILURE',2);
1419: END IF;
1420: RETURN;
1421: END IF;
1422:
1422:
1423: END LOOP;
1424:
1425: IF (l_debug_Level <= 2) THEN
1426: cln_debug_pub.Add('========= Exiting create_batchcollab_setattr == ',2);
1427: END IF;
1428:
1429: resultout := wf_engine.eng_completed||':SUCCESS';
1430:
1443: || l_error_msg);
1444:
1445:
1446: IF (l_Debug_Level <= 5) THEN
1447: cln_debug_pub.Add('Error : ' || SQLCODE || ':' || SQLERRM, 5);
1448: cln_debug_pub.Add('x_msg_data : ' || x_msg_data,5);
1449: END IF;
1450: IF (l_Debug_Level <= 2) THEN
1451: cln_debug_pub.Add('=========== Exiting m4u_xml_genprocess_out.create_cln_collaborations - Exception =========== ',2);
1444:
1445:
1446: IF (l_Debug_Level <= 5) THEN
1447: cln_debug_pub.Add('Error : ' || SQLCODE || ':' || SQLERRM, 5);
1448: cln_debug_pub.Add('x_msg_data : ' || x_msg_data,5);
1449: END IF;
1450: IF (l_Debug_Level <= 2) THEN
1451: cln_debug_pub.Add('=========== Exiting m4u_xml_genprocess_out.create_cln_collaborations - Exception =========== ',2);
1452: END IF;
1447: cln_debug_pub.Add('Error : ' || SQLCODE || ':' || SQLERRM, 5);
1448: cln_debug_pub.Add('x_msg_data : ' || x_msg_data,5);
1449: END IF;
1450: IF (l_Debug_Level <= 2) THEN
1451: cln_debug_pub.Add('=========== Exiting m4u_xml_genprocess_out.create_cln_collaborations - Exception =========== ',2);
1452: END IF;
1453:
1454: Wf_Core.Context('m4u_xml_genprocess_out','create_cln_collaborations',
1455: itemtype, itemkey, to_char(actid), funcmode);
1522: AND collaboration_type = p_coll_type
1523: AND xmlg_transaction_type = 'M4U';
1524: BEGIN
1525: IF (l_debug_Level <= 2) THEN
1526: cln_debug_pub.Add('========= Entering update_batchcollab_setattr == ',2);
1527: END IF;
1528:
1529:
1530: IF (l_Debug_Level <= 1) THEN
1527: END IF;
1528:
1529:
1530: IF (l_Debug_Level <= 1) THEN
1531: cln_debug_pub.Add('Paramters received are' , 2);
1532: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
1533: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
1534: cln_debug_pub.Add('actid - ' || actid , 2);
1535: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
1528:
1529:
1530: IF (l_Debug_Level <= 1) THEN
1531: cln_debug_pub.Add('Paramters received are' , 2);
1532: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
1533: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
1534: cln_debug_pub.Add('actid - ' || actid , 2);
1535: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
1536: END IF;
1529:
1530: IF (l_Debug_Level <= 1) THEN
1531: cln_debug_pub.Add('Paramters received are' , 2);
1532: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
1533: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
1534: cln_debug_pub.Add('actid - ' || actid , 2);
1535: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
1536: END IF;
1537:
1530: IF (l_Debug_Level <= 1) THEN
1531: cln_debug_pub.Add('Paramters received are' , 2);
1532: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
1533: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
1534: cln_debug_pub.Add('actid - ' || actid , 2);
1535: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
1536: END IF;
1537:
1538:
1531: cln_debug_pub.Add('Paramters received are' , 2);
1532: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
1533: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
1534: cln_debug_pub.Add('actid - ' || actid , 2);
1535: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
1536: END IF;
1537:
1538:
1539: -- if funcmode is not null then exit
1539: -- if funcmode is not null then exit
1540: IF (funcmode <> wf_engine.eng_run) THEN
1541: resultout := wf_engine.eng_null;
1542: IF (l_Debug_Level <= 2) THEN
1543: cln_debug_pub.Add('====== Exiting m4u_xml_genprocess_out.update_cln_collaborations - Normal : resultout-' || resultout,2);
1544: END IF;
1545: RETURN;
1546: END IF;
1547:
1547:
1548: l_ego_batch_id := wf_engine.GetItemAttrText(itemtype,itemkey,'ECX_PARAMETER2',TRUE);
1549:
1550: IF (l_Debug_Level <= 1) THEN
1551: cln_debug_pub.Add('WF Attributes retreived are', 1);
1552: cln_debug_pub.Add('l_ego_batch_id ----'|| l_ego_batch_id , 1);
1553: END IF;
1554:
1555:
1548: l_ego_batch_id := wf_engine.GetItemAttrText(itemtype,itemkey,'ECX_PARAMETER2',TRUE);
1549:
1550: IF (l_Debug_Level <= 1) THEN
1551: cln_debug_pub.Add('WF Attributes retreived are', 1);
1552: cln_debug_pub.Add('l_ego_batch_id ----'|| l_ego_batch_id , 1);
1553: END IF;
1554:
1555:
1556: l_ego_subbatch_id := wf_engine.GetItemAttrText(itemtype,itemkey,'ECX_PARAMETER4',TRUE);
1555:
1556: l_ego_subbatch_id := wf_engine.GetItemAttrText(itemtype,itemkey,'ECX_PARAMETER4',TRUE);
1557:
1558: IF (l_Debug_Level <= 1) THEN
1559: cln_debug_pub.Add('l_ego_subbatch_id ----'|| l_ego_subbatch_id , 1);
1560: END IF;
1561:
1562: l_xmlg_transaction_type := wf_engine.GetItemAttrText(itemtype,itemkey,'ECX_TRANSACTION_TYPE',TRUE);
1563:
1561:
1562: l_xmlg_transaction_type := wf_engine.GetItemAttrText(itemtype,itemkey,'ECX_TRANSACTION_TYPE',TRUE);
1563:
1564: IF (l_Debug_Level <= 1) THEN
1565: cln_debug_pub.Add('ECX l_xmlg_transaction_type ----'|| l_xmlg_transaction_type , 1);
1566: END IF;
1567:
1568: l_xmlg_transaction_subtype := wf_engine.GetItemAttrText(itemtype,itemkey,'ECX_TRANSACTION_SUBTYPE',TRUE);
1569:
1567:
1568: l_xmlg_transaction_subtype := wf_engine.GetItemAttrText(itemtype,itemkey,'ECX_TRANSACTION_SUBTYPE',TRUE);
1569:
1570: IF (l_Debug_Level <= 1) THEN
1571: cln_debug_pub.Add('ECX l_xmlg_transaction_subtype ----'|| l_xmlg_transaction_subtype , 1);
1572: END IF;
1573:
1574: l_ecx_doc_id := wf_engine.GetItemAttrText(itemtype,itemkey,'ECX_DOCUMENT_ID', TRUE);
1575:
1573:
1574: l_ecx_doc_id := wf_engine.GetItemAttrText(itemtype,itemkey,'ECX_DOCUMENT_ID', TRUE);
1575:
1576: IF (l_Debug_Level <= 1) THEN
1577: cln_debug_pub.Add('ECX l_ecx_doc_id ----'|| l_ecx_doc_id , 1);
1578: END IF;
1579:
1580: l_ecx_msgid := wf_engine.GetItemAttrText(itemtype,itemkey,'ECX_MSGID_ATTR', TRUE);
1581:
1579:
1580: l_ecx_msgid := wf_engine.GetItemAttrText(itemtype,itemkey,'ECX_MSGID_ATTR', TRUE);
1581:
1582: IF (l_Debug_Level <= 1) THEN
1583: cln_debug_pub.Add('ECX l_ecx_msgid ----'|| l_ecx_msgid, 1);
1584: END IF;
1585:
1586: /* following values will be available only if there is schema validation or adapter issues */
1587: l_wf_error_msg := wf_engine.GetItemAttrText(itemtype,itemkey,'M4U_ERROR_MSG',TRUE);
1586: /* following values will be available only if there is schema validation or adapter issues */
1587: l_wf_error_msg := wf_engine.GetItemAttrText(itemtype,itemkey,'M4U_ERROR_MSG',TRUE);
1588:
1589: IF (l_Debug_Level <= 1) THEN
1590: cln_debug_pub.Add('l_wf_error_msg ----'|| l_wf_error_msg, 1);
1591: END IF;
1592:
1593: l_wf_error_flag := wf_engine.GetItemAttrText(itemtype,itemkey,'M4U_ERROR_FLAG',TRUE);
1594:
1592:
1593: l_wf_error_flag := wf_engine.GetItemAttrText(itemtype,itemkey,'M4U_ERROR_FLAG',TRUE);
1594:
1595: IF (l_Debug_Level <= 1) THEN
1596: cln_debug_pub.Add('l_wf_error_flag ----'|| l_wf_error_flag, 1);
1597: END IF;
1598:
1599: l_fnd_msg_key := wf_engine.GetActivityAttrText(itemtype, itemkey,actid,'M4U_FND_MSG',TRUE);
1600:
1598:
1599: l_fnd_msg_key := wf_engine.GetActivityAttrText(itemtype, itemkey,actid,'M4U_FND_MSG',TRUE);
1600:
1601: IF (l_Debug_Level <= 1) THEN
1602: cln_debug_pub.Add('l_fnd_msg_key ----'|| l_fnd_msg_key , 1);
1603: END IF;
1604:
1605: l_cln_doc_type := wf_engine.GetItemAttrText(itemtype,itemkey,'M4U_CLN_DOC_TYPE',TRUE);
1606:
1604:
1605: l_cln_doc_type := wf_engine.GetItemAttrText(itemtype,itemkey,'M4U_CLN_DOC_TYPE',TRUE);
1606:
1607: IF (l_Debug_Level <= 1) THEN
1608: cln_debug_pub.Add('l_cln_doc_type ----'|| l_cln_doc_type , 1);
1609: END IF;
1610:
1611: l_cln_coll_type := wf_engine.GetItemAttrText(itemtype,itemkey,'M4U_CLN_COLL_TYPE',TRUE);
1612:
1610:
1611: l_cln_coll_type := wf_engine.GetItemAttrText(itemtype,itemkey,'M4U_CLN_COLL_TYPE',TRUE);
1612:
1613: IF (l_Debug_Level <= 1) THEN
1614: cln_debug_pub.Add('l_cln_coll_type ----'|| l_cln_coll_type , 1);
1615: END IF;
1616:
1617: -- check if error type is set at Activity level
1618: -- else check at item level, doing this because some of the WF activities,
1624: l_wf_error_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_ERROR_TYPE',TRUE);
1625: END IF;
1626:
1627: IF (l_Debug_Level <= 1) THEN
1628: cln_debug_pub.Add('l_wf_error_type ----'|| l_wf_error_type , 1);
1629: END IF;
1630:
1631:
1632: -- set CLN Disposition, CLN Coll Status, CLN Doc status, CLN Message Text
1647: aname => 'M4U_ERROR_FLAG',
1648: avalue => 'Y');
1649:
1650: IF (l_Debug_Level <= 1) THEN
1651: cln_debug_pub.Add('M4U_ERROR_FLAG set to Y', 1);
1652: END IF;
1653: END IF;
1654:
1655: --for each collaboration in the batch,
1679: p_rosettanet_check_required => false,
1680: x_dtl_coll_id => l_dtl_coll_id );
1681:
1682: IF (l_Debug_Level <= 1) THEN
1683: cln_debug_pub.add('collaboration history updated for cln_id - ' || rec_cln_ids.collaboration_id,1);
1684: cln_debug_pub.add('collab_detail_id - ' || l_dtl_coll_id,1);
1685: cln_debug_pub.add('x_return_status - ' || x_return_status,1);
1686: cln_debug_pub.add('x_msg_data - ' || x_msg_data,1);
1687: END IF;
1680: x_dtl_coll_id => l_dtl_coll_id );
1681:
1682: IF (l_Debug_Level <= 1) THEN
1683: cln_debug_pub.add('collaboration history updated for cln_id - ' || rec_cln_ids.collaboration_id,1);
1684: cln_debug_pub.add('collab_detail_id - ' || l_dtl_coll_id,1);
1685: cln_debug_pub.add('x_return_status - ' || x_return_status,1);
1686: cln_debug_pub.add('x_msg_data - ' || x_msg_data,1);
1687: END IF;
1688:
1681:
1682: IF (l_Debug_Level <= 1) THEN
1683: cln_debug_pub.add('collaboration history updated for cln_id - ' || rec_cln_ids.collaboration_id,1);
1684: cln_debug_pub.add('collab_detail_id - ' || l_dtl_coll_id,1);
1685: cln_debug_pub.add('x_return_status - ' || x_return_status,1);
1686: cln_debug_pub.add('x_msg_data - ' || x_msg_data,1);
1687: END IF;
1688:
1689: IF x_return_status <> 'S' THEN
1682: IF (l_Debug_Level <= 1) THEN
1683: cln_debug_pub.add('collaboration history updated for cln_id - ' || rec_cln_ids.collaboration_id,1);
1684: cln_debug_pub.add('collab_detail_id - ' || l_dtl_coll_id,1);
1685: cln_debug_pub.add('x_return_status - ' || x_return_status,1);
1686: cln_debug_pub.add('x_msg_data - ' || x_msg_data,1);
1687: END IF;
1688:
1689: IF x_return_status <> 'S' THEN
1690: FND_MESSAGE.SET_NAME('CLN','M4U_OUT_UPDATE_COLL_FAILURE');
1696: aname => 'M4U_ERROR_FLAG',
1697: avalue => 'Y');
1698:
1699: IF (l_Debug_Level <= 1) THEN
1700: cln_debug_pub.Add('M4U_ERROR_FLAG set to Y', 1);
1701: END IF;
1702:
1703: resultout := wf_engine.eng_completed || ':FAIL';
1704: x_msg_data := 'Workflow - ' || itemtype || '/' || itemkey || ' - ' || x_msg_data;
1709: || x_return_status
1710: || ', Error message - '
1711: || x_msg_data);
1712: IF (l_Debug_Level <= 1) THEN
1713: cln_debug_pub.Add('returned from call to NOTIFY_ADMINISTRATOR', 1);
1714: END IF;
1715:
1716: ego_uccnet_events_pub.update_event_disposition(
1717: p_api_version => 1.0,
1722: x_msg_count => x_msg_count,
1723: x_msg_data => x_msg_data );
1724:
1725: IF (l_Debug_Level <= 1) THEN
1726: cln_debug_pub.Add('ego_uccnet_events_pub.update_event_disposition - returns', 1);
1727: cln_debug_pub.Add(' x_return_status - '|| x_return_status, 1);
1728: cln_debug_pub.Add(' x_msg_data - '|| x_msg_data, 1);
1729: cln_debug_pub.Add(' x_msg_count - '|| x_msg_count, 1);
1730: END IF;
1723: x_msg_data => x_msg_data );
1724:
1725: IF (l_Debug_Level <= 1) THEN
1726: cln_debug_pub.Add('ego_uccnet_events_pub.update_event_disposition - returns', 1);
1727: cln_debug_pub.Add(' x_return_status - '|| x_return_status, 1);
1728: cln_debug_pub.Add(' x_msg_data - '|| x_msg_data, 1);
1729: cln_debug_pub.Add(' x_msg_count - '|| x_msg_count, 1);
1730: END IF;
1731:
1724:
1725: IF (l_Debug_Level <= 1) THEN
1726: cln_debug_pub.Add('ego_uccnet_events_pub.update_event_disposition - returns', 1);
1727: cln_debug_pub.Add(' x_return_status - '|| x_return_status, 1);
1728: cln_debug_pub.Add(' x_msg_data - '|| x_msg_data, 1);
1729: cln_debug_pub.Add(' x_msg_count - '|| x_msg_count, 1);
1730: END IF;
1731:
1732: IF (l_Debug_Level <= 2) THEN
1725: IF (l_Debug_Level <= 1) THEN
1726: cln_debug_pub.Add('ego_uccnet_events_pub.update_event_disposition - returns', 1);
1727: cln_debug_pub.Add(' x_return_status - '|| x_return_status, 1);
1728: cln_debug_pub.Add(' x_msg_data - '|| x_msg_data, 1);
1729: cln_debug_pub.Add(' x_msg_count - '|| x_msg_count, 1);
1730: END IF;
1731:
1732: IF (l_Debug_Level <= 2) THEN
1733: cln_debug_pub.Add('====== Exiting m4u_xml_genprocess_out.update_cln_collaborations - Normal : resultout-' || resultout,2);
1729: cln_debug_pub.Add(' x_msg_count - '|| x_msg_count, 1);
1730: END IF;
1731:
1732: IF (l_Debug_Level <= 2) THEN
1733: cln_debug_pub.Add('====== Exiting m4u_xml_genprocess_out.update_cln_collaborations - Normal : resultout-' || resultout,2);
1734: END IF;
1735: RETURN; -- Something wrong, simply notify admin and bailout, ...
1736: END IF;
1737:
1737:
1738: IF l_wf_error_msg IS NOT NULL THEN
1739:
1740: IF (l_Debug_Level <= 1) THEN
1741: cln_debug_pub.add('adding error detail to dtl_coll_id - ' || l_dtl_coll_id,1);
1742: cln_debug_pub.add('message - ' || l_wf_error_msg,1);
1743: END IF;
1744:
1745: cln_ch_collaboration_pkg.add_collaboration_messages
1738: IF l_wf_error_msg IS NOT NULL THEN
1739:
1740: IF (l_Debug_Level <= 1) THEN
1741: cln_debug_pub.add('adding error detail to dtl_coll_id - ' || l_dtl_coll_id,1);
1742: cln_debug_pub.add('message - ' || l_wf_error_msg,1);
1743: END IF;
1744:
1745: cln_ch_collaboration_pkg.add_collaboration_messages
1746: (
1750: p_dtl_msg => l_wf_error_type || ':' || l_wf_error_msg
1751: );
1752:
1753: IF (l_Debug_Level <= 1) THEN
1754: cln_debug_pub.add('error detail added to dtl_coll_id - ' || l_dtl_coll_id,1);
1755: cln_debug_pub.add('x_return_status - ' || x_return_status,1);
1756: cln_debug_pub.add('x_msg_data - ' || x_msg_data,1);
1757: END IF;
1758:
1751: );
1752:
1753: IF (l_Debug_Level <= 1) THEN
1754: cln_debug_pub.add('error detail added to dtl_coll_id - ' || l_dtl_coll_id,1);
1755: cln_debug_pub.add('x_return_status - ' || x_return_status,1);
1756: cln_debug_pub.add('x_msg_data - ' || x_msg_data,1);
1757: END IF;
1758:
1759: ego_uccnet_events_pub.update_event_disposition(
1752:
1753: IF (l_Debug_Level <= 1) THEN
1754: cln_debug_pub.add('error detail added to dtl_coll_id - ' || l_dtl_coll_id,1);
1755: cln_debug_pub.add('x_return_status - ' || x_return_status,1);
1756: cln_debug_pub.add('x_msg_data - ' || x_msg_data,1);
1757: END IF;
1758:
1759: ego_uccnet_events_pub.update_event_disposition(
1760: p_api_version => 1.0,
1765: x_msg_count => x_msg_count,
1766: x_msg_data => x_msg_data );
1767:
1768: IF (l_Debug_Level <= 1) THEN
1769: cln_debug_pub.Add('ego_uccnet_events_pub.update_event_disposition - returns', 1);
1770: cln_debug_pub.Add(' x_return_status - '|| x_return_status, 1);
1771: cln_debug_pub.Add(' x_msg_data - '|| x_msg_data, 1);
1772: cln_debug_pub.Add(' x_msg_count - '|| x_msg_count, 1);
1773: END IF;
1766: x_msg_data => x_msg_data );
1767:
1768: IF (l_Debug_Level <= 1) THEN
1769: cln_debug_pub.Add('ego_uccnet_events_pub.update_event_disposition - returns', 1);
1770: cln_debug_pub.Add(' x_return_status - '|| x_return_status, 1);
1771: cln_debug_pub.Add(' x_msg_data - '|| x_msg_data, 1);
1772: cln_debug_pub.Add(' x_msg_count - '|| x_msg_count, 1);
1773: END IF;
1774:
1767:
1768: IF (l_Debug_Level <= 1) THEN
1769: cln_debug_pub.Add('ego_uccnet_events_pub.update_event_disposition - returns', 1);
1770: cln_debug_pub.Add(' x_return_status - '|| x_return_status, 1);
1771: cln_debug_pub.Add(' x_msg_data - '|| x_msg_data, 1);
1772: cln_debug_pub.Add(' x_msg_count - '|| x_msg_count, 1);
1773: END IF;
1774:
1775: END IF;
1768: IF (l_Debug_Level <= 1) THEN
1769: cln_debug_pub.Add('ego_uccnet_events_pub.update_event_disposition - returns', 1);
1770: cln_debug_pub.Add(' x_return_status - '|| x_return_status, 1);
1771: cln_debug_pub.Add(' x_msg_data - '|| x_msg_data, 1);
1772: cln_debug_pub.Add(' x_msg_count - '|| x_msg_count, 1);
1773: END IF;
1774:
1775: END IF;
1776: END LOOP;
1781: aname => 'M4U_ERROR_TYPE',
1782: avalue => NULL);
1783:
1784: IF (l_Debug_Level <= 1) THEN
1785: cln_debug_pub.Add('M4U_ERROR_TYPE set to NULL', 1);
1786: END IF;
1787:
1788: wf_engine.setItemAttrtext(
1789: itemtype => itemtype,
1791: aname => 'M4U_ERROR_MSG',
1792: avalue => NULL);
1793:
1794: IF (l_Debug_Level <= 1) THEN
1795: cln_debug_pub.Add('M4U_ERROR_MSG set to NULL', 1);
1796: END IF;
1797:
1798: resultout := wf_engine.eng_completed || ':SUCCESS';
1799:
1797:
1798: resultout := wf_engine.eng_completed || ':SUCCESS';
1799:
1800: IF (l_Debug_Level <= 1) THEN
1801: cln_debug_pub.Add('==========Exiting update_batchcollab_setattr ======', 2);
1802: END IF;
1803:
1804: EXCEPTION
1805: WHEN OTHERS THEN
1816: || ', Error message - '
1817: || l_error_msg);
1818:
1819: IF (l_Debug_Level <= 5) THEN
1820: cln_debug_pub.Add('Error '|| l_error_code || ':' || l_error_msg, 5);
1821: END IF;
1822:
1823: IF (l_Debug_Level <= 2) THEN
1824: cln_debug_pub.Add('======EXITING m4u_xml_genprocess_out.update_cln_collaborations exception', 2);
1820: cln_debug_pub.Add('Error '|| l_error_code || ':' || l_error_msg, 5);
1821: END IF;
1822:
1823: IF (l_Debug_Level <= 2) THEN
1824: cln_debug_pub.Add('======EXITING m4u_xml_genprocess_out.update_cln_collaborations exception', 2);
1825: END IF;
1826:
1827: wf_Core.context('m4u_wlq_generate','wlq_update_cln_collab',
1828: itemtype, itemkey, to_char(actid), funcmode);
1867: l_as2_correlation_id := 'UCC:AS2';
1868: l_error_correlation_id := 'UCC:ERROR';
1869:
1870: IF (l_Debug_Level <= 2) THEN
1871: cln_debug_pub.Add('=========== Entering m4u_xml_genprocess_out.set_aq_correlation =========== ',2);
1872: END IF;
1873:
1874: IF (l_Debug_Level <= 1) THEN
1875: cln_debug_pub.Add('Paramters received are' , 2);
1871: cln_debug_pub.Add('=========== Entering m4u_xml_genprocess_out.set_aq_correlation =========== ',2);
1872: END IF;
1873:
1874: IF (l_Debug_Level <= 1) THEN
1875: cln_debug_pub.Add('Paramters received are' , 2);
1876: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
1877: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
1878: cln_debug_pub.Add('actid - ' || actid , 2);
1879: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
1872: END IF;
1873:
1874: IF (l_Debug_Level <= 1) THEN
1875: cln_debug_pub.Add('Paramters received are' , 2);
1876: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
1877: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
1878: cln_debug_pub.Add('actid - ' || actid , 2);
1879: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
1880: END IF;
1873:
1874: IF (l_Debug_Level <= 1) THEN
1875: cln_debug_pub.Add('Paramters received are' , 2);
1876: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
1877: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
1878: cln_debug_pub.Add('actid - ' || actid , 2);
1879: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
1880: END IF;
1881:
1874: IF (l_Debug_Level <= 1) THEN
1875: cln_debug_pub.Add('Paramters received are' , 2);
1876: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
1877: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
1878: cln_debug_pub.Add('actid - ' || actid , 2);
1879: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
1880: END IF;
1881:
1882:
1875: cln_debug_pub.Add('Paramters received are' , 2);
1876: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
1877: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
1878: cln_debug_pub.Add('actid - ' || actid , 2);
1879: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
1880: END IF;
1881:
1882:
1883:
1884: -- if funcmode is not null then exit
1885: IF (funcmode <> wf_engine.eng_run) THEN
1886:
1887: IF (l_Debug_Level <= 1) THEN
1888: cln_debug_pub.Add('l_error_type - ' || l_error_type,1);
1889: END IF;
1890:
1891: resultout := wf_engine.eng_null;
1892: IF (l_Debug_Level <= 2) THEN
1889: END IF;
1890:
1891: resultout := wf_engine.eng_null;
1892: IF (l_Debug_Level <= 2) THEN
1893: cln_debug_pub.Add('====== Exiting m4u_xml_genprocess_out.set_aq_correlation - Normal : resultout-' || resultout,2);
1894: END IF;
1895: RETURN;
1896: END IF;
1897:
1899: l_error_type := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_ERROR_FLAG',TRUE);
1900:
1901:
1902: IF (l_Debug_Level <= 1) THEN
1903: cln_debug_pub.Add('l_error_type - ' || l_error_type,1);
1904: END IF;
1905:
1906: IF (l_error_type = 'Y') THEN
1907: l_correlation_id := l_error_correlation_id;
1913: END IF;
1914: END IF;
1915:
1916: IF (l_Debug_Level <= 1) THEN
1917: cln_debug_pub.Add('l_correlation_id - ' || l_correlation_id,1);
1918: END IF;
1919:
1920: BEGIN
1921: l_event := wf_engine.GetItemAttrEvent(itemtype, itemkey, 'ECX_EVENT_MESSAGE');
1925: END;
1926:
1927: IF (l_event is null ) THEN
1928: IF (l_Debug_Level <= 1) THEN
1929: cln_debug_pub.Add('ECX_EVENT_MESSAGE is null',1);
1930: END IF;
1931: wf_core.token('ECX_EVENT_MESSAGE','NULL');
1932: wf_core.raise('WFSQL_ARGS');
1933: END IF;
1937: FOR p_count in 1..l_param_list.COUNT LOOP
1938: IF (l_param_list(p_count).getName() = 'PROTOCOL_TYPE') THEN
1939: l_param_list(p_count).setValue(l_correlation_id);
1940: IF (l_Debug_Level <= 1) THEN
1941: cln_debug_pub.Add('setting ECX_EVENT_MESSAGE.PROTOCOL_TYPE - ' || l_correlation_id,1);
1942: END IF;
1943: EXIT;
1944: END IF;
1945: END LOOP;
1947: l_event.setParameterList(l_param_list);
1948: wf_engine.SetItemAttrEvent(itemtype, itemkey, 'ECX_EVENT_MESSAGE', l_event);
1949:
1950: IF (l_Debug_Level <= 1) THEN
1951: cln_debug_pub.Add('ECX_EVENT_MESSAGE initialised',1);
1952: END IF;
1953:
1954: wf_engine.SetItemAttrText(itemtype,itemkey, 'M4U_SEND_MODE',l_correlation_id);
1955:
1953:
1954: wf_engine.SetItemAttrText(itemtype,itemkey, 'M4U_SEND_MODE',l_correlation_id);
1955:
1956: IF (l_Debug_Level <= 1) THEN
1957: cln_debug_pub.Add('M4U_SEND_MODE - ' || l_correlation_id,1);
1958: END IF;
1959:
1960:
1961: /* Y or N value if Y use the UCCnet adapter */
1961: /* Y or N value if Y use the UCCnet adapter */
1962: resultout := wf_engine.eng_completed;
1963:
1964: IF (l_Debug_Level <= 2) THEN
1965: cln_debug_pub.Add('=========== Exiting m4u_xml_genprocess_out.set_aq_correlation =========== ',2);
1966: END IF;
1967:
1968:
1969: EXCEPTION
1981: || l_error_msg);
1982:
1983:
1984: IF (l_Debug_Level <= 5) THEN
1985: cln_debug_pub.Add('Error : ' || l_error_code || ':' || l_error_msg, 5);
1986: END IF;
1987: IF (l_Debug_Level <= 2) THEN
1988: cln_debug_pub.Add('=========== Exiting m4u_xml_genprocess_out.set_aq_correlation - Exception =========== ',2);
1989: END IF;
1984: IF (l_Debug_Level <= 5) THEN
1985: cln_debug_pub.Add('Error : ' || l_error_code || ':' || l_error_msg, 5);
1986: END IF;
1987: IF (l_Debug_Level <= 2) THEN
1988: cln_debug_pub.Add('=========== Exiting m4u_xml_genprocess_out.set_aq_correlation - Exception =========== ',2);
1989: END IF;
1990:
1991: Wf_Core.Context('m4u_xml_genprocess_out','set_aq_correlation',
1992: itemtype, itemkey, to_char(actid), funcmode);
2018: l_error_msg VARCHAR2(255);
2019: l_fnd_msg VARCHAR2(255);
2020: BEGIN
2021: IF (l_Debug_Level <= 2) THEN
2022: cln_debug_pub.Add('=========== Entering m4u_xml_genprocess_out.check_send_method =========== ',2);
2023: END IF;
2024:
2025: IF (l_Debug_Level <= 1) THEN
2026: cln_debug_pub.Add('Paramters received are' , 2);
2022: cln_debug_pub.Add('=========== Entering m4u_xml_genprocess_out.check_send_method =========== ',2);
2023: END IF;
2024:
2025: IF (l_Debug_Level <= 1) THEN
2026: cln_debug_pub.Add('Paramters received are' , 2);
2027: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
2028: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
2029: cln_debug_pub.Add('actid - ' || actid , 2);
2030: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
2023: END IF;
2024:
2025: IF (l_Debug_Level <= 1) THEN
2026: cln_debug_pub.Add('Paramters received are' , 2);
2027: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
2028: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
2029: cln_debug_pub.Add('actid - ' || actid , 2);
2030: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
2031: END IF;
2024:
2025: IF (l_Debug_Level <= 1) THEN
2026: cln_debug_pub.Add('Paramters received are' , 2);
2027: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
2028: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
2029: cln_debug_pub.Add('actid - ' || actid , 2);
2030: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
2031: END IF;
2032:
2025: IF (l_Debug_Level <= 1) THEN
2026: cln_debug_pub.Add('Paramters received are' , 2);
2027: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
2028: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
2029: cln_debug_pub.Add('actid - ' || actid , 2);
2030: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
2031: END IF;
2032:
2033: -- Do nothing in cancel or timeout mode
2026: cln_debug_pub.Add('Paramters received are' , 2);
2027: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
2028: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
2029: cln_debug_pub.Add('actid - ' || actid , 2);
2030: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
2031: END IF;
2032:
2033: -- Do nothing in cancel or timeout mode
2034: IF (funcmode <> wf_engine.eng_run) THEN
2033: -- Do nothing in cancel or timeout mode
2034: IF (funcmode <> wf_engine.eng_run) THEN
2035: resultout := wf_engine.eng_null;
2036: IF (l_Debug_Level <= 2) THEN
2037: cln_debug_pub.Add('==========Exiting m4u_xml_genprocess_out.check_send_method ======', 2);
2038: END IF;
2039: RETURN;
2040: END IF;
2041:
2042: /* Y or N depending on whether validation is required */
2043: l_send_method := wf_engine.GetItemAttrText(itemtype, itemkey, 'M4U_SEND_MODE',TRUE);
2044:
2045: IF (l_Debug_Level <= 1) THEN
2046: cln_debug_pub.Add('l_send_method - ' || l_send_method, 2);
2047: END IF;
2048:
2049: resultout := wf_engine.eng_completed||':' || l_send_method;
2050: EXCEPTION
2062: || l_error_msg);
2063:
2064:
2065: IF (l_Debug_Level <= 5) THEN
2066: cln_debug_pub.Add('Error :' || SQLCODE || ':' || SQLERRM, 5);
2067: END IF;
2068: IF (l_Debug_Level <= 2) THEN
2069: cln_debug_pub.Add('=========== Exiting m4u_xml_genprocess_out.CHECK_SEND_METHOD =========== ',2);
2070: END IF;
2065: IF (l_Debug_Level <= 5) THEN
2066: cln_debug_pub.Add('Error :' || SQLCODE || ':' || SQLERRM, 5);
2067: END IF;
2068: IF (l_Debug_Level <= 2) THEN
2069: cln_debug_pub.Add('=========== Exiting m4u_xml_genprocess_out.CHECK_SEND_METHOD =========== ',2);
2070: END IF;
2071:
2072: Wf_Core.Context('m4u_xml_genprocess_out','check_send_method',
2073: itemtype, itemkey, to_char(actid), funcmode);
2116: 'M4U_SEND_MODE',
2117: TRUE);
2118:
2119: IF (l_Debug_Level <= 2) THEN
2120: cln_debug_pub.Add('=========== Entering m4u_xml_genprocess_out.dequeue_ucc_message =========== ',2);
2121: END IF;
2122:
2123: IF (l_Debug_Level <= 1) THEN
2124: cln_debug_pub.Add('Paramters received are' , 2);
2120: cln_debug_pub.Add('=========== Entering m4u_xml_genprocess_out.dequeue_ucc_message =========== ',2);
2121: END IF;
2122:
2123: IF (l_Debug_Level <= 1) THEN
2124: cln_debug_pub.Add('Paramters received are' , 2);
2125: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
2126: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
2127: cln_debug_pub.Add('actid - ' || actid , 2);
2128: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
2121: END IF;
2122:
2123: IF (l_Debug_Level <= 1) THEN
2124: cln_debug_pub.Add('Paramters received are' , 2);
2125: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
2126: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
2127: cln_debug_pub.Add('actid - ' || actid , 2);
2128: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
2129: END IF;
2122:
2123: IF (l_Debug_Level <= 1) THEN
2124: cln_debug_pub.Add('Paramters received are' , 2);
2125: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
2126: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
2127: cln_debug_pub.Add('actid - ' || actid , 2);
2128: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
2129: END IF;
2130:
2123: IF (l_Debug_Level <= 1) THEN
2124: cln_debug_pub.Add('Paramters received are' , 2);
2125: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
2126: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
2127: cln_debug_pub.Add('actid - ' || actid , 2);
2128: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
2129: END IF;
2130:
2131: IF (funcmode <> wf_engine.eng_run) THEN
2124: cln_debug_pub.Add('Paramters received are' , 2);
2125: cln_debug_pub.Add('itemtype - ' || itemtype , 2);
2126: cln_debug_pub.Add('itemkey - ' || itemkey , 2);
2127: cln_debug_pub.Add('actid - ' || actid , 2);
2128: cln_debug_pub.Add('funcmode - ' || funcmode , 2);
2129: END IF;
2130:
2131: IF (funcmode <> wf_engine.eng_run) THEN
2132: resultout := wf_engine.eng_null;
2130:
2131: IF (funcmode <> wf_engine.eng_run) THEN
2132: resultout := wf_engine.eng_null;
2133: IF (l_Debug_Level <= 2) THEN
2134: cln_debug_pub.Add('=========== Exiting m4u_xml_genprocess_out.dequeue_ucc_message =========== ',2);
2135: END IF;
2136: RETURN;
2137: END IF;
2138:
2144: END;
2145:
2146: IF l_event IS NULL THEN
2147: IF (l_Debug_Level <= 2) THEN
2148: cln_debug_pub.Add('=========== Exiting m4u_xml_genprocess_out.dequeue_ucc_message, null event =========== ',2);
2149: END IF;
2150: END IF;
2151:
2152: l_agent := l_event.getFromAgent;
2153:
2154:
2155: IF l_agent IS NULL THEN
2156: IF (l_Debug_Level <= 2) THEN
2157: cln_debug_pub.Add('=========== m4u_xml_genprocess_out.dequeue_ucc_message, null agent =========== ',2);
2158: END IF;
2159: ELSE
2160: l_queue_name := l_agent.getName;
2161: END IF;
2170: msgid => l_msgid);
2171:
2172: -- not raising an exception when message is NULL
2173: IF (l_Debug_Level <= 2) THEN
2174: cln_debug_pub.Add('=========== Exiting m4u_xml_genprocess_out.dequeue_ucc_message normal =========== ',2);
2175: END IF;
2176:
2177: resultout := wf_engine.eng_completed;
2178:
2191: || l_error_msg);
2192:
2193:
2194: IF (l_Debug_Level <= 5) THEN
2195: cln_debug_pub.Add('Error :' || SQLCODE || ':' || SQLERRM, 5);
2196: END IF;
2197: IF (l_Debug_Level <= 2) THEN
2198: cln_debug_pub.Add('=========== Exiting m4u_xml_genprocess_out.dequeue_ucc_message exception =========== ',2);
2199: END IF;
2194: IF (l_Debug_Level <= 5) THEN
2195: cln_debug_pub.Add('Error :' || SQLCODE || ':' || SQLERRM, 5);
2196: END IF;
2197: IF (l_Debug_Level <= 2) THEN
2198: cln_debug_pub.Add('=========== Exiting m4u_xml_genprocess_out.dequeue_ucc_message exception =========== ',2);
2199: END IF;
2200:
2201: resultout := wf_engine.eng_completed;
2202: Wf_Core.Context('m4u_xml_genprocess_out','dequeue_ucc_message ',
2239: l_data_event := null;
2240: l_clob_xml_payload := null;
2241:
2242: IF (l_debug_Level <= 2) THEN
2243: cln_debug_pub.Add('========= Entering m4u_xml_genprocess_out.raise_payload_event == ',2);
2244: END IF;
2245:
2246: -- Parameters received
2247: IF (l_Debug_Level <= 1) THEN
2244: END IF;
2245:
2246: -- Parameters received
2247: IF (l_Debug_Level <= 1) THEN
2248: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
2249: cln_debug_pub.Add('itemtype - '||itemtype, 1);
2250: cln_debug_pub.Add('itemkey - '||itemkey, 1);
2251: cln_debug_pub.Add('actid - '||actid, 1);
2252: cln_debug_pub.Add('funcmode - '||funcmode, 1);
2245:
2246: -- Parameters received
2247: IF (l_Debug_Level <= 1) THEN
2248: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
2249: cln_debug_pub.Add('itemtype - '||itemtype, 1);
2250: cln_debug_pub.Add('itemkey - '||itemkey, 1);
2251: cln_debug_pub.Add('actid - '||actid, 1);
2252: cln_debug_pub.Add('funcmode - '||funcmode, 1);
2253: cln_debug_pub.Add('---------------------------------------------',1);
2246: -- Parameters received
2247: IF (l_Debug_Level <= 1) THEN
2248: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
2249: cln_debug_pub.Add('itemtype - '||itemtype, 1);
2250: cln_debug_pub.Add('itemkey - '||itemkey, 1);
2251: cln_debug_pub.Add('actid - '||actid, 1);
2252: cln_debug_pub.Add('funcmode - '||funcmode, 1);
2253: cln_debug_pub.Add('---------------------------------------------',1);
2254: END IF;
2247: IF (l_Debug_Level <= 1) THEN
2248: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
2249: cln_debug_pub.Add('itemtype - '||itemtype, 1);
2250: cln_debug_pub.Add('itemkey - '||itemkey, 1);
2251: cln_debug_pub.Add('actid - '||actid, 1);
2252: cln_debug_pub.Add('funcmode - '||funcmode, 1);
2253: cln_debug_pub.Add('---------------------------------------------',1);
2254: END IF;
2255:
2248: cln_debug_pub.Add('-- Parameters received from Workflow process -- ',1);
2249: cln_debug_pub.Add('itemtype - '||itemtype, 1);
2250: cln_debug_pub.Add('itemkey - '||itemkey, 1);
2251: cln_debug_pub.Add('actid - '||actid, 1);
2252: cln_debug_pub.Add('funcmode - '||funcmode, 1);
2253: cln_debug_pub.Add('---------------------------------------------',1);
2254: END IF;
2255:
2256: -- if funcmode is not null then exit
2249: cln_debug_pub.Add('itemtype - '||itemtype, 1);
2250: cln_debug_pub.Add('itemkey - '||itemkey, 1);
2251: cln_debug_pub.Add('actid - '||actid, 1);
2252: cln_debug_pub.Add('funcmode - '||funcmode, 1);
2253: cln_debug_pub.Add('---------------------------------------------',1);
2254: END IF;
2255:
2256: -- if funcmode is not null then exit
2257: IF (funcmode <> wf_engine.eng_run) THEN
2256: -- if funcmode is not null then exit
2257: IF (funcmode <> wf_engine.eng_run) THEN
2258: resultout := wf_engine.eng_null;
2259: IF (l_Debug_Level <= 2) THEN
2260: cln_debug_pub.Add('====== Exiting raise_payload_event - Normal : resultout-' || resultout,2);
2261: END IF;
2262: RETURN;
2263: END IF;
2264:
2267: itemkey => itemkey,
2268: actid => actid,
2269: name => 'EVENT_DATA');
2270: IF (l_Debug_Level <= 1) THEN
2271: cln_debug_pub.Add('EVENT_DATA obtained', 1);
2272: END IF;
2273:
2274: l_raise_event_name := wf_engine.GetActivityAttrText(
2275: itemtype => itemtype,
2277: actid => actid,
2278: aname => 'EVENT_NAME',
2279: ignore_notfound => TRUE);
2280: IF (l_Debug_Level <= 1) THEN
2281: cln_debug_pub.Add('EVENT_NAME - ' || l_raise_event_name, 1);
2282: END IF;
2283:
2284: l_raise_event_key := wf_engine.GetActivityAttrText(
2285: itemtype => itemtype,
2288: aname => 'EVENT_KEY',
2289: ignore_notfound => TRUE);
2290:
2291: IF (l_Debug_Level <= 1) THEN
2292: cln_debug_pub.Add('EVENT_KEY - ' || l_raise_event_key, 1);
2293: END IF;
2294:
2295: IF l_raise_event_key IS NULL THEN
2296: l_raise_event_key := itemkey;
2298:
2299: l_clob_xml_payload := l_data_event.getEventData();
2300:
2301: IF (l_Debug_Level <= 1) THEN
2302: cln_debug_pub.Add('Obtained XML payload as clob', 1);
2303: END IF;
2304:
2305:
2306: l_event_params := wf_parameter_list_t();
2305:
2306: l_event_params := wf_parameter_list_t();
2307:
2308: IF (l_Debug_Level <= 1) THEN
2309: cln_debug_pub.Add('Obtained Event Parameters', 1);
2310: END IF;
2311:
2312: IF l_clob_xml_payload IS NULL
2313: THEN
2313: THEN
2314: resultout := wf_engine.eng_completed || ':FAIL';
2315:
2316: IF (l_debug_Level <= 2) THEN
2317: cln_debug_pub.Add('clob payload is null, exiting rasie_payload_event', 1);
2318: END IF;
2319:
2320: wf_engine.setItemAttrtext(
2321: itemtype => itemtype,
2323: aname => 'M4U_ERROR_FLAG',
2324: avalue => 'Y');
2325:
2326: IF (l_Debug_Level <= 1) THEN
2327: cln_debug_pub.Add('M4U_ERROR_FLAG set to Y', 1);
2328: END IF;
2329: RETURN;
2330: END IF;
2331:
2329: RETURN;
2330: END IF;
2331:
2332: IF (l_Debug_Level <= 1) THEN
2333: cln_debug_pub.Add('raising payload_event, with key -- ' || l_raise_event_key,2);
2334: END IF;
2335:
2336:
2337: WF_EVENT.raise(
2342:
2343: resultout := wf_engine.eng_completed || ':SUCCESS';
2344:
2345: IF (l_Debug_Level <= 2) THEN
2346: cln_debug_pub.Add('====== exiting m4u_xml_genprocess_out.raise_payload_event - normal : resultout-' || resultout,2);
2347: END IF;
2348:
2349: -- Exception Handling
2350: EXCEPTION
2362: || l_error_msg);
2363:
2364:
2365: IF (l_Debug_Level <= 5) THEN
2366: cln_debug_pub.Add('Error :' || SQLCODE || ':' || SQLERRM, 5);
2367: END IF;
2368: IF (l_Debug_Level <= 2) THEN
2369: cln_debug_pub.Add('=========== ERROR :Exiting m4u_xml_genprocess_out.raise_payload_event =========== ',2);
2370: END IF;
2365: IF (l_Debug_Level <= 5) THEN
2366: cln_debug_pub.Add('Error :' || SQLCODE || ':' || SQLERRM, 5);
2367: END IF;
2368: IF (l_Debug_Level <= 2) THEN
2369: cln_debug_pub.Add('=========== ERROR :Exiting m4u_xml_genprocess_out.raise_payload_event =========== ',2);
2370: END IF;
2371:
2372: Wf_Core.Context('m4u_xml_genprocess_out','raise_payload_event',
2373: itemtype, itemkey, to_char(actid), funcmode);