APPS.AHL_VWP_PROJ_PROD_PVT dependencies on FND_MSG_PUB

Line 371: Fnd_Msg_Pub.initialize;

367: END IF;
368:
369: -- Initialize message list if p_init_msg_list is set to TRUE.
370: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
371: Fnd_Msg_Pub.initialize;
372: END IF;
373:
374: -- Initialize API return status to success
375: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

Line 441: Fnd_Msg_Pub.count_and_get(

437: IF Fnd_Api.To_Boolean ( p_commit ) THEN
438: COMMIT WORK;
439: END IF;
440:
441: Fnd_Msg_Pub.count_and_get(
442: p_encoded => Fnd_Api.g_false,
443: p_count => x_msg_count,
444: p_data => x_msg_data
445: );

Line 455: Fnd_Msg_Pub.count_and_get (

451: EXCEPTION
452: WHEN Fnd_Api.g_exc_error THEN
453: ROLLBACK TO Integrate_to_Projects;
454: x_return_status := Fnd_Api.g_ret_sts_error;
455: Fnd_Msg_Pub.count_and_get (
456: p_encoded => Fnd_Api.g_false,
457: p_count => x_msg_count,
458: p_data => x_msg_data
459: );

Line 463: Fnd_Msg_Pub.count_and_get (

459: );
460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
461: ROLLBACK TO Integrate_to_Projects;
462: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
463: Fnd_Msg_Pub.count_and_get (
464: p_encoded => Fnd_Api.g_false,
465: p_count => x_msg_count,
466: p_data => x_msg_data
467: );

Line 471: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN

467: );
468: WHEN OTHERS THEN
469: ROLLBACK TO Integrate_to_Projects;
470: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
471: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
472: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
473: END IF;
474: Fnd_Msg_Pub.count_and_get (
475: p_encoded => Fnd_Api.g_false,

Line 472: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);

468: WHEN OTHERS THEN
469: ROLLBACK TO Integrate_to_Projects;
470: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
471: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
472: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
473: END IF;
474: Fnd_Msg_Pub.count_and_get (
475: p_encoded => Fnd_Api.g_false,
476: p_count => x_msg_count,

Line 474: Fnd_Msg_Pub.count_and_get (

470: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
471: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
472: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
473: END IF;
474: Fnd_Msg_Pub.count_and_get (
475: p_encoded => Fnd_Api.g_false,
476: p_count => x_msg_count,
477: p_data => x_msg_data
478: );

Line 547: Fnd_Msg_Pub.initialize;

543: END IF;
544:
545: -- Initialize message list if p_init_msg_list is set to TRUE.
546: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
547: Fnd_Msg_Pub.initialize;
548: END IF;
549:
550: -- Initialize API return status to success
551: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

Line 725: IF (fnd_msg_pub.count_msg > 0 ) THEN

721: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.ADD_TASK - l_return_status = '||l_return_status);
722: END IF;
723:
724: IF (l_return_status <> 'S') THEN
725: IF (fnd_msg_pub.count_msg > 0 ) THEN
726: FOR i IN 1..fnd_msg_pub.count_msg
727: LOOP
728: fnd_msg_pub.get( p_msg_index => i,
729: p_encoded => 'F',

Line 726: FOR i IN 1..fnd_msg_pub.count_msg

722: END IF;
723:
724: IF (l_return_status <> 'S') THEN
725: IF (fnd_msg_pub.count_msg > 0 ) THEN
726: FOR i IN 1..fnd_msg_pub.count_msg
727: LOOP
728: fnd_msg_pub.get( p_msg_index => i,
729: p_encoded => 'F',
730: p_data => l_msg_data,

Line 728: fnd_msg_pub.get( p_msg_index => i,

724: IF (l_return_status <> 'S') THEN
725: IF (fnd_msg_pub.count_msg > 0 ) THEN
726: FOR i IN 1..fnd_msg_pub.count_msg
727: LOOP
728: fnd_msg_pub.get( p_msg_index => i,
729: p_encoded => 'F',
730: p_data => l_msg_data,
731: p_msg_index_out => l_msg_index_out);
732:

Line 754: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

750: END IF;
751:
752: ELSIF l_project_tsk_flag = 'N' AND l_proj_ref_flag = 'Y' THEN
753: x_return_status := Fnd_Api.g_ret_sts_error;
754: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
755: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_REF_NOT_UNIQ');
756: Fnd_Msg_Pub.ADD;
757: END IF;
758: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN

Line 756: Fnd_Msg_Pub.ADD;

752: ELSIF l_project_tsk_flag = 'N' AND l_proj_ref_flag = 'Y' THEN
753: x_return_status := Fnd_Api.g_ret_sts_error;
754: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
755: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_REF_NOT_UNIQ');
756: Fnd_Msg_Pub.ADD;
757: END IF;
758: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN
759: x_return_status := Fnd_Api.g_ret_sts_error;
760: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

Line 760: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

756: Fnd_Msg_Pub.ADD;
757: END IF;
758: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN
759: x_return_status := Fnd_Api.g_ret_sts_error;
760: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
761: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_NUM_NOT_UNIQ');
762: Fnd_Msg_Pub.ADD;
763: END IF;
764: ELSE

Line 762: Fnd_Msg_Pub.ADD;

758: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN
759: x_return_status := Fnd_Api.g_ret_sts_error;
760: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
761: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_NUM_NOT_UNIQ');
762: Fnd_Msg_Pub.ADD;
763: END IF;
764: ELSE
765: x_return_status := Fnd_Api.g_ret_sts_error;
766: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

Line 766: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

762: Fnd_Msg_Pub.ADD;
763: END IF;
764: ELSE
765: x_return_status := Fnd_Api.g_ret_sts_error;
766: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
767: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TASK_NOT_UNIQUE');
768: Fnd_Msg_Pub.ADD;
769: END IF;
770: END IF;

Line 768: Fnd_Msg_Pub.ADD;

764: ELSE
765: x_return_status := Fnd_Api.g_ret_sts_error;
766: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
767: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TASK_NOT_UNIQUE');
768: Fnd_Msg_Pub.ADD;
769: END IF;
770: END IF;
771: END IF;
772:

Line 784: Fnd_Msg_Pub.count_and_get(

780: IF Fnd_Api.To_Boolean (p_commit) THEN
781: COMMIT WORK;
782: END IF;
783:
784: Fnd_Msg_Pub.count_and_get(
785: p_encoded => Fnd_Api.g_false,
786: p_count => x_msg_count,
787: p_data => x_msg_data
788: );

Line 798: Fnd_Msg_Pub.count_and_get (

794: EXCEPTION
795: WHEN Fnd_Api.g_exc_error THEN
796: ROLLBACK TO Add_Task_to_Project;
797: x_return_status := Fnd_Api.g_ret_sts_error;
798: Fnd_Msg_Pub.count_and_get (
799: p_encoded => Fnd_Api.g_false,
800: p_count => x_msg_count,
801: p_data => x_msg_data
802: );

Line 806: Fnd_Msg_Pub.count_and_get (

802: );
803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
804: ROLLBACK TO Add_Task_to_Project;
805: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
806: Fnd_Msg_Pub.count_and_get (
807: p_encoded => Fnd_Api.g_false,
808: p_count => x_msg_count,
809: p_data => x_msg_data
810: );

Line 814: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN

810: );
811: WHEN OTHERS THEN
812: ROLLBACK TO Add_Task_to_Project;
813: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
814: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
815: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
816: END IF;
817: Fnd_Msg_Pub.count_and_get (
818: p_encoded => Fnd_Api.g_false,

Line 815: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);

811: WHEN OTHERS THEN
812: ROLLBACK TO Add_Task_to_Project;
813: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
814: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
815: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
816: END IF;
817: Fnd_Msg_Pub.count_and_get (
818: p_encoded => Fnd_Api.g_false,
819: p_count => x_msg_count,

Line 817: Fnd_Msg_Pub.count_and_get (

813: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
814: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
815: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
816: END IF;
817: Fnd_Msg_Pub.count_and_get (
818: p_encoded => Fnd_Api.g_false,
819: p_count => x_msg_count,
820: p_data => x_msg_data
821: );

Line 1157: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

1153: l_project_status_code := nvl(FND_PROFILE.VALUE('AHL_INITIAL_PROJECT_STATUS'),'SUBMITTED');
1154:
1155: /*
1156: IF (l_project_status_code IS NULL) THEN
1157: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1158: Fnd_Message.set_name ('AHL', 'AHL_PROJECT_STATUS_NOT_SET');
1159: Fnd_Msg_Pub.ADD;
1160: END IF;
1161: RAISE FND_API.G_EXC_ERROR;

Line 1159: Fnd_Msg_Pub.ADD;

1155: /*
1156: IF (l_project_status_code IS NULL) THEN
1157: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1158: Fnd_Message.set_name ('AHL', 'AHL_PROJECT_STATUS_NOT_SET');
1159: Fnd_Msg_Pub.ADD;
1160: END IF;
1161: RAISE FND_API.G_EXC_ERROR;
1162: END IF;
1163: */

Line 1181: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

1177: L_DEBUG_KEY,
1178: 'Create New Transaction Flag = ' || l_new_txns_flag);
1179: END IF;
1180: IF (l_new_txns_flag = 'N') THEN
1181: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1182: Fnd_Message.SET_NAME('AHL','AHL_PRJ_NEW_TXN_DISABLED');
1183: Fnd_Message.SET_TOKEN('PRJ_STATUS', l_project_status_code);
1184: Fnd_Msg_Pub.ADD;
1185: END IF;

Line 1184: Fnd_Msg_Pub.ADD;

1180: IF (l_new_txns_flag = 'N') THEN
1181: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1182: Fnd_Message.SET_NAME('AHL','AHL_PRJ_NEW_TXN_DISABLED');
1183: Fnd_Message.SET_TOKEN('PRJ_STATUS', l_project_status_code);
1184: Fnd_Msg_Pub.ADD;
1185: END IF;
1186: RAISE Fnd_Api.G_EXC_ERROR;
1187: END IF;
1188: -- End changes by rnahata for Bug 6334682

Line 1498: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

1494: END IF; -- End of l_task_out.COUNT
1495: END IF; -- End of x_return_status = 'S'
1496: ELSE -- Else of l_project_flag = 'Y'
1497: x_return_status := Fnd_Api.g_ret_sts_error;
1498: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1499: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJECT_NOT_UNIQUE');
1500: Fnd_Msg_Pub.ADD;
1501: END IF;
1502: END IF; -- End of l_project_flag = 'Y'

Line 1500: Fnd_Msg_Pub.ADD;

1496: ELSE -- Else of l_project_flag = 'Y'
1497: x_return_status := Fnd_Api.g_ret_sts_error;
1498: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1499: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJECT_NOT_UNIQUE');
1500: Fnd_Msg_Pub.ADD;
1501: END IF;
1502: END IF; -- End of l_project_flag = 'Y'
1503: END IF; --- End of l_chk_project = 'Y'
1504: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN

Line 1506: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

1502: END IF; -- End of l_project_flag = 'Y'
1503: END IF; --- End of l_chk_project = 'Y'
1504: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN
1505: x_return_status := Fnd_Api.g_ret_sts_error;
1506: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1507: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_ST_DT_MISSING');
1508: Fnd_Msg_Pub.ADD;
1509: END IF;
1510: END IF; -- End of Start Time and Department null Check

Line 1508: Fnd_Msg_Pub.ADD;

1504: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN
1505: x_return_status := Fnd_Api.g_ret_sts_error;
1506: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1507: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_ST_DT_MISSING');
1508: Fnd_Msg_Pub.ADD;
1509: END IF;
1510: END IF; -- End of Start Time and Department null Check
1511:
1512: IF (l_log_procedure >= l_log_current_level) THEN

Line 1680: Fnd_Msg_Pub.initialize;

1676: END IF;
1677:
1678: -- Initialize message list if p_init_msg_list is set to TRUE.
1679: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
1680: Fnd_Msg_Pub.initialize;
1681: END IF;
1682:
1683: -- Initialize API return status to success
1684: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

Line 1944: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

1940: CLOSE c_task_proj;
1941: END IF;
1942: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN
1943: x_return_status := Fnd_Api.g_ret_sts_error;
1944: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1945: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_ST_DT_MISSING');
1946: Fnd_Msg_Pub.ADD;
1947: END IF;
1948: END IF; -- check for visit's start date time

Line 1946: Fnd_Msg_Pub.ADD;

1942: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN
1943: x_return_status := Fnd_Api.g_ret_sts_error;
1944: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1945: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_ST_DT_MISSING');
1946: Fnd_Msg_Pub.ADD;
1947: END IF;
1948: END IF; -- check for visit's start date time
1949: END IF; -- l_chk_project
1950:

Line 1953: l_msg_count := Fnd_Msg_Pub.count_msg;

1949: END IF; -- l_chk_project
1950:
1951: ---------------------------End of API Body---------------------------------------
1952: --Standard check to count messages
1953: l_msg_count := Fnd_Msg_Pub.count_msg;
1954:
1955: IF l_msg_count > 0 THEN
1956: X_msg_count := l_msg_count;
1957: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

Line 1969: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

1965: EXCEPTION
1966: WHEN FND_API.G_EXC_ERROR THEN
1967: x_return_status := FND_API.G_RET_STS_ERROR;
1968: ROLLBACK TO Update_Project;
1969: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1970: p_data => x_msg_data,
1971: p_encoded => fnd_api.g_false);
1972:
1973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 1976: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

1972:
1973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1975: ROLLBACK TO Update_Project;
1976: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1977: p_data => x_msg_data,
1978: p_encoded => fnd_api.g_false);
1979:
1980: WHEN OTHERS THEN

Line 1983: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

1979:
1980: WHEN OTHERS THEN
1981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1982: ROLLBACK TO Update_Project;
1983: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1984: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1985: p_procedure_name => 'Update_Project',
1986: p_error_text => SUBSTR(SQLERRM,1,500));
1987: END IF;

Line 1984: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,

1980: WHEN OTHERS THEN
1981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1982: ROLLBACK TO Update_Project;
1983: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1984: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1985: p_procedure_name => 'Update_Project',
1986: p_error_text => SUBSTR(SQLERRM,1,500));
1987: END IF;
1988: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

Line 1988: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

1984: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1985: p_procedure_name => 'Update_Project',
1986: p_error_text => SUBSTR(SQLERRM,1,500));
1987: END IF;
1988: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1989: p_data => x_msg_data,
1990: p_encoded => fnd_api.g_false);
1991:
1992: END Update_Project;

Line 2051: Fnd_Msg_Pub.initialize;

2047: END IF;
2048:
2049: -- Initialize message list if p_init_msg_list is set to TRUE.
2050: IF Fnd_Api.to_boolean(p_init_msg_list)THEN
2051: Fnd_Msg_Pub.initialize;
2052: END IF;
2053:
2054: -- Initialize API return status to success
2055: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

Line 2092: Fnd_Msg_Pub.ADD;

2088:
2089: IF l_count > 0 THEN -- merge process for 11.5 10 bug# 3470801 fix on CMRDV10P
2090: Fnd_Message.SET_NAME('AHL','AHL_VWP_PROJ_PJM_PARA');
2091: Fnd_Message.SET_TOKEN('VISIT_NUMBER', c_visit_rec.Visit_Number);
2092: Fnd_Msg_Pub.ADD;
2093: RAISE Fnd_Api.G_EXC_ERROR;
2094: ELSE
2095: IF (l_log_statement >= l_log_current_level) THEN
2096: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling : PA_PROJECT_PUB.CHECK_DELETE_PROJECT_OK');

Line 2155: l_msg_count := Fnd_Msg_Pub.count_msg;

2151: END IF;
2152:
2153: ---------------------------End of API Body---------------------------------------
2154: --Standard check to count messages
2155: l_msg_count := Fnd_Msg_Pub.count_msg;
2156:
2157: IF l_msg_count > 0 THEN
2158: X_msg_count := l_msg_count;
2159: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

Line 2171: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

2167: EXCEPTION
2168: WHEN FND_API.G_EXC_ERROR THEN
2169: x_return_status := FND_API.G_RET_STS_ERROR;
2170: ROLLBACK TO Delete_Project;
2171: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
2172: p_data => x_msg_data,
2173: p_encoded => fnd_api.g_false);
2174:
2175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 2178: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

2174:
2175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2177: ROLLBACK TO Delete_Project;
2178: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
2179: p_data => x_msg_data,
2180: p_encoded => fnd_api.g_false);
2181:
2182: WHEN OTHERS THEN

