[Home] [Help]
1: PACKAGE BODY AHL_VWP_VISIT_CST_PR_PVT AS
2: /* $Header: AHLVVCPB.pls 120.7.12020000.2 2012/12/11 03:49:48 prakkum ship $ */
3:
4: -- PACKAGE
5: -- Ahl_VWP_VISIT_CST_PR_PVT
1: PACKAGE BODY AHL_VWP_VISIT_CST_PR_PVT AS
2: /* $Header: AHLVVCPB.pls 120.7.12020000.2 2012/12/11 03:49:48 prakkum ship $ */
3:
4: -- PACKAGE
5: -- Ahl_VWP_VISIT_CST_PR_PVT
6: --
7: -- PURPOSE
8: -- This package is a Private API to process Estimating Cost and Price
9: -- for a Visit It contains specification for pl/sql records and tables
23: -- get_visit_items_no_price -- check_for_release_visit
24:
25: --
26: -- Package/App Name
27: G_PKG_NAME CONSTANT VARCHAR(30) := 'AHL_VWP_VISIT_CST_PR_PVT';
28: G_APP_NAME CONSTANT VARCHAR2(3) := 'AHL';
29:
30: --------------------------------------------------------------------------
31: -- Procedure to estimate price for a specific SR --
30: --------------------------------------------------------------------------
31: -- Procedure to estimate price for a specific SR --
32: --------------------------------------------------------------------------
33: PROCEDURE Estimate_SR_Price(
34: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
35: x_return_status OUT NOCOPY VARCHAR2);
36:
37: --------------------------------------------------------------------------
38: -- Procedure to get visit cost details for a specific visit --
42: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
43: p_commit IN VARCHAR2 := FND_API.G_FALSE,
44: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
45: p_module_type IN VARCHAR2 := 'JSP',
46: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
47: x_return_status OUT NOCOPY VARCHAR2,
48: x_msg_count OUT NOCOPY NUMBER,
49: x_msg_data OUT NOCOPY VARCHAR2) IS
50:
52: L_API_VERSION CONSTANT NUMBER := 1.0;
53: L_API_NAME CONSTANT VARCHAR2(30) := 'get_visit_cost_details';
54: L_FULL_NAME CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || L_API_NAME;
55:
56: l_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.Cost_Price_Rec_Type;
57: l_error_msg_code VARCHAR2(240);
58: l_exists VARCHAR2(1);
59:
60: l_visit_status VARCHAR2(30);
103: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
104: fnd_log.string
105: (
106: fnd_log.level_procedure,
107: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_cost_details.begin',
108: 'At the start of PLSQL procedure'
109: );
110: END IF;
111:
133: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
134: fnd_log.string
135: (
136: fnd_log.level_statement,
137: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_cost_details',
138: 'Got request for cost record of Visit ID : ' || p_x_cost_price_rec.visit_id
139: );
140: fnd_log.string
141: (
139: );
140: fnd_log.string
141: (
142: fnd_log.level_statement,
143: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_cost_details',
144: 'Got request for update visit cost details of mr session ID : ' || p_x_cost_price_rec.mr_session_id
145: );
146: fnd_log.string
147: (
145: );
146: fnd_log.string
147: (
148: fnd_log.level_statement,
149: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_cost_details',
150: 'Got request for update visit cost details of cost session ID : ' || p_x_cost_price_rec.cost_session_id
151: );
152: END IF;
153:
158: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
159: fnd_log.string
160: (
161: fnd_log.level_exception,
162: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_cost_details',
163: 'Visit id is mandatory but found null in input '
164: );
165: END IF;
166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
182: fnd_log.string
183: (
184: fnd_log.level_exception,
185: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_cost_details',
186: 'Visit id not found in ahl_visits_b table'
187: );
188: END IF;
189: CLOSE visit_info_csr;
204: IF(fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
205: fnd_log.string
206: (
207: fnd_log.level_unexpected,
208: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_cost_details',
209: 'Service request associated is invalid as record not found : l_cost_price_rec.service_request_id : '||l_cost_price_rec.service_request_id
210: );
211: END IF;
212: CLOSE customer_id_csr;
239: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
240: fnd_log.string
241: (
242: fnd_log.level_error,
243: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_cost_details',
244: 'List name not found for stored list id'
245: );
246: END IF;
247: CLOSE price_list_name_csr;
255: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
256: fnd_log.string
257: (
258: fnd_log.level_statement,
259: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_cost_details',
260: 'Concurrent program request id . ' || l_cost_price_rec.Cp_Request_Id
261: );
262: END IF;
263: IF(l_cost_price_rec.Cp_Request_Id IS NOT NULL)THEN
294: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
295: fnd_log.string
296: (
297: fnd_log.level_exception,
298: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_cost_details',
299: 'AHL_VWP_COST_PVT.Calculate_WO_Cost API threw error : x_return_status : ' || x_return_status
300: );
301: END IF;
302: RAISE FND_API.G_EXC_ERROR;
318: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
319: fnd_log.string
320: (
321: fnd_log.level_exception,
322: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_cost_details',
323: 'AHL_VWP_COST_PVT.Calculate_Visit_Cost API threw error : x_return_status : ' || x_return_status
324: );
325: END IF;
326: RAISE FND_API.G_EXC_ERROR;
343: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
344: fnd_log.string
345: (
346: fnd_log.level_exception,
347: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_cost_details',
348: 'AHL_VWP_COST_PVT.Get_Profit_or_Loss API threw error : x_return_status : ' || x_return_status
349: );
350: END IF;
351: RAISE FND_API.G_EXC_ERROR;
403: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
404: fnd_log.string
405: (
406: fnd_log.level_procedure,
407: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_cost_details.end',
408: 'At the end of PLSQL procedure'
409: );
410: END IF;
411:
448: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
449: p_commit IN VARCHAR2 := FND_API.G_FALSE,
450: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
451: p_module_type IN VARCHAR2 := 'JSP',
452: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
453: x_return_status OUT NOCOPY VARCHAR2,
454: x_msg_count OUT NOCOPY NUMBER,
455: x_msg_data OUT NOCOPY VARCHAR2)IS
456:
458: L_API_VERSION CONSTANT NUMBER := 1.0;
459: L_API_NAME CONSTANT VARCHAR2(30) := 'update_visit_cost_details';
460: L_FULL_NAME CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || L_API_NAME;
461:
462: l_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type;
463: l_outside_party_flag VARCHAR2(1);
464: l_service_request_id NUMBER;
465: l_visit_status_code VARCHAR2(30);
466: l_start_date_time DATE;
500: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
501: fnd_log.string
502: (
503: fnd_log.level_procedure,
504: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details.begin',
505: 'At the start of PLSQL procedure'
506: );
507: END IF;
508:
521: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
522: fnd_log.string
523: (
524: fnd_log.level_statement,
525: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
526: 'Got request for update visit cost details of Visit ID : ' || p_x_cost_price_rec.visit_id
527: );
528: fnd_log.string
529: (
527: );
528: fnd_log.string
529: (
530: fnd_log.level_statement,
531: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
532: 'outside party flag : ' || p_x_cost_price_rec.outside_party_flag
533: );
534: fnd_log.string
535: (
533: );
534: fnd_log.string
535: (
536: fnd_log.level_statement,
537: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
538: 'Price List Name : ' || p_x_cost_price_rec.price_list_name
539: );
540: END IF;
541:
546: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
547: fnd_log.string
548: (
549: fnd_log.level_exception,
550: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
551: 'Visit id is mandatory but found null in input '
552: );
553: END IF;
554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
561: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
562: fnd_log.string
563: (
564: fnd_log.level_exception,
565: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
566: 'Input OSP Flag is invalid : ' || p_x_cost_price_rec.outside_party_flag
567: );
568: END IF;
569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
585: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
586: fnd_log.string
587: (
588: fnd_log.level_exception,
589: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
590: 'Visit id not found in ahl_visits_b table'
591: );
592: END IF;
593:
600: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
601: fnd_log.string
602: (
603: fnd_log.level_error,
604: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
605: 'Visit is closed so can not update outside party flag or price list'
606: );
607: END IF;
608:
615: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
616: fnd_log.string
617: (
618: fnd_log.level_error,
619: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
620: 'No service request is attached to visit so can not update outside party flag or price list'
621: );
622: END IF;
623:
635: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
636: fnd_log.string
637: (
638: fnd_log.level_error,
639: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
640: 'Can not modify outside party flag because tasks has already been created'
641: );
642: END IF;
643:
658: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
659: fnd_log.string
660: (
661: fnd_log.level_error,
662: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
663: 'Price List is mandatory'
664: );
665: END IF;
666: RAISE FND_API.G_EXC_ERROR;
677: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
678: fnd_log.string
679: (
680: fnd_log.level_error,
681: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
682: 'AHL_VWP_RULES_PVT.Check_Price_List_Name_Or_Id API Threw error'
683: );
684: END IF;
685: RAISE FND_API.G_EXC_ERROR;
691: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
692: fnd_log.string
693: (
694: fnd_log.level_error,
695: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
696: 'Price List is mandatory'
697: );
698: END IF;
699: RAISE FND_API.G_EXC_ERROR;
726: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
727: fnd_log.string
728: (
729: fnd_log.level_error,
730: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
731: 'Price List is not active on visit start date'
732: );
733: END IF;
734:
747: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
748: fnd_log.string
749: (
750: fnd_log.level_error,
751: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
752: 'Price List is not active on visit end date'
753: );
754: END IF;
755:
769: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
770: fnd_log.string
771: (
772: fnd_log.level_error,
773: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
774: 'Price List is not active on current todays date'
775: );
776: END IF;
777:
877: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
878: fnd_log.string
879: (
880: fnd_log.level_procedure,
881: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details.end',
882: 'At the end of PLSQL procedure'
883: );
884: END IF;
885:
921: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
922: p_commit IN VARCHAR2 := FND_API.G_FALSE,
923: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
924: p_module_type IN VARCHAR2 := 'JSP',
925: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
926: x_return_status OUT NOCOPY VARCHAR2,
927: x_msg_count OUT NOCOPY NUMBER,
928: x_msg_data OUT NOCOPY VARCHAR2)IS
929:
942: l_bg_module_type CONSTANT VARCHAR2(10) := 'CST_EXEC';
943: l_bg_release_flag VARCHAR2(1) := 'N';
944: --salogan::Added local variables for CP ER 9299910::01-JUN-2009::END
945: l_release_visit_required VARCHAR2(1) :='N';
946: l_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type;
947:
948: BEGIN
949:
950: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
950: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
951: fnd_log.string
952: (
953: fnd_log.level_procedure,
954: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_cost.begin',
955: 'At the start of PLSQL procedure'
956: );
957: END IF;
958:
981: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
982: fnd_log.string
983: (
984: fnd_log.level_statement,
985: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_cost',
986: 'Got request for estimating cost of Visit ID : ' || p_x_cost_price_rec.visit_id
987: );
988:
989: fnd_log.string
988:
989: fnd_log.string
990: (
991: fnd_log.level_statement,
992: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_cost',
993: 'input mr session id : ' || p_x_cost_price_rec.mr_session_id
994: );
995:
996: fnd_log.string
995:
996: fnd_log.string
997: (
998: fnd_log.level_statement,
999: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_cost',
1000: 'input cost session id : ' || p_x_cost_price_rec.cost_session_id
1001: );
1002: END IF;
1003:
1010: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
1011: fnd_log.string
1012: (
1013: fnd_log.level_exception,
1014: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_cost',
1015: 'Visit id is mandatory but found null in input '
1016: );
1017: END IF;
1018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1090: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
1091: fnd_log.string
1092: (
1093: fnd_log.level_exception,
1094: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_cost',
1095: 'AHL_VWP_COST_PVT.Estimate_WO_Cost API threw error : x_return_status : ' || x_return_status
1096: );
1097: END IF;
1098: RAISE FND_API.G_EXC_ERROR;
1117: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1118: fnd_log.string
1119: (
1120: fnd_log.level_procedure,
1121: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_cost.end',
1122: 'At the end of PLSQL procedure'
1123: );
1124: END IF;
1125:
1160: --bug fix #4181411
1161: -- yazhou 18-Feb-2005
1162: --------------------------------------------------------------------------
1163: PROCEDURE Estimate_SR_Price(
1164: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
1165: x_return_status OUT NOCOPY VARCHAR2)
1166: IS
1167:
1168: -- Get all the root MR in the SR
1189: START WITH visit_task_id = p_task_id
1190: AND NVL(VST.status_code, 'Y') <> NVL ('DELETED', 'X')
1191: CONNECT BY originating_task_id = PRIOR visit_task_id;
1192:
1193: l_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type;
1194: l_temp_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type;
1195:
1196: l_actual_price NUMBER;
1197: l_estimated_price NUMBER;
1190: AND NVL(VST.status_code, 'Y') <> NVL ('DELETED', 'X')
1191: CONNECT BY originating_task_id = PRIOR visit_task_id;
1192:
1193: l_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type;
1194: l_temp_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type;
1195:
1196: l_actual_price NUMBER;
1197: l_estimated_price NUMBER;
1198:
1203: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1204: fnd_log.string
1205: (
1206: fnd_log.level_procedure,
1207: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.Estimate_SR_Price.begin',
1208: 'At the start of PLSQL procedure'
1209: );
1210: END IF;
1211:
1268: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1269: fnd_log.string
1270: (
1271: fnd_log.level_error,
1272: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.Estimate_SR_Price',
1273: 'AHL_VWP_MR_CST_PR_PVT.Estimate_MR_Price API Threw error'
1274: );
1275: END IF;
1276: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1339: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1340: fnd_log.string
1341: (
1342: fnd_log.level_error,
1343: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_SR_price',
1344: 'AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price API Threw error'
1345: );
1346: END IF;
1347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1377: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1378: fnd_log.string
1379: (
1380: fnd_log.level_procedure,
1381: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.Estimate_SR_Price.end',
1382: 'At the end of PLSQL procedure'
1383: );
1384: END IF;
1385: END Estimate_SR_Price;
1393: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1394: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1395: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1396: p_module_type IN VARCHAR2 := 'JSP',
1397: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
1398: x_return_status OUT NOCOPY VARCHAR2,
1399: x_msg_count OUT NOCOPY NUMBER,
1400: x_msg_data OUT NOCOPY VARCHAR2)
1401: IS
1399: x_msg_count OUT NOCOPY NUMBER,
1400: x_msg_data OUT NOCOPY VARCHAR2)
1401: IS
1402:
1403: l_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type;
1404: l_temp_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type;
1405:
1406:
1407: l_job_status_code VARCHAR2(30);
1400: x_msg_data OUT NOCOPY VARCHAR2)
1401: IS
1402:
1403: l_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type;
1404: l_temp_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type;
1405:
1406:
1407: l_job_status_code VARCHAR2(30);
1408: l_job_status_meaning VARCHAR2(80);
1493: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1494: fnd_log.string
1495: (
1496: fnd_log.level_procedure,
1497: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_price.begin',
1498: 'At the start of PLSQL procedure'
1499: );
1500: END IF;
1501:
1523: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1524: fnd_log.string
1525: (
1526: fnd_log.level_statement,
1527: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_price',
1528: 'Got request for estimating of Visit ID : ' || p_x_cost_price_rec.visit_id
1529: );
1530: END IF;
1531:
1537: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
1538: fnd_log.string
1539: (
1540: fnd_log.level_exception,
1541: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_price',
1542: 'Visit id is mandatory but found null in input '
1543: );
1544: END IF;
1545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1557: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
1558: fnd_log.string
1559: (
1560: fnd_log.level_exception,
1561: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_price',
1562: 'visit info not found for input visit id'
1563: );
1564: END IF;
1565: CLOSE visit_info_csr;
1577: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1578: fnd_log.string
1579: (
1580: fnd_log.level_error,
1581: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_price',
1582: 'Price estimation is restricted to outside party visit only '
1583: );
1584: END IF;
1585: RAISE FND_API.G_EXC_ERROR;
1588: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1589: fnd_log.string
1590: (
1591: fnd_log.level_error,
1592: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_price',
1593: 'Before release_visit cursor'
1594: );
1595: END IF;
1596:
1638: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1639: fnd_log.string
1640: (
1641: fnd_log.level_error,
1642: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_price',
1643: 'Before customer cursor'
1644: );
1645: END IF;
1646:
1654: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1655: fnd_log.string
1656: (
1657: fnd_log.level_error,
1658: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_price',
1659: 'Customer id not found for service request'
1660: );
1661: END IF;
1662: CLOSE customer_id_csr;
1785: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1786: fnd_log.string
1787: (
1788: fnd_log.level_error,
1789: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_price',
1790: 'Before Summary TAsk cursor '
1791: );
1792: END IF;
1793:
1840: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1841: fnd_log.string
1842: (
1843: fnd_log.level_error,
1844: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_price',
1845: 'AHL_VWP_MR_CST_PR_PVT.Estimate_MR_Price API Threw error'
1846: );
1847: END IF;
1848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1897: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1898: fnd_log.string
1899: (
1900: fnd_log.level_error,
1901: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_price',
1902: 'Estimate_SR_Price API Threw error'
1903: );
1904: END IF;
1905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1968: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1969: fnd_log.string
1970: (
1971: fnd_log.level_error,
1972: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_price',
1973: 'AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price API Threw error'
1974: );
1975: END IF;
1976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2143: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2144: fnd_log.string
2145: (
2146: fnd_log.level_procedure,
2147: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_price.end',
2148: 'At the end of PLSQL procedure'
2149: );
2150: END IF;
2151:
2244: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2245: fnd_log.string
2246: (
2247: fnd_log.level_procedure,
2248: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.create_price_snapshot.begin',
2249: 'At the start of PLSQL procedure'
2250: );
2251: END IF;
2252:
2275: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2276: fnd_log.string
2277: (
2278: fnd_log.level_statement,
2279: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.create_price_snapshot',
2280: 'Got request for tasking a price snapshot of Visit ID : ' || p_visit_id
2281: );
2282: END IF;
2283:
2291: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2292: fnd_log.string
2293: (
2294: fnd_log.level_exception,
2295: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.create_price_snapshot',
2296: 'Visit id is mandatory but found null in input '
2297: );
2298: END IF;
2299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2315: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2316: fnd_log.string
2317: (
2318: fnd_log.level_error,
2319: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.create_price_snapshot',
2320: 'Price not found for task id : ' || other_tasks_rec.visit_task_id
2321: );
2322: END IF;
2323: EXIT;
2414: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2415: fnd_log.string
2416: (
2417: fnd_log.level_procedure,
2418: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.create_price_snapshot.end',
2419: 'At the end of PLSQL procedure'
2420: );
2421: END IF;
2422:
2478: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2479: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2480: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2481: p_module_type IN VARCHAR2 := 'JSP',
2482: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
2483: x_return_status OUT NOCOPY VARCHAR2,
2484: x_msg_count OUT NOCOPY NUMBER,
2485: x_msg_data OUT NOCOPY VARCHAR2)IS
2486:
2483: x_return_status OUT NOCOPY VARCHAR2,
2484: x_msg_count OUT NOCOPY NUMBER,
2485: x_msg_data OUT NOCOPY VARCHAR2)IS
2486:
2487: l_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type;
2488:
2489: CURSOR summary_tasks_snapshot_csr(p_visit_id IN NUMBER) IS
2490: SELECT visit_task_id, mr_id FROM ahl_visit_tasks_vl
2491: WHERE mr_id IS NULL
2525: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2526: fnd_log.string
2527: (
2528: fnd_log.level_procedure,
2529: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.create_cost_snapshot.begin',
2530: 'At the start of PLSQL procedure'
2531: );
2532: END IF;
2533:
2555: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2556: fnd_log.string
2557: (
2558: fnd_log.level_statement,
2559: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.create_cost_snapshot',
2560: 'Got request for tasking a cost snapshot of Visit ID : ' || p_x_cost_price_rec.visit_id
2561: );
2562: END IF;
2563:
2568: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2569: fnd_log.string
2570: (
2571: fnd_log.level_exception,
2572: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.create_cost_snapshot',
2573: 'Visit id is mandatory but found null in input '
2574: );
2575: END IF;
2576: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2594: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2595: fnd_log.string
2596: (
2597: fnd_log.level_exception,
2598: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.create_cost_snapshot',
2599: 'AHL_VWP_COST_PVT.Estimate_WO_Cost API threw error : x_return_status : ' || x_return_status
2600: );
2601: END IF;
2602: RAISE FND_API.G_EXC_ERROR;
2623: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2624: fnd_log.string
2625: (
2626: fnd_log.level_error,
2627: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.create_cost_snapshot',
2628: 'AHL_VWP_COST_PVT.Calculate_Task_Cost API threw error :summary: x_return_status : ' || x_return_status
2629: );
2630: END IF;
2631: CLOSE workorder_csr;
2691: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2692: fnd_log.string
2693: (
2694: fnd_log.level_error,
2695: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.create_cost_snapshot',
2696: 'AHL_VWP_COST_PVT.Calculate_Task_Cost API threw error :other: x_return_status : ' || x_return_status
2697: );
2698: END IF;
2699: EXIT;
2753: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2754: fnd_log.string
2755: (
2756: fnd_log.level_procedure,
2757: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.create_cost_snapshot.end',
2758: 'At the end of PLSQL procedure'
2759: );
2760: END IF;
2761: EXCEPTION
2800: p_module_type IN VARCHAR2 := NULL,
2801: x_return_status OUT NOCOPY VARCHAR2,
2802: x_msg_count OUT NOCOPY NUMBER,
2803: x_msg_data OUT NOCOPY VARCHAR2,
2804: p_cost_price_rec IN AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
2805: x_cost_price_tbl OUT NOCOPY Cost_Price_Tbl_Type
2806: )
2807: AS
2808: l_api_name VARCHAR2(30) :='GET_VISIT_ITEMS_NO_PRICE';
2810: l_return_status VARCHAR2(1);
2811: l_flag VARCHAR2(1);
2812: l_commit VARCHAR2(1) := FND_API.G_FALSE;
2813: l_release_visit_required VARCHAR2(1) :='N';
2814: l_module_name VARCHAR2(200):='ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_items_no_price';
2815:
2816: l_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type:=p_cost_price_rec;
2817: l_job_status_code AHL_WORKORDERS_V.JOB_STATUS_CODE%TYPE;
2818: l_job_status_meaning AHL_WORKORDERS_V.JOB_STATUS_MEANING%TYPE;
2812: l_commit VARCHAR2(1) := FND_API.G_FALSE;
2813: l_release_visit_required VARCHAR2(1) :='N';
2814: l_module_name VARCHAR2(200):='ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_items_no_price';
2815:
2816: l_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type:=p_cost_price_rec;
2817: l_job_status_code AHL_WORKORDERS_V.JOB_STATUS_CODE%TYPE;
2818: l_job_status_meaning AHL_WORKORDERS_V.JOB_STATUS_MEANING%TYPE;
2819:
2820: l_cost_price_tbl1 Cost_Price_Tbl_Type;
2947: End if;
2948: Close c_visit_csr;
2949:
2950: -- Release visit if required
2951: AHL_VWP_VISIT_CST_PR_PVT.check_for_release_visit
2952: (
2953: p_visit_id =>l_visit_rec.visit_id,
2954: x_release_visit_required =>l_release_visit_required
2955: );
3579: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3580: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3581: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3582: p_module_type IN VARCHAR2 := 'CST',
3583: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
3584: x_request_id OUT NOCOPY NUMBER,
3585: x_return_status OUT NOCOPY VARCHAR2,
3586: x_msg_count OUT NOCOPY NUMBER,
3587: x_msg_data OUT NOCOPY VARCHAR2
3658: IF (l_log_unexpected >= l_log_current_level)THEN
3659: fnd_log.string
3660: (
3661: l_log_unexpected,
3662: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.bg_estimate_visit_cost',
3663: 'Visit id is mandatory but found null in input '
3664: );
3665: END IF;
3666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3821: l_msg_data VARCHAR2(2000);
3822: l_return_status VARCHAR2(1);
3823: l_err_msg VARCHAR2(2000);
3824: l_msg_index_out NUMBER;
3825: l_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type;
3826:
3827: BEGIN
3828:
3829: -- Standard start of API savepoint
3849:
3850: SELECT visit_id INTO l_cost_price_rec.visit_id FROM AHL_VISITS_B WHERE visit_number = p_visit_number;
3851:
3852: IF l_cost_price_rec.visit_id IS NOT NULL THEN
3853: fnd_file.put_line(fnd_file.log, 'before calling AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_cost');
3854: fnd_file.put_line(fnd_file.log, 'visit_id -> '||l_cost_price_rec.visit_id);
3855:
3856: estimate_visit_cost(
3857: p_api_version => 1.0,
3927:
3928: END bg_exec_estimate_visit_cost;
3929: --salogan::Visit Cost Estimation CP ER 9299910::01-JUN-2009::END
3930:
3931: END AHL_VWP_VISIT_CST_PR_PVT;