[Home] [Help]
1: Package BODY Csd_Repair_Estimate_Pvt AS
2: /* $Header: csdvestb.pls 120.18.12020000.2 2013/03/27 19:43:27 swai ship $ */
3:
4: -- ---------------------------------------------------------
5: -- Define global variables
4: -- ---------------------------------------------------------
5: -- Define global variables
6: -- ---------------------------------------------------------
7:
8: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_REPAIR_ESTIMATE_PVT';
9: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdvestb.pls';
10: g_debug NUMBER := Csd_Gen_Utility_Pvt.g_debug_level;
11: ----Begin change for 3931317, wrpper aPI forward port
12:
531: END IF;
532:
533: IF (g_debug > 0)
534: THEN
535: Csd_Gen_Utility_Pvt.ADD('CSD_REPAIR_ESTIMATE_PVT.UPDATE_RO_GROUP_ESTIMATE Update Group RO call');
536: END IF;
537:
538: Csd_Repair_Groups_Pvt.UPDATE_REPAIR_GROUPS(p_api_version => 1.0,
539: p_commit => 'F',
545: x_msg_data => l_msg_data);
546:
547: IF (g_debug > 0)
548: THEN
549: Csd_Gen_Utility_Pvt.ADD('CSD_REPAIR_ESTIMATE_PVT.UPDATE_RO_GROUP_ESTIMATE UPDATE_REPAIR_GROUPS :' ||
550: x_return_status);
551: END IF;
552:
553: IF l_return_status <> 'S'
718:
719: BEGIN
720: SELECT COUNT(*)
721: INTO l_est_count
722: FROM CSD_REPAIR_ESTIMATE
723: WHERE repair_line_id = x_estimate_rec.repair_line_id;
724: EXCEPTION
725: WHEN OTHERS THEN
726: NULL;
777:
778: -- Assigning object version number
779: x_estimate_rec.object_version_number := 1;
780:
781: Csd_Repair_Estimate_Pkg.Insert_Row(px_REPAIR_ESTIMATE_ID => x_estimate_rec.repair_estimate_id,
782: p_REPAIR_LINE_ID => x_estimate_rec.repair_line_id,
783: p_ESTIMATE_STATUS => x_estimate_rec.estimate_status,
784: p_ESTIMATE_DATE => x_estimate_rec.estimate_date,
785: p_WORK_SUMMARY => x_estimate_rec.work_summary,
899: CURSOR repair_estimate(p_est_id IN NUMBER) IS
900: SELECT a.repair_estimate_id,
901: a.object_version_number,
902: b.approval_status
903: FROM CSD_REPAIR_ESTIMATE a, CSD_REPAIRS b
904: WHERE a.repair_line_id = b.repair_line_id
905: AND a.repair_estimate_id = p_est_id;
906:
907: BEGIN
1038: -- IF NVL(l_approval_status,'Z') <> 'A' THEN
1039:
1040: IF (g_debug > 0)
1041: THEN
1042: Csd_Gen_Utility_Pvt.ADD('Calling CSD_REPAIR_ESTIMATE_PKG.Update_Row');
1043: END IF;
1044:
1045: Csd_Repair_Estimate_Pkg.Update_Row(p_REPAIR_ESTIMATE_ID => x_estimate_rec.repair_estimate_id,
1046: p_REPAIR_LINE_ID => x_estimate_rec.repair_line_id,
1041: THEN
1042: Csd_Gen_Utility_Pvt.ADD('Calling CSD_REPAIR_ESTIMATE_PKG.Update_Row');
1043: END IF;
1044:
1045: Csd_Repair_Estimate_Pkg.Update_Row(p_REPAIR_ESTIMATE_ID => x_estimate_rec.repair_estimate_id,
1046: p_REPAIR_LINE_ID => x_estimate_rec.repair_line_id,
1047: p_ESTIMATE_STATUS => x_estimate_rec.estimate_status,
1048: p_ESTIMATE_DATE => x_estimate_rec.estimate_date,
1049: p_WORK_SUMMARY => x_estimate_rec.work_summary,
1219:
1220: BEGIN
1221: SELECT b.approval_status
1222: INTO l_approval_status
1223: FROM CSD_REPAIR_ESTIMATE a, CSD_REPAIRS b
1224: WHERE a.repair_line_id = b.repair_line_id
1225: AND a.repair_estimate_id = p_estimate_id;
1226: EXCEPTION
1227: WHEN NO_DATA_FOUND THEN
1238:
1239: BEGIN
1240: SELECT COUNT(*)
1241: INTO l_est_line_count
1242: FROM CSD_REPAIR_ESTIMATE_LINES
1243: WHERE repair_estimate_id = p_estimate_id;
1244: EXCEPTION
1245: WHEN OTHERS THEN
1246: NULL;
1262: IF NVL(l_approval_status, 'Z') <> 'A'
1263: THEN
1264: IF (g_debug > 0)
1265: THEN
1266: Csd_Gen_Utility_Pvt.ADD('Call CSD_REPAIR_ESTIMATE_PKG.Delete_Row');
1267: END IF;
1268:
1269: Csd_Repair_Estimate_Pkg.Delete_Row(p_REPAIR_ESTIMATE_ID => p_estimate_id);
1270: ELSE
1265: THEN
1266: Csd_Gen_Utility_Pvt.ADD('Call CSD_REPAIR_ESTIMATE_PKG.Delete_Row');
1267: END IF;
1268:
1269: Csd_Repair_Estimate_Pkg.Delete_Row(p_REPAIR_ESTIMATE_ID => p_estimate_id);
1270: ELSE
1271: Fnd_Message.SET_NAME('CSD', 'CSD_EST_DELETE_NOT_ALLOWED');
1272: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_ID', p_estimate_id);
1273: Fnd_Msg_Pub.ADD;
1348:
1349: -- Initialize API return status to success
1350: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1351:
1352: Csd_Repair_Estimate_Pkg.Lock_Row(p_REPAIR_ESTIMATE_ID => p_estimate_rec.repair_estimate_id,
1353: p_OBJECT_VERSION_NUMBER => p_estimate_rec.OBJECT_VERSION_NUMBER);
1354:
1355: -- Standard check of p_commit.
1356: IF Fnd_Api.To_Boolean(p_commit)
1392: PROCEDURE CREATE_REPAIR_ESTIMATE_LINES(p_api_version IN NUMBER,
1393: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1394: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1395: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1396: x_estimate_line_rec IN OUT NOCOPY CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_REC,
1397: x_estimate_line_id OUT NOCOPY NUMBER,
1398: x_return_status OUT NOCOPY VARCHAR2,
1399: x_msg_count OUT NOCOPY NUMBER,
1400: x_msg_data OUT NOCOPY VARCHAR2) IS
1861: END IF;
1862:
1863: IF (g_debug > 0)
1864: THEN
1865: Csd_Gen_Utility_Pvt.ADD('Call csd_repair_estimate_lines_pkg.insert_row to create repair estimate lines ');
1866: END IF;
1867:
1868: -- travi forward port Bug # 2789754 fix added override_charge_flag
1869: Csd_Repair_Estimate_Lines_Pkg.Insert_Row(px_REPAIR_ESTIMATE_LINE_ID => x_estimate_line_rec.repair_estimate_line_id,
1865: Csd_Gen_Utility_Pvt.ADD('Call csd_repair_estimate_lines_pkg.insert_row to create repair estimate lines ');
1866: END IF;
1867:
1868: -- travi forward port Bug # 2789754 fix added override_charge_flag
1869: Csd_Repair_Estimate_Lines_Pkg.Insert_Row(px_REPAIR_ESTIMATE_LINE_ID => x_estimate_line_rec.repair_estimate_line_id,
1870: p_REPAIR_ESTIMATE_ID => x_estimate_line_rec.repair_estimate_id,
1871: p_ESTIMATE_DETAIL_ID => l_Charges_Rec.estimate_detail_id,
1872: p_LAST_UPDATE_DATE => SYSDATE,
1873: p_CREATION_DATE => SYSDATE,
1945: PROCEDURE UPDATE_REPAIR_ESTIMATE_LINES(p_api_version IN NUMBER,
1946: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1947: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1948: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1949: x_estimate_line_rec IN OUT NOCOPY CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_REC,
1950: x_return_status OUT NOCOPY VARCHAR2,
1951: x_msg_count OUT NOCOPY NUMBER,
1952: x_msg_data OUT NOCOPY VARCHAR2) IS
1953:
1983: l_serial_flag BOOLEAN := FALSE;
1984:
1985: CURSOR estimate_line(p_est_line_id IN NUMBER) IS
1986: SELECT estimate_detail_id, object_version_number
1987: FROM CSD_REPAIR_ESTIMATE_LINES
1988: WHERE repair_estimate_line_id = p_est_line_id;
1989:
1990: BEGIN
1991: -- Standard Start of API savepoint
2252: END IF; -- end of update charge line
2253:
2254: IF (g_debug > 0)
2255: THEN
2256: Csd_Gen_Utility_Pvt.ADD('Call csd_repair_estimate_line_pkg.update_row to update the repair estimate');
2257: END IF;
2258:
2259: IF (g_debug > 0)
2260: THEN
2262: x_estimate_line_rec.repair_estimate_line_id);
2263: END IF;
2264:
2265: -- travi forward port Bug # 2789754 fix added override_charge_flag
2266: Csd_Repair_Estimate_Lines_Pkg.Update_Row(p_REPAIR_ESTIMATE_LINE_ID => x_estimate_line_rec.repair_estimate_line_id,
2267: p_REPAIR_ESTIMATE_ID => x_estimate_line_rec.repair_estimate_id,
2268: p_ESTIMATE_DETAIL_ID => x_estimate_line_rec.estimate_detail_id,
2269: p_LAST_UPDATE_DATE => SYSDATE,
2270: p_CREATION_DATE => SYSDATE,
2422: -- only if it is not interfaced
2423: BEGIN
2424: SELECT a.estimate_detail_id
2425: INTO l_est_detail_id
2426: FROM CSD_REPAIR_ESTIMATE_LINES a, cs_estimate_details b
2427: WHERE a.estimate_detail_id = b.estimate_detail_id
2428: AND a.repair_estimate_line_id = p_estimate_line_id
2429: AND b.order_header_id IS NULL;
2430: l_delete_allow := 'Y';
2484: THEN
2485: Csd_Gen_Utility_Pvt.ADD('Call csd_product_transactions_pkg.Delete_Row');
2486: END IF;
2487:
2488: Csd_Repair_Estimate_Lines_Pkg.Delete_Row(p_REPAIR_ESTIMATE_LINE_ID => p_estimate_line_id);
2489:
2490: END IF; --end of delete
2491:
2492: -- Api body ends here
2564:
2565: -- Initialize API return status to success
2566: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2567:
2568: Csd_Repair_Estimate_Lines_Pkg.Lock_Row(p_REPAIR_ESTIMATE_LINE_ID => p_estimate_line_rec.repair_estimate_line_id,
2569: p_OBJECT_VERSION_NUMBER => p_estimate_line_rec.object_version_number);
2570:
2571: -- Standard check of p_commit.
2572: IF Fnd_Api.To_Boolean(p_commit)
2823: l_est_line_rec Cs_Charge_Details_Pub.Charges_Rec_Type;
2824:
2825: CURSOR ESTIMATE(p_rep_line_id IN NUMBER) IS
2826: SELECT ced.estimate_detail_id, ced.purchase_order_num
2827: FROM CSD_REPAIR_ESTIMATE cre,
2828: CSD_REPAIR_ESTIMATE_LINES crel,
2829: cs_estimate_details ced
2830: WHERE cre.repair_line_id = p_rep_line_id
2831: AND cre.repair_estimate_id = crel.repair_estimate_id
2824:
2825: CURSOR ESTIMATE(p_rep_line_id IN NUMBER) IS
2826: SELECT ced.estimate_detail_id, ced.purchase_order_num
2827: FROM CSD_REPAIR_ESTIMATE cre,
2828: CSD_REPAIR_ESTIMATE_LINES crel,
2829: cs_estimate_details ced
2830: WHERE cre.repair_line_id = p_rep_line_id
2831: AND cre.repair_estimate_id = crel.repair_estimate_id
2832: AND crel.estimate_detail_id = ced.estimate_detail_id
3106: lc_event_level CONSTANT NUMBER := Fnd_Log.LEVEL_EVENT;
3107: lc_excep_level CONSTANT NUMBER := Fnd_Log.LEVEL_EXCEPTION;
3108: lc_error_level CONSTANT NUMBER := Fnd_Log.LEVEL_ERROR;
3109: lc_unexp_level CONSTANT NUMBER := Fnd_Log.LEVEL_UNEXPECTED;
3110: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_estimate_pvt.get_total_estimated_charge';
3111: BEGIN
3112: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
3113: THEN
3114: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3119: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3120:
3121: SELECT SUM(NVL(charge, 0))
3122: INTO x_estimated_charge
3123: FROM csd_repair_estimate_lines_v
3124: WHERE repair_line_id = p_repair_line_id
3125: AND billing_type IN ('M', 'L', 'E');
3126:
3127: IF (Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level)
3186: lc_event_level CONSTANT NUMBER := Fnd_Log.LEVEL_EVENT;
3187: lc_excep_level CONSTANT NUMBER := Fnd_Log.LEVEL_EXCEPTION;
3188: lc_error_level CONSTANT NUMBER := Fnd_Log.LEVEL_ERROR;
3189: lc_unexp_level CONSTANT NUMBER := Fnd_Log.LEVEL_UNEXPECTED;
3190: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_estimate_pvt.autocreate_estimate_lines';
3191: lc_api_name CONSTANT VARCHAR2(30) := 'Autocreate_Estimate_Lines';
3192: lc_api_version CONSTANT NUMBER := 1.0;
3193:
3194: -- VARIABLES --
3195: l_default_contract_line_id NUMBER := NULL;
3196: l_default_price_list_id NUMBER := NULL;
3197: l_num_service_codes NUMBER := 0;
3198: l_contract_validated BOOLEAN;
3199: l_est_lines_tbl CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_TBL;
3200: l_return_status VARCHAR2(1);
3201: l_msg_count NUMBER;
3202: l_msg_data VARCHAR2(200);
3203: l_estimate_line_id NUMBER;
3477: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
3478: THEN
3479: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3480: lc_mod_name,
3481: 'Calling CSD_REPAIR_ESTIMATE_PVT.Get_Estimates_From_Task');
3482: END IF;
3483: Get_Estimates_From_Task(p_api_version => 1.0,
3484: p_commit => p_commit,
3485: p_init_msg_list => Fnd_Api.G_FALSE,
3503: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
3504: THEN
3505: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3506: lc_mod_name,
3507: 'Returned from CSD_REPAIR_ESTIMATE_PVT.Get_Estimates_From_Task');
3508: END IF;
3509: ELSIF p_repair_mode = 'WIP'
3510: THEN
3511: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
3511: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
3512: THEN
3513: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3514: lc_mod_name,
3515: 'Calling CSD_REPAIR_ESTIMATE_PVT.Get_Estimates_From_BOM');
3516: END IF;
3517: Get_Estimates_From_BOM(p_api_version => 1.0,
3518: p_commit => p_commit,
3519: p_init_msg_list => Fnd_Api.G_FALSE,
3537: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
3538: THEN
3539: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3540: lc_mod_name,
3541: 'Returned from CSD_REPAIR_ESTIMATE_PVT.Get_Estimates_From_BOM');
3542: END IF;
3543: ELSE
3544: IF (Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level)
3545: THEN
4078: p_inventory_item_id IN NUMBER,
4079: p_organization_id IN NUMBER,
4080: p_price_list_id IN NUMBER,
4081: p_contract_line_id IN NUMBER,
4082: x_est_lines_tbl OUT NOCOPY CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_TBL,
4083: x_warning_flag OUT NOCOPY VARCHAR2) IS
4084: -- CONSTANTS --
4085: lc_debug_level CONSTANT NUMBER := Fnd_Log.G_CURRENT_RUNTIME_LEVEL;
4086: lc_stat_level CONSTANT NUMBER := Fnd_Log.LEVEL_STATEMENT;
4088: lc_event_level CONSTANT NUMBER := Fnd_Log.LEVEL_EVENT;
4089: lc_excep_level CONSTANT NUMBER := Fnd_Log.LEVEL_EXCEPTION;
4090: lc_error_level CONSTANT NUMBER := Fnd_Log.LEVEL_ERROR;
4091: lc_unexp_level CONSTANT NUMBER := Fnd_Log.LEVEL_UNEXPECTED;
4092: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_estimate_pvt.get_estimates_from_task';
4093: lc_api_name CONSTANT VARCHAR2(30) := 'Get_Estimates_From_Task';
4094: lc_api_version CONSTANT NUMBER := 1.0;
4095:
4096: -- VARIABLES --
4296: and KBSets.set_id = SetLinkTG.set_id
4297: and KBSets.status = 'PUB' -- only published solutions
4298: and not exists -- not already brought in
4299: ( select 'x'
4300: from csd_repair_estimate_lines_v csd
4301: where csd.repair_line_id = SetLinkRO.other_id
4302: and csd.est_line_source_type_code = 'SOLUTION'
4303: and csd.est_line_source_id1 = KBSets.set_id);
4304:
4358: and KBSets.set_id = SetLinkTG.set_id
4359: and KBSets.status = 'PUB' -- only published solutions
4360: and not exists -- not already brought in
4361: ( select 'x'
4362: from csd_repair_estimate_lines_v csd
4363: where csd.repair_line_id = SetLinkRO.other_id
4364: and csd.est_line_source_type_code = 'SOLUTION'
4365: and csd.est_line_source_id1 = KBSets.set_id);
4366: */
4535: AND KBSets.set_id = SetLinkTG.set_id
4536: AND KBSets.status = 'PUB' -- only published solutions
4537: AND NOT EXISTS -- not already brought in
4538: (SELECT 'x'
4539: FROM csd_repair_estimate_lines_v csd
4540: WHERE csd.repair_line_id = SetLinkRO.other_id
4541: AND csd.est_line_source_type_code = 'SOLUTION'
4542: AND csd.est_line_source_id1 = KBSets.set_id);
4543:
4596: AND KBSets.set_id = SetLinkTG.set_id
4597: AND KBSets.status = 'PUB' -- only published solutions
4598: AND NOT EXISTS -- not already brought in
4599: (SELECT 'x'
4600: FROM csd_repair_estimate_lines_v csd
4601: WHERE csd.repair_line_id = SetLinkRO.other_id
4602: AND csd.est_line_source_type_code = 'SOLUTION'
4603: AND csd.est_line_source_id1 = KBSets.set_id);
4604:
4627: AND KBSets.status = 'PUB' -- only published solutions
4628: AND repairs.repair_line_id = SetLinkRO.other_id
4629: AND NOT EXISTS -- not already brought in
4630: (SELECT 'x'
4631: FROM csd_repair_estimate_lines_v csd
4632: WHERE csd.repair_line_id = SetLinkRO.other_id
4633: AND csd.est_line_source_type_code = 'SOLUTION'
4634: AND csd.est_line_source_id1 = KBSets.set_id)
4635: AND NOT EXISTS -- no template for this product
4672: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
4673: THEN
4674: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
4675: lc_mod_name || '.BEGIN',
4676: 'Entering CSD_REPAIR_ESTIMATE_PVT.Get_Estimates_From_Task');
4677: END IF;
4678: -- log parameters
4679: IF (Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level)
4680: THEN
5185: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
5186: THEN
5187: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5188: lc_mod_name || '.END',
5189: 'Leaving CSD_REPAIR_ESTIMATE_PVT.Get_Estimates_From_Task');
5190: END IF;
5191: --
5192: -- End API Body
5193: --
5338: p_inventory_item_id IN NUMBER,
5339: p_organization_id IN NUMBER,
5340: p_price_list_id IN NUMBER,
5341: p_contract_line_id IN NUMBER,
5342: x_est_lines_tbl OUT NOCOPY CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_TBL,
5343: x_warning_flag OUT NOCOPY VARCHAR2) IS
5344:
5345: -- CONSTANTS --
5346: lc_debug_level CONSTANT NUMBER := Fnd_Log.G_CURRENT_RUNTIME_LEVEL;
5349: lc_event_level CONSTANT NUMBER := Fnd_Log.LEVEL_EVENT;
5350: lc_excep_level CONSTANT NUMBER := Fnd_Log.LEVEL_EXCEPTION;
5351: lc_error_level CONSTANT NUMBER := Fnd_Log.LEVEL_ERROR;
5352: lc_unexp_level CONSTANT NUMBER := Fnd_Log.LEVEL_UNEXPECTED;
5353: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_estimate_pvt.get_estimates_from_bom';
5354: lc_api_name CONSTANT VARCHAR2(30) := 'Get_Estimates_From_BOM';
5355: lc_api_version CONSTANT NUMBER := 1.0;
5356:
5357: -- VARIABLES --
5608: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
5609: THEN
5610: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5611: lc_mod_name || '.BEGIN',
5612: 'Entering CSD_REPAIR_ESTIMATE_PVT.Get_Estimates_From_BOM');
5613: END IF;
5614: -- log parameters
5615: IF (Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level)
5616: THEN
5872: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
5873: THEN
5874: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5875: lc_mod_name || '.END',
5876: 'Leaving CSD_REPAIR_ESTIMATE_PVT.Get_Estimates_From_BOM');
5877: END IF;
5878:
5879: --
5880: -- End API Body
6036: lc_event_level CONSTANT NUMBER := Fnd_Log.LEVEL_EVENT;
6037: lc_excep_level CONSTANT NUMBER := Fnd_Log.LEVEL_EXCEPTION;
6038: lc_error_level CONSTANT NUMBER := Fnd_Log.LEVEL_ERROR;
6039: lc_unexp_level CONSTANT NUMBER := Fnd_Log.LEVEL_UNEXPECTED;
6040: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_estimate_pvt.convert_to_est_lines';
6041: lc_api_name CONSTANT VARCHAR2(30) := 'Convert_To_Est_Lines';
6042: lc_api_version CONSTANT NUMBER := 1.0;
6043:
6044: -- VARIABLES --
6098: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
6099: THEN
6100: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
6101: lc_mod_name || '.BEGIN',
6102: 'Entering CSD_REPAIR_ESTIMATE_PVT.Convert_To_Est_Lines');
6103: END IF;
6104: -- log parameters
6105: IF (Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level)
6106: THEN
6706: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
6707: THEN
6708: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
6709: lc_mod_name || '.END',
6710: 'Leaving CSD_REPAIR_ESTIMATE_PVT.Convert_To_Est_Lines');
6711: END IF;
6712:
6713: --
6714: -- End API Body
6829: p_validation_level IN NUMBER,
6830: x_return_status OUT NOCOPY VARCHAR2,
6831: x_msg_count OUT NOCOPY NUMBER,
6832: x_msg_data OUT NOCOPY VARCHAR2,
6833: p_estimate_hdr_rec IN Csd_Repair_Estimate_Pub.ESTIMATE_HDR_REC,
6834: x_estimate_hdr_id OUT NOCOPY NUMBER ) IS
6835: l_incident_id NUMBER;
6836: l_tmp_count NUMBER;
6837: l_repln_obj_Ver NUMBER;
6842: l_msg_Data VARCHAR2(2000);
6843: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_ESTIMATE_HEADER';
6844: l_api_version CONSTANT NUMBER := 1.0;
6845:
6846: l_estimate_hdr_rec Csd_Repair_Estimate_Pub.ESTIMATE_HDR_REC;
6847: l_est_hdr_pvt_rec Csd_Repair_Estimate_Pvt.REPAIR_ESTIMATE_REC;
6848: BEGIN
6849:
6850: IF (Fnd_Log.level_procedure >= Fnd_Log.g_current_runtime_level)
6843: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_ESTIMATE_HEADER';
6844: l_api_version CONSTANT NUMBER := 1.0;
6845:
6846: l_estimate_hdr_rec Csd_Repair_Estimate_Pub.ESTIMATE_HDR_REC;
6847: l_est_hdr_pvt_rec Csd_Repair_Estimate_Pvt.REPAIR_ESTIMATE_REC;
6848: BEGIN
6849:
6850: IF (Fnd_Log.level_procedure >= Fnd_Log.g_current_runtime_level)
6851: THEN
6849:
6850: IF (Fnd_Log.level_procedure >= Fnd_Log.g_current_runtime_level)
6851: THEN
6852: Fnd_Log.STRING(Fnd_Log.level_procedure,
6853: 'csd.plsql.csd_repair_Estimate_pvt.create_estimate_header.begin',
6854: 'Entering create_estimate_header');
6855: END IF;
6856: -- Standard Start of API savepoint
6857: SAVEPOINT CREATE_ESTIMATE_HEADER_PVT;
6936: debug('creating estimate header');
6937:
6938: csd_estimate_utils_pvt.COPY_TO_EST_HDR_REC(l_estimate_hdr_rec,
6939: l_est_hdr_pvt_rec);
6940: Csd_Repair_Estimate_Pvt.create_repair_estimate(p_api_version => 1.0,
6941: p_commit => Fnd_Api.G_FALSE,
6942: p_init_msg_list => Fnd_Api.G_FALSE,
6943: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
6944: x_estimate_rec => l_est_hdr_pvt_rec,
6964:
6965: IF (Fnd_Log.level_procedure >= Fnd_Log.g_current_runtime_level)
6966: THEN
6967: Fnd_Log.STRING(Fnd_Log.level_procedure,
6968: 'csd.plsql.csd_repair_Estimate_pvt.create_estimate_header.end',
6969: 'Leaving create_estimate_header');
6970: END IF;
6971:
6972: -- Standard call to get message count and IF count is get message info.
6980: p_data => x_msg_data);
6981: IF (Fnd_Log.level_error >= Fnd_Log.g_current_runtime_level)
6982: THEN
6983: Fnd_Log.STRING(Fnd_Log.level_error,
6984: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_header',
6985: 'EXC_ERROR[' || x_msg_data || ']');
6986: END IF;
6987: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6988: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6991: p_data => x_msg_data);
6992: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level)
6993: THEN
6994: Fnd_Log.STRING(Fnd_Log.level_exception,
6995: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_header',
6996: 'EXC_UNEXP_ERROR[' || x_msg_data || ']');
6997: END IF;
6998: WHEN OTHERS THEN
6999: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7006: p_data => x_msg_data);
7007: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level)
7008: THEN
7009: Fnd_Log.STRING(Fnd_Log.level_exception,
7010: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_header',
7011: 'SQL MEssage[' || SQLERRM || ']');
7012: END IF;
7013:
7014: END CREATE_ESTIMATE_HEADER;
7026: p_validation_level IN NUMBER,
7027: x_return_status OUT NOCOPY VARCHAR2,
7028: x_msg_count OUT NOCOPY NUMBER,
7029: x_msg_data OUT NOCOPY VARCHAR2,
7030: p_estimate_line_rec IN Csd_Repair_Estimate_Pub.ESTIMATE_LINE_REC,
7031: x_estimate_line_id OUT NOCOPY NUMBER) IS
7032:
7033: l_tmp_count NUMBER;
7034: l_repair_type_id NUMBER;
7040: l_api_version CONSTANT NUMBER := 1.0;
7041: l_no_charge_flag VARCHAR2(10);
7042: l_contract_line_id NUMBER;
7043:
7044: l_est_pvt_line_rec CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_REC;
7045: l_estimate_line_rec Csd_Repair_Estimate_Pub.ESTIMATE_LINE_REC;
7046:
7047: BEGIN
7048:
7041: l_no_charge_flag VARCHAR2(10);
7042: l_contract_line_id NUMBER;
7043:
7044: l_est_pvt_line_rec CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_REC;
7045: l_estimate_line_rec Csd_Repair_Estimate_Pub.ESTIMATE_LINE_REC;
7046:
7047: BEGIN
7048:
7049: -- Standard Start of API savepoint
7072:
7073: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
7074: THEN
7075: fnd_log.STRING(fnd_log.level_procedure,
7076: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_line.begin',
7077: 'Entering create_estimate_line');
7078: END IF;
7079:
7080: l_estimate_line_rec := p_estimate_line_rec;
7123:
7124: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
7125: THEN
7126: fnd_log.STRING(fnd_log.level_procedure,
7127: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_line.end',
7128: 'leaving create_estimate_line');
7129: END IF;
7130: EXCEPTION
7131: WHEN Fnd_Api.G_EXC_ERROR THEN
7135: p_data => x_msg_data);
7136: IF (Fnd_Log.level_error >= Fnd_Log.g_current_runtime_level)
7137: THEN
7138: Fnd_Log.STRING(Fnd_Log.level_error,
7139: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_line',
7140: 'EXC_ERROR[' || x_msg_data || ']');
7141: END IF;
7142:
7143: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
7147: p_data => x_msg_data);
7148: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level)
7149: THEN
7150: Fnd_Log.STRING(Fnd_Log.level_exception,
7151: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_line',
7152: 'EXC_UNEXP_ERROR[' || x_msg_data || ']');
7153: END IF;
7154: WHEN OTHERS THEN
7155: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7162: p_data => x_msg_data);
7163: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level)
7164: THEN
7165: Fnd_Log.STRING(Fnd_Log.level_exception,
7166: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_line',
7167: 'SQL MEssage[' || SQLERRM || ']');
7168: END IF;
7169:
7170: END CREATE_ESTIMATE_LINE;
7182: p_validation_level IN NUMBER,
7183: x_return_status OUT NOCOPY VARCHAR2,
7184: x_msg_count OUT NOCOPY NUMBER,
7185: x_msg_data OUT NOCOPY VARCHAR2,
7186: p_estimate_hdr_rec IN Csd_Repair_Estimate_Pub.ESTIMATE_HDR_REC,
7187: x_object_version_number OUT NOCOPY NUMBER) IS
7188:
7189: l_return_status VARCHAR2(30);
7190: l_approval_Status VARCHAR2(30);
7192: l_msg_Data VARCHAR2(2000);
7193: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_ESTIMATE_HEADER';
7194: l_api_version CONSTANT NUMBER := 1.0;
7195:
7196: l_est_pvt_hdr_Rec CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_REC;
7197: l_estimate_hdr_rec Csd_Repair_Estimate_Pub.ESTIMATE_HDR_REC;
7198:
7199: l_est_status_changed BOOLEAN;
7200: l_est_hdr_id NUMBER;
7193: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_ESTIMATE_HEADER';
7194: l_api_version CONSTANT NUMBER := 1.0;
7195:
7196: l_est_pvt_hdr_Rec CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_REC;
7197: l_estimate_hdr_rec Csd_Repair_Estimate_Pub.ESTIMATE_HDR_REC;
7198:
7199: l_est_status_changed BOOLEAN;
7200: l_est_hdr_id NUMBER;
7201:
7231: ATTRIBUTE15,
7232: OBJECT_VERSION_NUMBER,
7233: ESTIMATE_REASON_CODE,
7234: NOT_TO_EXCEED -- swai: bug 9462789 allow update of NTE value
7235: FROM CSD_REPAIR_ESTIMATE
7236: WHERE REPAIR_ESTIMATE_ID = p_estimate_header_id;
7237:
7238: BEGIN
7239: -- Standard Start of API savepoint
7262:
7263: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
7264: THEN
7265: fnd_log.STRING(fnd_log.level_procedure,
7266: 'csd.plsql.csd_repair_estimate_pvt.update_estimate_header.begin',
7267: 'Entering update_estimate_header');
7268: END IF;
7269:
7270:
7382:
7383: csd_estimate_utils_pvt.COPY_TO_EST_HDR_REC_UPD(l_estimate_hdr_rec,
7384: l_est_pvt_hdr_rec);
7385:
7386: Csd_Repair_Estimate_Pvt.update_repair_estimate(p_api_version => 1.0,
7387: p_commit => Fnd_Api.G_FALSE,
7388: p_init_msg_list => Fnd_Api.G_FALSE,
7389: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
7390: x_estimate_rec => l_est_pvt_hdr_rec,
7414:
7415: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
7416: THEN
7417: fnd_log.STRING(fnd_log.level_procedure,
7418: 'csd.plsql.csd_repair_estimate_pvt.update_estimate_header.end',
7419: 'leaving update_estimate_header');
7420: END IF;
7421: EXCEPTION
7422: WHEN Fnd_Api.G_EXC_ERROR THEN
7426: p_data => x_msg_data);
7427: IF (Fnd_Log.level_error >= Fnd_Log.g_current_runtime_level)
7428: THEN
7429: Fnd_Log.STRING(Fnd_Log.level_error,
7430: 'csd.plsql.csd_repair_estimate_pvt.update_estimate_header',
7431: 'EXC_ERROR[' || x_msg_data || ']');
7432: END IF;
7433:
7434: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
7438: p_data => x_msg_data);
7439: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level)
7440: THEN
7441: Fnd_Log.STRING(Fnd_Log.level_exception,
7442: 'csd.plsql.csd_repair_estimate_pvt.update_estimate_header',
7443: 'EXC_UNEXP_ERROR[' || x_msg_data || ']');
7444: END IF;
7445: WHEN OTHERS THEN
7446: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7453: p_data => x_msg_data);
7454: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level)
7455: THEN
7456: Fnd_Log.STRING(Fnd_Log.level_exception,
7457: 'csd.plsql.csd_repair_estimate_pvt.update_estimate_header',
7458: 'SQL MEssage[' || SQLERRM || ']');
7459: END IF;
7460:
7461: END UPDATE_ESTIMATE_HEADER;
7474: p_validation_level IN NUMBER,
7475: x_return_status OUT NOCOPY VARCHAR2,
7476: x_msg_count OUT NOCOPY NUMBER,
7477: x_msg_data OUT NOCOPY VARCHAR2,
7478: p_estimate_line_rec IN Csd_Repair_Estimate_Pub.ESTIMATE_LINE_REC,
7479: x_object_version_number OUT NOCOPY NUMBER) IS
7480: BEGIN
7481: NULL;
7482: END UPDATE_ESTIMATE_LINE;
7523: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
7524: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
7525: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7526: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7527: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_estimate_pvt.import_estimates_from_wip';
7528: lc_api_name CONSTANT VARCHAR2(30) := 'IMPORT_ESTIMATES_FROM_WIP';
7529: lc_api_version CONSTANT NUMBER := 1.0;
7530:
7531: -- Although both the constants have the same value, they have
7541: -- Variables --
7542: l_repair_estimate_id NUMBER;
7543: l_repair_estimate_status VARCHAR2(30);
7544: l_repair_estimate_status_name VARCHAR2(80);
7545: l_repair_estimate_rec CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_REC;
7546:
7547: -- Stores default contract and pricelist info.
7548: l_default_contract_line_id NUMBER := NULL;
7549: l_default_price_list_hdr_id NUMBER := NULL;
7565: CURSOR c_cur_repair_estimate_info IS
7566: SELECT est.repair_estimate_id,
7567: est.estimate_status,
7568: lkp.meaning
7569: FROM CSD_REPAIR_ESTIMATE est, fnd_lookups lkp
7570: WHERE est.repair_line_id = p_repair_line_id
7571: and lkp.lookup_code = est.estimate_status
7572: and lkp.lookup_type = 'CSD_ESTIMATE_STATUS'
7573: and rownum = 1;
7574:
7575: -- cursor to get the estimate lines for a given estimate header
7576: CURSOR c_estimate_lines (p_estimate_header_id NUMBER)IS
7577: SELECT lin.repair_estimate_line_id
7578: FROM CSD_REPAIR_ESTIMATE_LINES lin
7579: WHERE lin.repair_estimate_id = p_estimate_header_id;
7580:
7581:
7582: -- It forms the outer most loop for the processing.
7831:
7832: -- logging
7833: if (lc_proc_level >= lc_debug_level) then
7834: FND_LOG.STRING(lc_proc_level, lc_mod_name || '.BEGIN',
7835: 'Entering csd_repair_estimate_pvt.import_estimates_from_wip');
7836: end if;
7837:
7838: -- log parameters
7839: if (lc_stat_level >= lc_debug_level) then
8076: l_repair_estimate_rec.estimate_status := 'DRAFT'; -- lookup type CSD_ESTIMATE_STATUS (hardcode for now)
8077:
8078: select object_version_number
8079: into l_repair_estimate_rec.object_version_number
8080: from csd_repair_estimate
8081: where repair_estimate_id = l_repair_estimate_id;
8082:
8083: if (lc_stat_level >= lc_debug_level) then
8084: FND_LOG.STRING(lc_stat_level, lc_mod_name,'Calling UPDATE_REPAIR_ESTIMATE');
8150: 'WIP count (l_wip_count) is = ' || l_wip_count);
8151: end if;
8152:
8153: DECLARE
8154: l_estimate_lines_tbl CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_TBL;
8155: l_Estimates_count NUMBER := 0;
8156: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
8157: l_msg_count NUMBER;
8158: l_msg_data VARCHAR2(200);
8431: end if;
8432:
8433: if (lc_stat_level >= lc_debug_level) then
8434: FND_LOG.STRING(lc_stat_level, lc_mod_name,
8435: 'Calling procedure CSD_REPAIR_ESTIMATE_PVT.create_repair_estimate_lines');
8436: FND_LOG.STRING(lc_stat_level, lc_mod_name,
8437: 'index = ' || TO_CHAR( i ));
8438: end if;
8439: CSD_REPAIR_ESTIMATE_PVT.create_repair_estimate_lines( p_api_version => 1.0,
8435: 'Calling procedure CSD_REPAIR_ESTIMATE_PVT.create_repair_estimate_lines');
8436: FND_LOG.STRING(lc_stat_level, lc_mod_name,
8437: 'index = ' || TO_CHAR( i ));
8438: end if;
8439: CSD_REPAIR_ESTIMATE_PVT.create_repair_estimate_lines( p_api_version => 1.0,
8440: p_commit => FND_API.G_FALSE,
8441: p_init_msg_list => FND_API.G_FALSE,
8442: p_validation_level => 0,
8443: x_estimate_line_rec => l_estimate_lines_tbl( i ),
8573:
8574: -- logging
8575: if (lc_proc_level >= lc_debug_level) then
8576: FND_LOG.STRING(lc_proc_level, lc_mod_name || '.END',
8577: 'Leaving CSD_REPAIR_ESTIMATE_PVT.IMPORT_ESTIMATES_FROM_WIP');
8578: end if;
8579:
8580: EXCEPTION
8581: WHEN FND_API.G_EXC_ERROR THEN
8624: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
8625: p_data => x_msg_data );
8626: END Import_Estimates_From_Wip;
8627:
8628: END Csd_Repair_Estimate_Pvt;