1 PACKAGE BODY CCT_PRODUCTINIT_PUB as
2 /* $Header: cctprodb.pls 120.0 2005/06/02 09:51:36 appldev noship $ */
3
4 /* -----------------------------------------------------------------------
5 Activity Name : WF_ProductFromReferenceNum (branch node)
6
7 To Check if the Customer Product ID can be derived from the reference num
8 IN
9 itemtype - item type
10 itemkey - item key
11 actid - process activity instance id
12 funmode - execution mode
13 out nocopy
14 comparison result (WFSTD_YES_NO lookup code)
15 ITEM ATTRIBUTES REFERENCED
16 REFNUM - the originating reference num
17 CPID - the customer product ID
18 *-----------------------------------------------------------------------*/
19 procedure WF_ProductFromReferenceNum (
20 itemtype in varchar2
21 , itemkey in varchar2
22 , actid in number
23 , funmode in varchar2
24 , resultout in out nocopy varchar2)IS
25 l_proc_name VARCHAR2(64) := 'WF_ProductFromReferenceNum';
26 l_app_object_value VARCHAR2(255);
27 l_party_name VARCHAR2(255);
28 l_prod_ID NUMBER;
29 l_cct_prod_id_key VARCHAR2(64):='CUSTOMERPRODUCTID';
30 l_cct_object_type VARCHAR2(64):='REFERENCENUM';
31 BEGIN
32 -- set default result
33 resultout := wf_engine.eng_completed || ':N';
34 IF (funmode = 'RUN') THEN
35 l_app_object_value := WF_ENGINE.GetItemAttrText(itemtype,itemkey,l_cct_object_type);
36 IF (l_app_object_value IS NOT NULL) THEN
37 l_prod_id:=CSC_ROUTING_UTL.Get_CP_From_ReferenceNum(p_Reference_Number=>l_app_object_value) ;
38 IF (l_prod_id IS NOT NULL) THEN
39 resultout := wf_engine.eng_completed || ':Y';
40 WF_ENGINE.SetItemAttrNumber(itemtype,itemkey,l_cct_prod_id_key,l_prod_id );
41 END IF;
42 END IF;
43
44 END IF;
45 END;
46
47 /* -----------------------------------------------------------------------
48 Activity Name : WF_ProductFromServiceReqNum (branch node)
49
50 To Check if the Customer Product ID can be derived from the reference num
51 IN
52 itemtype - item type
53 itemkey - item key
54 actid - process activity instance id
55 funmode - execution mode
56 OUT
57 comparison result (WFSTD_YES_NO lookup code)
58 ITEM ATTRIBUTES REFERENCED
59 ServiceRequestNum - the originating Service Request Number
60 CPID - the customer product ID
61 *-----------------------------------------------------------------------*/
62 procedure WF_ProductFromServiceReqNum (
63 itemtype in varchar2
64 , itemkey in varchar2
65 , actid in number
66 , funmode in varchar2
67 , resultout in out nocopy varchar2) IS
68 l_proc_name VARCHAR2(64) := 'WF_ProductFromServiceReqNum';
69 l_app_object_value VARCHAR2(255);
70 l_party_name VARCHAR2(255);
71 l_prod_ID NUMBER;
72 l_cct_prod_id_key VARCHAR2(64):='CUSTOMERPRODUCTID';
73 l_cct_object_type VARCHAR2(64):='SERVICEREQUESTNUM';
74 BEGIN
75 -- set default result
76 resultout := wf_engine.eng_completed || ':N';
77 IF (funmode = 'RUN') THEN
78 l_app_object_value := WF_ENGINE.GetItemAttrText(itemtype,itemkey,l_cct_object_type);
79 IF (l_app_object_value IS NOT NULL) THEN
80 l_prod_id:=CS_ROUTING_UTL.Get_CP_From_RequestNum
81 (p_Request_Number =>l_app_object_value) ;
82 IF (l_prod_id IS NOT NULL) THEN
83 resultout := wf_engine.eng_completed || ':Y';
84 WF_ENGINE.SetItemAttrNumber(itemtype,itemkey,l_cct_prod_id_key,l_prod_id );
85 END IF;
86 END IF;
87
88 END IF;
89 END;
90
91 /* -----------------------------------------------------------------------
92 Activity Name : WF_ProductFromSerialNum (branch node)
93
94 To Check if the Customer Product ID can be derived from the Serial number
95 IN
96 itemtype - item type
97 itemkey - item key
98 actid - process activity instance id
99 funmode - execution mode
100 OUT
101 comparison result (WFSTD_YES_NO lookup code)
102 ITEM ATTRIBUTES REFERENCED
103 SerialNum - the originating Serial Number
104 CPID - the customer product ID
105 *-----------------------------------------------------------------------*/
106 procedure WF_ProductFromSerialNum (
107 itemtype in varchar2
108 , itemkey in varchar2
109 , actid in number
110 , funmode in varchar2
111 , resultout in out nocopy varchar2) IS
112 l_proc_name VARCHAR2(64) := 'WF_ProductFromSerialNum';
113 l_app_object_value VARCHAR2(255);
114 l_party_name VARCHAR2(255);
115 l_prod_ID NUMBER;
116 l_cct_prod_id_key VARCHAR2(64):='CUSTOMERPRODUCTID';
117 l_cct_object_type VARCHAR2(64):='SERIALNUM';
118 BEGIN
119 -- set default result
120 resultout := wf_engine.eng_completed || ':N';
121 IF (funmode = 'RUN') THEN
122 l_app_object_value := WF_ENGINE.GetItemAttrText(itemtype,itemkey,l_cct_object_type);
123 IF (l_app_object_value IS NOT NULL) THEN
124 l_prod_id:=CS_ROUTING_UTL.Get_CP_From_SerialNum
125 ( p_Serial_Number =>l_app_object_value) ;
126 IF (l_prod_id IS NOT NULL) THEN
127 resultout := wf_engine.eng_completed || ':Y';
128 WF_ENGINE.SetItemAttrNumber(itemtype,itemkey,l_cct_prod_id_key,l_prod_id );
129 END IF;
130 END IF;
131
132 END IF;
133 END;
134 /* -----------------------------------------------------------------------
135 Activity Name : WF_InventoryItemFromRefNum (branch node)
136
137 To Check if the Inventory Item ID can be derived from the Reference number
138 IN
139 itemtype - item type
140 itemkey - item key
141 actid - process activity instance id
142 funmode - execution mode
143 OUT
144 comparison result (WFSTD_YES_NO lookup code)
145 ITEM ATTRIBUTES REFERENCED
146 ReferenceNum - the originating Serial Number
147 InventoryItemID - the product ID
148 *-----------------------------------------------------------------------*/
149 procedure WF_InventoryItemFromRefNum (
150 itemtype in varchar2
151 , itemkey in varchar2
152 , actid in number
153 , funmode in varchar2
154 , resultout in out nocopy varchar2) IS
155 l_proc_name VARCHAR2(64) := 'WF_InventoryItemFromRefNum';
156 l_app_object_value VARCHAR2(255);
157 l_party_name VARCHAR2(255);
158 l_prod_ID NUMBER;
159 l_cct_prod_id_key VARCHAR2(64):='INVENTORYITEMID';
160 l_cct_object_type VARCHAR2(64):='REFERENCENUM';
161 BEGIN
162 -- set default result
163 resultout := wf_engine.eng_completed || ':N';
164 IF (funmode = 'RUN') THEN
165 l_app_object_value := WF_ENGINE.GetItemAttrText(itemtype,itemkey,l_cct_object_type);
166 IF (l_app_object_value IS NOT NULL) THEN
167 l_prod_id:= CSC_ROUTING_UTL.Get_Product_From_ReferenceNum (
168 p_Reference_Number =>l_app_object_value) ;
169 IF (l_prod_id IS NOT NULL) THEN
170 resultout := wf_engine.eng_completed || ':Y';
171 WF_ENGINE.SetItemAttrNumber(itemtype,itemkey,l_cct_prod_id_key,l_prod_id );
172 END IF;
173 END IF;
174
175 END IF;
176 END;
177 /* -----------------------------------------------------------------------
178 Activity Name : WF_InventoryItemFromSR (branch node)
179
180 To Check if the Inventory Item ID can be derived from the Reference number
181 IN
182 itemtype - item type
183 itemkey - item key
184 actid - process activity instance id
185 funmode - execution mode
186 OUT
187 comparison result (WFSTD_YES_NO lookup code)
188 ITEM ATTRIBUTES REFERENCED
189 SR - the originating Service Request Number
190 InventoryItemID - the product ID
191 *-----------------------------------------------------------------------*/
192 procedure WF_InventoryItemFromSR (
193 itemtype in varchar2
194 , itemkey in varchar2
195 , actid in number
196 , funmode in varchar2
197 , resultout in out nocopy varchar2) IS
198 l_proc_name VARCHAR2(64) := 'WF_InventoryItemFromSR';
199 l_app_object_value VARCHAR2(255);
200 l_party_name VARCHAR2(255);
201 l_prod_ID NUMBER;
202 l_cct_prod_id_key VARCHAR2(64):='INVENTORYITEMID';
203 l_cct_object_type VARCHAR2(64):='SERVICEREQUESTNUM';
204 BEGIN
205 -- set default result
206 resultout := wf_engine.eng_completed || ':N';
207 IF (funmode = 'RUN') THEN
208 l_app_object_value := WF_ENGINE.GetItemAttrText(itemtype,itemkey,l_cct_object_type);
209 IF (l_app_object_value IS NOT NULL) THEN
210 l_prod_id:= CS_ROUTING_UTL.Get_Product_From_RequestNum
211 (p_Request_Number =>l_app_object_value) ;
212 IF (l_prod_id IS NOT NULL) THEN
213 resultout := wf_engine.eng_completed || ':Y';
214 WF_ENGINE.SetItemAttrNumber(itemtype,itemkey,l_cct_prod_id_key,l_prod_id );
215 END IF;
216 END IF;
217
218 END IF;
219 END;
220
221 /* -----------------------------------------------------------------------
222 Activity Name : WF_InventoryItemFromSerNum (branch node)
223
224 To Check if the Inventory Item ID can be derived from the Reference number
225 IN
226 itemtype - item type
227 itemkey - item key
228 actid - process activity instance id
229 funmode - execution mode
230 OUT
231 comparison result (WFSTD_YES_NO lookup code)
232 ITEM ATTRIBUTES REFERENCED
233 SerNum - the originating Serial Number
234 InventoryItemID - the product ID
235 *-----------------------------------------------------------------------*/
236 procedure WF_InventoryItemFromSerNum (
237 itemtype in varchar2
238 , itemkey in varchar2
239 , actid in number
240 , funmode in varchar2
241 , resultout in out nocopy varchar2) IS
242 l_proc_name VARCHAR2(64) := 'WF_InventoryItemFromSerNum';
243 l_app_object_value VARCHAR2(255);
244 l_party_name VARCHAR2(255);
245 l_prod_ID NUMBER;
246 l_cct_prod_id_key VARCHAR2(64):='INVENTORYITEMID';
247 l_cct_object_type VARCHAR2(64):='SERIALNUM';
248 BEGIN
249 -- set default result
250 resultout := wf_engine.eng_completed || ':N';
251 IF (funmode = 'RUN') THEN
252 l_app_object_value := WF_ENGINE.GetItemAttrText(itemtype,itemkey,l_cct_object_type);
253 IF (l_app_object_value IS NOT NULL) THEN
254 l_prod_id:= CS_ROUTING_UTL.Get_Product_From_SerialNum
255 (p_Serial_Number =>l_app_object_value) ;
256 IF (l_prod_id IS NOT NULL) THEN
257 resultout := wf_engine.eng_completed || ':Y';
258 WF_ENGINE.SetItemAttrNumber(itemtype,itemkey,l_cct_prod_id_key,l_prod_id );
259 END IF;
260 END IF;
261
262 END IF;
263 END;
264
265 /* -----------------------------------------------------------------------
266 Activity Name : WF_ProductID_Exists (branch node)
267
268 To Check if the Customer Product ID Exists.
269 IN
270 itemtype - item type
271 itemkey - item key
272 actid - process activity instance id
273 funmode - execution mode
274 OUT
275 comparison result (WFSTD_YES_NO lookup code)
276 ITEM ATTRIBUTES REFERENCED
277 CustomerProductID - the product ID
278 *-----------------------------------------------------------------------*/
279 procedure WF_ProductID_Exists (
280 itemtype in varchar2
281 , itemkey in varchar2
282 , actid in number
283 , funmode in varchar2
284 , resultout in out nocopy varchar2) IS
285 l_proc_name VARCHAR2(64) := 'WF_ProductID_Exists';
286 l_app_object_value VARCHAR2(255);
287 l_party_name VARCHAR2(255);
288 l_prod_ID NUMBER;
289 l_cct_prod_id_key VARCHAR2(64):='CUSTOMERPRODUCTID';
290 l_cct_object_type VARCHAR2(64):='CUSTOMERPRODUCTID';
291
292 BEGIN
293 -- set default result
294 resultout := wf_engine.eng_completed || ':N';
295 IF (funmode = 'RUN') THEN
296 l_app_object_value := WF_ENGINE.GetItemAttrText(itemtype,itemkey,l_cct_object_type);
297 IF (l_app_object_value IS NOT NULL) THEN
298 resultout := wf_engine.eng_completed || ':Y';
299 END IF;
300
301 END IF;
302 END;
303 /* -----------------------------------------------------------------------
304 Activity Name : WF_InventoryItemID_Exists (branch node)
305
306 To Check if the InventoryItem ID Exists.
307 IN
308 itemtype - item type
309 itemkey - item key
310 actid - process activity instance id
311 funmode - execution mode
312 OUT
313 comparison result (WFSTD_YES_NO lookup code)
314 ITEM ATTRIBUTES REFERENCED
315 InventoryItemID - the product ID
316 *-----------------------------------------------------------------------*/
317 procedure WF_InventoryItemID_Exists (
318 itemtype in varchar2
319 , itemkey in varchar2
320 , actid in number
321 , funmode in varchar2
322 , resultout in out nocopy varchar2) IS
323 l_proc_name VARCHAR2(64) := 'WF_InventoryItemID_Exists';
324 l_app_object_value VARCHAR2(255);
325 l_party_name VARCHAR2(255);
326 l_prod_ID NUMBER;
327 l_cct_prod_id_key VARCHAR2(64):='INVENTORYITEMID';
328 l_cct_object_type VARCHAR2(64):='INVENTORYITEMID';
329
330 BEGIN
331 -- set default result
332 resultout := wf_engine.eng_completed || ':N';
333 IF (funmode = 'RUN') THEN
334 l_app_object_value := WF_ENGINE.GetItemAttrText(itemtype,itemkey,l_cct_object_type);
335 IF (l_app_object_value IS NOT NULL) THEN
336 resultout := wf_engine.eng_completed || ':Y';
337 END IF;
338
339 END IF;
340 END;
341
342 END CCT_PRODUCTINIT_PUB;