[Home] [Help]
PACKAGE BODY: APPS.FTE_WF_UTIL
Source
1 PACKAGE BODY FTE_WF_UTIL AS
2 /* $Header: FTEWFUTB.pls 115.2 2002/12/03 21:52:07 hbhagava noship $ */
3
4 --*******************************************************
5
6 PROCEDURE GET_BLOCK_STATUS(itemtype in VARCHAR2,
7 itemkey in VARCHAR2,
8 p_workflow_process in VARCHAR2,
9 p_block_label in VARCHAR2,
10 x_return_status out NOCOPY VARCHAR2) IS
11
12
13 l_activity_status VARCHAR2(8);
14 l_activity_result_code VARCHAR2(30);
15
16 BEGIN
17
18 x_return_status := 'NA';
19
20
21 SELECT activity_status
22 INTO l_activity_status
23 FROM wf_item_activity_statuses
24 WHERE item_type = itemtype
25 AND item_key = itemkey
26 AND process_activity IN (
27 select INSTANCE_ID
28 from WF_PROCESS_ACTIVITIES
29 where PROCESS_ITEM_TYPE = itemtype
30 and PROCESS_NAME = p_workflow_process
31 and INSTANCE_LABEL = p_block_label);
32
33
34 IF (l_activity_status = 'COMPLETE') THEN
35 x_return_status := 'COMPLETE';
36 RETURN;
37 ELSIF (l_activity_status = 'NOTIFIED') THEN
38 x_return_status := 'NOTIFIED';
39 RETURN;
40 ELSE
41 x_return_status := 'NA';
42 RETURN;
43 END IF;
44
45
46 EXCEPTION
47 WHEN NO_DATA_FOUND THEN
48 x_return_status := 'NA';
49 RETURN;
50 WHEN OTHERS THEN
51 x_return_status := 'E';
52 RETURN;
53
54 END GET_BLOCK_STATUS;
55
56 --*******************************************************
57
58 -- ------------------------------------------------------------------------------- --
59 -- --
60 -- NAME: GET_ATTRIBUTE_NUMBER --
61 -- TYPE: FUNCTION --
62 -- PARAMETERS (IN): p_item_type VARCHAR2 --
63 -- p_item_key VARCHAR2 --
64 -- p_aname VARCHAR2 --
65 -- PARAMETERS (OUT): none --
66 -- PARAMETERS (IN OUT): none --
67 -- RETURN: NUMBER (number attribute value) --
68 -- DESCRIPTION: This function retrieves a number value from a workflow --
69 -- identified by the passed in item type and item key. The --
70 -- name of the attribute is given by the p_aname parameter. --
71 -- --
72 -- CHANGE CONTROL LOG --
73 -- ------------------ --
74 -- --
75 -- DATE VERSION BY BUG DESCRIPTION --
76 -- ---------- ------- -------- ------- --------------------------------------- --
77 -- 2002 11.5.8 HBHAGAVA Created --
78 -- --
79 -- ------------------------------------------------------------------------------- --
80 FUNCTION GET_ATTRIBUTE_NUMBER(p_item_type IN VARCHAR2,
81 p_item_key IN VARCHAR2,
82 p_aname IN VARCHAR2) RETURN NUMBER IS
83 lvalue NUMBER;
84
85 BEGIN
86
87 select NUMBER_VALUE
88 into lvalue
89 from WF_ITEM_ATTRIBUTE_VALUES
90 where ITEM_TYPE = p_item_type
91 and ITEM_KEY = p_item_key
92 and NAME = p_aname;
93
94 return(lvalue);
95
96 EXCEPTION
97 WHEN OTHERS THEN
98 return(null);
99
100 END GET_ATTRIBUTE_NUMBER;
101
102 END FTE_WF_UTIL;