40:
41: begin
42:
43: IF (l_debug = 'Y') THEN
44: okc_debug.Set_Indentation(l_proc);
45: okc_debug.Log('10: Entering ',2);
46: okc_debug.Log('10: p_wf_name : '||p_wf_name,2);
47: okc_debug.Log('10: p_key : '||p_key,2);
48: END IF;
41: begin
42:
43: IF (l_debug = 'Y') THEN
44: okc_debug.Set_Indentation(l_proc);
45: okc_debug.Log('10: Entering ',2);
46: okc_debug.Log('10: p_wf_name : '||p_wf_name,2);
47: okc_debug.Log('10: p_key : '||p_key,2);
48: END IF;
49: --
42:
43: IF (l_debug = 'Y') THEN
44: okc_debug.Set_Indentation(l_proc);
45: okc_debug.Log('10: Entering ',2);
46: okc_debug.Log('10: p_wf_name : '||p_wf_name,2);
47: okc_debug.Log('10: p_key : '||p_key,2);
48: END IF;
49: --
50: -- save apps context
43: IF (l_debug = 'Y') THEN
44: okc_debug.Set_Indentation(l_proc);
45: okc_debug.Log('10: Entering ',2);
46: okc_debug.Log('10: p_wf_name : '||p_wf_name,2);
47: okc_debug.Log('10: p_key : '||p_key,2);
48: END IF;
49: --
50: -- save apps context
51: --
54: itemkey => p_key,
55: aname => 'USER_ID',
56: avalue => fnd_global.user_id);
57: IF (l_debug = 'Y') THEN
58: okc_debug.Log('001 in set_env user_id:'||fnd_global.user_id,2);
59: END IF;
60: exception
61: when others then
62: wf_engine.AddItemAttr (itemtype => p_wf_name,
66: itemkey => p_key,
67: aname => 'USER_ID',
68: avalue => fnd_global.user_id);
69: IF (l_debug = 'Y') THEN
70: okc_debug.Log('002 in set_env user_id:'||fnd_global.user_id,2);
71: END IF;
72: end;
73: begin
74: wf_engine.SetItemAttrNumber (itemtype => p_wf_name,
75: itemkey => p_key,
76: aname => 'RESP_ID',
77: avalue => fnd_global.resp_id);
78: IF (l_debug = 'Y') THEN
79: okc_debug.Log('003 in set_env resp_id:'||fnd_global.resp_id,2);
80: END IF;
81: exception
82: when others then
83: wf_engine.AddItemAttr (itemtype => p_wf_name,
87: itemkey => p_key,
88: aname => 'RESP_ID',
89: avalue => fnd_global.resp_id);
90: IF (l_debug = 'Y') THEN
91: okc_debug.Log('004 in set_env resp_id:'||fnd_global.resp_id,2);
92: END IF;
93: end;
94: begin
95: wf_engine.SetItemAttrNumber (itemtype => p_wf_name,
96: itemkey => p_key,
97: aname => 'RESP_APPL_ID',
98: avalue => fnd_global.RESP_APPL_id);
99: IF (l_debug = 'Y') THEN
100: okc_debug.Log('005 in set_env resp_id:'||fnd_global.resp_appl_id,2);
101: END IF;
102: exception
103: when others then
104: wf_engine.AddItemAttr (itemtype => p_wf_name,
108: itemkey => p_key,
109: aname => 'RESP_APPL_ID',
110: avalue => fnd_global.RESP_APPL_id);
111: IF (l_debug = 'Y') THEN
112: okc_debug.Log('006 in set_env resp_id:'||fnd_global.resp_appl_id,2);
113: END IF;
114: end;
115: --
116: -- save NLS/NTF preferences from P_RESOLVER/P_S_RECIPIENT/P_E_RECIPIENT/apps
137: itemkey => p_key,
138: aname => 'PREFORMAT_',
139: avalue => '');
140: IF (l_debug = 'Y') THEN
141: okc_debug.Log('007 in set_env l_ntf_pref:'||l_ntf_pref,2);
142: END IF;
143: end if;
144: --
145: begin
186: itemkey => p_key,
187: aname => 'NTF_PREF',
188: avalue => l_ntf_pref);
189: IF (l_debug = 'Y') THEN
190: okc_debug.Log('008 in set_env l_ntf_pref:'||l_ntf_pref,2);
191: END IF;
192: end;
193:
194:
192: end;
193:
194:
195: IF (l_debug = 'Y') THEN
196: okc_debug.Log('1000: Leaving ',2);
197: okc_debug.Log('008 leaving set_env',2);
198: okc_debug.Reset_Indentation;
199: END IF;
200:
193:
194:
195: IF (l_debug = 'Y') THEN
196: okc_debug.Log('1000: Leaving ',2);
197: okc_debug.Log('008 leaving set_env',2);
198: okc_debug.Reset_Indentation;
199: END IF;
200:
201: end save_env;
194:
195: IF (l_debug = 'Y') THEN
196: okc_debug.Log('1000: Leaving ',2);
197: okc_debug.Log('008 leaving set_env',2);
198: okc_debug.Reset_Indentation;
199: END IF;
200:
201: end save_env;
202:
242:
243: BEGIN
244:
245: IF (l_debug = 'Y') THEN
246: okc_debug.Set_Indentation(l_proc);
247: okc_debug.Log('10: Entering ',2);
248: okc_debug.Log('20: G_WF_NAME : '||G_WF_NAME,2);
249: okc_debug.Log('20: G_PROCESS_NAME : '||G_PROCESS_NAME,2);
250: okc_debug.Log('20: p_api_version : '||p_api_version,2);
243: BEGIN
244:
245: IF (l_debug = 'Y') THEN
246: okc_debug.Set_Indentation(l_proc);
247: okc_debug.Log('10: Entering ',2);
248: okc_debug.Log('20: G_WF_NAME : '||G_WF_NAME,2);
249: okc_debug.Log('20: G_PROCESS_NAME : '||G_PROCESS_NAME,2);
250: okc_debug.Log('20: p_api_version : '||p_api_version,2);
251: okc_debug.Log('20: p_init_msg_list : '||p_init_msg_list,2);
244:
245: IF (l_debug = 'Y') THEN
246: okc_debug.Set_Indentation(l_proc);
247: okc_debug.Log('10: Entering ',2);
248: okc_debug.Log('20: G_WF_NAME : '||G_WF_NAME,2);
249: okc_debug.Log('20: G_PROCESS_NAME : '||G_PROCESS_NAME,2);
250: okc_debug.Log('20: p_api_version : '||p_api_version,2);
251: okc_debug.Log('20: p_init_msg_list : '||p_init_msg_list,2);
252: okc_debug.Log('20: p_proc : '||p_proc,2);
245: IF (l_debug = 'Y') THEN
246: okc_debug.Set_Indentation(l_proc);
247: okc_debug.Log('10: Entering ',2);
248: okc_debug.Log('20: G_WF_NAME : '||G_WF_NAME,2);
249: okc_debug.Log('20: G_PROCESS_NAME : '||G_PROCESS_NAME,2);
250: okc_debug.Log('20: p_api_version : '||p_api_version,2);
251: okc_debug.Log('20: p_init_msg_list : '||p_init_msg_list,2);
252: okc_debug.Log('20: p_proc : '||p_proc,2);
253: okc_debug.Log('20: p_subj_first_msg : '||p_subj_first_msg,2);
246: okc_debug.Set_Indentation(l_proc);
247: okc_debug.Log('10: Entering ',2);
248: okc_debug.Log('20: G_WF_NAME : '||G_WF_NAME,2);
249: okc_debug.Log('20: G_PROCESS_NAME : '||G_PROCESS_NAME,2);
250: okc_debug.Log('20: p_api_version : '||p_api_version,2);
251: okc_debug.Log('20: p_init_msg_list : '||p_init_msg_list,2);
252: okc_debug.Log('20: p_proc : '||p_proc,2);
253: okc_debug.Log('20: p_subj_first_msg : '||p_subj_first_msg,2);
254: okc_debug.Log('20: p_ntf_type : '||p_ntf_type,2);
247: okc_debug.Log('10: Entering ',2);
248: okc_debug.Log('20: G_WF_NAME : '||G_WF_NAME,2);
249: okc_debug.Log('20: G_PROCESS_NAME : '||G_PROCESS_NAME,2);
250: okc_debug.Log('20: p_api_version : '||p_api_version,2);
251: okc_debug.Log('20: p_init_msg_list : '||p_init_msg_list,2);
252: okc_debug.Log('20: p_proc : '||p_proc,2);
253: okc_debug.Log('20: p_subj_first_msg : '||p_subj_first_msg,2);
254: okc_debug.Log('20: p_ntf_type : '||p_ntf_type,2);
255: okc_debug.Log('20: p_e_recipient : '||p_e_recipient,2);
248: okc_debug.Log('20: G_WF_NAME : '||G_WF_NAME,2);
249: okc_debug.Log('20: G_PROCESS_NAME : '||G_PROCESS_NAME,2);
250: okc_debug.Log('20: p_api_version : '||p_api_version,2);
251: okc_debug.Log('20: p_init_msg_list : '||p_init_msg_list,2);
252: okc_debug.Log('20: p_proc : '||p_proc,2);
253: okc_debug.Log('20: p_subj_first_msg : '||p_subj_first_msg,2);
254: okc_debug.Log('20: p_ntf_type : '||p_ntf_type,2);
255: okc_debug.Log('20: p_e_recipient : '||p_e_recipient,2);
256: okc_debug.Log('20: p_s_recipient : '||p_s_recipient,2);
249: okc_debug.Log('20: G_PROCESS_NAME : '||G_PROCESS_NAME,2);
250: okc_debug.Log('20: p_api_version : '||p_api_version,2);
251: okc_debug.Log('20: p_init_msg_list : '||p_init_msg_list,2);
252: okc_debug.Log('20: p_proc : '||p_proc,2);
253: okc_debug.Log('20: p_subj_first_msg : '||p_subj_first_msg,2);
254: okc_debug.Log('20: p_ntf_type : '||p_ntf_type,2);
255: okc_debug.Log('20: p_e_recipient : '||p_e_recipient,2);
256: okc_debug.Log('20: p_s_recipient : '||p_s_recipient,2);
257: END IF;
250: okc_debug.Log('20: p_api_version : '||p_api_version,2);
251: okc_debug.Log('20: p_init_msg_list : '||p_init_msg_list,2);
252: okc_debug.Log('20: p_proc : '||p_proc,2);
253: okc_debug.Log('20: p_subj_first_msg : '||p_subj_first_msg,2);
254: okc_debug.Log('20: p_ntf_type : '||p_ntf_type,2);
255: okc_debug.Log('20: p_e_recipient : '||p_e_recipient,2);
256: okc_debug.Log('20: p_s_recipient : '||p_s_recipient,2);
257: END IF;
258:
251: okc_debug.Log('20: p_init_msg_list : '||p_init_msg_list,2);
252: okc_debug.Log('20: p_proc : '||p_proc,2);
253: okc_debug.Log('20: p_subj_first_msg : '||p_subj_first_msg,2);
254: okc_debug.Log('20: p_ntf_type : '||p_ntf_type,2);
255: okc_debug.Log('20: p_e_recipient : '||p_e_recipient,2);
256: okc_debug.Log('20: p_s_recipient : '||p_s_recipient,2);
257: END IF;
258:
259: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
252: okc_debug.Log('20: p_proc : '||p_proc,2);
253: okc_debug.Log('20: p_subj_first_msg : '||p_subj_first_msg,2);
254: okc_debug.Log('20: p_ntf_type : '||p_ntf_type,2);
255: okc_debug.Log('20: p_e_recipient : '||p_e_recipient,2);
256: okc_debug.Log('20: p_s_recipient : '||p_s_recipient,2);
257: END IF;
258:
259: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
260: G_PKG_NAME,
274: --
275: select to_char(okc_wf_notify_s1.nextval) into l_key from dual;
276:
277: IF (l_debug = 'Y') THEN
278: okc_debug.Log('30: l_key : '||l_key,2);
279: END IF;
280:
281: wf_engine.CreateProcess( ItemType => G_WF_NAME,
282: ItemKey => L_KEY,
310: itemkey => L_KEY,
311: aname => 'P_S_RECIPIENT',
312: avalue => fnd_global.user_name);
313: IF (l_debug = 'Y') THEN
314: okc_debug.Log('009 in wf_call p_s_recipient :'||fnd_global.user_name,2);
315: END IF;
316: else
317: wf_engine.SetItemAttrText (itemtype => G_WF_NAME,
318: itemkey => L_KEY,
318: itemkey => L_KEY,
319: aname => 'P_S_RECIPIENT',
320: avalue => P_S_RECIPIENT);
321: IF (l_debug = 'Y') THEN
322: okc_debug.Log('010 in wf_call p_s_recipient :'||P_S_RECIPIENT,2);
323: END IF;
324: end if;
325: --
326: -- design time attr ! other wf parameters
327: --
328: c := p_wf_par_tbl.COUNT;
329:
330: IF (l_debug = 'Y') THEN
331: okc_debug.Log('40: p_wf_par_tbl.COUNT : '||c,2);
332: END IF;
333:
334: if (c>0) then
335: i := p_wf_par_tbl.FIRST;
334: if (c>0) then
335: i := p_wf_par_tbl.FIRST;
336: LOOP
337: IF (l_debug = 'Y') THEN
338: okc_debug.Log('50: Inside Loop ',2);
339: END IF;
340: if ( (p_wf_par_tbl(i).par_type is NULL) or (p_wf_par_tbl(i).par_type = 'C') ) then
341: wf_engine.SetItemAttrText (itemtype => G_WF_NAME,
342: itemkey => L_KEY,
342: itemkey => L_KEY,
343: aname => p_wf_par_tbl(i).par_name,
344: avalue => p_wf_par_tbl(i).par_value);
345: IF (l_debug = 'Y') THEN
346: okc_debug.Log('60: p_wf_par_tbl(i).par_name : '||p_wf_par_tbl(i).par_name,2);
347: okc_debug.Log('60: p_wf_par_tbl(i).par_value : '||p_wf_par_tbl(i).par_value,2);
348: END IF;
349: if (p_wf_par_tbl(i).par_name = 'P_DOC_PROC') then
350: P_VERSION := 4;
343: aname => p_wf_par_tbl(i).par_name,
344: avalue => p_wf_par_tbl(i).par_value);
345: IF (l_debug = 'Y') THEN
346: okc_debug.Log('60: p_wf_par_tbl(i).par_name : '||p_wf_par_tbl(i).par_name,2);
347: okc_debug.Log('60: p_wf_par_tbl(i).par_value : '||p_wf_par_tbl(i).par_value,2);
348: END IF;
349: if (p_wf_par_tbl(i).par_name = 'P_DOC_PROC') then
350: P_VERSION := 4;
351: IF (l_debug = 'Y') THEN
348: END IF;
349: if (p_wf_par_tbl(i).par_name = 'P_DOC_PROC') then
350: P_VERSION := 4;
351: IF (l_debug = 'Y') THEN
352: okc_debug.Log('60: P_VERSION := 4 ',2);
353: END IF;
354: end if;
355: elsif (p_wf_par_tbl(i).par_type = 'N') then
356: wf_engine.SetItemAttrNumber (itemtype => G_WF_NAME,
357: itemkey => L_KEY,
358: aname => p_wf_par_tbl(i).par_name,
359: avalue => to_number(p_wf_par_tbl(i).par_value));
360: IF (l_debug = 'Y') THEN
361: okc_debug.Log('70: p_wf_par_tbl(i).par_name : '||p_wf_par_tbl(i).par_name,2);
362: okc_debug.Log('70: p_wf_par_tbl(i).par_value : '||p_wf_par_tbl(i).par_value,2);
363: END IF;
364: elsif (p_wf_par_tbl(i).par_type = 'D') then
365: wf_engine.SetItemAttrDate (itemtype => G_WF_NAME,
358: aname => p_wf_par_tbl(i).par_name,
359: avalue => to_number(p_wf_par_tbl(i).par_value));
360: IF (l_debug = 'Y') THEN
361: okc_debug.Log('70: p_wf_par_tbl(i).par_name : '||p_wf_par_tbl(i).par_name,2);
362: okc_debug.Log('70: p_wf_par_tbl(i).par_value : '||p_wf_par_tbl(i).par_value,2);
363: END IF;
364: elsif (p_wf_par_tbl(i).par_type = 'D') then
365: wf_engine.SetItemAttrDate (itemtype => G_WF_NAME,
366: itemkey => L_KEY,
366: itemkey => L_KEY,
367: aname => p_wf_par_tbl(i).par_name,
368: avalue => to_date(p_wf_par_tbl(i).par_value,'YYYY/MM/DD'));
369: IF (l_debug = 'Y') THEN
370: okc_debug.Log('80: p_wf_par_tbl(i).par_name : '||p_wf_par_tbl(i).par_name,2);
371: okc_debug.Log('80: p_wf_par_tbl(i).par_value : '||p_wf_par_tbl(i).par_value,2);
372: END IF;
373: end if;
374: c := c-1;
367: aname => p_wf_par_tbl(i).par_name,
368: avalue => to_date(p_wf_par_tbl(i).par_value,'YYYY/MM/DD'));
369: IF (l_debug = 'Y') THEN
370: okc_debug.Log('80: p_wf_par_tbl(i).par_name : '||p_wf_par_tbl(i).par_name,2);
371: okc_debug.Log('80: p_wf_par_tbl(i).par_value : '||p_wf_par_tbl(i).par_value,2);
372: END IF;
373: end if;
374: c := c-1;
375: EXIT WHEN (c=0);
375: EXIT WHEN (c=0);
376: i := p_wf_par_tbl.NEXT(i);
377: END LOOP;
378: IF (l_debug = 'Y') THEN
379: okc_debug.Log('90: out nocopy of Loop ',2);
380: END IF;
381: end if;
382: --
383: wf_engine.SetItemAttrText (itemtype => G_WF_NAME,
401: itemkey => L_KEY,
402: owner => fnd_global.user_name);
403:
404: IF (l_debug = 'Y') THEN
405: okc_debug.Log('100: WF Owner : '||fnd_global.user_name,2);
406: END IF;
407:
408: wf_engine.StartProcess( itemtype => G_WF_NAME,
409: itemkey => L_KEY);
408: wf_engine.StartProcess( itemtype => G_WF_NAME,
409: itemkey => L_KEY);
410:
411: IF (l_debug = 'Y') THEN
412: okc_debug.Log('110: Started WF ',2);
413: END IF;
414:
415: -- commit;
416: x_return_status := OKC_API.G_RET_STS_SUCCESS;
416: x_return_status := OKC_API.G_RET_STS_SUCCESS;
417: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
418:
419: IF (l_debug = 'Y') THEN
420: okc_debug.Log('120: x_msg_count : '||x_msg_count,2);
421: okc_debug.Log('130: x_msg_data : '||x_msg_data,2);
422: END IF;
423:
424: IF (l_debug = 'Y') THEN
417: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
418:
419: IF (l_debug = 'Y') THEN
420: okc_debug.Log('120: x_msg_count : '||x_msg_count,2);
421: okc_debug.Log('130: x_msg_data : '||x_msg_data,2);
422: END IF;
423:
424: IF (l_debug = 'Y') THEN
425: okc_debug.Log('1000: Leaving ',2);
421: okc_debug.Log('130: x_msg_data : '||x_msg_data,2);
422: END IF;
423:
424: IF (l_debug = 'Y') THEN
425: okc_debug.Log('1000: Leaving ',2);
426: okc_debug.Reset_Indentation;
427: END IF;
428:
429: EXCEPTION
422: END IF;
423:
424: IF (l_debug = 'Y') THEN
425: okc_debug.Log('1000: Leaving ',2);
426: okc_debug.Reset_Indentation;
427: END IF;
428:
429: EXCEPTION
430: WHEN OKC_API.G_EXCEPTION_ERROR THEN
435: x_msg_count,
436: x_msg_data,
437: G_LEVEL);
438: IF (l_debug = 'Y') THEN
439: okc_debug.Log('3000: Leaving ',2);
440: okc_debug.Reset_Indentation;
441: END IF;
442: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
443: x_return_status := OKC_API.HANDLE_EXCEPTIONS
436: x_msg_data,
437: G_LEVEL);
438: IF (l_debug = 'Y') THEN
439: okc_debug.Log('3000: Leaving ',2);
440: okc_debug.Reset_Indentation;
441: END IF;
442: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
443: x_return_status := OKC_API.HANDLE_EXCEPTIONS
444: (substr(l_api_name,1,26),
447: x_msg_count,
448: x_msg_data,
449: G_LEVEL);
450: IF (l_debug = 'Y') THEN
451: okc_debug.Log('4000: Leaving ',2);
452: okc_debug.Reset_Indentation;
453: END IF;
454: WHEN OTHERS THEN
455: x_return_status := OKC_API.HANDLE_EXCEPTIONS
448: x_msg_data,
449: G_LEVEL);
450: IF (l_debug = 'Y') THEN
451: okc_debug.Log('4000: Leaving ',2);
452: okc_debug.Reset_Indentation;
453: END IF;
454: WHEN OTHERS THEN
455: x_return_status := OKC_API.HANDLE_EXCEPTIONS
456: (substr(l_api_name,1,26),
459: x_msg_count,
460: x_msg_data,
461: G_LEVEL);
462: IF (l_debug = 'Y') THEN
463: okc_debug.Log('5000: Leaving ',2);
464: okc_debug.Reset_Indentation;
465: END IF;
466: end wf_call;
467:
460: x_msg_data,
461: G_LEVEL);
462: IF (l_debug = 'Y') THEN
463: okc_debug.Log('5000: Leaving ',2);
464: okc_debug.Reset_Indentation;
465: END IF;
466: end wf_call;
467:
468: --
483: --
484: begin
485:
486: IF (l_debug = 'Y') THEN
487: okc_debug.Set_Indentation(l_proc);
488: okc_debug.Log('10: Entering ',2);
489: END IF;
490:
491: IF (l_debug = 'Y') THEN
484: begin
485:
486: IF (l_debug = 'Y') THEN
487: okc_debug.Set_Indentation(l_proc);
488: okc_debug.Log('10: Entering ',2);
489: END IF;
490:
491: IF (l_debug = 'Y') THEN
492: okc_debug.Log('20: p_wf_name : '||p_wf_name,2);
488: okc_debug.Log('10: Entering ',2);
489: END IF;
490:
491: IF (l_debug = 'Y') THEN
492: okc_debug.Log('20: p_wf_name : '||p_wf_name,2);
493: okc_debug.Log('20: p_key : '||p_key,2);
494: END IF;
495: --
496: -- do nothing for previous version
489: END IF;
490:
491: IF (l_debug = 'Y') THEN
492: okc_debug.Log('20: p_wf_name : '||p_wf_name,2);
493: okc_debug.Log('20: p_key : '||p_key,2);
494: END IF;
495: --
496: -- do nothing for previous version
497: --
503: end;
504: if (l_version < 2) then
505:
506: IF (l_debug = 'Y') THEN
507: okc_debug.Log('100: Leaving ',2);
508: okc_debug.Reset_Indentation;
509: END IF;
510:
511: return;
504: if (l_version < 2) then
505:
506: IF (l_debug = 'Y') THEN
507: okc_debug.Log('100: Leaving ',2);
508: okc_debug.Reset_Indentation;
509: END IF;
510:
511: return;
512: end if;
522: resp_appl_id =>
523: wf_engine.GetItemAttrNumber(p_wf_name,p_key,'RESP_APPL_ID')
524: );
525: IF (l_debug = 'Y') THEN
526: okc_debug.Log('100-11: Printing Apps Context in okc_asynch_pvt.set_env after call to fnd_global.apps_initialize...',2);
527: okc_debug.Log('100-12: USER_ID = '|| to_char(fnd_global.user_id),2);
528: okc_debug.Log('100-13: RESP_ID = '|| to_char(fnd_global.resp_id),2);
529: okc_debug.Log('100-14: RESP_APPL_ID = '|| to_char(fnd_global.resp_appl_id),2);
530: END IF;
523: wf_engine.GetItemAttrNumber(p_wf_name,p_key,'RESP_APPL_ID')
524: );
525: IF (l_debug = 'Y') THEN
526: okc_debug.Log('100-11: Printing Apps Context in okc_asynch_pvt.set_env after call to fnd_global.apps_initialize...',2);
527: okc_debug.Log('100-12: USER_ID = '|| to_char(fnd_global.user_id),2);
528: okc_debug.Log('100-13: RESP_ID = '|| to_char(fnd_global.resp_id),2);
529: okc_debug.Log('100-14: RESP_APPL_ID = '|| to_char(fnd_global.resp_appl_id),2);
530: END IF;
531:
524: );
525: IF (l_debug = 'Y') THEN
526: okc_debug.Log('100-11: Printing Apps Context in okc_asynch_pvt.set_env after call to fnd_global.apps_initialize...',2);
527: okc_debug.Log('100-12: USER_ID = '|| to_char(fnd_global.user_id),2);
528: okc_debug.Log('100-13: RESP_ID = '|| to_char(fnd_global.resp_id),2);
529: okc_debug.Log('100-14: RESP_APPL_ID = '|| to_char(fnd_global.resp_appl_id),2);
530: END IF;
531:
532:
525: IF (l_debug = 'Y') THEN
526: okc_debug.Log('100-11: Printing Apps Context in okc_asynch_pvt.set_env after call to fnd_global.apps_initialize...',2);
527: okc_debug.Log('100-12: USER_ID = '|| to_char(fnd_global.user_id),2);
528: okc_debug.Log('100-13: RESP_ID = '|| to_char(fnd_global.resp_id),2);
529: okc_debug.Log('100-14: RESP_APPL_ID = '|| to_char(fnd_global.resp_appl_id),2);
530: END IF;
531:
532:
533: --
548: sys.dbms_session.set_nls('NLS_TERRITORY',l_nls_territory);
549: end if;
550:
551: IF (l_debug = 'Y') THEN
552: okc_debug.Log('1000: Leaving ',2);
553: okc_debug.Reset_Indentation;
554: END IF;
555:
556: end set_env;
549: end if;
550:
551: IF (l_debug = 'Y') THEN
552: okc_debug.Log('1000: Leaving ',2);
553: okc_debug.Reset_Indentation;
554: END IF;
555:
556: end set_env;
557:
587:
588: begin
589:
590: IF (l_debug = 'Y') THEN
591: okc_debug.Set_Indentation(l_proc);
592: okc_debug.Log('10: Entering ',2);
593: END IF;
594:
595: /*Start of bugfix for 13079117*/
588: begin
589:
590: IF (l_debug = 'Y') THEN
591: okc_debug.Set_Indentation(l_proc);
592: okc_debug.Log('10: Entering ',2);
593: END IF;
594:
595: /*Start of bugfix for 13079117*/
596: /*Logic:
612:
613: /*End of bugfix for 13079117*/
614:
615: IF (l_debug = 'Y') THEN
616: okc_debug.Log('20: item_type : '||item_type,2);
617: okc_debug.Log('20: item_key : '||item_key,2);
618: okc_debug.Log('20: activity_id : '||activity_id,2);
619: okc_debug.Log('20: command : '||command,2);
620: END IF;
613: /*End of bugfix for 13079117*/
614:
615: IF (l_debug = 'Y') THEN
616: okc_debug.Log('20: item_type : '||item_type,2);
617: okc_debug.Log('20: item_key : '||item_key,2);
618: okc_debug.Log('20: activity_id : '||activity_id,2);
619: okc_debug.Log('20: command : '||command,2);
620: END IF;
621:
614:
615: IF (l_debug = 'Y') THEN
616: okc_debug.Log('20: item_type : '||item_type,2);
617: okc_debug.Log('20: item_key : '||item_key,2);
618: okc_debug.Log('20: activity_id : '||activity_id,2);
619: okc_debug.Log('20: command : '||command,2);
620: END IF;
621:
622: resultout := ''; -- return value for other possible modes
615: IF (l_debug = 'Y') THEN
616: okc_debug.Log('20: item_type : '||item_type,2);
617: okc_debug.Log('20: item_key : '||item_key,2);
618: okc_debug.Log('20: activity_id : '||activity_id,2);
619: okc_debug.Log('20: command : '||command,2);
620: END IF;
621:
622: resultout := ''; -- return value for other possible modes
623: --
629: --
630: resultout := G_PROCESS_NAME;
631:
632: IF (l_debug = 'Y') THEN
633: okc_debug.Log('30: resultout : '||resultout,2);
634: okc_debug.Log('100: Leaving ',2);
635: okc_debug.Reset_Indentation;
636: END IF;
637:
630: resultout := G_PROCESS_NAME;
631:
632: IF (l_debug = 'Y') THEN
633: okc_debug.Log('30: resultout : '||resultout,2);
634: okc_debug.Log('100: Leaving ',2);
635: okc_debug.Reset_Indentation;
636: END IF;
637:
638: return;
631:
632: IF (l_debug = 'Y') THEN
633: okc_debug.Log('30: resultout : '||resultout,2);
634: okc_debug.Log('100: Leaving ',2);
635: okc_debug.Reset_Indentation;
636: END IF;
637:
638: return;
639: end if;
637:
638: return;
639: end if;
640: IF (l_debug = 'Y') THEN
641: okc_debug.Log('100-15: Inside Selector selector/callback mode : '||command,2);
642: okc_debug.Log('100-16: Inside Selector resultout is : '||resultout,2);
643: END IF;
644:
645: --
638: return;
639: end if;
640: IF (l_debug = 'Y') THEN
641: okc_debug.Log('100-15: Inside Selector selector/callback mode : '||command,2);
642: okc_debug.Log('100-16: Inside Selector resultout is : '||resultout,2);
643: END IF;
644:
645: --
646: -- SET_CTX mode - set context for new DB session
648: if (command = 'SET_CTX') then
649: set_env(p_wf_name => item_type,p_key => item_key);
650:
651: IF (l_debug = 'Y') THEN
652: okc_debug.Log('100-17: Inside Selector if mode is SET_CTX resultout is : '||resultout,2);
653: okc_debug.Log('200: Leaving ',2);
654: okc_debug.Reset_Indentation;
655: END IF;
656:
649: set_env(p_wf_name => item_type,p_key => item_key);
650:
651: IF (l_debug = 'Y') THEN
652: okc_debug.Log('100-17: Inside Selector if mode is SET_CTX resultout is : '||resultout,2);
653: okc_debug.Log('200: Leaving ',2);
654: okc_debug.Reset_Indentation;
655: END IF;
656:
657:
650:
651: IF (l_debug = 'Y') THEN
652: okc_debug.Log('100-17: Inside Selector if mode is SET_CTX resultout is : '||resultout,2);
653: okc_debug.Log('200: Leaving ',2);
654: okc_debug.Reset_Indentation;
655: END IF;
656:
657:
658: return;
666: -- Bug#2909586 Changed resultout to FALSE so that wworkflow will always set the context
667: resultout := 'FALSE';
668:
669: IF (l_debug = 'Y') THEN
670: okc_debug.Log('100-18: Inside Selector if mode is TEST_CTX resultout is : '||resultout,2);
671: okc_debug.Log('40: resultout : '||resultout,2);
672: okc_debug.Log('300: Leaving ',2);
673: okc_debug.Reset_Indentation;
674: END IF;
667: resultout := 'FALSE';
668:
669: IF (l_debug = 'Y') THEN
670: okc_debug.Log('100-18: Inside Selector if mode is TEST_CTX resultout is : '||resultout,2);
671: okc_debug.Log('40: resultout : '||resultout,2);
672: okc_debug.Log('300: Leaving ',2);
673: okc_debug.Reset_Indentation;
674: END IF;
675:
668:
669: IF (l_debug = 'Y') THEN
670: okc_debug.Log('100-18: Inside Selector if mode is TEST_CTX resultout is : '||resultout,2);
671: okc_debug.Log('40: resultout : '||resultout,2);
672: okc_debug.Log('300: Leaving ',2);
673: okc_debug.Reset_Indentation;
674: END IF;
675:
676:
669: IF (l_debug = 'Y') THEN
670: okc_debug.Log('100-18: Inside Selector if mode is TEST_CTX resultout is : '||resultout,2);
671: okc_debug.Log('40: resultout : '||resultout,2);
672: okc_debug.Log('300: Leaving ',2);
673: okc_debug.Reset_Indentation;
674: END IF;
675:
676:
677: return;
677: return;
678: end if;
679:
680: IF (l_debug = 'Y') THEN
681: okc_debug.Log('1000: Leaving ',2);
682: okc_debug.Reset_Indentation;
683: END IF;
684:
685: exception
678: end if;
679:
680: IF (l_debug = 'Y') THEN
681: okc_debug.Log('1000: Leaving ',2);
682: okc_debug.Reset_Indentation;
683: END IF;
684:
685: exception
686: when others then
690: item_key,
691: to_char(activity_id),
692: command);
693: IF (l_debug = 'Y') THEN
694: okc_debug.Log('100-19: Inside Selector exception resultout is : '||resultout,2);
695: okc_debug.Log('2000: Leaving ',2);
696: okc_debug.Reset_Indentation;
697: END IF;
698: raise;
691: to_char(activity_id),
692: command);
693: IF (l_debug = 'Y') THEN
694: okc_debug.Log('100-19: Inside Selector exception resultout is : '||resultout,2);
695: okc_debug.Log('2000: Leaving ',2);
696: okc_debug.Reset_Indentation;
697: END IF;
698: raise;
699: end Selector;
692: command);
693: IF (l_debug = 'Y') THEN
694: okc_debug.Log('100-19: Inside Selector exception resultout is : '||resultout,2);
695: okc_debug.Log('2000: Leaving ',2);
696: okc_debug.Reset_Indentation;
697: END IF;
698: raise;
699: end Selector;
700:
713:
714: begin
715:
716: IF (l_debug = 'Y') THEN
717: okc_debug.Set_Indentation(l_proc);
718: okc_debug.Log('10: Entering ',2);
719: END IF;
720:
721: IF (l_debug = 'Y') THEN
714: begin
715:
716: IF (l_debug = 'Y') THEN
717: okc_debug.Set_Indentation(l_proc);
718: okc_debug.Log('10: Entering ',2);
719: END IF;
720:
721: IF (l_debug = 'Y') THEN
722: okc_debug.Log('20: itemtype : '||itemtype,2);
718: okc_debug.Log('10: Entering ',2);
719: END IF;
720:
721: IF (l_debug = 'Y') THEN
722: okc_debug.Log('20: itemtype : '||itemtype,2);
723: okc_debug.Log('20: itemkey : '||itemkey,2);
724: okc_debug.Log('20: actid : '||actid,2);
725: okc_debug.Log('20: funcmode : '||funcmode,2);
726: END IF;
719: END IF;
720:
721: IF (l_debug = 'Y') THEN
722: okc_debug.Log('20: itemtype : '||itemtype,2);
723: okc_debug.Log('20: itemkey : '||itemkey,2);
724: okc_debug.Log('20: actid : '||actid,2);
725: okc_debug.Log('20: funcmode : '||funcmode,2);
726: END IF;
727: --
720:
721: IF (l_debug = 'Y') THEN
722: okc_debug.Log('20: itemtype : '||itemtype,2);
723: okc_debug.Log('20: itemkey : '||itemkey,2);
724: okc_debug.Log('20: actid : '||actid,2);
725: okc_debug.Log('20: funcmode : '||funcmode,2);
726: END IF;
727: --
728: -- RUN mode - normal process execution
721: IF (l_debug = 'Y') THEN
722: okc_debug.Log('20: itemtype : '||itemtype,2);
723: okc_debug.Log('20: itemkey : '||itemkey,2);
724: okc_debug.Log('20: actid : '||actid,2);
725: okc_debug.Log('20: funcmode : '||funcmode,2);
726: END IF;
727: --
728: -- RUN mode - normal process execution
729: --
730: if (funcmode = 'RUN') then
731: begin
732: P_VERSION := to_char(wf_engine.GetItemAttrNumber(itemtype,itemkey,'P_VERSION'));
733: IF (l_debug = 'Y') THEN
734: okc_debug.Log('30: P_VERSION : '||P_VERSION,2);
735: END IF;
736: exception
737: when others then
738: P_VERSION := '1';
738: P_VERSION := '1';
739: end;
740: resultout := 'COMPLETE:'||P_VERSION;
741: IF (l_debug = 'Y') THEN
742: okc_debug.Log('40: resultout : '||resultout,2);
743: END IF;
744: end if;
745: --
746: -- CANCEL mode
749: --
750: resultout := 'COMPLETE:';
751:
752: IF (l_debug = 'Y') THEN
753: okc_debug.Log('50: resultout : '||resultout,2);
754: okc_debug.Log('100: Leaving ',2);
755: okc_debug.Reset_Indentation;
756: END IF;
757:
750: resultout := 'COMPLETE:';
751:
752: IF (l_debug = 'Y') THEN
753: okc_debug.Log('50: resultout : '||resultout,2);
754: okc_debug.Log('100: Leaving ',2);
755: okc_debug.Reset_Indentation;
756: END IF;
757:
758:
751:
752: IF (l_debug = 'Y') THEN
753: okc_debug.Log('50: resultout : '||resultout,2);
754: okc_debug.Log('100: Leaving ',2);
755: okc_debug.Reset_Indentation;
756: END IF;
757:
758:
759: return;
766: --
767: resultout := 'COMPLETE:';
768:
769: IF (l_debug = 'Y') THEN
770: okc_debug.Log('60: resultout : '||resultout,2);
771: okc_debug.Log('200: Leaving ',2);
772: okc_debug.Reset_Indentation;
773: END IF;
774:
767: resultout := 'COMPLETE:';
768:
769: IF (l_debug = 'Y') THEN
770: okc_debug.Log('60: resultout : '||resultout,2);
771: okc_debug.Log('200: Leaving ',2);
772: okc_debug.Reset_Indentation;
773: END IF;
774:
775:
768:
769: IF (l_debug = 'Y') THEN
770: okc_debug.Log('60: resultout : '||resultout,2);
771: okc_debug.Log('200: Leaving ',2);
772: okc_debug.Reset_Indentation;
773: END IF;
774:
775:
776: return;
777: --
778: end if;
779:
780: IF (l_debug = 'Y') THEN
781: okc_debug.Log('1000: Leaving ',2);
782: okc_debug.Reset_Indentation;
783: END IF;
784:
785: exception
778: end if;
779:
780: IF (l_debug = 'Y') THEN
781: okc_debug.Log('1000: Leaving ',2);
782: okc_debug.Reset_Indentation;
783: END IF;
784:
785: exception
786: when others then
790: itemkey,
791: to_char(actid),
792: funcmode);
793: IF (l_debug = 'Y') THEN
794: okc_debug.Log('2000: Leaving ',2);
795: okc_debug.Reset_Indentation;
796: END IF;
797: raise;
798: end get_version;
791: to_char(actid),
792: funcmode);
793: IF (l_debug = 'Y') THEN
794: okc_debug.Log('2000: Leaving ',2);
795: okc_debug.Reset_Indentation;
796: END IF;
797: raise;
798: end get_version;
799:
815: --
816: begin
817:
818: IF (l_debug = 'Y') THEN
819: okc_debug.Set_Indentation(l_proc);
820: okc_debug.Log('10: Entering ',2);
821: END IF;
822:
823: IF (l_debug = 'Y') THEN
816: begin
817:
818: IF (l_debug = 'Y') THEN
819: okc_debug.Set_Indentation(l_proc);
820: okc_debug.Log('10: Entering ',2);
821: END IF;
822:
823: IF (l_debug = 'Y') THEN
824: okc_debug.Log('20: p_key : '||p_key,2);
820: okc_debug.Log('10: Entering ',2);
821: END IF;
822:
823: IF (l_debug = 'Y') THEN
824: okc_debug.Log('20: p_key : '||p_key,2);
825: okc_debug.Log('20: p_attr_name : '||p_attr_name,2);
826: END IF;
827:
828: x_return_status := 'S';
821: END IF;
822:
823: IF (l_debug = 'Y') THEN
824: okc_debug.Log('20: p_key : '||p_key,2);
825: okc_debug.Log('20: p_attr_name : '||p_attr_name,2);
826: END IF;
827:
828: x_return_status := 'S';
829: P_PROC := wf_engine.GetItemAttrText (itemtype => G_WF_NAME,
843: EXECUTE IMMEDIATE P_PROC USING IN OUT x_return_status;
844: exception
845: when others then
846: IF (l_debug = 'Y') THEN
847: okc_debug.Log('011 in proc_call exception block:'||substr(sqlerrm,1,200),2);
848: END IF;
849: begin
850: rollback to exec_call_sp;
851: EXECUTE IMMEDIATE P_PROC;
873: end;
874: end if;
875:
876: IF (l_debug = 'Y') THEN
877: okc_debug.Log('1000: Leaving ',2);
878: okc_debug.Reset_Indentation;
879: END IF;
880:
881: end proc_call;
874: end if;
875:
876: IF (l_debug = 'Y') THEN
877: okc_debug.Log('1000: Leaving ',2);
878: okc_debug.Reset_Indentation;
879: END IF;
880:
881: end proc_call;
882:
918: --END NPALEPU
919: begin
920:
921: IF (l_debug = 'Y') THEN
922: okc_debug.Set_Indentation(l_proc);
923: okc_debug.Log('10: Entering ',2);
924: END IF;
925:
926: nl:=fnd_global.NewLine;
919: begin
920:
921: IF (l_debug = 'Y') THEN
922: okc_debug.Set_Indentation(l_proc);
923: okc_debug.Log('10: Entering ',2);
924: END IF;
925:
926: nl:=fnd_global.NewLine;
927: P_SUBJ_FIRST_MSG := wf_engine.GetItemAttrText(itemtype,itemkey,'P_SUBJ_FIRST_MSG');
933: --14-DEC-2005
934: --bug # 4699009
935:
936: IF (l_debug = 'Y') THEN
937: okc_debug.Log('50: Message Count is Zero ',2);
938: okc_debug.Reset_Indentation;
939: END IF;
940:
941: l_contract_id := (wf_engine.GetItemAttrText (itemtype => itemtype,
934: --bug # 4699009
935:
936: IF (l_debug = 'Y') THEN
937: okc_debug.Log('50: Message Count is Zero ',2);
938: okc_debug.Reset_Indentation;
939: END IF;
940:
941: l_contract_id := (wf_engine.GetItemAttrText (itemtype => itemtype,
942: itemkey => itemkey,
996: avalue => FND_MSG_PUB.Get(1,p_encoded =>FND_API.G_FALSE ));
997: --END NPALEPU
998:
999: IF (l_debug = 'Y') THEN
1000: okc_debug.Log('100: Leaving ',2);
1001: okc_debug.Reset_Indentation;
1002: END IF;
1003: return;
1004:
997: --END NPALEPU
998:
999: IF (l_debug = 'Y') THEN
1000: okc_debug.Log('100: Leaving ',2);
1001: okc_debug.Reset_Indentation;
1002: END IF;
1003: return;
1004:
1005: end if;
1091: --
1092: begin
1093:
1094: IF (l_debug = 'Y') THEN
1095: okc_debug.Set_Indentation(l_proc);
1096: okc_debug.Log('10: Entering ',2);
1097: END IF;
1098: --
1099: -- RUN mode - normal process execution
1092: begin
1093:
1094: IF (l_debug = 'Y') THEN
1095: okc_debug.Set_Indentation(l_proc);
1096: okc_debug.Log('10: Entering ',2);
1097: END IF;
1098: --
1099: -- RUN mode - normal process execution
1100: --
1108: /* End of code insert */
1109:
1110: if (funcmode = 'RUN') then
1111: IF (l_debug = 'Y') THEN
1112: okc_debug.Log('20: funcmode = RUN ',2);
1113: END IF;
1114: FND_MSG_PUB.initialize;
1115: IF (l_debug = 'Y') THEN
1116: okc_debug.Log('30: ',2);
1112: okc_debug.Log('20: funcmode = RUN ',2);
1113: END IF;
1114: FND_MSG_PUB.initialize;
1115: IF (l_debug = 'Y') THEN
1116: okc_debug.Log('30: ',2);
1117: END IF;
1118: if (wf_engine.GetItemAttrText(itemtype,itemkey,'P_PROC') is NULL) then
1119: IF (l_debug = 'Y') THEN
1120: okc_debug.Log('40 ',2);
1116: okc_debug.Log('30: ',2);
1117: END IF;
1118: if (wf_engine.GetItemAttrText(itemtype,itemkey,'P_PROC') is NULL) then
1119: IF (l_debug = 'Y') THEN
1120: okc_debug.Log('40 ',2);
1121: END IF;
1122: resultout := 'COMPLETE:S';
1123: else
1124: if (wf_engine.GetItemAttrNumber(itemtype,itemkey,'P_VERSION') = 5) then
1175: end if;
1176: proc_call(p_key => itemkey,p_attr_name => 'P_PROC',
1177: x_return_status => x_return_status);
1178: IF (l_debug = 'Y') THEN
1179: okc_debug.Log('50 ',2);
1180: END IF;
1181: if ((x_return_status = 'S') and
1182: (wf_engine.GetItemAttrText(itemtype,itemkey,'P_S_RECIPIENT') is not NULL)) then
1183: --NPALEPU
1188: --END NPALEPU
1189: --
1190: p_recipient := wf_engine.GetItemAttrText(itemtype,itemkey,'P_S_RECIPIENT');
1191: IF (l_debug = 'Y') THEN
1192: okc_debug.Log('60 ',2);
1193: END IF;
1194: open pref_csr;
1195: fetch pref_csr into l_pref;
1196: close pref_csr;
1195: fetch pref_csr into l_pref;
1196: close pref_csr;
1197:
1198: IF (l_debug = 'Y') THEN
1199: okc_debug.Log('70 l_pref : '||l_pref);
1200: END IF;
1201:
1202: if (l_pref='MAILTEXT') then
1203: wf_engine.SetItemAttrText (itemtype => itemtype,
1225: fetch pref_csr into l_pref;
1226: close pref_csr;
1227:
1228: IF (l_debug = 'Y') THEN
1229: okc_debug.Log('80 l_pref : '||l_pref);
1230: END IF;
1231:
1232: if (l_pref='MAILTEXT') then
1233: wf_engine.SetItemAttrText (itemtype => itemtype,
1244: else
1245: resultout := 'COMPLETE:X';
1246: end if;
1247: IF (l_debug = 'Y') THEN
1248: okc_debug.Log('81: ',2);
1249: END IF;
1250:
1251: end if;
1252: IF (l_debug = 'Y') THEN
1249: END IF;
1250:
1251: end if;
1252: IF (l_debug = 'Y') THEN
1253: okc_debug.Log('82: ',2);
1254: END IF;
1255:
1256: end if;
1257: IF (l_debug = 'Y') THEN
1254: END IF;
1255:
1256: end if;
1257: IF (l_debug = 'Y') THEN
1258: okc_debug.Log('83: ',2);
1259: END IF;
1260: --
1261: -- CANCEL mode
1262: --
1263:
1264: if (funcmode = 'CANCEL') then
1265: --
1266: IF (l_debug = 'Y') THEN
1267: okc_debug.Log('90 funcmode = CANCEL',2);
1268: END IF;
1269:
1270: resultout := 'COMPLETE:';
1271:
1269:
1270: resultout := 'COMPLETE:';
1271:
1272: IF (l_debug = 'Y') THEN
1273: okc_debug.Log('100: Leaving ',2);
1274: okc_debug.Reset_Indentation;
1275: END IF;
1276:
1277: return;
1270: resultout := 'COMPLETE:';
1271:
1272: IF (l_debug = 'Y') THEN
1273: okc_debug.Log('100: Leaving ',2);
1274: okc_debug.Reset_Indentation;
1275: END IF;
1276:
1277: return;
1278: --
1282: --
1283: if (funcmode = 'TIMEOUT') then
1284: --
1285: IF (l_debug = 'Y') THEN
1286: okc_debug.Log('110 funcmode = TIMEOUT',2);
1287: END IF;
1288:
1289: resultout := 'COMPLETE:';
1290:
1288:
1289: resultout := 'COMPLETE:';
1290:
1291: IF (l_debug = 'Y') THEN
1292: okc_debug.Log('200: Leaving ',2);
1293: okc_debug.Reset_Indentation;
1294: END IF;
1295:
1296: return;
1289: resultout := 'COMPLETE:';
1290:
1291: IF (l_debug = 'Y') THEN
1292: okc_debug.Log('200: Leaving ',2);
1293: okc_debug.Reset_Indentation;
1294: END IF;
1295:
1296: return;
1297: --
1297: --
1298: end if;
1299:
1300: IF (l_debug = 'Y') THEN
1301: okc_debug.Log('1000: Leaving ',2);
1302: okc_debug.Reset_Indentation;
1303: END IF;
1304:
1305: exception
1298: end if;
1299:
1300: IF (l_debug = 'Y') THEN
1301: okc_debug.Log('1000: Leaving ',2);
1302: okc_debug.Reset_Indentation;
1303: END IF;
1304:
1305: exception
1306: when others then
1310: itemkey,
1311: to_char(actid),
1312: funcmode);
1313: IF (l_debug = 'Y') THEN
1314: okc_debug.Log('2000: Leaving ',2);
1315: okc_debug.Reset_Indentation;
1316: END IF;
1317: raise;
1318: end fun_generic;
1311: to_char(actid),
1312: funcmode);
1313: IF (l_debug = 'Y') THEN
1314: okc_debug.Log('2000: Leaving ',2);
1315: okc_debug.Reset_Indentation;
1316: END IF;
1317: raise;
1318: end fun_generic;
1319:
1331: --
1332: begin
1333:
1334: IF (l_debug = 'Y') THEN
1335: okc_debug.Set_Indentation(l_proc);
1336: okc_debug.Log('10: Entering ',2);
1337: END IF;
1338: --
1339: -- RUN mode - normal process execution
1332: begin
1333:
1334: IF (l_debug = 'Y') THEN
1335: okc_debug.Set_Indentation(l_proc);
1336: okc_debug.Log('10: Entering ',2);
1337: END IF;
1338: --
1339: -- RUN mode - normal process execution
1340: --
1344: x_return_status => x_return_status);
1345: resultout := 'COMPLETE:';
1346:
1347: IF (l_debug = 'Y') THEN
1348: okc_debug.Log('100: Leaving ',2);
1349: okc_debug.Reset_Indentation;
1350: END IF;
1351:
1352: return;
1345: resultout := 'COMPLETE:';
1346:
1347: IF (l_debug = 'Y') THEN
1348: okc_debug.Log('100: Leaving ',2);
1349: okc_debug.Reset_Indentation;
1350: END IF;
1351:
1352: return;
1353: --
1359: --
1360: resultout := 'COMPLETE:';
1361:
1362: IF (l_debug = 'Y') THEN
1363: okc_debug.Log('200: Leaving ',2);
1364: okc_debug.Reset_Indentation;
1365: END IF;
1366:
1367: return;
1360: resultout := 'COMPLETE:';
1361:
1362: IF (l_debug = 'Y') THEN
1363: okc_debug.Log('200: Leaving ',2);
1364: okc_debug.Reset_Indentation;
1365: END IF;
1366:
1367: return;
1368: --
1374: --
1375: resultout := 'COMPLETE:';
1376:
1377: IF (l_debug = 'Y') THEN
1378: okc_debug.Log('300: Leaving ',2);
1379: okc_debug.Reset_Indentation;
1380: END IF;
1381:
1382: return;
1375: resultout := 'COMPLETE:';
1376:
1377: IF (l_debug = 'Y') THEN
1378: okc_debug.Log('300: Leaving ',2);
1379: okc_debug.Reset_Indentation;
1380: END IF;
1381:
1382: return;
1383: --
1383: --
1384: end if;
1385:
1386: IF (l_debug = 'Y') THEN
1387: okc_debug.Log('1000: Leaving ',2);
1388: okc_debug.Reset_Indentation;
1389: END IF;
1390:
1391: exception
1384: end if;
1385:
1386: IF (l_debug = 'Y') THEN
1387: okc_debug.Log('1000: Leaving ',2);
1388: okc_debug.Reset_Indentation;
1389: END IF;
1390:
1391: exception
1392: when others then
1396: itemkey,
1397: to_char(actid),
1398: funcmode);
1399: IF (l_debug = 'Y') THEN
1400: okc_debug.Log('2000: Leaving ',2);
1401: okc_debug.Reset_Indentation;
1402: END IF;
1403: raise;
1404: end accept;
1397: to_char(actid),
1398: funcmode);
1399: IF (l_debug = 'Y') THEN
1400: okc_debug.Log('2000: Leaving ',2);
1401: okc_debug.Reset_Indentation;
1402: END IF;
1403: raise;
1404: end accept;
1405:
1419:
1420: begin
1421:
1422: IF (l_debug = 'Y') THEN
1423: okc_debug.Set_Indentation(l_proc);
1424: okc_debug.Log('10: Entering ',2);
1425: END IF;
1426: --
1427: -- RUN mode - normal process execution
1420: begin
1421:
1422: IF (l_debug = 'Y') THEN
1423: okc_debug.Set_Indentation(l_proc);
1424: okc_debug.Log('10: Entering ',2);
1425: END IF;
1426: --
1427: -- RUN mode - normal process execution
1428: --
1432: x_return_status => x_return_status);
1433: resultout := 'COMPLETE:';
1434:
1435: IF (l_debug = 'Y') THEN
1436: okc_debug.Log('100: Leaving ',2);
1437: okc_debug.Reset_Indentation;
1438: END IF;
1439:
1440: return;
1433: resultout := 'COMPLETE:';
1434:
1435: IF (l_debug = 'Y') THEN
1436: okc_debug.Log('100: Leaving ',2);
1437: okc_debug.Reset_Indentation;
1438: END IF;
1439:
1440: return;
1441: --
1447: --
1448: resultout := 'COMPLETE:';
1449:
1450: IF (l_debug = 'Y') THEN
1451: okc_debug.Log('200: Leaving ',2);
1452: okc_debug.Reset_Indentation;
1453: END IF;
1454:
1455: return;
1448: resultout := 'COMPLETE:';
1449:
1450: IF (l_debug = 'Y') THEN
1451: okc_debug.Log('200: Leaving ',2);
1452: okc_debug.Reset_Indentation;
1453: END IF;
1454:
1455: return;
1456: --
1462: --
1463: resultout := 'COMPLETE:';
1464:
1465: IF (l_debug = 'Y') THEN
1466: okc_debug.Log('300: Leaving ',2);
1467: okc_debug.Reset_Indentation;
1468: END IF;
1469:
1470: return;
1463: resultout := 'COMPLETE:';
1464:
1465: IF (l_debug = 'Y') THEN
1466: okc_debug.Log('300: Leaving ',2);
1467: okc_debug.Reset_Indentation;
1468: END IF;
1469:
1470: return;
1471: --
1471: --
1472: end if;
1473:
1474: IF (l_debug = 'Y') THEN
1475: okc_debug.Log('1000: Leaving ',2);
1476: okc_debug.Reset_Indentation;
1477: END IF;
1478:
1479:
1472: end if;
1473:
1474: IF (l_debug = 'Y') THEN
1475: okc_debug.Log('1000: Leaving ',2);
1476: okc_debug.Reset_Indentation;
1477: END IF;
1478:
1479:
1480: exception
1485: itemkey,
1486: to_char(actid),
1487: funcmode);
1488: IF (l_debug = 'Y') THEN
1489: okc_debug.Log('2000: Leaving ',2);
1490: okc_debug.Reset_Indentation;
1491: END IF;
1492: raise;
1493: end reject;
1486: to_char(actid),
1487: funcmode);
1488: IF (l_debug = 'Y') THEN
1489: okc_debug.Log('2000: Leaving ',2);
1490: okc_debug.Reset_Indentation;
1491: END IF;
1492: raise;
1493: end reject;
1494:
1506: --
1507: begin
1508:
1509: IF (l_debug = 'Y') THEN
1510: okc_debug.Set_Indentation(l_proc);
1511: okc_debug.Log('10: Entering ',2);
1512: END IF;
1513: --
1514: -- RUN mode - normal process execution
1507: begin
1508:
1509: IF (l_debug = 'Y') THEN
1510: okc_debug.Set_Indentation(l_proc);
1511: okc_debug.Log('10: Entering ',2);
1512: END IF;
1513: --
1514: -- RUN mode - normal process execution
1515: --
1519: x_return_status => x_return_status);
1520: resultout := 'COMPLETE:';
1521:
1522: IF (l_debug = 'Y') THEN
1523: okc_debug.Log('100: Leaving ',2);
1524: okc_debug.Reset_Indentation;
1525: END IF;
1526:
1527: return;
1520: resultout := 'COMPLETE:';
1521:
1522: IF (l_debug = 'Y') THEN
1523: okc_debug.Log('100: Leaving ',2);
1524: okc_debug.Reset_Indentation;
1525: END IF;
1526:
1527: return;
1528: --
1534: --
1535: resultout := 'COMPLETE:';
1536:
1537: IF (l_debug = 'Y') THEN
1538: okc_debug.Log('200: Leaving ',2);
1539: okc_debug.Reset_Indentation;
1540: END IF;
1541:
1542:
1535: resultout := 'COMPLETE:';
1536:
1537: IF (l_debug = 'Y') THEN
1538: okc_debug.Log('200: Leaving ',2);
1539: okc_debug.Reset_Indentation;
1540: END IF;
1541:
1542:
1543: return;
1550: --
1551: resultout := 'COMPLETE:';
1552:
1553: IF (l_debug = 'Y') THEN
1554: okc_debug.Log('300: Leaving ',2);
1555: okc_debug.Reset_Indentation;
1556: END IF;
1557:
1558: return;
1551: resultout := 'COMPLETE:';
1552:
1553: IF (l_debug = 'Y') THEN
1554: okc_debug.Log('300: Leaving ',2);
1555: okc_debug.Reset_Indentation;
1556: END IF;
1557:
1558: return;
1559: --
1559: --
1560: end if;
1561:
1562: IF (l_debug = 'Y') THEN
1563: okc_debug.Log('1000: Leaving ',2);
1564: okc_debug.Reset_Indentation;
1565: END IF;
1566:
1567:
1560: end if;
1561:
1562: IF (l_debug = 'Y') THEN
1563: okc_debug.Log('1000: Leaving ',2);
1564: okc_debug.Reset_Indentation;
1565: END IF;
1566:
1567:
1568: exception
1573: itemkey,
1574: to_char(actid),
1575: funcmode);
1576: IF (l_debug = 'Y') THEN
1577: okc_debug.Log('2000: Leaving ',2);
1578: okc_debug.Reset_Indentation;
1579: END IF;
1580: raise;
1581: end timeout;
1574: to_char(actid),
1575: funcmode);
1576: IF (l_debug = 'Y') THEN
1577: okc_debug.Log('2000: Leaving ',2);
1578: okc_debug.Reset_Indentation;
1579: END IF;
1580: raise;
1581: end timeout;
1582:
1623:
1624: BEGIN
1625:
1626: IF (l_debug = 'Y') THEN
1627: okc_debug.Set_Indentation(l_proc);
1628: okc_debug.Log('10: Entering ',2);
1629: END IF;
1630:
1631: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
1624: BEGIN
1625:
1626: IF (l_debug = 'Y') THEN
1627: okc_debug.Set_Indentation(l_proc);
1628: okc_debug.Log('10: Entering ',2);
1629: END IF;
1630:
1631: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
1632: G_PKG_NAME,
1728: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1729: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1730:
1731: IF (l_debug = 'Y') THEN
1732: okc_debug.Log('1000: Leaving ',2);
1733: okc_debug.Reset_Indentation;
1734: END IF;
1735:
1736:
1729: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1730:
1731: IF (l_debug = 'Y') THEN
1732: okc_debug.Log('1000: Leaving ',2);
1733: okc_debug.Reset_Indentation;
1734: END IF;
1735:
1736:
1737: EXCEPTION
1743: x_msg_count,
1744: x_msg_data,
1745: G_LEVEL);
1746: IF (l_debug = 'Y') THEN
1747: okc_debug.Log('3000: Leaving ',2);
1748: okc_debug.Reset_Indentation;
1749: END IF;
1750: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1751: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1744: x_msg_data,
1745: G_LEVEL);
1746: IF (l_debug = 'Y') THEN
1747: okc_debug.Log('3000: Leaving ',2);
1748: okc_debug.Reset_Indentation;
1749: END IF;
1750: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1751: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1752: (substr(l_api_name,1,26),
1755: x_msg_count,
1756: x_msg_data,
1757: G_LEVEL);
1758: IF (l_debug = 'Y') THEN
1759: okc_debug.Log('4000: Leaving ',2);
1760: okc_debug.Reset_Indentation;
1761: END IF;
1762: WHEN OTHERS THEN
1763: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1756: x_msg_data,
1757: G_LEVEL);
1758: IF (l_debug = 'Y') THEN
1759: okc_debug.Log('4000: Leaving ',2);
1760: okc_debug.Reset_Indentation;
1761: END IF;
1762: WHEN OTHERS THEN
1763: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1764: (substr(l_api_name,1,26),
1767: x_msg_count,
1768: x_msg_data,
1769: G_LEVEL);
1770: IF (l_debug = 'Y') THEN
1771: okc_debug.Log('5000: Leaving ',2);
1772: okc_debug.Reset_Indentation;
1773: END IF;
1774: end resolver_call;
1775:
1768: x_msg_data,
1769: G_LEVEL);
1770: IF (l_debug = 'Y') THEN
1771: okc_debug.Log('5000: Leaving ',2);
1772: okc_debug.Reset_Indentation;
1773: END IF;
1774: end resolver_call;
1775:
1776: --
1789:
1790: begin
1791:
1792: IF (l_debug = 'Y') THEN
1793: okc_debug.Set_Indentation(l_proc);
1794: okc_debug.Log('10: Entering ',2);
1795: END IF;
1796: --
1797: -- RUN mode - normal process execution
1790: begin
1791:
1792: IF (l_debug = 'Y') THEN
1793: okc_debug.Set_Indentation(l_proc);
1794: okc_debug.Log('10: Entering ',2);
1795: END IF;
1796: --
1797: -- RUN mode - normal process execution
1798: --
1819: --
1820: resultout := 'COMPLETE:';
1821:
1822: IF (l_debug = 'Y') THEN
1823: okc_debug.Log('100: Leaving ',2);
1824: okc_debug.Reset_Indentation;
1825: END IF;
1826:
1827: return;
1820: resultout := 'COMPLETE:';
1821:
1822: IF (l_debug = 'Y') THEN
1823: okc_debug.Log('100: Leaving ',2);
1824: okc_debug.Reset_Indentation;
1825: END IF;
1826:
1827: return;
1828: --
1834: --
1835: resultout := 'COMPLETE:';
1836:
1837: IF (l_debug = 'Y') THEN
1838: okc_debug.Log('200: Leaving ',2);
1839: okc_debug.Reset_Indentation;
1840: END IF;
1841:
1842: return;
1835: resultout := 'COMPLETE:';
1836:
1837: IF (l_debug = 'Y') THEN
1838: okc_debug.Log('200: Leaving ',2);
1839: okc_debug.Reset_Indentation;
1840: END IF;
1841:
1842: return;
1843: --
1843: --
1844: end if;
1845:
1846: IF (l_debug = 'Y') THEN
1847: okc_debug.Log('1000: Leaving ',2);
1848: okc_debug.Reset_Indentation;
1849: END IF;
1850:
1851:
1844: end if;
1845:
1846: IF (l_debug = 'Y') THEN
1847: okc_debug.Log('1000: Leaving ',2);
1848: okc_debug.Reset_Indentation;
1849: END IF;
1850:
1851:
1852: exception
1857: itemkey,
1858: to_char(actid),
1859: funcmode);
1860: IF (l_debug = 'Y') THEN
1861: okc_debug.Log('2000: Leaving ',2);
1862: okc_debug.Reset_Indentation;
1863: END IF;
1864: raise;
1865: end periodic;
1858: to_char(actid),
1859: funcmode);
1860: IF (l_debug = 'Y') THEN
1861: okc_debug.Log('2000: Leaving ',2);
1862: okc_debug.Reset_Indentation;
1863: END IF;
1864: raise;
1865: end periodic;
1866:
1877: --
1878: begin
1879:
1880: IF (l_debug = 'Y') THEN
1881: okc_debug.Set_Indentation(l_proc);
1882: okc_debug.Log('10: Entering ',2);
1883: END IF;
1884: --
1885: -- RUN mode - normal process execution
1878: begin
1879:
1880: IF (l_debug = 'Y') THEN
1881: okc_debug.Set_Indentation(l_proc);
1882: okc_debug.Log('10: Entering ',2);
1883: END IF;
1884: --
1885: -- RUN mode - normal process execution
1886: --
1898: --
1899: resultout := 'COMPLETE:';
1900:
1901: IF (l_debug = 'Y') THEN
1902: okc_debug.Log('100: Leaving ',2);
1903: okc_debug.Reset_Indentation;
1904: END IF;
1905:
1906:
1899: resultout := 'COMPLETE:';
1900:
1901: IF (l_debug = 'Y') THEN
1902: okc_debug.Log('100: Leaving ',2);
1903: okc_debug.Reset_Indentation;
1904: END IF;
1905:
1906:
1907: return;
1914: --
1915: resultout := 'COMPLETE:';
1916:
1917: IF (l_debug = 'Y') THEN
1918: okc_debug.Log('200: Leaving ',2);
1919: okc_debug.Reset_Indentation;
1920: END IF;
1921:
1922:
1915: resultout := 'COMPLETE:';
1916:
1917: IF (l_debug = 'Y') THEN
1918: okc_debug.Log('200: Leaving ',2);
1919: okc_debug.Reset_Indentation;
1920: END IF;
1921:
1922:
1923: return;
1924: --
1925: end if;
1926:
1927: IF (l_debug = 'Y') THEN
1928: okc_debug.Log('1000: Leaving ',2);
1929: okc_debug.Reset_Indentation;
1930: END IF;
1931:
1932:
1925: end if;
1926:
1927: IF (l_debug = 'Y') THEN
1928: okc_debug.Log('1000: Leaving ',2);
1929: okc_debug.Reset_Indentation;
1930: END IF;
1931:
1932:
1933: exception
1938: itemkey,
1939: to_char(actid),
1940: funcmode);
1941: IF (l_debug = 'Y') THEN
1942: okc_debug.Log('2000: Leaving ',2);
1943: okc_debug.Reset_Indentation;
1944: END IF;
1945: raise;
1946: end time_over;
1939: to_char(actid),
1940: funcmode);
1941: IF (l_debug = 'Y') THEN
1942: okc_debug.Log('2000: Leaving ',2);
1943: okc_debug.Reset_Indentation;
1944: END IF;
1945: raise;
1946: end time_over;
1947:
1957: --
1958: begin
1959:
1960: IF (l_debug = 'Y') THEN
1961: okc_debug.Set_Indentation(l_proc);
1962: okc_debug.Log('10: Entering ',2);
1963: END IF;
1964:
1965: IF (l_debug = 'Y') THEN
1958: begin
1959:
1960: IF (l_debug = 'Y') THEN
1961: okc_debug.Set_Indentation(l_proc);
1962: okc_debug.Log('10: Entering ',2);
1963: END IF;
1964:
1965: IF (l_debug = 'Y') THEN
1966: okc_debug.Log('20: document_id : '||document_id,2);
1962: okc_debug.Log('10: Entering ',2);
1963: END IF;
1964:
1965: IF (l_debug = 'Y') THEN
1966: okc_debug.Log('20: document_id : '||document_id,2);
1967: okc_debug.Log('20: display_type : '||display_type,2);
1968: okc_debug.Log('20: document_type : '||document_type,2);
1969: END IF;
1970:
1963: END IF;
1964:
1965: IF (l_debug = 'Y') THEN
1966: okc_debug.Log('20: document_id : '||document_id,2);
1967: okc_debug.Log('20: display_type : '||display_type,2);
1968: okc_debug.Log('20: document_type : '||document_type,2);
1969: END IF;
1970:
1971: savepoint get_doc;
1964:
1965: IF (l_debug = 'Y') THEN
1966: okc_debug.Log('20: document_id : '||document_id,2);
1967: okc_debug.Log('20: display_type : '||display_type,2);
1968: okc_debug.Log('20: document_type : '||document_type,2);
1969: END IF;
1970:
1971: savepoint get_doc;
1972: begin
1976: rollback to get_doc;
1977: end;
1978:
1979: IF (l_debug = 'Y') THEN
1980: okc_debug.Log('100: document_type out nocopy : '||document_type,2);
1981: okc_debug.Log('1000: Leaving ',2);
1982: okc_debug.Reset_Indentation;
1983: END IF;
1984:
1977: end;
1978:
1979: IF (l_debug = 'Y') THEN
1980: okc_debug.Log('100: document_type out nocopy : '||document_type,2);
1981: okc_debug.Log('1000: Leaving ',2);
1982: okc_debug.Reset_Indentation;
1983: END IF;
1984:
1985:
1978:
1979: IF (l_debug = 'Y') THEN
1980: okc_debug.Log('100: document_type out nocopy : '||document_type,2);
1981: okc_debug.Log('1000: Leaving ',2);
1982: okc_debug.Reset_Indentation;
1983: END IF;
1984:
1985:
1986: end;
2039: --
2040: BEGIN
2041:
2042: IF (l_debug = 'Y') THEN
2043: okc_debug.Set_Indentation(l_proc);
2044: okc_debug.Log('10: Entering ',2);
2045: END IF;
2046:
2047: IF (l_debug = 'Y') THEN
2040: BEGIN
2041:
2042: IF (l_debug = 'Y') THEN
2043: okc_debug.Set_Indentation(l_proc);
2044: okc_debug.Log('10: Entering ',2);
2045: END IF;
2046:
2047: IF (l_debug = 'Y') THEN
2048: okc_debug.Log('20: p_api_version : '||p_api_version,2);
2044: okc_debug.Log('10: Entering ',2);
2045: END IF;
2046:
2047: IF (l_debug = 'Y') THEN
2048: okc_debug.Log('20: p_api_version : '||p_api_version,2);
2049: okc_debug.Log('20: p_init_msg_list : '||p_init_msg_list,2);
2050: okc_debug.Log('20: p_proc : '||p_proc,2);
2051: --NPALEPU
2052: --14-DEC-2005
2045: END IF;
2046:
2047: IF (l_debug = 'Y') THEN
2048: okc_debug.Log('20: p_api_version : '||p_api_version,2);
2049: okc_debug.Log('20: p_init_msg_list : '||p_init_msg_list,2);
2050: okc_debug.Log('20: p_proc : '||p_proc,2);
2051: --NPALEPU
2052: --14-DEC-2005
2053: --BUG # 4699009
2046:
2047: IF (l_debug = 'Y') THEN
2048: okc_debug.Log('20: p_api_version : '||p_api_version,2);
2049: okc_debug.Log('20: p_init_msg_list : '||p_init_msg_list,2);
2050: okc_debug.Log('20: p_proc : '||p_proc,2);
2051: --NPALEPU
2052: --14-DEC-2005
2053: --BUG # 4699009
2054: okc_debug.Log('20: p_proc_name : '||p_proc_name,2);
2050: okc_debug.Log('20: p_proc : '||p_proc,2);
2051: --NPALEPU
2052: --14-DEC-2005
2053: --BUG # 4699009
2054: okc_debug.Log('20: p_proc_name : '||p_proc_name,2);
2055: --END NPALEPU
2056: okc_debug.Log('20: p_s_recipient : '||p_s_recipient,2);
2057: okc_debug.Log('20: p_e_recipient : '||p_e_recipient,2);
2058: okc_debug.Log('20: p_timeout_minutes : '||p_timeout_minutes,2);
2052: --14-DEC-2005
2053: --BUG # 4699009
2054: okc_debug.Log('20: p_proc_name : '||p_proc_name,2);
2055: --END NPALEPU
2056: okc_debug.Log('20: p_s_recipient : '||p_s_recipient,2);
2057: okc_debug.Log('20: p_e_recipient : '||p_e_recipient,2);
2058: okc_debug.Log('20: p_timeout_minutes : '||p_timeout_minutes,2);
2059: okc_debug.Log('20: p_loops : '||p_loops,2);
2060: okc_debug.Log('20: p_subj_first_msg : '||p_subj_first_msg,2);
2053: --BUG # 4699009
2054: okc_debug.Log('20: p_proc_name : '||p_proc_name,2);
2055: --END NPALEPU
2056: okc_debug.Log('20: p_s_recipient : '||p_s_recipient,2);
2057: okc_debug.Log('20: p_e_recipient : '||p_e_recipient,2);
2058: okc_debug.Log('20: p_timeout_minutes : '||p_timeout_minutes,2);
2059: okc_debug.Log('20: p_loops : '||p_loops,2);
2060: okc_debug.Log('20: p_subj_first_msg : '||p_subj_first_msg,2);
2061: okc_debug.Log('20: p_ntf_type : '||p_ntf_type,2);
2054: okc_debug.Log('20: p_proc_name : '||p_proc_name,2);
2055: --END NPALEPU
2056: okc_debug.Log('20: p_s_recipient : '||p_s_recipient,2);
2057: okc_debug.Log('20: p_e_recipient : '||p_e_recipient,2);
2058: okc_debug.Log('20: p_timeout_minutes : '||p_timeout_minutes,2);
2059: okc_debug.Log('20: p_loops : '||p_loops,2);
2060: okc_debug.Log('20: p_subj_first_msg : '||p_subj_first_msg,2);
2061: okc_debug.Log('20: p_ntf_type : '||p_ntf_type,2);
2062: okc_debug.Log('20: p_contract_id : '||p_contract_id,2);
2055: --END NPALEPU
2056: okc_debug.Log('20: p_s_recipient : '||p_s_recipient,2);
2057: okc_debug.Log('20: p_e_recipient : '||p_e_recipient,2);
2058: okc_debug.Log('20: p_timeout_minutes : '||p_timeout_minutes,2);
2059: okc_debug.Log('20: p_loops : '||p_loops,2);
2060: okc_debug.Log('20: p_subj_first_msg : '||p_subj_first_msg,2);
2061: okc_debug.Log('20: p_ntf_type : '||p_ntf_type,2);
2062: okc_debug.Log('20: p_contract_id : '||p_contract_id,2);
2063: okc_debug.Log('20: p_task_id : '||p_task_id,2);
2056: okc_debug.Log('20: p_s_recipient : '||p_s_recipient,2);
2057: okc_debug.Log('20: p_e_recipient : '||p_e_recipient,2);
2058: okc_debug.Log('20: p_timeout_minutes : '||p_timeout_minutes,2);
2059: okc_debug.Log('20: p_loops : '||p_loops,2);
2060: okc_debug.Log('20: p_subj_first_msg : '||p_subj_first_msg,2);
2061: okc_debug.Log('20: p_ntf_type : '||p_ntf_type,2);
2062: okc_debug.Log('20: p_contract_id : '||p_contract_id,2);
2063: okc_debug.Log('20: p_task_id : '||p_task_id,2);
2064: okc_debug.Log('20: p_extra_attr_num : '||p_extra_attr_num,2);
2057: okc_debug.Log('20: p_e_recipient : '||p_e_recipient,2);
2058: okc_debug.Log('20: p_timeout_minutes : '||p_timeout_minutes,2);
2059: okc_debug.Log('20: p_loops : '||p_loops,2);
2060: okc_debug.Log('20: p_subj_first_msg : '||p_subj_first_msg,2);
2061: okc_debug.Log('20: p_ntf_type : '||p_ntf_type,2);
2062: okc_debug.Log('20: p_contract_id : '||p_contract_id,2);
2063: okc_debug.Log('20: p_task_id : '||p_task_id,2);
2064: okc_debug.Log('20: p_extra_attr_num : '||p_extra_attr_num,2);
2065: okc_debug.Log('20: p_extra_attr_text : '||p_extra_attr_text,2);
2058: okc_debug.Log('20: p_timeout_minutes : '||p_timeout_minutes,2);
2059: okc_debug.Log('20: p_loops : '||p_loops,2);
2060: okc_debug.Log('20: p_subj_first_msg : '||p_subj_first_msg,2);
2061: okc_debug.Log('20: p_ntf_type : '||p_ntf_type,2);
2062: okc_debug.Log('20: p_contract_id : '||p_contract_id,2);
2063: okc_debug.Log('20: p_task_id : '||p_task_id,2);
2064: okc_debug.Log('20: p_extra_attr_num : '||p_extra_attr_num,2);
2065: okc_debug.Log('20: p_extra_attr_text : '||p_extra_attr_text,2);
2066: okc_debug.Log('20: p_extra_attr_date : '||p_extra_attr_date,2);
2059: okc_debug.Log('20: p_loops : '||p_loops,2);
2060: okc_debug.Log('20: p_subj_first_msg : '||p_subj_first_msg,2);
2061: okc_debug.Log('20: p_ntf_type : '||p_ntf_type,2);
2062: okc_debug.Log('20: p_contract_id : '||p_contract_id,2);
2063: okc_debug.Log('20: p_task_id : '||p_task_id,2);
2064: okc_debug.Log('20: p_extra_attr_num : '||p_extra_attr_num,2);
2065: okc_debug.Log('20: p_extra_attr_text : '||p_extra_attr_text,2);
2066: okc_debug.Log('20: p_extra_attr_date : '||p_extra_attr_date,2);
2067: END IF;
2060: okc_debug.Log('20: p_subj_first_msg : '||p_subj_first_msg,2);
2061: okc_debug.Log('20: p_ntf_type : '||p_ntf_type,2);
2062: okc_debug.Log('20: p_contract_id : '||p_contract_id,2);
2063: okc_debug.Log('20: p_task_id : '||p_task_id,2);
2064: okc_debug.Log('20: p_extra_attr_num : '||p_extra_attr_num,2);
2065: okc_debug.Log('20: p_extra_attr_text : '||p_extra_attr_text,2);
2066: okc_debug.Log('20: p_extra_attr_date : '||p_extra_attr_date,2);
2067: END IF;
2068:
2061: okc_debug.Log('20: p_ntf_type : '||p_ntf_type,2);
2062: okc_debug.Log('20: p_contract_id : '||p_contract_id,2);
2063: okc_debug.Log('20: p_task_id : '||p_task_id,2);
2064: okc_debug.Log('20: p_extra_attr_num : '||p_extra_attr_num,2);
2065: okc_debug.Log('20: p_extra_attr_text : '||p_extra_attr_text,2);
2066: okc_debug.Log('20: p_extra_attr_date : '||p_extra_attr_date,2);
2067: END IF;
2068:
2069: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
2062: okc_debug.Log('20: p_contract_id : '||p_contract_id,2);
2063: okc_debug.Log('20: p_task_id : '||p_task_id,2);
2064: okc_debug.Log('20: p_extra_attr_num : '||p_extra_attr_num,2);
2065: okc_debug.Log('20: p_extra_attr_text : '||p_extra_attr_text,2);
2066: okc_debug.Log('20: p_extra_attr_date : '||p_extra_attr_date,2);
2067: END IF;
2068:
2069: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
2070: G_PKG_NAME,
2074: G_LEVEL,
2075: x_return_status);
2076:
2077: IF (l_debug = 'Y') THEN
2078: okc_debug.Log('30: l_return_status : '||l_return_status,2);
2079: END IF;
2080:
2081: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2082: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2106: --
2107: select to_char(okc_wf_notify_s1.nextval) into l_key from dual;
2108:
2109: IF (l_debug = 'Y') THEN
2110: okc_debug.Log('40: l_key : '||l_key,2);
2111: okc_debug.Log('40: G_WF_NAME : '||G_WF_NAME,2);
2112: okc_debug.Log('40: G_PROCESS_NAME : '||G_PROCESS_NAME,2);
2113: END IF;
2114:
2107: select to_char(okc_wf_notify_s1.nextval) into l_key from dual;
2108:
2109: IF (l_debug = 'Y') THEN
2110: okc_debug.Log('40: l_key : '||l_key,2);
2111: okc_debug.Log('40: G_WF_NAME : '||G_WF_NAME,2);
2112: okc_debug.Log('40: G_PROCESS_NAME : '||G_PROCESS_NAME,2);
2113: END IF;
2114:
2115: wf_engine.CreateProcess( ItemType => G_WF_NAME,
2108:
2109: IF (l_debug = 'Y') THEN
2110: okc_debug.Log('40: l_key : '||l_key,2);
2111: okc_debug.Log('40: G_WF_NAME : '||G_WF_NAME,2);
2112: okc_debug.Log('40: G_PROCESS_NAME : '||G_PROCESS_NAME,2);
2113: END IF;
2114:
2115: wf_engine.CreateProcess( ItemType => G_WF_NAME,
2116: ItemKey => L_KEY,
2200: itemkey => L_KEY,
2201: owner => fnd_global.user_name);
2202:
2203: IF (l_debug = 'Y') THEN
2204: okc_debug.Log('50: WF Owner : '||fnd_global.user_name,2);
2205: END IF;
2206:
2207: wf_engine.StartProcess( itemtype => G_WF_NAME,
2208: itemkey => L_KEY);
2210: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2211: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2212:
2213: IF (l_debug = 'Y') THEN
2214: okc_debug.Log('60: x_return_status : '||x_return_status,2);
2215: END IF;
2216:
2217:
2218: IF (l_debug = 'Y') THEN
2215: END IF;
2216:
2217:
2218: IF (l_debug = 'Y') THEN
2219: okc_debug.Log('1000: Leaving ',2);
2220: okc_debug.Reset_Indentation;
2221: END IF;
2222:
2223:
2216:
2217:
2218: IF (l_debug = 'Y') THEN
2219: okc_debug.Log('1000: Leaving ',2);
2220: okc_debug.Reset_Indentation;
2221: END IF;
2222:
2223:
2224: EXCEPTION
2230: x_msg_count,
2231: x_msg_data,
2232: G_LEVEL);
2233: IF (l_debug = 'Y') THEN
2234: okc_debug.Log('3000: Leaving ',2);
2235: okc_debug.Reset_Indentation;
2236: END IF;
2237: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2238: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2231: x_msg_data,
2232: G_LEVEL);
2233: IF (l_debug = 'Y') THEN
2234: okc_debug.Log('3000: Leaving ',2);
2235: okc_debug.Reset_Indentation;
2236: END IF;
2237: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2238: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2239: (substr(l_api_name,1,26),
2242: x_msg_count,
2243: x_msg_data,
2244: G_LEVEL);
2245: IF (l_debug = 'Y') THEN
2246: okc_debug.Log('4000: Leaving ',2);
2247: okc_debug.Reset_Indentation;
2248: END IF;
2249: WHEN OTHERS THEN
2250: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2243: x_msg_data,
2244: G_LEVEL);
2245: IF (l_debug = 'Y') THEN
2246: okc_debug.Log('4000: Leaving ',2);
2247: okc_debug.Reset_Indentation;
2248: END IF;
2249: WHEN OTHERS THEN
2250: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2251: (substr(l_api_name,1,26),
2254: x_msg_count,
2255: x_msg_data,
2256: G_LEVEL);
2257: IF (l_debug = 'Y') THEN
2258: okc_debug.Log('5000: Leaving ',2);
2259: okc_debug.Reset_Indentation;
2260: END IF;
2261: end loop_call;
2262:
2255: x_msg_data,
2256: G_LEVEL);
2257: IF (l_debug = 'Y') THEN
2258: okc_debug.Log('5000: Leaving ',2);
2259: okc_debug.Reset_Indentation;
2260: END IF;
2261: end loop_call;
2262:
2263: -- Start of comments
2279: --
2280: begin
2281:
2282: IF (l_debug = 'Y') THEN
2283: okc_debug.Set_Indentation(l_proc);
2284: okc_debug.Log('10: Entering ',2);
2285: END IF;
2286: --
2287: -- RESPOND mode
2280: begin
2281:
2282: IF (l_debug = 'Y') THEN
2283: okc_debug.Set_Indentation(l_proc);
2284: okc_debug.Log('10: Entering ',2);
2285: END IF;
2286: --
2287: -- RESPOND mode
2288: --
2291: set mail_status=NULL
2292: where NOTIFICATION_ID=wf_engine.context_nid;
2293:
2294: IF (l_debug = 'Y') THEN
2295: okc_debug.Log('100: Leaving ',2);
2296: okc_debug.Reset_Indentation;
2297: END IF;
2298:
2299:
2292: where NOTIFICATION_ID=wf_engine.context_nid;
2293:
2294: IF (l_debug = 'Y') THEN
2295: okc_debug.Log('100: Leaving ',2);
2296: okc_debug.Reset_Indentation;
2297: END IF;
2298:
2299:
2300: return;
2303: -- if other mode mode
2304: --
2305:
2306: IF (l_debug = 'Y') THEN
2307: okc_debug.Log('1000: Leaving ',2);
2308: okc_debug.Reset_Indentation;
2309: END IF;
2310:
2311: --
2304: --
2305:
2306: IF (l_debug = 'Y') THEN
2307: okc_debug.Log('1000: Leaving ',2);
2308: okc_debug.Reset_Indentation;
2309: END IF;
2310:
2311: --
2312: return;
2320: itemkey,
2321: to_char(actid),
2322: funcmode);
2323: IF (l_debug = 'Y') THEN
2324: okc_debug.Log('2000: Leaving ',2);
2325: okc_debug.Reset_Indentation;
2326: END IF;
2327: raise;
2328: end No_Email;
2321: to_char(actid),
2322: funcmode);
2323: IF (l_debug = 'Y') THEN
2324: okc_debug.Log('2000: Leaving ',2);
2325: okc_debug.Reset_Indentation;
2326: END IF;
2327: raise;
2328: end No_Email;
2329:
2344: --
2345: begin
2346:
2347: IF (l_debug = 'Y') THEN
2348: okc_debug.Set_Indentation(l_proc);
2349: okc_debug.Log('10: Entering ',2);
2350: END IF;
2351:
2352: if (funcmode = 'RUN') then
2345: begin
2346:
2347: IF (l_debug = 'Y') THEN
2348: okc_debug.Set_Indentation(l_proc);
2349: okc_debug.Log('10: Entering ',2);
2350: END IF;
2351:
2352: if (funcmode = 'RUN') then
2353: open c1(l_user_name);
2381: --
2382: resultout := 'COMPLETE:';
2383:
2384: IF (l_debug = 'Y') THEN
2385: okc_debug.Log('100: Leaving ',2);
2386: okc_debug.Reset_Indentation;
2387: END IF;
2388:
2389:
2382: resultout := 'COMPLETE:';
2383:
2384: IF (l_debug = 'Y') THEN
2385: okc_debug.Log('100: Leaving ',2);
2386: okc_debug.Reset_Indentation;
2387: END IF;
2388:
2389:
2390: return;
2397: --
2398: resultout := 'COMPLETE:';
2399:
2400: IF (l_debug = 'Y') THEN
2401: okc_debug.Log('200: Leaving ',2);
2402: okc_debug.Reset_Indentation;
2403: END IF;
2404:
2405:
2398: resultout := 'COMPLETE:';
2399:
2400: IF (l_debug = 'Y') THEN
2401: okc_debug.Log('200: Leaving ',2);
2402: okc_debug.Reset_Indentation;
2403: END IF;
2404:
2405:
2406: return;
2407: --
2408: end if;
2409:
2410: IF (l_debug = 'Y') THEN
2411: okc_debug.Log('1000: Leaving ',2);
2412: okc_debug.Reset_Indentation;
2413: END IF;
2414:
2415:
2408: end if;
2409:
2410: IF (l_debug = 'Y') THEN
2411: okc_debug.Log('1000: Leaving ',2);
2412: okc_debug.Reset_Indentation;
2413: END IF;
2414:
2415:
2416: exception
2421: itemkey,
2422: to_char(actid),
2423: funcmode);
2424: IF (l_debug = 'Y') THEN
2425: okc_debug.Log('2000: Leaving ',2);
2426: okc_debug.Reset_Indentation;
2427: END IF;
2428: raise;
2429: end success_mute;
2422: to_char(actid),
2423: funcmode);
2424: IF (l_debug = 'Y') THEN
2425: okc_debug.Log('2000: Leaving ',2);
2426: okc_debug.Reset_Indentation;
2427: END IF;
2428: raise;
2429: end success_mute;
2430:
2445: --
2446: begin
2447:
2448: IF (l_debug = 'Y') THEN
2449: okc_debug.Set_Indentation(l_proc);
2450: okc_debug.Log('10: Entering ',2);
2451: END IF;
2452:
2453: if (funcmode = 'RUN') then
2446: begin
2447:
2448: IF (l_debug = 'Y') THEN
2449: okc_debug.Set_Indentation(l_proc);
2450: okc_debug.Log('10: Entering ',2);
2451: END IF;
2452:
2453: if (funcmode = 'RUN') then
2454: open c1(l_user_name);
2482: --
2483: resultout := 'COMPLETE:';
2484:
2485: IF (l_debug = 'Y') THEN
2486: okc_debug.Log('100: Leaving ',2);
2487: okc_debug.Reset_Indentation;
2488: END IF;
2489:
2490:
2483: resultout := 'COMPLETE:';
2484:
2485: IF (l_debug = 'Y') THEN
2486: okc_debug.Log('100: Leaving ',2);
2487: okc_debug.Reset_Indentation;
2488: END IF;
2489:
2490:
2491: return;
2498: --
2499: resultout := 'COMPLETE:';
2500:
2501: IF (l_debug = 'Y') THEN
2502: okc_debug.Log('200: Leaving ',2);
2503: okc_debug.Reset_Indentation;
2504: END IF;
2505:
2506:
2499: resultout := 'COMPLETE:';
2500:
2501: IF (l_debug = 'Y') THEN
2502: okc_debug.Log('200: Leaving ',2);
2503: okc_debug.Reset_Indentation;
2504: END IF;
2505:
2506:
2507: return;
2508: --
2509: end if;
2510:
2511: IF (l_debug = 'Y') THEN
2512: okc_debug.Log('1000: Leaving ',2);
2513: okc_debug.Reset_Indentation;
2514: END IF;
2515:
2516:
2509: end if;
2510:
2511: IF (l_debug = 'Y') THEN
2512: okc_debug.Log('1000: Leaving ',2);
2513: okc_debug.Reset_Indentation;
2514: END IF;
2515:
2516:
2517: exception
2522: itemkey,
2523: to_char(actid),
2524: funcmode);
2525: IF (l_debug = 'Y') THEN
2526: okc_debug.Log('2000: Leaving ',2);
2527: okc_debug.Reset_Indentation;
2528: END IF;
2529: raise;
2530: end error_mute;
2523: to_char(actid),
2524: funcmode);
2525: IF (l_debug = 'Y') THEN
2526: okc_debug.Log('2000: Leaving ',2);
2527: okc_debug.Reset_Indentation;
2528: END IF;
2529: raise;
2530: end error_mute;
2531:
2553:
2554: begin
2555:
2556: IF (l_debug = 'Y') THEN
2557: okc_debug.Set_Indentation(l_proc);
2558: okc_debug.Log('10: Entering ',2);
2559: END IF;
2560:
2561: if (funcmode = 'RUN') then
2554: begin
2555:
2556: IF (l_debug = 'Y') THEN
2557: okc_debug.Set_Indentation(l_proc);
2558: okc_debug.Log('10: Entering ',2);
2559: END IF;
2560:
2561: if (funcmode = 'RUN') then
2562: open c1(l_user_name);
2592: --
2593: resultout := 'COMPLETE:';
2594:
2595: IF (l_debug = 'Y') THEN
2596: okc_debug.Log('100: Leaving ',2);
2597: okc_debug.Reset_Indentation;
2598: END IF;
2599:
2600:
2593: resultout := 'COMPLETE:';
2594:
2595: IF (l_debug = 'Y') THEN
2596: okc_debug.Log('100: Leaving ',2);
2597: okc_debug.Reset_Indentation;
2598: END IF;
2599:
2600:
2601: return;
2608: --
2609: resultout := 'COMPLETE:';
2610:
2611: IF (l_debug = 'Y') THEN
2612: okc_debug.Log('200: Leaving ',2);
2613: okc_debug.Reset_Indentation;
2614: END IF;
2615:
2616:
2609: resultout := 'COMPLETE:';
2610:
2611: IF (l_debug = 'Y') THEN
2612: okc_debug.Log('200: Leaving ',2);
2613: okc_debug.Reset_Indentation;
2614: END IF;
2615:
2616:
2617: return;
2618: --
2619: end if;
2620:
2621: IF (l_debug = 'Y') THEN
2622: okc_debug.Log('1000: Leaving ',2);
2623: okc_debug.Reset_Indentation;
2624: END IF;
2625:
2626:
2619: end if;
2620:
2621: IF (l_debug = 'Y') THEN
2622: okc_debug.Log('1000: Leaving ',2);
2623: okc_debug.Reset_Indentation;
2624: END IF;
2625:
2626:
2627: exception
2632: itemkey,
2633: to_char(actid),
2634: funcmode);
2635: IF (l_debug = 'Y') THEN
2636: okc_debug.Log('2000: Leaving ',2);
2637: okc_debug.Reset_Indentation;
2638: END IF;
2639: raise;
2640: end fyi_mute;
2633: to_char(actid),
2634: funcmode);
2635: IF (l_debug = 'Y') THEN
2636: okc_debug.Log('2000: Leaving ',2);
2637: okc_debug.Reset_Indentation;
2638: END IF;
2639: raise;
2640: end fyi_mute;
2641:
2663:
2664: begin
2665:
2666: IF (l_debug = 'Y') THEN
2667: okc_debug.Set_Indentation(l_proc);
2668: okc_debug.Log('10: Entering ',2);
2669: END IF;
2670:
2671: if (funcmode = 'RUN') then
2664: begin
2665:
2666: IF (l_debug = 'Y') THEN
2667: okc_debug.Set_Indentation(l_proc);
2668: okc_debug.Log('10: Entering ',2);
2669: END IF;
2670:
2671: if (funcmode = 'RUN') then
2672: open c1(l_user_name);
2702: --
2703: resultout := 'COMPLETE:';
2704:
2705: IF (l_debug = 'Y') THEN
2706: okc_debug.Log('100: Leaving ',2);
2707: okc_debug.Reset_Indentation;
2708: END IF;
2709:
2710:
2703: resultout := 'COMPLETE:';
2704:
2705: IF (l_debug = 'Y') THEN
2706: okc_debug.Log('100: Leaving ',2);
2707: okc_debug.Reset_Indentation;
2708: END IF;
2709:
2710:
2711: return;
2718: --
2719: resultout := 'COMPLETE:';
2720:
2721: IF (l_debug = 'Y') THEN
2722: okc_debug.Log('200: Leaving ',2);
2723: okc_debug.Reset_Indentation;
2724: END IF;
2725:
2726:
2719: resultout := 'COMPLETE:';
2720:
2721: IF (l_debug = 'Y') THEN
2722: okc_debug.Log('200: Leaving ',2);
2723: okc_debug.Reset_Indentation;
2724: END IF;
2725:
2726:
2727: return;
2728: --
2729: end if;
2730:
2731: IF (l_debug = 'Y') THEN
2732: okc_debug.Log('1000: Leaving ',2);
2733: okc_debug.Reset_Indentation;
2734: END IF;
2735:
2736:
2729: end if;
2730:
2731: IF (l_debug = 'Y') THEN
2732: okc_debug.Log('1000: Leaving ',2);
2733: okc_debug.Reset_Indentation;
2734: END IF;
2735:
2736:
2737: exception
2742: itemkey,
2743: to_char(actid),
2744: funcmode);
2745: IF (l_debug = 'Y') THEN
2746: okc_debug.Log('2000: Leaving ',2);
2747: okc_debug.Reset_Indentation;
2748: END IF;
2749: raise;
2750: end mute_nxt_pfmr;
2743: to_char(actid),
2744: funcmode);
2745: IF (l_debug = 'Y') THEN
2746: okc_debug.Log('2000: Leaving ',2);
2747: okc_debug.Reset_Indentation;
2748: END IF;
2749: raise;
2750: end mute_nxt_pfmr;
2751:
2773:
2774: begin
2775:
2776: IF (l_debug = 'Y') THEN
2777: okc_debug.Set_Indentation(l_proc);
2778: okc_debug.Log('10: Entering ',2);
2779: END IF;
2780:
2781: if (funcmode = 'RUN') then
2774: begin
2775:
2776: IF (l_debug = 'Y') THEN
2777: okc_debug.Set_Indentation(l_proc);
2778: okc_debug.Log('10: Entering ',2);
2779: END IF;
2780:
2781: if (funcmode = 'RUN') then
2782: open c1(l_user_name);
2812: --
2813: resultout := 'COMPLETE:';
2814:
2815: IF (l_debug = 'Y') THEN
2816: okc_debug.Log('100: Leaving ',2);
2817: okc_debug.Reset_Indentation;
2818: END IF;
2819:
2820:
2813: resultout := 'COMPLETE:';
2814:
2815: IF (l_debug = 'Y') THEN
2816: okc_debug.Log('100: Leaving ',2);
2817: okc_debug.Reset_Indentation;
2818: END IF;
2819:
2820:
2821: return;
2828: --
2829: resultout := 'COMPLETE:';
2830:
2831: IF (l_debug = 'Y') THEN
2832: okc_debug.Log('200: Leaving ',2);
2833: okc_debug.Reset_Indentation;
2834: END IF;
2835:
2836:
2829: resultout := 'COMPLETE:';
2830:
2831: IF (l_debug = 'Y') THEN
2832: okc_debug.Log('200: Leaving ',2);
2833: okc_debug.Reset_Indentation;
2834: END IF;
2835:
2836:
2837: return;
2838: --
2839: end if;
2840:
2841: IF (l_debug = 'Y') THEN
2842: okc_debug.Log('1000: Leaving ',2);
2843: okc_debug.Reset_Indentation;
2844: END IF;
2845:
2846:
2839: end if;
2840:
2841: IF (l_debug = 'Y') THEN
2842: okc_debug.Log('1000: Leaving ',2);
2843: okc_debug.Reset_Indentation;
2844: END IF;
2845:
2846:
2847: exception
2852: itemkey,
2853: to_char(actid),
2854: funcmode);
2855: IF (l_debug = 'Y') THEN
2856: okc_debug.Log('2000: Leaving ',2);
2857: okc_debug.Reset_Indentation;
2858: END IF;
2859: raise;
2860: end mute_k_admin;
2853: to_char(actid),
2854: funcmode);
2855: IF (l_debug = 'Y') THEN
2856: okc_debug.Log('2000: Leaving ',2);
2857: okc_debug.Reset_Indentation;
2858: END IF;
2859: raise;
2860: end mute_k_admin;
2861:
2883:
2884: begin
2885:
2886: IF (l_debug = 'Y') THEN
2887: okc_debug.Set_Indentation(l_proc);
2888: okc_debug.Log('10: Entering ',2);
2889: END IF;
2890:
2891: if (funcmode = 'RUN') then
2884: begin
2885:
2886: IF (l_debug = 'Y') THEN
2887: okc_debug.Set_Indentation(l_proc);
2888: okc_debug.Log('10: Entering ',2);
2889: END IF;
2890:
2891: if (funcmode = 'RUN') then
2892: open c1(l_user_name);
2922: --
2923: resultout := 'COMPLETE:';
2924:
2925: IF (l_debug = 'Y') THEN
2926: okc_debug.Log('100: Leaving ',2);
2927: okc_debug.Reset_Indentation;
2928: END IF;
2929:
2930:
2923: resultout := 'COMPLETE:';
2924:
2925: IF (l_debug = 'Y') THEN
2926: okc_debug.Log('100: Leaving ',2);
2927: okc_debug.Reset_Indentation;
2928: END IF;
2929:
2930:
2931: return;
2938: --
2939: resultout := 'COMPLETE:';
2940:
2941: IF (l_debug = 'Y') THEN
2942: okc_debug.Log('200: Leaving ',2);
2943: okc_debug.Reset_Indentation;
2944: END IF;
2945:
2946:
2939: resultout := 'COMPLETE:';
2940:
2941: IF (l_debug = 'Y') THEN
2942: okc_debug.Log('200: Leaving ',2);
2943: okc_debug.Reset_Indentation;
2944: END IF;
2945:
2946:
2947: return;
2948: --
2949: end if;
2950:
2951: IF (l_debug = 'Y') THEN
2952: okc_debug.Log('1000: Leaving ',2);
2953: okc_debug.Reset_Indentation;
2954: END IF;
2955:
2956:
2949: end if;
2950:
2951: IF (l_debug = 'Y') THEN
2952: okc_debug.Log('1000: Leaving ',2);
2953: okc_debug.Reset_Indentation;
2954: END IF;
2955:
2956:
2957: exception
2962: itemkey,
2963: to_char(actid),
2964: funcmode);
2965: IF (l_debug = 'Y') THEN
2966: okc_debug.Log('2000: Leaving ',2);
2967: okc_debug.Reset_Indentation;
2968: END IF;
2969: raise;
2970: end mute_signer;
2963: to_char(actid),
2964: funcmode);
2965: IF (l_debug = 'Y') THEN
2966: okc_debug.Log('2000: Leaving ',2);
2967: okc_debug.Reset_Indentation;
2968: END IF;
2969: raise;
2970: end mute_signer;
2971:
2983:
2984: begin
2985:
2986: IF (l_debug = 'Y') THEN
2987: okc_debug.Set_Indentation(l_proc);
2988: okc_debug.Log('10: Entering ',2);
2989: END IF;
2990:
2991: if (funcmode = 'RUN') then
2984: begin
2985:
2986: IF (l_debug = 'Y') THEN
2987: okc_debug.Set_Indentation(l_proc);
2988: okc_debug.Log('10: Entering ',2);
2989: END IF;
2990:
2991: if (funcmode = 'RUN') then
2992:
3000: --
3001: resultout := 'COMPLETE:';
3002:
3003: IF (l_debug = 'Y') THEN
3004: okc_debug.Log('100: Leaving ',2);
3005: okc_debug.Reset_Indentation;
3006: END IF;
3007:
3008:
3001: resultout := 'COMPLETE:';
3002:
3003: IF (l_debug = 'Y') THEN
3004: okc_debug.Log('100: Leaving ',2);
3005: okc_debug.Reset_Indentation;
3006: END IF;
3007:
3008:
3009: return;
3016: --
3017: resultout := 'COMPLETE:';
3018:
3019: IF (l_debug = 'Y') THEN
3020: okc_debug.Log('200: Leaving ',2);
3021: okc_debug.Reset_Indentation;
3022: END IF;
3023:
3024:
3017: resultout := 'COMPLETE:';
3018:
3019: IF (l_debug = 'Y') THEN
3020: okc_debug.Log('200: Leaving ',2);
3021: okc_debug.Reset_Indentation;
3022: END IF;
3023:
3024:
3025: return;
3026: --
3027: end if;
3028:
3029: IF (l_debug = 'Y') THEN
3030: okc_debug.Log('1000: Leaving ',2);
3031: okc_debug.Reset_Indentation;
3032: END IF;
3033:
3034:
3027: end if;
3028:
3029: IF (l_debug = 'Y') THEN
3030: okc_debug.Log('1000: Leaving ',2);
3031: okc_debug.Reset_Indentation;
3032: END IF;
3033:
3034:
3035: exception
3040: itemkey,
3041: to_char(actid),
3042: funcmode);
3043: IF (l_debug = 'Y') THEN
3044: okc_debug.Log('2000: Leaving ',2);
3045: okc_debug.Reset_Indentation;
3046: END IF;
3047: raise;
3048: end unmute;
3041: to_char(actid),
3042: funcmode);
3043: IF (l_debug = 'Y') THEN
3044: okc_debug.Log('2000: Leaving ',2);
3045: okc_debug.Reset_Indentation;
3046: END IF;
3047: raise;
3048: end unmute;
3049: