[Home] [Help]
PACKAGE BODY: APPS.ASO_NETWORK_UI_PVT
Source
1 PACKAGE BODY ASO_NETWORK_UI_PVT as
2 /* $Header: asovnetb.pls 120.1 2005/06/29 12:42:13 appldev ship $ */
3 -- Start of Comments
4 -- Package name : ASO_NETWORK_UI_PVT
5 -- Purpose : This is a wrapper, to make the CZ API Calls for MACD Functionality in Quoting Forms UI
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10 -----------------------------------------------------------------------------
11 -- API name: is_container
12 -- API type: public
13 -- Function: Checks if a model specified by the top inventory_item_id and
14 -- organization_id is a network container model.
15
16 G_PKG_NAME CONSTANT VARCHAR2(30) := 'ASO_NETWORK_UI_PVT';
17 G_FILE_NAME CONSTANT VARCHAR2(12) := 'ASOVNETB.PLS';
18
19 procedure aso_is_container(p_api_version IN NUMBER
20 ,p_inventory_item_id IN NUMBER
21 ,p_organization_id IN NUMBER
22 ,p_appl_param_rec IN ASO_NETWORK_UI_PVT.aso_appl_param_rec_type
23 ,x_return_value OUT NOCOPY VARCHAR2
24 ,x_return_status OUT NOCOPY VARCHAR2
25 ,x_msg_count OUT NOCOPY NUMBER
26 ,x_msg_data OUT NOCOPY VARCHAR2
27 )
28 IS
29 l_appl_param_rec CZ_API_PUB.appl_param_rec_type;
30
31
32 l_api_version CONSTANT NUMBER := 1.0;
33 l_api_name CONSTANT VARCHAR2(30) := 'aso_is_container';
34
35 l_model_id NUMBER;
36 l_msg_data VARCHAR2(2000);
37 l_sqlerrm VARCHAR2(2000);
38
39 BEGIN
40 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
41
42 IF aso_debug_pub.g_debug_flag = 'Y' THEN
43 aso_debug_pub.add('ASO_NETWORK_UI_PVT.Aso_Is_Container BEGIN');
44 END IF;
45
46 l_appl_param_rec.calling_application_id := P_appl_param_rec.calling_application_id;
47
48 IF aso_debug_pub.g_debug_flag = 'Y' THEN
49 aso_debug_pub.add('Call TO CZ_NETWORK_API_PUB.Is_Container ');
50 END IF;
51
52 CZ_NETWORK_API_PUB.Is_Container
53 (p_api_version => p_api_version,
54 p_inventory_item_id => p_inventory_item_id,
55 p_organization_id => p_organization_id,
56 p_appl_param_rec => l_appl_param_rec,
57 x_return_value => x_return_value,
58 x_return_status => x_return_status,
59 x_msg_count => x_msg_count,
60 x_msg_data => x_msg_data
61 );
62
63 IF aso_debug_pub.g_debug_flag = 'Y' THEN
64 aso_debug_pub.add('X_Return_value from Cz_NETWORK_API_Pub.Is_Container '||x_return_value);
65 aso_debug_pub.add('X_Return_Status from Cz_NETWORK_API_Pub.Is_Container '||X_Return_Status);
66 aso_debug_pub.add('ASO_NETWORK_UI_PVT.Aso_Is_Container END');
67 END IF;
68
69 EXCEPTION
70 WHEN FND_API.G_EXC_ERROR THEN
71 x_return_status := FND_API.G_RET_STS_ERROR;
72 FND_MSG_PUB.Count_And_Get(
73 p_encoded => FND_API.G_FALSE,
74 p_count => x_msg_count,
75 p_data => x_msg_data
76 );
77
78 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
79 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
80 FND_MSG_PUB.Count_And_Get(
81 p_encoded => FND_API.G_FALSE,
82 p_count => x_msg_count,
83 p_data => x_msg_data
84 );
85
86 WHEN OTHERS THEN
87 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
88 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
89 THEN
90 FND_MSG_PUB.Add_Exc_Msg(
91 G_PKG_NAME,
92 l_api_name
93 );
94 END IF;
95
96 FND_MSG_PUB.Count_And_Get(
97 p_encoded => FND_API.G_FALSE,
98 p_count => x_msg_count,
99 p_data => x_msg_data
100 );
101 END Aso_Is_Container;
102
103 -----------------------------------------------------------------------------
104 -- API name: aso_get_contained_models
105 -- API type: private
106 -- Function: Retrieves all possible enclosed trackable child models for the network
107 -- container model specified by the input inventory_item_id and
108 -- organization_id
109
110 procedure aso_get_contained_models(p_api_version IN NUMBER
111 ,p_inventory_item_id IN NUMBER
112 ,p_organization_id IN NUMBER
113 ,p_appl_param_rec IN ASO_NETWORK_UI_PVT.aso_appl_param_rec_type
114 ,x_model_tbl OUT NOCOPY ASO_NETWORK_UI_PVT.aso_number_tbl_type
115 ,x_return_status OUT NOCOPY VARCHAR2
116 ,x_msg_count OUT NOCOPY NUMBER
117 ,x_msg_data OUT NOCOPY VARCHAR2
118 )
119 IS
120 l_api_name CONSTANT VARCHAR2(30) := 'aso_get_contained_models';
121
122 l_inventory_item_id_tbl CZ_API_PUB.number_tbl_type := cz_api_pub.NUMBER_TBL_TYPE();
123 l_msg_data VARCHAR2(2000);
124 l_appl_param_rec CZ_API_PUB.appl_param_rec_type;
125
126 lx_model_tbl CZ_API_PUB.number_tbl_type;
127 BEGIN
128 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
129
130 IF aso_debug_pub.g_debug_flag = 'Y' THEN
131 aso_debug_pub.add('ASO_NETWORK_UI_PVT.Aso_Get_Contained_Models BEGIN');
132 END IF;
133
134 --x_model_tbl := ASO_NETWORK_UI_PVT.aso_number_tbl_type();
135
136 l_appl_param_rec.calling_application_id := P_appl_param_rec.calling_application_id;
137
138 IF aso_debug_pub.g_debug_flag = 'Y' THEN
139 aso_debug_pub.add('Call to CZ_NETWORK_API_PUB.Get_Contained_Models ');
140 END IF;
141
142 CZ_NETWORK_API_PUB.Get_Contained_Models(
143 p_api_version => p_api_version,
144 p_inventory_item_id => p_inventory_item_id,
145 p_organization_id => p_organization_id,
146 p_appl_param_rec => l_appl_param_rec,
147 x_model_tbl => lx_model_tbl,
148 x_return_status => x_return_status,
149 x_msg_count => x_msg_count,
150 x_msg_data => x_msg_data
151 );
152
153 IF aso_debug_pub.g_debug_flag = 'Y' THEN
154 aso_debug_pub.add('return CZ_NETWORK_API_PUB.Get_Contained_Models '||X_Return_Status);
155 END IF;
156
157 IF lx_model_tbl.COUNT > 0 THEN
158 --x_model_tbl.extend(lx_model_tbl.COUNT);
159 For i IN lx_Model_Tbl.FIRST..lx_Model_Tbl.LAST
160 Loop
161 X_Model_Tbl(i) := Lx_Model_Tbl(i);
162 End Loop;
163
164 End If;
165
166 IF aso_debug_pub.g_debug_flag = 'Y' THEN
167 aso_debug_pub.add('ASO_NETWORK_UI_PVT.Aso_Get_Contained_Models END');
168 END IF;
169
170 EXCEPTION
171 WHEN FND_API.G_EXC_ERROR THEN
172 x_return_status := FND_API.G_RET_STS_ERROR;
173 FND_MSG_PUB.Count_And_Get(
174 p_encoded => FND_API.G_FALSE,
175 p_count => x_msg_count,
176 p_data => x_msg_data
177 );
178
179 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
180 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
181 FND_MSG_PUB.Count_And_Get(
182 p_encoded => FND_API.G_FALSE,
183 p_count => x_msg_count,
184 p_data => x_msg_data
185 );
186
187 WHEN OTHERS THEN
188 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
189 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
190 THEN
191 FND_MSG_PUB.Add_Exc_Msg(
192 G_PKG_NAME,
193 l_api_name
194 );
195 END IF;
196
197 FND_MSG_PUB.Count_And_Get(
198 p_encoded => FND_API.G_FALSE,
199 p_count => x_msg_count,
200 p_data => x_msg_data
201 );
202
203 END Aso_Get_Contained_Models;
204 --------------------------------------
205 PROCEDURE aso_config_operations(
206 P_Api_Version_Number IN NUMBER,
207 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
208 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
209 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
210 P_Control_Rec IN ASO_QUOTE_PUB.Control_Rec_Type := ASO_QUOTE_PUB.G_Miss_Control_Rec,
211 P_Qte_Header_Rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type:=ASO_QUOTE_PUB.G_Miss_Qte_Header_Rec,
212 P_qte_line_tbl IN ASO_QUOTE_PUB.Qte_line_tbl_type := ASO_QUOTE_PUB.G_MISS_Qte_line_tbl ,
213 P_instance_tbl IN ASO_NETWORK_UI_PVT.Aso_Instance_Tbl_Type,
214 p_operation_code IN VARCHAR2,
215 x_Qte_Header_Rec OUT NOCOPY /* file.sql.39 change */ ASO_QUOTE_PUB.Qte_Header_Rec_Type,
216 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
217 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
218 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
219 )is
220
221 l_api_name CONSTANT VARCHAR2(30) := 'aso_config_operations';
222 l_instance_tbl ASO_QUOTE_HEADERS_PVT.Instance_tbl_type;
223
224 Begin
225 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
226 IF P_Instance_tbl.COUNT > 0 THEN
227 For i IN P_Instance_Tbl.FIRST..P_Instance_Tbl.LAST
228 Loop
229 l_Instance_Tbl(i).Instance_Id := P_Instance_Tbl(i).Instance_Id;
230 End Loop;
231
232 End If;
233
234 IF aso_debug_pub.g_debug_flag = 'Y' THEN
235 aso_debug_pub.add('Call TO ASO_NETWORK_UI_PVT.Aso_Config_Operations Begin ');
236 END IF;
237
238 Aso_Config_Operations_Int.Config_Operations(
239 p_api_version_number => p_api_version_number,
240 p_init_msg_list => p_init_msg_list,
241 p_commit => p_commit,
242 p_validation_level => p_validation_level,
243 p_control_rec => P_control_rec,
244 p_qte_header_rec => P_qte_header_rec,
245 p_qte_line_tbl => P_qte_line_tbl,
246 p_instance_tbl => l_instance_tbl,
247 p_operation_code => p_operation_code,
248 x_Qte_Header_Rec => x_Qte_Header_Rec,
249 x_return_status => x_return_status,
250 x_msg_count => x_msg_count,
251 x_msg_data => x_msg_data);
252
253 IF aso_debug_pub.g_debug_flag = 'Y' THEN
254 aso_debug_pub.add('return ASO_NETWORK_UI_PVT.Aso_Config_Operations '||X_Return_Status);
255 aso_debug_pub.add('ASO_NETWORK_UI_PVT.Aso_Config_Operations END');
256 END IF;
257
258 EXCEPTION
259 WHEN FND_API.G_EXC_ERROR THEN
260 x_return_status := FND_API.G_RET_STS_ERROR;
261 FND_MSG_PUB.Count_And_Get(
262 p_encoded => FND_API.G_FALSE,
263 p_count => x_msg_count,
264 p_data => x_msg_data
265 );
266
267 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
268 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
269 FND_MSG_PUB.Count_And_Get(
270 p_encoded => FND_API.G_FALSE,
271 p_count => x_msg_count,
272 p_data => x_msg_data
273 );
274 WHEN OTHERS THEN
275 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
276 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
277 FND_MSG_PUB.Add_Exc_Msg(
278 G_PKG_NAME,
279 l_api_name
280 );
281 END IF;
282
283 FND_MSG_PUB.Count_And_Get(
284 p_encoded => FND_API.G_FALSE,
285 p_count => x_msg_count,
286 p_data => x_msg_data
287 );
288 END Aso_Config_Operations;
289
290 PROCEDURE Aso_Get_config_details(
291 P_Api_Version_Number IN NUMBER := FND_API.G_MISS_NUM,
292 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
293 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
294 p_control_rec IN aso_quote_pub.control_rec_type := aso_quote_pub.G_MISS_control_rec,
295 p_config_rec IN aso_quote_pub.qte_line_dtl_rec_type,
296 p_model_line_rec IN aso_quote_pub.qte_line_rec_type,
297 p_config_hdr_id IN NUMBER ,
298 p_config_rev_nbr IN NUMBER,
299 p_qte_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type:=ASO_QUOTE_PUB.G_Miss_Qte_Header_Rec,
300 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
301 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
302 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2) IS
303
304 l_api_name CONSTANT VARCHAR2(30) := 'aso_get_config_details';
305
306 BEGIN
307 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
308
309 IF aso_debug_pub.g_debug_flag = 'Y' THEN
310 aso_debug_pub.add('Call to Aso_Get_Config_Details');
311 END IF;
312
313 ASO_CFG_INT.Get_Config_Details(
314 p_api_version_number => p_api_version_number,
315 p_init_msg_list => p_init_msg_list,
316 p_commit => p_commit,
317 p_control_rec => p_control_rec,
318 p_config_rec => p_config_rec,
319 p_model_line_rec => p_model_line_rec,
320 p_config_hdr_id => p_config_hdr_id,
321 p_config_rev_nbr => p_config_rev_nbr,
322 p_qte_header_rec => p_qte_header_rec,
323 x_return_status => x_return_status,
324 x_msg_count => x_msg_count,
325 x_msg_data => x_msg_data
326 );
327
328 IF aso_debug_pub.g_debug_flag = 'Y' THEN
329 aso_debug_pub.add('x_return_status, ASO Get_Config_Details '||x_return_status);
330 aso_debug_pub.add('Aso_get_config_details END');
331 END IF;
332
333
334 EXCEPTION
335 WHEN FND_API.G_EXC_ERROR THEN
336 x_return_status := FND_API.G_RET_STS_ERROR;
337 FND_MSG_PUB.Count_And_Get(
338 p_encoded => FND_API.G_FALSE,
339 p_count => x_msg_count,
340 p_data => x_msg_data
341 );
342
343 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
344 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
345 FND_MSG_PUB.Count_And_Get(
346 p_encoded => FND_API.G_FALSE,
347 p_count => x_msg_count,
348 p_data => x_msg_data
349 );
350 WHEN OTHERS THEN
351 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
352 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
353 FND_MSG_PUB.Add_Exc_Msg(
354 G_PKG_NAME,
355 l_api_name
356 );
357 END IF;
358
359 FND_MSG_PUB.Count_And_Get(
360 p_encoded => FND_API.G_FALSE,
361 p_count => x_msg_count,
362 p_data => x_msg_data
363 );
364
365 END Aso_Get_config_details;
366
367 End ASO_NETWORK_UI_PVT;
368