Line 2185: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

2181:
2182: WHEN OTHERS THEN
2183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2184: ROLLBACK TO Delete_Project;
2185: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2186: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2187: p_procedure_name => 'Delete_Project',
2188: p_error_text => SUBSTR(SQLERRM,1,500));
2189: END IF;

Line 2186: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,

2182: WHEN OTHERS THEN
2183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2184: ROLLBACK TO Delete_Project;
2185: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2186: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2187: p_procedure_name => 'Delete_Project',
2188: p_error_text => SUBSTR(SQLERRM,1,500));
2189: END IF;
2190: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

Line 2190: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

2186: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2187: p_procedure_name => 'Delete_Project',
2188: p_error_text => SUBSTR(SQLERRM,1,500));
2189: END IF;
2190: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
2191: p_data => x_msg_data,
2192: p_encoded => fnd_api.g_false);
2193: END Delete_Project;
2194:

Line 2288: Fnd_Msg_Pub.ADD;

2284: IF TRUNC(c_route_rec.start_date_active) > p_start_date_time THEN
2285:
2286: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_STDT_ROUT_STDT');
2287: Fnd_Message.Set_Token('TASK_NUMBER', p_visit_task_number);
2288: Fnd_Msg_Pub.ADD;
2289:
2290: END IF;
2291:
2292: IF TRUNC(c_route_rec.end_date_active) IS NOT NULL THEN

Line 2297: Fnd_Msg_Pub.ADD;

2293: IF TRUNC(c_route_rec.end_date_active) < p_end_date_time THEN
2294:
2295: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_ENDT_ROUT_ENDT');
2296: Fnd_Message.Set_Token('TASK_NUMBER', p_visit_task_number);
2297: Fnd_Msg_Pub.ADD;
2298:
2299: END IF;
2300: END IF;
2301:

Line 2308: Fnd_Msg_Pub.ADD;

2304: CLOSE c_route;
2305:
2306: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_NO_ROUTE');
2307: Fnd_Message.Set_Token('TASK_NUMBER', p_visit_task_number);
2308: Fnd_Msg_Pub.ADD;
2309:
2310: END IF; -- End of c_route%FOUND check
2311:
2312: -- If the tasks associated to MR Route Id have an expired MR Id

Line 2329: Fnd_Msg_Pub.ADD;

2325:
2326: IF TRUNC(c_mr_header_rec.effective_from) > p_start_date_time THEN
2327: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_TS_SD_LT_MR');
2328: Fnd_Message.Set_Token('TASK_NUMBER', p_visit_task_number);
2329: Fnd_Msg_Pub.ADD;
2330:
2331: END IF;
2332: IF TRUNC(c_mr_header_rec.effective_to) IS NOT NULL THEN
2333: IF TRUNC(c_mr_header_rec.effective_to) < p_end_date_time THEN

Line 2337: Fnd_Msg_Pub.ADD;

2333: IF TRUNC(c_mr_header_rec.effective_to) < p_end_date_time THEN
2334:
2335: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_TS_ED_GT_MR');
2336: Fnd_Message.Set_Token('TASK_NUMBER', p_visit_task_number);
2337: Fnd_Msg_Pub.ADD;
2338:
2339: END IF;
2340: END IF;
2341:

Line 2347: Fnd_Msg_Pub.ADD;

2343: CLOSE c_mr_header;
2344:
2345: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_MR_ID');
2346: Fnd_Message.Set_Token('TASK_NUMBER', p_visit_task_number);
2347: Fnd_Msg_Pub.ADD;
2348:
2349: END IF; -- End of c_mr_header%FOUND check
2350: END IF; -- End of p_mr_route_id IS NOT NULL check
2351:

Line 2621: Fnd_Msg_Pub.initialize;

2617: END IF;
2618:
2619: -- Initialize message list if p_init_msg_list is set to TRUE.
2620: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
2621: Fnd_Msg_Pub.initialize;
2622: END IF;
2623:
2624: -- Initialize API return status to success
2625: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

Line 2653: Fnd_Msg_Pub.ADD;

2649: END IF;
2650: -- By shbhanda 05/21/04 for TC changes
2651: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_ST_DATE');
2652: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
2653: Fnd_Msg_Pub.ADD;
2654: END IF;
2655:
2656: -- To check visit's status is not null and it should be only planning or partially released
2657: IF c_visit_rec.STATUS_CODE IS NOT NULL THEN

Line 2666: Fnd_Msg_Pub.ADD;

2662: 'Visit Status Code is not Planning/Partially Released.');
2663: END IF;
2664: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NOT_PLANNING'); -- **** IMPortant uPDATE FOR PARTIALLY RELEASED
2665: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
2666: Fnd_Msg_Pub.ADD;
2667: /* l_temp := 'ERROR: Visit Number ' || c_visit_rec.VISIT_NUMBER || ' : Status Code is not Planning or Partially Released' ;
2668: l_error_tbl(j).Msg_Index := j;
2669: l_error_tbl(j).Msg_Data := l_temp;
2670: j := j + 1;*/

Line 2682: Fnd_Msg_Pub.ADD;

