[Home] [Help]
28: into PA_AUTOALLOC_WF_PKG.PA_item_key
29: from dual;
30:
31: /* dbms_output.put_line('Item Key is '||PA_item_key); */
32: wf_engine.CreateProcess( itemtype => PA_item_type,
33: itemkey => PA_item_key,
34: process => 'PA_AUTO_ALLOC_PROCESS');
35: /* dbms_output.put_line('Created Process'); */
36: Init_PA_WF_Stack (PA_Item_Type,PA_Item_Key,v_Err_Stack);
35: /* dbms_output.put_line('Created Process'); */
36: Init_PA_WF_Stack (PA_Item_Type,PA_Item_Key,v_Err_Stack);
37:
38: /*Bug:920470. set user_id, resp_id etc. before calling fnd_profile.get()*/
39: v_user_id := WF_ENGINE.GetItemAttrNumber
40: (PA_item_type,
41: PA_item_key,
42: 'USER_ID');
43:
40: (PA_item_type,
41: PA_item_key,
42: 'USER_ID');
43:
44: v_org_id := WF_ENGINE.GetItemAttrNumber
45: (PA_item_type,
46: PA_item_key,
47: 'ORG_ID');
48:
45: (PA_item_type,
46: PA_item_key,
47: 'ORG_ID');
48:
49: v_resp_id := WF_ENGINE.GetItemAttrNumber
50: (PA_item_type,
51: PA_item_key,
52: 'RESP_ID');
53:
50: (PA_item_type,
51: PA_item_key,
52: 'RESP_ID');
53:
54: v_resp_appl_id := WF_ENGINE.GetItemAttrNumber
55: (PA_item_type,
56: PA_item_key,
57: 'RESP_APPL_ID');
58:
55: (PA_item_type,
56: PA_item_key,
57: 'RESP_APPL_ID');
58:
59: v_lang := WF_ENGINE.GetItemAttrText
60: (PA_item_type,
61: PA_item_key,
62: 'LANG');
63:
73:
74: /*Bug 931037.set workflow attribute DEBUG_MODE,then get the attribute value from
75: function DebugFlag */
76: FND_PROFILE.GET('PA_DEBUG_MODE',v_debug_mode);
77: Wf_Engine.SetItemAttrText( itemtype => PA_item_type,
78: itemkey => PA_item_key,
79: aname => 'DEBUG_MODE',
80: avalue => v_debug_mode);
81: /*End bug 931037*/
85: if DebugFlag then
86: v_debug_file_dir := GetDebugLogDir; -- Added for bug 5218394
87: -- Commented out for bug 5218394 v_debug_file_dir := NVL(FND_PROFILE.VALUE('PA_DEBUG_LOG_DIRECTORY'),'/sqlcom/log');
88:
89: wf_engine.SetItemAttrText( itemtype => PA_item_type,
90: itemkey => PA_item_key,
91: aname => 'DEBUG_FILE_DIR',
92: avalue => v_debug_file_dir);
93: /* dbms_output.put_line('Debug File Dir is '||v_debug_file_dir); */
113: GL_AUTO_ALLOC_WF_PKG.diagn_debug_msg('*****************************************');
114: End If;
115:
116: /** Set GL itemtype and itemkey as PA attributes **/
117: Wf_Engine.SetItemAttrText( itemtype => PA_item_type,
118: itemkey => PA_item_key,
119: aname => 'GL_ITEM_TYPE',
120: avalue => p_item_type);
121:
118: itemkey => PA_item_key,
119: aname => 'GL_ITEM_TYPE',
120: avalue => p_item_type);
121:
122: Wf_Engine.SetItemAttrText( itemtype => PA_item_type,
123: itemkey => PA_item_key,
124: aname => 'GL_ITEM_KEY',
125: avalue => p_item_key);
126:
123: itemkey => PA_item_key,
124: aname => 'GL_ITEM_KEY',
125: avalue => p_item_key);
126:
127: Wf_Engine.SetItemAttrText( itemtype => PA_item_type,
128: itemkey => PA_item_key,
129: aname => 'WF_LAUNCHED_FROM',
130: avalue => 'GL');
131:
154: G_Err_Stage := 'Process PA_AUTO_ALLOC_PROCESS starting';
155: WriteDebugMsg(G_ERR_STAGE);
156: Set_PA_WF_Stage(PA_item_type,PA_item_key,G_Err_Stage);
157:
158: Wf_engine.StartProcess( itemtype => PA_item_type,
159: itemkey => PA_item_key );
160:
161: wf_engine.SetItemAttrText( itemtype => p_item_type,
162: itemkey => p_item_key,
157:
158: Wf_engine.StartProcess( itemtype => PA_item_type,
159: itemkey => PA_item_key );
160:
161: wf_engine.SetItemAttrText( itemtype => p_item_type,
162: itemkey => p_item_key,
163: aname => 'PA_WF_STATUS',
164: avalue => NULL );
165: p_result := 'COMPLETE:PASS';
179: 'Item Type could not be set: sequence does not exist');
180: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
181: WriteDebugMsg('*************** Error Encountered **************');
182: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
183: wf_engine.SetItemAttrText( itemtype => p_item_type,
184: itemkey => p_item_key,
185: aname => 'PA_WF_STATUS',
186: avalue => 'FAIL' );
187: p_result := 'COMPLETE:FAIL';
192: PA_item_type, PA_item_key);
193: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
194: WriteDebugMsg('*************** Error Encountered **************');
195: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
196: wf_engine.SetItemAttrText( itemtype => p_item_type,
197: itemkey => p_item_key,
198: aname => 'PA_WF_STATUS',
199: avalue => 'FAIL' );
200: p_result := 'COMPLETE:FAIL';
243:
244: G_Err_Stage := 'Entering initialize_pa_wf';
245: /* dbms_output.put_line (G_Err_Stage); */
246: Set_PA_WF_Stack(PA_item_type,PA_item_key,'Initialize_PA_WF');
247: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
248: PA_item_key,
249: 'WF_STACK');
250: WriteDebugMsg(v_err_stack);
251: G_Err_Stage := 'Get GL Item Attributes';
252: WriteDebugMsg(G_Err_Stage);
253: Set_PA_WF_Stage(PA_item_type,PA_item_key,G_Err_Stage);
254:
255: -- Get all the GL item attributes
256: v_gl_item_type := wf_engine.GetItemAttrText(itemtype =>PA_item_type,
257: itemkey => PA_item_key,
258: aname => 'GL_ITEM_TYPE');
259:
260: v_gl_item_key := wf_engine.GetItemAttrText(itemtype =>PA_item_type,
256: v_gl_item_type := wf_engine.GetItemAttrText(itemtype =>PA_item_type,
257: itemkey => PA_item_key,
258: aname => 'GL_ITEM_TYPE');
259:
260: v_gl_item_key := wf_engine.GetItemAttrText(itemtype =>PA_item_type,
261: itemkey =>PA_item_key,
262: aname => 'GL_ITEM_KEY');
263:
264: v_ALLOCATION_SET_NAME := wf_engine.GetItemAttrText
260: v_gl_item_key := wf_engine.GetItemAttrText(itemtype =>PA_item_type,
261: itemkey =>PA_item_key,
262: aname => 'GL_ITEM_KEY');
263:
264: v_ALLOCATION_SET_NAME := wf_engine.GetItemAttrText
265: ( itemtype => v_gl_item_type,
266: itemkey => v_gl_item_key,
267: aname => 'SET_NAME');
268:
265: ( itemtype => v_gl_item_type,
266: itemkey => v_gl_item_key,
267: aname => 'SET_NAME');
268:
269: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
270: itemkey => v_gl_item_key,
271: aname => 'SET_REQ_ID');
272:
273: v_USER_ID := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
269: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
270: itemkey => v_gl_item_key,
271: aname => 'SET_REQ_ID');
272:
273: v_USER_ID := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
274: itemkey => v_gl_item_key,
275: aname => 'USER_ID');
276:
277: v_ORG_ID := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
273: v_USER_ID := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
274: itemkey => v_gl_item_key,
275: aname => 'USER_ID');
276:
277: v_ORG_ID := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
278: itemkey => v_gl_item_key,
279: aname => 'ORG_ID');
280:
281: v_RESP_ID := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
277: v_ORG_ID := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
278: itemkey => v_gl_item_key,
279: aname => 'ORG_ID');
280:
281: v_RESP_ID := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
282: itemkey => v_gl_item_key,
283: aname => 'RESP_ID');
284:
285: v_RESP_APPL_ID := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
281: v_RESP_ID := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
282: itemkey => v_gl_item_key,
283: aname => 'RESP_ID');
284:
285: v_RESP_APPL_ID := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
286: itemkey => v_gl_item_key,
287: aname => 'RESP_APPL_ID');
288:
289: v_LANG := WF_ENGINE.GetItemAttrText(itemtype => v_gl_item_type,
285: v_RESP_APPL_ID := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
286: itemkey => v_gl_item_key,
287: aname => 'RESP_APPL_ID');
288:
289: v_LANG := WF_ENGINE.GetItemAttrText(itemtype => v_gl_item_type,
290: itemkey => v_gl_item_key,
291: aname => 'LANG');
292:
293: v_ROLLBACK_ALLOWED := WF_ENGINE.GetItemAttrText
289: v_LANG := WF_ENGINE.GetItemAttrText(itemtype => v_gl_item_type,
290: itemkey => v_gl_item_key,
291: aname => 'LANG');
292:
293: v_ROLLBACK_ALLOWED := WF_ENGINE.GetItemAttrText
294: (itemtype => v_gl_item_type,
295: itemkey => v_gl_item_key,
296: aname => 'ROLLBACK_ALLOWED');
297:
294: (itemtype => v_gl_item_type,
295: itemkey => v_gl_item_key,
296: aname => 'ROLLBACK_ALLOWED');
297:
298: v_OWNER := WF_ENGINE.GetItemAttrText(itemtype => v_gl_item_type,
299: itemkey => v_gl_item_key,
300: aname => 'STEP_CONTACT');
301:
302: v_EXPENDITURE_ITEM_DATE := WF_ENGINE.GetItemAttrDate
298: v_OWNER := WF_ENGINE.GetItemAttrText(itemtype => v_gl_item_type,
299: itemkey => v_gl_item_key,
300: aname => 'STEP_CONTACT');
301:
302: v_EXPENDITURE_ITEM_DATE := WF_ENGINE.GetItemAttrDate
303: (itemtype => v_gl_item_type,
304: itemkey => v_gl_item_key,
305: aname => 'EXPENDITURE_ITEM_DATE');
306:
303: (itemtype => v_gl_item_type,
304: itemkey => v_gl_item_key,
305: aname => 'EXPENDITURE_ITEM_DATE');
306:
307: v_GL_PERIOD_NAME := WF_ENGINE.GetItemAttrText(itemtype => v_gl_item_type,
308: itemkey => v_gl_item_key,
309: aname => 'GL_PERIOD_NAME');
310:
311: v_PA_PERIOD_NAME := WF_ENGINE.GetItemAttrText(itemtype => v_gl_item_type,
307: v_GL_PERIOD_NAME := WF_ENGINE.GetItemAttrText(itemtype => v_gl_item_type,
308: itemkey => v_gl_item_key,
309: aname => 'GL_PERIOD_NAME');
310:
311: v_PA_PERIOD_NAME := WF_ENGINE.GetItemAttrText(itemtype => v_gl_item_type,
312: itemkey => v_gl_item_key,
313: aname => 'PA_PERIOD_NAME');
314:
315: v_CREATED_BY := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
311: v_PA_PERIOD_NAME := WF_ENGINE.GetItemAttrText(itemtype => v_gl_item_type,
312: itemkey => v_gl_item_key,
313: aname => 'PA_PERIOD_NAME');
314:
315: v_CREATED_BY := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
316: itemkey => v_gl_item_key,
317: aname => 'CREATED_BY');
318:
319: v_LAST_UPDATED_BY := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
315: v_CREATED_BY := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
316: itemkey => v_gl_item_key,
317: aname => 'CREATED_BY');
318:
319: v_LAST_UPDATED_BY := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
320: itemkey => v_gl_item_key,
321: aname => 'LAST_UPDATED_BY');
322:
323: v_LAST_UPDATE_LOGIN := WF_ENGINE.GetItemAttrNumber
319: v_LAST_UPDATED_BY := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
320: itemkey => v_gl_item_key,
321: aname => 'LAST_UPDATED_BY');
322:
323: v_LAST_UPDATE_LOGIN := WF_ENGINE.GetItemAttrNumber
324: (itemtype => v_gl_item_type,
325: itemkey => v_gl_item_key,
326: aname => 'LAST_UPDATE_LOGIN');
327:
324: (itemtype => v_gl_item_type,
325: itemkey => v_gl_item_key,
326: aname => 'LAST_UPDATE_LOGIN');
327:
328: v_OPERATING_MODE := WF_ENGINE.GetItemAttrText(itemtype => v_gl_item_type,
329: itemkey => v_gl_item_key,
330: aname => 'OPERATING_MODE');
331:
332: v_STEP_NUMBER := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
328: v_OPERATING_MODE := WF_ENGINE.GetItemAttrText(itemtype => v_gl_item_type,
329: itemkey => v_gl_item_key,
330: aname => 'OPERATING_MODE');
331:
332: v_STEP_NUMBER := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
333: itemkey => v_gl_item_key,
334: aname => 'STEP_NUMBER');
335:
336: v_BATCH_ID := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
332: v_STEP_NUMBER := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
333: itemkey => v_gl_item_key,
334: aname => 'STEP_NUMBER');
335:
336: v_BATCH_ID := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
337: itemkey => v_gl_item_key,
338: aname => 'BATCH_ID');
339:
340: v_BATCH_NAME := WF_ENGINE.GetItemAttrText(itemtype => v_gl_item_type,
336: v_BATCH_ID := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
337: itemkey => v_gl_item_key,
338: aname => 'BATCH_ID');
339:
340: v_BATCH_NAME := WF_ENGINE.GetItemAttrText(itemtype => v_gl_item_type,
341: itemkey => v_gl_item_key,
342: aname => 'BATCH_NAME');
343:
344: v_BATCH_TYPE_CODE := WF_ENGINE.GetItemAttrText(itemtype => v_gl_item_type,
340: v_BATCH_NAME := WF_ENGINE.GetItemAttrText(itemtype => v_gl_item_type,
341: itemkey => v_gl_item_key,
342: aname => 'BATCH_NAME');
343:
344: v_BATCH_TYPE_CODE := WF_ENGINE.GetItemAttrText(itemtype => v_gl_item_type,
345: itemkey => v_gl_item_key,
346: aname => 'BATCH_TYPE_CODE');
347:
348: v_ALLOCATION_METHOD_CODE := WF_ENGINE.GetItemAttrText
344: v_BATCH_TYPE_CODE := WF_ENGINE.GetItemAttrText(itemtype => v_gl_item_type,
345: itemkey => v_gl_item_key,
346: aname => 'BATCH_TYPE_CODE');
347:
348: v_ALLOCATION_METHOD_CODE := WF_ENGINE.GetItemAttrText
349: (itemtype => v_gl_item_type,
350: itemkey => v_gl_item_key,
351: aname => 'ALLOCATION_METHOD_CODE');
352:
349: (itemtype => v_gl_item_type,
350: itemkey => v_gl_item_key,
351: aname => 'ALLOCATION_METHOD_CODE');
352:
353: v_SET_OF_BOOKS_ID := WF_ENGINE.GetItemAttrNumber(itemtype => v_gl_item_type,
354: itemkey => v_gl_item_key,
355: aname => 'SET_OF_BOOKS_ID');
356:
357: -- Set PA item attributes based on GL item attributes
359: Set_PA_WF_Stage(PA_item_type,PA_item_key,G_Err_Stage);
360: WriteDebugMsg(G_Err_Stage);
361:
362: -- Set item user key
363: wf_engine.SetItemUserKey( itemtype => PA_item_type,
364: itemkey => PA_item_key,
365: userkey => v_allocation_set_name );
366:
367: wf_engine.SetItemAttrText(itemtype => PA_item_type,
363: wf_engine.SetItemUserKey( itemtype => PA_item_type,
364: itemkey => PA_item_key,
365: userkey => v_allocation_set_name );
366:
367: wf_engine.SetItemAttrText(itemtype => PA_item_type,
368: itemkey => PA_item_key,
369: aname => 'SET_NAME',
370: avalue => v_allocation_set_name );
371: WriteDebugMsg('Attribute Allocation Set_Name = '||v_allocation_set_name);
378: when others then
379: v_monitor_url := 'Invalid URL';
380: end;
381:
382: wf_engine.SetItemAttrText( itemtype => PA_item_type,
383: itemkey => PA_item_key,
384: aname => 'MONITOR_URL',
385: avalue => v_monitor_url);
386:
385: avalue => v_monitor_url);
386:
387: WriteDebugMsg('Attribute MONITOR_URL = '||v_monitor_url);
388:
389: wf_engine.SetItemAttrNumber( itemtype => PA_item_type,
390: itemkey => PA_item_key,
391: aname => 'SET_REQ_ID',
392: avalue => v_set_req_id );
393: WriteDebugMsg('Attribute Set_Req_ID is = '||to_char(v_set_req_id));
391: aname => 'SET_REQ_ID',
392: avalue => v_set_req_id );
393: WriteDebugMsg('Attribute Set_Req_ID is = '||to_char(v_set_req_id));
394:
395: wf_engine.SetItemAttrNumber( itemtype => PA_item_type,
396: itemkey => PA_item_key,
397: aname => 'PA_ITEM_KEY',
398: avalue => PA_item_key );
399: WriteDebugMsg('Attribute PA_Item_Key is = '||PA_ITEM_KEY);
397: aname => 'PA_ITEM_KEY',
398: avalue => PA_item_key );
399: WriteDebugMsg('Attribute PA_Item_Key is = '||PA_ITEM_KEY);
400:
401: wf_engine.SetItemAttrNumber( itemtype => PA_item_type,
402: itemkey => PA_item_key,
403: aname => 'USER_ID',
404: avalue => v_user_id );
405: WriteDebugMsg('Attribute User_ID is = '||to_char(v_user_id));
403: aname => 'USER_ID',
404: avalue => v_user_id );
405: WriteDebugMsg('Attribute User_ID is = '||to_char(v_user_id));
406:
407: wf_engine.SetItemAttrNumber( itemtype => PA_item_type,
408: itemkey => PA_item_key,
409: aname => 'ORG_ID',
410: avalue => v_org_id );
411: WriteDebugMsg('Attribute Org_ID is = '||to_char(v_org_id));
409: aname => 'ORG_ID',
410: avalue => v_org_id );
411: WriteDebugMsg('Attribute Org_ID is = '||to_char(v_org_id));
412:
413: wf_engine.SetItemAttrNumber( itemtype => PA_item_type,
414: itemkey => PA_item_key,
415: aname => 'RESP_ID',
416: avalue => v_resp_id );
417: WriteDebugMsg('Attribute Resp_ID is = '||to_char(v_resp_id));
415: aname => 'RESP_ID',
416: avalue => v_resp_id );
417: WriteDebugMsg('Attribute Resp_ID is = '||to_char(v_resp_id));
418:
419: wf_engine.SetItemAttrNumber( itemtype => PA_item_type,
420: itemkey => PA_item_key,
421: aname => 'RESP_APPL_ID',
422: avalue => v_resp_appl_id );
423: WriteDebugMsg('Attribute Resp_Appl_ID is = '||to_char(v_resp_appl_id));
421: aname => 'RESP_APPL_ID',
422: avalue => v_resp_appl_id );
423: WriteDebugMsg('Attribute Resp_Appl_ID is = '||to_char(v_resp_appl_id));
424:
425: wf_engine.SetItemAttrText( itemtype => PA_item_type,
426: itemkey => PA_item_key,
427: aname => 'LANG',
428: avalue => v_lang );
429:
428: avalue => v_lang );
429:
430: WriteDebugMsg('Lang =' ||v_lang);
431:
432: wf_engine.SetItemAttrText( itemtype => PA_item_type,
433: itemkey => PA_item_key,
434: aname => 'ROLLBACK_ALLOWED',
435: avalue => v_rollback_allowed);
436: WriteDebugMsg('Attribute Roolback_Allowed = ' ||v_rollback_allowed);
434: aname => 'ROLLBACK_ALLOWED',
435: avalue => v_rollback_allowed);
436: WriteDebugMsg('Attribute Roolback_Allowed = ' ||v_rollback_allowed);
437:
438: wf_engine.SetItemAttrText( itemtype => PA_item_type,
439: itemkey => PA_item_key,
440: aname => 'MONITOR_URL',
441: avalue => v_monitor_url );
442: WriteDebugMsg('Attribute Monitor_URL = ' ||v_monitor_url);
440: aname => 'MONITOR_URL',
441: avalue => v_monitor_url );
442: WriteDebugMsg('Attribute Monitor_URL = ' ||v_monitor_url);
443:
444: wf_engine.SetItemAttrText( itemtype => PA_item_type,
445: itemkey => PA_item_key,
446: aname => 'STEP_CONTACT',
447: avalue => v_OWNER);
448: WriteDebugMsg('Attribute Step_Contact = ' ||v_owner);
446: aname => 'STEP_CONTACT',
447: avalue => v_OWNER);
448: WriteDebugMsg('Attribute Step_Contact = ' ||v_owner);
449:
450: wf_engine.SetItemAttrNumber( itemtype => PA_item_type,
451: itemkey => PA_item_key,
452: aname => 'SET_OF_BOOKS_ID',
453: avalue => v_SET_OF_BOOKS_ID);
454: WriteDebugMsg('Attribute SET_OF_BOOKS_ID = ' ||to_char(v_SET_OF_BOOKS_ID));
452: aname => 'SET_OF_BOOKS_ID',
453: avalue => v_SET_OF_BOOKS_ID);
454: WriteDebugMsg('Attribute SET_OF_BOOKS_ID = ' ||to_char(v_SET_OF_BOOKS_ID));
455:
456: wf_engine.SetItemAttrDate( itemtype => PA_item_type,
457: itemkey => PA_item_key,
458: aname => 'EXPENDITURE_ITEM_DATE',
459: avalue => v_EXPENDITURE_ITEM_DATE);
460: WriteDebugMsg('Attribute EXPENDITURE_ITEM_DATE = ' ||
459: avalue => v_EXPENDITURE_ITEM_DATE);
460: WriteDebugMsg('Attribute EXPENDITURE_ITEM_DATE = ' ||
461: to_char(v_EXPENDITURE_ITEM_DATE));
462:
463: wf_engine.SetItemAttrText( itemtype => PA_item_type,
464: itemkey => PA_item_key,
465: aname => 'GL_PERIOD_NAME',
466: avalue => v_GL_PERIOD_NAME);
467: WriteDebugMsg('Attribute GL_PERIOD_NAME = ' ||v_GL_PERIOD_NAME);
465: aname => 'GL_PERIOD_NAME',
466: avalue => v_GL_PERIOD_NAME);
467: WriteDebugMsg('Attribute GL_PERIOD_NAME = ' ||v_GL_PERIOD_NAME);
468:
469: wf_engine.SetItemAttrText( itemtype => PA_item_type,
470: itemkey => PA_item_key,
471: aname => 'PA_PERIOD_NAME',
472: avalue => v_PA_PERIOD_NAME);
473: WriteDebugMsg('Attribute PA_PERIOD_NAME = ' ||v_PA_PERIOD_NAME);
471: aname => 'PA_PERIOD_NAME',
472: avalue => v_PA_PERIOD_NAME);
473: WriteDebugMsg('Attribute PA_PERIOD_NAME = ' ||v_PA_PERIOD_NAME);
474:
475: wf_engine.SetItemAttrNumber( itemtype => PA_item_type,
476: itemkey => PA_item_key,
477: aname => 'CREATED_BY',
478: avalue => v_CREATED_BY);
479: WriteDebugMsg('Attribute CREATED_BY = ' ||to_char(v_CREATED_BY));
477: aname => 'CREATED_BY',
478: avalue => v_CREATED_BY);
479: WriteDebugMsg('Attribute CREATED_BY = ' ||to_char(v_CREATED_BY));
480:
481: wf_engine.SetItemAttrNumber( itemtype => PA_item_type,
482: itemkey => PA_item_key,
483: aname => 'LAST_UPDATED_BY',
484: avalue => v_LAST_UPDATED_BY);
485: WriteDebugMsg('Attribute LAST_UPDATED_BY = ' ||to_char(v_LAST_UPDATED_BY));
483: aname => 'LAST_UPDATED_BY',
484: avalue => v_LAST_UPDATED_BY);
485: WriteDebugMsg('Attribute LAST_UPDATED_BY = ' ||to_char(v_LAST_UPDATED_BY));
486:
487: wf_engine.SetItemAttrNumber( itemtype => PA_item_type,
488: itemkey => PA_item_key,
489: aname => 'LAST_UPDATE_LOGIN',
490: avalue => v_LAST_UPDATE_LOGIN);
491: WriteDebugMsg('Attribute LAST_UPDATE_LOGIN = '
489: aname => 'LAST_UPDATE_LOGIN',
490: avalue => v_LAST_UPDATE_LOGIN);
491: WriteDebugMsg('Attribute LAST_UPDATE_LOGIN = '
492: ||to_char(v_LAST_UPDATE_LOGIN));
493: wf_engine.SetItemAttrText( itemtype => PA_item_type,
494: itemkey => PA_item_key,
495: aname => 'OPERATING_MODE',
496: avalue => v_operating_mode);
497: WriteDebugMsg('Attribute Operating Mode = ' ||v_operating_mode);
495: aname => 'OPERATING_MODE',
496: avalue => v_operating_mode);
497: WriteDebugMsg('Attribute Operating Mode = ' ||v_operating_mode);
498:
499: wf_engine.SetItemAttrNumber( itemtype => PA_item_type,
500: itemkey => PA_item_key,
501: aname => 'STEP_NUMBER',
502: avalue => v_step_number);
503: WriteDebugMsg('Attribute Step Number = ' ||to_char(v_step_number));
501: aname => 'STEP_NUMBER',
502: avalue => v_step_number);
503: WriteDebugMsg('Attribute Step Number = ' ||to_char(v_step_number));
504:
505: wf_engine.SetItemAttrNumber( itemtype => PA_item_type,
506: itemkey => PA_item_key,
507: aname => 'BATCH_ID',
508: avalue => v_batch_id);
509: WriteDebugMsg('Attribute Batch ID = ' ||to_char(v_batch_id));
507: aname => 'BATCH_ID',
508: avalue => v_batch_id);
509: WriteDebugMsg('Attribute Batch ID = ' ||to_char(v_batch_id));
510:
511: wf_engine.SetItemAttrText( itemtype => PA_item_type,
512: itemkey => PA_item_key,
513: aname => 'BATCH_NAME',
514: avalue => v_batch_name);
515: WriteDebugMsg('Attribute Batch Name = ' ||v_batch_name);
513: aname => 'BATCH_NAME',
514: avalue => v_batch_name);
515: WriteDebugMsg('Attribute Batch Name = ' ||v_batch_name);
516:
517: wf_engine.SetItemAttrText( itemtype => PA_item_type,
518: itemkey => PA_item_key,
519: aname => 'BATCH_TYPE_CODE',
520: avalue => v_batch_type_code);
521: WriteDebugMsg('Attribute Batch Type Code = ' ||v_batch_type_code);
519: aname => 'BATCH_TYPE_CODE',
520: avalue => v_batch_type_code);
521: WriteDebugMsg('Attribute Batch Type Code = ' ||v_batch_type_code);
522:
523: wf_engine.SetItemAttrNumber( itemtype => PA_item_type,
524: itemkey => PA_item_key,
525: aname => 'SET_OF_BOOKS_ID',
526: avalue => v_set_of_books_id);
527: WriteDebugMsg('Attribute Set Of Books ID = ' ||to_char(v_set_of_books_id));
525: aname => 'SET_OF_BOOKS_ID',
526: avalue => v_set_of_books_id);
527: WriteDebugMsg('Attribute Set Of Books ID = ' ||to_char(v_set_of_books_id));
528:
529: WF_Engine.SetItemAttrText(itemtype => PA_item_type,
530: itemkey => PA_item_key,
531: aname => 'DEFINITION_FORM',
532: avalue => NULL);
533:
535: WriteDebugMsg(G_Err_Stage);
536: Set_PA_WF_Stage(PA_item_type,PA_item_key,G_Err_Stage);
537:
538: -- Set PA specific item attributes
539: wf_engine.SetItemAttrText( itemtype => PA_item_type,
540: itemkey => PA_item_key,
541: aname => 'PARENT_PROCESS',
542: avalue => 'GL');
543: WriteDebugMsg('Attribute PARENT_PROCESS = GL');
541: aname => 'PARENT_PROCESS',
542: avalue => 'GL');
543: WriteDebugMsg('Attribute PARENT_PROCESS = GL');
544:
545: wf_engine.SetItemAttrNumber( itemtype => PA_item_type,
546: itemkey => PA_item_key,
547: aname => 'REVERSED_STEP_NUMBER',
548: avalue => 0);
549: WriteDebugMsg('Attribute Reversed_Step_Number = 0 ');
547: aname => 'REVERSED_STEP_NUMBER',
548: avalue => 0);
549: WriteDebugMsg('Attribute Reversed_Step_Number = 0 ');
550:
551: wf_engine.SetItemAttrText( itemtype => PA_item_type,
552: itemkey => PA_item_key,
553: aname => 'EXPENDITURE_GROUP',
554: avalue => 'NONE');
555: WriteDebugMsg('Attribute EXPENDITURE_GROUP = NONE ');
553: aname => 'EXPENDITURE_GROUP',
554: avalue => 'NONE');
555: WriteDebugMsg('Attribute EXPENDITURE_GROUP = NONE ');
556:
557: v_launched_from := WF_ENGINE.GetItemAttrText(itemtype =>PA_item_type,
558: itemkey => PA_item_key,
559: aname => 'WF_LAUNCHED_FROM');
560: IF v_launched_from = 'GL' THEN
561: wf_engine.SetItemAttrText( itemtype => PA_item_type,
557: v_launched_from := WF_ENGINE.GetItemAttrText(itemtype =>PA_item_type,
558: itemkey => PA_item_key,
559: aname => 'WF_LAUNCHED_FROM');
560: IF v_launched_from = 'GL' THEN
561: wf_engine.SetItemAttrText( itemtype => PA_item_type,
562: itemkey => PA_item_key,
563: aname => 'GL_BLOCK_ACTIVITY',
564: avalue => 'PA_CHECK_WF');
565: WriteDebugMsg('Attribute GL Block Activity = '||'PA_CHECK_WF');
603:
604: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
605:
606: Set_PA_WF_Stack(p_item_type,p_item_key,'Submit_Alloc_Process');
607: v_err_stack := WF_ENGINE.GetItemAttrText( p_item_type,
608: p_item_key,
609: 'WF_STACK');
610: WriteDebugMsg(v_err_stack);
611: WriteDebugMsg('Activity ID is'||to_char(p_actid));
610: WriteDebugMsg(v_err_stack);
611: WriteDebugMsg('Activity ID is'||to_char(p_actid));
612:
613:
614: v_parent_process := WF_ENGINE.GetItemAttrText ( p_item_type
615: ,p_item_key
616: ,'PARENT_PROCESS');
617: WriteDebugMsg('Attribute Parent Process = '||v_parent_process);
618:
617: WriteDebugMsg('Attribute Parent Process = '||v_parent_process);
618:
619: /* Set attributes Concurrent Program Code and Name */
620:
621: WF_ENGINE.SetItemAttrText( p_item_type,
622: p_item_key,
623: 'CONC_PRG_CODE',
624: 'PAXALGAT');
625: WriteDebugMsg('Attribute CONC_PRG_CODE = '||'PAXALGAT');
625: WriteDebugMsg('Attribute CONC_PRG_CODE = '||'PAXALGAT');
626:
627: /* Get Parameters needed to submit Allocation Generation Process */
628:
629: v_rule_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
630: p_item_key,
631: 'BATCH_ID');
632: WriteDebugMsg('Attribute Batch ID = '||to_char(v_rule_id));
633:
630: p_item_key,
631: 'BATCH_ID');
632: WriteDebugMsg('Attribute Batch ID = '||to_char(v_rule_id));
633:
634: v_expnd_item_date := WF_ENGINE.GetItemAttrDate(p_item_type,
635: p_item_key,
636: 'EXPENDITURE_ITEM_DATE');
637: WriteDebugMsg('Attribute EXPENDITURE_ITEM_DATE = '
638: ||to_char(v_expnd_item_date));
636: 'EXPENDITURE_ITEM_DATE');
637: WriteDebugMsg('Attribute EXPENDITURE_ITEM_DATE = '
638: ||to_char(v_expnd_item_date));
639:
640: v_pa_period_name := WF_ENGINE.GetItemAttrText( p_item_type,
641: p_item_key,
642: 'PA_PERIOD_NAME');
643: WriteDebugMsg('Attribute PA_PERIOD_NAME = '||v_pa_period_name);
644:
641: p_item_key,
642: 'PA_PERIOD_NAME');
643: WriteDebugMsg('Attribute PA_PERIOD_NAME = '||v_pa_period_name);
644:
645: v_gl_period_name := WF_ENGINE.GetItemAttrText( p_item_type,
646: p_item_key,
647: 'GL_PERIOD_NAME');
648: WriteDebugMsg('Attribute GL_PERIOD_NAME = '||v_gl_period_name);
649:
670:
671: /** Generate Allocation process has generated draft having status
672: 'DF' or 'IP' so Delete Draft before restart**/
673:
674: v_allocation_run_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
675: p_item_key,
676: 'ALLOCATION_RUN_ID');
677: G_Err_Stage:='Delete Draft before submitting Allocation Concurrent Process';
678: Set_PA_WF_Stage(p_item_type,p_item_key,G_Err_Stage);
692: ,p_arg4 => v_gl_period_name
693: );
694: END IF;
695:
696: WF_ENGINE.SetItemAttrText( p_item_type,
697: p_item_key,
698: 'PARENT_PROCESS',
699: 'Generate Allocation');
700:
717: WriteDebugMsg('*********** Error Encountered ***********');
718: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
719: -- set status code to unexpected fatal error
720:
721: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => p_item_type,
722: itemkey => p_item_key,
723: aname => 'SET_REQ_ID');
724: GL_AUTO_ALLOC_WF_PKG.Update_Status(v_set_req_id
725: ,v_step_number
757: If ( p_funcmode = 'RUN' ) THEN
758: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
759:
760: Set_PA_WF_Stack(p_item_type,p_item_key,'Submit_Conc_Sum');
761: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
762: PA_item_key,
763: 'WF_STACK');
764: WriteDebugMsg(v_err_stack);
765:
762: PA_item_key,
763: 'WF_STACK');
764: WriteDebugMsg(v_err_stack);
765:
766: v_parent_process := WF_ENGINE.GetItemAttrText ( p_item_type
767: ,p_item_key
768: ,'PARENT_PROCESS');
769:
770: v_set_req_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
766: v_parent_process := WF_ENGINE.GetItemAttrText ( p_item_type
767: ,p_item_key
768: ,'PARENT_PROCESS');
769:
770: v_set_req_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
771: p_item_key,
772: 'SET_REQ_ID');
773:
774: v_step_number := WF_ENGINE.GetItemAttrNumber( p_item_type,
770: v_set_req_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
771: p_item_key,
772: 'SET_REQ_ID');
773:
774: v_step_number := WF_ENGINE.GetItemAttrNumber( p_item_type,
775: p_item_key,
776: 'STEP_NUMBER');
777:
778: v_allocation_run_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
774: v_step_number := WF_ENGINE.GetItemAttrNumber( p_item_type,
775: p_item_key,
776: 'STEP_NUMBER');
777:
778: v_allocation_run_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
779: p_item_key,
780: 'ALLOCATION_RUN_ID');
781:
782: v_operating_mode := WF_ENGINE.GetItemAttrText(p_item_type,
778: v_allocation_run_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
779: p_item_key,
780: 'ALLOCATION_RUN_ID');
781:
782: v_operating_mode := WF_ENGINE.GetItemAttrText(p_item_type,
783: p_item_key,
784: 'OPERATING_MODE');
785:
786: /* Set attributes Concurrent Program Code and Name */
784: 'OPERATING_MODE');
785:
786: /* Set attributes Concurrent Program Code and Name */
787:
788: WF_ENGINE.SetItemAttrText( p_item_type,
789: p_item_key,
790: 'CONC_PRG_CODE',
791: 'PAXACMPT');
792: WriteDebugMsg('Attribute CONC_PRG_CODE = PAXACMPT');
827: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
828: WriteDebugMsg('********** Error Encountered *********');
829: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
830: -- set status code to unexpected fatal error
831: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => p_item_type,
832: itemkey => p_item_key,
833: aname => 'SET_REQ_ID');
834: GL_AUTO_ALLOC_WF_PKG.Update_Status(v_set_req_id
835: ,v_step_number
879:
880: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
881: WriteDebugMsg('Started Submit_Conc_AllocRev');
882:
883: v_parent_process := WF_ENGINE.GetItemAttrText ( p_item_type
884: ,p_item_key
885: ,'PARENT_PROCESS');
886:
887: v_set_req_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
883: v_parent_process := WF_ENGINE.GetItemAttrText ( p_item_type
884: ,p_item_key
885: ,'PARENT_PROCESS');
886:
887: v_set_req_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
888: p_item_key,
889: 'SET_REQ_ID');
890:
891: v_step_number := WF_ENGINE.GetItemAttrNumber( p_item_type,
887: v_set_req_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
888: p_item_key,
889: 'SET_REQ_ID');
890:
891: v_step_number := WF_ENGINE.GetItemAttrNumber( p_item_type,
892: p_item_key,
893: 'STEP_NUMBER');
894:
895: v_operating_mode := WF_ENGINE.GetItemAttrText(p_item_type,
891: v_step_number := WF_ENGINE.GetItemAttrNumber( p_item_type,
892: p_item_key,
893: 'STEP_NUMBER');
894:
895: v_operating_mode := WF_ENGINE.GetItemAttrText(p_item_type,
896: p_item_key,
897: 'OPERATING_MODE');
898:
899: v_allocation_run_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
895: v_operating_mode := WF_ENGINE.GetItemAttrText(p_item_type,
896: p_item_key,
897: 'OPERATING_MODE');
898:
899: v_allocation_run_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
900: p_item_key,
901: 'ALLOCATION_RUN_ID');
902:
903: v_rule_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
899: v_allocation_run_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
900: p_item_key,
901: 'ALLOCATION_RUN_ID');
902:
903: v_rule_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
904: p_item_key,
905: 'BATCH_ID');
906:
907: /* Set attributes Program Code and Name */
905: 'BATCH_ID');
906:
907: /* Set attributes Program Code and Name */
908:
909: WF_ENGINE.SetItemAttrText( p_item_type,
910: p_item_key,
911: 'CONC_PRG_CODE',
912: 'PAXALGAT');
913:
950: ,v_step_number
951: ,v_status_code
952: );
953:
954: wf_engine.SetItemAttrText(itemtype => PA_item_type,
955: itemkey => PA_item_key,
956: aname => 'MESSAGE_NAME',
957: avalue => v_message_name);
958:
974: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
975: WriteDebugMsg('************* Error Encountered ************');
976: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
977: -- set status code to unexpected fatal error
978: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => p_item_type,
979: itemkey => p_item_key,
980: aname => 'SET_REQ_ID');
981: GL_AUTO_ALLOC_WF_PKG.Update_Status(v_set_req_id
982: ,v_step_number
1011: If ( p_funcmode = 'RUN' ) THEN
1012:
1013: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
1014: Set_PA_WF_Stack(PA_item_type,PA_item_key,'Check_Exp_Groups');
1015: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
1016: PA_item_key,
1017: 'WF_STACK');
1018: WriteDebugMsg(v_err_stack);
1019:
1016: PA_item_key,
1017: 'WF_STACK');
1018: WriteDebugMsg(v_err_stack);
1019:
1020: v_step_number := WF_ENGINE.GetItemAttrNumber
1021: (p_item_type,
1022: p_item_key,
1023: 'STEP_NUMBER');
1024:
1021: (p_item_type,
1022: p_item_key,
1023: 'STEP_NUMBER');
1024:
1025: v_org_id := WF_ENGINE.GetItemAttrNumber
1026: (p_item_type,
1027: p_item_key,
1028: 'ORG_ID');
1029:
1026: (p_item_type,
1027: p_item_key,
1028: 'ORG_ID');
1029:
1030: v_batch_id := WF_ENGINE.GetItemAttrNumber
1031: (p_item_type,
1032: p_item_key,
1033: 'BATCH_ID');
1034: v_allocation_run_id := WF_ENGINE.GetItemAttrNumber
1030: v_batch_id := WF_ENGINE.GetItemAttrNumber
1031: (p_item_type,
1032: p_item_key,
1033: 'BATCH_ID');
1034: v_allocation_run_id := WF_ENGINE.GetItemAttrNumber
1035: (p_item_type,
1036: p_item_key,
1037: 'ALLOCATION_RUN_ID');
1038:
1035: (p_item_type,
1036: p_item_key,
1037: 'ALLOCATION_RUN_ID');
1038:
1039: v_parent_process := WF_ENGINE.GetItemAttrText
1040: (p_item_type,
1041: p_item_key,
1042: 'PARENT_PROCESS');
1043:
1040: (p_item_type,
1041: p_item_key,
1042: 'PARENT_PROCESS');
1043:
1044: v_operating_mode := WF_ENGINE.GetItemAttrText
1045: (p_item_type,
1046: p_item_key,
1047: 'OPERATING_MODE');
1048:
1045: (p_item_type,
1046: p_item_key,
1047: 'OPERATING_MODE');
1048:
1049: v_expenditure_group := WF_ENGINE.GetItemAttrText
1050: (p_item_type,
1051: p_item_key,
1052: 'EXPENDITURE_GROUP');
1053: WriteDebugMsg('The attribute Expenditure Group is: '||v_expenditure_group);
1071: EXPENDITURE_GROUP value is set to target_exp_group. Once that is
1072: processed the attribute value is set to offset_exp_group **/
1073:
1074: IF v_expenditure_group = 'NONE' THEN
1075: wf_engine.SetItemAttrText(
1076: itemtype => p_item_type,
1077: itemkey => p_item_key,
1078: aname => 'EXPENDITURE_GROUP',
1079: avalue => v_target_exp_group);
1080: WriteDebugMsg('Setting the attribute Expenditure_Group : '||v_target_exp_group);
1081: p_result := 'COMPLETE:Y';
1082: ELSIF (v_expenditure_group = v_target_exp_group) AND
1083: (v_expenditure_group <> v_offset_exp_group) THEN
1084: wf_engine.SetItemAttrText(
1085: itemtype => p_item_type,
1086: itemkey => p_item_key,
1087: aname => 'EXPENDITURE_GROUP',
1088: avalue => v_offset_exp_group);
1105: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
1106: WriteDebugMsg('**************** Error Encountered ***************');
1107: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
1108: -- set status code to unexpected fatal error
1109: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => p_item_type,
1110: itemkey => p_item_key,
1111: aname => 'SET_REQ_ID');
1112: GL_AUTO_ALLOC_WF_PKG.Update_Status(v_set_req_id
1113: ,v_step_number
1121: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
1122: WriteDebugMsg('**************** Error Encountered ***************');
1123: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
1124: -- set status code to unexpected fatal error
1125: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => p_item_type,
1126: itemkey => p_item_key,
1127: aname => 'SET_REQ_ID');
1128: GL_AUTO_ALLOC_WF_PKG.Update_Status(v_set_req_id
1129: ,v_step_number
1163: If ( p_funcmode = 'RUN' ) THEN
1164:
1165: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
1166: Set_PA_WF_Stack(PA_item_type,PA_item_key,'Submit_Conc_Process_Dist');
1167: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
1168: PA_item_key,
1169: 'WF_STACK');
1170: WriteDebugMsg(v_err_stack);
1171:
1168: PA_item_key,
1169: 'WF_STACK');
1170: WriteDebugMsg(v_err_stack);
1171:
1172: v_step_number := WF_ENGINE.GetItemAttrNumber(p_item_type,
1173: p_item_key,
1174: 'STEP_NUMBER');
1175:
1176: /** Get Attribute values to be passed as parameters **/
1174: 'STEP_NUMBER');
1175:
1176: /** Get Attribute values to be passed as parameters **/
1177:
1178: v_parent_process := WF_ENGINE.GetItemAttrText ( p_item_type
1179: ,p_item_key
1180: ,'PARENT_PROCESS');
1181:
1182: v_set_req_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
1178: v_parent_process := WF_ENGINE.GetItemAttrText ( p_item_type
1179: ,p_item_key
1180: ,'PARENT_PROCESS');
1181:
1182: v_set_req_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
1183: p_item_key,
1184: 'SET_REQ_ID');
1185:
1186: v_operating_mode := WF_ENGINE.GetItemAttrText( p_item_type,
1182: v_set_req_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
1183: p_item_key,
1184: 'SET_REQ_ID');
1185:
1186: v_operating_mode := WF_ENGINE.GetItemAttrText( p_item_type,
1187: p_item_key,
1188: 'OPERATING_MODE');
1189:
1190: /* Set attributes Concurrent Program Code and Name */
1188: 'OPERATING_MODE');
1189:
1190: /* Set attributes Concurrent Program Code and Name */
1191:
1192: WF_ENGINE.SetItemAttrText( p_item_type,
1193: p_item_key,
1194: 'CONC_PRG_CODE',
1195: 'PASDUC');
1196: WriteDebugMsg('The Attribute CONC_PRG_CODE value is: PASDUC ');
1195: 'PASDUC');
1196: WriteDebugMsg('The Attribute CONC_PRG_CODE value is: PASDUC ');
1197:
1198: /* Get Parameters needed to submit Distribute Usage and Misc Costs*/
1199: v_expenditure_group := WF_ENGINE.GetItemAttrText( p_item_type,
1200: p_item_key,
1201: 'EXPENDITURE_GROUP');
1202: WriteDebugMsg('The attribute EXPENDITURE_GROUP is '||v_expenditure_group);
1203:
1230: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
1231: WriteDebugMsg('*********** Error Encountered ***********');
1232: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
1233: -- set status code to unexpected fatal error
1234: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => p_item_type,
1235: itemkey => p_item_key,
1236: aname => 'SET_REQ_ID');
1237: GL_AUTO_ALLOC_WF_PKG.Update_Status(v_set_req_id
1238: ,v_step_number
1297: AND tl.LANGUAGE = NVL(v_userenv_lang,'US');
1298:
1299: Begin
1300: Set_PA_WF_Stack(PA_item_type,PA_item_key,'Submit_Conc_Process');
1301: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
1302: PA_item_key,
1303: 'WF_STACK');
1304: WriteDebugMsg(v_err_stack);
1305:
1319: WriteDebugMsg('p_arg14='||p_arg14);
1320: WriteDebugMsg('p_arg15='||p_arg15);
1321: WriteDebugMsg('Prog_Code='||p_prog_code);
1322:
1323: v_user_id := WF_ENGINE.GetItemAttrNumber
1324: (PA_item_type,
1325: PA_item_key,
1326: 'USER_ID');
1327:
1324: (PA_item_type,
1325: PA_item_key,
1326: 'USER_ID');
1327:
1328: v_org_id := WF_ENGINE.GetItemAttrNumber
1329: (PA_item_type,
1330: PA_item_key,
1331: 'ORG_ID');
1332:
1329: (PA_item_type,
1330: PA_item_key,
1331: 'ORG_ID');
1332:
1333: v_resp_id := WF_ENGINE.GetItemAttrNumber
1334: (PA_item_type,
1335: PA_item_key,
1336: 'RESP_ID');
1337:
1334: (PA_item_type,
1335: PA_item_key,
1336: 'RESP_ID');
1337:
1338: v_resp_appl_id := WF_ENGINE.GetItemAttrNumber
1339: (PA_item_type,
1340: PA_item_key,
1341: 'RESP_APPL_ID');
1342:
1339: (PA_item_type,
1340: PA_item_key,
1341: 'RESP_APPL_ID');
1342:
1343: v_lang := WF_ENGINE.GetItemAttrText
1344: (PA_item_type,
1345: PA_item_key,
1346: 'LANG');
1347:
1344: (PA_item_type,
1345: PA_item_key,
1346: 'LANG');
1347:
1348: v_set_req_id := WF_ENGINE.GetItemAttrNumber( PA_item_type,
1349: PA_item_key,
1350: 'SET_REQ_ID');
1351:
1352: v_step_number := WF_ENGINE.GetItemAttrNumber( PA_item_type,
1348: v_set_req_id := WF_ENGINE.GetItemAttrNumber( PA_item_type,
1349: PA_item_key,
1350: 'SET_REQ_ID');
1351:
1352: v_step_number := WF_ENGINE.GetItemAttrNumber( PA_item_type,
1353: PA_item_key,
1354: 'STEP_NUMBER');
1355:
1356: v_operating_mode := WF_ENGINE.GetItemAttrText(PA_item_type,
1352: v_step_number := WF_ENGINE.GetItemAttrNumber( PA_item_type,
1353: PA_item_key,
1354: 'STEP_NUMBER');
1355:
1356: v_operating_mode := WF_ENGINE.GetItemAttrText(PA_item_type,
1357: PA_item_key,
1358: 'OPERATING_MODE');
1359: v_created_by := WF_ENGINE.GetItemAttrNumber
1360: (PA_item_type,
1355:
1356: v_operating_mode := WF_ENGINE.GetItemAttrText(PA_item_type,
1357: PA_item_key,
1358: 'OPERATING_MODE');
1359: v_created_by := WF_ENGINE.GetItemAttrNumber
1360: (PA_item_type,
1361: PA_item_key,
1362: 'CREATED_BY');
1363:
1360: (PA_item_type,
1361: PA_item_key,
1362: 'CREATED_BY');
1363:
1364: v_last_updated_by := WF_ENGINE.GetItemAttrNumber
1365: (PA_item_type,
1366: PA_item_key,
1367: 'LAST_UPDATED_BY');
1368:
1365: (PA_item_type,
1366: PA_item_key,
1367: 'LAST_UPDATED_BY');
1368:
1369: v_last_update_login := WF_ENGINE.GetItemAttrNumber
1370: (PA_item_type,
1371: PA_item_key,
1372: 'LAST_UPDATE_LOGIN');
1373:
1385: Open conc_prog_name_C;
1386: Fetch conc_prog_name_C into v_conc_prg_name;
1387: Close conc_prog_name_C;
1388:
1389: wf_engine.SetItemAttrText(
1390: itemtype => PA_item_type,
1391: itemkey => PA_item_key,
1392: aname => 'CONC_PRG_NAME',
1393: avalue => v_conc_prg_name );
1503: ,v_status_code
1504: );
1505: End If;
1506:
1507: wf_engine.SetItemAttrNumber(
1508: itemtype => PA_item_type,
1509: itemkey => PA_item_key,
1510: aname => 'CONC_REQUEST_ID',
1511: avalue => v_Request_ID );
1539: IF p_funcmode = 'RUN' THEN
1540:
1541: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
1542: Set_PA_WF_Stack(p_item_type,p_item_key,'Delete_Alloc_Run');
1543: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
1544: PA_item_key,
1545: 'WF_STACK');
1546: WriteDebugMsg(v_err_stack);
1547:
1547:
1548:
1549: /** Get rule_id, run_id from WF Attributes **/
1550:
1551: v_allocation_run_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
1552: p_item_key,
1553: 'ALLOCATION_RUN_ID');
1554:
1555: v_rule_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
1551: v_allocation_run_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
1552: p_item_key,
1553: 'ALLOCATION_RUN_ID');
1554:
1555: v_rule_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
1556: p_item_key,
1557: 'BATCH_ID');
1558:
1559: PA_ALLOC_RUN.Delete_ALLOC_TXNS (v_rule_id,
1574: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
1575: WriteDebugMsg('*********** Error Encountered ***********');
1576: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
1577: -- set status code to unexpected fatal error
1578: v_step_number := WF_ENGINE.GetItemAttrNumber( p_item_type,
1579: p_item_key,
1580: 'STEP_NUMBER');
1581: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => p_item_type,
1582: itemkey => p_item_key,
1577: -- set status code to unexpected fatal error
1578: v_step_number := WF_ENGINE.GetItemAttrNumber( p_item_type,
1579: p_item_key,
1580: 'STEP_NUMBER');
1581: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => p_item_type,
1582: itemkey => p_item_key,
1583: aname => 'SET_REQ_ID');
1584: GL_AUTO_ALLOC_WF_PKG.Update_Status(v_set_req_id
1585: ,v_step_number
1620: If ( p_funcmode = 'RUN' ) THEN
1621: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
1622:
1623: Set_PA_WF_Stack(PA_item_type,PA_item_key,'Check_Process_Status');
1624: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
1625: PA_item_key,
1626: 'WF_STACK');
1627: WriteDebugMsg(v_err_stack);
1628:
1625: PA_item_key,
1626: 'WF_STACK');
1627: WriteDebugMsg(v_err_stack);
1628:
1629: v_step_number := WF_ENGINE.GetItemAttrNumber
1630: (PA_item_type,
1631: PA_item_key,
1632: 'STEP_NUMBER');
1633: WriteDebugMsg('Attribute STEP_NUMBER = '||to_char(v_step_number));
1631: PA_item_key,
1632: 'STEP_NUMBER');
1633: WriteDebugMsg('Attribute STEP_NUMBER = '||to_char(v_step_number));
1634:
1635: v_conc_prg_code := WF_ENGINE.GetItemAttrText
1636: (PA_item_type,
1637: PA_item_key,
1638: 'CONC_PRG_CODE');
1639: WriteDebugMsg('Attribute CONC_PRG_CODE = '||v_conc_prg_code);
1637: PA_item_key,
1638: 'CONC_PRG_CODE');
1639: WriteDebugMsg('Attribute CONC_PRG_CODE = '||v_conc_prg_code);
1640:
1641: v_rollback_allowed := WF_ENGINE.GetItemAttrText(
1642: PA_item_type,
1643: PA_item_key,
1644: 'ROLLBACK_ALLOWED');
1645: WriteDebugMsg('Attribute ROLLBACK_ALLOWED = '||v_rollback_allowed);
1643: PA_item_key,
1644: 'ROLLBACK_ALLOWED');
1645: WriteDebugMsg('Attribute ROLLBACK_ALLOWED = '||v_rollback_allowed);
1646:
1647: v_request_id := WF_ENGINE.GetItemAttrNumber
1648: (PA_item_type,
1649: PA_item_key,
1650: 'CONC_REQUEST_ID');
1651:
1650: 'CONC_REQUEST_ID');
1651:
1652: WriteDebugMsg('Attribute CONC_REQUEST_ID = '||to_char(v_request_id));
1653:
1654: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => p_item_type,
1655: itemkey => p_item_key,
1656: aname => 'SET_REQ_ID');
1657:
1658: IF v_request_id = 0 THEN /* Concurrent Program could not be submitted */
1655: itemkey => p_item_key,
1656: aname => 'SET_REQ_ID');
1657:
1658: IF v_request_id = 0 THEN /* Concurrent Program could not be submitted */
1659: WF_ENGINE.SetItemAttrText(p_item_type,
1660: p_item_key,
1661: 'PARENT_PROCESS',
1662: 'Concurrent Process Error');
1663:
1667: ,v_rollback_allowed
1668: ,v_status_code
1669: ,v_message_name);
1670:
1671: wf_engine.SetItemAttrText(itemtype => PA_item_type,
1672: itemkey => PA_item_key,
1673: aname => 'MESSAGE_NAME',
1674: avalue => v_message_name );
1675: WriteDebugMsg('Message_name = '||v_message_Name);
1685: return;
1686:
1687: END IF;/* Request ID =0 */
1688:
1689: v_user_id := WF_ENGINE.GetItemAttrNumber
1690: (PA_item_type,
1691: PA_item_key,
1692: 'USER_ID');
1693:
1690: (PA_item_type,
1691: PA_item_key,
1692: 'USER_ID');
1693:
1694: v_org_id := WF_ENGINE.GetItemAttrNumber
1695: (PA_item_type,
1696: PA_item_key,
1697: 'ORG_ID');
1698:
1695: (PA_item_type,
1696: PA_item_key,
1697: 'ORG_ID');
1698:
1699: v_resp_id := WF_ENGINE.GetItemAttrNumber
1700: (PA_item_type,
1701: PA_item_key,
1702: 'RESP_ID');
1703:
1700: (PA_item_type,
1701: PA_item_key,
1702: 'RESP_ID');
1703:
1704: v_resp_appl_id := WF_ENGINE.GetItemAttrNumber
1705: (PA_item_type,
1706: PA_item_key,
1707: 'RESP_APPL_ID');
1708: v_lang := WF_ENGINE.GetItemAttrText
1704: v_resp_appl_id := WF_ENGINE.GetItemAttrNumber
1705: (PA_item_type,
1706: PA_item_key,
1707: 'RESP_APPL_ID');
1708: v_lang := WF_ENGINE.GetItemAttrText
1709: (PA_item_type,
1710: PA_item_key,
1711: 'LANG');
1712:
1762: Else
1763: WriteDebugMsg('Sending Notification. Concurrent program not completed'
1764: ||'Request ID is = '|| to_char(v_request_id) );
1765: WriteDebugMsg('Phase = '||p_dev_phase||' Status ='||p_dev_status);
1766: WF_Engine.SetItemAttrText (p_item_type,
1767: p_item_key,
1768: 'PARENT_PROCESS',
1769: 'Concurrent Process Error');
1770: Get_Status_and_Message(v_conc_prg_code
1780: );
1781:
1782: WriteDebugMsg('Updated Status Code Value = '||v_status_code);
1783:
1784: wf_engine.SetItemAttrText(itemtype => PA_item_type,
1785: itemkey => PA_item_key,
1786: aname => 'MESSAGE_NAME',
1787: avalue => v_message_name );
1788:
1803: p_item_type, p_item_key);
1804: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
1805: WriteDebugMsg('*********** Error Encountered **********');
1806: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
1807: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => p_item_type,
1808: itemkey => p_item_key,
1809: aname => 'SET_REQ_ID');
1810: GL_AUTO_ALLOC_WF_PKG.Update_Status(v_set_req_id
1811: ,v_step_number
1849: If ( p_funcmode = 'RUN' ) THEN
1850: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
1851:
1852: Set_PA_WF_Stack(p_item_type,p_item_key,'Check_Alloc_Run_Status');
1853: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
1854: PA_item_key,
1855: 'WF_STACK');
1856: WriteDebugMsg(v_err_stack);
1857:
1854: PA_item_key,
1855: 'WF_STACK');
1856: WriteDebugMsg(v_err_stack);
1857:
1858: v_rollback_allowed := WF_ENGINE.GetItemAttrText(
1859: PA_item_type,
1860: PA_item_key,
1861: 'ROLLBACK_ALLOWED');
1862: v_parent_process := WF_ENGINE.GetItemAttrText
1858: v_rollback_allowed := WF_ENGINE.GetItemAttrText(
1859: PA_item_type,
1860: PA_item_key,
1861: 'ROLLBACK_ALLOWED');
1862: v_parent_process := WF_ENGINE.GetItemAttrText
1863: (p_item_type,
1864: p_item_key,
1865: 'PARENT_PROCESS');
1866: WriteDebugMsg('Attribute Parent_Process = '||v_parent_process);
1864: p_item_key,
1865: 'PARENT_PROCESS');
1866: WriteDebugMsg('Attribute Parent_Process = '||v_parent_process);
1867:
1868: v_batch_id := WF_ENGINE.GetItemAttrNumber
1869: (p_item_type,
1870: p_item_key,
1871: 'BATCH_ID');
1872: v_org_id := WF_ENGINE.GetItemAttrNumber
1868: v_batch_id := WF_ENGINE.GetItemAttrNumber
1869: (p_item_type,
1870: p_item_key,
1871: 'BATCH_ID');
1872: v_org_id := WF_ENGINE.GetItemAttrNumber
1873: (p_item_type,
1874: p_item_key,
1875: 'ORG_ID');
1876: v_conc_request_id := WF_ENGINE.GetItemAttrNumber
1872: v_org_id := WF_ENGINE.GetItemAttrNumber
1873: (p_item_type,
1874: p_item_key,
1875: 'ORG_ID');
1876: v_conc_request_id := WF_ENGINE.GetItemAttrNumber
1877: (p_item_type,
1878: p_item_key,
1879: 'CONC_REQUEST_ID');
1880: v_step_number := WF_ENGINE.GetItemAttrNumber
1876: v_conc_request_id := WF_ENGINE.GetItemAttrNumber
1877: (p_item_type,
1878: p_item_key,
1879: 'CONC_REQUEST_ID');
1880: v_step_number := WF_ENGINE.GetItemAttrNumber
1881: (p_item_type,
1882: p_item_key,
1883: 'STEP_NUMBER');
1884: v_conc_prg_code := WF_ENGINE.GetItemAttrText
1880: v_step_number := WF_ENGINE.GetItemAttrNumber
1881: (p_item_type,
1882: p_item_key,
1883: 'STEP_NUMBER');
1884: v_conc_prg_code := WF_ENGINE.GetItemAttrText
1885: (p_item_type,
1886: p_item_key,
1887: 'CONC_PRG_CODE');
1888:
1885: (p_item_type,
1886: p_item_key,
1887: 'CONC_PRG_CODE');
1888:
1889: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => p_item_type,
1890: itemkey => p_item_key,
1891: aname => 'SET_REQ_ID');
1892:
1893: IF v_parent_process = 'Generate Allocation' THEN
1900:
1901: WriteDebugMsg('Run Status = '||v_run_status);
1902: WriteDebugMsg('Run ID = '||to_char(v_run_id));
1903:
1904: WF_Engine.SetItemAttrNumber (p_item_type,
1905: p_item_key,
1906: 'ALLOCATION_RUN_ID',
1907: v_run_id);
1908:
1923:
1924: END IF;
1925:
1926: IF v_run_status in ('DF','IP') THEN
1927: WF_Engine.SetItemAttrText(p_item_type,
1928: p_item_key,
1929: 'PARENT_PROCESS',
1930: 'Concurrent Process Exception');
1931: WriteDebugMsg('Setting attribute PARENT_PROCESS value = '||
1940: GL_AUTO_ALLOC_WF_PKG.Update_Status(v_set_req_id
1941: ,v_step_number
1942: ,v_status_code
1943: );
1944: wf_engine.SetItemAttrText(itemtype => PA_item_type,
1945: itemkey => PA_item_key,
1946: aname => 'MESSAGE_NAME',
1947: avalue => v_message_name );
1948:
1954: END IF;
1955:
1956: exception
1957: when no_data_found then
1958: WF_Engine.SetItemAttrText(p_item_type,
1959: p_item_key,
1960: 'PARENT_PROCESS',
1961: 'Concurrent Process Exception');
1962: WriteDebugMsg('Setting attribute PARENT_PROCESS value = '||
1970: GL_AUTO_ALLOC_WF_PKG.Update_Status(v_set_req_id
1971: ,v_step_number
1972: ,v_status_code
1973: );
1974: wf_engine.SetItemAttrText(itemtype => PA_item_type,
1975: itemkey => PA_item_key,
1976: aname => 'MESSAGE_NAME',
1977: avalue => v_message_name );
1978:
1980: end;/* Generate Allocation*/
1981:
1982: ELSE /* Release Allocation Process */
1983: begin
1984: v_run_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
1985: p_item_key,
1986: 'ALLOCATION_RUN_ID');
1987: WriteDebugMsg('Checking Release Status');
1988: select run_status
1993:
1994: WriteDebugMsg('Run Status = '||v_run_status);
1995:
1996: IF (v_run_status = 'RF' or v_run_status = 'IP') THEN
1997: WF_Engine.SetItemAttrText(p_item_type,
1998: p_item_key,
1999: 'PARENT_PROCESS',
2000: 'Concurrent Process Exception');
2001: Get_Status_and_Message(v_conc_prg_code
2007: GL_AUTO_ALLOC_WF_PKG.Update_Status(v_set_req_id
2008: ,v_step_number
2009: ,v_status_code
2010: );
2011: wf_engine.SetItemAttrText(itemtype => PA_item_type,
2012: itemkey => PA_item_key,
2013: aname => 'MESSAGE_NAME',
2014: avalue => v_message_name );
2015:
2019: p_result := 'COMPLETE:PASS';
2020: END IF;
2021: exception
2022: when no_data_found then
2023: WF_ENGINE.SetItemAttrText(p_item_type,
2024: p_item_key,
2025: 'PARENT_PROCESS',
2026: 'Concurrent Process Exception');
2027: WriteDebugMsg('Setting attribute PARENT_PROCESS value = '||
2035: GL_AUTO_ALLOC_WF_PKG.Update_Status(v_set_req_id
2036: ,v_step_number
2037: ,v_status_code
2038: );
2039: wf_engine.SetItemAttrText(itemtype => PA_item_type,
2040: itemkey => PA_item_key,
2041: aname => 'MESSAGE_NAME',
2042: avalue => v_message_name );
2043: p_result := 'COMPLETE:FAIL';
2057: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Check_Alloc_Run_Status', p_item_type, p_item_key);
2058: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
2059: WriteDebugMsg('************Error Encountered***********');
2060: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
2061: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => p_item_type,
2062: itemkey => p_item_key,
2063: aname => 'SET_REQ_ID');
2064: GL_AUTO_ALLOC_WF_PKG.Update_Status(v_set_req_id
2065: ,v_step_number
2090: If ( p_funcmode = 'RUN' ) THEN
2091:
2092: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
2093: Set_PA_WF_Stack(p_item_type,p_item_key,'Check_Alloc_Release');
2094: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
2095: PA_item_key,
2096: 'WF_STACK');
2097: WriteDebugMsg(v_err_stack);
2098:
2095: PA_item_key,
2096: 'WF_STACK');
2097: WriteDebugMsg(v_err_stack);
2098:
2099: v_org_id := WF_Engine.GetItemAttrNumber (p_item_type,
2100: p_item_key,
2101: 'ORG_ID');
2102: v_batch_id := WF_Engine.GetItemAttrNumber (p_item_type,
2103: p_item_key,
2098:
2099: v_org_id := WF_Engine.GetItemAttrNumber (p_item_type,
2100: p_item_key,
2101: 'ORG_ID');
2102: v_batch_id := WF_Engine.GetItemAttrNumber (p_item_type,
2103: p_item_key,
2104: 'BATCH_ID');
2105: v_allocation_run_id := WF_Engine.GetItemAttrNumber ( p_item_type,
2106: p_item_key,
2101: 'ORG_ID');
2102: v_batch_id := WF_Engine.GetItemAttrNumber (p_item_type,
2103: p_item_key,
2104: 'BATCH_ID');
2105: v_allocation_run_id := WF_Engine.GetItemAttrNumber ( p_item_type,
2106: p_item_key,
2107: 'ALLOCATION_RUN_ID');
2108: v_step_number := WF_Engine.GetItemAttrNumber (p_item_type,
2109: p_item_key,
2104: 'BATCH_ID');
2105: v_allocation_run_id := WF_Engine.GetItemAttrNumber ( p_item_type,
2106: p_item_key,
2107: 'ALLOCATION_RUN_ID');
2108: v_step_number := WF_Engine.GetItemAttrNumber (p_item_type,
2109: p_item_key,
2110: 'STEP_NUMBER');
2111: select 'RELEASED'
2112: into v_result
2133: v_definition_form := 'PA_PAXALRAR: CHAR_RUN_ID='||
2134: to_char(V_ALLOCATION_RUN_ID);
2135:
2136:
2137: WF_Engine.SetItemAttrText(itemtype => p_item_type,
2138: itemkey => p_item_key,
2139: aname => 'DEFINITION_FORM',
2140: avalue => v_definition_form);
2141:
2145: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Check_Alloc_Release', p_item_type, p_item_key);
2146: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
2147: WriteDebugMsg('************Error Encountered***********');
2148: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
2149: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => p_item_type,
2150: itemkey => p_item_key,
2151: aname => 'SET_REQ_ID');
2152: GL_AUTO_ALLOC_WF_PKG.Update_Status(v_set_req_id
2153: ,v_step_number
2182: If ( p_funcmode = 'RUN' ) THEN
2183:
2184: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
2185: Set_PA_WF_Stack(p_item_type,p_item_key,'Check_Costing_Process');
2186: v_err_stack := WF_ENGINE.GetItemAttrText( p_item_type,
2187: p_item_key,
2188: 'WF_STACK');
2189: WriteDebugMsg(v_err_stack);
2190:
2187: p_item_key,
2188: 'WF_STACK');
2189: WriteDebugMsg(v_err_stack);
2190:
2191: v_set_req_id := WF_ENGINE.GetItemAttrNumber
2192: (p_item_type,
2193: p_item_key,
2194: 'SET_REQ_ID');
2195:
2192: (p_item_type,
2193: p_item_key,
2194: 'SET_REQ_ID');
2195:
2196: v_step_number := WF_ENGINE.GetItemAttrNumber
2197: (p_item_type,
2198: p_item_key,
2199: 'STEP_NUMBER');
2200:
2197: (p_item_type,
2198: p_item_key,
2199: 'STEP_NUMBER');
2200:
2201: v_org_id := WF_ENGINE.GetItemAttrNumber
2202: (p_item_type,
2203: p_item_key,
2204: 'ORG_ID');
2205: v_expenditure_group := WF_ENGINE.GetItemAttrText
2201: v_org_id := WF_ENGINE.GetItemAttrNumber
2202: (p_item_type,
2203: p_item_key,
2204: 'ORG_ID');
2205: v_expenditure_group := WF_ENGINE.GetItemAttrText
2206: (p_item_type,
2207: p_item_key,
2208: 'EXPENDITURE_GROUP');
2209: v_conc_prg_code := WF_ENGINE.GetItemAttrText
2205: v_expenditure_group := WF_ENGINE.GetItemAttrText
2206: (p_item_type,
2207: p_item_key,
2208: 'EXPENDITURE_GROUP');
2209: v_conc_prg_code := WF_ENGINE.GetItemAttrText
2210: (p_item_type,
2211: p_item_key,
2212: 'CONC_PRG_CODE');
2213: v_rollback_allowed:= WF_ENGINE.GetItemAttrText
2209: v_conc_prg_code := WF_ENGINE.GetItemAttrText
2210: (p_item_type,
2211: p_item_key,
2212: 'CONC_PRG_CODE');
2213: v_rollback_allowed:= WF_ENGINE.GetItemAttrText
2214: (p_item_type,
2215: p_item_key,
2216: 'ROLLBACK_ALLOWED');
2217:
2235: GL_AUTO_ALLOC_WF_PKG.Update_Status(v_set_req_id
2236: ,v_step_number
2237: ,v_status_code
2238: );
2239: wf_engine.SetItemAttrText(itemtype => PA_item_type,
2240: itemkey => PA_item_key,
2241: aname => 'MESSAGE_NAME',
2242: avalue => v_message_name );
2243:
2299: If ( p_funcmode = 'RUN' ) THEN
2300: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
2301:
2302: Set_PA_WF_Stack(p_item_type,p_item_key,'Check_Summary_Process');
2303: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
2304: PA_item_key,
2305: 'WF_STACK');
2306: WriteDebugMsg(v_err_stack);
2307:
2304: PA_item_key,
2305: 'WF_STACK');
2306: WriteDebugMsg(v_err_stack);
2307:
2308: v_org_id := WF_ENGINE.GetItemAttrNumber
2309: (p_item_type,
2310: p_item_key,
2311: 'ORG_ID');
2312: v_set_req_id := WF_ENGINE.GetItemAttrNumber
2308: v_org_id := WF_ENGINE.GetItemAttrNumber
2309: (p_item_type,
2310: p_item_key,
2311: 'ORG_ID');
2312: v_set_req_id := WF_ENGINE.GetItemAttrNumber
2313: (p_item_type,
2314: p_item_key,
2315: 'SET_REQ_ID');
2316: v_step_number := WF_ENGINE.GetItemAttrNumber
2312: v_set_req_id := WF_ENGINE.GetItemAttrNumber
2313: (p_item_type,
2314: p_item_key,
2315: 'SET_REQ_ID');
2316: v_step_number := WF_ENGINE.GetItemAttrNumber
2317: (p_item_type,
2318: p_item_key,
2319: 'STEP_NUMBER');
2320: v_request_id := WF_ENGINE.GetItemAttrNumber
2316: v_step_number := WF_ENGINE.GetItemAttrNumber
2317: (p_item_type,
2318: p_item_key,
2319: 'STEP_NUMBER');
2320: v_request_id := WF_ENGINE.GetItemAttrNumber
2321: (p_item_type,
2322: p_item_key,
2323: 'CONC_REQUEST_ID');
2324:
2324:
2325: v_result := Check_Summarization_status (v_request_id);
2326: IF v_result = 'FAIL' THEN
2327: /* set parent process */
2328: WF_Engine.SetItemAttrText(itemtype => p_item_type,
2329: itemkey => p_item_key,
2330: aname => 'PARENT_PROCESS',
2331: avalue => 'Concurrent Process Exception');
2332:
2335: ,v_rollback_allowed
2336: ,v_status_code
2337: ,v_message_name);
2338:
2339: wf_engine.SetItemAttrText(itemtype => PA_item_type,
2340: itemkey => PA_item_key,
2341: aname => 'MESSAGE_NAME',
2342: avalue => v_message_name );
2343: -- Program Error
2374: p_item_type, p_item_key);
2375: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
2376: WriteDebugMsg('************* Error Encountered **********');
2377: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
2378: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => p_item_type,
2379: itemkey => p_item_key,
2380: aname => 'SET_REQ_ID');
2381: GL_AUTO_ALLOC_WF_PKG.Update_Status(v_set_req_id
2382: ,v_step_number
2397:
2398: BEGIN
2399:
2400: Set_PA_WF_Stack(PA_item_type,PA_item_key,'Check_Summarization_Status');
2401: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
2402: PA_item_key,
2403: 'WF_STACK');
2404: WriteDebugMsg(v_err_stack);
2405:
2461: Begin
2462: If ( p_funcmode = 'RUN' ) THEN
2463: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
2464: Set_PA_WF_Stack(p_item_type,p_item_key,'Submit_Conc_AllocRls');
2465: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
2466: PA_item_key,
2467: 'WF_STACK');
2468: WriteDebugMsg(v_err_stack);
2469:
2466: PA_item_key,
2467: 'WF_STACK');
2468: WriteDebugMsg(v_err_stack);
2469:
2470: v_parent_process := WF_ENGINE.GetItemAttrText ( p_item_type
2471: ,p_item_key
2472: ,'PARENT_PROCESS');
2473:
2474: v_set_req_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
2470: v_parent_process := WF_ENGINE.GetItemAttrText ( p_item_type
2471: ,p_item_key
2472: ,'PARENT_PROCESS');
2473:
2474: v_set_req_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
2475: p_item_key,
2476: 'SET_REQ_ID');
2477:
2478: v_operating_mode := WF_ENGINE.GetItemAttrText( p_item_type,
2474: v_set_req_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
2475: p_item_key,
2476: 'SET_REQ_ID');
2477:
2478: v_operating_mode := WF_ENGINE.GetItemAttrText( p_item_type,
2479: p_item_key,
2480: 'OPERATING_MODE');
2481:
2482: /* Set attributes Concurrent Program Code and Name */
2480: 'OPERATING_MODE');
2481:
2482: /* Set attributes Concurrent Program Code and Name */
2483:
2484: WF_ENGINE.SetItemAttrText( p_item_type,
2485: p_item_key,
2486: 'CONC_PRG_CODE',
2487: 'PAXALRAT');
2488: WriteDebugMsg('Attribute CONC_PRG_CODE = PAXALRAT');
2488: WriteDebugMsg('Attribute CONC_PRG_CODE = PAXALRAT');
2489:
2490: /* Get Parameters needed to submit Allocation Release Process */
2491:
2492: v_rule_id := WF_ENGINE.GetItemAttrNumber( p_item_type,
2493: p_item_key,
2494: 'BATCH_ID');
2495:
2496: v_request_id := Submit_Conc_Process
2498: p_arg1 => to_char(v_rule_id),
2499: p_arg2 => 'R'
2500: );
2501:
2502: WF_ENGINE.SetItemAttrText( p_item_type,
2503: p_item_key,
2504: 'PARENT_PROCESS',
2505: 'Release Allocation');
2506:
2521: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
2522: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
2523: WriteDebugMsg('************ Error Encountered *************');
2524: -- set status code to unexpected fatal error
2525: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => p_item_type,
2526: itemkey => p_item_key,
2527: aname => 'SET_REQ_ID');
2528: GL_AUTO_ALLOC_WF_PKG.Update_Status(v_set_req_id
2529: ,v_step_number
2551: BEGIN
2552: If ( p_funcmode = 'RUN' ) THEN
2553: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
2554: Set_PA_WF_Stack(p_item_type,p_item_key,'Set_PA_WF_STATUS');
2555: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
2556: PA_item_key,
2557: 'WF_STACK');
2558: WriteDebugMsg(v_err_stack);
2559:
2556: PA_item_key,
2557: 'WF_STACK');
2558: WriteDebugMsg(v_err_stack);
2559:
2560: v_gl_item_type := WF_ENGINE.GetItemAttrText( p_item_type,
2561: p_item_key,
2562: 'GL_ITEM_TYPE');
2563: v_gl_item_key := WF_ENGINE.GetItemAttrText( p_item_type,
2564: p_item_key,
2559:
2560: v_gl_item_type := WF_ENGINE.GetItemAttrText( p_item_type,
2561: p_item_key,
2562: 'GL_ITEM_TYPE');
2563: v_gl_item_key := WF_ENGINE.GetItemAttrText( p_item_type,
2564: p_item_key,
2565: 'GL_ITEM_KEY');
2566: v_rollback_allowed := WF_ENGINE.GetItemAttrText(p_item_type,
2567: p_item_key,
2562: 'GL_ITEM_TYPE');
2563: v_gl_item_key := WF_ENGINE.GetItemAttrText( p_item_type,
2564: p_item_key,
2565: 'GL_ITEM_KEY');
2566: v_rollback_allowed := WF_ENGINE.GetItemAttrText(p_item_type,
2567: p_item_key,
2568: 'ROLLBACK_ALLOWED');
2569:
2570: v_result := WF_ENGINE.GetActivityAttrText( p_item_type,
2566: v_rollback_allowed := WF_ENGINE.GetItemAttrText(p_item_type,
2567: p_item_key,
2568: 'ROLLBACK_ALLOWED');
2569:
2570: v_result := WF_ENGINE.GetActivityAttrText( p_item_type,
2571: p_item_key,
2572: p_actid,
2573: 'RESULT_CODE');
2574: G_Err_Stage := 'PA Workflow Result Code is = '||v_result;
2584: v_result := 'FAIL';
2585: end if;
2586: end if;
2587:
2588: WF_ENGINE.SetItemAttrText( v_gl_item_type,
2589: v_gl_item_key,
2590: 'PA_WF_STATUS',
2591: v_result);
2592: WriteDebugMsg('GL Attribute PA_WF_STATUS = '||v_result);
2590: 'PA_WF_STATUS',
2591: v_result);
2592: WriteDebugMsg('GL Attribute PA_WF_STATUS = '||v_result);
2593:
2594: v_gl_block_activity := WF_ENGINE.GetItemAttrText(p_item_type,
2595: p_item_key,
2596: 'GL_BLOCK_ACTIVITY');
2597: WF_ENGINE.CompleteActivity( v_gl_item_type,
2598: v_gl_item_key,
2593:
2594: v_gl_block_activity := WF_ENGINE.GetItemAttrText(p_item_type,
2595: p_item_key,
2596: 'GL_BLOCK_ACTIVITY');
2597: WF_ENGINE.CompleteActivity( v_gl_item_type,
2598: v_gl_item_key,
2599: v_gl_block_activity,
2600: v_result);
2601: p_result := 'COMPLETE';
2621: v_rule_id Number;
2622:
2623: Begin
2624: Set_PA_WF_Stack(PA_item_type,PA_item_key,'Get_Status_And_Message');
2625: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
2626: PA_item_key,
2627: 'WF_STACK');
2628: WriteDebugMsg(v_err_stack);
2629:
2626: PA_item_key,
2627: 'WF_STACK');
2628: WriteDebugMsg(v_err_stack);
2629:
2630: v_operating_mode := WF_ENGINE.GetItemAttrText
2631: (PA_item_type,
2632: PA_item_key,
2633: 'OPERATING_MODE');
2634: WriteDebugMsg('Attribute Operating_Mode = '||v_operating_mode);
2726: End If;
2727:
2728: ElsIf p_ptype = 'ERROR' Then
2729:
2730: v_conc_request_id := wf_engine.GetItemAttrNumber
2731: (itemtype => PA_item_type,
2732: itemkey => PA_item_key,
2733: aname => 'CONC_REQUEST_ID');
2734: /** Set the definition form attribute **/
2735:
2736: v_definition_form := 'PAREQVIEW: DODT_REQ_ID='|| to_char(v_conc_request_id);
2737:
2738:
2739: WF_Engine.SetItemAttrText(itemtype => PA_item_type,
2740: itemkey => PA_item_key,
2741: aname => 'DEFINITION_FORM',
2742: avalue => v_definition_form);
2743:
2782: End If;
2783: END IF;
2784: End If;
2785: ElsIf p_ptype = 'EXCEPTION' Then
2786: v_conc_request_id := wf_engine.GetItemAttrNumber
2787: (itemtype => PA_item_type,
2788: itemkey => PA_item_key,
2789: aname => 'CONC_REQUEST_ID');
2790:
2791: /* Set the view definition form sent with notification */
2792:
2793: v_definition_form := 'PAREQVIEW: DODT_REQ_ID='|| to_char(v_conc_request_id);
2794:
2795: WF_Engine.SetItemAttrText(itemtype => PA_item_type,
2796: itemkey => PA_item_key,
2797: aname => 'DEFINITION_FORM',
2798: avalue => v_definition_form);
2799:
2868: G_Err_Stage := 'Debug File IS '||G_FILE;
2869: If utl_file.Is_Open(G_FILE_PTR) Then
2870: utl_file.fclose(G_FILE_PTR);
2871: End If;
2872: G_DIR := wf_engine.GetItemAttrText( itemtype => PA_item_type,
2873: itemkey => PA_item_key,
2874: aname => 'DEBUG_FILE_DIR');
2875: G_FILE_PTR := utl_file.fopen(G_DIR,G_FILE,'a');
2876: Reset_PA_WF_Stack(PA_Item_Type,PA_Item_Key);
2879:
2880: Exception
2881:
2882: WHEN UTL_FILE.INVALID_PATH THEN
2883: v_err_stack := wf_engine.GetItemAttrText
2884: ( itemtype => PA_item_type,
2885: itemkey => PA_item_key,
2886: aname => 'WF_STACK');
2887:
2889: || v_err_stack||'-'||G_Err_Stage);
2890: Reset_PA_WF_Stack(PA_Item_Type,PA_Item_Key);
2891:
2892: WHEN UTL_FILE.INVALID_MODE THEN
2893: v_err_stack := wf_engine.GetItemAttrText
2894: ( itemtype => PA_item_type,
2895: itemkey => PA_item_key,
2896: aname => 'WF_STACK');
2897: raise_application_error(-20020,'INVALID MODE exception from UTL_FILE !!'
2898: || v_Err_Stack ||' - '||G_Err_Stage);
2899: Reset_PA_WF_Stack(PA_Item_Type,PA_Item_Key);
2900:
2901: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
2902: v_err_stack := wf_engine.GetItemAttrText
2903: ( itemtype => PA_item_type,
2904: itemkey => PA_item_key,
2905: aname => 'WF_STACK');
2906: raise_application_error(-20020,'INVALID FILEHANDLE exception from UTL_FIL
2908: || G_Err_Stack ||' - '||G_Err_Stage);
2909: Reset_PA_WF_Stack(PA_Item_Type,PA_Item_Key);
2910:
2911: WHEN UTL_FILE.INVALID_OPERATION THEN
2912: v_err_stack := wf_engine.GetItemAttrText
2913: ( itemtype => PA_item_type,
2914: itemkey => PA_item_key,
2915: aname => 'WF_STACK');
2916: raise_application_error(-20020,'INVALID OPERATION exception from UTL_FILE
2918: || v_Err_Stack ||' - '||G_Err_Stage);
2919: Reset_PA_WF_Stack(PA_Item_Type,PA_Item_Key);
2920:
2921: WHEN UTL_FILE.READ_ERROR THEN
2922: v_err_stack := wf_engine.GetItemAttrText
2923: ( itemtype => PA_item_type,
2924: itemkey => PA_item_key,
2925: aname => 'WF_STACK');
2926: raise_application_error(-20020,'READ ERROR exception from UTL_FILE !!'
2927: || v_Err_Stack ||' - '||G_Err_Stage);
2928: Reset_PA_WF_Stack(PA_Item_Type,PA_Item_Key);
2929:
2930: WHEN UTL_FILE.WRITE_ERROR THEN
2931: v_err_stack := wf_engine.GetItemAttrText
2932: ( itemtype => PA_item_type,
2933: itemkey => PA_item_key,
2934: aname => 'WF_STACK');
2935: raise_application_error(-20020,'WRITE ERROR exception from UTL_FILE !!'
2936: || v_Err_Stack ||' - '||G_Err_Stage);
2937: Reset_PA_WF_Stack(PA_Item_Type,PA_Item_Key);
2938:
2939: WHEN UTL_FILE.INTERNAL_ERROR THEN
2940: v_err_stack := wf_engine.GetItemAttrText
2941: ( itemtype => PA_item_type,
2942: itemkey => PA_item_key,
2943: aname => 'WF_STACK');
2944: raise_application_error(-20020,'INTERNAL ERROR exception from UTL_FILE !!
2946: || v_Err_Stack ||' - '||G_Err_Stage);
2947: Reset_PA_WF_Stack(PA_Item_Type,PA_Item_Key);
2948:
2949: When Others Then
2950: v_err_stack := wf_engine.GetItemAttrText
2951: ( itemtype => PA_item_type,
2952: itemkey => PA_item_key,
2953: aname => 'WF_STACK');
2954: /* dbms_output.put_line('In when-others of initialize_debug'); */
2986:
2987: Exception
2988:
2989: WHEN UTL_FILE.INVALID_PATH THEN
2990: v_err_stack := wf_engine.GetItemAttrText
2991: ( itemtype => PA_item_type,
2992: itemkey => PA_item_key,
2993: aname => 'WF_STACK');
2994:
2996: || v_err_stack||'-'||G_Err_Stage);
2997: Reset_PA_WF_Stack(PA_Item_Type,PA_Item_Key);
2998:
2999: WHEN UTL_FILE.INVALID_MODE THEN
3000: v_err_stack := wf_engine.GetItemAttrText
3001: ( itemtype => PA_item_type,
3002: itemkey => PA_item_key,
3003: aname => 'WF_STACK');
3004: raise_application_error(-20020,'INVALID MODE exception from UTL_FILE !!'
3005: || v_Err_Stack ||' - '||G_Err_Stage);
3006: Reset_PA_WF_Stack(PA_Item_Type,PA_Item_Key);
3007:
3008: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
3009: v_err_stack := wf_engine.GetItemAttrText
3010: ( itemtype => PA_item_type,
3011: itemkey => PA_item_key,
3012: aname => 'WF_STACK');
3013: raise_application_error(-20020,
3015: || v_Err_Stack ||' - '||G_Err_Stage);
3016: Reset_PA_WF_Stack(PA_Item_Type,PA_Item_Key);
3017:
3018: WHEN UTL_FILE.INVALID_OPERATION THEN
3019: v_err_stack := wf_engine.GetItemAttrText
3020: ( itemtype => PA_item_type,
3021: itemkey => PA_item_key,
3022: aname => 'WF_STACK');
3023: raise_application_error(-20020,
3025: || v_Err_Stack ||' - '||G_Err_Stage);
3026: Reset_PA_WF_Stack(PA_Item_Type,PA_Item_Key);
3027:
3028: WHEN UTL_FILE.READ_ERROR THEN
3029: v_err_stack := wf_engine.GetItemAttrText
3030: ( itemtype => PA_item_type,
3031: itemkey => PA_item_key,
3032: aname => 'WF_STACK');
3033: raise_application_error(-20020,'READ ERROR exception from UTL_FILE !!'
3034: || v_Err_Stack ||' - '||G_Err_Stage);
3035: Reset_PA_WF_Stack(PA_Item_Type,PA_Item_Key);
3036:
3037: WHEN UTL_FILE.WRITE_ERROR THEN
3038: v_err_stack := wf_engine.GetItemAttrText
3039: ( itemtype => PA_item_type,
3040: itemkey => PA_item_key,
3041: aname => 'WF_STACK');
3042: raise_application_error(-20020,'WRITE ERROR exception from UTL_FILE !!'
3043: || v_Err_Stack ||' - '||G_Err_Stage);
3044: Reset_PA_WF_Stack(PA_Item_Type,PA_Item_Key);
3045:
3046: WHEN UTL_FILE.INTERNAL_ERROR THEN
3047: v_err_stack := wf_engine.GetItemAttrText
3048: ( itemtype => PA_item_type,
3049: itemkey => PA_item_key,
3050: aname => 'WF_STACK');
3051: raise_application_error(-20020,
3053: || v_Err_Stack ||' - '||G_Err_Stage);
3054: Reset_PA_WF_Stack(PA_Item_Type,PA_Item_Key);
3055:
3056: When Others Then
3057: v_err_stack := wf_engine.GetItemAttrText
3058: ( itemtype => PA_item_type,
3059: itemkey => PA_item_key,
3060: aname => 'WF_STACK');
3061: /* dbms_output.put_line(SQLERRM); */
3077:
3078: G_Err_Stage := 'Inside Init_PA_WF_STACK';
3079:
3080: /* Append the stack with the new string */
3081: WF_Engine.SetItemAttrText(itemtype => p_item_type,
3082: itemkey => p_item_key,
3083: aname => 'WF_STACK',
3084: avalue => p_err_stack);
3085: Exception
3101: IS
3102: v_err_stack Varchar2(2000);
3103: Begin
3104: /* Get the previous value of the attribute */
3105: v_err_stack := WF_Engine.GetItemAttrText(p_item_type,
3106: p_item_key,
3107: 'WF_STACK');
3108:
3109: /* Append the stack with the new string */
3106: p_item_key,
3107: 'WF_STACK');
3108:
3109: /* Append the stack with the new string */
3110: WF_Engine.SetItemAttrText(itemtype => p_item_type,
3111: itemkey => p_item_key,
3112: aname => 'WF_STACK',
3113: avalue => v_err_stack||'=>'||p_err_stack);
3114:
3130: v_err_stack Varchar2(2000);
3131: v_reset_stack Varchar2(2000);
3132: Begin
3133: /* Get the previous value of the attribute */
3134: v_err_stack := WF_Engine.GetItemAttrText(p_item_type,
3135: p_item_key,
3136: 'WF_STACK');
3137: v_reset_stack := Substr(v_err_stack,1,
3138: instr(v_err_stack,'=>',-1,1)-1);
3137: v_reset_stack := Substr(v_err_stack,1,
3138: instr(v_err_stack,'=>',-1,1)-1);
3139:
3140: /* Remove the most recently entered string from the stack */
3141: WF_Engine.SetItemAttrText(itemtype => p_item_type,
3142: itemkey => p_item_key,
3143: aname => 'WF_STACK',
3144: avalue => v_reset_stack);
3145:
3152: IS
3153: v_err_stage Varchar2(2000);
3154: Begin
3155:
3156: WF_Engine.SetItemAttrText(itemtype => p_item_type,
3157: itemkey => p_item_key,
3158: aname => 'WF_STAGE',
3159: avalue => p_err_stage);
3160:
3164: Return BOOLEAN
3165: IS
3166: v_debug_mode Varchar2(2);
3167: BEGIN
3168: v_debug_mode := wf_engine.GetItemAttrText
3169: ( itemtype => PA_item_type,
3170: itemkey => PA_item_key,
3171: aname => 'DEBUG_MODE');
3172: