[Home] [Help]
40: begin
41:
42: if (funcmode = 'RUN') then
43:
44: l_eventname := wf_engine.GetActivityAttrText(
45: itemtype => itemtype,
46: itemkey => itemkey,
47: actid => actid,
48: aname => 'EVNTNAME');
53: --
54: l_eventkey := x.agent||'@'||x.system||'@'||itemkey;
55: l_itemkey := l_eventkey;
56:
57: wf_engine.CreateProcess(
58: itemtype => itemtype,
59: itemkey => l_itemkey,
60: process => 'WFDTLPNG');
61:
58: itemtype => itemtype,
59: itemkey => l_itemkey,
60: process => 'WFDTLPNG');
61:
62: wf_engine.SetItemAttrText(
63: itemtype => itemtype,
64: itemkey => l_itemkey,
65: aname => 'EVNTNAME',
66: avalue => l_eventname);
64: itemkey => l_itemkey,
65: aname => 'EVNTNAME',
66: avalue => l_eventname);
67:
68: wf_engine.SetItemAttrText(
69: itemtype => itemtype,
70: itemkey => l_itemkey,
71: aname => 'EVNTKEY',
72: avalue => l_eventkey);
70: itemkey => l_itemkey,
71: aname => 'EVNTKEY',
72: avalue => l_eventkey);
73:
74: wf_engine.SetItemAttrText(
75: itemtype => itemtype,
76: itemkey => l_itemkey,
77: aname => 'TOAGENT',
78: avalue => x.agent||'@'||x.system);
84: dbms_lob.createtemporary(l_clob, FALSE, DBMS_LOB.CALL);
85: dbms_lob.write(l_clob, length(l_msg), 1 , l_msg);
86: l_event_t.SetEventData(l_clob);
87:
88: wf_engine.SetItemAttrEvent(
89: itemtype => itemtype,
90: itemkey => l_itemkey,
91: name => 'EVNTMSG',
92: event => l_event_t);
90: itemkey => l_itemkey,
91: name => 'EVNTMSG',
92: event => l_event_t);
93:
94: wf_engine.SetItemParent(
95: itemtype => itemtype,
96: itemkey => l_itemkey,
97: parent_itemtype => itemtype,
98: parent_itemkey => itemkey,
97: parent_itemtype => itemtype,
98: parent_itemkey => itemkey,
99: parent_context => null);
100:
101: wf_engine.StartProcess(
102: itemtype => itemtype,
103: itemkey => l_itemkey);
104:
105: end loop;
103: itemkey => l_itemkey);
104:
105: end loop;
106:
107: resultout := wf_engine.eng_completed||':'||wf_engine.eng_null;
108:
109: return;
110:
111: elsif (funcmode = 'CANCEL') then