2678: 'Visit Status Code is Planning and Visit Start Date is less than sysdate. ');
2679: END IF;
2680: Fnd_Message.SET_NAME('AHL','AHL_VWP_START_DATE_LT_SYS');
2681: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
2682: Fnd_Msg_Pub.ADD;
2683: /* l_error_tbl(j).Msg_Index := j;
2684: l_error_tbl(j).Msg_Data := REPLACE(FND_MESSAGE.GET_STRING(APPIN => 'AHL',
2685: NAMEIN => 'AHL_VWP_START_DATE_LT_SYS')
2686: ,'VISIT_NUMBER',c_visit_rec.VISIT_NUMBER);

Line 2698: Fnd_Msg_Pub.ADD;

2694: 'Visit Status Code is null.');
2695: END IF;
2696: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_STATUS');
2697: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
2698: Fnd_Msg_Pub.ADD;
2699:
2700: /*l_temp := 'ERROR: Visit Number ' || c_visit_rec.VISIT_NUMBER || ' : Status Code Missing' ;
2701: l_error_tbl(j).Msg_Index := j;
2702: l_error_tbl(j).Msg_Data := l_temp;

Line 2716: Fnd_Msg_Pub.ADD;

2712: END IF;
2713:
2714: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_ORG');
2715: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
2716: Fnd_Msg_Pub.ADD;
2717:
2718: /* l_temp := 'ERROR: Visit Number ' || c_visit_rec.VISIT_NUMBER || ' : Organization Missing' ;
2719: l_error_tbl(j).Msg_Index := j;
2720: l_error_tbl(j).Msg_Data := l_temp;

Line 2734: Fnd_Msg_Pub.ADD;

2730: END IF;
2731:
2732: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_DEPT');
2733: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
2734: Fnd_Msg_Pub.ADD;
2735:
2736: /* l_temp := 'ERROR: Visit Number ' || c_visit_rec.VISIT_NUMBER || ' : Department Missing';
2737: l_error_tbl(j).Msg_Index := j;
2738: l_error_tbl(j).Msg_Data := l_temp;

Line 2753: Fnd_Msg_Pub.ADD;

2749: END IF;
2750:
2751: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_PLN_END_DT');
2752: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
2753: Fnd_Msg_Pub.ADD;
2754:
2755: /* l_temp := 'ERROR: Visit Number ' || c_visit_rec.VISIT_NUMBER || ' : Planned end date missing' ;
2756: l_error_tbl(j).Msg_Index := j;
2757: l_error_tbl(j).Msg_Data := l_temp;

Line 2776: Fnd_Msg_Pub.ADD;

2772: END IF;
2773:
2774: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_PRIM_PLAN');
2775: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
2776: Fnd_Msg_Pub.ADD;
2777: END IF;
2778: END IF;
2779:
2780: --sowsubra FP:Bug#5758829

Line 2806: Fnd_Msg_Pub.ADD;

2802: END IF;
2803:
2804: IF NVL(l_return_status, 'X') <> 'S' THEN
2805: Fnd_Message.SET_NAME('AHL','AHL_VWP_TYPE_CODE_NOT_EXISTS');
2806: Fnd_Msg_Pub.ADD;
2807: RAISE Fnd_Api.G_EXC_ERROR;
2808: END IF;
2809: END IF;
2810:

Line 2842: Fnd_Msg_Pub.ADD;

2838: IF l_count = 0 THEN
2839:
2840: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_INST_NO_ACTIVE');
2841: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
2842: Fnd_Msg_Pub.ADD;
2843: END IF;
2844: END IF;
2845: /*sowsubra - part-chgER - 18 July, 2007 - start*/
2846: ELSE

Line 2854: Fnd_Msg_Pub.ADD;

2850: 'Instance is no longer associated with this item, please check..');
2851: END IF;
2852: FND_MESSAGE.Set_Name('AHL','AHL_VWP_VST_INST_ITM_CHNGD');
2853: Fnd_Message.Set_Token('INST_NUM', c_inst_item_rec.instance_number);
2854: Fnd_Msg_Pub.ADD;
2855: END IF;
2856: /*sowsubra - part-chgER - end*/
2857: END IF; --c_visit_rec.item_instance_id IS NOT NULL
2858:

Line 2878: Fnd_Msg_Pub.ADD;

2874:
2875: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_INVALID_UC');
2876: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
2877: Fnd_Message.Set_Token('UNIT_NAME', c_uc_status_rec.name);
2878: Fnd_Msg_Pub.ADD;
2879: END IF;
2880: END IF;
2881:
2882: -- To check tasks must be associated to Active Item Instances.

Line 2918: Fnd_Msg_Pub.ADD;

2914:
2915: IF l_count = 0 THEN
2916: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_INST_NO_ACTIVE');
2917: Fnd_Message.Set_Token('TASK_NUMBER', c_task_rec.VISIT_TASK_NUMBER);
2918: Fnd_Msg_Pub.ADD;
2919: END IF;
2920: END IF;
2921: ELSE
2922: IF (l_log_statement >= l_log_current_level) THEN

Line 2930: FND_MSG_PUB.ADD;

2926: END IF;
2927: FND_MESSAGE.Set_Name('AHL','AHL_VWP_TSK_INST_ITM_CHNGD');
2928: Fnd_Message.Set_Token('INST_NUM', c_inst_item_rec.instance_number);
2929: Fnd_Message.Set_Token('TASK_NUMBER', c_task_rec.VISIT_TASK_NUMBER);
2930: FND_MSG_PUB.ADD;
2931: END IF;
2932: END IF; -- c_task_rec.instance_id is not null
2933: /*sowsubra - part-chgER - end*/
2934: END LOOP;

Line 2952: Fnd_Msg_Pub.ADD;

2948: 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
2949: --END: jeli added for bug 3777720
2950: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_INST_NO_FOUND');
2951: Fnd_Message.Set_Token('VISIT_NUMBER',c_visit_rec.VISIT_NUMBER);
2952: Fnd_Msg_Pub.ADD;
2953: END IF;
2954: END IF;
2955:
2956: IF c_visit_rec.Item_Instance_Id IS NOT NULL THEN

Line 2969: Fnd_Msg_Pub.ADD;

2965: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(p_visit_id, c_task_rec.instance_id) = FND_API.G_RET_STS_ERROR) THEN
2966: --END: jeli added for bug 3777720
2967: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_INST_NO_FOUND');
2968: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
2969: Fnd_Msg_Pub.ADD;
2970: END IF;
2971: END IF;
2972: END LOOP;
2973: CLOSE c_task;

Line 3118: Fnd_Msg_Pub.ADD;

3114: 'Check visit end time and plan end time');
3115: END IF;
3116: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_ACTDT_GT_PLNDT');
3117: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
3118: Fnd_Msg_Pub.ADD;
3119: /* l_temp := 'ERROR: Visit Number ' || c_visit_rec.VISIT_NUMBER || ' : Actual end date exceeds planned end date.' ;
3120: l_error_tbl(j).Msg_Index := j;
3121: l_error_tbl(j).Msg_Data := l_temp;
3122: j := j + 1; */

Line 3138: Fnd_Msg_Pub.ADD;

3134: END IF;
3135: -- By shbhanda 08/04/04 for TC changes
3136: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_ACTHR_GT_PLNHR');
3137: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
3138: Fnd_Msg_Pub.ADD;
3139: /* l_temp := 'ERROR: Visit Number ' || c_visit_rec.VISIT_NUMBER || ' : Actual end date hour exceeds planned end date hour.' ;
3140: l_error_tbl(j).Msg_Index := j;
3141: l_error_tbl(j).Msg_Data := l_temp;
3142: j := j + 1; */

Line 3150: Fnd_Msg_Pub.ADD;

3146: ELSE
3147: Fnd_Message.SET_NAME('AHL','AHL_VWP_PLN_END_DATE_NULL');
3148: Fnd_Message.Set_Token('VISIT_NUMBER',
3149: c_visit_rec.VISIT_NUMBER);
3150: Fnd_Msg_Pub.ADD;
3151:
3152: END IF;
3153: -- End by shbhanda on Feb03,2004 for 11.5.10 release--
3154:

Line 3174: Fnd_Msg_Pub.ADD;

3170: CLOSE c_check;
3171: IF l_count = 0 THEN
3172: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_ITEM_MR_RT'); --***** change this
3173: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
3174: Fnd_Msg_Pub.ADD;
3175: END IF;
3176: ELSE */
3177: IF c_task_rec.SERVICE_REQUEST_ID is null OR c_task_rec.UNIT_EFFECTIVITY_ID is null THEN
3178: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_SR_UE'); --***** change this

Line 3180: Fnd_Msg_Pub.ADD;

3176: ELSE */
3177: IF c_task_rec.SERVICE_REQUEST_ID is null OR c_task_rec.UNIT_EFFECTIVITY_ID is null THEN
3178: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_SR_UE'); --***** change this
3179: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
3180: Fnd_Msg_Pub.ADD;
3181: END IF; --Added by jeli on 07/26/04 when merging code otherwise it couldn't pass compilation
3182: END IF; --- End Changes made by VSUNDARA for Production - SR Integration
3183: END IF;
3184: END IF;

Line 3195: Fnd_Msg_Pub.ADD;

3191: 'Unassociated Task. Task Duration is null');
3192: END IF;
3193: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_NO_DURATION');
3194: Fnd_Message.Set_Token('TASK_NUMBER', c_task_rec.VISIT_TASK_NUMBER);
3195: Fnd_Msg_Pub.ADD;
3196: END IF; -- End for c_task_rec.task_type_code check
3197:
3198: -- To find all visit tasks must be associated to an item and item instance.
3199: IF c_task_rec.instance_id IS NULL THEN

Line 3207: Fnd_Msg_Pub.ADD;

3203: 'Check Task Serial');
3204: END IF;
3205: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_NO_SERIAL');
3206: Fnd_Message.Set_Token('TASK_NUMBER', c_task_rec.VISIT_TASK_NUMBER);
3207: Fnd_Msg_Pub.ADD;
3208: END IF;
3209:
3210: IF c_task_rec.inventory_item_id IS NULL THEN
3211: IF (l_log_statement >= l_log_current_level) THEN

Line 3218: Fnd_Msg_Pub.ADD;

3214: 'Task Inventory Item is null.');
3215: END IF;
3216: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_NO_ITEM');
3217: Fnd_Message.Set_Token('TASK_NUMBER', c_task_rec.VISIT_TASK_NUMBER);
3218: Fnd_Msg_Pub.ADD;
3219: END IF;
3220:
3221: -- Begin changes by rnahata for Bug 6448678
3222: IF (l_log_statement >= l_log_current_level) THEN

Line 3250: Fnd_Msg_Pub.ADD;

3246:
3247: IF l_count = 0 THEN
3248: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_DEPT_SHIFT');
3249: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
3250: Fnd_Msg_Pub.ADD;
3251: END IF;
3252:
3253: IF l_chk_flag = 'Y' THEN
3254: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_RT_EXISTS');

Line 3256: Fnd_Msg_Pub.ADD;

3252:
3253: IF l_chk_flag = 'Y' THEN
3254: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_RT_EXISTS');
3255: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
3256: Fnd_Msg_Pub.ADD;
3257: END IF;
3258:
3259: IF l_dept_flag = 'Y' THEN
3260: OPEN c_dept_tsk (p_visit_id);

Line 3280: Fnd_Msg_Pub.ADD;

3276: 'Task Dept Count ' || l_dept);
3277: END IF;
3278: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_DEPT_SHIFT');
3279: Fnd_Message.Set_Token('TASK_NUMBER', c_dept_tsk_rec.VISIT_TASK_NUMBER);
3280: Fnd_Msg_Pub.ADD;
3281: END IF;
3282: CLOSE c_dept;
3283: END IF;
3284: END LOOP;

Line 3299: Fnd_Msg_Pub.ADD;

3295: END IF;
3296:
3297: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_TASK_NULL');
3298: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
3299: Fnd_Msg_Pub.ADD;
3300:
3301: END IF;
3302: END IF;
3303:

Line 3304: l_msg_count := Fnd_Msg_Pub.count_msg;

3300:
3301: END IF;
3302: END IF;
3303:
3304: l_msg_count := Fnd_Msg_Pub.count_msg;
3305:
3306: IF (l_log_statement >= l_log_current_level) THEN
3307: fnd_log.string(l_log_statement,
3308: L_DEBUG_KEY,

Line 3312: 'Start calling Fnd_Msg_Pub.GET');

3308: L_DEBUG_KEY,
3309: 'After calling *count_msg* l_count = ' || l_msg_count);
3310: fnd_log.string(l_log_statement,
3311: L_DEBUG_KEY,
3312: 'Start calling Fnd_Msg_Pub.GET');
3313: END IF;
3314:
3315: j := 1;
3316:

Line 3325: FND_MSG_PUB.get (

3321: L_DEBUG_KEY,
3322: '------------------------------------------------');
3323: END IF;
3324:
3325: FND_MSG_PUB.get (
3326: p_encoded => FND_API.G_FALSE,
3327: p_data => l_data,
3328: p_msg_index_out => l_msg_count);
3329: IF (l_log_statement >= l_log_current_level) THEN

Line 3342: 'End calling Fnd_Msg_Pub.GET');

3338: END LOOP;
3339: IF (l_log_statement >= l_log_current_level) THEN
3340: fnd_log.string(l_log_statement,
3341: L_DEBUG_KEY,
3342: 'End calling Fnd_Msg_Pub.GET');
3343: END IF;
3344:
3345: x_error_tbl := l_error_tbl;
3346:

Line 3355: Fnd_Msg_Pub.count_and_get(

3351: IF Fnd_Api.To_Boolean (p_commit) THEN
3352: COMMIT WORK;
3353: END IF;
3354:
3355: Fnd_Msg_Pub.count_and_get(
3356: p_encoded => Fnd_Api.g_false,
3357: p_count => x_msg_count,
3358: p_data => x_msg_data
3359: );

Line 3371: Fnd_Msg_Pub.count_and_get (

3367: EXCEPTION
3368: WHEN Fnd_Api.g_exc_error THEN
3369: ROLLBACK TO Validate_Before_Production;
3370: x_return_status := Fnd_Api.g_ret_sts_error;
3371: Fnd_Msg_Pub.count_and_get (
3372: p_encoded => Fnd_Api.g_false,
3373: p_count => x_msg_count,
3374: p_data => x_msg_data
3375: );

Line 3379: Fnd_Msg_Pub.count_and_get (

3375: );
3376: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3377: ROLLBACK TO Validate_Before_Production;
3378: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3379: Fnd_Msg_Pub.count_and_get (
3380: p_encoded => Fnd_Api.g_false,
3381: p_count => x_msg_count,
3382: p_data => x_msg_data
3383: );

Line 3387: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)

3383: );
3384: WHEN OTHERS THEN
3385: ROLLBACK TO Validate_Before_Production;
3386: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3387: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3388: THEN
3389: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3390: END IF;
3391: Fnd_Msg_Pub.count_and_get (

Line 3389: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);

3385: ROLLBACK TO Validate_Before_Production;
3386: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3387: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3388: THEN
3389: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3390: END IF;
3391: Fnd_Msg_Pub.count_and_get (
3392: p_encoded => Fnd_Api.g_false,
3393: p_count => x_msg_count,

Line 3391: Fnd_Msg_Pub.count_and_get (

3387: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3388: THEN
3389: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3390: END IF;
3391: Fnd_Msg_Pub.count_and_get (
3392: p_encoded => Fnd_Api.g_false,
3393: p_count => x_msg_count,
3394: p_data => x_msg_data
3395: );

Line 4146: Fnd_Msg_Pub.initialize;

4142:
4143: -- Initialize message list if p_init_msg_list is set to TRUE.
4144: IF Fnd_Api.to_boolean(p_init_msg_list)
4145: THEN
4146: Fnd_Msg_Pub.initialize;
4147: END IF;
4148:
4149: -- Initialize API return status to success
4150: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

Line 4239: Fnd_Msg_Pub.ADD;

4235: l_visit_end_time := AHL_VWP_TIMES_PVT.get_visit_end_time(p_visit_id);
4236: IF l_visit_end_time > get_vst_status_and_date_rec.close_date_time THEN
4237: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_TSK_STDT_ADJU');
4238: Fnd_Message.Set_Token('VISIT_END_DATE', l_visit_end_time);
4239: Fnd_Msg_Pub.ADD;
4240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4241: END IF;
4242: END IF;
4243:

Line 4277: x_msg_count := FND_MSG_PUB.count_msg;

4273: END IF;
4274:
4275: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4276: -- Check Error Message stack.
4277: x_msg_count := FND_MSG_PUB.count_msg;
4278: RAISE FND_API.G_EXC_ERROR;
4279: END IF;
4280:
4281: -- Post 11.5.10

Line 4289: l_temp_msg_count := Fnd_Msg_Pub.count_msg;

4285: CLOSE c_visit;
4286: /*rnahata - B6447196 - end*/
4287:
4288: -- Begin changes by rnahata for Bug 6448678
4289: l_temp_msg_count := Fnd_Msg_Pub.count_msg;
4290:
4291: IF (l_log_statement >= l_log_current_level) THEN
4292: fnd_log.string(l_log_statement,
4293: L_DEBUG_KEY,

Line 4319: l_msg_count := Fnd_Msg_Pub.count_msg;

4315:
4316: END LOOP;
4317: CLOSE c_task;
4318:
4319: l_msg_count := Fnd_Msg_Pub.count_msg;
4320: IF (l_msg_count <> l_temp_msg_count) THEN
4321: IF (l_log_statement >= l_log_current_level) THEN
4322: fnd_log.string(l_log_statement,
4323: L_DEBUG_KEY,

Line 4861: x_msg_count := FND_MSG_PUB.count_msg;

4857: x_msg_count => l_msg_count,
4858: x_msg_data => l_msg_data);
4859:
4860: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4861: x_msg_count := FND_MSG_PUB.count_msg;
4862: IF (l_log_statement >= l_log_current_level) THEN
4863: fnd_log.string(l_log_statement,
4864: L_DEBUG_KEY,
4865: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);

Line 4997: Fnd_Msg_Pub.count_and_get(

4993: IF Fnd_Api.To_Boolean (p_commit) THEN
4994: COMMIT WORK;
4995: END IF;
4996:
4997: Fnd_Msg_Pub.count_and_get(
4998: p_encoded => Fnd_Api.g_false,
4999: p_count => x_msg_count,
5000: p_data => x_msg_data
5001: );

Line 5013: Fnd_Msg_Pub.count_and_get (

5009: EXCEPTION
5010: WHEN Fnd_Api.g_exc_error THEN
5011: ROLLBACK TO Push_to_Production;
5012: x_return_status := Fnd_Api.g_ret_sts_error;
5013: Fnd_Msg_Pub.count_and_get (
5014: p_encoded => Fnd_Api.g_false,
5015: p_count => x_msg_count,
5016: p_data => x_msg_data
5017: );

Line 5021: Fnd_Msg_Pub.count_and_get (

5017: );
5018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5019: ROLLBACK TO Push_to_Production;
5020: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5021: Fnd_Msg_Pub.count_and_get (
5022: p_encoded => Fnd_Api.g_false,
5023: p_count => x_msg_count,
5024: p_data => x_msg_data
5025: );

Line 5029: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)

5025: );
5026: WHEN OTHERS THEN
5027: ROLLBACK TO Push_to_Production;
5028: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5029: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5030: THEN
5031: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5032: END IF;
5033: Fnd_Msg_Pub.count_and_get (

Line 5031: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);

5027: ROLLBACK TO Push_to_Production;
5028: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5029: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5030: THEN
5031: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5032: END IF;
5033: Fnd_Msg_Pub.count_and_get (
5034: p_encoded => Fnd_Api.g_false,
5035: p_count => x_msg_count,

Line 5033: Fnd_Msg_Pub.count_and_get (

5029: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5030: THEN
5031: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5032: END IF;
5033: Fnd_Msg_Pub.count_and_get (
5034: p_encoded => Fnd_Api.g_false,
5035: p_count => x_msg_count,
5036: p_data => x_msg_data
5037: );

Line 5115: FND_MSG_PUB.Initialize;

5111: SAVEPOINT Release_Visit_Pvt;
5112:
5113: -- Initialize message list if p_init_msg_list is set to TRUE
5114: IF FND_API.To_Boolean(p_init_msg_list) THEN
5115: FND_MSG_PUB.Initialize;
5116: END IF;
5117: -- Initialize API return status to success
5118: x_return_status := FND_API.G_RET_STS_SUCCESS;
5119:

Line 5135: FND_MSG_PUB.ADD;

5131:
5132: -- Check for Required Parameters
5133: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
5134: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CST_INPUT_MISS');
5135: FND_MSG_PUB.ADD;
5136: IF (l_log_unexpected >= l_log_current_level)THEN
5137: fnd_log.string
5138: (
5139: l_log_unexpected,

Line 5175: x_msg_count := FND_MSG_PUB.count_msg;

5171: l_return_status := l_validate_error;
5172: x_return_status := l_validate_error;
5173: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5174: -- Check Error Message stack.
5175: x_msg_count := FND_MSG_PUB.count_msg;
5176:
5177: IF (l_log_statement >= l_log_current_level)THEN
5178: fnd_log.string ( l_log_statement, L_DEBUG_KEY,'Errors from Validate Before Production - '||x_msg_count);
5179: END IF;

Line 5206: x_msg_count := FND_MSG_PUB.count_msg;

5202: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After Calling aggregate_material_requirements - l_return_status = '||l_return_status);
5203: END IF;
5204:
5205: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5206: x_msg_count := FND_MSG_PUB.count_msg;
5207: IF (l_log_statement >= l_log_current_level)THEN
5208: fnd_log.string( l_log_statement,L_DEBUG_KEY,'Errors from aggregate_material_requirements: ' || x_msg_count);
5209: END IF;
5210: RAISE Fnd_Api.g_exc_error;

Line 5237: x_msg_count := FND_MSG_PUB.count_msg;

5233: END IF;
5234:
5235: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5236: -- Check Error Message stack.
5237: x_msg_count := FND_MSG_PUB.count_msg;
5238: IF (l_log_statement >= l_log_current_level)THEN
5239: fnd_log.string( l_log_statement,L_DEBUG_KEY, 'Errors from Push to Production: ' || x_msg_count );
5240: END IF;
5241: RAISE Fnd_Api.g_exc_error;

Line 5265: x_msg_count := FND_MSG_PUB.count_msg;

5261: END IF;
5262:
5263: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5264: -- Check Error Message stack.
5265: x_msg_count := FND_MSG_PUB.count_msg;
5266: IF (l_log_statement >= l_log_current_level)THEN
5267: fnd_log.string( l_log_statement,L_DEBUG_KEY,'Errors from delete_simul_visits: '||x_msg_count);
5268: END IF;
5269: RAISE Fnd_Api.g_exc_error;

Line 5287: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

5283: EXCEPTION
5284: WHEN FND_API.G_EXC_ERROR THEN
5285: x_return_status := FND_API.G_RET_STS_ERROR;
5286: ROLLBACK TO Release_Visit_Pvt;
5287: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
5288: p_data => x_msg_data,
5289: p_encoded => fnd_api.g_false);
5290:
5291:

Line 5295: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

5291:
5292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5294: ROLLBACK TO Release_Visit_Pvt;
5295: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
5296: p_data => x_msg_data,
5297: p_encoded => fnd_api.g_false);
5298:
5299:

Line 5303: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

5299:
5300: WHEN OTHERS THEN
5301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5302: ROLLBACK TO Release_Visit_Pvt;
5303: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5304: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5305: p_procedure_name => 'Release_Visit',
5306: p_error_text => SUBSTR(SQLERRM,1,500));
5307: END IF;

Line 5304: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,

5300: WHEN OTHERS THEN
5301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5302: ROLLBACK TO Release_Visit_Pvt;
5303: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5304: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5305: p_procedure_name => 'Release_Visit',
5306: p_error_text => SUBSTR(SQLERRM,1,500));
5307: END IF;
5308: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

Line 5308: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

5304: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5305: p_procedure_name => 'Release_Visit',
5306: p_error_text => SUBSTR(SQLERRM,1,500));
5307: END IF;
5308: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
5309: p_data => x_msg_data,
5310: p_encoded => fnd_api.g_false);
5311:
5312: END Release_Visit;

