[Home] [Help]
487: SAVEPOINT BG_Release_Visit_Pvt;
488:
489: -- Initialize message list if p_init_msg_list is set to TRUE
490: IF FND_API.To_Boolean(p_init_msg_list) THEN
491: FND_MSG_PUB.Initialize;
492: END IF;
493: -- Initialize API return status to success
494: x_return_status := FND_API.G_RET_STS_SUCCESS;
495:
502:
503: -- Check for Required Parameters
504: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
505: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CST_INPUT_MISS');
506: FND_MSG_PUB.ADD;
507: IF (l_log_unexpected >= l_log_current_level)THEN
508: fnd_log.string
509: (
510: l_log_unexpected,
519: OPEN c_conc_req_phase(p_visit_id);
520: FETCH c_conc_req_phase INTO l_dummy_val;
521: IF(c_conc_req_phase%FOUND) THEN
522: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CP_P2P_IN_PROGS');
523: FND_MSG_PUB.ADD;
524: RAISE FND_API.G_EXC_ERROR;
525: END IF;
526: CLOSE c_conc_req_phase;
527: --salogan::Modified the cursor fetch to handle both request id from P2P and Cost Estimation CP ER 9299910::01-JUN-2009::END
532: FETCH get_visit_status INTO l_visit_status;
533: IF get_visit_status%NOTFOUND THEN
534: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_INVALID_VST');
535: FND_MESSAGE.SET_TOKEN('VISIT_ID', p_visit_id);
536: FND_MSG_PUB.ADD;
537: CLOSE get_visit_status;
538: RAISE FND_API.G_EXC_ERROR;
539: END IF;
540: CLOSE get_visit_status;
559: stage_details_rec.stage_name);
560: END IF;
561: FND_MESSAGE.SET_NAME('AHL', 'AHL_VWP_NO_STAGE_TYPE');
562: FND_MESSAGE.SET_TOKEN('STAGE_NAME',stage_details_rec.stage_name);
563: FND_MSG_PUB.ADD;
564:
565: END LOOP;
566: END IF;
567:
596: l_return_status := l_validate_error;
597: x_return_status := l_validate_error;
598: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
599: -- Check Error Message stack.
600: x_msg_count := FND_MSG_PUB.count_msg;
601:
602: IF (l_log_statement >= l_log_current_level)THEN
603: fnd_log.string ( l_log_statement, L_DEBUG_KEY,'Errors from AHL_VWP_PROJ_PROD_PVT.Validate_Before_Production - '||x_msg_count);
604: END IF;
606: ELSE
607: --salogan::Commented the repeated code CP ER 9299910::01-JUN-2009::BEGIN
608: --IF(l_phase_code IN('R' , 'P')) THEN
609: --FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CP_P2P_IN_PROGS');
610: --FND_MSG_PUB.ADD;
611: --RAISE FND_API.G_EXC_ERROR;
612: --END IF;
613: --salogan::Commented the repeated code CP ER 9299910::01-JUN-2009::END
614:
681: EXCEPTION
682: WHEN FND_API.G_EXC_ERROR THEN
683: x_return_status := FND_API.G_RET_STS_ERROR;
684: ROLLBACK TO BG_Release_Visit_Pvt;
685: FND_MSG_PUB.count_and_get(
686: p_count => x_msg_count,
687: p_data => x_msg_data,
688: p_encoded => fnd_api.g_false);
689:
689:
690: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
692: ROLLBACK TO BG_Release_Visit_Pvt;
693: FND_MSG_PUB.count_and_get(
694: p_count => x_msg_count,
695: p_data => x_msg_data,
696: p_encoded => fnd_api.g_false);
697:
697:
698: WHEN OTHERS THEN
699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
700: ROLLBACK TO BG_Release_Visit_Pvt;
701: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
702: fnd_msg_pub.add_exc_msg(
703: p_pkg_name => G_PKG_NAME,
704: p_procedure_name => 'BG_Release_Visit',
705: p_error_text => SUBSTR(SQLERRM,1,500));
698: WHEN OTHERS THEN
699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
700: ROLLBACK TO BG_Release_Visit_Pvt;
701: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
702: fnd_msg_pub.add_exc_msg(
703: p_pkg_name => G_PKG_NAME,
704: p_procedure_name => 'BG_Release_Visit',
705: p_error_text => SUBSTR(SQLERRM,1,500));
706: END IF;
703: p_pkg_name => G_PKG_NAME,
704: p_procedure_name => 'BG_Release_Visit',
705: p_error_text => SUBSTR(SQLERRM,1,500));
706: END IF;
707: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
708: p_data => x_msg_data,
709: p_encoded => fnd_api.g_false);
710:
711: END BG_Release_Visit;
751: -- Standard start of API savepoint
752: SAVEPOINT BG_Push_to_Production;
753:
754: -- 1. Initialize error message stack by default
755: FND_MSG_PUB.Initialize;
756:
757: -- Standard call to check for call compatibility
758: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
759: retcode := 2;
756:
757: -- Standard call to check for call compatibility
758: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
759: retcode := 2;
760: errbuf := FND_MSG_PUB.Get;
761: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
762: END IF;
763:
764: -- 2. Dump all input parameters
792: x_return_status => l_return_status,
793: x_msg_count => l_msg_count,
794: x_msg_data => l_msg_data);
795:
796: l_msg_count := FND_MSG_PUB.Count_Msg;
797: IF (l_msg_count > 0) THEN
798: fnd_file.put_line(fnd_file.log, 'Following error occured while plan visit..');
799: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
800: RAISE FND_API.G_EXC_ERROR;
811: x_return_status => l_return_status,
812: x_msg_count => l_msg_count,
813: x_msg_data => l_msg_data);
814:
815: l_msg_count := FND_MSG_PUB.Count_Msg;
816: IF (l_msg_count > 0) THEN
817: fnd_file.put_line(fnd_file.log, 'Following error occured while pushing the visit to production..');
818: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
819: RAISE FND_API.G_EXC_ERROR;
829: ROLLBACK TO BG_Push_to_Production;
830: retcode := 2;
831: FOR i IN 1..l_msg_count
832: LOOP
833: fnd_msg_pub.get( p_msg_index => i,
834: p_encoded => FND_API.G_FALSE,
835: p_data => l_err_msg,
836: p_msg_index_out => l_msg_index_out);
837:
841:
842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
843: ROLLBACK TO BG_Push_to_Production;
844: retcode := 2;
845: l_msg_count := Fnd_Msg_Pub.count_msg;
846: FOR i IN 1..l_msg_count
847: LOOP
848: fnd_msg_pub.get( p_msg_index => i,
849: p_encoded => FND_API.G_FALSE,
844: retcode := 2;
845: l_msg_count := Fnd_Msg_Pub.count_msg;
846: FOR i IN 1..l_msg_count
847: LOOP
848: fnd_msg_pub.get( p_msg_index => i,
849: p_encoded => FND_API.G_FALSE,
850: p_data => l_err_msg,
851: p_msg_index_out => l_msg_index_out);
852:
856:
857: WHEN OTHERS THEN
858: ROLLBACK TO BG_Push_to_Production;
859: retcode := 2;
860: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
861: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
862: p_procedure_name => 'BG_Push_to_Production',
863: p_error_text => SUBSTR(SQLERRM,1,500));
864: END IF;
857: WHEN OTHERS THEN
858: ROLLBACK TO BG_Push_to_Production;
859: retcode := 2;
860: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
861: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
862: p_procedure_name => 'BG_Push_to_Production',
863: p_error_text => SUBSTR(SQLERRM,1,500));
864: END IF;
865: l_msg_count := Fnd_Msg_Pub.count_msg;
861: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
862: p_procedure_name => 'BG_Push_to_Production',
863: p_error_text => SUBSTR(SQLERRM,1,500));
864: END IF;
865: l_msg_count := Fnd_Msg_Pub.count_msg;
866: FOR i IN 1..l_msg_count
867: LOOP
868: fnd_msg_pub.get( p_msg_index => i,
869: p_encoded => FND_API.G_FALSE,
864: END IF;
865: l_msg_count := Fnd_Msg_Pub.count_msg;
866: FOR i IN 1..l_msg_count
867: LOOP
868: fnd_msg_pub.get( p_msg_index => i,
869: p_encoded => FND_API.G_FALSE,
870: p_data => l_err_msg,
871: p_msg_index_out => l_msg_index_out);
872:
924: END IF;
925:
926: -- Initialize message list if p_init_msg_list is set to TRUE.
927: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
928: Fnd_Msg_Pub.initialize;
929: END IF;
930:
931: -- Initialize API return status to success
932: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
994: IF Fnd_Api.To_Boolean ( p_commit ) THEN
995: COMMIT WORK;
996: END IF;
997:
998: Fnd_Msg_Pub.count_and_get(
999: p_encoded => Fnd_Api.g_false,
1000: p_count => x_msg_count,
1001: p_data => x_msg_data
1002: );
1008: EXCEPTION
1009: WHEN Fnd_Api.g_exc_error THEN
1010: ROLLBACK TO Integrate_to_Projects;
1011: x_return_status := Fnd_Api.g_ret_sts_error;
1012: Fnd_Msg_Pub.count_and_get (
1013: p_encoded => Fnd_Api.g_false,
1014: p_count => x_msg_count,
1015: p_data => x_msg_data
1016: );
1016: );
1017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1018: ROLLBACK TO Integrate_to_Projects;
1019: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1020: Fnd_Msg_Pub.count_and_get (
1021: p_encoded => Fnd_Api.g_false,
1022: p_count => x_msg_count,
1023: p_data => x_msg_data
1024: );
1024: );
1025: WHEN OTHERS THEN
1026: ROLLBACK TO Integrate_to_Projects;
1027: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1028: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
1029: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
1030: END IF;
1031: Fnd_Msg_Pub.count_and_get (
1032: p_encoded => Fnd_Api.g_false,
1025: WHEN OTHERS THEN
1026: ROLLBACK TO Integrate_to_Projects;
1027: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1028: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
1029: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
1030: END IF;
1031: Fnd_Msg_Pub.count_and_get (
1032: p_encoded => Fnd_Api.g_false,
1033: p_count => x_msg_count,
1027: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1028: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
1029: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
1030: END IF;
1031: Fnd_Msg_Pub.count_and_get (
1032: p_encoded => Fnd_Api.g_false,
1033: p_count => x_msg_count,
1034: p_data => x_msg_data
1035: );
1103: END IF;
1104:
1105: -- Initialize message list if p_init_msg_list is set to TRUE.
1106: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
1107: Fnd_Msg_Pub.initialize;
1108: END IF;
1109:
1110: -- Initialize API return status to success
1111: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1283: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.ADD_TASK - l_return_status = '||l_return_status);
1284: END IF;
1285:
1286: IF (l_return_status <> 'S') THEN
1287: IF (fnd_msg_pub.count_msg > 0 ) THEN
1288: FOR i IN 1..fnd_msg_pub.count_msg
1289: LOOP
1290: fnd_msg_pub.get( p_msg_index => i,
1291: p_encoded => 'F',
1284: END IF;
1285:
1286: IF (l_return_status <> 'S') THEN
1287: IF (fnd_msg_pub.count_msg > 0 ) THEN
1288: FOR i IN 1..fnd_msg_pub.count_msg
1289: LOOP
1290: fnd_msg_pub.get( p_msg_index => i,
1291: p_encoded => 'F',
1292: p_data => l_msg_data,
1286: IF (l_return_status <> 'S') THEN
1287: IF (fnd_msg_pub.count_msg > 0 ) THEN
1288: FOR i IN 1..fnd_msg_pub.count_msg
1289: LOOP
1290: fnd_msg_pub.get( p_msg_index => i,
1291: p_encoded => 'F',
1292: p_data => l_msg_data,
1293: p_msg_index_out => l_msg_index_out);
1294:
1316: END IF;
1317:
1318: ELSIF l_project_tsk_flag = 'N' AND l_proj_ref_flag = 'Y' THEN
1319: x_return_status := Fnd_Api.g_ret_sts_error;
1320: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1321: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_REF_NOT_UNIQ');
1322: Fnd_Msg_Pub.ADD;
1323: END IF;
1324: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN
1318: ELSIF l_project_tsk_flag = 'N' AND l_proj_ref_flag = 'Y' THEN
1319: x_return_status := Fnd_Api.g_ret_sts_error;
1320: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1321: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_REF_NOT_UNIQ');
1322: Fnd_Msg_Pub.ADD;
1323: END IF;
1324: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN
1325: x_return_status := Fnd_Api.g_ret_sts_error;
1326: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1322: Fnd_Msg_Pub.ADD;
1323: END IF;
1324: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN
1325: x_return_status := Fnd_Api.g_ret_sts_error;
1326: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1327: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_NUM_NOT_UNIQ');
1328: Fnd_Msg_Pub.ADD;
1329: END IF;
1330: ELSE
1324: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN
1325: x_return_status := Fnd_Api.g_ret_sts_error;
1326: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1327: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_NUM_NOT_UNIQ');
1328: Fnd_Msg_Pub.ADD;
1329: END IF;
1330: ELSE
1331: x_return_status := Fnd_Api.g_ret_sts_error;
1332: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1328: Fnd_Msg_Pub.ADD;
1329: END IF;
1330: ELSE
1331: x_return_status := Fnd_Api.g_ret_sts_error;
1332: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1333: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TASK_NOT_UNIQUE');
1334: Fnd_Msg_Pub.ADD;
1335: END IF;
1336: END IF;
1330: ELSE
1331: x_return_status := Fnd_Api.g_ret_sts_error;
1332: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1333: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TASK_NOT_UNIQUE');
1334: Fnd_Msg_Pub.ADD;
1335: END IF;
1336: END IF;
1337: END IF;
1338:
1346: IF Fnd_Api.To_Boolean (p_commit) THEN
1347: COMMIT WORK;
1348: END IF;
1349:
1350: Fnd_Msg_Pub.count_and_get(
1351: p_encoded => Fnd_Api.g_false,
1352: p_count => x_msg_count,
1353: p_data => x_msg_data
1354: );
1360: EXCEPTION
1361: WHEN Fnd_Api.g_exc_error THEN
1362: ROLLBACK TO Add_Task_to_Project;
1363: x_return_status := Fnd_Api.g_ret_sts_error;
1364: Fnd_Msg_Pub.count_and_get (
1365: p_encoded => Fnd_Api.g_false,
1366: p_count => x_msg_count,
1367: p_data => x_msg_data
1368: );
1368: );
1369: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1370: ROLLBACK TO Add_Task_to_Project;
1371: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1372: Fnd_Msg_Pub.count_and_get (
1373: p_encoded => Fnd_Api.g_false,
1374: p_count => x_msg_count,
1375: p_data => x_msg_data
1376: );
1376: );
1377: WHEN OTHERS THEN
1378: ROLLBACK TO Add_Task_to_Project;
1379: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1380: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
1381: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
1382: END IF;
1383: Fnd_Msg_Pub.count_and_get (
1384: p_encoded => Fnd_Api.g_false,
1377: WHEN OTHERS THEN
1378: ROLLBACK TO Add_Task_to_Project;
1379: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1380: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
1381: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
1382: END IF;
1383: Fnd_Msg_Pub.count_and_get (
1384: p_encoded => Fnd_Api.g_false,
1385: p_count => x_msg_count,
1379: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1380: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
1381: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
1382: END IF;
1383: Fnd_Msg_Pub.count_and_get (
1384: p_encoded => Fnd_Api.g_false,
1385: p_count => x_msg_count,
1386: p_data => x_msg_data
1387: );
1851: l_project_status_code := nvl(FND_PROFILE.VALUE('AHL_INITIAL_PROJECT_STATUS'),'SUBMITTED');
1852:
1853: /*
1854: IF (l_project_status_code IS NULL) THEN
1855: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1856: Fnd_Message.set_name ('AHL', 'AHL_PROJECT_STATUS_NOT_SET');
1857: Fnd_Msg_Pub.ADD;
1858: END IF;
1859: RAISE FND_API.G_EXC_ERROR;
1853: /*
1854: IF (l_project_status_code IS NULL) THEN
1855: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1856: Fnd_Message.set_name ('AHL', 'AHL_PROJECT_STATUS_NOT_SET');
1857: Fnd_Msg_Pub.ADD;
1858: END IF;
1859: RAISE FND_API.G_EXC_ERROR;
1860: END IF;
1861: */
1875: L_DEBUG_KEY,
1876: 'Create New Transaction Flag = ' || l_new_txns_flag);
1877: END IF;
1878: IF (l_new_txns_flag = 'N') THEN
1879: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1880: Fnd_Message.SET_NAME('AHL','AHL_PRJ_NEW_TXN_DISABLED');
1881: Fnd_Message.SET_TOKEN('PRJ_STATUS', l_project_status_code);
1882: Fnd_Msg_Pub.ADD;
1883: END IF;
1878: IF (l_new_txns_flag = 'N') THEN
1879: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1880: Fnd_Message.SET_NAME('AHL','AHL_PRJ_NEW_TXN_DISABLED');
1881: Fnd_Message.SET_TOKEN('PRJ_STATUS', l_project_status_code);
1882: Fnd_Msg_Pub.ADD;
1883: END IF;
1884: RAISE Fnd_Api.G_EXC_ERROR;
1885: END IF;
1886: -- End changes by rnahata for Bug 6334682
2301: END IF; -- End of l_task_out.COUNT
2302: END IF; -- End of x_return_status = 'S'
2303: ELSE -- Else of l_project_flag = 'Y'
2304: x_return_status := Fnd_Api.g_ret_sts_error;
2305: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
2306: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJECT_NOT_UNIQUE');
2307: Fnd_Msg_Pub.ADD;
2308: END IF;
2309: END IF; -- End of l_project_flag = 'Y'
2303: ELSE -- Else of l_project_flag = 'Y'
2304: x_return_status := Fnd_Api.g_ret_sts_error;
2305: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
2306: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJECT_NOT_UNIQUE');
2307: Fnd_Msg_Pub.ADD;
2308: END IF;
2309: END IF; -- End of l_project_flag = 'Y'
2310: END IF; --- End of l_chk_project = 'Y'
2311: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN
2309: END IF; -- End of l_project_flag = 'Y'
2310: END IF; --- End of l_chk_project = 'Y'
2311: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN
2312: x_return_status := Fnd_Api.g_ret_sts_error;
2313: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
2314: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_ST_DT_MISSING');
2315: Fnd_Msg_Pub.ADD;
2316: END IF;
2317: END IF; -- End of Start Time and Department null Check
2311: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN
2312: x_return_status := Fnd_Api.g_ret_sts_error;
2313: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
2314: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_ST_DT_MISSING');
2315: Fnd_Msg_Pub.ADD;
2316: END IF;
2317: END IF; -- End of Start Time and Department null Check
2318:
2319: IF (l_log_statement >= l_log_current_level) THEN
2666: END IF;
2667:
2668: -- Initialize message list if p_init_msg_list is set to TRUE.
2669: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
2670: Fnd_Msg_Pub.initialize;
2671: END IF;
2672:
2673: -- Initialize API return status to success
2674: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3785: END IF; -- c_visit_rec.PROJECT_ID IS NOT NULL
3786: -- PRAKKUM :: PIE Changes :: 13-OCT-2010 :: END
3787: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN
3788: x_return_status := Fnd_Api.g_ret_sts_error;
3789: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
3790: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_ST_DT_MISSING');
3791: Fnd_Msg_Pub.ADD;
3792: END IF;
3793: END IF; -- check for visit's start date time
3787: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN
3788: x_return_status := Fnd_Api.g_ret_sts_error;
3789: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
3790: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_ST_DT_MISSING');
3791: Fnd_Msg_Pub.ADD;
3792: END IF;
3793: END IF; -- check for visit's start date time
3794: END IF; -- l_chk_project
3795:
3794: END IF; -- l_chk_project
3795:
3796: ---------------------------End of API Body---------------------------------------
3797: --Standard check to count messages
3798: l_msg_count := Fnd_Msg_Pub.count_msg;
3799:
3800: IF l_msg_count > 0 THEN
3801: X_msg_count := l_msg_count;
3802: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3810: EXCEPTION
3811: WHEN FND_API.G_EXC_ERROR THEN
3812: x_return_status := FND_API.G_RET_STS_ERROR;
3813: ROLLBACK TO Update_Project;
3814: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
3815: p_data => x_msg_data,
3816: p_encoded => fnd_api.g_false);
3817:
3818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3817:
3818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3820: ROLLBACK TO Update_Project;
3821: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
3822: p_data => x_msg_data,
3823: p_encoded => fnd_api.g_false);
3824:
3825: WHEN OTHERS THEN
3824:
3825: WHEN OTHERS THEN
3826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3827: ROLLBACK TO Update_Project;
3828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3829: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3830: p_procedure_name => 'Update_Project',
3831: p_error_text => SUBSTR(SQLERRM,1,500));
3832: END IF;
3825: WHEN OTHERS THEN
3826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3827: ROLLBACK TO Update_Project;
3828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3829: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3830: p_procedure_name => 'Update_Project',
3831: p_error_text => SUBSTR(SQLERRM,1,500));
3832: END IF;
3833: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
3829: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3830: p_procedure_name => 'Update_Project',
3831: p_error_text => SUBSTR(SQLERRM,1,500));
3832: END IF;
3833: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
3834: p_data => x_msg_data,
3835: p_encoded => fnd_api.g_false);
3836:
3837: END Update_Project;
3892: END IF;
3893:
3894: -- Initialize message list if p_init_msg_list is set to TRUE.
3895: IF Fnd_Api.to_boolean(p_init_msg_list)THEN
3896: Fnd_Msg_Pub.initialize;
3897: END IF;
3898:
3899: -- Initialize API return status to success
3900: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3933:
3934: IF l_count > 0 THEN -- merge process for 11.5 10 bug# 3470801 fix on CMRDV10P
3935: Fnd_Message.SET_NAME('AHL','AHL_VWP_PROJ_PJM_PARA');
3936: Fnd_Message.SET_TOKEN('VISIT_NUMBER', c_visit_rec.Visit_Number);
3937: Fnd_Msg_Pub.ADD;
3938: RAISE Fnd_Api.G_EXC_ERROR;
3939: ELSE
3940: IF (l_log_statement >= l_log_current_level) THEN
3941: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling : PA_PROJECT_PUB.CHECK_DELETE_PROJECT_OK');
3996: END IF;
3997:
3998: ---------------------------End of API Body---------------------------------------
3999: --Standard check to count messages
4000: l_msg_count := Fnd_Msg_Pub.count_msg;
4001:
4002: IF l_msg_count > 0 THEN
4003: X_msg_count := l_msg_count;
4004: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4012: EXCEPTION
4013: WHEN FND_API.G_EXC_ERROR THEN
4014: x_return_status := FND_API.G_RET_STS_ERROR;
4015: ROLLBACK TO Delete_Project;
4016: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4017: p_data => x_msg_data,
4018: p_encoded => fnd_api.g_false);
4019:
4020: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4019:
4020: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4022: ROLLBACK TO Delete_Project;
4023: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4024: p_data => x_msg_data,
4025: p_encoded => fnd_api.g_false);
4026:
4027: WHEN OTHERS THEN
4026:
4027: WHEN OTHERS THEN
4028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4029: ROLLBACK TO Delete_Project;
4030: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4031: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4032: p_procedure_name => 'Delete_Project',
4033: p_error_text => SUBSTR(SQLERRM,1,500));
4034: END IF;
4027: WHEN OTHERS THEN
4028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4029: ROLLBACK TO Delete_Project;
4030: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4031: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4032: p_procedure_name => 'Delete_Project',
4033: p_error_text => SUBSTR(SQLERRM,1,500));
4034: END IF;
4035: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4031: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4032: p_procedure_name => 'Delete_Project',
4033: p_error_text => SUBSTR(SQLERRM,1,500));
4034: END IF;
4035: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4036: p_data => x_msg_data,
4037: p_encoded => fnd_api.g_false);
4038: END Delete_Project;
4039:
4137:
4138: -- SATRAJEN :: Bug 12990261 :: Commented to Sum up all the error Messages :: Jun 2012
4139: /*Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_STDT_ROUT_STDT');
4140: Fnd_Message.Set_Token('TASK_NUMBER', p_visit_task_number);
4141: Fnd_Msg_Pub.ADD;*/
4142: -- PRAKKUM :: FPBug 16481732 for BaseBug 15884730 :: 16/11/2012
4143: --bitor value of x and y=(x+y)-bitand(x,y);
4144: x_valid_flag := (x_valid_flag+POWER(2,0))-bitand(x_valid_flag,POWER(2,0));
4145:
4150:
4151: -- SATRAJEN :: Bug 12990261 :: Commented to Sum up all the error Messages :: Jun 2012
4152: /*Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_ENDT_ROUT_ENDT');
4153: Fnd_Message.Set_Token('TASK_NUMBER', p_visit_task_number);
4154: Fnd_Msg_Pub.ADD;*/
4155: -- PRAKKUM :: FPBug 16481732 for BaseBug 15884730 :: 16/11/2012
4156: --bitor value of x and y=(x+y)-bitand(x,y);
4157: x_valid_flag := (x_valid_flag+POWER(2,1))-bitand(x_valid_flag,POWER(2,1));
4158:
4165:
4166: -- SATRAJEN :: Bug 12990261 :: Commented to Sum up all the error Messages :: Jun 2012
4167: /*Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_NO_ROUTE');
4168: Fnd_Message.Set_Token('TASK_NUMBER', p_visit_task_number);
4169: Fnd_Msg_Pub.ADD;*/
4170: -- PRAKKUM :: FPBug 16481732 for BaseBug 15884730 :: 16/11/2012
4171: --bitor value of x and y=(x+y)-bitand(x,y);
4172: x_valid_flag := (x_valid_flag+POWER(2,2))-bitand(x_valid_flag,POWER(2,2));
4173:
4190: IF TRUNC(c_mr_header_rec.effective_from) > p_start_date_time THEN
4191: -- SATRAJEN :: Bug 12990261 :: Commented to Sum up all the error Messages :: Jun 2012
4192: /*Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_TS_SD_LT_MR');
4193: Fnd_Message.Set_Token('TASK_NUMBER', p_visit_task_number);
4194: Fnd_Msg_Pub.ADD;*/
4195: -- PRAKKUM :: FPBug 16481732 for BaseBug 15884730 :: 16/11/2012
4196: --bitor value of x and y=(x+y)-bitand(x,y);
4197: x_valid_flag := (x_valid_flag+POWER(2,3))-bitand(x_valid_flag,POWER(2,3));
4198: END IF;
4201:
4202: -- SATRAJEN :: Bug 12990261 :: Commented to Sum up all the error Messages :: Jun 2012
4203: /*Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_TS_ED_GT_MR');
4204: Fnd_Message.Set_Token('TASK_NUMBER', p_visit_task_number);
4205: Fnd_Msg_Pub.ADD;*/
4206: -- PRAKKUM :: FPBug 16481732 for BaseBug 15884730 :: 16/11/2012
4207: --bitor value of x and y=(x+y)-bitand(x,y);
4208: x_valid_flag := (x_valid_flag+POWER(2,4))-bitand(x_valid_flag,POWER(2,4));
4209: END IF;
4214:
4215: -- SATRAJEN :: Bug 12990261 :: Commented to Sum up all the error Messages :: Jun 2012
4216: /*Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_MR_ID');
4217: Fnd_Message.Set_Token('TASK_NUMBER', p_visit_task_number);
4218: Fnd_Msg_Pub.ADD;*/
4219: -- PRAKKUM :: FPBug 16481732 for BaseBug 15884730 :: 16/11/2012
4220: --bitor value of x and y=(x+y)-bitand(x,y);
4221: x_valid_flag := (x_valid_flag+POWER(2,5))-bitand(x_valid_flag,POWER(2,5));
4222:
4333: IF TRUNC(c_route_rec.start_date_active) > p_start_date_time THEN
4334:
4335: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_STDT_ROUT_STDT');
4336: Fnd_Message.Set_Token('TASK_NUMBER', p_visit_task_number);
4337: Fnd_Msg_Pub.ADD;
4338:
4339: END IF;
4340:
4341: IF TRUNC(c_route_rec.end_date_active) IS NOT NULL THEN
4342: IF TRUNC(c_route_rec.end_date_active) < p_end_date_time THEN
4343:
4344: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_ENDT_ROUT_ENDT');
4345: Fnd_Message.Set_Token('TASK_NUMBER', p_visit_task_number);
4346: Fnd_Msg_Pub.ADD;
4347:
4348: END IF;
4349: END IF;
4350:
4353: CLOSE c_route;
4354:
4355: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_NO_ROUTE');
4356: Fnd_Message.Set_Token('TASK_NUMBER', p_visit_task_number);
4357: Fnd_Msg_Pub.ADD;
4358:
4359: END IF; -- End of c_route%FOUND check
4360:
4361: -- If the tasks associated to MR Route Id have an expired MR Id
4374:
4375: IF TRUNC(c_mr_header_rec.effective_from) > p_start_date_time THEN
4376: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_TS_SD_LT_MR');
4377: Fnd_Message.Set_Token('TASK_NUMBER', p_visit_task_number);
4378: Fnd_Msg_Pub.ADD;
4379:
4380: END IF;
4381: IF TRUNC(c_mr_header_rec.effective_to) IS NOT NULL THEN
4382: IF TRUNC(c_mr_header_rec.effective_to) < p_end_date_time THEN
4382: IF TRUNC(c_mr_header_rec.effective_to) < p_end_date_time THEN
4383:
4384: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_TS_ED_GT_MR');
4385: Fnd_Message.Set_Token('TASK_NUMBER', p_visit_task_number);
4386: Fnd_Msg_Pub.ADD;
4387:
4388: END IF;
4389: END IF;
4390:
4392: CLOSE c_mr_header;
4393:
4394: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_MR_ID');
4395: Fnd_Message.Set_Token('TASK_NUMBER', p_visit_task_number);
4396: Fnd_Msg_Pub.ADD;
4397:
4398: END IF; -- End of c_mr_header%FOUND check
4399: END IF; -- End of p_mr_route_id IS NOT NULL check
4400:
4677: END IF;
4678:
4679: -- Initialize message list if p_init_msg_list is set to TRUE.
4680: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
4681: Fnd_Msg_Pub.initialize;
4682: END IF;
4683:
4684: -- Initialize API return status to success
4685: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4700: -- Errored only if visit is not an old visit -- PRAKKUM :: VWPE: ER:12673125 :: 23-JUN-2011 :: Upgrade Changes
4701: IF c_visit_rec.visit_type_code IS NULL AND c_visit_rec.IS_OLD_VISIT <> 'Y' THEN
4702: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_TYPE_MAND');
4703: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
4704: Fnd_Msg_Pub.ADD;
4705: END IF;
4706:
4707: -- To check if the unit is quarantined
4708: -- AnRaj added for R 12.0 ACL changes in VWP, Start
4718: END IF;
4719: -- By shbhanda 05/21/04 for TC changes
4720: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_ST_DATE');
4721: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
4722: Fnd_Msg_Pub.ADD;
4723: END IF;
4724:
4725: -- To check visit's status is not null and it should be only planning or partially released
4726: IF c_visit_rec.STATUS_CODE IS NOT NULL THEN
4733: 'Visit Status Code is not Planning/Partially Released.');
4734: END IF;
4735: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NOT_PLANNING'); -- **** IMPortant uPDATE FOR PARTIALLY RELEASED
4736: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
4737: Fnd_Msg_Pub.ADD;
4738: /* l_temp := 'ERROR: Visit Number ' || c_visit_rec.VISIT_NUMBER || ' : Status Code is not Planning or Partially Released' ;
4739: l_error_tbl(j).Msg_Index := j;
4740: l_error_tbl(j).Msg_Data := l_temp;
4741: j := j + 1;*/
4750: 'Visit Status Code is Planning and Visit Start Date is less than sysdate. ');
4751: END IF;
4752: Fnd_Message.SET_NAME('AHL','AHL_VWP_START_DATE_LT_SYS');
4753: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
4754: Fnd_Msg_Pub.ADD;
4755: /* l_error_tbl(j).Msg_Index := j;
4756: l_error_tbl(j).Msg_Data := REPLACE(FND_MESSAGE.GET_STRING(APPIN => 'AHL',
4757: NAMEIN => 'AHL_VWP_START_DATE_LT_SYS')
4758: ,'VISIT_NUMBER',c_visit_rec.VISIT_NUMBER);
4767: 'Visit Status Code is null.');
4768: END IF;
4769: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_STATUS');
4770: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
4771: Fnd_Msg_Pub.ADD;
4772:
4773: /*l_temp := 'ERROR: Visit Number ' || c_visit_rec.VISIT_NUMBER || ' : Status Code Missing' ;
4774: l_error_tbl(j).Msg_Index := j;
4775: l_error_tbl(j).Msg_Data := l_temp;
4785: END IF;
4786:
4787: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_ORG');
4788: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
4789: Fnd_Msg_Pub.ADD;
4790:
4791: /* l_temp := 'ERROR: Visit Number ' || c_visit_rec.VISIT_NUMBER || ' : Organization Missing' ;
4792: l_error_tbl(j).Msg_Index := j;
4793: l_error_tbl(j).Msg_Data := l_temp;
4803: END IF;
4804:
4805: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_DEPT');
4806: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
4807: Fnd_Msg_Pub.ADD;
4808:
4809: /* l_temp := 'ERROR: Visit Number ' || c_visit_rec.VISIT_NUMBER || ' : Department Missing';
4810: l_error_tbl(j).Msg_Index := j;
4811: l_error_tbl(j).Msg_Data := l_temp;
4822: END IF;
4823:
4824: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_PLN_END_DT');
4825: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
4826: Fnd_Msg_Pub.ADD;
4827:
4828: /* l_temp := 'ERROR: Visit Number ' || c_visit_rec.VISIT_NUMBER || ' : Planned end date missing' ;
4829: l_error_tbl(j).Msg_Index := j;
4830: l_error_tbl(j).Msg_Data := l_temp;
4843: END IF;
4844:
4845: Fnd_Message.SET_NAME('AHL','AHL_VWP_PLN_END_DATE_NULL');
4846: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
4847: Fnd_Msg_Pub.ADD;
4848:
4849: /* l_temp := 'ERROR: Visit Number ' || c_visit_rec.VISIT_NUMBER || ' : Planned end date missing' ;
4850: l_error_tbl(j).Msg_Index := j;
4851: l_error_tbl(j).Msg_Data := l_temp;
4868: END IF;
4869:
4870: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_PRIM_PLAN');
4871: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
4872: Fnd_Msg_Pub.ADD;
4873: END IF;
4874: END IF;
4875:
4876: --sowsubra FP:Bug#5758829
4898: END IF;
4899:
4900: IF NVL(l_return_status, 'X') <> 'S' THEN
4901: Fnd_Message.SET_NAME('AHL','AHL_VWP_TYPE_CODE_NOT_EXISTS');
4902: Fnd_Msg_Pub.ADD;
4903: RAISE Fnd_Api.G_EXC_ERROR;
4904: END IF;
4905: END IF;
4906:
4934: IF l_count = 0 THEN
4935:
4936: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_INST_NO_ACTIVE');
4937: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
4938: Fnd_Msg_Pub.ADD;
4939: END IF;
4940: END IF;
4941: ELSE
4942: -- SKPATHAK :: Bug 8312388 :: 07-MAY-2009
4968:
4969: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_INVALID_UC');
4970: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
4971: Fnd_Message.Set_Token('UNIT_NAME', c_uc_status_rec.name);
4972: Fnd_Msg_Pub.ADD;
4973: END IF;
4974: END IF;
4975:
4976: -- To check tasks must be associated to Active Item Instances.
5008:
5009: IF l_count = 0 THEN
5010: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_INST_NO_ACTIVE');
5011: Fnd_Message.Set_Token('TASK_NUMBER', c_task_rec.VISIT_TASK_NUMBER);
5012: Fnd_Msg_Pub.ADD;
5013: END IF;
5014: END IF;
5015: ELSE
5016: -- SKPATHAK :: Bug 8312388 :: 07-MAY-2009
5041: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(p_visit_id, c_visit_rec.item_instance_id)= FND_API.G_RET_STS_ERROR) THEN
5042: --END: jeli added for bug 3777720
5043: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_INST_NO_FOUND');
5044: Fnd_Message.Set_Token('VISIT_NUMBER',c_visit_rec.VISIT_NUMBER);
5045: Fnd_Msg_Pub.ADD;
5046: END IF;
5047: END IF;
5048:
5049: IF c_visit_rec.Item_Instance_Id IS NOT NULL THEN
5058: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(p_visit_id, c_task_rec.instance_id) = FND_API.G_RET_STS_ERROR) THEN
5059: --END: jeli added for bug 3777720
5060: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_INST_NO_FOUND');
5061: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
5062: Fnd_Msg_Pub.ADD;
5063: END IF;
5064: END IF;
5065: END LOOP;
5066: CLOSE c_task;
5197: IF c_visit_rec.close_date_time IS NULL AND l_plan_date_flag = 'N' THEN -- SOSAHNI :: BUG 16061401 :: FP base bug 12929344 :: 10/01/2013 :: Added a l_plan_date_flag condition to check if plan date error was not previously found
5198: Fnd_Message.SET_NAME('AHL','AHL_VWP_PLN_END_DATE_NULL');
5199: Fnd_Message.Set_Token('VISIT_NUMBER',
5200: c_visit_rec.VISIT_NUMBER);
5201: Fnd_Msg_Pub.ADD;
5202: END IF;
5203:
5204:
5205: -- To find any visit task if Tasks associated to a route/MR, must be associated to the item as set up in FMP
5214: IF c_task_rec.mr_route_id is null THEN
5215: IF c_task_rec.SERVICE_REQUEST_ID is null OR c_task_rec.UNIT_EFFECTIVITY_ID is null THEN
5216: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_SR_UE'); --***** change this
5217: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
5218: Fnd_Msg_Pub.ADD;
5219: END IF; --Added by jeli on 07/26/04 when merging code otherwise it couldn't pass compilation
5220: END IF; --- End Changes made by VSUNDARA for Production - SR Integration
5221: END IF;
5222: END IF;
5229: 'Unassociated Task. Task Duration is null');
5230: END IF;
5231: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_NO_DURATION');
5232: Fnd_Message.Set_Token('TASK_NUMBER', c_task_rec.VISIT_TASK_NUMBER);
5233: Fnd_Msg_Pub.ADD;
5234: END IF; -- End for c_task_rec.task_type_code check
5235:
5236: -- To find all visit tasks must be associated to an item and item instance.
5237: IF c_task_rec.instance_id IS NULL THEN
5241: 'Check Task Serial');
5242: END IF;
5243: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_NO_SERIAL');
5244: Fnd_Message.Set_Token('TASK_NUMBER', c_task_rec.VISIT_TASK_NUMBER);
5245: Fnd_Msg_Pub.ADD;
5246: END IF;
5247:
5248: IF c_task_rec.inventory_item_id IS NULL THEN
5249: IF (l_log_statement >= l_log_current_level) THEN
5252: 'Task Inventory Item is null.');
5253: END IF;
5254: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_NO_ITEM');
5255: Fnd_Message.Set_Token('TASK_NUMBER', c_task_rec.VISIT_TASK_NUMBER);
5256: Fnd_Msg_Pub.ADD;
5257: END IF;
5258:
5259: -- Begin changes by rnahata for Bug 6448678
5260: IF (l_log_statement >= l_log_current_level) THEN
5292:
5293: IF c_visit_rec.DEPARTMENT_ID IS NOT NULL AND l_count = 0 THEN -- SOSAHNI :: BUG 16061392 :: FP base bug :: 12990824 :: 10/01/2013 :: Added check for Department ID not null
5294: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_DEPT_SHIFT');
5295: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
5296: Fnd_Msg_Pub.ADD;
5297: END IF;
5298:
5299: IF l_chk_flag = 'Y' THEN
5300: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_RT_EXISTS');
5298:
5299: IF l_chk_flag = 'Y' THEN
5300: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_RT_EXISTS');
5301: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
5302: Fnd_Msg_Pub.ADD;
5303: END IF;
5304:
5305: IF l_dept_flag = 'Y' THEN
5306: OPEN c_dept_tsk (p_visit_id);
5322: 'Task Dept Count ' || l_dept);
5323: END IF;
5324: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_DEPT_SHIFT');
5325: Fnd_Message.Set_Token('TASK_NUMBER', c_dept_tsk_rec.VISIT_TASK_NUMBER);
5326: Fnd_Msg_Pub.ADD;
5327: END IF;
5328: CLOSE c_dept;
5329: END IF;
5330: END LOOP;
5346: END IF;
5347:
5348: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_TASK_NULL');
5349: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
5350: Fnd_Msg_Pub.ADD;
5351:
5352: END IF;
5353: END IF;
5354:
5386: /*l_error_tbl(1).Msg_Index := 1;
5387: l_error_tbl(1).Msg_Data := l_msg_data;*/
5388:
5389: j := 1;
5390: l_msg_count := Fnd_Msg_Pub.count_msg;
5391: FOR i IN 1..l_msg_count LOOP
5392: FND_MSG_PUB.get (
5393: p_msg_index => i,
5394: p_encoded => FND_API.G_FALSE,
5388:
5389: j := 1;
5390: l_msg_count := Fnd_Msg_Pub.count_msg;
5391: FOR i IN 1..l_msg_count LOOP
5392: FND_MSG_PUB.get (
5393: p_msg_index => i,
5394: p_encoded => FND_API.G_FALSE,
5395: p_data => x_msg_data,
5396: p_msg_index_out => x_msg_count);
5405:
5406: END IF;
5407: -- SKPATHAK :: ER:12730539 :: 01-AUG-2011 :: END
5408:
5409: l_msg_count := Fnd_Msg_Pub.count_msg;
5410:
5411: IF (l_log_statement >= l_log_current_level) THEN
5412: fnd_log.string(l_log_statement,
5413: L_DEBUG_KEY,
5413: L_DEBUG_KEY,
5414: 'After calling *count_msg* l_count = ' || l_msg_count);
5415: fnd_log.string(l_log_statement,
5416: L_DEBUG_KEY,
5417: 'Start calling Fnd_Msg_Pub.GET');
5418: END IF;
5419:
5420: j := 1;
5421:
5426: L_DEBUG_KEY,
5427: '------------------------------------------------');
5428: END IF;
5429:
5430: FND_MSG_PUB.get (
5431: p_msg_index => i, -- SOSAHNI :: BUG 16061401 :: FP base bug 12929344 :: 10/01/2013 :: Found this error while testing for this bug. Error message is not displayed when error count is one. Hence added the parameter
5432: p_encoded => FND_API.G_FALSE,
5433: p_data => l_data,
5434: p_msg_index_out => l_msg_count);
5444: END LOOP;
5445: IF (l_log_statement >= l_log_current_level) THEN
5446: fnd_log.string(l_log_statement,
5447: L_DEBUG_KEY,
5448: 'End calling Fnd_Msg_Pub.GET');
5449: END IF;
5450:
5451: x_error_tbl := l_error_tbl;
5452:
5457: IF Fnd_Api.To_Boolean (p_commit) THEN
5458: COMMIT WORK;
5459: END IF;
5460:
5461: Fnd_Msg_Pub.count_and_get(
5462: p_encoded => Fnd_Api.g_false,
5463: p_count => x_msg_count,
5464: p_data => x_msg_data
5465: );
5473: EXCEPTION
5474: WHEN Fnd_Api.g_exc_error THEN
5475: ROLLBACK TO Validate_Before_Production;
5476: x_return_status := Fnd_Api.g_ret_sts_error;
5477: Fnd_Msg_Pub.count_and_get (
5478: p_encoded => Fnd_Api.g_false,
5479: p_count => x_msg_count,
5480: p_data => x_msg_data
5481: );
5481: );
5482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5483: ROLLBACK TO Validate_Before_Production;
5484: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5485: Fnd_Msg_Pub.count_and_get (
5486: p_encoded => Fnd_Api.g_false,
5487: p_count => x_msg_count,
5488: p_data => x_msg_data
5489: );
5489: );
5490: WHEN OTHERS THEN
5491: ROLLBACK TO Validate_Before_Production;
5492: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5493: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5494: THEN
5495: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5496: END IF;
5497: Fnd_Msg_Pub.count_and_get (
5491: ROLLBACK TO Validate_Before_Production;
5492: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5493: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5494: THEN
5495: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5496: END IF;
5497: Fnd_Msg_Pub.count_and_get (
5498: p_encoded => Fnd_Api.g_false,
5499: p_count => x_msg_count,
5493: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5494: THEN
5495: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5496: END IF;
5497: Fnd_Msg_Pub.count_and_get (
5498: p_encoded => Fnd_Api.g_false,
5499: p_count => x_msg_count,
5500: p_data => x_msg_data
5501: );
6349:
6350: -- Initialize message list if p_init_msg_list is set to TRUE.
6351: IF Fnd_Api.to_boolean(p_init_msg_list)
6352: THEN
6353: Fnd_Msg_Pub.initialize;
6354: END IF;
6355:
6356: -- Initialize API return status to success
6357: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6449: END IF;
6450: IF l_visit_end_time > get_vst_status_and_date_rec.close_date_time THEN
6451: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_TSK_STDT_ADJU');
6452: Fnd_Message.Set_Token('VISIT_END_DATE', l_visit_end_time);
6453: Fnd_Msg_Pub.ADD;
6454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6455: END IF;
6456: END IF;
6457:
6487: END IF;
6488:
6489: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6490: -- Check Error Message stack.
6491: x_msg_count := FND_MSG_PUB.count_msg;
6492: RAISE FND_API.G_EXC_ERROR;
6493: END IF;
6494:
6495: -- Post 11.5.10
6499: CLOSE c_visit;
6500: /*rnahata - B6447196 - end*/
6501:
6502: -- Begin changes by rnahata for Bug 6448678
6503: l_temp_msg_count := Fnd_Msg_Pub.count_msg;
6504:
6505: IF (l_log_statement >= l_log_current_level) THEN
6506: fnd_log.string(l_log_statement,
6507: L_DEBUG_KEY,
6565: -- And if it is operational visit running from concurrent procedure create/update operational visits.
6566: IF (l_auto_visit_flag IS NOT NULL AND l_unit_sch_id IS NOT NULL AND p_module_type = 'CST' ) THEN
6567: IF (l_invalid_mr = 'Y') THEN
6568: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_MR_ASSOC_FAIL');
6569: Fnd_Msg_Pub.ADD;
6570: END IF;
6571: ELSE
6572: -- SATRAJEN :: Bug 12990261 :: Jun 2012
6573: IF (LENGTH(l_task_nos_1) > 0) THEN
6573: IF (LENGTH(l_task_nos_1) > 0) THEN
6574: l_task_nos_1 := SUBSTR (l_task_nos_1,0,(LENGTH(l_task_nos_1)-1));
6575: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_STDT_ROUT_STDT');
6576: Fnd_Message.Set_Token('TASK_NUMBER', l_task_nos_1);
6577: Fnd_Msg_Pub.ADD;
6578: END IF;
6579:
6580: IF (LENGTH(l_task_nos_2) > 0) THEN
6581: l_task_nos_2 := SUBSTR (l_task_nos_2,0,(LENGTH(l_task_nos_2)-1));
6580: IF (LENGTH(l_task_nos_2) > 0) THEN
6581: l_task_nos_2 := SUBSTR (l_task_nos_2,0,(LENGTH(l_task_nos_2)-1));
6582: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_ENDT_ROUT_ENDT');
6583: Fnd_Message.Set_Token('TASK_NUMBER', l_task_nos_2);
6584: Fnd_Msg_Pub.ADD;
6585: END IF;
6586:
6587: IF (LENGTH(l_task_nos_3) > 0) THEN
6588: l_task_nos_3 := SUBSTR (l_task_nos_3,0,(LENGTH(l_task_nos_3)-1));
6587: IF (LENGTH(l_task_nos_3) > 0) THEN
6588: l_task_nos_3 := SUBSTR (l_task_nos_3,0,(LENGTH(l_task_nos_3)-1));
6589: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_NO_ROUTE');
6590: Fnd_Message.Set_Token('TASK_NUMBER', l_task_nos_3);
6591: Fnd_Msg_Pub.ADD;
6592: END IF;
6593:
6594: IF (LENGTH(l_task_nos_4) > 0) THEN
6595: l_task_nos_4 := SUBSTR (l_task_nos_4,0,(LENGTH(l_task_nos_4)-1));
6594: IF (LENGTH(l_task_nos_4) > 0) THEN
6595: l_task_nos_4 := SUBSTR (l_task_nos_4,0,(LENGTH(l_task_nos_4)-1));
6596: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_TS_SD_LT_MR');
6597: Fnd_Message.Set_Token('TASK_NUMBER', l_task_nos_4);
6598: Fnd_Msg_Pub.ADD;
6599: END IF;
6600:
6601: IF (LENGTH(l_task_nos_5) > 0) THEN
6602: l_task_nos_5 := SUBSTR (l_task_nos_5,0,(LENGTH(l_task_nos_5)-1));
6601: IF (LENGTH(l_task_nos_5) > 0) THEN
6602: l_task_nos_5 := SUBSTR (l_task_nos_5,0,(LENGTH(l_task_nos_5)-1));
6603: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_TS_ED_GT_MR');
6604: Fnd_Message.Set_Token('TASK_NUMBER', l_task_nos_5);
6605: Fnd_Msg_Pub.ADD;
6606: END IF;
6607:
6608: IF (LENGTH(l_task_nos_6) > 0) THEN
6609: l_task_nos_6 := SUBSTR (l_task_nos_6,0,(LENGTH(l_task_nos_6)-1));
6608: IF (LENGTH(l_task_nos_6) > 0) THEN
6609: l_task_nos_6 := SUBSTR (l_task_nos_6,0,(LENGTH(l_task_nos_6)-1));
6610: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_MR_ID');
6611: Fnd_Message.Set_Token('TASK_NUMBER', l_task_nos_6);
6612: Fnd_Msg_Pub.ADD;
6613: END IF;
6614:
6615: -- END of Bug 12990261 :: Jun 2012
6616: END IF; -- l_auto_visit_flag is not null check.
6617: -- END of Bug 14336467 :: 12-JUL-2012
6618:
6619: CLOSE c_task;
6620:
6621: l_msg_count := Fnd_Msg_Pub.count_msg;
6622: IF (l_msg_count <> l_temp_msg_count) THEN
6623: IF (l_log_statement >= l_log_current_level) THEN
6624: fnd_log.string(l_log_statement,
6625: L_DEBUG_KEY,
7240: END IF;
7241:
7242: IF l_max_schedule_start_date > c_visit_rec.close_date_time THEN -- Validation Error
7243: Fnd_Message.SET_NAME('AHL','AHL_VWP_NON_PS_PLAN_ED_DATE');
7244: Fnd_Msg_Pub.ADD;
7245: RAISE Fnd_Api.G_EXC_ERROR;
7246: END IF;
7247:
7248: END IF;
7358: x_msg_count => l_msg_count,
7359: x_msg_data => l_msg_data);
7360:
7361: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7362: x_msg_count := FND_MSG_PUB.count_msg;
7363: IF (l_log_statement >= l_log_current_level) THEN
7364: fnd_log.string(l_log_statement,
7365: L_DEBUG_KEY,
7366: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);
7642: IF Fnd_Api.To_Boolean (p_commit) THEN
7643: COMMIT WORK;
7644: END IF;
7645:
7646: Fnd_Msg_Pub.count_and_get(
7647: p_encoded => Fnd_Api.g_false,
7648: p_count => x_msg_count,
7649: p_data => x_msg_data
7650: );
7658: EXCEPTION
7659: WHEN Fnd_Api.g_exc_error THEN
7660: ROLLBACK TO Push_to_Production;
7661: x_return_status := Fnd_Api.g_ret_sts_error;
7662: Fnd_Msg_Pub.count_and_get (
7663: p_encoded => Fnd_Api.g_false,
7664: p_count => x_msg_count,
7665: p_data => x_msg_data
7666: );
7666: );
7667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7668: ROLLBACK TO Push_to_Production;
7669: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7670: Fnd_Msg_Pub.count_and_get (
7671: p_encoded => Fnd_Api.g_false,
7672: p_count => x_msg_count,
7673: p_data => x_msg_data
7674: );
7674: );
7675: WHEN OTHERS THEN
7676: ROLLBACK TO Push_to_Production;
7677: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7678: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7679: THEN
7680: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7681: END IF;
7682: Fnd_Msg_Pub.count_and_get (
7676: ROLLBACK TO Push_to_Production;
7677: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7678: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7679: THEN
7680: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7681: END IF;
7682: Fnd_Msg_Pub.count_and_get (
7683: p_encoded => Fnd_Api.g_false,
7684: p_count => x_msg_count,
7678: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7679: THEN
7680: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7681: END IF;
7682: Fnd_Msg_Pub.count_and_get (
7683: p_encoded => Fnd_Api.g_false,
7684: p_count => x_msg_count,
7685: p_data => x_msg_data
7686: );
7818:
7819:
7820: -- Initialize message list if p_init_msg_list is set to TRUE
7821: IF FND_API.To_Boolean(p_init_msg_list) THEN
7822: FND_MSG_PUB.Initialize;
7823: END IF;
7824:
7825: -- Initialize message list if p_init_msg_list is set to TRUE
7826: IF FND_API.To_Boolean(p_init_msg_list) THEN
7823: END IF;
7824:
7825: -- Initialize message list if p_init_msg_list is set to TRUE
7826: IF FND_API.To_Boolean(p_init_msg_list) THEN
7827: FND_MSG_PUB.Initialize;
7828: END IF;
7829: -- Initialize API return status to success
7830: x_return_status := FND_API.G_RET_STS_SUCCESS;
7831:
7844:
7845: -- Check for Required Parameters
7846: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
7847: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CST_INPUT_MISS');
7848: FND_MSG_PUB.ADD;
7849: IF (l_log_unexpected >= l_log_current_level)THEN
7850: fnd_log.string
7851: (
7852: l_log_unexpected,
7865: IF c_validate_ue_status%FOUND THEN
7866: CLOSE c_validate_ue_status;
7867: Fnd_Message.SET_NAME('AHL','AHL_VWP_UE_EXP_STATUS');
7868: Fnd_Message.Set_Token('MR_TITLE',l_mr_title);
7869: Fnd_Msg_Pub.ADD;
7870: RAISE Fnd_Api.G_EXC_ERROR;
7871: END IF;
7872: CLOSE c_validate_ue_status;
7873:
7878: OPEN c_conc_req_phase(p_visit_id);
7879: FETCH c_conc_req_phase INTO l_dummy_val;
7880: IF(c_conc_req_phase%FOUND) THEN
7881: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CP_P2P_IN_PROGS');
7882: FND_MSG_PUB.ADD;
7883: RAISE FND_API.G_EXC_ERROR;
7884: END IF;
7885: CLOSE c_conc_req_phase;
7886: --salogan::Modified the cursor fetch to handle both request id from P2P and Cost Estimation CP ER 9299910::01-JUN-2009::END
7910: stage_details_rec.stage_name);
7911: END IF;
7912: FND_MESSAGE.SET_NAME('AHL', 'AHL_VWP_NO_STAGE_TYPE');
7913: FND_MESSAGE.SET_TOKEN('STAGE_NAME',stage_details_rec.stage_name);
7914: FND_MSG_PUB.ADD;
7915:
7916: END LOOP;
7917:
7918: IF(l_invalid_stage=TRUE) THEN
7951: l_return_status := l_validate_error;
7952: x_return_status := l_validate_error;
7953: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7954: -- Check Error Message stack.
7955: x_msg_count := FND_MSG_PUB.count_msg;
7956:
7957: IF (l_log_statement >= l_log_current_level)THEN
7958: fnd_log.string ( l_log_statement, L_DEBUG_KEY,'Errors from Validate Before Production - '||x_msg_count);
7959: END IF;
7984: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After Calling aggregate_material_requirements - l_return_status = '||l_return_status);
7985: END IF;
7986:
7987: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7988: x_msg_count := FND_MSG_PUB.count_msg;
7989: IF (l_log_statement >= l_log_current_level)THEN
7990: fnd_log.string( l_log_statement,L_DEBUG_KEY,'Errors from aggregate_material_requirements: ' || x_msg_count);
7991: END IF;
7992: -- TCHIMIRA :: Bug 8594339 :: 19-NOV-2009
8022: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
8023: l_return_status);
8024: END IF;
8025:
8026: l_msg_count := Fnd_Msg_Pub.count_msg;
8027: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
8028: x_msg_count := l_msg_count;
8029: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
8030: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
8054: END IF;
8055:
8056: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8057: -- Check Error Message stack.
8058: x_msg_count := FND_MSG_PUB.count_msg;
8059: IF (l_log_statement >= l_log_current_level)THEN
8060: fnd_log.string( l_log_statement,L_DEBUG_KEY, 'Errors from Push to Production: ' || x_msg_count );
8061: END IF;
8062: -- TCHIMIRA :: Bug 8594339 :: 19-NOV-2009
8086: END IF;
8087:
8088: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8089: -- Check Error Message stack.
8090: x_msg_count := FND_MSG_PUB.count_msg;
8091: IF (l_log_statement >= l_log_current_level)THEN
8092: fnd_log.string( l_log_statement,L_DEBUG_KEY,'Errors from delete_simul_visits: '||x_msg_count);
8093: END IF;
8094: -- TCHIMIRA :: Bug 8594339 :: 19-NOV-2009
8113: EXCEPTION
8114: WHEN FND_API.G_EXC_ERROR THEN
8115: x_return_status := FND_API.G_RET_STS_ERROR;
8116: ROLLBACK TO Release_Visit_Pvt;
8117: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8118: p_data => x_msg_data,
8119: p_encoded => fnd_api.g_false);
8120:
8121:
8121:
8122: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8124: ROLLBACK TO Release_Visit_Pvt;
8125: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8126: p_data => x_msg_data,
8127: p_encoded => fnd_api.g_false);
8128:
8129:
8129:
8130: WHEN OTHERS THEN
8131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8132: ROLLBACK TO Release_Visit_Pvt;
8133: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8134: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
8135: p_procedure_name => 'Release_Visit',
8136: p_error_text => SUBSTR(SQLERRM,1,500));
8137: END IF;
8130: WHEN OTHERS THEN
8131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8132: ROLLBACK TO Release_Visit_Pvt;
8133: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8134: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
8135: p_procedure_name => 'Release_Visit',
8136: p_error_text => SUBSTR(SQLERRM,1,500));
8137: END IF;
8138: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8134: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
8135: p_procedure_name => 'Release_Visit',
8136: p_error_text => SUBSTR(SQLERRM,1,500));
8137: END IF;
8138: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8139: p_data => x_msg_data,
8140: p_encoded => fnd_api.g_false);
8141:
8142: END Release_Visit;
8224: SAVEPOINT Release_Tasks_Pvt;
8225:
8226: -- Initialize message list if p_init_msg_list is set to TRUE
8227: IF FND_API.To_Boolean(p_init_msg_list) THEN
8228: FND_MSG_PUB.Initialize;
8229: END IF;
8230:
8231: -- Initialize API return status to success
8232: x_return_status := FND_API.G_RET_STS_SUCCESS;
8247: CLOSE c_validate_visit;
8248:
8249: --Validate visit
8250: IF (nvl(l_validate_visit,0) = 0) THEN
8251: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8252: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_INVALID_VST');
8253: FND_MESSAGE.SET_TOKEN('VISIT_ID', p_visit_id);
8254: FND_MSG_PUB.ADD;
8255: END IF;
8250: IF (nvl(l_validate_visit,0) = 0) THEN
8251: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8252: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_INVALID_VST');
8253: FND_MESSAGE.SET_TOKEN('VISIT_ID', p_visit_id);
8254: FND_MSG_PUB.ADD;
8255: END IF;
8256: RAISE FND_API.G_EXC_ERROR;
8257: END IF;
8258:
8259: --Check if the visit is in planning or partially released status
8260: OPEN c_visit_info(p_visit_id);
8261: FETCH c_visit_info INTO c_visit_info_rec;
8262: IF c_visit_info%NOTFOUND THEN
8263: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8264: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_VST_STATUS_INVALID');
8265: FND_MSG_PUB.ADD;
8266: END IF;
8267: CLOSE c_visit_info;
8261: FETCH c_visit_info INTO c_visit_info_rec;
8262: IF c_visit_info%NOTFOUND THEN
8263: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8264: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_VST_STATUS_INVALID');
8265: FND_MSG_PUB.ADD;
8266: END IF;
8267: CLOSE c_visit_info;
8268: RAISE FND_API.G_EXC_ERROR;
8269: END IF;
8269: END IF;
8270: CLOSE c_visit_info;
8271: --If visit_id is null
8272: ELSE
8273: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8274: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_VISIT_NULL');
8275: FND_MSG_PUB.ADD;
8276: END IF;
8277: RAISE FND_API.G_EXC_ERROR;
8271: --If visit_id is null
8272: ELSE
8273: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8274: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_VISIT_NULL');
8275: FND_MSG_PUB.ADD;
8276: END IF;
8277: RAISE FND_API.G_EXC_ERROR;
8278: END IF;
8279:
8278: END IF;
8279:
8280: --No tasks selected
8281: IF (p_tasks_tbl.COUNT = 0) THEN
8282: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8283: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_NO_TASK_SEL');
8284: FND_MSG_PUB.ADD;
8285: END IF;
8286: RAISE FND_API.G_EXC_ERROR;
8280: --No tasks selected
8281: IF (p_tasks_tbl.COUNT = 0) THEN
8282: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8283: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_NO_TASK_SEL');
8284: FND_MSG_PUB.ADD;
8285: END IF;
8286: RAISE FND_API.G_EXC_ERROR;
8287: END IF;
8288:
8313: END IF;
8314:
8315: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS OR l_error_tbl_type.COUNT > 0) THEN
8316: -- Check Error Message stack.
8317: x_msg_count := FND_MSG_PUB.count_msg;
8318: IF (l_log_statement >= l_log_current_level) THEN
8319: fnd_log.string(l_log_statement,
8320: L_DEBUG_KEY,
8321: 'Errors from VALIDATE_BEFORE_PRODUCTION. Message count: ' || x_msg_count);
8350: END IF;
8351:
8352: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8353: -- Check Error Message stack.
8354: x_msg_count := FND_MSG_PUB.count_msg;
8355:
8356: IF (l_log_statement >= l_log_current_level) THEN
8357: fnd_log.string(l_log_statement,
8358: L_DEBUG_KEY,
8440: l_tasks_tbl(i).visit_task_id || '. Return Status = '|| l_return_status);
8441: END IF;
8442:
8443: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8444: x_msg_count := FND_MSG_PUB.count_msg;
8445: IF (l_log_statement >= l_log_current_level) THEN
8446: fnd_log.string(l_log_statement,
8447: L_DEBUG_KEY,
8448: 'Errors from AGGREGATE_TASK_MATERIAL_REQRS. Message count: ' || x_msg_count);
8489: l_tasks_tbl(i).visit_task_id ||'. Return Status = '|| l_return_status);
8490: END IF;
8491:
8492: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8493: x_msg_count := FND_MSG_PUB.count_msg;
8494: IF (l_log_statement >= l_log_current_level) THEN
8495: fnd_log.string(l_log_statement,
8496: L_DEBUG_KEY,
8497: 'Errors from ADJUST_TASK_TIMES. Message count: ' || x_msg_count);
8504: END IF;
8505: END LOOP;
8506: END IF; --partially released
8507:
8508: l_temp_msg_count := Fnd_Msg_Pub.count_msg;
8509:
8510: --Validate the MR/Route dates for all the tasks
8511: FOR i IN l_tasks_tbl.FIRST..l_tasks_tbl.LAST
8512: LOOP
8536: END IF;
8537: END IF;
8538: END LOOP;
8539:
8540: l_msg_count := Fnd_Msg_Pub.count_msg;
8541: IF (l_msg_count <> l_temp_msg_count) THEN
8542: IF (l_log_statement >= l_log_current_level) THEN
8543: fnd_log.string(l_log_statement,L_DEBUG_KEY,
8544: 'Errors from VALIDATE_MR_ROUTE_DATE. Message count: ' || l_msg_count);
8572: 'After calling PUSH_TASKS_TO_PRODUCTION. Return Status = '|| l_return_status);
8573: END IF;
8574:
8575: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8576: x_msg_count := FND_MSG_PUB.count_msg;
8577: IF (l_log_statement >= l_log_current_level) THEN
8578: fnd_log.string(l_log_statement,
8579: L_DEBUG_KEY,
8580: 'Errors from PUSH_TASKS_TO_PRODUCTION. Message count: ' || x_msg_count);
8611: 'After calling DELETE_SIMUL_VISITS for visit id ' ||p_visit_id||'. Return Status = '|| l_return_status);
8612: END IF;
8613:
8614: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8615: x_msg_count := FND_MSG_PUB.count_msg;
8616: IF (l_log_statement >= l_log_current_level) THEN
8617: fnd_log.string(l_log_statement,
8618: L_DEBUG_KEY,
8619: 'Errors from DELETE_SIMUL_TASKS. Message count: ' || x_msg_count);
8629: IF FND_API.TO_BOOLEAN(p_commit) THEN
8630: COMMIT WORK;
8631: END IF;
8632:
8633: Fnd_Msg_Pub.count_and_get(
8634: p_encoded => Fnd_Api.g_false,
8635: p_count => x_msg_count,
8636: p_data => x_msg_data
8637: );
8645: EXCEPTION
8646: WHEN FND_API.G_EXC_ERROR THEN
8647: x_return_status := FND_API.G_RET_STS_ERROR;
8648: ROLLBACK TO Release_Tasks_Pvt;
8649: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8650: p_data => x_msg_data,
8651: p_encoded => fnd_api.g_false);
8652:
8653: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8652:
8653: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8654: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8655: ROLLBACK TO Release_Tasks_Pvt;
8656: Fnd_Msg_Pub.count_and_get (
8657: p_encoded => Fnd_Api.g_false,
8658: p_count => x_msg_count,
8659: p_data => x_msg_data);
8660:
8660:
8661: WHEN OTHERS THEN
8662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8663: ROLLBACK TO Release_Tasks_Pvt;
8664: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8665: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
8666: p_procedure_name => 'Release_Tasks',
8667: p_error_text => SUBSTR(SQLERRM,1,500));
8668: END IF;
8661: WHEN OTHERS THEN
8662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8663: ROLLBACK TO Release_Tasks_Pvt;
8664: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8665: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
8666: p_procedure_name => 'Release_Tasks',
8667: p_error_text => SUBSTR(SQLERRM,1,500));
8668: END IF;
8669: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8665: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
8666: p_procedure_name => 'Release_Tasks',
8667: p_error_text => SUBSTR(SQLERRM,1,500));
8668: END IF;
8669: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8670: p_data => x_msg_data,
8671: p_encoded => fnd_api.g_false);
8672:
8673: END Release_Tasks;
8840: --chk if the visit is released/partially released.
8841: OPEN c_fet_master_wo (p_visit_id);
8842: FETCH c_fet_master_wo INTO c_mst_wo_visit_rec;
8843: IF c_fet_master_wo%NOTFOUND THEN
8844: x_msg_count := FND_MSG_PUB.count_msg;
8845: IF (l_log_statement >= l_log_current_level) THEN
8846: fnd_log.string(l_log_statement,
8847: L_DEBUG_KEY,
8848: 'Visit not released: ' || c_tsk_dtls_rec.visit_task_number);
8854: LOOP
8855: OPEN c_task_dtls(p_tasks_tbl(i).visit_task_id);
8856: FETCH c_task_dtls INTO c_tsk_dtls_rec;
8857: IF c_task_dtls%NOTFOUND THEN
8858: x_msg_count := FND_MSG_PUB.count_msg;
8859: IF (l_log_statement >= l_log_current_level) THEN
8860: fnd_log.string(l_log_statement,
8861: L_DEBUG_KEY,
8862: 'Task is either not in planning status or Invalid - ' ||
8864: END IF;
8865: CLOSE c_task_dtls;
8866: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_INVALID_TSK_ID');
8867: Fnd_Message.SET_TOKEN('TASK_ID', p_tasks_tbl(i).visit_task_id);
8868: FND_MSG_PUB.ADD;
8869: RAISE FND_API.G_EXC_ERROR;
8870: END IF;
8871: CLOSE c_task_dtls;
8872:
8885: c_tsk_dtls_rec.visit_task_id);
8886: END IF;
8887: FND_MESSAGE.SET_NAME('AHL', 'AHL_VWP_NO_STAGE_TYPE');
8888: FND_MESSAGE.SET_TOKEN('STAGE_NAME',l_task_stage_details.stage_name);
8889: FND_MSG_PUB.ADD;
8890: RAISE FND_API.G_EXC_ERROR;
8891: END IF;
8892: --CHANGES by jrotich bug #13028686 begin end;
8893:
8896: /* if the visit is partially released, then the planned end time for the wo should not be
8897: exceed the scheduled end time */
8898: IF (c_mst_wo_visit_rec.scheduled_completion_date IS NOT NULL) AND
8899: (c_tsk_dtls_rec.end_date_time > c_mst_wo_visit_rec.scheduled_completion_date) THEN
8900: x_msg_count := FND_MSG_PUB.count_msg;
8901: IF (l_log_statement >= l_log_current_level) THEN
8902: fnd_log.string(l_log_statement,
8903: L_DEBUG_KEY,
8904: 'Planned end time of the task is exceeding the scheduled completion time of the master WO: ' ||
8904: 'Planned end time of the task is exceeding the scheduled completion time of the master WO: ' ||
8905: c_tsk_dtls_rec.visit_task_number);
8906: END IF;
8907: FND_MESSAGE.SET_NAME(G_PM_PRODUCT_CODE,'AHL_VWP_PET_EXCD_SCT');
8908: FND_MSG_PUB.ADD;
8909: RAISE FND_API.G_EXC_ERROR;
8910: END IF;
8911:
8912: parent_task_found_flag := FALSE;
8972: END IF;
8973: END LOOP;
8974:
8975: IF NOT(parent_task_found_flag) THEN --if summary task is not selected then throw an error
8976: x_msg_count := FND_MSG_PUB.count_msg;
8977: IF (l_log_statement >= l_log_current_level) THEN
8978: fnd_log.string(l_log_statement,
8979: L_DEBUG_KEY,
8980: 'Select the summary task for the task: ' ||
8981: c_tsk_dtls_rec.visit_task_number);
8982: END IF;
8983: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_SEL_SUM_TSK');
8984: Fnd_Message.SET_TOKEN('TASK_NUMBER', c_tsk_dtls_rec.visit_task_number);
8985: FND_MSG_PUB.ADD;
8986: RAISE FND_API.G_EXC_ERROR;
8987: END IF;
8988:
8989: lp_originating_task_id := c_summary_tsk_rec.originating_task_id;
9039: END LOOP;
9040: IF l_is_all_tasks_rel = 'N' AND p_tasks_tbl(i).unit_effectivity_id IS NOT NULL THEN
9041: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CHILD_TASK_SEL');
9042: Fnd_Message.SET_TOKEN('TASK_NUMBER', c_par_rel_sum_tsk_rec.visit_task_number);
9043: FND_MSG_PUB.ADD;
9044: RAISE FND_API.G_EXC_ERROR;
9045: ELSE
9046: l_is_all_tasks_rel := 'N';
9047: END IF;
9082: OPEN get_parent_task_dependencies (x_tasks_tbl(i).visit_task_id);
9083: LOOP
9084: FETCH get_parent_task_dependencies INTO c_par_tech_dep_rec;
9085: IF get_parent_task_dependencies%NOTFOUND THEN
9086: x_msg_count := FND_MSG_PUB.count_msg;
9087: IF (l_log_statement >= l_log_current_level) THEN
9088: fnd_log.string(l_log_statement,
9089: L_DEBUG_KEY,
9090: 'Parent Technical task dependency not found for the task - ' ||
9100: END IF;
9101: END LOOP;
9102:
9103: IF NOT(parent_task) THEN --parent task not selected
9104: x_msg_count := FND_MSG_PUB.count_msg;
9105: IF (l_log_statement >= l_log_current_level) THEN
9106: fnd_log.string(l_log_statement,
9107: L_DEBUG_KEY,
9108: 'Parent tasks on which the task ' ||
9112: END IF;
9113: CLOSE get_parent_task_dependencies;
9114: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_SEL_TECH_DEP');
9115: Fnd_Message.SET_TOKEN('TASK_NUMBER', x_tasks_tbl(i).visit_task_number);
9116: FND_MSG_PUB.ADD;
9117: RAISE FND_API.G_EXC_ERROR;
9118: END IF; --parent task not selected
9119: END IF;
9120: END LOOP; --loop through the parent dependent records
9123: OPEN get_child_task_dependencies (x_tasks_tbl(i).visit_task_id);
9124: LOOP --loop through the child dependent records
9125: FETCH get_child_task_dependencies INTO c_ch_tech_dep_rec;
9126: IF get_child_task_dependencies%NOTFOUND THEN
9127: x_msg_count := FND_MSG_PUB.count_msg;
9128: IF (l_log_statement >= l_log_current_level) THEN
9129: fnd_log.string(l_log_statement,
9130: L_DEBUG_KEY,
9131: 'Child Technical task dependency not found for the task - ' || x_tasks_tbl(i).visit_task_number);
9140: END IF;
9141: END LOOP;
9142:
9143: IF NOT(child_task) THEN
9144: x_msg_count := FND_MSG_PUB.count_msg;
9145: IF (l_log_statement >= l_log_current_level) THEN
9146: fnd_log.string(l_log_statement,
9147: L_DEBUG_KEY,
9148: 'Child tasks on which the task ' || x_tasks_tbl(i).visit_task_number || ' is technically dependent has not been selected.'||
9150: END IF;
9151: CLOSE get_child_task_dependencies;
9152: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_SEL_TECH_DEP');
9153: Fnd_Message.SET_TOKEN('TASK_NUMBER', x_tasks_tbl(i).visit_task_number);
9154: FND_MSG_PUB.ADD;
9155: RAISE FND_API.G_EXC_ERROR;
9156: END IF; --curr task not selected
9157: END IF;
9158: END LOOP; --loop through the child dependent records
9169: EXCEPTION
9170: WHEN FND_API.G_EXC_ERROR THEN
9171: x_return_status := FND_API.G_RET_STS_ERROR;
9172: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
9173: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
9174: p_data => x_msg_data,
9175: p_encoded => fnd_api.g_false);
9176:
9177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9176:
9177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9178: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9179: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
9180: Fnd_Msg_Pub.count_and_get (
9181: p_encoded => Fnd_Api.g_false,
9182: p_count => x_msg_count,
9183: p_data => x_msg_data);
9184:
9184:
9185: WHEN OTHERS THEN
9186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9187: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
9188: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9189: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
9190: p_procedure_name => 'Validate_tasks_bef_production',
9191: p_error_text => SUBSTR(SQLERRM,1,500));
9192: END IF;
9185: WHEN OTHERS THEN
9186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9187: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
9188: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9189: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
9190: p_procedure_name => 'Validate_tasks_bef_production',
9191: p_error_text => SUBSTR(SQLERRM,1,500));
9192: END IF;
9193: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
9189: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
9190: p_procedure_name => 'Validate_tasks_bef_production',
9191: p_error_text => SUBSTR(SQLERRM,1,500));
9192: END IF;
9193: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
9194: p_data => x_msg_data,
9195: p_encoded => fnd_api.g_false);
9196:
9197: END Validate_tasks_bef_production;
9471: SAVEPOINT Push_tasks_to_prodn_pvt;
9472:
9473: -- Initialize message list if p_init_msg_list is set to TRUE
9474: IF FND_API.To_Boolean(p_init_msg_list) THEN
9475: FND_MSG_PUB.Initialize;
9476: END IF;
9477:
9478: -- Initialize API return status to success
9479: x_return_status := FND_API.G_RET_STS_SUCCESS;
9509: 'After calling Integrate_to_Projects. l_return_status = ' || l_return_status);
9510: END IF;
9511:
9512: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9513: x_msg_count := FND_MSG_PUB.count_msg;
9514: IF (l_log_statement >= l_log_current_level) THEN
9515: fnd_log.string(l_log_statement,
9516: L_DEBUG_KEY,
9517: 'Errors from Integrate_to_Projects. Message count: ' || x_msg_count);
9974: END IF;
9975:
9976: IF l_max_schedule_start_date > c_visit_dtl_rec.close_date_time THEN -- Validation Error
9977: Fnd_Message.SET_NAME('AHL','AHL_VWP_NON_PS_PLAN_ED_DATE');
9978: Fnd_Msg_Pub.ADD;
9979: RAISE Fnd_Api.G_EXC_ERROR;
9980: END IF;
9981:
9982: END IF;
10010: p_visit_id||', l_return_status: '|| l_return_status);
10011: END IF;
10012:
10013: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10014: x_msg_count := FND_MSG_PUB.count_msg;
10015: IF (l_log_statement >= l_log_current_level) THEN
10016: fnd_log.string(l_log_statement,
10017: L_DEBUG_KEY,
10018: 'Errors from PROCESS_JOBS. Message count: ' || x_msg_count);
10048: x_msg_count => l_msg_count,
10049: x_msg_data => l_msg_data);
10050:
10051: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10052: x_msg_count := FND_MSG_PUB.count_msg;
10053: IF (l_log_statement >= l_log_current_level) THEN
10054: fnd_log.string(l_log_statement,
10055: L_DEBUG_KEY,
10056: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);
10238: EXCEPTION
10239: WHEN FND_API.G_EXC_ERROR THEN
10240: x_return_status := FND_API.G_RET_STS_ERROR;
10241: ROLLBACK TO Push_tasks_to_prodn_pvt;
10242: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
10243: p_data => x_msg_data,
10244: p_encoded => fnd_api.g_false);
10245:
10246: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10245:
10246: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10247: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10248: ROLLBACK TO Push_tasks_to_prodn_pvt;
10249: Fnd_Msg_Pub.count_and_get (
10250: p_encoded => Fnd_Api.g_false,
10251: p_count => x_msg_count,
10252: p_data => x_msg_data);
10253:
10253:
10254: WHEN OTHERS THEN
10255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10256: ROLLBACK TO Push_tasks_to_prodn_pvt;
10257: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10258: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
10259: p_procedure_name => 'Push_tasks_to_production',
10260: p_error_text => SUBSTR(SQLERRM,1,500));
10261: END IF;
10254: WHEN OTHERS THEN
10255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10256: ROLLBACK TO Push_tasks_to_prodn_pvt;
10257: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10258: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
10259: p_procedure_name => 'Push_tasks_to_production',
10260: p_error_text => SUBSTR(SQLERRM,1,500));
10261: END IF;
10262: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
10258: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
10259: p_procedure_name => 'Push_tasks_to_production',
10260: p_error_text => SUBSTR(SQLERRM,1,500));
10261: END IF;
10262: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
10263: p_data => x_msg_data,
10264: p_encoded => fnd_api.g_false);
10265:
10266: END Push_tasks_to_production;
10309: l_unit_name := ahl_util_uc_pkg.get_unit_name(item_instance_id);
10310: Fnd_Message.SET_NAME('AHL','AHL_VWP_VLD_HDR_UNIT_QRNT');
10311: -- The Unit for this Visit (UNIT_NAME-1) is quarantined.
10312: Fnd_Message.Set_Token('UNIT_NAME',l_unit_name);
10313: Fnd_Msg_Pub.ADD;
10314:
10315: IF (l_log_statement >= l_log_current_level)THEN
10316: fnd_log.string (l_log_statement,L_DEBUG_KEY,'Unit : '||l_unit_name || ' is quarantined, Error message added');
10317: END IF;
10326: IF l_quarantined = FND_API.G_TRUE THEN
10327: Fnd_Message.SET_NAME('AHL','AHL_VWP_VLD_TSK_UNIT_QRNT');
10328: -- The Unit for the Task (UNIT_NAME-1) is quarantined.
10329: Fnd_Message.Set_Token('TASK_NUMBER',l_task_number);
10330: Fnd_Msg_Pub.ADD;
10331: IF (l_log_statement >= l_log_current_level)THEN
10332: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Unit for this task: '||l_task_number||' is quarantined');
10333: END IF;
10334: END IF; -- l_quarantined not true
10509: SAVEPOINT Release_MR;
10510:
10511: -- Initialize message list if p_init_msg_list is set to TRUE
10512: IF FND_API.To_Boolean( p_init_msg_list) THEN
10513: FND_MSG_PUB.Initialize;
10514: END IF;
10515:
10516: -- Initialize API return status to success
10517: x_return_status := FND_API.G_RET_STS_SUCCESS;
10531:
10532: -- Check for Required Parameters
10533: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
10534: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CST_INPUT_MISS');
10535: FND_MSG_PUB.ADD;
10536: IF (l_log_unexpected >= l_log_current_level)THEN
10537: fnd_log.string(l_log_unexpected,L_DEBUG_KEY,'Visit id is mandatory but found null in input');
10538: END IF;
10539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10540: END IF;
10541:
10542: IF(p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM) THEN
10543: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_UE_INPUT_MISS');
10544: FND_MSG_PUB.ADD;
10545: IF (l_log_unexpected >= l_log_current_level)THEN
10546: fnd_log.string(l_log_unexpected,L_DEBUG_KEY,'Unit Effectivity id is mandatory but found null in input ');
10547: END IF;
10548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10564: stage_details_rec.stage_name);
10565: END IF;
10566: FND_MESSAGE.SET_NAME('AHL', 'AHL_VWP_NO_STAGE_TYPE');
10567: FND_MESSAGE.SET_TOKEN('STAGE_NAME',stage_details_rec.stage_name);
10568: FND_MSG_PUB.ADD;
10569:
10570: END LOOP;
10571:
10572: IF(l_invalid_stage=TRUE) THEN
10597: END IF;
10598:
10599: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10600: -- Check Error Message stack.
10601: x_msg_count := FND_MSG_PUB.count_msg;
10602: IF (l_log_statement >= l_log_current_level)THEN
10603: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Validate Before Production' || x_msg_count);
10604: END IF;
10605: RAISE Fnd_Api.g_exc_error;
10640: l_visit_end_time := AHL_VWP_TIMES_PVT.get_visit_end_time(c_visit_rec.visit_id);
10641: IF l_visit_end_time > c_visit_rec.close_date_time THEN
10642: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_TSK_STDT_ADJU');
10643: Fnd_Message.Set_Token('VISIT_END_DATE', l_visit_end_time);
10644: Fnd_Msg_Pub.ADD;
10645: x_return_status := l_validate_error;
10646: END IF;
10647: END IF;
10648: END IF;
10665: x_return_status := l_validate_error;
10666: -- Error Message
10667: Fnd_Message.SET_NAME('AHL','AHL_VWP_DATE_EXCD_WO_DATE');
10668: Fnd_Message.Set_Token('VISIT_END_DATE', l_visit_end_time);
10669: FND_MSG_PUB.ADD;
10670: END IF;
10671: END IF;
10672:
10673: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10674: -- Per MEL/CDL requirement, if tasks are sucessfully created but fail to be pushed
10675: -- to production, then they will stay in 'PLANNING' status.
10676: IF p_module_type <>'PROD' THEN
10677: -- Check Error Message stack.
10678: x_msg_count := FND_MSG_PUB.count_msg;
10679: IF (l_log_statement >= l_log_current_level)THEN
10680: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Validate Before Production'|| x_msg_count);
10681: END IF;
10682: RAISE Fnd_Api.g_exc_error;
10706: END IF;
10707:
10708: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10709: -- Check Error Message stack.
10710: x_msg_count := FND_MSG_PUB.count_msg;
10711: IF (l_log_statement >= l_log_current_level)THEN
10712: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Push to Production: ' || x_msg_count);
10713: END IF;
10714: RAISE Fnd_Api.g_exc_error;
10724: IF FND_API.TO_BOOLEAN(p_commit) THEN
10725: COMMIT WORK;
10726: END IF;
10727:
10728: Fnd_Msg_Pub.count_and_get(
10729: p_encoded => Fnd_Api.g_false,
10730: p_count => x_msg_count,
10731: p_data => x_msg_data);
10732:
10737: EXCEPTION
10738: WHEN FND_API.G_EXC_ERROR THEN
10739: x_return_status := FND_API.G_RET_STS_ERROR;
10740: ROLLBACK TO Release_MR;
10741: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
10742: p_data => x_msg_data,
10743: p_encoded => fnd_api.g_false);
10744:
10745:
10745:
10746: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10748: ROLLBACK TO Release_MR;
10749: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
10750: p_data => x_msg_data,
10751: p_encoded => fnd_api.g_false);
10752:
10753:
10753:
10754: WHEN OTHERS THEN
10755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10756: ROLLBACK TO Release_MR;
10757: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10758: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
10759: p_procedure_name => 'Release_MR',
10760: p_error_text => SUBSTR(SQLERRM,1,500));
10761: END IF;
10754: WHEN OTHERS THEN
10755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10756: ROLLBACK TO Release_MR;
10757: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10758: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
10759: p_procedure_name => 'Release_MR',
10760: p_error_text => SUBSTR(SQLERRM,1,500));
10761: END IF;
10762: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
10758: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
10759: p_procedure_name => 'Release_MR',
10760: p_error_text => SUBSTR(SQLERRM,1,500));
10761: END IF;
10762: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
10763: p_data => x_msg_data,
10764: p_encoded => fnd_api.g_false);
10765:
10766: END Release_MR;
11296: END IF;
11297:
11298: -- Initialize message list if p_init_msg_list is set to TRUE.
11299: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
11300: Fnd_Msg_Pub.initialize;
11301: END IF;
11302:
11303: -- Initialize API return status to success
11304: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
11316:
11317: -- SKPATHAK :: Bug 9827320 :: 13-JUL-2010 :: Reverted back the changes done for bug 9827320
11318: /*
11319: -- SKPATHAK :: Bug 9445455 :: 08-MAR-2010 :: START
11320: l_temp_msg_count := Fnd_Msg_Pub.count_msg;
11321:
11322: IF (l_log_statement >= l_log_current_level) THEN
11323: fnd_log.string(l_log_statement,
11324: L_DEBUG_KEY,
11346:
11347: END LOOP;
11348: CLOSE c_task;
11349:
11350: l_msg_count := Fnd_Msg_Pub.count_msg;
11351: IF (l_msg_count <> l_temp_msg_count) THEN
11352: IF (l_log_statement >= l_log_current_level) THEN
11353: fnd_log.string(l_log_statement,
11354: L_DEBUG_KEY,
11381: END IF;
11382:
11383: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11384: -- Check Error Message stack.
11385: x_msg_count := FND_MSG_PUB.count_msg;
11386: RAISE Fnd_Api.g_exc_error;
11387: END IF;
11388:
11389: OPEN c_visit (p_visit_id);
11727: IF Fnd_Api.To_Boolean (p_commit) THEN
11728: COMMIT WORK;
11729: END IF;
11730:
11731: Fnd_Msg_Pub.count_and_get(
11732: p_encoded => Fnd_Api.g_false,
11733: p_count => x_msg_count,
11734: p_data => x_msg_data
11735: );
11741: EXCEPTION
11742: WHEN Fnd_Api.g_exc_error THEN
11743: ROLLBACK TO Push_MR_to_Production;
11744: x_return_status := Fnd_Api.g_ret_sts_error;
11745: Fnd_Msg_Pub.count_and_get (
11746: p_encoded => Fnd_Api.g_false,
11747: p_count => x_msg_count,
11748: p_data => x_msg_data
11749: );
11749: );
11750: WHEN Fnd_Api.g_exc_unexpected_error THEN
11751: ROLLBACK TO Push_MR_to_Production;
11752: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
11753: Fnd_Msg_Pub.count_and_get (
11754: p_encoded => Fnd_Api.g_false,
11755: p_count => x_msg_count,
11756: p_data => x_msg_data
11757: );
11757: );
11758: WHEN OTHERS THEN
11759: ROLLBACK TO Push_MR_to_Production;
11760: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
11761: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
11762: THEN
11763: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
11764: END IF;
11765: Fnd_Msg_Pub.count_and_get (
11759: ROLLBACK TO Push_MR_to_Production;
11760: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
11761: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
11762: THEN
11763: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
11764: END IF;
11765: Fnd_Msg_Pub.count_and_get (
11766: p_encoded => Fnd_Api.g_false,
11767: p_count => x_msg_count,
11761: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
11762: THEN
11763: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
11764: END IF;
11765: Fnd_Msg_Pub.count_and_get (
11766: p_encoded => Fnd_Api.g_false,
11767: p_count => x_msg_count,
11768: p_data => x_msg_data
11769: );
11901: END IF;
11902:
11903: -- Initialize message list if p_init_msg_list is set to TRUE.
11904: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
11905: Fnd_Msg_Pub.initialize;
11906: END IF;
11907:
11908: -- Initialize API return status to success
11909: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
12031: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'After calling Add_Task_To_Project_Int: - l_return_status: ' || l_return_status);
12032: END IF;
12033:
12034: IF (l_return_status <> 'S') THEN
12035: IF (fnd_msg_pub.count_msg > 0 ) THEN
12036: FOR i IN 1..fnd_msg_pub.count_msg
12037: LOOP
12038: fnd_msg_pub.get(p_msg_index => i,
12039: p_encoded => 'F',
12032: END IF;
12033:
12034: IF (l_return_status <> 'S') THEN
12035: IF (fnd_msg_pub.count_msg > 0 ) THEN
12036: FOR i IN 1..fnd_msg_pub.count_msg
12037: LOOP
12038: fnd_msg_pub.get(p_msg_index => i,
12039: p_encoded => 'F',
12040: p_data => l_msg_data,
12034: IF (l_return_status <> 'S') THEN
12035: IF (fnd_msg_pub.count_msg > 0 ) THEN
12036: FOR i IN 1..fnd_msg_pub.count_msg
12037: LOOP
12038: fnd_msg_pub.get(p_msg_index => i,
12039: p_encoded => 'F',
12040: p_data => l_msg_data,
12041: p_msg_index_out => l_msg_index_out);
12042: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
12109: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
12110: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'After calling Add_Task_To_Project_Int: - l_return_status: ' || l_return_status);
12111: END IF;
12112: IF (l_return_status <> 'S') THEN
12113: IF (fnd_msg_pub.count_msg > 0 ) THEN
12114: FOR i IN 1..fnd_msg_pub.count_msg
12115: LOOP
12116: fnd_msg_pub.get(p_msg_index => i,
12117: p_encoded => 'F',
12110: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'After calling Add_Task_To_Project_Int: - l_return_status: ' || l_return_status);
12111: END IF;
12112: IF (l_return_status <> 'S') THEN
12113: IF (fnd_msg_pub.count_msg > 0 ) THEN
12114: FOR i IN 1..fnd_msg_pub.count_msg
12115: LOOP
12116: fnd_msg_pub.get(p_msg_index => i,
12117: p_encoded => 'F',
12118: p_data => l_msg_data,
12112: IF (l_return_status <> 'S') THEN
12113: IF (fnd_msg_pub.count_msg > 0 ) THEN
12114: FOR i IN 1..fnd_msg_pub.count_msg
12115: LOOP
12116: fnd_msg_pub.get(p_msg_index => i,
12117: p_encoded => 'F',
12118: p_data => l_msg_data,
12119: p_msg_index_out => l_msg_index_out);
12120: IF (l_log_statement >= l_log_current_level) THEN
12196: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
12197: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'After calling Add_Task_To_Project_Int: - l_return_status: ' || l_return_status);
12198: END IF;
12199: IF (l_return_status <> 'S') THEN
12200: IF (fnd_msg_pub.count_msg > 0 ) THEN
12201: FOR i IN 1..fnd_msg_pub.count_msg
12202: LOOP
12203: fnd_msg_pub.get(p_msg_index => i,
12204: p_encoded => 'F',
12197: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'After calling Add_Task_To_Project_Int: - l_return_status: ' || l_return_status);
12198: END IF;
12199: IF (l_return_status <> 'S') THEN
12200: IF (fnd_msg_pub.count_msg > 0 ) THEN
12201: FOR i IN 1..fnd_msg_pub.count_msg
12202: LOOP
12203: fnd_msg_pub.get(p_msg_index => i,
12204: p_encoded => 'F',
12205: p_data => l_msg_data,
12199: IF (l_return_status <> 'S') THEN
12200: IF (fnd_msg_pub.count_msg > 0 ) THEN
12201: FOR i IN 1..fnd_msg_pub.count_msg
12202: LOOP
12203: fnd_msg_pub.get(p_msg_index => i,
12204: p_encoded => 'F',
12205: p_data => l_msg_data,
12206: p_msg_index_out => l_msg_index_out);
12207: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
12240: IF Fnd_Api.To_Boolean ( p_commit ) THEN
12241: COMMIT WORK;
12242: END IF;
12243:
12244: Fnd_Msg_Pub.count_and_get(
12245: p_encoded => Fnd_Api.g_false,
12246: p_count => x_msg_count,
12247: p_data => x_msg_data
12248: );
12254: EXCEPTION
12255: WHEN Fnd_Api.g_exc_error THEN
12256: ROLLBACK TO Add_MR_to_Project;
12257: x_return_status := Fnd_Api.g_ret_sts_error;
12258: Fnd_Msg_Pub.count_and_get (
12259: p_encoded => Fnd_Api.g_false,
12260: p_count => x_msg_count,
12261: p_data => x_msg_data
12262: );
12262: );
12263: WHEN Fnd_Api.g_exc_unexpected_error THEN
12264: ROLLBACK TO Add_MR_to_Project;
12265: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
12266: Fnd_Msg_Pub.count_and_get (
12267: p_encoded => Fnd_Api.g_false,
12268: p_count => x_msg_count,
12269: p_data => x_msg_data
12270: );
12270: );
12271: WHEN OTHERS THEN
12272: ROLLBACK TO Add_MR_to_Project;
12273: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
12274: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
12275: THEN
12276: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
12277: END IF;
12278: Fnd_Msg_Pub.count_and_get (
12272: ROLLBACK TO Add_MR_to_Project;
12273: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
12274: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
12275: THEN
12276: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
12277: END IF;
12278: Fnd_Msg_Pub.count_and_get (
12279: p_encoded => Fnd_Api.g_false,
12280: p_count => x_msg_count,
12274: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
12275: THEN
12276: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
12277: END IF;
12278: Fnd_Msg_Pub.count_and_get (
12279: p_encoded => Fnd_Api.g_false,
12280: p_count => x_msg_count,
12281: p_data => x_msg_data
12282: );
12333:
12334: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
12335: IF FND_API.TO_BOOLEAN(p_init_msg_list)
12336: THEN
12337: FND_MSG_PUB.INITIALIZE;
12338: END IF;
12339:
12340: IF (l_log_procedure >= l_log_current_level) THEN
12341: fnd_log.string(l_log_procedure,
12373: l_visit_task_id || '. Return Status = '|| l_return_status);
12374: END IF;
12375:
12376: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12377: x_msg_count := FND_MSG_PUB.count_msg;
12378: IF (l_log_statement >= l_log_current_level) THEN
12379: fnd_log.string(l_log_statement,
12380: L_DEBUG_KEY,
12381: 'Errors from AGGREGATE_TASK_MATERIAL_REQRS. Message count: ' || x_msg_count);
12482:
12483: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
12484: IF FND_API.TO_BOOLEAN(p_init_msg_list)
12485: THEN
12486: FND_MSG_PUB.INITIALIZE;
12487: END IF;
12488:
12489: -- initialize the counter
12490: l_previous_item := NULL;
12547: x_return_status);
12548: END IF;
12549:
12550: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12551: x_msg_count := FND_MSG_PUB.count_msg;
12552: IF (l_log_statement >= l_log_current_level) THEN
12553: fnd_log.string(l_log_statement,
12554: L_DEBUG_KEY,
12555: 'Errors from AHL_RSV_RESERVATIONS_PVT.TRNSFR_RSRV_FOR_MATRL_REQR. Message count: ' || x_msg_count);
12956: EXCEPTION
12957: WHEN FND_API.G_EXC_ERROR THEN
12958: x_return_status := FND_API.G_RET_STS_ERROR;
12959: ROLLBACK TO Update_Project_Task_Times;
12960: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
12961: p_data => x_msg_data,
12962: p_encoded => fnd_api.g_false);
12963:
12964: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12963:
12964: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12966: ROLLBACK TO Update_Project_Task_Times;
12967: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
12968: p_data => x_msg_data,
12969: p_encoded => fnd_api.g_false);
12970:
12971: WHEN OTHERS THEN
12970:
12971: WHEN OTHERS THEN
12972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12973: ROLLBACK TO Update_Project_Task_Times;
12974: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12975: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
12976: p_procedure_name => 'Update_Project',
12977: p_error_text => SUBSTR(SQLERRM,1,500));
12978: END IF;
12971: WHEN OTHERS THEN
12972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12973: ROLLBACK TO Update_Project_Task_Times;
12974: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12975: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
12976: p_procedure_name => 'Update_Project',
12977: p_error_text => SUBSTR(SQLERRM,1,500));
12978: END IF;
12979: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
12975: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
12976: p_procedure_name => 'Update_Project',
12977: p_error_text => SUBSTR(SQLERRM,1,500));
12978: END IF;
12979: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
12980: p_data => x_msg_data,
12981: p_encoded => fnd_api.g_false);
12982:
12983: END Update_Project_Task_Times;
13116: END IF;
13117:
13118: -- Initialize message list if p_init_msg_list is set to TRUE.
13119: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
13120: Fnd_Msg_Pub.initialize;
13121: END IF;
13122:
13123: -- Initialize API return status to success
13124: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
13251: FND_MESSAGE.Set_Name('AHL','AHL_VWP_CRT_JOB_ERR');
13252: Fnd_Message.Set_Token('TASK_NUMBER', p_x_task_tbl(i).visit_task_number);
13253: Fnd_Message.Set_Token('END_DATE', TRUNC(l_visit_end_time));
13254: -- yazhou Sep-15-2005 ends
13255: FND_MSG_PUB.ADD;
13256: -- yazhou 06Oct2005 starts
13257: -- bug fix #4658861
13258: -- Note: since we are checking for derived end time here, if there are other task in planning
13259: -- status with end date exceeding visit master WO end date, then non-routine cannot be created
13261: ELSIF TRUNC(l_visit_end_time) > TRUNC(c_get_wo_details_rec.scheduled_completion_date) THEN
13262: -- Error Message
13263: Fnd_Message.SET_NAME('AHL','AHL_VWP_DATE_EXCD_WO_DATE');
13264: Fnd_Message.Set_Token('VISIT_END_DATE', l_visit_end_time);
13265: FND_MSG_PUB.ADD;
13266: -- yazhou 06Oct2005 ends
13267: ELSE
13268: -- Start for 11.5.10 release
13269: -- By shbhanda 05-Jun-03
13484: IF Fnd_Api.To_Boolean (p_commit) THEN
13485: COMMIT WORK;
13486: END IF;
13487:
13488: Fnd_Msg_Pub.count_and_get(
13489: p_encoded => Fnd_Api.g_false,
13490: p_count => x_msg_count,
13491: p_data => x_msg_data);
13492:
13497: EXCEPTION
13498: WHEN Fnd_Api.g_exc_error THEN
13499: ROLLBACK TO Create_Job_Tasks;
13500: x_return_status := Fnd_Api.g_ret_sts_error;
13501: Fnd_Msg_Pub.count_and_get (
13502: p_encoded => Fnd_Api.g_false,
13503: p_count => x_msg_count,
13504: p_data => x_msg_data
13505: );
13505: );
13506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13507: ROLLBACK TO Create_Job_Tasks;
13508: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
13509: Fnd_Msg_Pub.count_and_get (
13510: p_encoded => Fnd_Api.g_false,
13511: p_count => x_msg_count,
13512: p_data => x_msg_data
13513: );
13513: );
13514: WHEN OTHERS THEN
13515: ROLLBACK TO Create_Job_Tasks;
13516: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
13517: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
13518: THEN
13519: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
13520: END IF;
13521: Fnd_Msg_Pub.count_and_get (
13515: ROLLBACK TO Create_Job_Tasks;
13516: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
13517: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
13518: THEN
13519: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
13520: END IF;
13521: Fnd_Msg_Pub.count_and_get (
13522: p_encoded => Fnd_Api.g_false,
13523: p_count => x_msg_count,
13517: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
13518: THEN
13519: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
13520: END IF;
13521: Fnd_Msg_Pub.count_and_get (
13522: p_encoded => Fnd_Api.g_false,
13523: p_count => x_msg_count,
13524: p_data => x_msg_data
13525: );
13662: x_task_id := l_task_id; -- Assign the OUT paramater
13663: END IF;
13664: ELSIF l_project_tsk_flag = 'N' AND l_proj_ref_flag = 'Y' THEN
13665: x_return_status := Fnd_Api.g_ret_sts_error;
13666: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
13667: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_NUM_NOT_UNIQ');
13668: Fnd_Msg_Pub.ADD;
13669: END IF;
13670: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN
13664: ELSIF l_project_tsk_flag = 'N' AND l_proj_ref_flag = 'Y' THEN
13665: x_return_status := Fnd_Api.g_ret_sts_error;
13666: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
13667: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_NUM_NOT_UNIQ');
13668: Fnd_Msg_Pub.ADD;
13669: END IF;
13670: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN
13671: x_return_status := Fnd_Api.g_ret_sts_error;
13672: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
13668: Fnd_Msg_Pub.ADD;
13669: END IF;
13670: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN
13671: x_return_status := Fnd_Api.g_ret_sts_error;
13672: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
13673: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_REF_NOT_UNIQ');
13674: Fnd_Msg_Pub.ADD;
13675: END IF;
13676: ELSE
13670: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN
13671: x_return_status := Fnd_Api.g_ret_sts_error;
13672: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
13673: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_REF_NOT_UNIQ');
13674: Fnd_Msg_Pub.ADD;
13675: END IF;
13676: ELSE
13677: x_return_status := Fnd_Api.g_ret_sts_error;
13678: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
13674: Fnd_Msg_Pub.ADD;
13675: END IF;
13676: ELSE
13677: x_return_status := Fnd_Api.g_ret_sts_error;
13678: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
13679: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TASK_NOT_UNIQUE');
13680: Fnd_Msg_Pub.ADD;
13681: END IF;
13682: END IF;
13676: ELSE
13677: x_return_status := Fnd_Api.g_ret_sts_error;
13678: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
13679: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TASK_NOT_UNIQUE');
13680: Fnd_Msg_Pub.ADD;
13681: END IF;
13682: END IF;
13683: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
13684: fnd_log.string(fnd_log.level_procedure,L_DEBUG_KEY||'.end','At the end of plsql procedure');
13772: FETCH validate_vst_tsk_id_csr INTO l_dummy;
13773: IF validate_vst_tsk_id_csr%NOTFOUND THEN
13774: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_TASK_ID_INVALID');
13775: Fnd_Message.SET_TOKEN('VISIT_TASK_ID', p_task_id);
13776: Fnd_Msg_Pub.ADD;
13777: CLOSE validate_vst_tsk_id_csr;
13778: RAISE Fnd_Api.G_EXC_ERROR;
13779: END IF;
13780: CLOSE validate_vst_tsk_id_csr;
13859: EXCEPTION
13860: WHEN FND_API.G_EXC_ERROR THEN
13861: x_return_status := FND_API.G_RET_STS_ERROR;
13862: ROLLBACK TO Update_Project_Task;
13863: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
13864: p_data => x_msg_data,
13865: p_encoded => fnd_api.g_false);
13866:
13867: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13866:
13867: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13869: ROLLBACK TO Update_Project_Task;
13870: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
13871: p_data => x_msg_data,
13872: p_encoded => fnd_api.g_false);
13873:
13874: WHEN OTHERS THEN
13873:
13874: WHEN OTHERS THEN
13875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13876: ROLLBACK TO Update_Project_Task;
13877: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13878: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
13879: p_procedure_name => 'Update_Project',
13880: p_error_text => SUBSTR(SQLERRM,1,500));
13881: END IF;
13874: WHEN OTHERS THEN
13875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13876: ROLLBACK TO Update_Project_Task;
13877: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13878: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
13879: p_procedure_name => 'Update_Project',
13880: p_error_text => SUBSTR(SQLERRM,1,500));
13881: END IF;
13882: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
13878: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
13879: p_procedure_name => 'Update_Project',
13880: p_error_text => SUBSTR(SQLERRM,1,500));
13881: END IF;
13882: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
13883: p_data => x_msg_data,
13884: p_encoded => fnd_api.g_false);
13885:
13886: END Update_Project_Task;
14160: fnd_log.string(l_log_statement,
14161: L_DEBUG_KEY,
14162: 'Passed visit id is null');
14163: END IF;
14164: FND_MSG_PUB.add;
14165: END IF;
14166:
14167: OPEN get_sr_ids(p_visit_id);
14168: LOOP
14261:
14262: -- Initialize message list if p_init_msg_list is set to TRUE
14263:
14264: IF FND_API.To_Boolean( p_init_msg_list) THEN
14265: FND_MSG_PUB.Initialize;
14266: END IF;
14267:
14268: -- Initialize API return status to success
14269: x_return_status := FND_API.G_RET_STS_SUCCESS;
14278:
14279: -- make sure that visit id is present in the input
14280: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
14281: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CST_INPUT_MISS');
14282: FND_MSG_PUB.ADD;
14283:
14284: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
14285: fnd_log.string
14286: (
14297: CLOSE get_visit_status;
14298:
14299: IF(l_status_code IS NULL ) THEN
14300: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VISIT_ID_INVALID');
14301: FND_MSG_PUB.ADD;
14302:
14303: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
14304: fnd_log.string
14305: (
14414: IF Fnd_Api.To_Boolean (p_commit) THEN
14415: COMMIT WORK;
14416: END IF;
14417:
14418: Fnd_Msg_Pub.count_and_get(
14419: p_encoded => Fnd_Api.g_false,
14420: p_count => x_msg_count,
14421: p_data => x_msg_data
14422: );
14435: WHEN FND_API.G_EXC_ERROR THEN
14436:
14437: x_return_status := FND_API.G_RET_STS_ERROR;
14438: ROLLBACK TO plan_visit_pvt;
14439: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
14440: p_data => x_msg_data,
14441: p_encoded => fnd_api.g_false);
14442:
14443: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14442:
14443: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14445: ROLLBACK TO plan_visit_pvt;
14446: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
14447: p_data => x_msg_data,
14448: p_encoded => fnd_api.g_false);
14449:
14450: WHEN OTHERS THEN
14450: WHEN OTHERS THEN
14451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14452: ROLLBACK TO plan_visit_pvt;
14453:
14454: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
14455: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
14456: p_procedure_name => 'plan_visit',
14457: p_error_text => SUBSTR(SQLERRM,1,500));
14458: END IF;
14451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14452: ROLLBACK TO plan_visit_pvt;
14453:
14454: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
14455: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
14456: p_procedure_name => 'plan_visit',
14457: p_error_text => SUBSTR(SQLERRM,1,500));
14458: END IF;
14459:
14456: p_procedure_name => 'plan_visit',
14457: p_error_text => SUBSTR(SQLERRM,1,500));
14458: END IF;
14459:
14460: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
14461: p_data => x_msg_data,
14462: p_encoded => fnd_api.g_false);
14463: END Plan_visit;
14464:
14697: SAVEPOINT Push_stages_to_prodn_pvt;
14698:
14699: -- Initialize message list if p_init_msg_list is set to TRUE
14700: IF FND_API.To_Boolean(p_init_msg_list) THEN
14701: FND_MSG_PUB.Initialize;
14702: END IF;
14703:
14704: -- Initialize API return status to success
14705: x_return_status := FND_API.G_RET_STS_SUCCESS;
14717: CLOSE c_is_old_visit;
14718:
14719: IF l_is_old_visit_dets.IS_OLD_VISIT = 'Y' THEN
14720: Fnd_Message.SET_NAME('AHL','AHL_VWP_OVST_SP2P_INV');
14721: Fnd_Msg_Pub.ADD;
14722: RAISE Fnd_Api.G_EXC_ERROR;
14723: END IF;
14724:
14725: -- SKPATHAK :: VWPE: ER:12424063 :: 26-MAY-2011 :: STARTS
14750: 'After calling Validate_tasks_bef_production l_return_status= '||l_return_status);
14751: END IF;
14752:
14753: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
14754: x_msg_count := FND_MSG_PUB.count_msg;
14755: IF (l_log_statement >= l_log_current_level) THEN
14756: fnd_log.string(l_log_statement,
14757: L_DEBUG_KEY,
14758: 'Errors from PROCESS_JOBS. Message count: ' || x_msg_count);
14836: 'After calling Integrate_to_Projects. l_return_status = ' || l_return_status);
14837: END IF;
14838:
14839: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
14840: x_msg_count := FND_MSG_PUB.count_msg;
14841: IF (l_log_statement >= l_log_current_level) THEN
14842: fnd_log.string(l_log_statement,
14843: L_DEBUG_KEY,
14844: 'Errors from Integrate_to_Projects. Message count: ' || x_msg_count);
14936: L_DEBUG_KEY,
14937: 'Error: a stage can only be P2Ped if the Visit Mater WO already exists');
14938: END IF;
14939: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_WO_CANOT_P2P');
14940: Fnd_Msg_Pub.ADD;
14941: RAISE Fnd_Api.G_EXC_ERROR;
14942: END IF; --visit master workorder exists or not
14943: /**Visit Master Workorder Ends**/
14944:
15025: L_DEBUG_KEY,
15026: 'Error: Stage cannot be P2Ped since WO does not exist for the task_id: '||l_task_rec.visit_task_id);
15027: END IF;
15028: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_WO_CANOT_P2P');
15029: Fnd_Msg_Pub.ADD;
15030: RAISE Fnd_Api.G_EXC_ERROR;
15031: END IF; --work order exists or not for this task
15032:
15033: IF (l_log_statement >= l_log_current_level) THEN
15109: END IF;
15110:
15111: IF l_max_schedule_start_date > l_visit_dtl_rec.close_date_time THEN -- Validation Error
15112: Fnd_Message.SET_NAME('AHL','AHL_VWP_NON_PS_PLAN_ED_DATE');
15113: Fnd_Msg_Pub.ADD;
15114: RAISE Fnd_Api.G_EXC_ERROR;
15115: END IF;
15116: END IF;
15117: --BUG 13373947 :: PRAKKUM :: 10/02/2012 :: END
15145: p_visit_id||', l_return_status: '|| l_return_status);
15146: END IF;
15147:
15148: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
15149: x_msg_count := FND_MSG_PUB.count_msg;
15150: IF (l_log_statement >= l_log_current_level) THEN
15151: fnd_log.string(l_log_statement,
15152: L_DEBUG_KEY,
15153: 'Errors from PROCESS_JOBS. Message count: ' || x_msg_count);
15195: x_msg_count => l_msg_count,
15196: x_msg_data => l_msg_data);
15197:
15198: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
15199: x_msg_count := FND_MSG_PUB.count_msg;
15200: IF (l_log_statement >= l_log_current_level) THEN
15201: fnd_log.string(l_log_statement,
15202: L_DEBUG_KEY,
15203: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);
15355: IF Fnd_Api.To_Boolean (p_commit) THEN
15356: COMMIT WORK;
15357: END IF;
15358:
15359: Fnd_Msg_Pub.count_and_get(
15360: p_encoded => Fnd_Api.g_false,
15361: p_count => x_msg_count,
15362: p_data => x_msg_data
15363: );
15372: EXCEPTION
15373: WHEN FND_API.G_EXC_ERROR THEN
15374: x_return_status := FND_API.G_RET_STS_ERROR;
15375: ROLLBACK TO Push_stages_to_prodn_pvt;
15376: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
15377: p_data => x_msg_data,
15378: p_encoded => fnd_api.g_false);
15379:
15380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15379:
15380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15381: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
15382: ROLLBACK TO Push_stages_to_prodn_pvt;
15383: Fnd_Msg_Pub.count_and_get (
15384: p_encoded => Fnd_Api.g_false,
15385: p_count => x_msg_count,
15386: p_data => x_msg_data);
15387:
15387:
15388: WHEN OTHERS THEN
15389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15390: ROLLBACK TO Push_stages_to_prodn_pvt;
15391: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
15392: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
15393: p_procedure_name => 'Push_stages_to_production',
15394: p_error_text => SUBSTR(SQLERRM,1,500));
15395: END IF;
15388: WHEN OTHERS THEN
15389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15390: ROLLBACK TO Push_stages_to_prodn_pvt;
15391: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
15392: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
15393: p_procedure_name => 'Push_stages_to_production',
15394: p_error_text => SUBSTR(SQLERRM,1,500));
15395: END IF;
15396: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
15392: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
15393: p_procedure_name => 'Push_stages_to_production',
15394: p_error_text => SUBSTR(SQLERRM,1,500));
15395: END IF;
15396: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
15397: p_data => x_msg_data,
15398: p_encoded => fnd_api.g_false);
15399:
15400: END Push_stages_to_production;