1 package body WFJ_ENGINE as
2 /* $Header: wfjengb.pls 120.1 2005/07/02 02:47:06 appldev ship $ */
3
4 --
5 -- Error (PRIVATE)
6 -- Print a page with an error message.
7 -- Errors are retrieved from these sources in order:
8 -- 1. wf_core errors
9 -- 2. Oracle errors
10 -- 3. Unspecified INTERNAL error
11 --
12 procedure Error
13 is
14 begin
15
16 null;
17 end Error;
18
19
20 procedure AddItemAttr(itemtype in varchar2,
21 itemkey in varchar2,
22 aname in varchar2) is
23
24 begin
25 Wf_Engine.AddItemAttr(itemtype, itemkey, aname);
26 htp.p('Success');
27 return;
28 exception
29 when others then
30 Wfj_Engine.Error;
31 return;
32 end AddItemAttr;
33
34
35 procedure SetItemAttrText(itemtype in varchar2,
36 itemkey in varchar2,
37 aname in varchar2,
38 avalue in varchar2) is
39 begin
40 Wf_Engine.SetItemAttrText(itemtype, itemkey, aname, avalue);
41 htp.p('Success');
42 return;
43 exception
44 when others then
45 Wfj_Engine.Error;
46 return;
47 end SetItemAttrText;
48
49
50 procedure SetItemAttrNumber(itemtype in varchar2,
51 itemkey in varchar2,
52 aname in varchar2,
53 avalue in number) is
54 begin
55 Wf_Engine.SetItemAttrNumber(itemtype, itemkey, aname, avalue);
56 htp.p('Success');
57 return;
58 exception
59 when others then
60 Wfj_Engine.Error;
61 return;
62 end SetItemAttrNumber;
63
64
65 procedure SetItemAttrDate(itemtype in varchar2,
66 itemkey in varchar2,
67 aname in varchar2,
68 avalue in date) is
69 begin
70 Wf_Engine.SetItemAttrDate(itemtype, itemkey, aname, avalue);
71 htp.p('Success');
72 return;
73 exception
74 when others then
75 Wfj_Engine.Error;
76 return;
77 end SetItemAttrDate;
78
79
80 procedure SetItemAttrDocument(itemtype in varchar2,
81 itemkey in varchar2,
82 aname in varchar2,
83 documentid in varchar2) is
84 begin
85 Wf_Engine.SetItemAttrDocument(itemtype, itemkey, aname, documentid);
86 htp.p('Success');
87 return;
88 exception
89 when others then
90 Wfj_Engine.Error;
91 return;
92 end SetItemAttrDocument;
93
94 procedure SetItemOwner(itemtype in varchar2,
95 itemkey in varchar2,
96 owner in varchar2) is
97 begin
98 Wf_Engine.SetItemOwner(itemtype, itemkey, owner);
99 htp.p('Success');
100 return;
101 exception
102 when others then
103 Wfj_Engine.Error;
104 return;
105 end SetItemOwner;
106
107
108 procedure SetItemUserKey(itemtype in varchar2,
109 itemkey in varchar2,
110 userkey In varchar2) is
111 begin
112 Wf_Engine.SetItemUserKey(itemtype, itemkey, userkey);
113 htp.p('Success');
114 return;
115 exception
116 when others then
117 Wfj_Engine.Error;
118 return;
119 end SetItemUserKey;
120
121
122 procedure CreateProcess(itemtype in varchar2,
123 itemkey in varchar2,
124 process in varchar2) is
125 begin
126 Wf_Engine.CreateProcess(itemtype, itemkey, process);
127 htp.p('Success');
128 return;
129 exception
130 when others then
131 Wfj_Engine.Error;
132 return;
133 end CreateProcess;
134
135
136 procedure StartProcess(itemtype in varchar2,
137 itemkey in varchar2) is
138 begin
139 Wf_Engine.StartProcess(itemtype, itemkey);
140 htp.p('Success');
141 return;
142 exception
143 when others then
144 Wfj_Engine.Error;
145 return;
146 end StartProcess;
147
148
149
150 procedure SuspendProcess(itemtype in varchar2,
151 itemkey in varchar2,
152 process in varchar2) is
153 begin
154 Wf_Engine.SuspendProcess(itemtype, itemkey, process);
155 htp.p('Success');
156 return;
157 exception
158 when others then
159 Wfj_Engine.Error;
160 return;
161 end SuspendProcess;
162
163
164 procedure AbortProcess(itemtype in varchar2,
165 itemkey in varchar2,
166 process in varchar2,
167 result in varchar2) is
168 begin
169 Wf_Engine.AbortProcess(itemtype, itemkey, process, result);
170 htp.p('Success');
171 return;
172 exception
173 when others then
174 Wfj_Engine.Error;
175 return;
176 end AbortProcess;
177
178
179 procedure ResumeProcess(itemtype in varchar2,
180 itemkey in varchar2,
181 process in varchar2) is
182 begin
183 Wf_Engine.ResumeProcess(itemtype, itemkey, process);
184 htp.p('Success');
185 return;
186 exception
187 when others then
188 Wfj_Engine.Error;
189 return;
190 end ResumeProcess;
191
192
193 procedure AssignActivity(itemtype in varchar2,
194 itemkey in varchar2,
195 activity in varchar2,
196 performer in varchar2) is
197 begin
198 Wf_Engine.AssignActivity(itemtype, itemkey, activity, performer);
199 htp.p('Success');
200 return;
201 exception
202 when others then
203 Wfj_Engine.Error;
204 return;
205 end AssignActivity;
206
207
208 END WFJ_ENGINE;