[Home] [Help]
PACKAGE BODY: APPS.CSP_PACKLIST_LINES_PUB
Source
1 PACKAGE BODY CSP_PACKLIST_LINES_PUB AS
2 /* $Header: cspptalb.pls 115.6 2003/05/02 17:28:00 phegde ship $ */
3 -- Start of Comments
4 -- Package name : CSP_PACKLIST_LINES_PUB
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSP_PACKLIST_LINES_PUB';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'cspptalb.pls';
13
14 -- Start of Comments
15 -- ***************** Private Conversion Routines Values -> Ids **************
16 -- Purpose
17 --
18 -- This procedure takes a public PACKLIST_LINES record as input. It may contain
19 -- values or ids. All values are then converted into ids and a
20 -- private PACKLIST_LINESrecord is returned for the private
21 -- API call.
22 --
23 -- Conversions:
24 --
25 -- Notes
26 --
27 -- 1. IDs take precedence over values. If both are present for a field, ID is used,
28 -- the value based parameter is ignored and a warning message is created.
29 -- 2. This is automatically generated procedure, it converts public record type to
30 -- private record type for all attributes.
31 -- Developer must manually add conversion logic to the attributes.
32 --
33 -- End of Comments
34 PROCEDURE Convert_PLL_Values_To_Ids(
35 P_PLL_Rec IN CSP_packlist_lines_PUB.PLL_Rec_Type,
36 x_pvt_PLL_rec OUT NOCOPY CSP_packlist_lines_PVT.PLL_Rec_Type
37 )
38 IS
39 -- Hint: Declare cursor and local variables
40 -- Example: CURSOR C_Get_Lookup_Code(X_Lookup_Type VARCHAR2, X_Meaning VARCHAR2) IS
41 -- SELECT lookup_code
42 -- FROM as_lookups
43 -- WHERE lookup_type = X_Lookup_Type and nls_upper(meaning) = nls_upper(X_Meaning);
44 l_any_errors BOOLEAN := FALSE;
45 BEGIN
46 -- Hint: Add logic to process value-id verification for PACKLIST_LINES record.
47 -- Value based parameters should be converted to their equivalent ids.
48 -- Each value should resolve into one and only one id.
49 -- If this condition is not satisfied, API must report an error and assign l_any_errors to TRUE.
50 -- Example: Process Lead Source/Lead Source Code
51 -- If(p_opp_rec.lead_source_code is NOT NULL and p_opp_rec.lead_source_code <> FND_API.G_MISS_CHAR)
52 -- THEN
53 -- p_pvt_opp_rec.lead_source_code := p_opp_rec.lead_source_code;
54 -- IF(p_opp_rec.lead_source is NOT NULL and p_opp_rec.lead_source <> FND_API.G_MISS_CHAR)
55 -- THEN
56 -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
57 -- THEN
58 -- FND_MESSAGE.Set_Name('AS','API_ATTRIBUTE_IGNORED');
59 -- FND_MESSAGE.Set_Token('COLUMN','LEAD_SOURCE',FALSE);
60 -- FND_MSG_PUB.Add;
61 -- END IF;
62 -- END IF;
63 -- ELSIF(p_opp_rec.lead_source is NOT NULL and p_opp_rec.lead_source <> FND_API.G_MISS_CHAR)
64 -- THEN
65 -- OPEN C_Get_Lookup_Code('LEAD_SOURCE', p_opp_rec.lead_source);
66 -- FETCH C_Get_Lookup_Code INTO l_val;
67 -- CLOSE C_Get_Lookup_Code;
68 -- p_pvt_opp_rec.lead_source_code := l_val;
69 -- IF(l_val IS NULL)
70 -- THEN
71 -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
72 -- THEN
73 -- FND_MESSAGE.Set_Name('AS','API_ATTRIBUTE_CONVERSION_ERROR'
74 -- FND_MESSAGE.Set_Token('COLUMN','LEAD_SOURCE', FALSE
75 -- FND_MESSAGE.Set_Token('VALUE', p_opp_rec.lead_source, FALSE
76 -- FND_MSG_PUB.Add;
77 -- END IF;
78 -- l_any_errors := TRUE;
79 -- END IF;
80 -- ELSE
81 -- p_pvt_opp_rec.lead_source_code := NULL;
82 -- END IF;
83
84
85 -- Now copy the rest of the columns to the private record
86 -- Hint: We provide copy all columns to the private record.
87 -- Developer should delete those fields which are used by Value-Id conversion above
88 -- Hint: Developer should remove some of the following statements because of inconsistent column name between table and view.
89 /*
90 x_pvt_PLL_rec.PACKLIST_LINE_ID := P_PLL_Rec.PACKLIST_LINE_ID;
91 x_pvt_PLL_rec.CREATED_BY := P_PLL_Rec.CREATED_BY;
92 x_pvt_PLL_rec.CREATION_DATE := P_PLL_Rec.CREATION_DATE;
93 x_pvt_PLL_rec.LAST_UPDATED_BY := P_PLL_Rec.LAST_UPDATED_BY;
94 x_pvt_PLL_rec.LAST_UPDATE_DATE := P_PLL_Rec.LAST_UPDATE_DATE;
95 x_pvt_PLL_rec.LAST_UPDATE_LOGIN := P_PLL_Rec.LAST_UPDATE_LOGIN;
96 x_pvt_PLL_rec.ORGANIZATION_ID := P_PLL_Rec.ORGANIZATION_ID;
97 x_pvt_PLL_rec.PACKLIST_LINE_NUMBER := P_PLL_Rec.PACKLIST_LINE_NUMBER;
98 x_pvt_PLL_rec.PACKLIST_HEADER_ID := P_PLL_Rec.PACKLIST_HEADER_ID;
99 x_pvt_PLL_rec.BOX_ID := P_PLL_Rec.BOX_ID;
100 x_pvt_PLL_rec.PICKLIST_LINE_ID := P_PLL_Rec.PICKLIST_LINE_ID;
101 x_pvt_PLL_rec.PACKLIST_LINE_STATUS := P_PLL_Rec.PACKLIST_LINE_STATUS;
102 x_pvt_PLL_rec.INVENTORY_ITEM_ID := P_PLL_Rec.INVENTORY_ITEM_ID;
103 x_pvt_PLL_rec.QUANTITY_PACKED := P_PLL_Rec.QUANTITY_PACKED;
104 x_pvt_PLL_rec.QUANTITY_SHIPPED := P_PLL_Rec.QUANTITY_SHIPPED;
105 x_pvt_PLL_rec.QUANTITY_RECEIVED := P_PLL_Rec.QUANTITY_RECEIVED;
106 x_pvt_PLL_rec.ATTRIBUTE_CATEGORY := P_PLL_Rec.ATTRIBUTE_CATEGORY;
107 x_pvt_PLL_rec.ATTRIBUTE1 := P_PLL_Rec.ATTRIBUTE1;
108 x_pvt_PLL_rec.ATTRIBUTE2 := P_PLL_Rec.ATTRIBUTE2;
109 x_pvt_PLL_rec.ATTRIBUTE3 := P_PLL_Rec.ATTRIBUTE3;
110 x_pvt_PLL_rec.ATTRIBUTE4 := P_PLL_Rec.ATTRIBUTE4;
111 x_pvt_PLL_rec.ATTRIBUTE5 := P_PLL_Rec.ATTRIBUTE5;
112 x_pvt_PLL_rec.ATTRIBUTE6 := P_PLL_Rec.ATTRIBUTE6;
113 x_pvt_PLL_rec.ATTRIBUTE7 := P_PLL_Rec.ATTRIBUTE7;
114 x_pvt_PLL_rec.ATTRIBUTE8 := P_PLL_Rec.ATTRIBUTE8;
115 x_pvt_PLL_rec.ATTRIBUTE9 := P_PLL_Rec.ATTRIBUTE9;
116 x_pvt_PLL_rec.ATTRIBUTE10 := P_PLL_Rec.ATTRIBUTE10;
117 x_pvt_PLL_rec.ATTRIBUTE11 := P_PLL_Rec.ATTRIBUTE11;
118 x_pvt_PLL_rec.ATTRIBUTE12 := P_PLL_Rec.ATTRIBUTE12;
119 x_pvt_PLL_rec.ATTRIBUTE13 := P_PLL_Rec.ATTRIBUTE13;
120 x_pvt_PLL_rec.ATTRIBUTE14 := P_PLL_Rec.ATTRIBUTE14;
121 x_pvt_PLL_rec.ATTRIBUTE15 := P_PLL_Rec.ATTRIBUTE15;
122 x_pvt_PLL_rec.UOM_CODE := P_PLL_Rec.UOM_CODE;
123 x_pvt_PLL_rec.LINE_ID := P_PLL_Rec.LINE_ID;
124 */
125
126 -- If there is an error in conversion precessing, raise an error.
127 IF l_any_errors
128 THEN
129 raise FND_API.G_EXC_ERROR;
130 END IF;
131
132 END Convert_PLL_Values_To_Ids;
133 PROCEDURE Create_packlist_lines(
134 P_Api_Version_Number IN NUMBER,
135 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
136 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
137 P_PLL_Rec IN PLL_Rec_Type := G_MISS_PLL_REC,
138 --Hint: Add detail tables as parameter lists if it's master-detail relationship.
139 X_PACKLIST_LINE_ID OUT NOCOPY NUMBER,
140 X_Return_Status OUT NOCOPY VARCHAR2,
141 X_Msg_Count OUT NOCOPY NUMBER,
142 X_Msg_Data OUT NOCOPY VARCHAR2
143 )
144
145 IS
146 l_api_name CONSTANT VARCHAR2(30) := 'Create_packlist_lines';
147 l_api_version_number CONSTANT NUMBER := 2.0;
148 l_pvt_PLL_rec CSP_PACKLIST_LINES_PVT.PLL_Rec_Type;
149 BEGIN
150 -- Standard Start of API savepoint
151 SAVEPOINT CREATE_PACKLIST_LINES_PUB;
152
153 -- Standard call to check for call compatibility.
154 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
155 p_api_version_number,
156 l_api_name,
157 G_PKG_NAME)
158 THEN
159 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160 END IF;
161
162
163 -- Initialize message list if p_init_msg_list is set to TRUE.
164 IF FND_API.to_Boolean( p_init_msg_list )
165 THEN
166 FND_MSG_PUB.initialize;
167 END IF;
168
169
170 -- Debug Message
171 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'start');
172
173
174 -- Initialize API return status to SUCCESS
175 x_return_status := FND_API.G_RET_STS_SUCCESS;
176
177 --
178 -- API body
179 --
180
181 -- Debug Message
182 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'AS: Public API: Convert_PLL_Values_To_Ids');
183
184 -- Convert the values to ids
185 --
186 Convert_PLL_Values_To_Ids (
187 p_PLL_rec => p_PLL_rec,
188 x_pvt_PLL_rec => l_pvt_PLL_rec
189 );
190
191 -- Calling Private package: Create_PACKLIST_LINES
192 -- Hint: Primary key needs to be returned
193 CSP_packlist_lines_PVT.Create_packlist_lines(
194 P_Api_Version_Number => 2.0,
195 P_Init_Msg_List => FND_API.G_FALSE,
196 P_Commit => FND_API.G_FALSE,
197 P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
198 P_PLL_Rec => l_pvt_PLL_Rec ,
199 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
200 X_PACKLIST_LINE_ID => x_PACKLIST_LINE_ID,
201 X_Return_Status => x_return_status,
202 X_Msg_Count => x_msg_count,
203 X_Msg_Data => x_msg_data);
204
205
206
207 -- Check return status from the above procedure call
208 IF x_return_status = FND_API.G_RET_STS_ERROR then
209 raise FND_API.G_EXC_ERROR;
210 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
211 raise FND_API.G_EXC_UNEXPECTED_ERROR;
212 END IF;
213
214 --
215 -- End of API body.
216 --
217
218 -- Standard check for p_commit
219 IF FND_API.to_Boolean( p_commit )
220 THEN
221 COMMIT WORK;
222 END IF;
223
224
225 -- Debug Message
226 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'end');
227
228
229 -- Standard call to get message count and if count is 1, get message info.
230 FND_MSG_PUB.Count_And_Get
231 ( p_count => x_msg_count,
232 p_data => x_msg_data
233 );
234
235 EXCEPTION
236 WHEN FND_API.G_EXC_ERROR THEN
237 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
238 P_API_NAME => L_API_NAME
239 ,P_PKG_NAME => G_PKG_NAME
240 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
241 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
242 ,X_MSG_COUNT => X_MSG_COUNT
243 ,X_MSG_DATA => X_MSG_DATA
244 ,X_RETURN_STATUS => X_RETURN_STATUS);
245
246 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
247 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
248 P_API_NAME => L_API_NAME
249 ,P_PKG_NAME => G_PKG_NAME
250 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
251 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
252 ,X_MSG_COUNT => X_MSG_COUNT
253 ,X_MSG_DATA => X_MSG_DATA
254 ,X_RETURN_STATUS => X_RETURN_STATUS);
255
256 WHEN OTHERS THEN
257 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
258 P_API_NAME => L_API_NAME
259 ,P_PKG_NAME => G_PKG_NAME
260 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
261 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
262 ,X_MSG_COUNT => X_MSG_COUNT
263 ,X_MSG_DATA => X_MSG_DATA
264 ,X_RETURN_STATUS => X_RETURN_STATUS);
265 End Create_packlist_lines;
266
267
268 -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
269 PROCEDURE Update_packlist_lines(
270 P_Api_Version_Number IN NUMBER,
274 P_PLL_Rec IN PLL_Rec_Type,
271 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
272 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
273 P_Identity_Salesforce_Id IN NUMBER := NULL,
275 X_Return_Status OUT NOCOPY VARCHAR2,
276 X_Msg_Count OUT NOCOPY NUMBER,
277 X_Msg_Data OUT NOCOPY VARCHAR2
278 )
279
280 IS
281 l_api_name CONSTANT VARCHAR2(30) := 'Update_packlist_lines';
282 l_api_version_number CONSTANT NUMBER := 2.0;
283 l_pvt_PLL_rec CSP_PACKLIST_LINES_PVT.PLL_Rec_Type;
284 BEGIN
285 -- Standard Start of API savepoint
286 SAVEPOINT UPDATE_PACKLIST_LINES_PUB;
287
288 -- Standard call to check for call compatibility.
289 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
290 p_api_version_number,
291 l_api_name,
292 G_PKG_NAME)
293 THEN
294 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
295 END IF;
296
297
298 -- Initialize message list if p_init_msg_list is set to TRUE.
299 IF FND_API.to_Boolean( p_init_msg_list )
300 THEN
301 FND_MSG_PUB.initialize;
302 END IF;
303
304
305 -- Debug Message
306 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'start');
307
308
309 -- Initialize API return status to SUCCESS
310 x_return_status := FND_API.G_RET_STS_SUCCESS;
311
312 --
313 -- API body
314 --
315
316 -- Debug Message
317 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'AS: Public API: Convert_PLL_Values_To_Ids');
318
319 -- Convert the values to ids
320 --
321 Convert_PLL_Values_To_Ids (
322 p_PLL_rec => p_PLL_rec,
323 x_pvt_PLL_rec => l_pvt_PLL_rec
324 );
325
326 CSP_packlist_lines_PVT.Update_packlist_lines(
327 P_Api_Version_Number => 2.0,
328 P_Init_Msg_List => FND_API.G_FALSE,
329 P_Commit => p_commit,
330 P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
331 P_Identity_Salesforce_Id => p_identity_salesforce_id,
332 P_PLL_Rec => l_pvt_PLL_Rec ,
333 X_Return_Status => x_return_status,
334 X_Msg_Count => x_msg_count,
335 X_Msg_Data => x_msg_data);
336
337
338
339 -- Check return status from the above procedure call
340 IF x_return_status = FND_API.G_RET_STS_ERROR then
341 raise FND_API.G_EXC_ERROR;
342 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
343 raise FND_API.G_EXC_UNEXPECTED_ERROR;
344 END IF;
345
346 --
347 -- End of API body
348 --
349
350 -- Standard check for p_commit
351 IF FND_API.to_Boolean( p_commit )
352 THEN
353 COMMIT WORK;
354 END IF;
355
356
357 -- Debug Message
358 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'end');
359
360
361 -- Standard call to get message count and if count is 1, get message info.
362 FND_MSG_PUB.Count_And_Get
363 ( p_count => x_msg_count,
364 p_data => x_msg_data
365 );
366
367 EXCEPTION
368 WHEN FND_API.G_EXC_ERROR THEN
369 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
370 P_API_NAME => L_API_NAME
371 ,P_PKG_NAME => G_PKG_NAME
372 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
373 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
374 ,X_MSG_COUNT => X_MSG_COUNT
375 ,X_MSG_DATA => X_MSG_DATA
376 ,X_RETURN_STATUS => X_RETURN_STATUS);
377
378 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
379 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
380 P_API_NAME => L_API_NAME
381 ,P_PKG_NAME => G_PKG_NAME
382 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
383 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
384 ,X_MSG_COUNT => X_MSG_COUNT
385 ,X_MSG_DATA => X_MSG_DATA
386 ,X_RETURN_STATUS => X_RETURN_STATUS);
387
388 WHEN OTHERS THEN
389 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
390 P_API_NAME => L_API_NAME
391 ,P_PKG_NAME => G_PKG_NAME
392 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
393 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
394 ,X_MSG_COUNT => X_MSG_COUNT
395 ,X_MSG_DATA => X_MSG_DATA
396 ,X_RETURN_STATUS => X_RETURN_STATUS);
397 End Update_packlist_lines;
398
399
400 -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
401 -- The Master delete procedure may not be needed depends on different business requirements.
402 PROCEDURE Delete_packlist_lines(
406 P_identity_salesforce_id IN NUMBER := NULL,
403 P_Api_Version_Number IN NUMBER,
404 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
405 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
407 P_PLL_Rec IN PLL_Rec_Type,
408 X_Return_Status OUT NOCOPY VARCHAR2,
409 X_Msg_Count OUT NOCOPY NUMBER,
410 X_Msg_Data OUT NOCOPY VARCHAR2
411 )
412
413 IS
414 l_api_name CONSTANT VARCHAR2(30) := 'Delete_packlist_lines';
415 l_api_version_number CONSTANT NUMBER := 2.0;
416 l_pvt_PLL_rec CSP_PACKLIST_LINES_PVT.PLL_Rec_Type;
417 BEGIN
418 -- Standard Start of API savepoint
419 SAVEPOINT DELETE_PACKLIST_LINES_PUB;
420
421 -- Standard call to check for call compatibility.
422 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
423 p_api_version_number,
424 l_api_name,
425 G_PKG_NAME)
426 THEN
427 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
428 END IF;
429
430
431 -- Initialize message list if p_init_msg_list is set to TRUE.
432 IF FND_API.to_Boolean( p_init_msg_list )
433 THEN
434 FND_MSG_PUB.initialize;
435 END IF;
436
437
438 -- Debug Message
439 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'start');
440
441
442 -- Initialize API return status to SUCCESS
443 x_return_status := FND_API.G_RET_STS_SUCCESS;
444
445 --
446 -- API body
447 --
448
449 -- Debug Message
450 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'AS: Public API: Convert_PLL_Values_To_Ids');
451
452 -- Convert the values to ids
453 --
454 Convert_PLL_Values_To_Ids (
455 p_PLL_rec => p_PLL_rec,
456 x_pvt_PLL_rec => l_pvt_PLL_rec
457 );
458
459 CSP_packlist_lines_PVT.Delete_packlist_lines(
460 P_Api_Version_Number => 2.0,
461 P_Init_Msg_List => FND_API.G_FALSE,
462 P_Commit => p_commit,
463 P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
464 P_Identity_Salesforce_Id => p_identity_salesforce_id,
465 P_PLL_Rec => l_pvt_PLL_Rec,
466 X_Return_Status => x_return_status,
467 X_Msg_Count => x_msg_count,
468 X_Msg_Data => x_msg_data);
469
470
471
472 -- Check return status from the above procedure call
473 IF x_return_status = FND_API.G_RET_STS_ERROR then
474 raise FND_API.G_EXC_ERROR;
475 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
476 raise FND_API.G_EXC_UNEXPECTED_ERROR;
477 END IF;
478
479 --
480 -- End of API body
481 --
482
483 -- Standard check for p_commit
484 IF FND_API.to_Boolean( p_commit )
485 THEN
486 COMMIT WORK;
487 END IF;
488
489
490 -- Debug Message
491 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'end');
492
493
494 -- Standard call to get message count and if count is 1, get message info.
495 FND_MSG_PUB.Count_And_Get
496 ( p_count => x_msg_count,
497 p_data => x_msg_data
498 );
499
500 EXCEPTION
501 WHEN FND_API.G_EXC_ERROR THEN
502 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
503 P_API_NAME => L_API_NAME
504 ,P_PKG_NAME => G_PKG_NAME
505 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
506 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
507 ,X_MSG_COUNT => X_MSG_COUNT
508 ,X_MSG_DATA => X_MSG_DATA
509 ,X_RETURN_STATUS => X_RETURN_STATUS);
510
511 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
512 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
513 P_API_NAME => L_API_NAME
514 ,P_PKG_NAME => G_PKG_NAME
515 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
516 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
517 ,X_MSG_COUNT => X_MSG_COUNT
518 ,X_MSG_DATA => X_MSG_DATA
519 ,X_RETURN_STATUS => X_RETURN_STATUS);
520
521 WHEN OTHERS THEN
522 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
523 P_API_NAME => L_API_NAME
524 ,P_PKG_NAME => G_PKG_NAME
525 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
526 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
527 ,X_MSG_COUNT => X_MSG_COUNT
528 ,X_MSG_DATA => X_MSG_DATA
529 ,X_RETURN_STATUS => X_RETURN_STATUS);
530 End Delete_packlist_lines;
531
532
533 PROCEDURE Get_packlist_lines(
534 P_Api_Version_Number IN NUMBER,
535 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
539 p_rec_requested IN NUMBER := G_DEFAULT_NUM_REC_FETCH,
536 P_identity_salesforce_id IN NUMBER := NULL,
537 P_PLL_Rec IN CSP_packlist_lines_PUB.PLL_Rec_Type,
538 -- Hint: Add list of bind variables here
540 p_start_rec_prt IN NUMBER := 1,
541 p_return_tot_count IN NUMBER := FND_API.G_FALSE,
542 -- Hint: user defined record type
543 p_order_by_rec IN CSP_packlist_lines_PUB.PLL_sort_rec_type,
544 x_return_status OUT NOCOPY VARCHAR2,
545 x_msg_count OUT NOCOPY NUMBER,
546 x_msg_data OUT NOCOPY VARCHAR2,
547 X_PLL_Tbl OUT NOCOPY CSP_packlist_lines_PUB.PLL_Tbl_Type,
548 x_returned_rec_count OUT NOCOPY NUMBER,
549 x_next_rec_ptr OUT NOCOPY NUMBER,
550 x_tot_rec_count OUT NOCOPY NUMBER
551 -- other optional parameters
552 -- x_tot_rec_amount OUT NOCOPY NUMBER
553 )
554
555 IS
556 l_api_name CONSTANT VARCHAR2(30) := 'Get_packlist_lines';
557 l_api_version_number CONSTANT NUMBER := 2.0;
558 BEGIN
559 -- Standard Start of API savepoint
560 SAVEPOINT GET_PACKLIST_LINES_PUB;
561
562 -- Standard call to check for call compatibility.
563 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
564 p_api_version_number,
565 l_api_name,
566 G_PKG_NAME)
567 THEN
568 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
569 END IF;
570
571
572 -- Initialize message list if p_init_msg_list is set to TRUE.
573 IF FND_API.to_Boolean( p_init_msg_list )
574 THEN
575 FND_MSG_PUB.initialize;
576 END IF;
577
578
579 -- Debug Message
580 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'start');
581
582
583 -- Initialize API return status to SUCCESS
584 x_return_status := FND_API.G_RET_STS_SUCCESS;
585
586 --
587 -- API body
588 --
589 -- Debug Message
590 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: - Calling PVT.Get_PACKLIST_LINES');
591 /*
592 CSP_packlist_lines_PVT.Get_packlist_lines(
593 P_Api_Version_Number => 2.0,
594 P_Init_Msg_List => FND_API.G_FALSE,
595 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
596 P_Identity_Salesforce_id => p_identity_salesforce_id,
597 P_PLL_Rec => P_PLL_Rec,
598 p_rec_requested => p_rec_requested,
599 p_start_rec_prt => p_start_rec_prt,
600 p_return_tot_count => p_return_tot_count,
601 -- Hint: user defined record type
602 p_order_by_rec => p_order_by_rec,
603 X_Return_Status => x_return_status,
604 X_Msg_Count => x_msg_count,
605 X_Msg_Data => x_msg_data,
606 X_PLL_Tbl => X_PLL_Tbl,
607 x_returned_rec_count => x_returned_rec_count,
608 x_next_rec_ptr => x_next_rec_ptr,
609 x_tot_rec_count => x_tot_rec_count
610 -- other optional parameters
611 -- x_tot_rec_amount => x_tot_rec_amount
612 );
613
614
615
616 -- Check return status from the above procedure call
617 IF x_return_status = FND_API.G_RET_STS_ERROR then
618 raise FND_API.G_EXC_ERROR;
619 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
620 raise FND_API.G_EXC_UNEXPECTED_ERROR;
621 END IF;
622 */
623 --
624 -- End of API body
625 --
626
627 -- Debug Message
628 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'end');
629
630
631 -- Standard call to get message count and if count is 1, get message info.
632 FND_MSG_PUB.Count_And_Get
633 ( p_count => x_msg_count,
634 p_data => x_msg_data
635 );
636
637 EXCEPTION
638 WHEN FND_API.G_EXC_ERROR THEN
639 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
640 P_API_NAME => L_API_NAME
641 ,P_PKG_NAME => G_PKG_NAME
642 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
643 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
644 ,X_MSG_COUNT => X_MSG_COUNT
645 ,X_MSG_DATA => X_MSG_DATA
646 ,X_RETURN_STATUS => X_RETURN_STATUS);
647
648 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
649 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
650 P_API_NAME => L_API_NAME
651 ,P_PKG_NAME => G_PKG_NAME
652 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
653 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
654 ,X_MSG_COUNT => X_MSG_COUNT
655 ,X_MSG_DATA => X_MSG_DATA
656 ,X_RETURN_STATUS => X_RETURN_STATUS);
657
658 WHEN OTHERS THEN
659 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
660 P_API_NAME => L_API_NAME
661 ,P_PKG_NAME => G_PKG_NAME
662 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
663 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
664 ,X_MSG_COUNT => X_MSG_COUNT
665 ,X_MSG_DATA => X_MSG_DATA
666 ,X_RETURN_STATUS => X_RETURN_STATUS);
667 End Get_packlist_lines;
668
669
670 End CSP_PACKLIST_LINES_PUB;