Line 5390: FND_MSG_PUB.Initialize;

5386: SAVEPOINT Release_Tasks_Pvt;
5387:
5388: -- Initialize message list if p_init_msg_list is set to TRUE
5389: IF FND_API.To_Boolean(p_init_msg_list) THEN
5390: FND_MSG_PUB.Initialize;
5391: END IF;
5392:
5393: -- Initialize API return status to success
5394: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 5413: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

5409: CLOSE c_validate_visit;
5410:
5411: --Validate visit
5412: IF (nvl(l_validate_visit,0) = 0) THEN
5413: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
5414: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_INVALID_VST');
5415: FND_MESSAGE.SET_TOKEN('VISIT_ID', p_visit_id);
5416: FND_MSG_PUB.ADD;
5417: END IF;

Line 5416: FND_MSG_PUB.ADD;

5412: IF (nvl(l_validate_visit,0) = 0) THEN
5413: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
5414: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_INVALID_VST');
5415: FND_MESSAGE.SET_TOKEN('VISIT_ID', p_visit_id);
5416: FND_MSG_PUB.ADD;
5417: END IF;
5418: RAISE FND_API.G_EXC_ERROR;
5419: END IF;
5420:

Line 5425: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

5421: --Check if the visit is in planning or partially released status
5422: OPEN c_visit_info(p_visit_id);
5423: FETCH c_visit_info INTO c_visit_info_rec;
5424: IF c_visit_info%NOTFOUND THEN
5425: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
5426: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_VST_STATUS_INVALID');
5427: FND_MSG_PUB.ADD;
5428: END IF;
5429: CLOSE c_visit_info;

Line 5427: FND_MSG_PUB.ADD;

5423: FETCH c_visit_info INTO c_visit_info_rec;
5424: IF c_visit_info%NOTFOUND THEN
5425: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
5426: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_VST_STATUS_INVALID');
5427: FND_MSG_PUB.ADD;
5428: END IF;
5429: CLOSE c_visit_info;
5430: RAISE FND_API.G_EXC_ERROR;
5431: END IF;

Line 5435: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

5431: END IF;
5432: CLOSE c_visit_info;
5433: --If visit_id is null
5434: ELSE
5435: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
5436: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_VISIT_NULL');
5437: FND_MSG_PUB.ADD;
5438: END IF;
5439: RAISE FND_API.G_EXC_ERROR;

Line 5437: FND_MSG_PUB.ADD;

5433: --If visit_id is null
5434: ELSE
5435: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
5436: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_VISIT_NULL');
5437: FND_MSG_PUB.ADD;
5438: END IF;
5439: RAISE FND_API.G_EXC_ERROR;
5440: END IF;
5441:

Line 5444: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

5440: END IF;
5441:
5442: --No tasks selected
5443: IF (p_tasks_tbl.COUNT = 0) THEN
5444: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
5445: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_NO_TASK_SEL');
5446: FND_MSG_PUB.ADD;
5447: END IF;
5448: RAISE FND_API.G_EXC_ERROR;

Line 5446: FND_MSG_PUB.ADD;

5442: --No tasks selected
5443: IF (p_tasks_tbl.COUNT = 0) THEN
5444: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
5445: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_NO_TASK_SEL');
5446: FND_MSG_PUB.ADD;
5447: END IF;
5448: RAISE FND_API.G_EXC_ERROR;
5449: END IF;
5450:

Line 5479: x_msg_count := FND_MSG_PUB.count_msg;

5475: END IF;
5476:
5477: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS OR l_error_tbl_type.COUNT > 0) THEN
5478: -- Check Error Message stack.
5479: x_msg_count := FND_MSG_PUB.count_msg;
5480: IF (l_log_statement >= l_log_current_level) THEN
5481: fnd_log.string(l_log_statement,
5482: L_DEBUG_KEY,
5483: 'Errors from VALIDATE_BEFORE_PRODUCTION. Message count: ' || x_msg_count);

Line 5516: x_msg_count := FND_MSG_PUB.count_msg;

5512: END IF;
5513:
5514: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5515: -- Check Error Message stack.
5516: x_msg_count := FND_MSG_PUB.count_msg;
5517:
5518: IF (l_log_statement >= l_log_current_level) THEN
5519: fnd_log.string(l_log_statement,
5520: L_DEBUG_KEY,

Line 5561: x_msg_count := FND_MSG_PUB.count_msg;

5557: l_tasks_tbl(i).visit_task_id || '. Return Status = '|| l_return_status);
5558: END IF;
5559:
5560: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5561: x_msg_count := FND_MSG_PUB.count_msg;
5562: IF (l_log_statement >= l_log_current_level) THEN
5563: fnd_log.string(l_log_statement,
5564: L_DEBUG_KEY,
5565: 'Errors from AGGREGATE_TASK_MATERIAL_REQRS. Message count: ' || x_msg_count);

Line 5606: x_msg_count := FND_MSG_PUB.count_msg;

5602: l_tasks_tbl(i).visit_task_id ||'. Return Status = '|| l_return_status);
5603: END IF;
5604:
5605: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5606: x_msg_count := FND_MSG_PUB.count_msg;
5607: IF (l_log_statement >= l_log_current_level) THEN
5608: fnd_log.string(l_log_statement,
5609: L_DEBUG_KEY,
5610: 'Errors from ADJUST_TASK_TIMES. Message count: ' || x_msg_count);

Line 5621: l_temp_msg_count := Fnd_Msg_Pub.count_msg;

5617: END IF;
5618: END LOOP;
5619: END IF; --partially released
5620:
5621: l_temp_msg_count := Fnd_Msg_Pub.count_msg;
5622:
5623: --Validate the MR/Route dates for all the tasks
5624: FOR i IN l_tasks_tbl.FIRST..l_tasks_tbl.LAST
5625: LOOP

Line 5646: l_msg_count := Fnd_Msg_Pub.count_msg;

5642: 'After calling VALIDATE_MR_ROUTE_DATE for task Id: ' ||l_tasks_tbl(i).visit_task_id || ' and l_msg_count - ' || l_msg_count);
5643: END IF;
5644: END LOOP;
5645:
5646: l_msg_count := Fnd_Msg_Pub.count_msg;
5647: IF (l_msg_count <> l_temp_msg_count) THEN
5648: IF (l_log_statement >= l_log_current_level) THEN
5649: fnd_log.string(l_log_statement,L_DEBUG_KEY,
5650: 'Errors from VALIDATE_MR_ROUTE_DATE. Message count: ' || l_msg_count);

Line 5682: x_msg_count := FND_MSG_PUB.count_msg;

5678: 'After calling PUSH_TASKS_TO_PRODUCTION. Return Status = '|| l_return_status);
5679: END IF;
5680:
5681: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5682: x_msg_count := FND_MSG_PUB.count_msg;
5683: IF (l_log_statement >= l_log_current_level) THEN
5684: fnd_log.string(l_log_statement,
5685: L_DEBUG_KEY,
5686: 'Errors from PUSH_TASKS_TO_PRODUCTION. Message count: ' || x_msg_count);

Line 5719: x_msg_count := FND_MSG_PUB.count_msg;

5715: 'After calling DELETE_SIMUL_VISITS for visit id ' ||p_visit_id||'. Return Status = '|| l_return_status);
5716: END IF;
5717:
5718: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5719: x_msg_count := FND_MSG_PUB.count_msg;
5720: IF (l_log_statement >= l_log_current_level) THEN
5721: fnd_log.string(l_log_statement,
5722: L_DEBUG_KEY,
5723: 'Errors from DELETE_SIMUL_TASKS. Message count: ' || x_msg_count);

Line 5737: Fnd_Msg_Pub.count_and_get(

5733: IF FND_API.TO_BOOLEAN(p_commit) THEN
5734: COMMIT WORK;
5735: END IF;
5736:
5737: Fnd_Msg_Pub.count_and_get(
5738: p_encoded => Fnd_Api.g_false,
5739: p_count => x_msg_count,
5740: p_data => x_msg_data
5741: );

Line 5753: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

5749: EXCEPTION
5750: WHEN FND_API.G_EXC_ERROR THEN
5751: x_return_status := FND_API.G_RET_STS_ERROR;
5752: ROLLBACK TO Release_Tasks_Pvt;
5753: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
5754: p_data => x_msg_data,
5755: p_encoded => fnd_api.g_false);
5756:
5757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 5760: Fnd_Msg_Pub.count_and_get (

5756:
5757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5758: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5759: ROLLBACK TO Release_Tasks_Pvt;
5760: Fnd_Msg_Pub.count_and_get (
5761: p_encoded => Fnd_Api.g_false,
5762: p_count => x_msg_count,
5763: p_data => x_msg_data);
5764:

Line 5768: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

5764:
5765: WHEN OTHERS THEN
5766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5767: ROLLBACK TO Release_Tasks_Pvt;
5768: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5769: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5770: p_procedure_name => 'Release_Tasks',
5771: p_error_text => SUBSTR(SQLERRM,1,500));
5772: END IF;

Line 5769: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,

5765: WHEN OTHERS THEN
5766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5767: ROLLBACK TO Release_Tasks_Pvt;
5768: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5769: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5770: p_procedure_name => 'Release_Tasks',
5771: p_error_text => SUBSTR(SQLERRM,1,500));
5772: END IF;
5773: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

Line 5773: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

5769: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5770: p_procedure_name => 'Release_Tasks',
5771: p_error_text => SUBSTR(SQLERRM,1,500));
5772: END IF;
5773: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
5774: p_data => x_msg_data,
5775: p_encoded => fnd_api.g_false);
5776:
5777: END Release_Tasks;

Line 5904: x_msg_count := FND_MSG_PUB.count_msg;

