17:
18: Procedure Get_service_attributes
19: (
20: P_Api_Version_Number IN Number,
21: P_init_msg_list IN Varchar2 := FND_API.G_FALSE,
22: P_Qte_Line_Rec IN ASO_QUOTE_PUB.Qte_Line_Rec_Type,
23: P_Qte_Line_Dtl_tbl IN ASO_QUOTE_PUB.Qte_Line_Dtl_tbl_Type,
24: X_msg_Count OUT NOCOPY /* file.sql.39 change */ Number,
25: X_msg_Data OUT NOCOPY /* file.sql.39 change */ Varchar2,
106:
107: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
108:
109: -- Standard call to check for call compatibility.
110: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
111: p_api_version_number,
112: l_api_name,
113: G_PKG_NAME)
114: THEN
111: p_api_version_number,
112: l_api_name,
113: G_PKG_NAME)
114: THEN
115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
116: END IF;
117:
118:
119: -- Initialize message list if p_init_msg_list is set to TRUE.
116: END IF;
117:
118:
119: -- Initialize message list if p_init_msg_list is set to TRUE.
120: IF FND_API.to_Boolean( p_init_msg_list )
121: THEN
122: FND_MSG_PUB.initialize;
123: END IF;
124:
124:
125: -- Debug Message
126:
127: -- Initialize API return status to SUCCESS
128: x_return_status := FND_API.G_RET_STS_SUCCESS;
129:
130: --
131: -- API body
132: --
141: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
142: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
143: FND_MSG_PUB.ADD;
144: END IF;
145: RAISE FND_API.G_EXC_ERROR;
146: END IF;
147: OPEN C_cust_id(P_Qte_Line_rec.quote_header_id);
148: FETCH C_cust_id INTO l_cust_account_id,lh_end_cust_account_id; -- ER 8647883
149:
172: END IF;
173:
174: IF C_qln%NOTFOUND THEN
175: CLOSE C_qln;
176: x_return_status := FND_API.G_RET_STS_ERROR;
177: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
178: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_INFO');
179: FND_MESSAGE.Set_Token('COLUMN','SERVICE_REF_LINE_ID', FALSE);
180: FND_MSG_PUB.Add;
178: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_INFO');
179: FND_MESSAGE.Set_Token('COLUMN','SERVICE_REF_LINE_ID', FALSE);
180: FND_MSG_PUB.Add;
181: END IF;
182: raise FND_API.G_EXC_ERROR;
183: ELSE
184: CLOSE C_qln;
185: OPEN C_item1( l_inventory_item_id,l_organization_id);
186: FETCH C_item1 INTO l_serviceable_flag;
190: END IF;
191:
192: IF C_item1%NOTFOUND OR l_serviceable_flag <> 'Y' THEN
193: CLOSE C_item1;
194: x_return_status := FND_API.G_RET_STS_ERROR;
195: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
196: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO1');
197: --FND_MESSAGE.Set_Token('COLUMN','SERVICE_REF_LINE_ID', FALSE);
198: FND_MSG_PUB.Add;
196: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO1');
197: --FND_MESSAGE.Set_Token('COLUMN','SERVICE_REF_LINE_ID', FALSE);
198: FND_MSG_PUB.Add;
199: END IF;
200: raise FND_API.G_EXC_ERROR;
201:
202: END IF;
203: CLOSE C_item1;
204:
232: aso_debug_pub.add('Get Service Attr:ref code QUOTE after Is Service '||l_Available_YN);
233: END IF;
234:
235: IF l_Available_YN = 'N' THEN
236: x_return_status := FND_API.G_RET_STS_ERROR;
237: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
238: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO2');
239: --FND_MESSAGE.Set_Token('COLUMN','SERVICE_REF_LINE_ID', FALSE);
240: FND_MSG_PUB.Add;
238: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO2');
239: --FND_MESSAGE.Set_Token('COLUMN','SERVICE_REF_LINE_ID', FALSE);
240: FND_MSG_PUB.Add;
241: END IF;
242: raise FND_API.G_EXC_ERROR;
243: END IF;
244: END IF;
245: ELSIF P_Qte_Line_Dtl_tbl(i).SERVICE_REF_TYPE_CODE = 'CUSTOMER_PRODUCT' THEN
246:
258: OPEN C_cs_item( P_Qte_Line_Dtl_tbl(i).SERVICE_REF_LINE_ID, l_cs_org_id);
259: FETCH C_cs_item INTO l_inventory_item_id;
260: IF C_cs_item%NOTFOUND THEN
261: CLOSE C_cs_item;
262: x_return_status := FND_API.G_RET_STS_ERROR;
263: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
264: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO3');
265: --FND_MESSAGE.Set_Token('COLUMN','INSTALLBASE', FALSE);
266: FND_MSG_PUB.Add;
264: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO3');
265: --FND_MESSAGE.Set_Token('COLUMN','INSTALLBASE', FALSE);
266: FND_MSG_PUB.Add;
267: END IF;
268: raise FND_API.G_EXC_ERROR;
269: END IF;
270: CLOSE C_cs_item;
271:
272: /*** Start: BugNo 8647883: R12.1.2 Service reference SUN ER ***/
308: p_check_service_rec => l_check_service_rec,
309: X_Available_YN => l_Available_YN
310: );
311: IF l_Available_YN = 'N' THEN
312: x_return_status := FND_API.G_RET_STS_ERROR;
313: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
314: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO2');
315: --FND_MESSAGE.Set_Token('COLUMN','SERVICE_REF_LINE_ID', FALSE);
316: FND_MSG_PUB.Add;
314: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO2');
315: --FND_MESSAGE.Set_Token('COLUMN','SERVICE_REF_LINE_ID', FALSE);
316: FND_MSG_PUB.Add;
317: END IF;
318: raise FND_API.G_EXC_ERROR;
319: END IF;
320: -- END IF;
321: ELSIF P_Qte_Line_Dtl_tbl(i).SERVICE_REF_TYPE_CODE = 'ORDER' THEN
322:
333: OPEN C_ord_item( P_Qte_Line_Dtl_tbl(i).SERVICE_REF_LINE_ID);
334: FETCH C_ord_item INTO l_inventory_item_id;
335: IF C_ord_item%NOTFOUND THEN
336: CLOSE C_ord_item;
337: x_return_status := FND_API.G_RET_STS_ERROR;
338: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
339: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO3');
340: --FND_MESSAGE.Set_Token('COLUMN','ORDER_LINE_ID', FALSE);
341: FND_MSG_PUB.Add;
339: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO3');
340: --FND_MESSAGE.Set_Token('COLUMN','ORDER_LINE_ID', FALSE);
341: FND_MSG_PUB.Add;
342: END IF;
343: raise FND_API.G_EXC_ERROR;
344: END IF;
345: CLOSE C_ord_item;
346: l_check_service_rec.product_item_id := l_inventory_item_id;
347: l_check_service_rec.service_item_id := P_Qte_Line_rec.inventory_item_id;
355: p_check_service_rec => l_check_service_rec,
356: X_Available_YN => l_Available_YN
357: );
358: IF l_Available_YN = 'N' THEN
359: x_return_status := FND_API.G_RET_STS_ERROR;
360: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
361: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO2');
362: --FND_MESSAGE.Set_Token('COLUMN','SERVICE_REF_LINE_ID', FALSE);
363: FND_MSG_PUB.Add;
361: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO2');
362: --FND_MESSAGE.Set_Token('COLUMN','SERVICE_REF_LINE_ID', FALSE);
363: FND_MSG_PUB.Add;
364: END IF;
365: raise FND_API.G_EXC_ERROR;
366: END IF;
367: --END IF;
368: /*** Start: BugNo 8647883: R12.1.2 Service reference SUN ER ***/
369: ELSIF P_Qte_Line_Dtl_tbl(i).SERVICE_REF_TYPE_CODE = 'PRODUCT_CATALOG' THEN
411: p_check_service_rec => l_check_service_rec,
412: X_Available_YN => l_Available_YN
413: );
414: IF l_Available_YN = 'N' THEN
415: x_return_status := FND_API.G_RET_STS_ERROR;
416: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
417: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO2');
418: FND_MSG_PUB.Add;
419: END IF;
416: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
417: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO2');
418: FND_MSG_PUB.Add;
419: END IF;
420: raise FND_API.G_EXC_ERROR;
421: END IF;
422: /*** End: BugNo 8647883: R12.1.2 Service reference SUN ER ***/
423: END IF;-- If Service_ref_type_code
424:
428:
429:
430:
431: -- Check return status from the above procedure call
432: IF x_return_status = FND_API.G_RET_STS_ERROR then
433: raise FND_API.G_EXC_ERROR;
434: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
435: raise FND_API.G_EXC_UNEXPECTED_ERROR;
436: END IF;
429:
430:
431: -- Check return status from the above procedure call
432: IF x_return_status = FND_API.G_RET_STS_ERROR then
433: raise FND_API.G_EXC_ERROR;
434: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
435: raise FND_API.G_EXC_UNEXPECTED_ERROR;
436: END IF;
437:
430:
431: -- Check return status from the above procedure call
432: IF x_return_status = FND_API.G_RET_STS_ERROR then
433: raise FND_API.G_EXC_ERROR;
434: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
435: raise FND_API.G_EXC_UNEXPECTED_ERROR;
436: END IF;
437:
438: --
431: -- Check return status from the above procedure call
432: IF x_return_status = FND_API.G_RET_STS_ERROR then
433: raise FND_API.G_EXC_ERROR;
434: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
435: raise FND_API.G_EXC_UNEXPECTED_ERROR;
436: END IF;
437:
438: --
439: -- End of API body.
439: -- End of API body.
440: --
441:
442: /* -- Standard check for p_commit
443: IF FND_API.to_Boolean( p_commit )
444: THEN
445: COMMIT WORK;
446: END IF;
447: */
454: p_data => x_msg_data
455: );
456:
457: EXCEPTION
458: WHEN FND_API.G_EXC_ERROR THEN
459: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
460: P_API_NAME => L_API_NAME
461: ,P_PKG_NAME => G_PKG_NAME
462: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
466: ,X_MSG_COUNT => X_MSG_COUNT
467: ,X_MSG_DATA => X_MSG_DATA
468: ,X_RETURN_STATUS => X_RETURN_STATUS);
469:
470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
471: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
472: P_API_NAME => L_API_NAME
473: ,P_PKG_NAME => G_PKG_NAME
474: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
498:
499: Procedure Get_Duration
500: (
501: P_Api_Version_Number IN Number,
502: P_init_msg_list IN Varchar2 := FND_API.G_FALSE,
503: X_msg_Count OUT NOCOPY /* file.sql.39 change */ Number,
504: X_msg_Data OUT NOCOPY /* file.sql.39 change */ Varchar2,
505: X_Return_Status OUT NOCOPY /* file.sql.39 change */ Varchar2,
506: P_customer_id IN Number,
506: P_customer_id IN Number,
507: P_system_id IN Number,
508: P_Service_Duration IN Number,
509: P_service_period IN Varchar2,
510: P_coterm_checked_yn IN Varchar2 := FND_API.G_FALSE,
511: P_start_date IN Date,
512: P_end_date IN Date,
513: X_service_duration OUT NOCOPY /* file.sql.39 change */ Number,
514: X_service_period OUT NOCOPY /* file.sql.39 change */ Varchar2,
525:
526: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
527:
528: -- Standard call to check for call compatibility.
529: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
530: p_api_version_number,
531: l_api_name,
532: G_PKG_NAME)
533: THEN
530: p_api_version_number,
531: l_api_name,
532: G_PKG_NAME)
533: THEN
534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
535: END IF;
536:
537:
538: -- Initialize message list if p_init_msg_list is set to TRUE.
535: END IF;
536:
537:
538: -- Initialize message list if p_init_msg_list is set to TRUE.
539: IF FND_API.to_Boolean( p_init_msg_list )
540: THEN
541: FND_MSG_PUB.initialize;
542: END IF;
543:
542: END IF;
543:
544:
545: -- Initialize API return status to SUCCESS
546: x_return_status := FND_API.G_RET_STS_SUCCESS;
547:
548: --
549: -- API body
550: --
559: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
560: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
561: FND_MSG_PUB.ADD;
562: END IF;
563: RAISE FND_API.G_EXC_ERROR;
564: END IF;
565:
566: IF aso_debug_pub.g_debug_flag = 'Y' THEN
567:
607: END IF;
608:
609:
610: -- Check return status from the above procedure call
611: IF x_return_status = FND_API.G_RET_STS_ERROR then
612: raise FND_API.G_EXC_ERROR;
613: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
614: raise FND_API.G_EXC_UNEXPECTED_ERROR;
615: END IF;
608:
609:
610: -- Check return status from the above procedure call
611: IF x_return_status = FND_API.G_RET_STS_ERROR then
612: raise FND_API.G_EXC_ERROR;
613: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
614: raise FND_API.G_EXC_UNEXPECTED_ERROR;
615: END IF;
616:
609:
610: -- Check return status from the above procedure call
611: IF x_return_status = FND_API.G_RET_STS_ERROR then
612: raise FND_API.G_EXC_ERROR;
613: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
614: raise FND_API.G_EXC_UNEXPECTED_ERROR;
615: END IF;
616:
617: --
610: -- Check return status from the above procedure call
611: IF x_return_status = FND_API.G_RET_STS_ERROR then
612: raise FND_API.G_EXC_ERROR;
613: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
614: raise FND_API.G_EXC_UNEXPECTED_ERROR;
615: END IF;
616:
617: --
618: -- End of API body.
618: -- End of API body.
619: --
620:
621: /* -- Standard check for p_commit
622: IF FND_API.to_Boolean( p_commit )
623: THEN
624: COMMIT WORK;
625: END IF;
626: */
633: p_data => x_msg_data
634: );
635:
636: EXCEPTION
637: WHEN FND_API.G_EXC_ERROR THEN
638: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
639: P_API_NAME => L_API_NAME
640: ,P_PKG_NAME => G_PKG_NAME
641: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
643: ,X_MSG_COUNT => X_MSG_COUNT
644: ,X_MSG_DATA => X_MSG_DATA
645: ,X_RETURN_STATUS => X_RETURN_STATUS);
646:
647: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
648: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
649: P_API_NAME => L_API_NAME
650: ,P_PKG_NAME => G_PKG_NAME
651: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
670:
671: Procedure Is_Service_Available
672: (
673: P_Api_Version_Number IN Number,
674: P_init_msg_list IN Varchar2 := FND_API.G_FALSE,
675: X_msg_Count OUT NOCOPY /* file.sql.39 change */ Number,
676: X_msg_Data OUT NOCOPY /* file.sql.39 change */ Varchar2,
677: X_Return_Status OUT NOCOPY /* file.sql.39 change */ Varchar2,
678: p_check_service_rec IN CHECK_SERVICE_REC_TYPE,
689:
690: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
691:
692: -- Standard call to check for call compatibility.
693: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
694: p_api_version_number,
695: l_api_name,
696: G_PKG_NAME)
697: THEN
694: p_api_version_number,
695: l_api_name,
696: G_PKG_NAME)
697: THEN
698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
699: END IF;
700:
701:
702: -- Initialize message list if p_init_msg_list is set to TRUE.
699: END IF;
700:
701:
702: -- Initialize message list if p_init_msg_list is set to TRUE.
703: IF FND_API.to_Boolean( p_init_msg_list )
704: THEN
705: FND_MSG_PUB.initialize;
706: END IF;
707:
706: END IF;
707:
708:
709: -- Initialize API return status to SUCCESS
710: x_return_status := FND_API.G_RET_STS_SUCCESS;
711:
712: --
713: -- API body
714: --
723: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
724: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
725: FND_MSG_PUB.ADD;
726: END IF;
727: RAISE FND_API.G_EXC_ERROR;
728: END IF;
729:
730: IF aso_debug_pub.g_debug_flag = 'Y' THEN
731:
738: END IF;
739:
740:
741: -- map quote rec to oks record type
742: IF p_check_service_rec.product_item_id = FND_API.G_MISS_NUM THEN
743: l_check_service_rec.product_item_id := NULL;
744: ELSE
745: l_check_service_rec.product_item_id := p_check_service_rec.product_item_id;
746: END IF;
743: l_check_service_rec.product_item_id := NULL;
744: ELSE
745: l_check_service_rec.product_item_id := p_check_service_rec.product_item_id;
746: END IF;
747: IF p_check_service_rec.customer_id = FND_API.G_MISS_NUM THEN
748: l_check_service_rec.customer_id := NULL;
749: ELSE
750: l_check_service_rec.customer_id := p_check_service_rec.customer_id;
751: END IF;
748: l_check_service_rec.customer_id := NULL;
749: ELSE
750: l_check_service_rec.customer_id := p_check_service_rec.customer_id;
751: END IF;
752: IF p_check_service_rec.service_item_id = FND_API.G_MISS_NUM THEN
753: l_check_service_rec.service_item_id := NULL;
754: ELSE
755: l_check_service_rec.service_item_id := p_check_service_rec.service_item_id;
756: END IF;
753: l_check_service_rec.service_item_id := NULL;
754: ELSE
755: l_check_service_rec.service_item_id := p_check_service_rec.service_item_id;
756: END IF;
757: IF p_check_service_rec.product_revision = FND_API.G_MISS_CHAR THEN
758: l_check_service_rec.product_revision := NULL;
759: ELSE
760: l_check_service_rec.product_revision := p_check_service_rec.product_revision;
761: END IF;
758: l_check_service_rec.product_revision := NULL;
759: ELSE
760: l_check_service_rec.product_revision := p_check_service_rec.product_revision;
761: END IF;
762: IF p_check_service_rec.request_date = FND_API.G_MISS_DATE THEN
763: l_check_service_rec.request_date := NULL;
764: ELSE
765: l_check_service_rec.request_date := p_check_service_rec.request_date;
766: END IF;
793: END IF;
794:
795:
796: -- Check return status from the above procedure call
797: IF x_return_status = FND_API.G_RET_STS_ERROR then
798: raise FND_API.G_EXC_ERROR;
799: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
800: raise FND_API.G_EXC_UNEXPECTED_ERROR;
801: END IF;
794:
795:
796: -- Check return status from the above procedure call
797: IF x_return_status = FND_API.G_RET_STS_ERROR then
798: raise FND_API.G_EXC_ERROR;
799: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
800: raise FND_API.G_EXC_UNEXPECTED_ERROR;
801: END IF;
802:
795:
796: -- Check return status from the above procedure call
797: IF x_return_status = FND_API.G_RET_STS_ERROR then
798: raise FND_API.G_EXC_ERROR;
799: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
800: raise FND_API.G_EXC_UNEXPECTED_ERROR;
801: END IF;
802:
803: --
796: -- Check return status from the above procedure call
797: IF x_return_status = FND_API.G_RET_STS_ERROR then
798: raise FND_API.G_EXC_ERROR;
799: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
800: raise FND_API.G_EXC_UNEXPECTED_ERROR;
801: END IF;
802:
803: --
804: -- End of API body.
804: -- End of API body.
805: --
806:
807: /* -- Standard check for p_commit
808: IF FND_API.to_Boolean( p_commit )
809: THEN
810: COMMIT WORK;
811: END IF;
812: */
818: p_data => x_msg_data
819: );
820:
821: EXCEPTION
822: WHEN FND_API.G_EXC_ERROR THEN
823: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
824: P_API_NAME => L_API_NAME
825: ,P_PKG_NAME => G_PKG_NAME
826: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
828: ,X_MSG_COUNT => X_MSG_COUNT
829: ,X_MSG_DATA => X_MSG_DATA
830: ,X_RETURN_STATUS => X_RETURN_STATUS);
831:
832: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
833: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
834: P_API_NAME => L_API_NAME
835: ,P_PKG_NAME => G_PKG_NAME
836: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
853:
854:
855: PROCEDURE Available_Services(
856: P_Api_Version_number IN Number,
857: P_init_msg_list IN Varchar2 := FND_API.G_FALSE,
858: X_msg_Count OUT NOCOPY /* file.sql.39 change */ Number,
859: X_msg_Data OUT NOCOPY /* file.sql.39 change */ Varchar2,
860: X_Return_Status OUT NOCOPY /* file.sql.39 change */ Varchar2,
861: p_avail_service_rec IN AVAIL_SERVICE_REC_TYPE,
875:
876: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
877:
878: -- Standard call to check for call compatibility.
879: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
880: p_api_version_number,
881: l_api_name,
882: G_PKG_NAME)
883: THEN
880: p_api_version_number,
881: l_api_name,
882: G_PKG_NAME)
883: THEN
884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
885: END IF;
886:
887:
888: -- Initialize message list if p_init_msg_list is set to TRUE.
885: END IF;
886:
887:
888: -- Initialize message list if p_init_msg_list is set to TRUE.
889: IF FND_API.to_Boolean( p_init_msg_list )
890: THEN
891: FND_MSG_PUB.initialize;
892: END IF;
893:
892: END IF;
893:
894:
895: -- Initialize API return status to SUCCESS
896: x_return_status := FND_API.G_RET_STS_SUCCESS;
897:
898: --
899: -- API body
900: --
909: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
910: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
911: FND_MSG_PUB.ADD;
912: END IF;
913: RAISE FND_API.G_EXC_ERROR;
914: END IF;
915:
916: -- map service rec type
917: IF aso_debug_pub.g_debug_flag = 'Y' THEN
922: aso_debug_pub.add('ASO_SER_INT:available_service: p_avail_service_rec.REQUEST_DATE '|| p_avail_service_rec.REQUEST_DATE, 1, 'N');
923:
924: END IF;
925:
926: IF p_avail_service_rec.PRODUCT_ITEM_ID = FND_API.G_MISS_NUM THEN
927: l_avail_service_rec.PRODUCT_ITEM_ID := NULL;
928: ELSE
929: l_avail_service_rec.PRODUCT_ITEM_ID := p_avail_service_rec.PRODUCT_ITEM_ID;
930: END IF;
927: l_avail_service_rec.PRODUCT_ITEM_ID := NULL;
928: ELSE
929: l_avail_service_rec.PRODUCT_ITEM_ID := p_avail_service_rec.PRODUCT_ITEM_ID;
930: END IF;
931: IF p_avail_service_rec.CUSTOMER_ID = FND_API.G_MISS_NUM THEN
932: l_avail_service_rec.CUSTOMER_ID := NULL;
933: ELSE
934: l_avail_service_rec.CUSTOMER_ID := p_avail_service_rec.CUSTOMER_ID;
935: END IF;
932: l_avail_service_rec.CUSTOMER_ID := NULL;
933: ELSE
934: l_avail_service_rec.CUSTOMER_ID := p_avail_service_rec.CUSTOMER_ID;
935: END IF;
936: IF p_avail_service_rec.PRODUCT_REVISION = FND_API.G_MISS_CHAR THEN
937: l_avail_service_rec.PRODUCT_REVISION := NULL;
938: ELSE
939: l_avail_service_rec.PRODUCT_REVISION := p_avail_service_rec.PRODUCT_REVISION;
940: END IF;
937: l_avail_service_rec.PRODUCT_REVISION := NULL;
938: ELSE
939: l_avail_service_rec.PRODUCT_REVISION := p_avail_service_rec.PRODUCT_REVISION;
940: END IF;
941: IF p_avail_service_rec.request_date = FND_API.G_MISS_DATE THEN
942: l_avail_service_rec.request_date := NULL;
943: ELSE
944: l_avail_service_rec.request_date := p_avail_service_rec.request_date;
945: END IF;
969: aso_debug_pub.add('ASO_SER_INT:After Call to OKS available_service: x_return_status '|| X_return_status, 1, 'Y');
970: aso_utility_pvt.print_login_info();
971: END IF;
972:
973: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
974: FOR i in 1..l_Orderable_Service_tbl.count LOOP
975: x_orderable_service_tbl(i).service_item_id := l_Orderable_Service_tbl(i).service_item_id;
976: END LOOP;
977: END IF;
977: END IF;
978:
979:
980: -- Check return status from the above procedure call
981: IF x_return_status = FND_API.G_RET_STS_ERROR then
982: raise FND_API.G_EXC_ERROR;
983: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
984: raise FND_API.G_EXC_UNEXPECTED_ERROR;
985: END IF;
978:
979:
980: -- Check return status from the above procedure call
981: IF x_return_status = FND_API.G_RET_STS_ERROR then
982: raise FND_API.G_EXC_ERROR;
983: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
984: raise FND_API.G_EXC_UNEXPECTED_ERROR;
985: END IF;
986:
979:
980: -- Check return status from the above procedure call
981: IF x_return_status = FND_API.G_RET_STS_ERROR then
982: raise FND_API.G_EXC_ERROR;
983: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
984: raise FND_API.G_EXC_UNEXPECTED_ERROR;
985: END IF;
986:
987: --
980: -- Check return status from the above procedure call
981: IF x_return_status = FND_API.G_RET_STS_ERROR then
982: raise FND_API.G_EXC_ERROR;
983: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
984: raise FND_API.G_EXC_UNEXPECTED_ERROR;
985: END IF;
986:
987: --
988: -- End of API body.
988: -- End of API body.
989: --
990:
991: /* -- Standard check for p_commit
992: IF FND_API.to_Boolean( p_commit )
993: THEN
994: COMMIT WORK;
995: END IF;
996: */
1003: p_data => x_msg_data
1004: );
1005:
1006: EXCEPTION
1007: WHEN FND_API.G_EXC_ERROR THEN
1008: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1009: P_API_NAME => L_API_NAME
1010: ,P_PKG_NAME => G_PKG_NAME
1011: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1013: ,X_MSG_COUNT => X_MSG_COUNT
1014: ,X_MSG_DATA => X_MSG_DATA
1015: ,X_RETURN_STATUS => X_RETURN_STATUS);
1016:
1017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1018: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1019: P_API_NAME => L_API_NAME
1020: ,P_PKG_NAME => G_PKG_NAME
1021: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1038:
1039:
1040: Procedure Get_Warranty (
1041: P_Api_Version_Number IN Number,
1042: P_init_msg_list IN Varchar2 := FND_API.G_FALSE,
1043: X_msg_Count OUT NOCOPY /* file.sql.39 change */ Number,
1044: X_msg_Data OUT NOCOPY /* file.sql.39 change */ Varchar2,
1045: P_Org_id IN Number,
1046: P_Organization_id IN NUMBER := null,
1073:
1074: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
1075:
1076: -- Standard call to check for call compatibility.
1077: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1078: p_api_version_number,
1079: l_api_name,
1080: G_PKG_NAME)
1081: THEN
1078: p_api_version_number,
1079: l_api_name,
1080: G_PKG_NAME)
1081: THEN
1082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1083: END IF;
1084:
1085:
1086: -- Initialize message list if p_init_msg_list is set to TRUE.
1083: END IF;
1084:
1085:
1086: -- Initialize message list if p_init_msg_list is set to TRUE.
1087: IF FND_API.to_Boolean( p_init_msg_list )
1088: THEN
1089: FND_MSG_PUB.initialize;
1090: END IF;
1091:
1090: END IF;
1091:
1092:
1093: -- Initialize API return status to SUCCESS
1094: x_return_status := FND_API.G_RET_STS_SUCCESS;
1095:
1096: --
1097: -- API body
1098: --
1107: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
1108: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1109: FND_MSG_PUB.ADD;
1110: END IF;
1111: RAISE FND_API.G_EXC_ERROR;
1112: END IF;
1113:
1114: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1115: aso_debug_pub.add('Before Call to OKS_EXTWAR_UTIL_PUB.Get_Warranty_info', 1, 'Y');
1117: END IF;
1118:
1119: OKS_EXTWAR_UTIL_PUB.Get_Warranty_info(
1120: P_Api_Version => 1.0 ,
1121: P_init_msg_list => FND_API.G_FALSE,
1122: P_Org_id => P_Org_id ,
1123: P_prod_item_id => P_product_item_id ,
1124: X_Return_Status => X_return_status ,
1125: X_msg_Count => X_msg_count ,
1150: X_Warranty_tbl(i).Warranty_End_Date := l_Warranty_tbl(i).Warranty_End_Date;
1151: X_Warranty_tbl(i).service_description := l_description;
1152: X_Warranty_tbl(i).service_name := l_concatenated_segments;
1153: ELSE
1154: -- raise FND_API.G_EXC_ERROR;
1155: CLOSE C_warranty;
1156: END IF;
1157: END IF;
1158: END LOOP;
1158: END LOOP;
1159:
1160:
1161: -- Check return status from the above procedure call
1162: IF x_return_status = FND_API.G_RET_STS_ERROR then
1163: raise FND_API.G_EXC_ERROR;
1164: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1165: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1166: END IF;
1159:
1160:
1161: -- Check return status from the above procedure call
1162: IF x_return_status = FND_API.G_RET_STS_ERROR then
1163: raise FND_API.G_EXC_ERROR;
1164: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1165: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1166: END IF;
1167:
1160:
1161: -- Check return status from the above procedure call
1162: IF x_return_status = FND_API.G_RET_STS_ERROR then
1163: raise FND_API.G_EXC_ERROR;
1164: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1165: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1166: END IF;
1167:
1168: --
1161: -- Check return status from the above procedure call
1162: IF x_return_status = FND_API.G_RET_STS_ERROR then
1163: raise FND_API.G_EXC_ERROR;
1164: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1165: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1166: END IF;
1167:
1168: --
1169: -- End of API body.
1176: p_data => x_msg_data
1177: );
1178:
1179: EXCEPTION
1180: WHEN FND_API.G_EXC_ERROR THEN
1181: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1182: P_API_NAME => L_API_NAME
1183: ,P_PKG_NAME => G_PKG_NAME
1184: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1186: ,X_MSG_COUNT => X_MSG_COUNT
1187: ,X_MSG_DATA => X_MSG_DATA
1188: ,X_RETURN_STATUS => X_RETURN_STATUS);
1189:
1190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1191: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1192: P_API_NAME => L_API_NAME
1193: ,P_PKG_NAME => G_PKG_NAME
1194: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR