[Home] [Help]
PACKAGE BODY: APPS.BIS_WORKFLOW_PROCESS_PVT
Source
1 package BODY BIS_WORKFLOW_PROCESS_PVT AS
2 /* $Header: BISVWFPB.pls 115.7 99/09/19 11:20:50 porting ship $ */
3
4 G_PKG_NAME CONSTANT varchar2(30) := 'BIS_WORKFLOW_PROCESS_PVT';
5
6 PROCEDURE Retrieve_WorkFlows
7 ( p_api_version IN number
8 , x_WORKFLOW_Tbl out WORKFLOW_Tbl_Type
9 , x_return_status OUT VARCHAR2
10 , x_error_tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
11 )
12 IS
13 i NUMBER;
14 cursor wf is
15 select wf.name,
16 wf.display_name
17 from wf_item_types_vl wf
18 where wf.name like '%BISW%'
19 order by wf.name;
20 l_rec WORKFLOW_Rec_Type;
21 BEGIN
22
23 i := 0;
24 for cr in wf loop
25 i := i+1;
26 x_WORKFLOW_Tbl(i).Item_Type := cr.name;
27 x_WORKFLOW_Tbl(i).display_name := cr.display_name;
28 end loop;
29
30 END Retrieve_WorkFlows;
31
32 PROCEDURE Retrieve_WorkFlow_Processes
33 ( p_api_version IN number
34 , x_WORKFLOW_PROCESS_Tbl out WORKFLOW_PROCESS_Tbl_Type
35 , x_return_status OUT VARCHAR2
36 , x_error_tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
37 )
38 IS
39
40 i NUMBER;
41 cursor wf_process is
42 select wf.item_type,
43 wf.name ,
44 wf.display_name
45 from wf_activities_vl wf
46 where wf.item_type like '%BISW%'
47 and type = 'PROCESS'
48 and wf.begin_date <= sysdate
49 and NVL(wf.end_date,sysdate) >= sysdate
50 order by wf.item_type;
51 l_rec WORKFLOW_PROCESS_Rec_Type;
52 BEGIN
53
54 i := 0;
55 for cr in wf_process loop
56 i := i+1;
57 x_WORKFLOW_PROCESS_Tbl(i).Item_Type := cr.item_type;
58 x_WORKFLOW_PROCESS_Tbl(i).process_short_name := cr.name;
59 x_WORKFLOW_PROCESS_Tbl(i).process_name := cr.display_name;
60 end loop;
61
62 EXCEPTION
63 when FND_API.G_EXC_ERROR then
64 x_return_status := FND_API.G_RET_STS_ERROR ;
65 RAISE FND_API.G_EXC_ERROR;
66 when FND_API.G_EXC_UNEXPECTED_ERROR then
67 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
68 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
69 when others then
70 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
71 BIS_UTILITIES_PVT.Add_Error_Message
72 ( p_error_msg_id => SQLCODE
73 , p_error_description => SQLERRM
74 , p_error_proc_name => G_PKG_NAME||'.Retrieve_WorkFlow_Processes'
75 );
76 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
77
78 END Retrieve_WorkFlow_Processes;
79
80 -- This procedure is not used anymore
81 PROCEDURE Retrieve_WF_Process_Name
82 ( p_api_version IN number
83 , p_wf_process_short_name IN VARCHAR2
84 , x_wf_process_name OUT VARCHAR2
85 , x_return_status OUT VARCHAR2
86 , x_error_tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
87 )
88 IS
89 BEGIN
90
91 x_return_status := FND_API.G_RET_STS_SUCCESS;
92
93 if BIS_UTILITIES_PUB.Value_Not_Missing(p_wf_process_short_name)
94 = FND_API.G_TRUE
95 AND BIS_UTILITIES_PUB.Value_Not_NULL(p_wf_process_short_name)
96 = FND_API.G_TRUE then
97
98 select wf.display_name
99 into x_wf_process_name
100 from wf_activities_vl wf
101 where wf.item_type = 'BISKPIWF'
102 and type = 'PROCESS'
103 and wf.name = p_wf_process_short_name
104 and wf.begin_date <= sysdate
105 and NVL(wf.end_date,sysdate) >= sysdate;
106
107 else
108 -- POPULATE THE ERROR TABLE
109 RAISE FND_API.G_EXC_ERROR;
110 end if;
111
112
113 EXCEPTION
114 when FND_API.G_EXC_ERROR then
115 x_return_status := FND_API.G_RET_STS_ERROR ;
116 RAISE FND_API.G_EXC_ERROR;
117 when FND_API.G_EXC_UNEXPECTED_ERROR then
118 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
119 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
120 when others then
121 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
122 BIS_UTILITIES_PVT.Add_Error_Message
123 ( p_error_msg_id => SQLCODE
124 , p_error_description => SQLERRM
125 , p_error_proc_name => G_PKG_NAME||'.Retrieve_WF_Process_Name'
126 );
127 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128
129 END Retrieve_WF_Process_Name;
130 --
131 PROCEDURE Validate_WF_Process_Short_Name
132 ( p_api_version IN NUMBER
133 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
134 , p_wf_process_short_name IN VARCHAR2
135 , x_return_status OUT VARCHAR2
136 , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
137 )
138 IS
139
140 CURSOR val_cur is
141 select 1
142 from wf_activities_vl wf
143 where wf.item_type like '%BISW%'
144 and type = 'PROCESS'
145 and wf.name = p_wf_process_short_name
146 and wf.begin_date <= sysdate
147 and NVL(wf.end_date,sysdate) >= sysdate;
148
149 l_dummy number;
150
151 BEGIN
152
153 x_return_status := FND_API.G_RET_STS_SUCCESS;
154 if( BIS_UTILITIES_PUB.Value_Not_Missing(p_wf_process_short_name)
155 =FND_API.G_TRUE
156 AND BIS_UTILITIES_PUB.Value_Not_NULL(p_wf_process_short_name)
157 =FND_API.G_TRUE ) then
158 open val_cur;
159 fetch val_cur into l_dummy;
160 if (val_cur%NOTFOUND) then
161 close val_cur;
162 -- POPULATE THE TABLE
163 BIS_UTILITIES_PVT.Add_Error_Message
164 ( p_error_msg_name => 'BIS_INVALID_WORKFLOW_PROCESS'
165 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
166 , p_error_proc_name => G_PKG_NAME||'.Validate_WF_Process_Short_Name'
167 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
168 );
169 RAISE FND_API.G_EXC_ERROR;
170 end if;
171 close val_cur;
172 end if;
173
174 EXCEPTION
175 when FND_API.G_EXC_ERROR then
176 x_return_status := FND_API.G_RET_STS_ERROR ;
177 RAISE FND_API.G_EXC_ERROR;
178 when FND_API.G_EXC_UNEXPECTED_ERROR then
179 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
180 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181 when others then
182 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
183 BIS_UTILITIES_PVT.Add_Error_Message
184 ( p_error_msg_id => SQLCODE
185 , p_error_description => SQLERRM
186 , p_error_proc_name => G_PKG_NAME||'.Validate_WF_Process_Short_Name'
187 );
188 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
189
190 END Validate_WF_Process_Short_Name;
191 --
192 PROCEDURE Value_ID_Conversion
193 ( p_api_version IN NUMBER
194 , p_wf_process_Name IN VARCHAR2
195 , x_wf_process_short_name OUT VARCHAR2
196 , x_return_status OUT VARCHAR2
197 , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
198 )
199 IS
200 BEGIN
201 x_return_status := FND_API.G_RET_STS_SUCCESS;
202
203 if BIS_UTILITIES_PUB.Value_Not_Missing(p_wf_process_name)=FND_API.G_TRUE
204 AND BIS_UTILITIES_PUB.Value_Not_NULL(p_wf_process_name)=FND_API.G_TRUE then
205 select wf.name
206 into x_wf_process_short_name
207 from wf_activities_vl wf
208 where wf.item_type = 'BISKPIWF'
209 and type = 'PROCESS'
210 and wf.display_name = p_wf_process_name
211 and wf.begin_date <= sysdate
212 and NVL(wf.end_date,sysdate) >= sysdate;
213 else
214 -- populate the table
215 BIS_UTILITIES_PVT.Add_Error_Message
216 ( p_error_msg_name => 'BIS_WF_PROCESS_NAME_IS_NULL'
217 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
218 , p_error_proc_name => G_PKG_NAME||'.Value_ID_Conversion'
219 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
220 );
221 RAISE FND_API.G_EXC_ERROR;
222 end if;
223
224 EXCEPTION
225 when FND_API.G_EXC_ERROR then
226 x_return_status := FND_API.G_RET_STS_ERROR ;
227 RAISE FND_API.G_EXC_ERROR;
228 when FND_API.G_EXC_UNEXPECTED_ERROR then
229 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
230 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
231 when others then
232 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
233 BIS_UTILITIES_PVT.Add_Error_Message
234 ( p_error_msg_id => SQLCODE
235 , p_error_description => SQLERRM
236 , p_error_proc_name => G_PKG_NAME||'.Value_ID_Conversion'
237 );
238 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
239
240 END Value_ID_Conversion;
241 --
242 END BIS_WORKFLOW_PROCESS_PVT;