5900: --chk if the visit is released/partially released.
5901: OPEN c_fet_master_wo (p_visit_id);
5902: FETCH c_fet_master_wo INTO c_mst_wo_visit_rec;
5903: IF c_fet_master_wo%NOTFOUND THEN
5904: x_msg_count := FND_MSG_PUB.count_msg;
5905: IF (l_log_statement >= l_log_current_level) THEN
5906: fnd_log.string(l_log_statement,
5907: L_DEBUG_KEY,
5908: 'Visit not released: ' || c_tsk_dtls_rec.visit_task_number);

Line 5918: x_msg_count := FND_MSG_PUB.count_msg;

5914: LOOP
5915: OPEN c_task_dtls(p_tasks_tbl(i).visit_task_id);
5916: FETCH c_task_dtls INTO c_tsk_dtls_rec;
5917: IF c_task_dtls%NOTFOUND THEN
5918: x_msg_count := FND_MSG_PUB.count_msg;
5919: IF (l_log_statement >= l_log_current_level) THEN
5920: fnd_log.string(l_log_statement,
5921: L_DEBUG_KEY,
5922: 'Task is either not in planning status or Invalid - ' ||

Line 5928: FND_MSG_PUB.ADD;

5924: END IF;
5925: CLOSE c_task_dtls;
5926: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_INVALID_TSK_ID');
5927: Fnd_Message.SET_TOKEN('TASK_ID', p_tasks_tbl(i).visit_task_id);
5928: FND_MSG_PUB.ADD;
5929: RAISE FND_API.G_EXC_ERROR;
5930: END IF;
5931: CLOSE c_task_dtls;
5932:

Line 5937: x_msg_count := FND_MSG_PUB.count_msg;

5933: /* if the visit is partially released, then the planned end time for the wo should not be
5934: exceed the scheduled end time */
5935: IF (c_mst_wo_visit_rec.scheduled_completion_date IS NOT NULL) AND
5936: (c_tsk_dtls_rec.end_date_time > c_mst_wo_visit_rec.scheduled_completion_date) THEN
5937: x_msg_count := FND_MSG_PUB.count_msg;
5938: IF (l_log_statement >= l_log_current_level) THEN
5939: fnd_log.string(l_log_statement,
5940: L_DEBUG_KEY,
5941: 'Planned end time of the task is exceeding the scheduled completion time of the master WO: ' ||

Line 5945: FND_MSG_PUB.ADD;

5941: 'Planned end time of the task is exceeding the scheduled completion time of the master WO: ' ||
5942: c_tsk_dtls_rec.visit_task_number);
5943: END IF;
5944: FND_MESSAGE.SET_NAME(G_PM_PRODUCT_CODE,'AHL_VWP_PET_EXCD_SCT');
5945: FND_MSG_PUB.ADD;
5946: RAISE FND_API.G_EXC_ERROR;
5947: END IF;
5948:
5949: parent_task_found_flag := FALSE;

Line 6014: x_msg_count := FND_MSG_PUB.count_msg;

6010: END IF;
6011: END LOOP;
6012:
6013: IF NOT(parent_task_found_flag) THEN --if summary task is not selected then throw an error
6014: x_msg_count := FND_MSG_PUB.count_msg;
6015: IF (l_log_statement >= l_log_current_level) THEN
6016: fnd_log.string(l_log_statement,
6017: L_DEBUG_KEY,
6018: 'Select the summary task for the task: ' ||

Line 6023: FND_MSG_PUB.ADD;

6019: c_tsk_dtls_rec.visit_task_number);
6020: END IF;
6021: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_SEL_SUM_TSK');
6022: Fnd_Message.SET_TOKEN('TASK_NUMBER', c_tsk_dtls_rec.visit_task_number);
6023: FND_MSG_PUB.ADD;
6024: RAISE FND_API.G_EXC_ERROR;
6025: END IF;
6026:
6027: lp_originating_task_id := c_summary_tsk_rec.originating_task_id;

Line 6059: x_msg_count := FND_MSG_PUB.count_msg;

6055: OPEN get_parent_task_dependencies (x_tasks_tbl(i).visit_task_id);
6056: LOOP
6057: FETCH get_parent_task_dependencies INTO c_par_tech_dep_rec;
6058: IF get_parent_task_dependencies%NOTFOUND THEN
6059: x_msg_count := FND_MSG_PUB.count_msg;
6060: IF (l_log_statement >= l_log_current_level) THEN
6061: fnd_log.string(l_log_statement,
6062: L_DEBUG_KEY,
6063: 'Parent Technical task dependency not found for the task - ' ||

Line 6077: x_msg_count := FND_MSG_PUB.count_msg;

6073: END IF;
6074: END LOOP;
6075:
6076: IF NOT(parent_task) THEN --parent task not selected
6077: x_msg_count := FND_MSG_PUB.count_msg;
6078: IF (l_log_statement >= l_log_current_level) THEN
6079: fnd_log.string(l_log_statement,
6080: L_DEBUG_KEY,
6081: 'Parent tasks on which the task ' ||

Line 6089: FND_MSG_PUB.ADD;

6085: END IF;
6086: CLOSE get_parent_task_dependencies;
6087: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_SEL_TECH_DEP');
6088: Fnd_Message.SET_TOKEN('TASK_NUMBER', x_tasks_tbl(i).visit_task_number);
6089: FND_MSG_PUB.ADD;
6090: RAISE FND_API.G_EXC_ERROR;
6091: END IF; --parent task not selected
6092: END IF;
6093: END LOOP; --loop through the parent dependent records

Line 6100: x_msg_count := FND_MSG_PUB.count_msg;

6096: OPEN get_child_task_dependencies (x_tasks_tbl(i).visit_task_id);
6097: LOOP --loop through the child dependent records
6098: FETCH get_child_task_dependencies INTO c_ch_tech_dep_rec;
6099: IF get_child_task_dependencies%NOTFOUND THEN
6100: x_msg_count := FND_MSG_PUB.count_msg;
6101: IF (l_log_statement >= l_log_current_level) THEN
6102: fnd_log.string(l_log_statement,
6103: L_DEBUG_KEY,
6104: 'Child Technical task dependency not found for the task - ' || x_tasks_tbl(i).visit_task_number);

Line 6117: x_msg_count := FND_MSG_PUB.count_msg;

6113: END IF;
6114: END LOOP;
6115:
6116: IF NOT(child_task) THEN
6117: x_msg_count := FND_MSG_PUB.count_msg;
6118: IF (l_log_statement >= l_log_current_level) THEN
6119: fnd_log.string(l_log_statement,
6120: L_DEBUG_KEY,
6121: 'Child tasks on which the task ' || x_tasks_tbl(i).visit_task_number || ' is technically dependent has not been selected.'||

Line 6127: FND_MSG_PUB.ADD;

6123: END IF;
6124: CLOSE get_child_task_dependencies;
6125: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_SEL_TECH_DEP');
6126: Fnd_Message.SET_TOKEN('TASK_NUMBER', x_tasks_tbl(i).visit_task_number);
6127: FND_MSG_PUB.ADD;
6128: RAISE FND_API.G_EXC_ERROR;
6129: END IF; --curr task not selected
6130: END IF;
6131: END LOOP; --loop through the child dependent records

Line 6146: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

6142: EXCEPTION
6143: WHEN FND_API.G_EXC_ERROR THEN
6144: x_return_status := FND_API.G_RET_STS_ERROR;
6145: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
6146: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
6147: p_data => x_msg_data,
6148: p_encoded => fnd_api.g_false);
6149:
6150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 6153: Fnd_Msg_Pub.count_and_get (

6149:
6150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6151: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6152: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
6153: Fnd_Msg_Pub.count_and_get (
6154: p_encoded => Fnd_Api.g_false,
6155: p_count => x_msg_count,
6156: p_data => x_msg_data);
6157:

Line 6161: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

6157:
6158: WHEN OTHERS THEN
6159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6160: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
6161: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6162: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6163: p_procedure_name => 'Validate_tasks_bef_production',
6164: p_error_text => SUBSTR(SQLERRM,1,500));
6165: END IF;

Line 6162: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,

6158: WHEN OTHERS THEN
6159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6160: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
6161: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6162: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6163: p_procedure_name => 'Validate_tasks_bef_production',
6164: p_error_text => SUBSTR(SQLERRM,1,500));
6165: END IF;
6166: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

Line 6166: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

6162: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6163: p_procedure_name => 'Validate_tasks_bef_production',
6164: p_error_text => SUBSTR(SQLERRM,1,500));
6165: END IF;
6166: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
6167: p_data => x_msg_data,
6168: p_encoded => fnd_api.g_false);
6169:
6170: END Validate_tasks_bef_production;

Line 6399: FND_MSG_PUB.Initialize;

6395: SAVEPOINT Push_tasks_to_prodn_pvt;
6396:
6397: -- Initialize message list if p_init_msg_list is set to TRUE
6398: IF FND_API.To_Boolean(p_init_msg_list) THEN
6399: FND_MSG_PUB.Initialize;
6400: END IF;
6401:
6402: -- Initialize API return status to success
6403: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 6437: x_msg_count := FND_MSG_PUB.count_msg;

6433: 'After calling Integrate_to_Projects. l_return_status = ' || l_return_status);
6434: END IF;
6435:
6436: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6437: x_msg_count := FND_MSG_PUB.count_msg;
6438: IF (l_log_statement >= l_log_current_level) THEN
6439: fnd_log.string(l_log_statement,
6440: L_DEBUG_KEY,
6441: 'Errors from Integrate_to_Projects. Message count: ' || x_msg_count);

Line 6815: x_msg_count := FND_MSG_PUB.count_msg;

6811: p_visit_id||', l_return_status: '|| l_return_status);
6812: END IF;
6813:
6814: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6815: x_msg_count := FND_MSG_PUB.count_msg;
6816: IF (l_log_statement >= l_log_current_level) THEN
6817: fnd_log.string(l_log_statement,
6818: L_DEBUG_KEY,
6819: 'Errors from PROCESS_JOBS. Message count: ' || x_msg_count);

Line 6853: x_msg_count := FND_MSG_PUB.count_msg;

6849: x_msg_count => l_msg_count,
6850: x_msg_data => l_msg_data);
6851:
6852: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6853: x_msg_count := FND_MSG_PUB.count_msg;
6854: IF (l_log_statement >= l_log_current_level) THEN
6855: fnd_log.string(l_log_statement,
6856: L_DEBUG_KEY,
6857: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);

Line 6929: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

6925: EXCEPTION
6926: WHEN FND_API.G_EXC_ERROR THEN
6927: x_return_status := FND_API.G_RET_STS_ERROR;
6928: ROLLBACK TO Push_tasks_to_prodn_pvt;
6929: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
6930: p_data => x_msg_data,
6931: p_encoded => fnd_api.g_false);
6932:
6933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 6936: Fnd_Msg_Pub.count_and_get (

6932:
6933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6934: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6935: ROLLBACK TO Push_tasks_to_prodn_pvt;
6936: Fnd_Msg_Pub.count_and_get (
6937: p_encoded => Fnd_Api.g_false,
6938: p_count => x_msg_count,
6939: p_data => x_msg_data);
6940:

Line 6944: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

6940:
6941: WHEN OTHERS THEN
6942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6943: ROLLBACK TO Push_tasks_to_prodn_pvt;
6944: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6945: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6946: p_procedure_name => 'Push_tasks_to_production',
6947: p_error_text => SUBSTR(SQLERRM,1,500));
6948: END IF;

