[Home] [Help]
PACKAGE BODY: APPS.ASO_RLTSHIP_PUB
Source
1 PACKAGE BODY ASO_RLTSHIP_PUB as
2 /* $Header: asoprltb.pls 120.1 2005/06/29 12:37:44 appldev ship $ */
3 -- Start of Comments
4 -- Package name : ASO_RLTSHIP_PUB
5 -- Purpose :
6 -- This package contains specification for pl/sql records and tables and the
7 -- Public API of Order Capture.
8 --
9 G_PKG_NAME CONSTANT VARCHAR2(30):= 'ASO_RLTSHIP_PUB';
10 G_FILE_NAME CONSTANT VARCHAR2(12) := 'asoprltb.pls';
11
12
13
14 -- *******************************************************
15 -- Start of Comments
16 -- *******************************************************
17 -- API Name: Create_Line_Relationship
18 -- Type : Public
19 -- Pre-Req :
20 -- Parameters:
21 -- IN
22 -- p_api_version_number IN NUMBER Required
23 -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
24 -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
25 -- P_Line_Rltship_Tbl IN Line_Rltship_Tbl_Type
26 -- Version : Current version 2.0
27 -- Note: This automatic generated procedure definition, it includes standard IN/OUT parameters
28 -- and basic operation, developer must manually add parameters and business logic as necessary.
29 --
30 -- End of Comments
31 --
32 PROCEDURE Create_Line_Relationship(
33 P_Api_Version_Number IN NUMBER,
34 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
35 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
36 P_Line_Rltship_Rec IN ASO_QUOTE_PUB.Line_Rltship_Rec_Type := ASO_QUOTE_PUB.G_MISS_line_rltship_REC,
37 X_line_relationship_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
38 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
39 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
40 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
41 )
42 IS
43 l_api_version_number NUMBER := 1.0;
44 l_api_name VARCHAR2(240) := 'CREATE_LINE_RELATIONSHIP';
45 BEGIN
46 -- Standard Start of API savepoint
47 SAVEPOINT CREATE_LINE_RELATIONSHIP_PUB;
48
49 -- Standard call to check for call compatibility.
50 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
51 p_api_version_number,
52 l_api_name,
53 G_PKG_NAME)
54 THEN
55 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56 END IF;
57
58
59 -- Initialize message list if p_init_msg_list is set to TRUE.
60 IF FND_API.to_Boolean( p_init_msg_list )
61 THEN
62 FND_MSG_PUB.initialize;
63 END IF;
64
65
66 -- Debug Message
67 --AS_UTILITY_PVT.Print(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
68
69
70 -- Initialize API return status to SUCCESS
71 x_return_status := FND_API.G_RET_STS_SUCCESS;
72 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
73 --
74 -- API body
75 --
76 -- ******************************************************************
77 -- Validate Environment
78 -- ******************************************************************
79 IF FND_GLOBAL.User_Id IS NULL
80 THEN
81 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
82 THEN
83 FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
84 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
85 FND_MSG_PUB.ADD;
86 END IF;
87 RAISE FND_API.G_EXC_ERROR;
88 END IF;
89
90
91 ASO_LINE_RLTSHIP_PVT.Create_line_rltship(
92 P_Api_Version_Number => 1.0,
93 P_Init_Msg_List => FND_API.G_FALSE ,
94 P_LINE_RLTSHIP_Rec => P_LINE_RLTSHIP_Rec ,
95 X_LINE_RELATIONSHIP_ID => X_LINE_RELATIONSHIP_ID ,
96 X_Return_Status => X_Return_Status ,
97 X_Msg_Count => X_Msg_Count,
98 X_Msg_Data => X_Msg_Data
99 );
100
101 --
102 -- End of API body
103 --
104
105 -- Standard check for p_commit
106 IF FND_API.to_Boolean( p_commit )
107 THEN
108 COMMIT WORK;
109 END IF;
110
111
112 -- Standard call to get message count and if count is 1, get message info.
113 FND_MSG_PUB.Count_And_Get
114 ( p_count => x_msg_count,
115 p_data => x_msg_data
116 );
117
118
119 EXCEPTION
120 WHEN FND_API.G_EXC_ERROR THEN
121 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
122 P_API_NAME => L_API_NAME
123 ,P_PKG_NAME => G_PKG_NAME
124 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
125 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
126 ,X_MSG_COUNT => X_MSG_COUNT
127 ,X_MSG_DATA => X_MSG_DATA
128 ,X_RETURN_STATUS => X_RETURN_STATUS);
129
130 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
131 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
132 P_API_NAME => L_API_NAME
133 ,P_PKG_NAME => G_PKG_NAME
134 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
135 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
136 ,X_MSG_COUNT => X_MSG_COUNT
137 ,X_MSG_DATA => X_MSG_DATA
138 ,X_RETURN_STATUS => X_RETURN_STATUS);
139
140 WHEN OTHERS THEN
141 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
142 P_API_NAME => L_API_NAME
143 ,P_PKG_NAME => G_PKG_NAME
144 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
145 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
146 ,X_MSG_COUNT => X_MSG_COUNT
147 ,X_MSG_DATA => X_MSG_DATA
148 ,X_RETURN_STATUS => X_RETURN_STATUS);
149
150
151 End Create_line_relationship;
152
153
154
155 -- *******************************************************
156 -- Start of Comments
157 -- *******************************************************
158 -- API Name: Update_Line_Relationship
159 -- Type : Public
160 -- Pre-Req :
161 -- Parameters:
162 -- IN
163 -- p_api_version_number IN NUMBER Required
164 -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
165 -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
166 -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
167 -- P_Line_Rltship_Tbl IN Line_Rltship_Tbl_Type
168 -- Version : Current version 2.0
169 -- End of Comments
170
171 PROCEDURE Update_Line_Relationship(
172 P_Api_Version_Number IN NUMBER,
173 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
174 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
175 P_Line_Rltship_Rec IN ASO_QUOTE_PUB.Line_Rltship_Rec_Type := ASO_QUOTE_PUB.G_MISS_line_rltship_REC,
176 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
177 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
178 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
179 )
180 IS
181 l_api_version_number NUMBER := 1.0;
182 l_api_name VARCHAR2(240) := 'UPDATE_LINE_RELATIONSHIP';
183 BEGIN
184
185 -- Standard Start of API savepoint
186 SAVEPOINT UPDATE_LINE_RELATIONSHIP_PUB;
187
188 -- Standard call to check for call compatibility.
189 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
190 p_api_version_number,
191 l_api_name,
192 G_PKG_NAME)
193 THEN
194 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
195 END IF;
196
197
198 -- Initialize message list if p_init_msg_list is set to TRUE.
199 IF FND_API.to_Boolean( p_init_msg_list )
200 THEN
201 FND_MSG_PUB.initialize;
202 END IF;
203
204
205
206 -- Initialize API return status to SUCCESS
207 x_return_status := FND_API.G_RET_STS_SUCCESS;
208 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
209 --
210 -- API body
211 --
212
213 -- ******************************************************************
214 -- Validate Environment
215 -- ******************************************************************
216 IF FND_GLOBAL.User_Id IS NULL
217 THEN
218 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
219 THEN
220 FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
221 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
222 FND_MSG_PUB.ADD;
223 END IF;
224 RAISE FND_API.G_EXC_ERROR;
225 END IF;
226
227
228 ASO_LINE_RLTSHIP_PVT.Update_line_rltship(
229 P_Api_Version_Number => 1.0,
230 P_Init_Msg_List => FND_API.G_FALSE,
231 P_LINE_RLTSHIP_Rec => P_LINE_RLTSHIP_Rec,
232 X_Return_Status => X_Return_Status ,
233 X_Msg_Count => X_Msg_Count,
234 X_Msg_Data => X_Msg_Data
235 );
236
237
238 --
239 -- End of API body
240 --
241
242 -- Standard check for p_commit
243 IF FND_API.to_Boolean( p_commit )
244 THEN
245 COMMIT WORK;
246 END IF;
247
248 -- Standard call to get message count and if count is 1, get message info.
249 FND_MSG_PUB.Count_And_Get
250 ( p_count => x_msg_count,
251 p_data => x_msg_data
252 );
253
254
255 EXCEPTION
256 WHEN FND_API.G_EXC_ERROR THEN
257 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
258 P_API_NAME => L_API_NAME
259 ,P_PKG_NAME => G_PKG_NAME
260 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
261 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
262 ,X_MSG_COUNT => X_MSG_COUNT
263 ,X_MSG_DATA => X_MSG_DATA
264 ,X_RETURN_STATUS => X_RETURN_STATUS);
265
266 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
267 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
268 P_API_NAME => L_API_NAME
269 ,P_PKG_NAME => G_PKG_NAME
270 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
271 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
272 ,X_MSG_COUNT => X_MSG_COUNT
273 ,X_MSG_DATA => X_MSG_DATA
274 ,X_RETURN_STATUS => X_RETURN_STATUS);
275
276 WHEN OTHERS THEN
277 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
278 P_API_NAME => L_API_NAME
279 ,P_PKG_NAME => G_PKG_NAME
280 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
281 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
282 ,X_MSG_COUNT => X_MSG_COUNT
283 ,X_MSG_DATA => X_MSG_DATA
284 ,X_RETURN_STATUS => X_RETURN_STATUS);
285
286
287 End Update_line_relationship;
288
289
290
291 -- *******************************************************
292 -- Start of Comments
293 -- *******************************************************
294 -- API Name: Delete_Line_Relationship
295 -- Type : Public
296 -- Pre-Req :
297 -- Parameters:
298 -- IN
299 -- p_api_version_number IN NUMBER Required
300 -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
301 -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
302 -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
303 -- P_Line_Rltship_Tbl IN Line_Rltship_Tbl_Type
304 -- End of Comments
305 --
306
307 PROCEDURE Delete_Line_Relationship(
308 P_Api_Version_Number IN NUMBER,
309 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
310 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
311 p_control_rec IN ASO_QUOTE_PUB.control_rec_type := ASO_QUOTE_PUB.G_MISS_Control_Rec,
312 P_Line_Rltship_Rec IN ASO_QUOTE_PUB.Line_Rltship_Rec_Type := ASO_QUOTE_PUB.G_MISS_line_rltship_rec,
313 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
314 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
315 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
316 )
317 IS
318 l_api_version_number NUMBER := 1.0;
319 l_api_name VARCHAR2(240) := 'DELETE_LINE_RELATIONSHIP';
320 BEGIN
321
322 -- Standard Start of API savepoint
323 SAVEPOINT DELETE_LINE_RELATIONSHIP_PUB;
324
325 -- Standard call to check for call compatibility.
326 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
327 p_api_version_number,
328 l_api_name,
329 G_PKG_NAME)
330 THEN
331 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
332 END IF;
333
334
335 -- Initialize message list if p_init_msg_list is set to TRUE.
336 IF FND_API.to_Boolean( p_init_msg_list )
337 THEN
338 FND_MSG_PUB.initialize;
339 END IF;
340
341
342 -- Initialize API return status to SUCCESS
343 x_return_status := FND_API.G_RET_STS_SUCCESS;
344 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
345 --
346 -- API body
347 --
348
349 -- ******************************************************************
350 -- Validate Environment
351 -- ******************************************************************
352 IF FND_GLOBAL.User_Id IS NULL
353 THEN
354 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
355 THEN
356 FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
357 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
358 FND_MSG_PUB.ADD;
359 END IF;
360 RAISE FND_API.G_EXC_ERROR;
361 END IF;
362
363 ASO_LINE_RLTSHIP_PVT.Delete_line_rltship(
364 P_Api_Version_Number => 1.0,
365 P_Init_Msg_List => FND_API.G_FALSE,
366 p_control_rec => p_control_rec,
367 P_LINE_RLTSHIP_Rec => P_LINE_RLTSHIP_Rec,
368 X_Return_Status => X_Return_Status ,
369 X_Msg_Count => X_Msg_Count,
370 X_Msg_Data => X_Msg_Data
371 );
372
373
374
375 --
376 -- End of API body
377 --
378
379 -- Standard check for p_commit
380 IF FND_API.to_Boolean( p_commit )
381 THEN
382 COMMIT WORK;
383 END IF;
384
385
386 -- Standard call to get message count and if count is 1, get message info.
387 FND_MSG_PUB.Count_And_Get
388 ( p_count => x_msg_count,
389 p_data => x_msg_data
390 );
391
392
393 EXCEPTION
394 WHEN FND_API.G_EXC_ERROR THEN
395 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
396 P_API_NAME => L_API_NAME
397 ,P_PKG_NAME => G_PKG_NAME
398 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
399 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
400 ,P_SQLCODE => SQLCODE
401 ,P_SQLERRM => SQLERRM
402 ,X_MSG_COUNT => X_MSG_COUNT
403 ,X_MSG_DATA => X_MSG_DATA
404 ,X_RETURN_STATUS => X_RETURN_STATUS);
405
406 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
407 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
408 P_API_NAME => L_API_NAME
409 ,P_PKG_NAME => G_PKG_NAME
410 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
411 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
412 ,P_SQLCODE => SQLCODE
413 ,P_SQLERRM => SQLERRM
414 ,X_MSG_COUNT => X_MSG_COUNT
415 ,X_MSG_DATA => X_MSG_DATA
416 ,X_RETURN_STATUS => X_RETURN_STATUS);
417
418 WHEN OTHERS THEN
419 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
420 P_API_NAME => L_API_NAME
421 ,P_PKG_NAME => G_PKG_NAME
422 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
423 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
424 ,P_SQLCODE => SQLCODE
425 ,P_SQLERRM => SQLERRM
426 ,X_MSG_COUNT => X_MSG_COUNT
427 ,X_MSG_DATA => X_MSG_DATA
428 ,X_RETURN_STATUS => X_RETURN_STATUS);
429
430
431 End Delete_line_relationship;
432
433
434 -- *******************************************************
435 -- Start of Comments
436 -- *******************************************************
437 -- API Name: Create_Header_Relationship
438 -- Type : Public
439 -- Pre-Req :
440 -- Parameters:
441 -- IN
442 -- p_api_version_number IN NUMBER Required
443 -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
444 -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
445 -- P_Header_Relationship_Rec IN Header_Relationship_Rec_Type
446 --
447
448 PROCEDURE Create_Header_Relationship(
449 P_Api_Version_Number IN NUMBER,
450 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
451 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
452 P_Header_Rltship_Rec IN ASO_QUOTE_PUB.Header_Rltship_Rec_Type := ASO_QUOTE_PUB.G_MISS_header_rltship_REC,
453 X_Header_rltship_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
454 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
455 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
456 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
457 )
458 IS
459 l_api_version_number NUMBER := 1.0;
460 l_api_name VARCHAR2(240) := 'CREATE_HEADER_RELATIONSHIP';
461 BEGIN
462 null;
463
464 -- Standard Start of API savepoint
465 SAVEPOINT CREATE_HEADER_RELATIONSHIP_PUB;
466
467 -- Standard call to check for call compatibility.
468 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
469 p_api_version_number,
470 l_api_name,
471 G_PKG_NAME)
472 THEN
473 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
474 END IF;
475
476
477 -- Initialize message list if p_init_msg_list is set to TRUE.
478 IF FND_API.to_Boolean( p_init_msg_list )
479 THEN
480 FND_MSG_PUB.initialize;
481 END IF;
482
483 -- Initialize API return status to SUCCESS
484 x_return_status := FND_API.G_RET_STS_SUCCESS;
485 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
486 --
487 -- API body
488 --
489
490 -- ******************************************************************
491 -- Validate Environment
492 -- ******************************************************************
493 IF FND_GLOBAL.User_Id IS NULL
494 THEN
495 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
496 THEN
497 FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
498 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
499 FND_MSG_PUB.ADD;
500 END IF;
501 RAISE FND_API.G_EXC_ERROR;
502 END IF;
503
504
505
506 ASO_HEADER_RLTSHIP_PVT.Create_header_rltship(
507 P_Api_Version_Number => 1.0,
508 P_Init_Msg_List => FND_API.G_FALSE ,
509 P_HEADER_RLTSHIP_Rec => P_HEADER_RLTSHIP_Rec ,
510 X_HEADER_RELATIONSHIP_ID => X_HEADER_RLTSHIP_ID ,
511 X_Return_Status => X_Return_Status ,
512 X_Msg_Count => X_Msg_Count,
513 X_Msg_Data => X_Msg_Data
514 );
515
516 --
517 -- End of API body
518 --
519
520 -- Standard check for p_commit
521 IF FND_API.to_Boolean( p_commit )
522 THEN
523 COMMIT WORK;
524 END IF;
525
526 FND_MSG_PUB.Count_And_Get
527 ( p_count => x_msg_count,
528 p_data => x_msg_data
529 );
530
531
532 EXCEPTION
533 WHEN FND_API.G_EXC_ERROR THEN
534 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
535 P_API_NAME => L_API_NAME
536 ,P_PKG_NAME => G_PKG_NAME
537 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
538 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
539 ,P_SQLCODE => SQLCODE
540 ,P_SQLERRM => SQLERRM
541 ,X_MSG_COUNT => X_MSG_COUNT
542 ,X_MSG_DATA => X_MSG_DATA
543 ,X_RETURN_STATUS => X_RETURN_STATUS);
544
545 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
546 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
547 P_API_NAME => L_API_NAME
548 ,P_PKG_NAME => G_PKG_NAME
549 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
550 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
551 ,P_SQLCODE => SQLCODE
552 ,P_SQLERRM => SQLERRM
553 ,X_MSG_COUNT => X_MSG_COUNT
554 ,X_MSG_DATA => X_MSG_DATA
555 ,X_RETURN_STATUS => X_RETURN_STATUS);
556
557 WHEN OTHERS THEN
558 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
559 P_API_NAME => L_API_NAME
560 ,P_PKG_NAME => G_PKG_NAME
561 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
562 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
563 ,P_SQLCODE => SQLCODE
564 ,P_SQLERRM => SQLERRM
565 ,X_MSG_COUNT => X_MSG_COUNT
566 ,X_MSG_DATA => X_MSG_DATA
567 ,X_RETURN_STATUS => X_RETURN_STATUS);
568 End Create_header_relationship;
569
570
571
572 -- *******************************************************
573 -- Start of Comments
574 -- *******************************************************
575 -- API Name: Update_Header_Relationship
576 -- Type : Public
577 -- Pre-Req :
578 -- Parameters:
579 -- IN
580 -- p_api_version_number IN NUMBER Required
581 -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
582 -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
583 -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
584 -- End of Comments
585 --
586 PROCEDURE Update_Header_Relationship(
587 P_Api_Version_Number IN NUMBER,
588 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
589 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
590 P_Header_Rltship_Rec IN ASO_QUOTE_PUB.Header_Rltship_Rec_Type := ASO_QUOTE_PUB.
591 G_MISS_header_rltship_REC,
592 X_header_relationship_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
593 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
594 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
595 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
596 )
597 IS
598 l_api_version_number NUMBER := 1.0;
599 l_api_name VARCHAR2(240) := 'UPDATE_HEADER_RELATIONSHIP';
600 BEGIN
601
602 -- Standard Start of API savepoint
603 SAVEPOINT UPDATE_HEADER_RELATIONSHIP_PUB;
604
605 -- Standard call to check for call compatibility.
606 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
607 p_api_version_number,
608 l_api_name,
609 G_PKG_NAME)
610 THEN
611 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
612 END IF;
613
614
615 -- Initialize message list if p_init_msg_list is set to TRUE.
616 IF FND_API.to_Boolean( p_init_msg_list )
617 THEN
618 FND_MSG_PUB.initialize;
619 END IF;
620
621
622 -- Initialize API return status to SUCCESS
623 x_return_status := FND_API.G_RET_STS_SUCCESS;
624 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
625 --
626 -- API body
627 --
628
629 -- ******************************************************************
630 -- Validate Environment
631 -- ******************************************************************
632 IF FND_GLOBAL.User_Id IS NULL
633 THEN
634 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
635 THEN
636 FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
637 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
638 FND_MSG_PUB.ADD;
639 END IF;
640 RAISE FND_API.G_EXC_ERROR;
641 END IF;
642
643
644
645 ASO_HEADER_RLTSHIP_PVT.Update_header_rltship(
646 P_Api_Version_Number => 1.0,
647 P_Init_Msg_List => FND_API.G_FALSE ,
648 P_HEADER_RLTSHIP_Rec => P_HEADER_RLTSHIP_Rec ,
649 X_Return_Status => X_Return_Status ,
650 X_Msg_Count => X_Msg_Count,
651 X_Msg_Data => X_Msg_Data
652 );
653
654
655 --
656 -- End of API body
657 --
658
659 -- Standard check for p_commit
660 IF FND_API.to_Boolean( p_commit )
661 THEN
662 COMMIT WORK;
663 END IF;
664
665
666
667 -- Standard call to get message count and if count is 1, get message info.
668 FND_MSG_PUB.Count_And_Get
669 ( p_count => x_msg_count,
670 p_data => x_msg_data
671 );
672
673 EXCEPTION
674 WHEN FND_API.G_EXC_ERROR THEN
675 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
676 P_API_NAME => L_API_NAME
677 ,P_PKG_NAME => G_PKG_NAME
678 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
679 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
680 ,P_SQLCODE => SQLCODE
681 ,P_SQLERRM => SQLERRM
682 ,X_MSG_COUNT => X_MSG_COUNT
683 ,X_MSG_DATA => X_MSG_DATA
684 ,X_RETURN_STATUS => X_RETURN_STATUS);
685
686 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
687 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
688 P_API_NAME => L_API_NAME
689 ,P_PKG_NAME => G_PKG_NAME
690 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
691 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
692 ,P_SQLCODE => SQLCODE
693 ,P_SQLERRM => SQLERRM
694 ,X_MSG_COUNT => X_MSG_COUNT
695 ,X_MSG_DATA => X_MSG_DATA
696 ,X_RETURN_STATUS => X_RETURN_STATUS);
697
698 WHEN OTHERS THEN
699 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
700 P_API_NAME => L_API_NAME
701 ,P_PKG_NAME => G_PKG_NAME
702 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
703 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
704 ,P_SQLCODE => SQLCODE
705 ,P_SQLERRM => SQLERRM
706 ,X_MSG_COUNT => X_MSG_COUNT
707 ,X_MSG_DATA => X_MSG_DATA
708 ,X_RETURN_STATUS => X_RETURN_STATUS);
709
710
711 End Update_header_relationship;
712
713
714 -- *******************************************************
715 -- Start of Comments
716 -- *******************************************************
717 -- API Name: Delete_Header_Relationship
718 -- Type : Public
719 -- Pre-Req :
720 -- Parameters:
721 -- IN
722 -- p_api_version_number IN NUMBER Required
723 -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
724 -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
725 -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
726 -- P_Header_Relationship_Rec IN Header_Relationship_Rec_Type
727 -- End of Comments
728 --
729 PROCEDURE Delete_Header_Relationship(
730 P_Api_Version_Number IN NUMBER,
731 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
732 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
733 P_Header_Rltship_Rec IN ASO_QUOTE_PUB.Header_Rltship_Rec_Type := ASO_QUOTE_PUB.
734 G_MISS_header_rltship_REC,
735 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
736 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
737 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
738 )
739 IS
740 l_api_version_number NUMBER := 1.0;
741 l_api_name VARCHAR2(240) := 'DELETE_HEADER_RELATIONSHIP';
742
743 BEGIN
744
745 -- Standard Start of API savepoint
746 SAVEPOINT DELETE_HEADER_RELATIONSHIP_PUB;
747
748 -- Standard call to check for call compatibility.
749 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
750 p_api_version_number,
751 l_api_name,
752 G_PKG_NAME)
753 THEN
754 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
755 END IF;
756
757
758 -- Initialize message list if p_init_msg_list is set to TRUE.
759 IF FND_API.to_Boolean( p_init_msg_list )
760 THEN
761 FND_MSG_PUB.initialize;
762 END IF;
763
764
765
766 -- Initialize API return status to SUCCESS
767 x_return_status := FND_API.G_RET_STS_SUCCESS;
768 --
769 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
770 -- API body
771 --
772
773 -- ******************************************************************
774 -- Validate Environment
775 -- ******************************************************************
776 IF FND_GLOBAL.User_Id IS NULL
777 THEN
778 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
779 THEN
780 FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
781 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
782 FND_MSG_PUB.ADD;
783 END IF;
784 RAISE FND_API.G_EXC_ERROR;
785 END IF;
786
787
788
789
790 ASO_HEADER_RLTSHIP_PVT.Delete_header_rltship(
791 P_Api_Version_Number => 1.0,
792 P_Init_Msg_List => FND_API.G_FALSE ,
793 P_HEADER_RLTSHIP_id => P_HEADER_RLTSHIP_Rec.header_relationship_id ,
794 X_Return_Status => X_Return_Status ,
795 X_Msg_Count => X_Msg_Count,
796 X_Msg_Data => X_Msg_Data
797 );
798
799 --
800 -- End of API body
801 --
802
803 -- Standard check for p_commit
804 IF FND_API.to_Boolean( p_commit )
805 THEN
806 COMMIT WORK;
807 END IF;
808
809
810 -- Standard call to get message count and if count is 1, get message info.
811 FND_MSG_PUB.Count_And_Get
812 ( p_count => x_msg_count,
813 p_data => x_msg_data
814 );
815
816 EXCEPTION
817 WHEN FND_API.G_EXC_ERROR THEN
818 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
819 P_API_NAME => L_API_NAME
820 ,P_PKG_NAME => G_PKG_NAME
821 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
822 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
823 ,X_MSG_COUNT => X_MSG_COUNT
824 ,X_MSG_DATA => X_MSG_DATA
825 ,X_RETURN_STATUS => X_RETURN_STATUS);
826
827 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
828 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
829 P_API_NAME => L_API_NAME
830 ,P_PKG_NAME => G_PKG_NAME
831 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
832 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
833 ,X_MSG_COUNT => X_MSG_COUNT
834 ,X_MSG_DATA => X_MSG_DATA
835 ,X_RETURN_STATUS => X_RETURN_STATUS);
836
837 WHEN OTHERS THEN
838 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
839 P_API_NAME => L_API_NAME
840 ,P_PKG_NAME => G_PKG_NAME
841 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
842 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
843 ,X_MSG_COUNT => X_MSG_COUNT
844 ,X_MSG_DATA => X_MSG_DATA
845 ,X_RETURN_STATUS => X_RETURN_STATUS);
846
847 End Delete_header_relationship;
848
849
850
851 -- *******************************************************
852 -- Start of Comments
853 -- *******************************************************
854 -- API Name: Create_Party_Relationship
855 -- Type : Public
856 -- Pre-Req :
857 -- Parameters:
858 -- IN
859 -- p_api_version_number IN NUMBER Required
860 -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
861 -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
862 -- End of Comments
863 --
864 PROCEDURE Create_Party_Relationship(
865 P_Api_Version_Number IN NUMBER,
866 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
867 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
868 P_Party_Rltship_Rec IN ASO_QUOTE_PUB.Party_Rltship_Rec_Type := ASO_QUOTE_PUB.G_MISS_party_rltship_REC,
869 X_party_relationship_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
870 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
871 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
872 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
873 )
874 IS
875 l_api_version_number NUMBER := 1.0;
876 l_api_name VARCHAR2(240) := 'CREATE_PARTY_RELATIONSHIP';
877 BEGIN
878
879 SAVEPOINT CREATE_PARTY_RELATIONSHIP_PUB;
880
881 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,p_api_version_number,l_api_name,G_PKG_NAME) THEN
882 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
883 END IF;
884
885
886 -- Initialize message list if p_init_msg_list is set to TRUE.
887 IF FND_API.to_Boolean( p_init_msg_list ) THEN
888 FND_MSG_PUB.initialize;
889 END IF;
890
891
892 -- Initialize API return status to SUCCESS
893 x_return_status := FND_API.G_RET_STS_SUCCESS;
894 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
895
896 --
897 -- API body
898 --
899
900 -- Validate Environment
901 IF FND_GLOBAL.User_Id IS NULL THEN
902 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
903 FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
904 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
905 FND_MSG_PUB.ADD;
906 END IF;
907 RAISE FND_API.G_EXC_ERROR;
908 END IF;
909
910
911
912 ASO_PARTY_RLTSHIP_PVT.Create_party_rltship(
913 P_Api_Version_Number => 1.0,
914 P_Init_Msg_List => FND_API.G_FALSE ,
915 P_PARTY_RLTSHIP_Rec => P_PARTY_RLTSHIP_Rec ,
916 X_PARTY_RELATIONSHIP_ID => X_PARTY_RELATIONSHIP_ID ,
917 X_Return_Status => X_Return_Status ,
918 X_Msg_Count => X_Msg_Count,
919 X_Msg_Data => X_Msg_Data
920 );
921
922 --
923 -- End of API body
924 --
925
926 -- Standard check for p_commit
927 IF FND_API.to_Boolean( p_commit ) THEN
928 COMMIT WORK;
929 END IF;
930
931
932
933 -- Standard call to get message count and if count is 1, get message info.
934 FND_MSG_PUB.Count_And_Get
935 ( p_count => x_msg_count,
936 p_data => x_msg_data
937 );
938
939 EXCEPTION
940 WHEN FND_API.G_EXC_ERROR THEN
941 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
942 P_API_NAME => L_API_NAME
943 ,P_PKG_NAME => G_PKG_NAME
944 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
945 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
946 ,X_MSG_COUNT => X_MSG_COUNT
947 ,X_MSG_DATA => X_MSG_DATA
948 ,X_RETURN_STATUS => X_RETURN_STATUS);
949
950 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
951 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
952 P_API_NAME => L_API_NAME
953 ,P_PKG_NAME => G_PKG_NAME
954 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
955 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
956 ,X_MSG_COUNT => X_MSG_COUNT
957 ,X_MSG_DATA => X_MSG_DATA
958 ,X_RETURN_STATUS => X_RETURN_STATUS);
959
960 WHEN OTHERS THEN
961 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
962 P_API_NAME => L_API_NAME
963 ,P_PKG_NAME => G_PKG_NAME
964 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
965 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
966 ,X_MSG_COUNT => X_MSG_COUNT
967 ,X_MSG_DATA => X_MSG_DATA
968 ,X_RETURN_STATUS => X_RETURN_STATUS);
969
970 End Create_party_relationship;
971
972
973
974 -- *******************************************************
975 -- Start of Comments
976 -- *******************************************************
977 -- API Name: Update_Party_Relationship
978 -- Type : Public
979 -- Pre-Req :
980 -- Parameters:
981 -- IN
982 -- p_api_version_number IN NUMBER Required
983 -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
984 -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
985 -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
986 -- P_Party_Relationship_Rec IN Party_Relationship_Rec_Type
987 -- Version : Current version 2.0
988 --
989 -- End of Comments
990 --
991 PROCEDURE Update_Party_Relationship(
992 P_Api_Version_Number IN NUMBER,
993 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
994 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
995 P_Party_Rltship_Rec IN ASO_QUOTE_PUB.Party_Rltship_Rec_Type := ASO_QUOTE_PUB.G_MISS_party_rltship_REC,
996 X_party_relationship_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
997 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
998 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
999 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1000 )
1001 IS
1002 l_api_version_number NUMBER := 1.0;
1003 l_api_name VARCHAR2(240) := 'UPDATE_PARTY_RELATIONSHIP';
1004 BEGIN
1005
1006 -- Standard Start of API savepoint
1007 SAVEPOINT UPDATE_PARTY_RELATIONSHIP_PUB;
1008
1009 IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number,l_api_name,G_PKG_NAME) THEN
1010 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1011 END IF;
1012
1013
1014 -- Initialize message list if p_init_msg_list is set to TRUE.
1015 IF FND_API.to_Boolean( p_init_msg_list ) THEN
1016 FND_MSG_PUB.initialize;
1017 END IF;
1018
1019
1020
1021 -- Initialize API return status to SUCCESS
1022 x_return_status := FND_API.G_RET_STS_SUCCESS;
1023 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
1024 --
1025 -- API body
1026 --
1027
1028 -- Validate Environment
1029 IF FND_GLOBAL.User_Id IS NULL THEN
1030 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1031 FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
1032 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1033 FND_MSG_PUB.ADD;
1034 END IF;
1035 RAISE FND_API.G_EXC_ERROR;
1036 END IF;
1037
1038 ASO_PARTY_RLTSHIP_PVT.Update_party_rltship(
1039 P_Api_Version_Number => 1.0,
1040 P_Init_Msg_List => FND_API.G_FALSE ,
1041 P_PARTY_RLTSHIP_Rec => P_PARTY_RLTSHIP_Rec ,
1042 X_Return_Status => X_Return_Status ,
1043 X_Msg_Count => X_Msg_Count,
1044 X_Msg_Data => X_Msg_Data
1045 );
1046
1047 --
1048 -- End of API body
1049 --
1050
1051 -- Standard check for p_commit
1052 IF FND_API.to_Boolean( p_commit )
1053 THEN
1054 COMMIT WORK;
1055 END IF;
1056
1057
1058 -- Debug Message
1059 --AS_UTILITY_PVT.Print(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
1060
1061
1062 -- Standard call to get message count and if count is 1, get message info.
1063 FND_MSG_PUB.Count_And_Get
1064 ( p_count => x_msg_count,
1065 p_data => x_msg_data
1066 );
1067
1068 EXCEPTION
1069 WHEN FND_API.G_EXC_ERROR THEN
1070 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1071 P_API_NAME => L_API_NAME
1072 ,P_PKG_NAME => G_PKG_NAME
1073 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1074 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
1075 ,X_MSG_COUNT => X_MSG_COUNT
1076 ,X_MSG_DATA => X_MSG_DATA
1077 ,X_RETURN_STATUS => X_RETURN_STATUS);
1078
1079 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1080 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1081 P_API_NAME => L_API_NAME
1082 ,P_PKG_NAME => G_PKG_NAME
1083 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1084 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
1085 ,X_MSG_COUNT => X_MSG_COUNT
1086 ,X_MSG_DATA => X_MSG_DATA
1087 ,X_RETURN_STATUS => X_RETURN_STATUS);
1088
1089 WHEN OTHERS THEN
1090 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1091 P_API_NAME => L_API_NAME
1092 ,P_PKG_NAME => G_PKG_NAME
1093 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
1094 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
1095 ,X_MSG_COUNT => X_MSG_COUNT
1096 ,X_MSG_DATA => X_MSG_DATA
1097 ,X_RETURN_STATUS => X_RETURN_STATUS);
1098
1099 End update_party_relationship;
1100
1101
1102
1103
1104 -- *******************************************************
1105 -- Start of Comments
1106 -- *******************************************************
1107 -- API Name: Delete_Party_Relationship
1108 -- Type : Public
1109 -- Pre-Req :
1110 -- Parameters:
1111 -- IN
1112 -- p_api_version_number IN NUMBER Required
1113 -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1114 -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1115 -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
1116 -- P_Party_Relationship_Rec IN Party_Relationship_Rec_Type
1117 --
1118 PROCEDURE Delete_Party_Relationship(
1119 P_Api_Version_Number IN NUMBER,
1120 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1121 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1122 P_Party_Rltship_Rec IN ASO_QUOTE_PUB.Party_Rltship_Rec_Type := ASO_QUOTE_PUB.G_MISS_party_rltship_REC,
1123 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1124 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1125 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1126 )
1127 IS
1128 l_api_version_number NUMBER := 1.0;
1129 l_api_name VARCHAR2(240) := 'DELETE_PARTY_RELATIONSHIP';
1130 BEGIN
1131
1132 -- Standard Start of API savepoint
1133 SAVEPOINT DELETE_PARTY_RELATIONSHIP_PUB;
1134
1135 -- Standard call to check for call compatibility.
1136 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1137 p_api_version_number,
1138 l_api_name,
1139 G_PKG_NAME)
1140 THEN
1141 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1142 END IF;
1143
1144
1145 -- Initialize message list if p_init_msg_list is set to TRUE.
1146 IF FND_API.to_Boolean( p_init_msg_list )
1147 THEN
1148 FND_MSG_PUB.initialize;
1149 END IF;
1150
1151
1152 -- Initialize API return status to SUCCESS
1153 x_return_status := FND_API.G_RET_STS_SUCCESS;
1154 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
1155 --
1156 -- API body
1157 --
1158
1159 -- Validate Environment
1160 IF FND_GLOBAL.User_Id IS NULL
1161 THEN
1162 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1163 THEN
1164 FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
1165 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1166 FND_MSG_PUB.ADD;
1167 END IF;
1168 RAISE FND_API.G_EXC_ERROR;
1169 END IF;
1170
1171 ASO_PARTY_RLTSHIP_PVT.Delete_party_rltship(
1172 P_Api_Version_Number => 1.0,
1173 P_Init_Msg_List => FND_API.G_FALSE ,
1174 P_PARTY_RLTSHIP_Rec => P_PARTY_RLTSHIP_Rec ,
1175 X_Return_Status => X_Return_Status ,
1176 X_Msg_Count => X_Msg_Count,
1177 X_Msg_Data => X_Msg_Data
1178 );
1179
1180 --
1181 -- End of API body
1182 --
1183
1184 -- Standard check for p_commit
1185 IF FND_API.to_Boolean( p_commit )
1186 THEN
1187 COMMIT WORK;
1188 END IF;
1189
1190
1191
1192
1193 -- Standard call to get message count and if count is 1, get message info.
1194 FND_MSG_PUB.Count_And_Get
1195 ( p_count => x_msg_count,
1196 p_data => x_msg_data
1197 );
1198
1199 EXCEPTION
1200 WHEN FND_API.G_EXC_ERROR THEN
1201 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1202 P_API_NAME => L_API_NAME
1203 ,P_PKG_NAME => G_PKG_NAME
1204 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1205 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
1206 ,X_MSG_COUNT => X_MSG_COUNT
1207 ,X_MSG_DATA => X_MSG_DATA
1208 ,X_RETURN_STATUS => X_RETURN_STATUS);
1209
1210 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1211 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1212 P_API_NAME => L_API_NAME
1213 ,P_PKG_NAME => G_PKG_NAME
1214 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1215 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
1216 ,X_MSG_COUNT => X_MSG_COUNT
1217 ,X_MSG_DATA => X_MSG_DATA
1218 ,X_RETURN_STATUS => X_RETURN_STATUS);
1219
1220 WHEN OTHERS THEN
1221 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1222 P_API_NAME => L_API_NAME
1223 ,P_PKG_NAME => G_PKG_NAME
1224 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
1225 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
1226 ,X_MSG_COUNT => X_MSG_COUNT
1227 ,X_MSG_DATA => X_MSG_DATA
1228 ,X_RETURN_STATUS => X_RETURN_STATUS);
1229
1230
1231 End Delete_party_relationship;
1232
1233
1234
1235 -- *******************************************************
1236 -- Start of Comments
1237 -- *******************************************************
1238 -- API Name: Create_Object_Relationship
1239 -- Type : Public
1240 -- Pre-Req :
1241 -- Parameters:
1242 -- IN
1243 -- p_api_version_number IN NUMBER Required
1244 -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1245 -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1246 -- P_Object_Relationship_Rec IN Object_Relationship_Rec_Type
1247 -- Version : Current version 2.0
1248 -- End of Comments
1249
1250 PROCEDURE Create_Object_Relationship(
1251 P_Api_Version_Number IN NUMBER,
1252 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1253 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1254 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1255 P_RELATED_OBJ_Rec IN ASO_quote_PUB.RELATED_OBJ_Rec_Type := ASO_quote_PUB.G_MISS_RELATED_OBJ_REC,
1256 X_related_object_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
1257 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1258 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1259 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1260 )
1261 IS
1262 l_api_version_number NUMBER := 1.0;
1263 l_api_name VARCHAR2(240) := 'CREATE_OBJECT_RELATIONSHIP';
1264 BEGIN
1265
1266
1267 -- Standard Start of API savepoint
1268 SAVEPOINT CREATE_OBJECT_RELATIONSHIP_PUB;
1269
1270 -- Standard call to check for call compatibility.
1271 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1272 p_api_version_number,
1273 l_api_name,
1274 G_PKG_NAME)
1275 THEN
1276 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1277 END IF;
1278
1279
1280 -- Initialize message list if p_init_msg_list is set to TRUE.
1281 IF FND_API.to_Boolean( p_init_msg_list )
1282 THEN
1283 FND_MSG_PUB.initialize;
1284 END IF;
1285
1286 -- Initialize API return status to SUCCESS
1287 x_return_status := FND_API.G_RET_STS_SUCCESS;
1288 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
1289 -- API body
1290
1291
1292 -- Validate Environment
1293 IF FND_GLOBAL.User_Id IS NULL
1294 THEN
1295 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1296 THEN
1297 FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
1298 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1299 FND_MSG_PUB.ADD;
1300 END IF;
1301 RAISE FND_API.G_EXC_ERROR;
1302 END IF;
1303 ASO_RELATED_OBJ_PVT.Create_related_obj(
1304 P_Api_Version_Number => 1.0,
1305 P_Init_Msg_List => FND_API.G_FALSE ,
1306 P_commit => P_commit,
1307 p_validation_level => p_validation_level,
1308 P_RELATED_OBJ_Rec => P_RELATED_OBJ_Rec ,
1309 X_RELATED_OBJECT_ID => X_RELATED_OBJECT_ID ,
1310 X_Return_Status => X_Return_Status ,
1311 X_Msg_Count => X_Msg_Count,
1312 X_Msg_Data => X_Msg_Data
1313 );
1314
1315
1316
1317 -- End of API body
1318
1319 -- Standard check for p_commit
1320 IF FND_API.to_Boolean( p_commit )
1321 THEN
1322 COMMIT WORK;
1323 END IF;
1324
1325
1326
1327
1328 -- Standard call to get message count and if count is 1, get message info.
1329 FND_MSG_PUB.Count_And_Get
1330 ( p_count => x_msg_count,
1331 p_data => x_msg_data
1332 );
1333
1334
1335 EXCEPTION
1336 WHEN FND_API.G_EXC_ERROR THEN
1337 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1338 P_API_NAME => L_API_NAME
1339 ,P_PKG_NAME => G_PKG_NAME
1340 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1341 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1342 ,P_SQLCODE => SQLCODE
1343 ,P_SQLERRM => SQLERRM
1344 ,X_MSG_COUNT => X_MSG_COUNT
1345 ,X_MSG_DATA => X_MSG_DATA
1346 ,X_RETURN_STATUS => X_RETURN_STATUS);
1347
1348 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1349 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1350 P_API_NAME => L_API_NAME
1351 ,P_PKG_NAME => G_PKG_NAME
1352 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1353 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1354 ,P_SQLCODE => SQLCODE
1355 ,P_SQLERRM => SQLERRM
1356 ,X_MSG_COUNT => X_MSG_COUNT
1357 ,X_MSG_DATA => X_MSG_DATA
1358 ,X_RETURN_STATUS => X_RETURN_STATUS);
1359
1360 WHEN OTHERS THEN
1361 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1362 P_API_NAME => L_API_NAME
1363 ,P_PKG_NAME => G_PKG_NAME
1364 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
1365 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1366 ,P_SQLCODE => SQLCODE
1367 ,P_SQLERRM => SQLERRM
1368 ,X_MSG_COUNT => X_MSG_COUNT
1369 ,X_MSG_DATA => X_MSG_DATA
1370 ,X_RETURN_STATUS => X_RETURN_STATUS);
1371
1372 End Create_object_relationship;
1373
1374
1375
1376
1377 -- *******************************************************
1378 -- Start of Comments
1379 -- *******************************************************
1380 -- API Name: Update_Object_Relationship
1381 -- Type : Public
1382 -- Pre-Req :
1383 -- Parameters:
1384 -- IN
1385 -- p_api_version_number IN NUMBER Required
1386 -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1387 -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1388 -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
1389 -- P_Object_Relationship_Rec IN Object_Relationship_Rec_Type
1390 -- Version : Current version 2.0
1391
1392 --
1393 -- End of Comments
1394 --
1395 PROCEDURE Update_Object_Relationship(
1396 P_Api_Version_Number IN NUMBER,
1397 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1398 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1399 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1400 P_RELATED_OBJ_Rec IN ASO_QUOTE_PUB.RELATED_OBJ_Rec_Type,
1401 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1402 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1403 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1404 )
1405 IS
1406 l_api_version_number NUMBER := 1.0;
1407 l_api_name VARCHAR2(240) := 'UPDATE_OBJECT_RELATIONSHIP';
1408 BEGIN
1409
1410
1411 -- Standard Start of API savepoint
1412 SAVEPOINT UPDATE_OBJECT_RELATIONSHIP_PUB;
1413
1414 -- Standard call to check for call compatibility.
1415 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1416 p_api_version_number,
1417 l_api_name,
1418 G_PKG_NAME)
1419 THEN
1420 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1421 END IF;
1422
1423
1424 -- Initialize message list if p_init_msg_list is set to TRUE.
1425 IF FND_API.to_Boolean( p_init_msg_list )
1426 THEN
1427 FND_MSG_PUB.initialize;
1428 END IF;
1429
1430
1431 -- Initialize API return status to SUCCESS
1432 x_return_status := FND_API.G_RET_STS_SUCCESS;
1433 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
1434 --
1435 -- API body
1436 --
1437
1438
1439 -- ******************************************************************
1440 -- Validate Environment
1441 -- ******************************************************************
1442 IF FND_GLOBAL.User_Id IS NULL
1443 THEN
1444 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1445 THEN
1446 FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
1447 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1448 FND_MSG_PUB.ADD;
1449 END IF;
1450 RAISE FND_API.G_EXC_ERROR;
1451 END IF;
1452
1453
1454
1455 ASO_RELATED_OBJ_PVT.Update_related_obj(
1456 P_Api_Version_Number => 1.0,
1457 P_Init_Msg_List => FND_API.G_FALSE ,
1458 P_commit => P_commit,
1459 p_validation_level => p_validation_level,
1460 P_RELATED_OBJ_Rec => P_RELATED_OBJ_Rec,
1461 X_Return_Status => X_Return_Status ,
1462 X_Msg_Count => X_Msg_Count,
1463 X_Msg_Data => X_Msg_Data
1464 );
1465
1466
1467 --
1468 -- End of API body
1469 --
1470
1471 -- Standard check for p_commit
1472 IF FND_API.to_Boolean( p_commit )
1473 THEN
1474 COMMIT WORK;
1475 END IF;
1476
1477
1478 -- Standard call to get message count and if count is 1, get message info.
1479 FND_MSG_PUB.Count_And_Get
1480 ( p_count => x_msg_count,
1481 p_data => x_msg_data
1482 );
1483
1484
1485 EXCEPTION
1486 WHEN FND_API.G_EXC_ERROR THEN
1487 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1488 P_API_NAME => L_API_NAME
1489 ,P_PKG_NAME => G_PKG_NAME
1490 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1491 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1492 ,P_SQLCODE => SQLCODE
1493 ,P_SQLERRM => SQLERRM
1494 ,X_MSG_COUNT => X_MSG_COUNT
1495 ,X_MSG_DATA => X_MSG_DATA
1496 ,X_RETURN_STATUS => X_RETURN_STATUS);
1497
1498 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1499 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1500 P_API_NAME => L_API_NAME
1501 ,P_PKG_NAME => G_PKG_NAME
1502 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1503 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1504 ,P_SQLCODE => SQLCODE
1505 ,P_SQLERRM => SQLERRM
1506 ,X_MSG_COUNT => X_MSG_COUNT
1507 ,X_MSG_DATA => X_MSG_DATA
1508 ,X_RETURN_STATUS => X_RETURN_STATUS);
1509
1510 WHEN OTHERS THEN
1511 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1512 P_API_NAME => L_API_NAME
1513 ,P_PKG_NAME => G_PKG_NAME
1514 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
1515 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1516 ,P_SQLCODE => SQLCODE
1517 ,P_SQLERRM => SQLERRM
1518 ,X_MSG_COUNT => X_MSG_COUNT
1519 ,X_MSG_DATA => X_MSG_DATA
1520 ,X_RETURN_STATUS => X_RETURN_STATUS);
1521
1522 End Update_object_relationship;
1523
1524
1525
1526 -- *******************************************************
1527 -- Start of Comments
1528 -- *******************************************************
1529 -- API Name: DELETE_OBJECT_RELATIONSHIP
1530 -- Type : Public
1531 -- Pre-Req :
1532 -- Parameters:
1533 -- IN
1534 -- p_api_version_number IN NUMBER Required
1535 -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1536 -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1537 -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
1538 -- P_Object_Relationship_Rec IN Object_Relationship_Rec_Type
1539 -- x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1540 -- Version : Current version 2.0
1541 --
1542 -- End of Comments
1543 --
1544 PROCEDURE DELETE_OBJECT_RELATIONSHIP(
1545 P_Api_Version_Number IN NUMBER,
1546 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1547 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1548 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1549 P_RELATED_OBJ_Rec IN ASO_QUOTE_PUB.RELATED_OBJ_Rec_Type,
1550 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1551 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1552 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1553 )
1554 IS
1555 l_api_version_number NUMBER := 1.0;
1556 l_api_name VARCHAR2(240) := 'DELETE_OBJECT_RELATIONSHIP';
1557 BEGIN
1558
1559 -- Standard Start of API savepoint
1560 SAVEPOINT DELETE_OBJECT_RELATIONSHIP_PUB;
1561
1562 -- Standard call to check for call compatibility.
1563 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1564 p_api_version_number,
1565 l_api_name,
1566 G_PKG_NAME)
1567 THEN
1568 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1569 END IF;
1570
1571
1572 -- Initialize message list if p_init_msg_list is set to TRUE.
1573 IF FND_API.to_Boolean( p_init_msg_list )
1574 THEN
1575 FND_MSG_PUB.initialize;
1576 END IF;
1577
1578
1579 -- Initialize API return status to SUCCESS
1580 x_return_status := FND_API.G_RET_STS_SUCCESS;
1581 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
1582 --
1583 -- API body
1584 --
1585
1586 -- ******************************************************************
1587 -- Validate Environment
1588 -- ******************************************************************
1589 IF FND_GLOBAL.User_Id IS NULL
1590 THEN
1591 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1592 THEN
1593 FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
1594 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1595 FND_MSG_PUB.ADD;
1596 END IF;
1597 RAISE FND_API.G_EXC_ERROR;
1598 END IF;
1599
1600
1601
1602 ASO_RELATED_OBJ_PVT.Delete_related_obj(
1603 P_Api_Version_Number => 1.0,
1604 P_Init_Msg_List => FND_API.G_FALSE ,
1605 P_commit => P_commit,
1606 p_validation_level => p_validation_level,
1607 P_RELATED_OBJ_Rec => P_RELATED_OBJ_Rec ,
1608 X_Return_Status => X_Return_Status ,
1609 X_Msg_Count => X_Msg_Count,
1610 X_Msg_Data => X_Msg_Data
1611 );
1612
1613 --
1614 -- End of API body
1615 --
1616
1617 -- Standard check for p_commit
1618 IF FND_API.to_Boolean( p_commit )
1619 THEN
1620 COMMIT WORK;
1621 END IF;
1622
1623
1624
1625
1626 -- Standard call to get message count and if count is 1, get message info.
1627 FND_MSG_PUB.Count_And_Get
1628 ( p_count => x_msg_count,
1629 p_data => x_msg_data);
1630
1631 EXCEPTION
1632 WHEN FND_API.G_EXC_ERROR THEN
1633 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1634 P_API_NAME => L_API_NAME
1635 ,P_PKG_NAME => G_PKG_NAME
1636 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1637 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1638 ,P_SQLCODE => SQLCODE
1639 ,P_SQLERRM => SQLERRM
1640 ,X_MSG_COUNT => X_MSG_COUNT
1641 ,X_MSG_DATA => X_MSG_DATA
1642 ,X_RETURN_STATUS => X_RETURN_STATUS);
1643
1644 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1645 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1646 P_API_NAME => L_API_NAME
1647 ,P_PKG_NAME => G_PKG_NAME
1648 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1649 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1650 ,P_SQLCODE => SQLCODE
1651 ,P_SQLERRM => SQLERRM
1652 ,X_MSG_COUNT => X_MSG_COUNT
1653 ,X_MSG_DATA => X_MSG_DATA
1654 ,X_RETURN_STATUS => X_RETURN_STATUS);
1655
1656 WHEN OTHERS THEN
1657 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1658 P_API_NAME => L_API_NAME
1659 ,P_PKG_NAME => G_PKG_NAME
1660 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
1661 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1662 ,P_SQLCODE => SQLCODE
1663 ,P_SQLERRM => SQLERRM
1664 ,X_MSG_COUNT => X_MSG_COUNT
1665 ,X_MSG_DATA => X_MSG_DATA
1666 ,X_RETURN_STATUS => X_RETURN_STATUS);
1667
1668 End DELETE_OBJECT_RELATIONSHIP;
1669
1670
1671 -- *******************************************************
1672 -- Start of Comments
1673 -- *******************************************************
1674 -- API Name: Create_Price_Adj_Relationship
1675 -- Type : Public
1676 -- Pre-Req :
1677 -- Parameters:
1678 -- IN
1679 -- p_api_version_number IN NUMBER Required
1680 -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1681 -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1682 -- P_Price_Adj_Rltship_Rec IN Price_Adj_Rltship_Rec_Type
1683 -- Version : Current version 2.0
1684 -- End of Comments
1685 --
1686 PROCEDURE Create_Price_Adj_Rltship(
1687 P_Api_Version_Number IN NUMBER,
1688 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1689 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1690 P_Price_Adj_Rltship_Rec IN ASO_QUOTE_PUB.Price_Adj_Rltship_Rec_Type := ASO_QUOTE_PUB.G_MISS_Price_Adj_Rltship_REC,
1691 X_adj_relationship_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
1692 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1693 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1694 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1695 )
1696
1697 IS
1698 l_api_version_number NUMBER := 1.0;
1699 l_api_name VARCHAR2(240) := 'CREATE_Price_Adj_RELATIONSHIP';
1700 BEGIN
1701 -- Standard Start of API savepoint
1702 SAVEPOINT CREATE_PRICE_ADJ_RLTSHIP_PUB;
1703
1704 -- Standard call to check for call compatibility.
1705 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1706 p_api_version_number,
1707 l_api_name,
1708 G_PKG_NAME)
1709 THEN
1710 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1711 END IF;
1712
1713
1714 -- Initialize message list if p_init_msg_list is set to TRUE.
1715 IF FND_API.to_Boolean( p_init_msg_list )
1716 THEN
1717 FND_MSG_PUB.initialize;
1718 END IF;
1719
1720
1721 -- Initialize API return status to SUCCESS
1722 x_return_status := FND_API.G_RET_STS_SUCCESS;
1723 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
1724 --
1725 -- API body
1726 --
1727
1728 -- ******************************************************************
1729 -- Validate Environment
1730 -- ******************************************************************
1731 IF FND_GLOBAL.User_Id IS NULL
1732 THEN
1733 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1734 THEN
1735 FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
1736 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1737 FND_MSG_PUB.ADD;
1738 END IF;
1739 RAISE FND_API.G_EXC_ERROR;
1740 END IF;
1741
1742
1743 ASO_PRICE_ADJ_RLTSHIP_PVT.Create_price_adj_rltship(
1744 P_Api_Version_Number => 1.0,
1745 P_Init_Msg_List => FND_API.G_FALSE ,
1746 p_commit => p_commit,
1747 P_PRICE_ADJ_RLTSHIP_Rec => P_PRICE_ADJ_RLTSHIP_Rec ,
1748 X_ADJ_RELATIONSHIP_ID => X_ADJ_RELATIONSHIP_ID ,
1749 X_Return_Status => X_Return_Status ,
1750 X_Msg_Count => X_Msg_Count,
1751 X_Msg_Data => X_Msg_Data
1752 );
1753
1754 --
1755 -- End of API body
1756 --
1757
1758 -- Standard check for p_commit
1759 IF FND_API.to_Boolean( p_commit )
1760 THEN
1761 COMMIT WORK;
1762 END IF;
1763
1764
1765 -- Standard call to get message count and if count is 1, get message info.
1766 FND_MSG_PUB.Count_And_Get
1767 ( p_count => x_msg_count,
1768 p_data => x_msg_data
1769 );
1770
1771
1772 EXCEPTION
1773 WHEN FND_API.G_EXC_ERROR THEN
1774 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1775 P_API_NAME => L_API_NAME
1776 ,P_PKG_NAME => G_PKG_NAME
1777 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1778 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
1779 ,X_MSG_COUNT => X_MSG_COUNT
1780 ,X_MSG_DATA => X_MSG_DATA
1781 ,X_RETURN_STATUS => X_RETURN_STATUS);
1782
1783 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1784 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1785 P_API_NAME => L_API_NAME
1786 ,P_PKG_NAME => G_PKG_NAME
1787 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1788 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
1789 ,X_MSG_COUNT => X_MSG_COUNT
1790 ,X_MSG_DATA => X_MSG_DATA
1791 ,X_RETURN_STATUS => X_RETURN_STATUS);
1792
1793 WHEN OTHERS THEN
1794 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1795 P_API_NAME => L_API_NAME
1796 ,P_PKG_NAME => G_PKG_NAME
1797 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
1798 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
1799 ,X_MSG_COUNT => X_MSG_COUNT
1800 ,X_MSG_DATA => X_MSG_DATA
1801 ,X_RETURN_STATUS => X_RETURN_STATUS);
1802
1803
1804 END;
1805
1806
1807
1808 -- *******************************************************
1809 -- Start of Comments
1810 -- *******************************************************
1811 -- API Name: Update_Price_Adj_Relationship
1812 -- Type : Public
1813 -- Pre-Req :
1814 -- Parameters:
1815 -- IN
1816 -- p_api_version_number IN NUMBER Required
1817 -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1818 -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1819 -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
1820 --
1821 PROCEDURE Update_Price_Adj_Rltship(
1822 P_Api_Version_Number IN NUMBER,
1823 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1824 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1825 P_Price_Adj_Rltship_Rec IN ASO_QUOTE_PUB.Price_Adj_Rltship_Rec_Type := ASO_QUOTE_PUB.G_MISS_Price_Adj_Rltship_REC,
1826 X_adj_relationship_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
1827 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1828 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1829 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1830 )
1831 IS
1832 l_api_version_number NUMBER := 1.0;
1833 l_api_name VARCHAR2(240) := 'UPDATE_Price_Adj_RELATIONSHIP';
1834 BEGIN
1835 -- Standard Start of API savepoint
1836 SAVEPOINT UPdate_PRICE_ADJ_RLTSHIP_PUB;
1837
1838 -- Standard call to check for call compatibility.
1839 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1840 p_api_version_number,
1841 l_api_name,
1842 G_PKG_NAME)
1843 THEN
1844 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1845 END IF;
1846
1847
1848 -- Initialize message list if p_init_msg_list is set to TRUE.
1849 IF FND_API.to_Boolean( p_init_msg_list )
1850 THEN
1851 FND_MSG_PUB.initialize;
1852 END IF;
1853
1854
1855 -- Initialize API return status to SUCCESS
1856 x_return_status := FND_API.G_RET_STS_SUCCESS;
1857 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
1858 --
1859 -- API body
1860 --
1861
1862 -- ******************************************************************
1863 -- Validate Environment
1864 -- ******************************************************************
1865 IF FND_GLOBAL.User_Id IS NULL
1866 THEN
1867 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1868 THEN
1869 FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
1870 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1871 FND_MSG_PUB.ADD;
1872 END IF;
1873 RAISE FND_API.G_EXC_ERROR;
1874 END IF;
1875
1876
1877 ASO_PRICE_ADJ_RLTSHIP_PVT.Update_price_adj_rltship(
1878 P_Api_Version_Number => 1.0,
1879 P_Init_Msg_List => FND_API.G_FALSE ,
1880 p_commit => p_commit,
1881 P_PRICE_ADJ_RLTSHIP_Rec => P_PRICE_ADJ_RLTSHIP_Rec ,
1882 X_Return_Status => X_Return_Status ,
1883 X_Msg_Count => X_Msg_Count,
1884 X_Msg_Data => X_Msg_Data
1885 );
1886
1887 --
1888 -- End of API body
1889 --
1890
1891 -- Standard check for p_commit
1892 IF FND_API.to_Boolean( p_commit )
1893 THEN
1894 COMMIT WORK;
1895 END IF;
1896
1897
1898 -- Standard call to get message count and if count is 1, get message info.
1899 FND_MSG_PUB.Count_And_Get
1900 ( p_count => x_msg_count,
1901 p_data => x_msg_data
1902 );
1903
1904
1905 EXCEPTION
1906 WHEN FND_API.G_EXC_ERROR THEN
1907 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1908 P_API_NAME => L_API_NAME
1909 ,P_PKG_NAME => G_PKG_NAME
1910 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1911 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
1912 ,X_MSG_COUNT => X_MSG_COUNT
1913 ,X_MSG_DATA => X_MSG_DATA
1914 ,X_RETURN_STATUS => X_RETURN_STATUS);
1915
1916 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1917 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1918 P_API_NAME => L_API_NAME
1919 ,P_PKG_NAME => G_PKG_NAME
1920 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1921 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
1922 ,X_MSG_COUNT => X_MSG_COUNT
1923 ,X_MSG_DATA => X_MSG_DATA
1924 ,X_RETURN_STATUS => X_RETURN_STATUS);
1925
1926 WHEN OTHERS THEN
1927 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1928 P_API_NAME => L_API_NAME
1929 ,P_PKG_NAME => G_PKG_NAME
1930 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
1931 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
1932 ,X_MSG_COUNT => X_MSG_COUNT
1933 ,X_MSG_DATA => X_MSG_DATA
1934 ,X_RETURN_STATUS => X_RETURN_STATUS);
1935
1936 END;
1937
1938
1939
1940 -- *******************************************************
1941 -- Start of Comments
1942 -- *******************************************************
1943 -- API Name: Delete_Price_Adj__Relationship
1944 -- Type : Public
1945 -- Pre-Req :
1946 -- Parameters:
1947 -- IN
1948 -- p_api_version_number IN NUMBER Required
1949 -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1950 -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1951 -- p_identity_salesforce_id IN NUMBER Optional Default = NUL
1952 -- P_Price_Adj_Rltship_Rec IN Price_Adj_Rltship_Rec_Type
1953 -- End of Comments
1954 --
1955 PROCEDURE Delete_Price_Adj_Rltship(
1956 P_Api_Version_Number IN NUMBER,
1957 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1958 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1959 P_Price_Adj_Rltship_Rec IN ASO_QUOTE_PUB.Price_Adj_Rltship_Rec_Type := ASO_QUOTE_PUB.G_MISS_Price_Adj_Rltship_REC,
1960 X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1961 X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1962 X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1963 )
1964
1965 IS
1966 l_api_version_number NUMBER := 1.0;
1967 l_api_name VARCHAR2(240) := 'DELETE_Price_Adj_RELATIONSHIP';
1968 BEGIN
1969 -- Standard Start of API savepoint
1970 SAVEPOINT DELETE_PRICE_ADJ_RLTSHIP_PUB;
1971
1972 -- Standard call to check for call compatibility.
1973 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1974 p_api_version_number,
1975 l_api_name,
1976 G_PKG_NAME)
1977 THEN
1978 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1979 END IF;
1980
1981
1982 -- Initialize message list if p_init_msg_list is set to TRUE.
1983 IF FND_API.to_Boolean( p_init_msg_list )
1984 THEN
1985 FND_MSG_PUB.initialize;
1986 END IF;
1987
1988 -- Initialize API return status to SUCCESS
1989 x_return_status := FND_API.G_RET_STS_SUCCESS;
1990 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
1991 --
1992 -- API body
1993 --
1994
1995 -- ******************************************************************
1996 -- Validate Environment
1997 -- ******************************************************************
1998 IF FND_GLOBAL.User_Id IS NULL
1999 THEN
2000 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2001 THEN
2002 FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
2003 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
2004 FND_MSG_PUB.ADD;
2005 END IF;
2006 RAISE FND_API.G_EXC_ERROR;
2007 END IF;
2008
2009
2010 ASO_PRICE_ADJ_RLTSHIP_PVT.Delete_price_adj_rltship(
2011 P_Api_Version_Number => 1.0,
2012 P_Init_Msg_List => FND_API.G_FALSE ,
2013 p_commit => p_commit,
2014 P_PRICE_ADJ_RLTSHIP_Rec => P_PRICE_ADJ_RLTSHIP_Rec ,
2015 X_Return_Status => X_Return_Status ,
2016 X_Msg_Count => X_Msg_Count,
2017 X_Msg_Data => X_Msg_Data
2018 );
2019
2020 --
2021 -- End of API body
2022 --
2023
2024 -- Standard check for p_commit
2025 IF FND_API.to_Boolean( p_commit )
2026 THEN
2027 COMMIT WORK;
2028 END IF;
2029
2030
2031 -- Standard call to get message count and if count is 1, get message info.
2032 FND_MSG_PUB.Count_And_Get
2033 ( p_count => x_msg_count,
2034 p_data => x_msg_data
2035 );
2036
2037
2038 EXCEPTION
2039 WHEN FND_API.G_EXC_ERROR THEN
2040 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
2041 P_API_NAME => L_API_NAME
2042 ,P_PKG_NAME => G_PKG_NAME
2043 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2044 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
2045 ,X_MSG_COUNT => X_MSG_COUNT
2046 ,X_MSG_DATA => X_MSG_DATA
2047 ,X_RETURN_STATUS => X_RETURN_STATUS);
2048
2049 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2050 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
2051 P_API_NAME => L_API_NAME
2052 ,P_PKG_NAME => G_PKG_NAME
2053 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2054 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
2055 ,X_MSG_COUNT => X_MSG_COUNT
2056 ,X_MSG_DATA => X_MSG_DATA
2057 ,X_RETURN_STATUS => X_RETURN_STATUS);
2058
2059 WHEN OTHERS THEN
2060 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
2061 P_API_NAME => L_API_NAME
2062 ,P_PKG_NAME => G_PKG_NAME
2063 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
2064 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
2065 ,X_MSG_COUNT => X_MSG_COUNT
2066 ,X_MSG_DATA => X_MSG_DATA
2067 ,X_RETURN_STATUS => X_RETURN_STATUS);
2068
2069 END;
2070
2071
2072
2073 END ASO_RLTSHIP_PUB;