[Home] [Help]
1: Package BODY Csd_Repair_Estimate_Pvt AS
2: /* $Header: csdvestb.pls 120.13.12010000.2 2008/09/04 10:00:34 subhat 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:
520: END IF;
521:
522: IF (g_debug > 0)
523: THEN
524: Csd_Gen_Utility_Pvt.ADD('CSD_REPAIR_ESTIMATE_PVT.UPDATE_RO_GROUP_ESTIMATE Update Group RO call');
525: END IF;
526:
527: Csd_Repair_Groups_Pvt.UPDATE_REPAIR_GROUPS(p_api_version => 1.0,
528: p_commit => 'F',
534: x_msg_data => l_msg_data);
535:
536: IF (g_debug > 0)
537: THEN
538: Csd_Gen_Utility_Pvt.ADD('CSD_REPAIR_ESTIMATE_PVT.UPDATE_RO_GROUP_ESTIMATE UPDATE_REPAIR_GROUPS :' ||
539: x_return_status);
540: END IF;
541:
542: IF l_return_status <> 'S'
707:
708: BEGIN
709: SELECT COUNT(*)
710: INTO l_est_count
711: FROM CSD_REPAIR_ESTIMATE
712: WHERE repair_line_id = x_estimate_rec.repair_line_id;
713: EXCEPTION
714: WHEN OTHERS THEN
715: NULL;
766:
767: -- Assigning object version number
768: x_estimate_rec.object_version_number := 1;
769:
770: Csd_Repair_Estimate_Pkg.Insert_Row(px_REPAIR_ESTIMATE_ID => x_estimate_rec.repair_estimate_id,
771: p_REPAIR_LINE_ID => x_estimate_rec.repair_line_id,
772: p_ESTIMATE_STATUS => x_estimate_rec.estimate_status,
773: p_ESTIMATE_DATE => x_estimate_rec.estimate_date,
774: p_WORK_SUMMARY => x_estimate_rec.work_summary,
888: CURSOR repair_estimate(p_est_id IN NUMBER) IS
889: SELECT a.repair_estimate_id,
890: a.object_version_number,
891: b.approval_status
892: FROM CSD_REPAIR_ESTIMATE a, CSD_REPAIRS b
893: WHERE a.repair_line_id = b.repair_line_id
894: AND a.repair_estimate_id = p_est_id;
895:
896: BEGIN
1027: -- IF NVL(l_approval_status,'Z') <> 'A' THEN
1028:
1029: IF (g_debug > 0)
1030: THEN
1031: Csd_Gen_Utility_Pvt.ADD('Calling CSD_REPAIR_ESTIMATE_PKG.Update_Row');
1032: END IF;
1033:
1034: Csd_Repair_Estimate_Pkg.Update_Row(p_REPAIR_ESTIMATE_ID => x_estimate_rec.repair_estimate_id,
1035: p_REPAIR_LINE_ID => x_estimate_rec.repair_line_id,
1030: THEN
1031: Csd_Gen_Utility_Pvt.ADD('Calling CSD_REPAIR_ESTIMATE_PKG.Update_Row');
1032: END IF;
1033:
1034: Csd_Repair_Estimate_Pkg.Update_Row(p_REPAIR_ESTIMATE_ID => x_estimate_rec.repair_estimate_id,
1035: p_REPAIR_LINE_ID => x_estimate_rec.repair_line_id,
1036: p_ESTIMATE_STATUS => x_estimate_rec.estimate_status,
1037: p_ESTIMATE_DATE => x_estimate_rec.estimate_date,
1038: p_WORK_SUMMARY => x_estimate_rec.work_summary,
1208:
1209: BEGIN
1210: SELECT b.approval_status
1211: INTO l_approval_status
1212: FROM CSD_REPAIR_ESTIMATE a, CSD_REPAIRS b
1213: WHERE a.repair_line_id = b.repair_line_id
1214: AND a.repair_estimate_id = p_estimate_id;
1215: EXCEPTION
1216: WHEN NO_DATA_FOUND THEN
1227:
1228: BEGIN
1229: SELECT COUNT(*)
1230: INTO l_est_line_count
1231: FROM CSD_REPAIR_ESTIMATE_LINES
1232: WHERE repair_estimate_id = p_estimate_id;
1233: EXCEPTION
1234: WHEN OTHERS THEN
1235: NULL;
1251: IF NVL(l_approval_status, 'Z') <> 'A'
1252: THEN
1253: IF (g_debug > 0)
1254: THEN
1255: Csd_Gen_Utility_Pvt.ADD('Call CSD_REPAIR_ESTIMATE_PKG.Delete_Row');
1256: END IF;
1257:
1258: Csd_Repair_Estimate_Pkg.Delete_Row(p_REPAIR_ESTIMATE_ID => p_estimate_id);
1259: ELSE
1254: THEN
1255: Csd_Gen_Utility_Pvt.ADD('Call CSD_REPAIR_ESTIMATE_PKG.Delete_Row');
1256: END IF;
1257:
1258: Csd_Repair_Estimate_Pkg.Delete_Row(p_REPAIR_ESTIMATE_ID => p_estimate_id);
1259: ELSE
1260: Fnd_Message.SET_NAME('CSD', 'CSD_EST_DELETE_NOT_ALLOWED');
1261: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_ID', p_estimate_id);
1262: Fnd_Msg_Pub.ADD;
1337:
1338: -- Initialize API return status to success
1339: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1340:
1341: Csd_Repair_Estimate_Pkg.Lock_Row(p_REPAIR_ESTIMATE_ID => p_estimate_rec.repair_estimate_id,
1342: p_OBJECT_VERSION_NUMBER => p_estimate_rec.OBJECT_VERSION_NUMBER);
1343:
1344: -- Standard check of p_commit.
1345: IF Fnd_Api.To_Boolean(p_commit)
1381: PROCEDURE CREATE_REPAIR_ESTIMATE_LINES(p_api_version IN NUMBER,
1382: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1383: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1384: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1385: x_estimate_line_rec IN OUT NOCOPY CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_REC,
1386: x_estimate_line_id OUT NOCOPY NUMBER,
1387: x_return_status OUT NOCOPY VARCHAR2,
1388: x_msg_count OUT NOCOPY NUMBER,
1389: x_msg_data OUT NOCOPY VARCHAR2) IS
1850: END IF;
1851:
1852: IF (g_debug > 0)
1853: THEN
1854: Csd_Gen_Utility_Pvt.ADD('Call csd_repair_estimate_lines_pkg.insert_row to create repair estimate lines ');
1855: END IF;
1856:
1857: -- travi forward port Bug # 2789754 fix added override_charge_flag
1858: Csd_Repair_Estimate_Lines_Pkg.Insert_Row(px_REPAIR_ESTIMATE_LINE_ID => x_estimate_line_rec.repair_estimate_line_id,
1854: Csd_Gen_Utility_Pvt.ADD('Call csd_repair_estimate_lines_pkg.insert_row to create repair estimate lines ');
1855: END IF;
1856:
1857: -- travi forward port Bug # 2789754 fix added override_charge_flag
1858: Csd_Repair_Estimate_Lines_Pkg.Insert_Row(px_REPAIR_ESTIMATE_LINE_ID => x_estimate_line_rec.repair_estimate_line_id,
1859: p_REPAIR_ESTIMATE_ID => x_estimate_line_rec.repair_estimate_id,
1860: p_ESTIMATE_DETAIL_ID => l_Charges_Rec.estimate_detail_id,
1861: p_LAST_UPDATE_DATE => SYSDATE,
1862: p_CREATION_DATE => SYSDATE,
1934: PROCEDURE UPDATE_REPAIR_ESTIMATE_LINES(p_api_version IN NUMBER,
1935: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1936: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1937: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1938: x_estimate_line_rec IN OUT NOCOPY CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_REC,
1939: x_return_status OUT NOCOPY VARCHAR2,
1940: x_msg_count OUT NOCOPY NUMBER,
1941: x_msg_data OUT NOCOPY VARCHAR2) IS
1942:
1972: l_serial_flag BOOLEAN := FALSE;
1973:
1974: CURSOR estimate_line(p_est_line_id IN NUMBER) IS
1975: SELECT estimate_detail_id, object_version_number
1976: FROM CSD_REPAIR_ESTIMATE_LINES
1977: WHERE repair_estimate_line_id = p_est_line_id;
1978:
1979: BEGIN
1980: -- Standard Start of API savepoint
2241: END IF; -- end of update charge line
2242:
2243: IF (g_debug > 0)
2244: THEN
2245: Csd_Gen_Utility_Pvt.ADD('Call csd_repair_estimate_line_pkg.update_row to update the repair estimate');
2246: END IF;
2247:
2248: IF (g_debug > 0)
2249: THEN
2251: x_estimate_line_rec.repair_estimate_line_id);
2252: END IF;
2253:
2254: -- travi forward port Bug # 2789754 fix added override_charge_flag
2255: Csd_Repair_Estimate_Lines_Pkg.Update_Row(p_REPAIR_ESTIMATE_LINE_ID => x_estimate_line_rec.repair_estimate_line_id,
2256: p_REPAIR_ESTIMATE_ID => x_estimate_line_rec.repair_estimate_id,
2257: p_ESTIMATE_DETAIL_ID => x_estimate_line_rec.estimate_detail_id,
2258: p_LAST_UPDATE_DATE => SYSDATE,
2259: p_CREATION_DATE => SYSDATE,
2411: -- only if it is not interfaced
2412: BEGIN
2413: SELECT a.estimate_detail_id
2414: INTO l_est_detail_id
2415: FROM CSD_REPAIR_ESTIMATE_LINES a, cs_estimate_details b
2416: WHERE a.estimate_detail_id = b.estimate_detail_id
2417: AND a.repair_estimate_line_id = p_estimate_line_id
2418: AND b.order_header_id IS NULL;
2419: l_delete_allow := 'Y';
2473: THEN
2474: Csd_Gen_Utility_Pvt.ADD('Call csd_product_transactions_pkg.Delete_Row');
2475: END IF;
2476:
2477: Csd_Repair_Estimate_Lines_Pkg.Delete_Row(p_REPAIR_ESTIMATE_LINE_ID => p_estimate_line_id);
2478:
2479: END IF; --end of delete
2480:
2481: -- Api body ends here
2553:
2554: -- Initialize API return status to success
2555: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2556:
2557: Csd_Repair_Estimate_Lines_Pkg.Lock_Row(p_REPAIR_ESTIMATE_LINE_ID => p_estimate_line_rec.repair_estimate_line_id,
2558: p_OBJECT_VERSION_NUMBER => p_estimate_line_rec.object_version_number);
2559:
2560: -- Standard check of p_commit.
2561: IF Fnd_Api.To_Boolean(p_commit)
2812: l_est_line_rec Cs_Charge_Details_Pub.Charges_Rec_Type;
2813:
2814: CURSOR ESTIMATE(p_rep_line_id IN NUMBER) IS
2815: SELECT ced.estimate_detail_id, ced.purchase_order_num
2816: FROM CSD_REPAIR_ESTIMATE cre,
2817: CSD_REPAIR_ESTIMATE_LINES crel,
2818: cs_estimate_details ced
2819: WHERE cre.repair_line_id = p_rep_line_id
2820: AND cre.repair_estimate_id = crel.repair_estimate_id
2813:
2814: CURSOR ESTIMATE(p_rep_line_id IN NUMBER) IS
2815: SELECT ced.estimate_detail_id, ced.purchase_order_num
2816: FROM CSD_REPAIR_ESTIMATE cre,
2817: CSD_REPAIR_ESTIMATE_LINES crel,
2818: cs_estimate_details ced
2819: WHERE cre.repair_line_id = p_rep_line_id
2820: AND cre.repair_estimate_id = crel.repair_estimate_id
2821: AND crel.estimate_detail_id = ced.estimate_detail_id
3095: lc_event_level CONSTANT NUMBER := Fnd_Log.LEVEL_EVENT;
3096: lc_excep_level CONSTANT NUMBER := Fnd_Log.LEVEL_EXCEPTION;
3097: lc_error_level CONSTANT NUMBER := Fnd_Log.LEVEL_ERROR;
3098: lc_unexp_level CONSTANT NUMBER := Fnd_Log.LEVEL_UNEXPECTED;
3099: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_estimate_pvt.get_total_estimated_charge';
3100: BEGIN
3101: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
3102: THEN
3103: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3108: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3109:
3110: SELECT SUM(NVL(charge, 0))
3111: INTO x_estimated_charge
3112: FROM csd_repair_estimate_lines_v
3113: WHERE repair_line_id = p_repair_line_id
3114: AND billing_type IN ('M', 'L', 'E');
3115:
3116: IF (Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level)
3175: lc_event_level CONSTANT NUMBER := Fnd_Log.LEVEL_EVENT;
3176: lc_excep_level CONSTANT NUMBER := Fnd_Log.LEVEL_EXCEPTION;
3177: lc_error_level CONSTANT NUMBER := Fnd_Log.LEVEL_ERROR;
3178: lc_unexp_level CONSTANT NUMBER := Fnd_Log.LEVEL_UNEXPECTED;
3179: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_estimate_pvt.autocreate_estimate_lines';
3180: lc_api_name CONSTANT VARCHAR2(30) := 'Autocreate_Estimate_Lines';
3181: lc_api_version CONSTANT NUMBER := 1.0;
3182:
3183: -- VARIABLES --
3184: l_default_contract_line_id NUMBER := NULL;
3185: l_default_price_list_id NUMBER := NULL;
3186: l_num_service_codes NUMBER := 0;
3187: l_contract_validated BOOLEAN;
3188: l_est_lines_tbl CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_TBL;
3189: l_return_status VARCHAR2(1);
3190: l_msg_count NUMBER;
3191: l_msg_data VARCHAR2(200);
3192: l_estimate_line_id NUMBER;
3455: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
3456: THEN
3457: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3458: lc_mod_name,
3459: 'Calling CSD_REPAIR_ESTIMATE_PVT.Get_Estimates_From_Task');
3460: END IF;
3461: Get_Estimates_From_Task(p_api_version => 1.0,
3462: p_commit => p_commit,
3463: p_init_msg_list => Fnd_Api.G_FALSE,
3481: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
3482: THEN
3483: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3484: lc_mod_name,
3485: 'Returned from CSD_REPAIR_ESTIMATE_PVT.Get_Estimates_From_Task');
3486: END IF;
3487: ELSIF p_repair_mode = 'WIP'
3488: THEN
3489: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
3489: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
3490: THEN
3491: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3492: lc_mod_name,
3493: 'Calling CSD_REPAIR_ESTIMATE_PVT.Get_Estimates_From_BOM');
3494: END IF;
3495: Get_Estimates_From_BOM(p_api_version => 1.0,
3496: p_commit => p_commit,
3497: p_init_msg_list => Fnd_Api.G_FALSE,
3515: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
3516: THEN
3517: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3518: lc_mod_name,
3519: 'Returned from CSD_REPAIR_ESTIMATE_PVT.Get_Estimates_From_BOM');
3520: END IF;
3521: ELSE
3522: IF (Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level)
3523: THEN
4044: p_inventory_item_id IN NUMBER,
4045: p_organization_id IN NUMBER,
4046: p_price_list_id IN NUMBER,
4047: p_contract_line_id IN NUMBER,
4048: x_est_lines_tbl OUT NOCOPY CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_TBL,
4049: x_warning_flag OUT NOCOPY VARCHAR2) IS
4050: -- CONSTANTS --
4051: lc_debug_level CONSTANT NUMBER := Fnd_Log.G_CURRENT_RUNTIME_LEVEL;
4052: lc_stat_level CONSTANT NUMBER := Fnd_Log.LEVEL_STATEMENT;
4054: lc_event_level CONSTANT NUMBER := Fnd_Log.LEVEL_EVENT;
4055: lc_excep_level CONSTANT NUMBER := Fnd_Log.LEVEL_EXCEPTION;
4056: lc_error_level CONSTANT NUMBER := Fnd_Log.LEVEL_ERROR;
4057: lc_unexp_level CONSTANT NUMBER := Fnd_Log.LEVEL_UNEXPECTED;
4058: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_estimate_pvt.get_estimates_from_task';
4059: lc_api_name CONSTANT VARCHAR2(30) := 'Get_Estimates_From_Task';
4060: lc_api_version CONSTANT NUMBER := 1.0;
4061:
4062: -- VARIABLES --
4262: and KBSets.set_id = SetLinkTG.set_id
4263: and KBSets.status = 'PUB' -- only published solutions
4264: and not exists -- not already brought in
4265: ( select 'x'
4266: from csd_repair_estimate_lines_v csd
4267: where csd.repair_line_id = SetLinkRO.other_id
4268: and csd.est_line_source_type_code = 'SOLUTION'
4269: and csd.est_line_source_id1 = KBSets.set_id);
4270:
4324: and KBSets.set_id = SetLinkTG.set_id
4325: and KBSets.status = 'PUB' -- only published solutions
4326: and not exists -- not already brought in
4327: ( select 'x'
4328: from csd_repair_estimate_lines_v csd
4329: where csd.repair_line_id = SetLinkRO.other_id
4330: and csd.est_line_source_type_code = 'SOLUTION'
4331: and csd.est_line_source_id1 = KBSets.set_id);
4332: */
4501: AND KBSets.set_id = SetLinkTG.set_id
4502: AND KBSets.status = 'PUB' -- only published solutions
4503: AND NOT EXISTS -- not already brought in
4504: (SELECT 'x'
4505: FROM csd_repair_estimate_lines_v csd
4506: WHERE csd.repair_line_id = SetLinkRO.other_id
4507: AND csd.est_line_source_type_code = 'SOLUTION'
4508: AND csd.est_line_source_id1 = KBSets.set_id);
4509:
4562: AND KBSets.set_id = SetLinkTG.set_id
4563: AND KBSets.status = 'PUB' -- only published solutions
4564: AND NOT EXISTS -- not already brought in
4565: (SELECT 'x'
4566: FROM csd_repair_estimate_lines_v csd
4567: WHERE csd.repair_line_id = SetLinkRO.other_id
4568: AND csd.est_line_source_type_code = 'SOLUTION'
4569: AND csd.est_line_source_id1 = KBSets.set_id);
4570:
4593: AND KBSets.status = 'PUB' -- only published solutions
4594: AND repairs.repair_line_id = SetLinkRO.other_id
4595: AND NOT EXISTS -- not already brought in
4596: (SELECT 'x'
4597: FROM csd_repair_estimate_lines_v csd
4598: WHERE csd.repair_line_id = SetLinkRO.other_id
4599: AND csd.est_line_source_type_code = 'SOLUTION'
4600: AND csd.est_line_source_id1 = KBSets.set_id)
4601: AND NOT EXISTS -- no template for this product
4638: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
4639: THEN
4640: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
4641: lc_mod_name || '.BEGIN',
4642: 'Entering CSD_REPAIR_ESTIMATE_PVT.Get_Estimates_From_Task');
4643: END IF;
4644: -- log parameters
4645: IF (Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level)
4646: THEN
5151: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
5152: THEN
5153: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5154: lc_mod_name || '.END',
5155: 'Leaving CSD_REPAIR_ESTIMATE_PVT.Get_Estimates_From_Task');
5156: END IF;
5157: --
5158: -- End API Body
5159: --
5304: p_inventory_item_id IN NUMBER,
5305: p_organization_id IN NUMBER,
5306: p_price_list_id IN NUMBER,
5307: p_contract_line_id IN NUMBER,
5308: x_est_lines_tbl OUT NOCOPY CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_TBL,
5309: x_warning_flag OUT NOCOPY VARCHAR2) IS
5310:
5311: -- CONSTANTS --
5312: lc_debug_level CONSTANT NUMBER := Fnd_Log.G_CURRENT_RUNTIME_LEVEL;
5315: lc_event_level CONSTANT NUMBER := Fnd_Log.LEVEL_EVENT;
5316: lc_excep_level CONSTANT NUMBER := Fnd_Log.LEVEL_EXCEPTION;
5317: lc_error_level CONSTANT NUMBER := Fnd_Log.LEVEL_ERROR;
5318: lc_unexp_level CONSTANT NUMBER := Fnd_Log.LEVEL_UNEXPECTED;
5319: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_estimate_pvt.get_estimates_from_bom';
5320: lc_api_name CONSTANT VARCHAR2(30) := 'Get_Estimates_From_BOM';
5321: lc_api_version CONSTANT NUMBER := 1.0;
5322:
5323: -- VARIABLES --
5574: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
5575: THEN
5576: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5577: lc_mod_name || '.BEGIN',
5578: 'Entering CSD_REPAIR_ESTIMATE_PVT.Get_Estimates_From_BOM');
5579: END IF;
5580: -- log parameters
5581: IF (Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level)
5582: THEN
5838: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
5839: THEN
5840: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5841: lc_mod_name || '.END',
5842: 'Leaving CSD_REPAIR_ESTIMATE_PVT.Get_Estimates_From_BOM');
5843: END IF;
5844:
5845: --
5846: -- End API Body
6002: lc_event_level CONSTANT NUMBER := Fnd_Log.LEVEL_EVENT;
6003: lc_excep_level CONSTANT NUMBER := Fnd_Log.LEVEL_EXCEPTION;
6004: lc_error_level CONSTANT NUMBER := Fnd_Log.LEVEL_ERROR;
6005: lc_unexp_level CONSTANT NUMBER := Fnd_Log.LEVEL_UNEXPECTED;
6006: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_estimate_pvt.convert_to_est_lines';
6007: lc_api_name CONSTANT VARCHAR2(30) := 'Convert_To_Est_Lines';
6008: lc_api_version CONSTANT NUMBER := 1.0;
6009:
6010: -- VARIABLES --
6064: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
6065: THEN
6066: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
6067: lc_mod_name || '.BEGIN',
6068: 'Entering CSD_REPAIR_ESTIMATE_PVT.Convert_To_Est_Lines');
6069: END IF;
6070: -- log parameters
6071: IF (Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level)
6072: THEN
6672: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
6673: THEN
6674: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
6675: lc_mod_name || '.END',
6676: 'Leaving CSD_REPAIR_ESTIMATE_PVT.Convert_To_Est_Lines');
6677: END IF;
6678:
6679: --
6680: -- End API Body
6795: p_validation_level IN NUMBER,
6796: x_return_status OUT NOCOPY VARCHAR2,
6797: x_msg_count OUT NOCOPY NUMBER,
6798: x_msg_data OUT NOCOPY VARCHAR2,
6799: p_estimate_hdr_rec IN Csd_Repair_Estimate_Pub.ESTIMATE_HDR_REC,
6800: x_estimate_hdr_id OUT NOCOPY NUMBER ) IS
6801: l_incident_id NUMBER;
6802: l_tmp_count NUMBER;
6803: l_repln_obj_Ver NUMBER;
6808: l_msg_Data VARCHAR2(2000);
6809: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_ESTIMATE_HEADER';
6810: l_api_version CONSTANT NUMBER := 1.0;
6811:
6812: l_estimate_hdr_rec Csd_Repair_Estimate_Pub.ESTIMATE_HDR_REC;
6813: l_est_hdr_pvt_rec Csd_Repair_Estimate_Pvt.REPAIR_ESTIMATE_REC;
6814: BEGIN
6815:
6816: IF (Fnd_Log.level_procedure >= Fnd_Log.g_current_runtime_level)
6809: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_ESTIMATE_HEADER';
6810: l_api_version CONSTANT NUMBER := 1.0;
6811:
6812: l_estimate_hdr_rec Csd_Repair_Estimate_Pub.ESTIMATE_HDR_REC;
6813: l_est_hdr_pvt_rec Csd_Repair_Estimate_Pvt.REPAIR_ESTIMATE_REC;
6814: BEGIN
6815:
6816: IF (Fnd_Log.level_procedure >= Fnd_Log.g_current_runtime_level)
6817: THEN
6815:
6816: IF (Fnd_Log.level_procedure >= Fnd_Log.g_current_runtime_level)
6817: THEN
6818: Fnd_Log.STRING(Fnd_Log.level_procedure,
6819: 'csd.plsql.csd_repair_Estimate_pvt.create_estimate_header.begin',
6820: 'Entering create_estimate_header');
6821: END IF;
6822: -- Standard Start of API savepoint
6823: SAVEPOINT CREATE_ESTIMATE_HEADER_PVT;
6902: debug('creating estimate header');
6903:
6904: csd_estimate_utils_pvt.COPY_TO_EST_HDR_REC(l_estimate_hdr_rec,
6905: l_est_hdr_pvt_rec);
6906: Csd_Repair_Estimate_Pvt.create_repair_estimate(p_api_version => 1.0,
6907: p_commit => Fnd_Api.G_FALSE,
6908: p_init_msg_list => Fnd_Api.G_FALSE,
6909: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
6910: x_estimate_rec => l_est_hdr_pvt_rec,
6930:
6931: IF (Fnd_Log.level_procedure >= Fnd_Log.g_current_runtime_level)
6932: THEN
6933: Fnd_Log.STRING(Fnd_Log.level_procedure,
6934: 'csd.plsql.csd_repair_Estimate_pvt.create_estimate_header.end',
6935: 'Leaving create_estimate_header');
6936: END IF;
6937:
6938: -- Standard call to get message count and IF count is get message info.
6946: p_data => x_msg_data);
6947: IF (Fnd_Log.level_error >= Fnd_Log.g_current_runtime_level)
6948: THEN
6949: Fnd_Log.STRING(Fnd_Log.level_error,
6950: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_header',
6951: 'EXC_ERROR[' || x_msg_data || ']');
6952: END IF;
6953: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6954: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6957: p_data => x_msg_data);
6958: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level)
6959: THEN
6960: Fnd_Log.STRING(Fnd_Log.level_exception,
6961: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_header',
6962: 'EXC_UNEXP_ERROR[' || x_msg_data || ']');
6963: END IF;
6964: WHEN OTHERS THEN
6965: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6972: p_data => x_msg_data);
6973: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level)
6974: THEN
6975: Fnd_Log.STRING(Fnd_Log.level_exception,
6976: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_header',
6977: 'SQL MEssage[' || SQLERRM || ']');
6978: END IF;
6979:
6980: END CREATE_ESTIMATE_HEADER;
6992: p_validation_level IN NUMBER,
6993: x_return_status OUT NOCOPY VARCHAR2,
6994: x_msg_count OUT NOCOPY NUMBER,
6995: x_msg_data OUT NOCOPY VARCHAR2,
6996: p_estimate_line_rec IN Csd_Repair_Estimate_Pub.ESTIMATE_LINE_REC,
6997: x_estimate_line_id OUT NOCOPY NUMBER) IS
6998:
6999: l_tmp_count NUMBER;
7000: l_repair_type_id NUMBER;
7006: l_api_version CONSTANT NUMBER := 1.0;
7007: l_no_charge_flag VARCHAR2(10);
7008: l_contract_line_id NUMBER;
7009:
7010: l_est_pvt_line_rec CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_REC;
7011: l_estimate_line_rec Csd_Repair_Estimate_Pub.ESTIMATE_LINE_REC;
7012:
7013: BEGIN
7014:
7007: l_no_charge_flag VARCHAR2(10);
7008: l_contract_line_id NUMBER;
7009:
7010: l_est_pvt_line_rec CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_REC;
7011: l_estimate_line_rec Csd_Repair_Estimate_Pub.ESTIMATE_LINE_REC;
7012:
7013: BEGIN
7014:
7015: -- Standard Start of API savepoint
7038:
7039: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
7040: THEN
7041: fnd_log.STRING(fnd_log.level_procedure,
7042: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_line.begin',
7043: 'Entering create_estimate_line');
7044: END IF;
7045:
7046: l_estimate_line_rec := p_estimate_line_rec;
7086:
7087: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
7088: THEN
7089: fnd_log.STRING(fnd_log.level_procedure,
7090: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_line.end',
7091: 'leaving create_estimate_line');
7092: END IF;
7093: EXCEPTION
7094: WHEN Fnd_Api.G_EXC_ERROR THEN
7098: p_data => x_msg_data);
7099: IF (Fnd_Log.level_error >= Fnd_Log.g_current_runtime_level)
7100: THEN
7101: Fnd_Log.STRING(Fnd_Log.level_error,
7102: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_line',
7103: 'EXC_ERROR[' || x_msg_data || ']');
7104: END IF;
7105:
7106: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
7110: p_data => x_msg_data);
7111: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level)
7112: THEN
7113: Fnd_Log.STRING(Fnd_Log.level_exception,
7114: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_line',
7115: 'EXC_UNEXP_ERROR[' || x_msg_data || ']');
7116: END IF;
7117: WHEN OTHERS THEN
7118: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7125: p_data => x_msg_data);
7126: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level)
7127: THEN
7128: Fnd_Log.STRING(Fnd_Log.level_exception,
7129: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_line',
7130: 'SQL MEssage[' || SQLERRM || ']');
7131: END IF;
7132:
7133: END CREATE_ESTIMATE_LINE;
7145: p_validation_level IN NUMBER,
7146: x_return_status OUT NOCOPY VARCHAR2,
7147: x_msg_count OUT NOCOPY NUMBER,
7148: x_msg_data OUT NOCOPY VARCHAR2,
7149: p_estimate_hdr_rec IN Csd_Repair_Estimate_Pub.ESTIMATE_HDR_REC,
7150: x_object_version_number OUT NOCOPY NUMBER) IS
7151:
7152: l_return_status VARCHAR2(30);
7153: l_approval_Status VARCHAR2(30);
7155: l_msg_Data VARCHAR2(2000);
7156: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_ESTIMATE_HEADER';
7157: l_api_version CONSTANT NUMBER := 1.0;
7158:
7159: l_est_pvt_hdr_Rec CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_REC;
7160: l_estimate_hdr_rec Csd_Repair_Estimate_Pub.ESTIMATE_HDR_REC;
7161:
7162: l_est_status_changed BOOLEAN;
7163: l_est_hdr_id NUMBER;
7156: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_ESTIMATE_HEADER';
7157: l_api_version CONSTANT NUMBER := 1.0;
7158:
7159: l_est_pvt_hdr_Rec CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_REC;
7160: l_estimate_hdr_rec Csd_Repair_Estimate_Pub.ESTIMATE_HDR_REC;
7161:
7162: l_est_status_changed BOOLEAN;
7163: l_est_hdr_id NUMBER;
7164:
7193: ATTRIBUTE14,
7194: ATTRIBUTE15,
7195: OBJECT_VERSION_NUMBER,
7196: ESTIMATE_REASON_CODE
7197: FROM CSD_REPAIR_ESTIMATE
7198: WHERE REPAIR_ESTIMATE_ID = p_estimate_header_id;
7199:
7200: BEGIN
7201: -- Standard Start of API savepoint
7224:
7225: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
7226: THEN
7227: fnd_log.STRING(fnd_log.level_procedure,
7228: 'csd.plsql.csd_repair_estimate_pvt.update_estimate_header.begin',
7229: 'Entering update_estimate_header');
7230: END IF;
7231:
7232: l_estimate_hdr_rec := p_estimate_hdr_rec;
7328:
7329: csd_estimate_utils_pvt.COPY_TO_EST_HDR_REC_UPD(l_estimate_hdr_rec,
7330: l_est_pvt_hdr_rec);
7331:
7332: Csd_Repair_Estimate_Pvt.update_repair_estimate(p_api_version => 1.0,
7333: p_commit => Fnd_Api.G_FALSE,
7334: p_init_msg_list => Fnd_Api.G_FALSE,
7335: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
7336: x_estimate_rec => l_est_pvt_hdr_rec,
7360:
7361: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
7362: THEN
7363: fnd_log.STRING(fnd_log.level_procedure,
7364: 'csd.plsql.csd_repair_estimate_pvt.update_estimate_header.end',
7365: 'leaving update_estimate_header');
7366: END IF;
7367: EXCEPTION
7368: WHEN Fnd_Api.G_EXC_ERROR THEN
7372: p_data => x_msg_data);
7373: IF (Fnd_Log.level_error >= Fnd_Log.g_current_runtime_level)
7374: THEN
7375: Fnd_Log.STRING(Fnd_Log.level_error,
7376: 'csd.plsql.csd_repair_estimate_pvt.update_estimate_header',
7377: 'EXC_ERROR[' || x_msg_data || ']');
7378: END IF;
7379:
7380: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
7384: p_data => x_msg_data);
7385: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level)
7386: THEN
7387: Fnd_Log.STRING(Fnd_Log.level_exception,
7388: 'csd.plsql.csd_repair_estimate_pvt.update_estimate_header',
7389: 'EXC_UNEXP_ERROR[' || x_msg_data || ']');
7390: END IF;
7391: WHEN OTHERS THEN
7392: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7399: p_data => x_msg_data);
7400: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level)
7401: THEN
7402: Fnd_Log.STRING(Fnd_Log.level_exception,
7403: 'csd.plsql.csd_repair_estimate_pvt.update_estimate_header',
7404: 'SQL MEssage[' || SQLERRM || ']');
7405: END IF;
7406:
7407: END UPDATE_ESTIMATE_HEADER;
7420: p_validation_level IN NUMBER,
7421: x_return_status OUT NOCOPY VARCHAR2,
7422: x_msg_count OUT NOCOPY NUMBER,
7423: x_msg_data OUT NOCOPY VARCHAR2,
7424: p_estimate_line_rec IN Csd_Repair_Estimate_Pub.ESTIMATE_LINE_REC,
7425: x_object_version_number OUT NOCOPY NUMBER) IS
7426: BEGIN
7427: NULL;
7428: END UPDATE_ESTIMATE_LINE;
7426: BEGIN
7427: NULL;
7428: END UPDATE_ESTIMATE_LINE;
7429:
7430: END Csd_Repair_Estimate_Pvt;