DBA Data[Home] [Help]

APPS.ASO_SERVICE_CONTRACTS_INT_W dependencies on ASO_SERVICE_CONTRACTS_INT_W

Line 1: package body aso_service_contracts_int_w as

1: package body aso_service_contracts_int_w as
2: /* $Header: asovqwsb.pls 120.6 2005/10/27 23:10:15 gsachdev ship $ */
3: rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4: rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5:

Line 65: procedure rosetta_table_copy_in_p4(t OUT NOCOPY aso_service_contracts_int.war_tbl_type, a0 JTF_NUMBER_TABLE

61: end if;
62: end if;
63: end rosetta_table_copy_out_p2;
64:
65: procedure rosetta_table_copy_in_p4(t OUT NOCOPY aso_service_contracts_int.war_tbl_type, a0 JTF_NUMBER_TABLE
66: , a1 JTF_VARCHAR2_TABLE_2000
67: , a2 JTF_VARCHAR2_TABLE_300
68: , a3 JTF_NUMBER_TABLE
69: , a4 JTF_VARCHAR2_TABLE_100

Line 98: procedure rosetta_table_copy_out_p4(t aso_service_contracts_int.war_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE

94: end loop;
95: end if;
96: end if;
97: end rosetta_table_copy_in_p4;
98: procedure rosetta_table_copy_out_p4(t aso_service_contracts_int.war_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
99: , a1 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
100: , a2 OUT NOCOPY JTF_VARCHAR2_TABLE_300
101: , a3 OUT NOCOPY JTF_NUMBER_TABLE
102: , a4 OUT NOCOPY JTF_VARCHAR2_TABLE_100

Line 175: ASO_QUOTE_UTIL_PVT.Debug('aso_service_contracts_int_w.available_services BEGIN....');

171: ddindx binary_integer; indx binary_integer;
172: begin
173:
174: ASO_Quote_Util_Pvt.Enable_Debug_Pvt;
175: ASO_QUOTE_UTIL_PVT.Debug('aso_service_contracts_int_w.available_services BEGIN....');
176: -- copy data to the local IN or IN-OUT args, if any
177:
178: ddp_avail_service_rec.product_item_id := rosetta_g_miss_num_map(p5_a0);
179: ddp_avail_service_rec.customer_id := rosetta_g_miss_num_map(p5_a1);

Line 196: aso_service_contracts_int_w.rosetta_table_copy_out_p2(ddx_orderable_service_tbl, p6_a0

192: ASO_QUOTE_UTIL_PVT.Debug('Ending aso_service_contracts_int.available_services');
193:
194: -- copy data back from the local OUT NOCOPY /* file.sql.39 change */ or IN-OUT args, if any
195:
196: aso_service_contracts_int_w.rosetta_table_copy_out_p2(ddx_orderable_service_tbl, p6_a0
197: );
198: ASO_QUOTE_UTIL_PVT.Debug('aso_service_contracts_int_w.available_services END....');
199: ASO_Quote_Util_Pvt.Disable_Debug_Pvt;
200: end;

Line 198: ASO_QUOTE_UTIL_PVT.Debug('aso_service_contracts_int_w.available_services END....');

194: -- copy data back from the local OUT NOCOPY /* file.sql.39 change */ or IN-OUT args, if any
195:
196: aso_service_contracts_int_w.rosetta_table_copy_out_p2(ddx_orderable_service_tbl, p6_a0
197: );
198: ASO_QUOTE_UTIL_PVT.Debug('aso_service_contracts_int_w.available_services END....');
199: ASO_Quote_Util_Pvt.Disable_Debug_Pvt;
200: end;
201:
202: procedure get_warranty(p_api_version_number NUMBER

Line 220: ddx_warranty_tbl aso_service_contracts_int.war_tbl_type;

216: , p8_a6 OUT NOCOPY JTF_DATE_TABLE
217: , p8_a7 OUT NOCOPY JTF_DATE_TABLE
218: )
219: as
220: ddx_warranty_tbl aso_service_contracts_int.war_tbl_type;
221: ddindx binary_integer; indx binary_integer;
222: begin
223:
224: ASO_Quote_Util_Pvt.Enable_Debug_Pvt;

Line 225: ASO_QUOTE_UTIL_PVT.Debug('aso_service_contracts_int_w.get_warranty BEGIN....');

221: ddindx binary_integer; indx binary_integer;
222: begin
223:
224: ASO_Quote_Util_Pvt.Enable_Debug_Pvt;
225: ASO_QUOTE_UTIL_PVT.Debug('aso_service_contracts_int_w.get_warranty BEGIN....');
226: -- here's the delegated call to the old PL/SQL routine
227:
228: ASO_QUOTE_UTIL_PVT.Debug('Calling aso_service_contracts_int.get_warranty');
229: aso_service_contracts_int.get_warranty(p_api_version_number,

Line 242: aso_service_contracts_int_w.rosetta_table_copy_out_p4(ddx_warranty_tbl, p8_a0

238: ASO_QUOTE_UTIL_PVT.Debug('Ending aso_service_contracts_int.get_warranty');
239:
240: -- copy data back from the local OUT NOCOPY /* file.sql.39 change */ or IN-OUT args, if any
241:
242: aso_service_contracts_int_w.rosetta_table_copy_out_p4(ddx_warranty_tbl, p8_a0
243: , p8_a1
244: , p8_a2
245: , p8_a3
246: , p8_a4

Line 251: ASO_QUOTE_UTIL_PVT.Debug('aso_service_contracts_int_w.get_warranty END..');

247: , p8_a5
248: , p8_a6
249: , p8_a7
250: );
251: ASO_QUOTE_UTIL_PVT.Debug('aso_service_contracts_int_w.get_warranty END..');
252: ASO_Quote_Util_Pvt.Disable_Debug_Pvt;
253: end;
254:
255:

Line 325: l_warranty_tbl aso_service_contracts_int.war_tbl_type;

321: l_contracts_tbl oks_entitlements_pub.output_tbl_ib;
322: l_inp_rec oks_entitlements_pub.input_rec_ib;
323: l_item_id NUMBER;
324: l_inv_org_id NUMBER;
325: l_warranty_tbl aso_service_contracts_int.war_tbl_type;
326: l_return_status VARCHAR2(5);
327: l_item_number JTF_VARCHAR2_TABLE_2000;
328: l_count NUMBER :=0;
329: l_index NUMBER :=0;

Line 332: G_PKG_NAME VARCHAR2(50):= 'ASO_SERVICE_CONTRACTS_INT_W';

328: l_count NUMBER :=0;
329: l_index NUMBER :=0;
330: l_api_version NUMBER := 1.0;
331: l_api_name VARCHAR2(50) := 'GET_SERVICES';
332: G_PKG_NAME VARCHAR2(50):= 'ASO_SERVICE_CONTRACTS_INT_W';
333: l_current_org_id NUMBER ;
334:
335: BEGIN
336:

Line 340: ASO_QUOTE_UTIL_PVT.Debug('aso_service_contracts_int_w.getServices BEGIN....');

336:
337: -- Enable debug message
338: Aso_Quote_Util_Pvt.Enable_Debug_Pvt;
339:
340: ASO_QUOTE_UTIL_PVT.Debug('aso_service_contracts_int_w.getServices BEGIN....');
341: -- Standard Start of API savepoint
342: SAVEPOINT GET_SERVICES_PUB;
343:
344: aso_debug_pub.g_debug_flag := Aso_Quote_Util_Pvt.is_debug_enabled;

Line 395: aso_debug_pub.add('Aso_Service_Contracts_int_w:Get_Services p_source = INSTALL_BASE ', 1, 'N');

391:
392: IF (p_source ='INSTALL_BASE') THEN
393:
394: IF aso_debug_pub.g_debug_flag = 'Y' THEN
395: aso_debug_pub.add('Aso_Service_Contracts_int_w:Get_Services p_source = INSTALL_BASE ', 1, 'N');
396: END IF;
397:
398: l_inp_rec.validate_flag :='Y'; -- show all contracts
399: l_inp_rec.product_id :=p_source_Id;

Line 416: aso_debug_pub.add('ASO_Service_contracts_int_w: After Call to OKS entitlements get contracts: x_return_status '|| x_return_status, 1, 'N');

412: x_msg_data => x_msg_data);
413: ASO_QUOTE_UTIL_PVT.Debug('Ending oks_entitlements_pub.get_contracts InstallBase');
414:
415: IF aso_debug_pub.g_debug_flag = 'Y' THEN
416: aso_debug_pub.add('ASO_Service_contracts_int_w: After Call to OKS entitlements get contracts: x_return_status '|| x_return_status, 1, 'N');
417: END IF;
418:
419: -- Check return status from the above procedure call
420: IF x_return_status = FND_API.G_RET_STS_ERROR then

Line 460: aso_debug_pub.add('Aso_Service_Contracts_int_w:Get_Services p_source:= QUOTE', 1, 'N');

456: END IF;
457: ELSIF (p_source='QUOTE') THEN
458:
459: IF aso_debug_pub.g_debug_flag = 'Y' THEN
460: aso_debug_pub.add('Aso_Service_Contracts_int_w:Get_Services p_source:= QUOTE', 1, 'N');
461: END IF;
462:
463: FOR c_InvOrg_or IN c_getInvOrgId_qe LOOP
464: l_item_id := c_invOrg_or.inventory_item_id;

Line 469: aso_debug_pub.add('Aso_Service_Contracts_int_w:Get_Services l_item_id= '|| l_item_id ||'l_inv_org_id=' || l_inv_org_id , 1, 'N');

465: l_inv_org_id :=c_invOrg_or.organization_id;
466: END LOOP;
467:
468: IF aso_debug_pub.g_debug_flag = 'Y' THEN
469: aso_debug_pub.add('Aso_Service_Contracts_int_w:Get_Services l_item_id= '|| l_item_id ||'l_inv_org_id=' || l_inv_org_id , 1, 'N');
470: END IF;
471:
472: l_index :=0;
473: FOR c_quote IN c_getExistService_qe(l_inv_org_id) LOOP

Line 492: aso_debug_pub.add('Aso_Service_Contracts_int_w:Get_Services p_source = ORDER ', 1, 'N');

488: END LOOP;
489:
490: ELSIF (p_source='ORDER') THEN
491: IF aso_debug_pub.g_debug_flag = 'Y' THEN
492: aso_debug_pub.add('Aso_Service_Contracts_int_w:Get_Services p_source = ORDER ', 1, 'N');
493: END IF;
494:
495: FOR c_getItemId IN c_getInventoryId LOOP
496: l_item_id :=c_getItemId.inventory_item_id;

Line 504: aso_debug_pub.add('Aso_Service_Contracts_int_w:Get_Services l_item_id= '|| l_item_id ||'l_inv_org_id=' || l_inv_org_id , 1, 'N');

500: l_inv_org_id :=c_getMasterOrg.master_organization_id;
501: END LOOP;
502:
503: IF aso_debug_pub.g_debug_flag = 'Y' THEN
504: aso_debug_pub.add('Aso_Service_Contracts_int_w:Get_Services l_item_id= '|| l_item_id ||'l_inv_org_id=' || l_inv_org_id , 1, 'N');
505: END IF;
506:
507: l_index :=0;
508: FOR c_order IN c_getExistService_or(l_inv_org_id) LOOP

Line 545: aso_debug_pub.add('ASO_Service_contracts_int_w: After Call to get_warranty: x_return_status '|| x_return_status, 1, 'N');

541: x_warranty_tbl => l_warranty_tbl);
542: ASO_QUOTE_UTIL_PVT.Debug('Ending aso_service_contracts_int.get_warranty <> InstallBase');
543:
544: IF aso_debug_pub.g_debug_flag = 'Y' THEN
545: aso_debug_pub.add('ASO_Service_contracts_int_w: After Call to get_warranty: x_return_status '|| x_return_status, 1, 'N');
546: END IF;
547:
548: -- Check return status from the above procedure call
549: IF x_return_status = FND_API.G_RET_STS_ERROR then

Line 585: ASO_QUOTE_UTIL_PVT.Debug('aso_service_contracts_int_w.getServices END....');

581: p_data => x_msg_data
582: );
583:
584: --disable the debug message
585: ASO_QUOTE_UTIL_PVT.Debug('aso_service_contracts_int_w.getServices END....');
586: ASO_Quote_Util_Pvt.disable_debug_pvt;
587: EXCEPTION
588: WHEN FND_API.G_EXC_ERROR THEN
589: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(

Line 636: G_PKG_NAME VARCHAR2(50):= 'ASO_SERVICE_CONTRACTS_INT_W';

632:
633: l_check_service_rec ASO_service_contracts_INT.CHECK_SERVICE_REC_TYPE;
634: l_api_name varchar2(50) := 'is_service_available';
635: l_api_version NUMBER := 1.0;
636: G_PKG_NAME VARCHAR2(50):= 'ASO_SERVICE_CONTRACTS_INT_W';
637:
638: BEGIN
639:
640:

Line 644: ASO_QUOTE_UTIL_PVT.Debug('aso_service_contracts_int_w.is_service_available BEGIN....');

640:
641: -- Enable debug message
642: Aso_Quote_Util_Pvt.Enable_Debug_Pvt;
643:
644: ASO_QUOTE_UTIL_PVT.Debug('aso_service_contracts_int_w.is_service_available BEGIN....');
645:
646: aso_debug_pub.g_debug_flag := Aso_Quote_Util_Pvt.is_debug_enabled;
647: -- Standard call to check for call compatibility.
648: IF NOT FND_API.Compatible_API_Call ( l_api_version,

Line 691: ASO_QUOTE_UTIL_PVT.Debug('aso_service_contracts_int_w.is_service_available END....');

687: p_data => x_msg_data
688: );
689:
690: --disable the debug message
691: ASO_QUOTE_UTIL_PVT.Debug('aso_service_contracts_int_w.is_service_available END....');
692: ASO_Quote_Util_Pvt.disable_debug_pvt;
693:
694:
695: EXCEPTION

Line 758: G_PKG_NAME VARCHAR2(50):= 'ASO_SERVICE_CONTRACTS_INT_W';

754:
755: is
756: l_api_name varchar2(50) := 'available_services';
757: l_api_version NUMBER := 1.0;
758: G_PKG_NAME VARCHAR2(50):= 'ASO_SERVICE_CONTRACTS_INT_W';
759: l_avail_service_rec OKS_OMINT_PUB.Avail_Service_Rec_Type;
760: l_orderable_service_tbl OKS_OMINT_PUB.new_order_service_tbl_type;
761: l_count NUMBER :=0;
762: l_index NUMBER :=0;

Line 771: aso_debug_pub.ADD ( 'Overloaded aso_service_contracts_int_w.is_service_available BEGIN.... ' , 1 , 'Y' );

767: Aso_Quote_Util_Pvt.Enable_Debug_Pvt;
768:
769:
770: IF aso_debug_pub.g_debug_flag = 'Y' THEN
771: aso_debug_pub.ADD ( 'Overloaded aso_service_contracts_int_w.is_service_available BEGIN.... ' , 1 , 'Y' );
772: END IF;
773:
774:
775: aso_debug_pub.g_debug_flag := Aso_Quote_Util_Pvt.is_debug_enabled;

Line 918: aso_debug_pub.ADD ( 'Overloaded aso_service_contracts_int_w.is_service_available END.... ' , 1 , 'Y' );

914: );
915:
916: --disable the debug message
917: IF aso_debug_pub.g_debug_flag = 'Y' THEN
918: aso_debug_pub.ADD ( 'Overloaded aso_service_contracts_int_w.is_service_available END.... ' , 1 , 'Y' );
919: END IF;
920:
921: ASO_Quote_Util_Pvt.disable_debug_pvt;
922:

Line 958: end aso_service_contracts_int_w;

954: ASO_Quote_Util_Pvt.disable_debug_pvt;
955: end available_services;
956:
957:
958: end aso_service_contracts_int_w;