[Home] [Help]
10:
11:
12: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_CHARGE_LINE_UTIL';
13: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdvclub.pls';
14: g_debug NUMBER := csd_gen_utility_pvt.g_debug_level;
15:
16: /*----------------------------------------------------------------*/
17: /* function name: Get_PLCurrCode */
18: /* description : Gets the currency for a price list */
113: BEGIN
114:
115: --debug msg
116: IF (g_debug > 0 ) THEN
117: csd_gen_utility_pvt.ADD ('Get_DefaultPriceList Begin: p_repair_line_id ='|| p_repair_line_id);
118: END IF;
119:
120: -- Standard Start of API savepoint
121: SAVEPOINT Get_DefaultPriceList;
141: -- Begin API Body
142: --
143:
144: IF (g_debug > 0 ) THEN
145: csd_gen_utility_pvt.dump_api_info ( p_pkg_name => G_PKG_NAME,
146: p_api_name => l_api_name );
147: END IF;
148:
149: --debug msg
147: END IF;
148:
149: --debug msg
150: IF (g_debug > 0 ) THEN
151: csd_gen_utility_pvt.ADD ('Check required parameters and validate them');
152: END IF;
153:
154: -- Check the required parameters
155: CSD_PROCESS_UTIL.Check_Reqd_Param
179:
180:
181: --debug msg
182: IF (g_debug > 0 ) THEN
183: csd_gen_utility_pvt.ADD ('Check required parameters and validation complete');
184: END IF;
185:
186: -- If contract is passed in, get price list from contract and verify currency
187: -- If no contract is passed, get price list from default contract and verify currency
193: -- If repair type price list is not set or repair type price list has different currency from RO's, null will be returned
194:
195: --debug msg
196: IF (g_debug > 0 ) THEN
197: csd_gen_utility_pvt.ADD ('Get price list from contract');
198: END IF;
199:
200: -- no contract is passed in, get default contract
201: IF (p_contract_line_id IS NULL) THEN
220: IF (l_contract_line_id IS NOT NULL and l_contract_line_id <> -1) THEN
221:
222: --debug msg
223: IF (g_debug > 0 ) THEN
224: csd_gen_utility_pvt.ADD ('Call Get_ContractPriceList API: l_contract_line_id ='|| l_contract_line_id);
225: END IF;
226:
227: Get_ContractPriceList
228: (
272: IF NOT l_use_contract_pl THEN
273:
274: --debug msg
275: IF (g_debug > 0 ) THEN
276: csd_gen_utility_pvt.ADD ('Get default price list from profile option');
277: END IF;
278:
279: l_default_pl_id := Fnd_Profile.value('CSD_Default_Price_List');
280:
496: BEGIN
497:
498: --debug msg
499: IF (g_debug > 0 ) THEN
500: csd_gen_utility_pvt.ADD ('Get_ContractPriceList procedure: p_contract_line_id ='|| p_contract_line_id);
501: END IF;
502:
503: -- Standard Start of API savepoint
504: SAVEPOINT Get_ContractPriceList;
524: -- Begin API Body
525: --
526:
527: IF (g_debug > 0 ) THEN
528: csd_gen_utility_pvt.dump_api_info ( p_pkg_name => G_PKG_NAME,
529: p_api_name => l_api_name );
530: END IF;
531:
532: --debug msg
530: END IF;
531:
532: --debug msg
533: IF (g_debug > 0 ) THEN
534: csd_gen_utility_pvt.ADD ('Check required param and validate them');
535: END IF;
536:
537:
538: -- Check the required parameters
570: END;
571:
572: --debug msg
573: IF (g_debug > 0 ) THEN
574: csd_gen_utility_pvt.ADD ('Call OKS_Con_Coverage_PUB.Get_BP_PriceList API: p_contract_line_id ='|| p_contract_line_id);
575: END IF;
576:
577: -- gilam: bug 3542319 - changed the logic to handle contract price lists
578: BEGIN
593:
594:
595: IF (g_debug > 0 ) THEN
596:
597: csd_gen_utility_pvt.ADD ('Call OKS API to get price list: return status ='|| x_return_status);
598: csd_gen_utility_pvt.ADD ('l_pl_out_tbl(i).bp_price_list_id: '|| l_pl_out_tbl(i).bp_price_list_id);
599:
600: END IF;
601:
594:
595: IF (g_debug > 0 ) THEN
596:
597: csd_gen_utility_pvt.ADD ('Call OKS API to get price list: return status ='|| x_return_status);
598: csd_gen_utility_pvt.ADD ('l_pl_out_tbl(i).bp_price_list_id: '|| l_pl_out_tbl(i).bp_price_list_id);
599:
600: END IF;
601:
602:
768: BEGIN
769:
770: --debug msg
771: IF (g_debug > 0 ) THEN
772: csd_gen_utility_pvt.ADD ('Validate Contract function: p_contract_line_id ='|| p_contract_line_id);
773: END IF;
774:
775: -- Standard Start of API savepoint
776: SAVEPOINT Validate_Contract;
796: -- Begin API Body
797: --
798:
799: IF (g_debug > 0 ) THEN
800: csd_gen_utility_pvt.dump_api_info ( p_pkg_name => G_PKG_NAME,
801: p_api_name => l_api_name );
802: END IF;
803:
804: --debug msg
802: END IF;
803:
804: --debug msg
805: IF (g_debug > 0 ) THEN
806: csd_gen_utility_pvt.ADD ('Check required parameters and validate them');
807: END IF;
808:
809: CSD_PROCESS_UTIL.Check_Reqd_Param
810: ( p_param_value => p_repair_type_id,
823:
824:
825: --debug msg
826: IF (g_debug > 0 ) THEN
827: csd_gen_utility_pvt.ADD ('Call Get_ContractPriceList procedure: p_contract_line_id ='|| p_contract_line_id);
828: END IF;
829:
830: IF (p_contract_line_id IS NOT NULL) THEN
831: Get_ContractPriceList
846: ELSE
847:
848: --debug msg
849: IF (g_debug > 0 ) THEN
850: csd_gen_utility_pvt.ADD ('p_contract_line_id is null');
851: END IF;
852:
853: RAISE FND_API.G_EXC_ERROR;
854:
855: END IF;
856:
857: --debug msg
858: IF (g_debug > 0 ) THEN
859: csd_gen_utility_pvt.ADD ('Call Get_ContractPriceList procedure: return status ='|| x_return_status);
860: END IF;
861:
862: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
863:
872: ELSIF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
873:
874: --debug msg
875: IF (g_debug > 0 ) THEN
876: csd_gen_utility_pvt.ADD ('Get_ContractPL procedure failed');
877: END IF;
878:
879: RAISE FND_API.G_EXC_ERROR;
880:
1007: BEGIN
1008:
1009: --debug msg
1010: IF (g_debug > 0 ) THEN
1011: csd_gen_utility_pvt.ADD ('Get_DiscountedPrice procedure: p_contract_line_id ='|| p_contract_line_id);
1012: END IF;
1013:
1014: -- Standard Start of API savepoint
1015: SAVEPOINT Get_DiscountedPrice;
1035: -- Begin API Body
1036: --
1037:
1038: IF (g_debug > 0 ) THEN
1039: csd_gen_utility_pvt.dump_api_info ( p_pkg_name => G_PKG_NAME,
1040: p_api_name => l_api_name );
1041: END IF;
1042:
1043: --debug msg
1041: END IF;
1042:
1043: --debug msg
1044: IF (g_debug > 0 ) THEN
1045: csd_gen_utility_pvt.ADD ('Check required parameters and validate them');
1046: END IF;
1047:
1048: -- Check the required parameters
1049: CSD_PROCESS_UTIL.Check_Reqd_Param
1108: END IF;
1109:
1110: --debug msg
1111: IF (g_debug > 0 ) THEN
1112: csd_gen_utility_pvt.ADD ('Call OKS_Con_Coverage_PUB.Apply_Contract_Coverage API: p_contract_line_id ='|| p_contract_line_id);
1113: END IF;
1114:
1115:
1116: -- Call OKS_Con_Coverage_PUB.Apply_Contract_Coverage API
1232: BEGIN
1233:
1234: --debug msg
1235: IF (g_debug > 0 ) THEN
1236: csd_gen_utility_pvt.ADD ('Get_CoverageInfo procedure: p_contract_line_id ='|| p_contract_line_id);
1237: csd_gen_utility_pvt.ADD ('Get_CoverageInfo procedure: p_business_process_id='|| p_business_process_id);
1238: END IF;
1239:
1240: -- Initialize API return status to success
1233:
1234: --debug msg
1235: IF (g_debug > 0 ) THEN
1236: csd_gen_utility_pvt.ADD ('Get_CoverageInfo procedure: p_contract_line_id ='|| p_contract_line_id);
1237: csd_gen_utility_pvt.ADD ('Get_CoverageInfo procedure: p_business_process_id='|| p_business_process_id);
1238: END IF;
1239:
1240: -- Initialize API return status to success
1241: x_return_status := FND_API.G_RET_STS_SUCCESS;
1240: -- Initialize API return status to success
1241: x_return_status := FND_API.G_RET_STS_SUCCESS;
1242:
1243: IF (g_debug > 0 ) THEN
1244: csd_gen_utility_pvt.dump_api_info ( p_pkg_name => G_PKG_NAME,
1245: p_api_name => l_api_name );
1246: END IF;
1247:
1248: --debug msg
1246: END IF;
1247:
1248: --debug msg
1249: IF (g_debug > 0 ) THEN
1250: csd_gen_utility_pvt.ADD ('Check required parameters and validate them');
1251: END IF;
1252:
1253: -- Check the required parameters
1254: CSD_PROCESS_UTIL.Check_Reqd_Param
1263:
1264: x_coverage_txn_group_id := NULL;
1265:
1266: IF (g_debug > 0 ) THEN
1267: csd_gen_utility_pvt.ADD ('Get_CoverageInfo: Opening cursor');
1268: END IF;
1269:
1270: x_coverage_txn_group_id := NULL;
1271:
1286: /****
1287: IF (x_coverage_txn_group_id IS NULL) THEN
1288: -- put a debug message.
1289: IF (g_debug > 0 ) THEN
1290: csd_gen_utility_pvt.ADD ('Get_CoverageInfo: No coverage information found.');
1291: END IF;
1292:
1293: -- Log an error message.
1294: FND_MESSAGE.SET_NAME('CSD', 'CSD_CHRG_UTIL_NO_COVG');