Line 6945: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,

6941: WHEN OTHERS THEN
6942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6943: ROLLBACK TO Push_tasks_to_prodn_pvt;
6944: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6945: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6946: p_procedure_name => 'Push_tasks_to_production',
6947: p_error_text => SUBSTR(SQLERRM,1,500));
6948: END IF;
6949: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

Line 6949: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

6945: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6946: p_procedure_name => 'Push_tasks_to_production',
6947: p_error_text => SUBSTR(SQLERRM,1,500));
6948: END IF;
6949: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
6950: p_data => x_msg_data,
6951: p_encoded => fnd_api.g_false);
6952:
6953: END Push_tasks_to_production;

Line 6997: Fnd_Msg_Pub.ADD;

6993: l_unit_name := ahl_util_uc_pkg.get_unit_name(item_instance_id);
6994: Fnd_Message.SET_NAME('AHL','AHL_VWP_VLD_HDR_UNIT_QRNT');
6995: -- The Unit for this Visit (UNIT_NAME-1) is quarantined.
6996: Fnd_Message.Set_Token('UNIT_NAME',l_unit_name);
6997: Fnd_Msg_Pub.ADD;
6998:
6999: IF (l_log_statement >= l_log_current_level)THEN
7000: fnd_log.string (l_log_statement,L_DEBUG_KEY,'Unit : '||l_unit_name || ' is quarantined, Error message added');
7001: END IF;

Line 7014: Fnd_Msg_Pub.ADD;

7010: IF l_quarantined = FND_API.G_TRUE THEN
7011: Fnd_Message.SET_NAME('AHL','AHL_VWP_VLD_TSK_UNIT_QRNT');
7012: -- The Unit for the Task (UNIT_NAME-1) is quarantined.
7013: Fnd_Message.Set_Token('TASK_NUMBER',l_task_number);
7014: Fnd_Msg_Pub.ADD;
7015: IF (l_log_statement >= l_log_current_level)THEN
7016: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Unit for this task: '||l_task_number||' is quarantined');
7017: END IF;
7018: END IF; -- l_quarantined not true

Line 7169: FND_MSG_PUB.Initialize;

7165: SAVEPOINT Release_MR;
7166:
7167: -- Initialize message list if p_init_msg_list is set to TRUE
7168: IF FND_API.To_Boolean( p_init_msg_list) THEN
7169: FND_MSG_PUB.Initialize;
7170: END IF;
7171:
7172: -- Initialize API return status to success
7173: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 7191: FND_MSG_PUB.ADD;

7187:
7188: -- Check for Required Parameters
7189: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
7190: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CST_INPUT_MISS');
7191: FND_MSG_PUB.ADD;
7192: IF (l_log_unexpected >= l_log_current_level)THEN
7193: fnd_log.string(l_log_unexpected,L_DEBUG_KEY,'Visit id is mandatory but found null in input');
7194: END IF;
7195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 7200: FND_MSG_PUB.ADD;

7196: END IF;
7197:
7198: IF(p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM) THEN
7199: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_UE_INPUT_MISS');
7200: FND_MSG_PUB.ADD;
7201: IF (l_log_unexpected >= l_log_current_level)THEN
7202: fnd_log.string(l_log_unexpected,L_DEBUG_KEY,'Unit Effectivity id is mandatory but found null in input ');
7203: END IF;
7204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 7230: x_msg_count := FND_MSG_PUB.count_msg;

7226: END IF;
7227:
7228: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7229: -- Check Error Message stack.
7230: x_msg_count := FND_MSG_PUB.count_msg;
7231: IF (l_log_statement >= l_log_current_level)THEN
7232: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Validate Before Production' || x_msg_count);
7233: END IF;
7234: RAISE Fnd_Api.g_exc_error;

Line 7264: Fnd_Msg_Pub.ADD;

7260: l_visit_end_time := AHL_VWP_TIMES_PVT.get_visit_end_time(c_visit_rec.visit_id);
7261: IF l_visit_end_time > c_visit_rec.close_date_time THEN
7262: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_TSK_STDT_ADJU');
7263: Fnd_Message.Set_Token('VISIT_END_DATE', l_visit_end_time);
7264: Fnd_Msg_Pub.ADD;
7265: x_return_status := l_validate_error;
7266: END IF;
7267: END IF;
7268: END IF;

Line 7289: FND_MSG_PUB.ADD;

7285: x_return_status := l_validate_error;
7286: -- Error Message
7287: Fnd_Message.SET_NAME('AHL','AHL_VWP_DATE_EXCD_WO_DATE');
7288: Fnd_Message.Set_Token('VISIT_END_DATE', l_visit_end_time);
7289: FND_MSG_PUB.ADD;
7290: END IF;
7291: END IF;
7292:
7293: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

Line 7298: x_msg_count := FND_MSG_PUB.count_msg;

7294: -- Per MEL/CDL requirement, if tasks are sucessfully created but fail to be pushed
7295: -- to production, then they will stay in 'PLANNING' status.
7296: IF p_module_type <>'PROD' THEN
7297: -- Check Error Message stack.
7298: x_msg_count := FND_MSG_PUB.count_msg;
7299: IF (l_log_statement >= l_log_current_level)THEN
7300: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Validate Before Production'|| x_msg_count);
7301: END IF;
7302: RAISE Fnd_Api.g_exc_error;

Line 7328: x_msg_count := FND_MSG_PUB.count_msg;

7324: END IF;
7325:
7326: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7327: -- Check Error Message stack.
7328: x_msg_count := FND_MSG_PUB.count_msg;
7329: IF (l_log_statement >= l_log_current_level)THEN
7330: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Push to Production: ' || x_msg_count);
7331: END IF;
7332: RAISE Fnd_Api.g_exc_error;

Line 7346: Fnd_Msg_Pub.count_and_get(

7342: IF FND_API.TO_BOOLEAN(p_commit) THEN
7343: COMMIT WORK;
7344: END IF;
7345:
7346: Fnd_Msg_Pub.count_and_get(
7347: p_encoded => Fnd_Api.g_false,
7348: p_count => x_msg_count,
7349: p_data => x_msg_data);
7350:

Line 7359: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

7355: EXCEPTION
7356: WHEN FND_API.G_EXC_ERROR THEN
7357: x_return_status := FND_API.G_RET_STS_ERROR;
7358: ROLLBACK TO Release_MR;
7359: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7360: p_data => x_msg_data,
7361: p_encoded => fnd_api.g_false);
7362:
7363:

Line 7367: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

7363:
7364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7366: ROLLBACK TO Release_MR;
7367: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7368: p_data => x_msg_data,
7369: p_encoded => fnd_api.g_false);
7370:
7371:

Line 7375: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

7371:
7372: WHEN OTHERS THEN
7373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7374: ROLLBACK TO Release_MR;
7375: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7376: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
7377: p_procedure_name => 'Release_MR',
7378: p_error_text => SUBSTR(SQLERRM,1,500));
7379: END IF;

Line 7376: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,

7372: WHEN OTHERS THEN
7373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7374: ROLLBACK TO Release_MR;
7375: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7376: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
7377: p_procedure_name => 'Release_MR',
7378: p_error_text => SUBSTR(SQLERRM,1,500));
7379: END IF;
7380: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

Line 7380: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

7376: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
7377: p_procedure_name => 'Release_MR',
7378: p_error_text => SUBSTR(SQLERRM,1,500));
7379: END IF;
7380: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7381: p_data => x_msg_data,
7382: p_encoded => fnd_api.g_false);
7383:
7384: END Release_MR;

Line 7842: Fnd_Msg_Pub.initialize;

7838: END IF;
7839:
7840: -- Initialize message list if p_init_msg_list is set to TRUE.
7841: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
7842: Fnd_Msg_Pub.initialize;
7843: END IF;
7844:
7845: -- Initialize API return status to success
7846: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

Line 7882: x_msg_count := FND_MSG_PUB.count_msg;

7878: END IF;
7879:
7880: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7881: -- Check Error Message stack.
7882: x_msg_count := FND_MSG_PUB.count_msg;
7883: RAISE Fnd_Api.g_exc_error;
7884: END IF;
7885:
7886: OPEN c_visit (p_visit_id);

Line 8121: Fnd_Msg_Pub.count_and_get(

8117: IF Fnd_Api.To_Boolean (p_commit) THEN
8118: COMMIT WORK;
8119: END IF;
8120:
8121: Fnd_Msg_Pub.count_and_get(
8122: p_encoded => Fnd_Api.g_false,
8123: p_count => x_msg_count,
8124: p_data => x_msg_data
8125: );

Line 8135: Fnd_Msg_Pub.count_and_get (

8131: EXCEPTION
8132: WHEN Fnd_Api.g_exc_error THEN
8133: ROLLBACK TO Push_MR_to_Production;
8134: x_return_status := Fnd_Api.g_ret_sts_error;
8135: Fnd_Msg_Pub.count_and_get (
8136: p_encoded => Fnd_Api.g_false,
8137: p_count => x_msg_count,
8138: p_data => x_msg_data
8139: );

Line 8143: Fnd_Msg_Pub.count_and_get (

8139: );
8140: WHEN Fnd_Api.g_exc_unexpected_error THEN
8141: ROLLBACK TO Push_MR_to_Production;
8142: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8143: Fnd_Msg_Pub.count_and_get (
8144: p_encoded => Fnd_Api.g_false,
8145: p_count => x_msg_count,
8146: p_data => x_msg_data
8147: );

Line 8151: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)

8147: );
8148: WHEN OTHERS THEN
8149: ROLLBACK TO Push_MR_to_Production;
8150: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8151: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8152: THEN
8153: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8154: END IF;
8155: Fnd_Msg_Pub.count_and_get (

Line 8153: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);

