DBA Data[Home] [Help]

APPS.ASO_SERVICE_CONTRACTS_INT_W dependencies on ASO_SERVICE_CONTRACTS_INT

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 22: procedure rosetta_table_copy_in_p2(t OUT NOCOPY aso_service_contracts_int.order_service_tbl_type, a0 JTF_NUMBER_TABLE

18: if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19: return d;
20: end;
21:
22: procedure rosetta_table_copy_in_p2(t OUT NOCOPY aso_service_contracts_int.order_service_tbl_type, a0 JTF_NUMBER_TABLE
23: ) as
24: ddindx binary_integer; indx binary_integer;
25: begin
26: if a0 is not null and a0.count > 0 then

Line 41: procedure rosetta_table_copy_out_p2(t aso_service_contracts_int.order_service_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE

37: end loop;
38: end if;
39: end if;
40: end rosetta_table_copy_in_p2;
41: procedure rosetta_table_copy_out_p2(t aso_service_contracts_int.order_service_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
42: ) as
43: ddindx binary_integer; indx binary_integer;
44: begin
45: if t is null or t.count = 0 then

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 169: ddp_avail_service_rec aso_service_contracts_int.avail_service_rec_type;

165: , p5_a2 VARCHAR2 := fnd_api.g_miss_char
166: , p5_a3 DATE := fnd_api.g_miss_date
167: )
168: as
169: ddp_avail_service_rec aso_service_contracts_int.avail_service_rec_type;
170: ddx_orderable_service_tbl aso_service_contracts_int.order_service_tbl_type;
171: ddindx binary_integer; indx binary_integer;
172: begin
173:

Line 170: ddx_orderable_service_tbl aso_service_contracts_int.order_service_tbl_type;

166: , p5_a3 DATE := fnd_api.g_miss_date
167: )
168: as
169: ddp_avail_service_rec aso_service_contracts_int.avail_service_rec_type;
170: ddx_orderable_service_tbl aso_service_contracts_int.order_service_tbl_type;
171: ddindx binary_integer; indx binary_integer;
172: begin
173:
174: ASO_Quote_Util_Pvt.Enable_Debug_Pvt;

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 184: ASO_QUOTE_UTIL_PVT.Debug('Calling aso_service_contracts_int.available_services');

180: ddp_avail_service_rec.product_revision := p5_a2;
181: ddp_avail_service_rec.request_date := rosetta_g_miss_date_in_map(p5_a3);
182:
183: -- here's the delegated call to the old PL/SQL routine
184: ASO_QUOTE_UTIL_PVT.Debug('Calling aso_service_contracts_int.available_services');
185: aso_service_contracts_int.available_services(p_api_version_number,
186: p_init_msg_list,
187: x_msg_count,
188: x_msg_data,

Line 185: aso_service_contracts_int.available_services(p_api_version_number,

181: ddp_avail_service_rec.request_date := rosetta_g_miss_date_in_map(p5_a3);
182:
183: -- here's the delegated call to the old PL/SQL routine
184: ASO_QUOTE_UTIL_PVT.Debug('Calling aso_service_contracts_int.available_services');
185: aso_service_contracts_int.available_services(p_api_version_number,
186: p_init_msg_list,
187: x_msg_count,
188: x_msg_data,
189: x_return_status,

Line 192: ASO_QUOTE_UTIL_PVT.Debug('Ending aso_service_contracts_int.available_services');

188: x_msg_data,
189: x_return_status,
190: ddp_avail_service_rec,
191: ddx_orderable_service_tbl);
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

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 228: ASO_QUOTE_UTIL_PVT.Debug('Calling aso_service_contracts_int.get_warranty');

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,
230: p_init_msg_list,
231: x_msg_count,
232: x_msg_data,

Line 229: aso_service_contracts_int.get_warranty(p_api_version_number,

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,
230: p_init_msg_list,
231: x_msg_count,
232: x_msg_data,
233: p_org_id,

Line 238: ASO_QUOTE_UTIL_PVT.Debug('Ending aso_service_contracts_int.get_warranty');

234: p_organization_id,
235: p_product_item_id,
236: x_return_status,
237: ddx_warranty_tbl);
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

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 526: ASO_QUOTE_UTIL_PVT.Debug('Calling aso_service_contracts_int.get_warranty <> InstallBase');

522: END LOOP;
523: END IF;
524:
525: IF (P_SOURCE <> 'INSTALL_BASE') THEN
526: ASO_QUOTE_UTIL_PVT.Debug('Calling aso_service_contracts_int.get_warranty <> InstallBase');
527: l_current_org_id := MO_GLOBAL.GET_CURRENT_ORG_ID ;
528: ASO_QUOTE_UTIL_PVT.Debug('Current Org ID :' || l_current_org_id);
529:
530: Aso_Service_Contracts_Int.Get_Warranty(

Line 530: Aso_Service_Contracts_Int.Get_Warranty(

526: ASO_QUOTE_UTIL_PVT.Debug('Calling aso_service_contracts_int.get_warranty <> InstallBase');
527: l_current_org_id := MO_GLOBAL.GET_CURRENT_ORG_ID ;
528: ASO_QUOTE_UTIL_PVT.Debug('Current Org ID :' || l_current_org_id);
529:
530: Aso_Service_Contracts_Int.Get_Warranty(
531: p_api_version_number => l_api_version,
532: p_init_msg_list => FND_API.G_FALSE,
533: x_return_status => x_return_status,
534: x_msg_count => x_msg_count,

Line 542: ASO_QUOTE_UTIL_PVT.Debug('Ending aso_service_contracts_int.get_warranty <> InstallBase');

538: p_org_id => l_current_org_id,
539: p_organization_id => l_inv_org_id,
540: p_product_item_id => l_item_id,
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;

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 633: l_check_service_rec ASO_service_contracts_INT.CHECK_SERVICE_REC_TYPE;

629: , p_product_revision IN Varchar2
630: , p_request_date IN Date
631: , X_Available_YN OUT NOCOPY /* file.sql.39 change */ varchar2) IS
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:

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 674: ASO_service_contracts_INT.Is_Service_Available

670: l_check_service_rec.customer_id := p_customer_id;
671: l_check_service_rec.product_revision := p_product_revision;
672: l_check_service_rec.request_date := p_request_date;
673:
674: ASO_service_contracts_INT.Is_Service_Available
675: (
676: P_Api_Version_Number,
677: P_init_msg_list,
678: X_msg_Count,

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;