8149: ROLLBACK TO Push_MR_to_Production;
8150: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8151: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8152: THEN
8153: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8154: END IF;
8155: Fnd_Msg_Pub.count_and_get (
8156: p_encoded => Fnd_Api.g_false,
8157: p_count => x_msg_count,

Line 8155: Fnd_Msg_Pub.count_and_get (

8151: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8152: THEN
8153: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8154: END IF;
8155: Fnd_Msg_Pub.count_and_get (
8156: p_encoded => Fnd_Api.g_false,
8157: p_count => x_msg_count,
8158: p_data => x_msg_data
8159: );

Line 8256: Fnd_Msg_Pub.initialize;

8252: END IF;
8253:
8254: -- Initialize message list if p_init_msg_list is set to TRUE.
8255: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
8256: Fnd_Msg_Pub.initialize;
8257: END IF;
8258:
8259: -- Initialize API return status to success
8260: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

Line 8395: IF (fnd_msg_pub.count_msg > 0 ) THEN

8391: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.ADD_TASK - l_return_status : '||l_return_status);
8392: END IF;
8393:
8394: IF (l_return_status <> 'S') THEN
8395: IF (fnd_msg_pub.count_msg > 0 ) THEN
8396: FOR i IN 1..fnd_msg_pub.count_msg
8397: LOOP
8398: fnd_msg_pub.get(p_msg_index => i,
8399: p_encoded => 'F',

Line 8396: FOR i IN 1..fnd_msg_pub.count_msg

8392: END IF;
8393:
8394: IF (l_return_status <> 'S') THEN
8395: IF (fnd_msg_pub.count_msg > 0 ) THEN
8396: FOR i IN 1..fnd_msg_pub.count_msg
8397: LOOP
8398: fnd_msg_pub.get(p_msg_index => i,
8399: p_encoded => 'F',
8400: p_data => l_msg_data,

Line 8398: fnd_msg_pub.get(p_msg_index => i,

8394: IF (l_return_status <> 'S') THEN
8395: IF (fnd_msg_pub.count_msg > 0 ) THEN
8396: FOR i IN 1..fnd_msg_pub.count_msg
8397: LOOP
8398: fnd_msg_pub.get(p_msg_index => i,
8399: p_encoded => 'F',
8400: p_data => l_msg_data,
8401: p_msg_index_out => l_msg_index_out);
8402: IF (l_log_statement >= l_log_current_level) THEN

Line 8423: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

8419: WHERE VISIT_TASK_ID = c_task_rec.visit_task_id;
8420: END IF;
8421: ELSIF l_project_tsk_flag = 'N' AND l_proj_ref_flag = 'Y' THEN
8422: x_return_status := Fnd_Api.g_ret_sts_error;
8423: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8424: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_REF_NOT_UNIQ');
8425: Fnd_Msg_Pub.ADD;
8426: END IF;
8427: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN

Line 8425: Fnd_Msg_Pub.ADD;

8421: ELSIF l_project_tsk_flag = 'N' AND l_proj_ref_flag = 'Y' THEN
8422: x_return_status := Fnd_Api.g_ret_sts_error;
8423: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8424: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_REF_NOT_UNIQ');
8425: Fnd_Msg_Pub.ADD;
8426: END IF;
8427: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN
8428: x_return_status := Fnd_Api.g_ret_sts_error;
8429: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

Line 8429: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

8425: Fnd_Msg_Pub.ADD;
8426: END IF;
8427: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN
8428: x_return_status := Fnd_Api.g_ret_sts_error;
8429: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8430: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_NUM_NOT_UNIQ');
8431: Fnd_Msg_Pub.ADD;
8432: END IF;
8433: ELSE

Line 8431: Fnd_Msg_Pub.ADD;

8427: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN
8428: x_return_status := Fnd_Api.g_ret_sts_error;
8429: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8430: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_NUM_NOT_UNIQ');
8431: Fnd_Msg_Pub.ADD;
8432: END IF;
8433: ELSE
8434: x_return_status := Fnd_Api.g_ret_sts_error;
8435: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

Line 8435: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN

8431: Fnd_Msg_Pub.ADD;
8432: END IF;
8433: ELSE
8434: x_return_status := Fnd_Api.g_ret_sts_error;
8435: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8436: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TASK_NOT_UNIQUE');
8437: Fnd_Msg_Pub.ADD;
8438: END IF;
8439: END IF;

Line 8437: Fnd_Msg_Pub.ADD;

8433: ELSE
8434: x_return_status := Fnd_Api.g_ret_sts_error;
8435: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8436: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TASK_NOT_UNIQUE');
8437: Fnd_Msg_Pub.ADD;
8438: END IF;
8439: END IF;
8440: END IF; -- project_task_id is null
8441: FETCH c_task INTO c_task_rec;

Line 8452: Fnd_Msg_Pub.count_and_get(

8448: IF Fnd_Api.To_Boolean ( p_commit ) THEN
8449: COMMIT WORK;
8450: END IF;
8451:
8452: Fnd_Msg_Pub.count_and_get(
8453: p_encoded => Fnd_Api.g_false,
8454: p_count => x_msg_count,
8455: p_data => x_msg_data
8456: );

Line 8466: Fnd_Msg_Pub.count_and_get (

8462: EXCEPTION
8463: WHEN Fnd_Api.g_exc_error THEN
8464: ROLLBACK TO Add_MR_to_Project;
8465: x_return_status := Fnd_Api.g_ret_sts_error;
8466: Fnd_Msg_Pub.count_and_get (
8467: p_encoded => Fnd_Api.g_false,
8468: p_count => x_msg_count,
8469: p_data => x_msg_data
8470: );

Line 8474: Fnd_Msg_Pub.count_and_get (

8470: );
8471: WHEN Fnd_Api.g_exc_unexpected_error THEN
8472: ROLLBACK TO Add_MR_to_Project;
8473: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8474: Fnd_Msg_Pub.count_and_get (
8475: p_encoded => Fnd_Api.g_false,
8476: p_count => x_msg_count,
8477: p_data => x_msg_data
8478: );

Line 8482: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)

8478: );
8479: WHEN OTHERS THEN
8480: ROLLBACK TO Add_MR_to_Project;
8481: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8482: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8483: THEN
8484: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8485: END IF;
8486: Fnd_Msg_Pub.count_and_get (

Line 8484: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);

8480: ROLLBACK TO Add_MR_to_Project;
8481: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8482: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8483: THEN
8484: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8485: END IF;
8486: Fnd_Msg_Pub.count_and_get (
8487: p_encoded => Fnd_Api.g_false,
8488: p_count => x_msg_count,

Line 8486: Fnd_Msg_Pub.count_and_get (

8482: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8483: THEN
8484: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8485: END IF;
8486: Fnd_Msg_Pub.count_and_get (
8487: p_encoded => Fnd_Api.g_false,
8488: p_count => x_msg_count,
8489: p_data => x_msg_data
8490: );

Line 8545: FND_MSG_PUB.INITIALIZE;

8541:
8542: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
8543: IF FND_API.TO_BOOLEAN(p_init_msg_list)
8544: THEN
8545: FND_MSG_PUB.INITIALIZE;
8546: END IF;
8547:
8548: IF (l_log_procedure >= l_log_current_level) THEN
8549: fnd_log.string(l_log_procedure,

Line 8585: x_msg_count := FND_MSG_PUB.count_msg;

8581: l_visit_task_id || '. Return Status = '|| l_return_status);
8582: END IF;
8583:
8584: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8585: x_msg_count := FND_MSG_PUB.count_msg;
8586: IF (l_log_statement >= l_log_current_level) THEN
8587: fnd_log.string(l_log_statement,
8588: L_DEBUG_KEY,
8589: 'Errors from AGGREGATE_TASK_MATERIAL_REQRS. Message count: ' || x_msg_count);

Line 8690: FND_MSG_PUB.INITIALIZE;

8686:
8687: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
8688: IF FND_API.TO_BOOLEAN(p_init_msg_list)
8689: THEN
8690: FND_MSG_PUB.INITIALIZE;
8691: END IF;
8692:
8693: -- initialize the counter
8694: l_previous_item := NULL;

Line 8755: x_msg_count := FND_MSG_PUB.count_msg;

8751: x_return_status);
8752: END IF;
8753:
8754: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8755: x_msg_count := FND_MSG_PUB.count_msg;
8756: IF (l_log_statement >= l_log_current_level) THEN
8757: fnd_log.string(l_log_statement,
8758: L_DEBUG_KEY,
8759: 'Errors from AHL_RSV_RESERVATIONS_PVT.TRNSFR_RSRV_FOR_MATRL_REQR. Message count: ' || x_msg_count);

Line 9149: Fnd_Msg_Pub.initialize;

9145: END IF;
9146:
9147: -- Initialize message list if p_init_msg_list is set to TRUE.
9148: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
9149: Fnd_Msg_Pub.initialize;
9150: END IF;
9151:
9152: -- Initialize API return status to success
9153: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

Line 9284: FND_MSG_PUB.ADD;

9280: FND_MESSAGE.Set_Name('AHL','AHL_VWP_CRT_JOB_ERR');
9281: Fnd_Message.Set_Token('TASK_NUMBER', p_x_task_tbl(i).visit_task_number);
9282: Fnd_Message.Set_Token('END_DATE', TRUNC(l_visit_end_time));
9283: -- yazhou Sep-15-2005 ends
9284: FND_MSG_PUB.ADD;
9285: -- yazhou 06Oct2005 starts
9286: -- bug fix #4658861
9287: -- Note: since we are checking for derived end time here, if there are other task in planning
9288: -- status with end date exceeding visit master WO end date, then non-routine cannot be created

Line 9294: FND_MSG_PUB.ADD;

9290: ELSIF TRUNC(l_visit_end_time) > TRUNC(c_get_wo_details_rec.scheduled_completion_date) THEN
9291: -- Error Message
9292: Fnd_Message.SET_NAME('AHL','AHL_VWP_DATE_EXCD_WO_DATE');
9293: Fnd_Message.Set_Token('VISIT_END_DATE', l_visit_end_time);
9294: FND_MSG_PUB.ADD;
9295: -- yazhou 06Oct2005 ends
9296: ELSE
9297: -- Start for 11.5.10 release
9298: -- By shbhanda 05-Jun-03

Line 9514: Fnd_Msg_Pub.count_and_get(

9510: IF Fnd_Api.To_Boolean (p_commit) THEN
9511: COMMIT WORK;
9512: END IF;
9513:
9514: Fnd_Msg_Pub.count_and_get(
9515: p_encoded => Fnd_Api.g_false,
9516: p_count => x_msg_count,
9517: p_data => x_msg_data);
9518:

Line 9527: Fnd_Msg_Pub.count_and_get (

9523: EXCEPTION
9524: WHEN Fnd_Api.g_exc_error THEN
9525: ROLLBACK TO Create_Job_Tasks;
9526: x_return_status := Fnd_Api.g_ret_sts_error;
9527: Fnd_Msg_Pub.count_and_get (
9528: p_encoded => Fnd_Api.g_false,
9529: p_count => x_msg_count,
9530: p_data => x_msg_data
9531: );

Line 9535: Fnd_Msg_Pub.count_and_get (

9531: );
9532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9533: ROLLBACK TO Create_Job_Tasks;
9534: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9535: Fnd_Msg_Pub.count_and_get (
9536: p_encoded => Fnd_Api.g_false,
9537: p_count => x_msg_count,
9538: p_data => x_msg_data
9539: );

Line 9543: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)

9539: );
9540: WHEN OTHERS THEN
9541: ROLLBACK TO Create_Job_Tasks;
9542: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9543: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
9544: THEN
9545: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
9546: END IF;
9547: Fnd_Msg_Pub.count_and_get (

Line 9545: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);

9541: ROLLBACK TO Create_Job_Tasks;
9542: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9543: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
9544: THEN
9545: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
9546: END IF;
9547: Fnd_Msg_Pub.count_and_get (
9548: p_encoded => Fnd_Api.g_false,
9549: p_count => x_msg_count,

Line 9547: Fnd_Msg_Pub.count_and_get (

9543: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
9544: THEN
9545: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
9546: END IF;
9547: Fnd_Msg_Pub.count_and_get (
9548: p_encoded => Fnd_Api.g_false,
9549: p_count => x_msg_count,
9550: p_data => x_msg_data
9551: );