[Home] [Help]
288: END IF;
289: END IF;
290:
291: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
292: Fnd_Msg_Pub.initialize;
293: END IF;
294:
295: -- Initialize API return status to success
296: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
413: x_stages_tbl := l_stages_tbl;
414:
415: ------------------------End of API Body------------------------------------
416: -- Standard call to get message count and if count is 1, get message info
417: Fnd_Msg_Pub.Count_And_Get
418: ( p_count => x_msg_count,
419: p_data => x_msg_data,
420: p_encoded => Fnd_Api.g_false);
421:
441: EXCEPTION
442: WHEN Fnd_Api.G_EXC_ERROR THEN
443: x_return_status := Fnd_Api.G_RET_STS_ERROR;
444: ROLLBACK TO Get_Stages_Details;
445: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
446: p_data => x_msg_data,
447: p_encoded => Fnd_Api.g_false);
448: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
449: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
447: p_encoded => Fnd_Api.g_false);
448: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
449: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
450: ROLLBACK TO Get_Stages_Details;
451: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
452: p_data => x_msg_data,
453: p_encoded => Fnd_Api.g_false);
454: WHEN OTHERS THEN
455: ROLLBACK TO Get_Stages_Details;
453: p_encoded => Fnd_Api.g_false);
454: WHEN OTHERS THEN
455: ROLLBACK TO Get_Stages_Details;
456: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
457: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
458: THEN
459: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
460: END IF;
461: Fnd_Msg_Pub.count_and_get (
455: ROLLBACK TO Get_Stages_Details;
456: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
457: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
458: THEN
459: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
460: END IF;
461: Fnd_Msg_Pub.count_and_get (
462: p_encoded => Fnd_Api.g_false,
463: p_count => x_msg_count,
457: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
458: THEN
459: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
460: END IF;
461: Fnd_Msg_Pub.count_and_get (
462: p_encoded => Fnd_Api.g_false,
463: p_count => x_msg_count,
464: p_data => x_msg_data );
465:
558:
559: -- Initialize message list if p_init_msg_list is set to TRUE.
560: IF Fnd_Api.to_boolean(p_init_msg_list)
561: THEN
562: Fnd_Msg_Pub.initialize;
563: END IF;
564:
565: -- Initialize API return status to success
566: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
595: --
596: IF (P_VISIT_ID = Fnd_Api.g_miss_num OR P_VISIT_ID IS Null)
597: THEN
598: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_INVALID');
599: Fnd_Msg_Pub.ADD;
600: END IF;
601:
602: IF G_DEBUG='Y' THEN
603: AHL_DEBUG_PUB.Debug( l_full_name ||':END VALIDATE');
620: END IF;
621:
622: IF l_is_old_visit = 'Y' THEN
623: Fnd_Message.SET_NAME('AHL','AHL_VWP_OVST_CRT_VST_INV');
624: Fnd_Msg_Pub.ADD;
625: RAISE Fnd_Api.G_EXC_ERROR;
626: END IF;
627:
628: l_isValidationFailed := false;
648: -- If the value for the ID already exists, then
649: -- l_dummy would be populated with '1', otherwise, it receives NULL.
650: IF l_dummy IS NOT NULL THEN
651: Fnd_Message.SET_NAME('AHL','AHL_VWP_SEQUENCE_NOT_EXISTS');
652: Fnd_Msg_Pub.ADD;
653: END IF;
654:
655: END IF;
656:
674: -- If the value for the ID already exists, then
675: -- l_dummy would be populated with '1', otherwise, it receives NULL.
676: IF l_dummy IS NOT NULL THEN
677: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NUM_EXISTS');
678: Fnd_Msg_Pub.ADD;
679: END IF;
680: END IF;
681:
682: IF (l_stages_tbl(i).Duration = Fnd_Api.g_miss_num OR l_stages_tbl(i).Duration IS Null) THEN
688: --Check for negative
689: IF l_stages_tbl(i).Duration <= 0 THEN
690: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_DURN_INV');
691: Fnd_Message.SET_TOKEN('STAGE_NAME', l_stages_tbl(i).stage_name);
692: Fnd_Msg_Pub.ADD;
693: END IF;
694: IF l_stages_tbl(i).Stage_Num <= 0 THEN
695: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NUM_INV');
696: Fnd_Message.SET_TOKEN('STAGE_NAME', l_stages_tbl(i).stage_name);
693: END IF;
694: IF l_stages_tbl(i).Stage_Num <= 0 THEN
695: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NUM_INV');
696: Fnd_Message.SET_TOKEN('STAGE_NAME', l_stages_tbl(i).stage_name);
697: Fnd_Msg_Pub.ADD;
698: END IF;
699:
700: IF l_dept_id is null OR l_visit_start_date is NULL or l_visit_type_code is NULL THEN -- Set dates to null . Since this calculations need all this values to calculate
701:
785: END IF;
786:
787: ---------------------------End of API Body---------------------------------------
788: --Standard check to count messages
789: l_msg_count := Fnd_Msg_Pub.count_msg;
790: IF l_msg_count > 0 THEN
791: X_msg_count := l_msg_count;
792: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
793: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
809: EXCEPTION
810: WHEN Fnd_Api.g_exc_error THEN
811: ROLLBACK TO Create_Stage;
812: x_return_status := Fnd_Api.g_ret_sts_error;
813: Fnd_Msg_Pub.count_and_get(
814: p_encoded => Fnd_Api.g_false,
815: p_count => x_msg_count,
816: p_data => x_msg_data
817: );
817: );
818: WHEN Fnd_Api.g_exc_unexpected_error THEN
819: ROLLBACK TO Create_Stage;
820: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
821: Fnd_Msg_Pub.count_and_get (
822: p_encoded => Fnd_Api.g_false,
823: p_count => x_msg_count,
824: p_data => x_msg_data
825: );
825: );
826: WHEN OTHERS THEN
827: ROLLBACK TO Create_Stage;
828: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
829: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
830: THEN
831: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
832: END IF;
833: Fnd_Msg_Pub.count_and_get (
827: ROLLBACK TO Create_Stage;
828: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
829: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
830: THEN
831: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
832: END IF;
833: Fnd_Msg_Pub.count_and_get (
834: p_encoded => Fnd_Api.g_false,
835: p_count => x_msg_count,
829: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
830: THEN
831: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
832: END IF;
833: Fnd_Msg_Pub.count_and_get (
834: p_encoded => Fnd_Api.g_false,
835: p_count => x_msg_count,
836: p_data => x_msg_data
837: );
966:
967: -- Initialize message list if p_init_msg_list is set to TRUE.
968: IF Fnd_Api.to_boolean(p_init_msg_list)
969: THEN
970: Fnd_Msg_Pub.initialize;
971: END IF;
972:
973: -- Initialize API return status to success
974: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
989: --
990: IF (P_VISIT_ID = Fnd_Api.g_miss_num OR P_VISIT_ID IS Null)
991: THEN
992: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_NOT_FOUND');
993: Fnd_Msg_Pub.ADD;
994: -- Added by amagrawa based on review commenst
995: RAISE Fnd_Api.G_EXC_ERROR;
996: END IF;
997:
1001: fetch c_check_visit_status into l_visit_status;
1002: if c_check_visit_status%notfound
1003: then
1004: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_STATUS_INV');
1005: Fnd_Msg_Pub.ADD;
1006: -- Added by amagrawa based on review commenst
1007: close c_check_visit_status;
1008: RAISE Fnd_Api.G_EXC_ERROR;
1009: end if;
1010: close c_check_visit_status;
1011:
1012: -- Commented by amagrawa as per review commenst.
1013: /* --Standard check to count messages
1014: l_msg_count := Fnd_Msg_Pub.count_msg;
1015:
1016: IF l_msg_count > 0 THEN
1017: x_msg_count := l_msg_count;
1018: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1091: IF C_JOB%FOUND
1092: THEN
1093: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_JOB_FIRM_REL');
1094: Fnd_Message.SET_TOKEN('STAGE_NAME', p_x_stages_tbl(i).stage_name);
1095: Fnd_Msg_Pub.ADD;
1096: l_validate_status := Fnd_Api.G_RET_STS_ERROR;
1097: END IF;
1098: CLOSE C_JOB;
1099: END IF;
1251: l_stage_planned_start_time := Compute_Stage_End_Date(p_visit_id, null, l_visit_start_date, l_dept_id, l_cum_duration);
1252: -- Validate that the any of the tasks does not start before the stage starts
1253: IF l_past_task_start_date < l_stage_planned_start_time THEN
1254: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_DURN_INVLD');
1255: Fnd_Msg_Pub.ADD;
1256: RAISE Fnd_Api.G_EXC_ERROR;
1257: END IF;
1258: END LOOP;
1259: CLOSE get_past_task_details;
1289: END IF;
1290:
1291:
1292: --Standard check to count messages
1293: l_msg_count := Fnd_Msg_Pub.count_msg;
1294:
1295: IF l_msg_count > 0 THEN
1296: X_msg_count := l_msg_count;
1297: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1314: EXCEPTION
1315: WHEN Fnd_Api.g_exc_error THEN
1316: ROLLBACK TO Update_Stages;
1317: x_return_status := Fnd_Api.g_ret_sts_error;
1318: Fnd_Msg_Pub.count_and_get(
1319: p_encoded => Fnd_Api.g_false,
1320: p_count => x_msg_count,
1321: p_data => x_msg_data
1322: );
1322: );
1323: WHEN Fnd_Api.g_exc_unexpected_error THEN
1324: ROLLBACK TO Update_Stages;
1325: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1326: Fnd_Msg_Pub.count_and_get (
1327: p_encoded => Fnd_Api.g_false,
1328: p_count => x_msg_count,
1329: p_data => x_msg_data
1330: );
1330: );
1331: WHEN OTHERS THEN
1332: ROLLBACK TO Update_Stages;
1333: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1334: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1335: THEN
1336: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1337: END IF;
1338: Fnd_Msg_Pub.count_and_get (
1332: ROLLBACK TO Update_Stages;
1333: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1334: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1335: THEN
1336: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1337: END IF;
1338: Fnd_Msg_Pub.count_and_get (
1339: p_encoded => Fnd_Api.g_false,
1340: p_count => x_msg_count,
1334: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1335: THEN
1336: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1337: END IF;
1338: Fnd_Msg_Pub.count_and_get (
1339: p_encoded => Fnd_Api.g_false,
1340: p_count => x_msg_count,
1341: p_data => x_msg_data
1342: );
1435:
1436: -- Initialize message list if p_init_msg_list is set to TRUE.
1437: IF Fnd_Api.to_boolean(p_init_msg_list)
1438: THEN
1439: Fnd_Msg_Pub.initialize;
1440: END IF;
1441:
1442: -- Initialize API return status to success
1443: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1456: CLOSE c_visit;
1457:
1458: IF l_visit_dets.IS_OLD_VISIT = 'Y' THEN
1459: Fnd_Message.SET_NAME('AHL','AHL_VWP_OVST_STG_DEL_INV');
1460: Fnd_Msg_Pub.ADD;
1461: RAISE Fnd_Api.G_EXC_ERROR;
1462: END IF;
1463:
1464: l_stages_count := p_x_stages_tbl.count;
1470: fetch c_stage_data into l_stage_rec;
1471: if c_stage_data%notfound
1472: then
1473: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NOT_FOUND_NEW'||p_x_stages_tbl(i).stage_id);
1474: Fnd_Msg_Pub.ADD;
1475: RAISE FND_API.G_EXC_ERROR;
1476: end if;
1477: close c_stage_data;
1478:
1479: -- obj version number validation
1480: IF l_stage_rec.OBJECT_VERSION_NUMBER <> p_x_stages_tbl(i).OBJECT_VERSION_NUMBER
1481: THEN
1482: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_MOD');
1483: Fnd_Msg_Pub.ADD;
1484: RAISE FND_API.G_EXC_ERROR;
1485: end if;
1486:
1487: --Set duration to zero, calling UPDATE_AS_STAGE_RULE_DEL next to this statement will not consider duration into account
1541: END IF;
1542:
1543: IF l_stage_tasks_count>0 THEN
1544: Fnd_Message.SET_NAME('AHL','AHL_VWP_STG_NO_DEL_HAV_TASKS');
1545: Fnd_Msg_Pub.ADD;
1546: RAISE FND_API.G_EXC_ERROR;
1547: ELSE
1548:
1549: OPEN c_stage_task_dets (p_visit_id, p_x_stages_tbl(i).STAGE_ID);
1609: -- Since stage deletion ios allowed only if no tasks associated to it
1610: END LOOP;
1611:
1612: --Standard check to count messages
1613: l_msg_count := Fnd_Msg_Pub.count_msg;
1614: IF l_msg_count > 0 THEN
1615: X_msg_count := l_msg_count;
1616: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1617: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1629: EXCEPTION
1630: WHEN Fnd_Api.g_exc_error THEN
1631: ROLLBACK TO Delete_Stages;
1632: x_return_status := Fnd_Api.g_ret_sts_error;
1633: Fnd_Msg_Pub.count_and_get(
1634: p_encoded => Fnd_Api.g_false,
1635: p_count => x_msg_count,
1636: p_data => x_msg_data
1637: );
1637: );
1638: WHEN Fnd_Api.g_exc_unexpected_error THEN
1639: ROLLBACK TO Delete_Stages;
1640: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1641: Fnd_Msg_Pub.count_and_get (
1642: p_encoded => Fnd_Api.g_false,
1643: p_count => x_msg_count,
1644: p_data => x_msg_data
1645: );
1645: );
1646: WHEN OTHERS THEN
1647: ROLLBACK TO Delete_Stages;
1648: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1649: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1650: THEN
1651: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1652: END IF;
1653: Fnd_Msg_Pub.count_and_get (
1647: ROLLBACK TO Delete_Stages;
1648: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1649: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1650: THEN
1651: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1652: END IF;
1653: Fnd_Msg_Pub.count_and_get (
1654: p_encoded => Fnd_Api.g_false,
1655: p_count => x_msg_count,
1649: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1650: THEN
1651: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1652: END IF;
1653: Fnd_Msg_Pub.count_and_get (
1654: p_encoded => Fnd_Api.g_false,
1655: p_count => x_msg_count,
1656: p_data => x_msg_data
1657: );
1711:
1712: -- Initialize message list if p_init_msg_list is set to TRUE.
1713: IF Fnd_Api.to_boolean(p_init_msg_list)
1714: THEN
1715: Fnd_Msg_Pub.initialize;
1716: END IF;
1717:
1718: -- Initialize API return status to success
1719: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1752: -- directly delete as we need to delete all stages for the visit
1753:
1754: ---------------------------End of API Body---------------------------------------
1755: --Standard check to count messages
1756: l_msg_count := Fnd_Msg_Pub.count_msg;
1757: IF l_msg_count > 0 THEN
1758: X_msg_count := l_msg_count;
1759: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1760: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1776: EXCEPTION
1777: WHEN Fnd_Api.g_exc_error THEN
1778: ROLLBACK TO Delete_All_Stages;
1779: x_return_status := Fnd_Api.g_ret_sts_error;
1780: Fnd_Msg_Pub.count_and_get(
1781: p_encoded => Fnd_Api.g_false,
1782: p_count => x_msg_count,
1783: p_data => x_msg_data
1784: );
1784: );
1785: WHEN Fnd_Api.g_exc_unexpected_error THEN
1786: ROLLBACK TO Delete_All_Stages;
1787: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1788: Fnd_Msg_Pub.count_and_get (
1789: p_encoded => Fnd_Api.g_false,
1790: p_count => x_msg_count,
1791: p_data => x_msg_data
1792: );
1792: );
1793: WHEN OTHERS THEN
1794: ROLLBACK TO Delete_All_Stages;
1795: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1796: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1797: THEN
1798: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1799: END IF;
1800: Fnd_Msg_Pub.count_and_get (
1794: ROLLBACK TO Delete_All_Stages;
1795: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1796: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1797: THEN
1798: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1799: END IF;
1800: Fnd_Msg_Pub.count_and_get (
1801: p_encoded => Fnd_Api.g_false,
1802: p_count => x_msg_count,
1796: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1797: THEN
1798: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1799: END IF;
1800: Fnd_Msg_Pub.count_and_get (
1801: p_encoded => Fnd_Api.g_false,
1802: p_count => x_msg_count,
1803: p_data => x_msg_data
1804: );
1867: END IF;
1868: END IF;
1869:
1870: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
1871: Fnd_Msg_Pub.initialize;
1872: END IF;
1873:
1874: IF NOT Fnd_Api.compatible_api_call (
1875: l_api_version,
1886: fetch c_stage_data into l_stage_rec;
1887: if c_stage_data%notfound
1888: then
1889: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NOT_FOUND_NEW'||p_stages_rec.stage_id);
1890: Fnd_Msg_Pub.ADD;
1891: x_return_status := Fnd_Api.g_ret_sts_error;
1892: return;
1893: end if;
1894: close c_stage_data;
1903: -- obj version number validation
1904: IF l_stage_rec.OBJECT_VERSION_NUMBER <> p_stages_rec.OBJECT_VERSION_NUMBER
1905: THEN
1906: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_MOD');
1907: Fnd_Msg_Pub.ADD;
1908: x_return_status := Fnd_Api.g_ret_sts_error;
1909: return;
1910: end if;
1911:
1911:
1912: IF p_stages_rec.STAGE_NUM IS NULL
1913: THEN
1914: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NUM_NULL');
1915: Fnd_Msg_Pub.ADD;
1916: x_return_status := Fnd_Api.g_ret_sts_error;
1917: return;
1918: end if;
1919:
1924: if p_stages_rec.stage_name is null or p_stages_rec.stage_name = ''
1925: then
1926: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NAME_NULL');
1927: FND_MESSAGE.SET_TOKEN('STAGE_NUM',p_stages_rec.STAGE_NUM);
1928: Fnd_Msg_Pub.ADD;
1929: x_return_status := Fnd_Api.g_ret_sts_error;
1930: return;
1931: else
1932: -- stage name is unique
1935: if c_stage_name%found
1936: then
1937: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NAME_UNIQUE');
1938: Fnd_Message.SET_TOKEN('STAGE_NAME', p_stages_rec.stage_name);
1939: Fnd_Msg_Pub.ADD;
1940: x_return_status := Fnd_Api.g_ret_sts_error;
1941: close c_stage_name;
1942: return;
1943: end if;
1952: IF p_stages_rec.DURATION IS NULL
1953: then
1954: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_DUR_NULL');
1955: Fnd_Message.SET_TOKEN('STAGE_NAME', p_stages_rec.stage_name);
1956: Fnd_Msg_Pub.ADD;
1957: x_return_status := Fnd_Api.g_ret_sts_error;
1958: -- duration must be positive number
1959: elsif p_stages_rec.duration < 0
1960: then
1959: elsif p_stages_rec.duration < 0
1960: then
1961: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_DURN_INV');
1962: Fnd_Message.SET_TOKEN('STAGE_NAME', p_stages_rec.stage_name);
1963: Fnd_Msg_Pub.ADD;
1964: x_return_status := Fnd_Api.g_ret_sts_error;
1965: elsif p_stages_rec.duration = 0
1966: then
1967: open c_stage_task( p_stages_rec.stage_id);
1969: if c_stage_task%found
1970: THEN
1971: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_HAS_TASKS');
1972: Fnd_Message.SET_TOKEN('STAGE_NAME', p_stages_rec.stage_name);
1973: Fnd_Msg_Pub.ADD;
1974: x_return_status := Fnd_Api.g_ret_sts_error;
1975: end if;
1976: close c_stage_task;
1977: elsif p_stages_rec.DURATION > trunc(l_stage_duration,0)
1976: close c_stage_task;
1977: elsif p_stages_rec.DURATION > trunc(l_stage_duration,0)
1978: THEN
1979: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_DUR_NON_INT');
1980: Fnd_Msg_Pub.ADD;
1981: x_return_status := Fnd_Api.g_ret_sts_error;
1982:
1983: end if;
1984:
2130: END IF;
2131:
2132: -- Initialize message list if p_init_msg_list is set to TRUE.
2133: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
2134: Fnd_Msg_Pub.initialize;
2135: END IF;
2136:
2137: -- Standard call to check for call compatibility.
2138: IF NOT Fnd_Api.compatible_api_call (
2152: OPEN c_get_stage_id(p_stage_name, p_visit_id);
2153: FETCH c_get_stage_id INTO l_stage_id, l_stage_num;
2154: IF c_get_stage_id%NOTFOUND THEN
2155: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NOT_FOUND');
2156: Fnd_Msg_Pub.ADD;
2157: x_return_status := Fnd_Api.g_ret_sts_error;
2158: END IF;
2159: CLOSE c_get_stage_id;
2160:
2180: IF l_task_stage_id = child_stage_rec.object_id THEN
2181: -- throw error
2182: Fnd_Message.SET_NAME('AHL','AHL_VWP_ST_NUM_INV');
2183: --Fnd_Message.SET_TOKEN('STAGE_NUM', l_stage_NUM);
2184: Fnd_Msg_Pub.ADD;
2185: x_return_status := Fnd_Api.g_ret_sts_error;
2186: END IF;
2187: END LOOP;
2188: l_task_stage_id := null;
2211: IF l_task_stage_id = parent_stage_rec.subject_id THEN
2212: -- throw error
2213: Fnd_Message.SET_NAME('AHL','AHL_VWP_ST_NUM_INV');
2214: --Fnd_Message.SET_TOKEN('STAGE_NUM', l_stage_NUM);
2215: Fnd_Msg_Pub.ADD;
2216: x_return_status := Fnd_Api.g_ret_sts_error;
2217: END IF;
2218: END LOOP;
2219: l_task_stage_id := null;
2392:
2393: IF(c_visit_rec.START_DATE_TIME IS NULL OR c_visit_rec.START_DATE_TIME = Fnd_Api.g_miss_date)
2394: THEN
2395: Fnd_Message.SET_NAME('AHL','AHL_VWP_VST_NO_ST_DATE');
2396: Fnd_Msg_Pub.ADD;
2397: x_valid_flag := 'N';
2398: END IF;
2399:
2400: IF(c_visit_rec.DEPARTMENT_ID IS NULL OR c_visit_rec.DEPARTMENT_ID = Fnd_Api.g_miss_num)
2399:
2400: IF(c_visit_rec.DEPARTMENT_ID IS NULL OR c_visit_rec.DEPARTMENT_ID = Fnd_Api.g_miss_num)
2401: THEN
2402: Fnd_Message.SET_NAME('AHL','AHL_VWP_VST_NO_DEP');
2403: Fnd_Msg_Pub.ADD;
2404: x_valid_flag := 'N';
2405: ELSE
2406: -- Modified by amagrawa based on review comments
2407: -- To find if the visit dept has department shifts defined
2410: CLOSE c_dept;
2411: IF l_count=0
2412: THEN
2413: Fnd_Message.SET_NAME('AHL','AHL_VWP_VNO_DEP_SFT');
2414: Fnd_Msg_Pub.ADD;
2415: x_valid_flag := 'N';
2416: END IF;
2417: END IF;
2418:
2421: FETCH c_task_dep_exist into l_dummy;
2422: IF(c_task_dep_exist%FOUND)
2423: THEN
2424: Fnd_Message.SET_NAME('AHL','AHL_VWP_TNO_DEP_SFT');
2425: Fnd_Msg_Pub.ADD;
2426: x_valid_flag := 'N';
2427: END IF;
2428: CLOSE c_task_dep_exist;
2429:
2432: OPEN c_route_chk (p_visit_id);
2433: FETCH c_route_chk INTO c_route_chk_rec;
2434: IF c_route_chk%FOUND THEN
2435: Fnd_Message.SET_NAME('AHL','AHL_VWP_TSK_MR_NOT_VAL');
2436: Fnd_Msg_Pub.ADD;
2437: x_valid_flag := 'N';
2438: END IF;
2439: CLOSE c_route_chk;
2440:
2473: EXCEPTION
2474: WHEN l_cyclic_loop THEN
2475: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_VISIT_STG_ID_CYC');
2476: FND_MESSAGE.SET_TOKEN('STAGE_NUMBER',P_PARENT_STAGE_NUMBER);
2477: FND_MSG_PUB.ADD;
2478: x_return_status := FND_API.G_RET_STS_ERROR;
2479:
2480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2481: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2478: x_return_status := FND_API.G_RET_STS_ERROR;
2479:
2480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2481: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2482: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2483: p_count => x_msg_count,
2484: p_data => x_msg_data);
2485:
2486: WHEN FND_API.G_EXC_ERROR THEN
2484: p_data => x_msg_data);
2485:
2486: WHEN FND_API.G_EXC_ERROR THEN
2487: X_return_status := FND_API.G_RET_STS_ERROR;
2488: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2489: p_count => x_msg_count,
2490: p_data => X_msg_data);
2491: WHEN OTHERS THEN
2492: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2489: p_count => x_msg_count,
2490: p_data => X_msg_data);
2491: WHEN OTHERS THEN
2492: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2493: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2494: THEN
2495: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2496: p_procedure_name => 'NON_CYCLIC_STAGE_REL',
2497: p_error_text => SUBSTR(SQLERRM,1,240));
2491: WHEN OTHERS THEN
2492: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2493: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2494: THEN
2495: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2496: p_procedure_name => 'NON_CYCLIC_STAGE_REL',
2497: p_error_text => SUBSTR(SQLERRM,1,240));
2498: END IF;
2499: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2495: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2496: p_procedure_name => 'NON_CYCLIC_STAGE_REL',
2497: p_error_text => SUBSTR(SQLERRM,1,240));
2498: END IF;
2499: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2500: p_count => x_msg_count,
2501: p_data => X_msg_data);
2502: END;
2503:
2648: END IF;
2649:
2650: IF l_duplicated_count IS NOT NULL AND l_duplicated_count > 1 THEN
2651: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_STG_RULE_DUP'); --a stage rule already exists between these stages
2652: FND_MSG_PUB.ADD;
2653: RAISE FND_API.G_EXC_ERROR;
2654: END IF;
2655: --PRAKKUM :: VWPE :: ER 12424063 :: 15-APR-2011 :: to find duplicate rules :: END
2656:
2659: FOR l_invalid_stage_rules_rec IN c_get_invalid_rule_stages (p_stage_rule_rec.SUBJECT_STAGE_ID,p_stage_rule_rec.OBJECT_STAGE_ID)
2660: LOOP
2661: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_INV_STG_STATUS_RULE');
2662: Fnd_Message.SET_TOKEN('STAGE_NUM', l_invalid_stage_rules_rec.STAGE_NUM);
2663: FND_MSG_PUB.ADD;
2664: l_invalid_rules_count := l_invalid_rules_count+1;
2665: END LOOP;
2666:
2667: IF (l_log_statement >= l_log_current_level) THEN
2816: IF c_validate_stage_tasks%FOUND THEN
2817: CLOSE c_validate_stage_tasks;
2818: Fnd_Message.SET_NAME('AHL','AHL_VWP_ST_NUM_INV');
2819: --Fnd_Message.SET_TOKEN('STAGE_NUM', l_child_stage_num); -- Stage rule for violates already defined task rule
2820: Fnd_Msg_Pub.ADD;
2821: RAISE FND_API.G_EXC_ERROR;
2822: END IF;
2823: CLOSE c_validate_stage_tasks;
2824: END If;
2830: IF(l_prev_stage_num IS NOT NULL) THEN
2831: IF (l_prev_stage_num <> l_parent_stage_num) THEN
2832: FND_MESSAGE.SET_NAME('AHL','AHL_STG_RULE_PRED'); --a stage cannot have more than one predecessors
2833: FND_MESSAGE.SET_TOKEN('STAGE_NUM',l_child_stage_num);
2834: FND_MSG_PUB.ADD;
2835: RAISE FND_API.G_EXC_ERROR;
2836: END IF;
2837: END IF;
2838: END IF; -- RELATION_TYPE is not parallel
2840:
2841: EXCEPTION
2842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2843: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2844: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2845: p_count => x_msg_count,
2846: p_data => x_msg_data);
2847:
2848: WHEN FND_API.G_EXC_ERROR THEN
2846: p_data => x_msg_data);
2847:
2848: WHEN FND_API.G_EXC_ERROR THEN
2849: X_return_status := FND_API.G_RET_STS_ERROR;
2850: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2851: p_count => x_msg_count,
2852: p_data => X_msg_data);
2853: WHEN OTHERS THEN
2854: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2851: p_count => x_msg_count,
2852: p_data => X_msg_data);
2853: WHEN OTHERS THEN
2854: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2855: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2856: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2857: p_procedure_name => L_API_NAME,
2858: p_error_text => SUBSTR(SQLERRM,1,240));
2859: END IF;
2852: p_data => X_msg_data);
2853: WHEN OTHERS THEN
2854: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2855: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2856: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2857: p_procedure_name => L_API_NAME,
2858: p_error_text => SUBSTR(SQLERRM,1,240));
2859: END IF;
2860: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2856: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2857: p_procedure_name => L_API_NAME,
2858: p_error_text => SUBSTR(SQLERRM,1,240));
2859: END IF;
2860: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2861: p_count => x_msg_count,
2862: p_data => X_msg_data);
2863:
2864: END VALIDATE_STAGE_RULES;
2923:
2924: -- Initialize message list if p_init_msg_list is set to TRUE.
2925: IF Fnd_Api.to_boolean(p_init_msg_list)
2926: THEN
2927: Fnd_Msg_Pub.initialize;
2928: END IF;
2929:
2930: -- Initialize API return status to success
2931: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2948:
2949: IF (l_visit_id = Fnd_Api.g_miss_num OR l_visit_id IS Null)
2950: THEN
2951: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_INVALID');
2952: Fnd_Msg_Pub.ADD;
2953: RAISE Fnd_Api.G_EXC_ERROR;
2954: END IF;
2955:
2956: -------------------------- Insert/Delete --------------------------
3064: EXCEPTION
3065: WHEN Fnd_Api.g_exc_error THEN
3066: x_return_status := Fnd_Api.g_ret_sts_error;
3067: ROLLBACK TO Process_StageTyp_Assoc;
3068: Fnd_Msg_Pub.count_and_get(
3069: p_encoded => Fnd_Api.g_false,
3070: p_count => x_msg_count,
3071: p_data => x_msg_data
3072: );
3072: );
3073: WHEN Fnd_Api.g_exc_unexpected_error THEN
3074: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3075: ROLLBACK TO Process_StageTyp_Assoc;
3076: Fnd_Msg_Pub.count_and_get (
3077: p_encoded => Fnd_Api.g_false,
3078: p_count => x_msg_count,
3079: p_data => x_msg_data
3080: );
3080: );
3081: WHEN OTHERS THEN
3082: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3083: ROLLBACK TO Process_StageTyp_Assoc;
3084: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3085: THEN
3086: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3087: END IF;
3088: Fnd_Msg_Pub.count_and_get (
3082: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3083: ROLLBACK TO Process_StageTyp_Assoc;
3084: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3085: THEN
3086: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3087: END IF;
3088: Fnd_Msg_Pub.count_and_get (
3089: p_encoded => Fnd_Api.g_false,
3090: p_count => x_msg_count,
3084: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3085: THEN
3086: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3087: END IF;
3088: Fnd_Msg_Pub.count_and_get (
3089: p_encoded => Fnd_Api.g_false,
3090: p_count => x_msg_count,
3091: p_data => x_msg_data
3092: );
3202:
3203: -- Initialize message list if p_init_msg_list is set to TRUE.
3204: IF Fnd_Api.to_boolean(p_init_msg_list)
3205: THEN
3206: Fnd_Msg_Pub.initialize;
3207: END IF;
3208:
3209: -- Initialize API return status to success
3210: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3460: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3461: fnd_log.string(fnd_log.level_statement,L_DEBUG_KEY,'After calling AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_RULES - l_return_status : '||l_return_status);
3462: END IF;
3463:
3464: l_msg_count := Fnd_Msg_Pub.count_msg;
3465: IF l_msg_count > 0 OR NVL(l_return_status,'X') <> FND_API.G_RET_STS_SUCCESS THEN
3466: x_msg_count := l_msg_count;
3467: x_return_status := l_return_status;
3468: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3478:
3479: IF (l_log_statement >= l_log_current_level) THEN
3480: fnd_log.string(l_log_statement,
3481: L_DEBUG_KEY,
3482: 'Before calling UPDATE_STAGES_HIERARICHY and message count is :'||Fnd_Msg_Pub.count_msg);
3483: END IF;
3484:
3485: --Calculate and update all the stages planned start and end dates
3486: UPDATE_STAGES_HIERARICHY (
3523: EXCEPTION
3524: WHEN Fnd_Api.g_exc_error THEN
3525: ROLLBACK TO Assoc_VisitType_to_Visit;
3526: x_return_status := Fnd_Api.g_ret_sts_error;
3527: Fnd_Msg_Pub.count_and_get(
3528: p_encoded => Fnd_Api.g_false,
3529: p_count => x_msg_count,
3530: p_data => x_msg_data
3531: );
3531: );
3532: WHEN Fnd_Api.g_exc_unexpected_error THEN
3533: ROLLBACK TO Assoc_VisitType_to_Visit;
3534: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3535: Fnd_Msg_Pub.count_and_get (
3536: p_encoded => Fnd_Api.g_false,
3537: p_count => x_msg_count,
3538: p_data => x_msg_data
3539: );
3539: );
3540: WHEN OTHERS THEN
3541: ROLLBACK TO Assoc_VisitType_to_Visit;
3542: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3543: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3544: THEN
3545: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3546: END IF;
3547: Fnd_Msg_Pub.count_and_get (
3541: ROLLBACK TO Assoc_VisitType_to_Visit;
3542: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3543: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3544: THEN
3545: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3546: END IF;
3547: Fnd_Msg_Pub.count_and_get (
3548: p_encoded => Fnd_Api.g_false,
3549: p_count => x_msg_count,
3543: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3544: THEN
3545: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3546: END IF;
3547: Fnd_Msg_Pub.count_and_get (
3548: p_encoded => Fnd_Api.g_false,
3549: p_count => x_msg_count,
3550: p_data => x_msg_data
3551: );
3720:
3721: -- Initialize API return status to success
3722: -- Initialize message list if p_init_msg_list is set to TRUE.
3723: IF FND_API.to_boolean(p_init_msg_list) THEN
3724: FND_MSG_PUB.initialize;
3725: END IF;
3726:
3727: --Initialize API return status to success
3728: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3760: RAISE Fnd_Api.g_exc_unexpected_error;
3761: END IF;
3762: END IF;
3763:
3764: l_msg_count := Fnd_Msg_Pub.count_msg;
3765: IF l_msg_count > 0 THEN
3766: X_msg_count := l_msg_count;
3767: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3768: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3780: EXCEPTION
3781: WHEN Fnd_Api.G_EXC_ERROR THEN
3782: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3783: ROLLBACK TO UPDATE_STAGES_HIERARICHY;
3784: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
3785: p_data => x_msg_data,
3786: p_encoded => Fnd_Api.g_false);
3787: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3788: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3786: p_encoded => Fnd_Api.g_false);
3787: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3788: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3789: ROLLBACK TO UPDATE_STAGES_HIERARICHY;
3790: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
3791: p_data => x_msg_data,
3792: p_encoded => Fnd_Api.g_false);
3793: WHEN OTHERS THEN
3794: ROLLBACK TO UPDATE_STAGES_HIERARICHY;
3792: p_encoded => Fnd_Api.g_false);
3793: WHEN OTHERS THEN
3794: ROLLBACK TO UPDATE_STAGES_HIERARICHY;
3795: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3796: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3797: THEN
3798: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3799: END IF;
3800: Fnd_Msg_Pub.count_and_get (
3794: ROLLBACK TO UPDATE_STAGES_HIERARICHY;
3795: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3796: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3797: THEN
3798: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3799: END IF;
3800: Fnd_Msg_Pub.count_and_get (
3801: p_encoded => Fnd_Api.g_false,
3802: p_count => x_msg_count,
3796: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3797: THEN
3798: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3799: END IF;
3800: Fnd_Msg_Pub.count_and_get (
3801: p_encoded => Fnd_Api.g_false,
3802: p_count => x_msg_count,
3803: p_data => x_msg_data );
3804:
3879:
3880: -- Initialize API return status to success
3881: -- Initialize message list if p_init_msg_list is set to TRUE.
3882: IF FND_API.to_boolean(p_init_msg_list) THEN
3883: FND_MSG_PUB.initialize;
3884: END IF;
3885:
3886: --Initialize API return status to success
3887: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4004: RAISE Fnd_Api.g_exc_unexpected_error;
4005: END IF;
4006: END IF;
4007:
4008: l_msg_count := Fnd_Msg_Pub.count_msg;
4009: IF l_msg_count > 0 THEN
4010: X_msg_count := l_msg_count;
4011: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4012: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4024: EXCEPTION
4025: WHEN Fnd_Api.G_EXC_ERROR THEN
4026: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4027: ROLLBACK TO UPDATE_AS_STAGE_RULE_DEL;
4028: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4029: p_data => x_msg_data,
4030: p_encoded => Fnd_Api.g_false);
4031: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4032: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4030: p_encoded => Fnd_Api.g_false);
4031: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4032: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4033: ROLLBACK TO UPDATE_AS_STAGE_RULE_DEL;
4034: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4035: p_data => x_msg_data,
4036: p_encoded => Fnd_Api.g_false);
4037: WHEN OTHERS THEN
4038: ROLLBACK TO UPDATE_AS_STAGE_RULE_DEL;
4036: p_encoded => Fnd_Api.g_false);
4037: WHEN OTHERS THEN
4038: ROLLBACK TO UPDATE_AS_STAGE_RULE_DEL;
4039: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4040: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4041: THEN
4042: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4043: END IF;
4044: Fnd_Msg_Pub.count_and_get (
4038: ROLLBACK TO UPDATE_AS_STAGE_RULE_DEL;
4039: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4040: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4041: THEN
4042: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4043: END IF;
4044: Fnd_Msg_Pub.count_and_get (
4045: p_encoded => Fnd_Api.g_false,
4046: p_count => x_msg_count,
4040: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4041: THEN
4042: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4043: END IF;
4044: Fnd_Msg_Pub.count_and_get (
4045: p_encoded => Fnd_Api.g_false,
4046: p_count => x_msg_count,
4047: p_data => x_msg_data );
4048:
4278: -- PRAKKUM :: 03/06/2011 :: VWPE :: ER 12424063 :: Fixed issue in getting parallel stage :: END
4279:
4280: --------------------------End of API Body---------------------------------------
4281:
4282: l_msg_count := Fnd_Msg_Pub.count_msg;
4283: IF l_msg_count > 0 THEN
4284: X_msg_count := l_msg_count;
4285: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4286: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4293: EXCEPTION
4294: WHEN Fnd_Api.G_EXC_ERROR THEN
4295: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4296: ROLLBACK TO UPDATE_STAGE_DEPENDENCY_RULES;
4297: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4298: p_data => x_msg_data,
4299: p_encoded => Fnd_Api.g_false);
4300: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4301: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4299: p_encoded => Fnd_Api.g_false);
4300: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4301: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4302: ROLLBACK TO UPDATE_STAGE_DEPENDENCY_RULES;
4303: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4304: p_data => x_msg_data,
4305: p_encoded => Fnd_Api.g_false);
4306: WHEN OTHERS THEN
4307: ROLLBACK TO UPDATE_STAGE_DEPENDENCY_RULES;
4305: p_encoded => Fnd_Api.g_false);
4306: WHEN OTHERS THEN
4307: ROLLBACK TO UPDATE_STAGE_DEPENDENCY_RULES;
4308: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4309: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4310: THEN
4311: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4312: END IF;
4313: Fnd_Msg_Pub.count_and_get (
4307: ROLLBACK TO UPDATE_STAGE_DEPENDENCY_RULES;
4308: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4309: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4310: THEN
4311: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4312: END IF;
4313: Fnd_Msg_Pub.count_and_get (
4314: p_encoded => Fnd_Api.g_false,
4315: p_count => x_msg_count,
4309: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4310: THEN
4311: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4312: END IF;
4313: Fnd_Msg_Pub.count_and_get (
4314: p_encoded => Fnd_Api.g_false,
4315: p_count => x_msg_count,
4316: p_data => x_msg_data );
4317:
4400:
4401: -- Initialize API return status to success
4402: -- Initialize message list if p_init_msg_list is set to TRUE.
4403: IF FND_API.to_boolean(p_init_msg_list) THEN
4404: FND_MSG_PUB.initialize;
4405: END IF;
4406:
4407: --Initialize API return status to success
4408: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4418: CLOSE c_stage_link_dets;
4419:
4420: IF l_Stage_link_dets.STAGE_LINK_ID IS NULL THEN
4421: Fnd_Message.SET_NAME('AHL','AHL_VWP_STG_RUL_NFOUND');
4422: Fnd_Msg_Pub.ADD;
4423: RAISE Fnd_Api.G_EXC_ERROR;
4424: END IF;
4425:
4426: l_is_stages_parallel := false;
4450: CLOSE c_stage_details;
4451:
4452: IF l_stg_stage_number IS NULL THEN
4453: Fnd_Message.SET_NAME('AHL','AHL_VSP_STG_INVALID_ID');
4454: Fnd_Msg_Pub.ADD;
4455: RAISE Fnd_Api.G_EXC_ERROR;
4456: END IF;
4457:
4458: IF (l_log_statement >= l_log_current_level) THEN
4483:
4484: IF l_prev_stg_num is NOT NULL THEN -- Two predessors validation
4485: IF l_prev_stg_num <> l_stg_stage_number THEN
4486: Fnd_Message.SET_NAME('AHL','AHL_VWP_RULE_PREDECESSOR');
4487: Fnd_Msg_Pub.ADD;
4488: RAISE Fnd_Api.G_EXC_ERROR;
4489: END IF;
4490: END IF;
4491:
4496: l_stage_rule_record.RELATION_TYPE := l_Stage_link_dets.RELATION_TYPE;
4497:
4498: IF l_stage_rule_record.subject_STAGE_ID = l_stage_rule_record.object_STAGE_ID THEN
4499: Fnd_Message.SET_NAME('AHL','AHL_VWP_STG_INVALID_RULE');
4500: Fnd_Msg_Pub.ADD;
4501: RAISE Fnd_Api.G_EXC_ERROR;
4502: END IF;
4503:
4504: VALIDATE_STAGE_RULES(
4578: END IF;
4579:
4580: END IF;
4581:
4582: l_msg_count := Fnd_Msg_Pub.count_msg;
4583: IF l_msg_count > 0 THEN
4584: X_msg_count := l_msg_count;
4585: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4586: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4598: EXCEPTION
4599: WHEN Fnd_Api.G_EXC_ERROR THEN
4600: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4601: ROLLBACK TO UPDATE_STG_RUL_HIERARCHY;
4602: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4603: p_data => x_msg_data,
4604: p_encoded => Fnd_Api.g_false);
4605: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4606: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4604: p_encoded => Fnd_Api.g_false);
4605: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4606: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4607: ROLLBACK TO UPDATE_STG_RUL_HIERARCHY;
4608: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4609: p_data => x_msg_data,
4610: p_encoded => Fnd_Api.g_false);
4611: WHEN OTHERS THEN
4612: ROLLBACK TO UPDATE_STG_RUL_HIERARCHY;
4610: p_encoded => Fnd_Api.g_false);
4611: WHEN OTHERS THEN
4612: ROLLBACK TO UPDATE_STG_RUL_HIERARCHY;
4613: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4614: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4615: THEN
4616: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4617: END IF;
4618: Fnd_Msg_Pub.count_and_get (
4612: ROLLBACK TO UPDATE_STG_RUL_HIERARCHY;
4613: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4614: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4615: THEN
4616: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4617: END IF;
4618: Fnd_Msg_Pub.count_and_get (
4619: p_encoded => Fnd_Api.g_false,
4620: p_count => x_msg_count,
4614: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4615: THEN
4616: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4617: END IF;
4618: Fnd_Msg_Pub.count_and_get (
4619: p_encoded => Fnd_Api.g_false,
4620: p_count => x_msg_count,
4621: p_data => x_msg_data );
4622:
4765: IF (l_log_statement >= l_log_current_level) THEN
4766: fnd_log.string(l_log_statement,L_DEBUG,' No Dept Id' );
4767: END IF;
4768: Fnd_Message.SET_NAME('AHL','AHL_VWP_VST_NO_DEP');
4769: Fnd_Msg_Pub.ADD;
4770: RAISE Fnd_Api.G_EXC_ERROR;
4771: END IF;
4772:
4773: IF l_visit_start_date IS NULL THEN
4774: IF (l_log_statement >= l_log_current_level) THEN
4775: fnd_log.string(l_log_statement,L_DEBUG,' No visit start date' );
4776: END IF;
4777: Fnd_Message.SET_NAME('AHL','AHL_LTP_VISIT_ST_DATE_NULL');
4778: Fnd_Msg_Pub.ADD;
4779: RAISE Fnd_Api.G_EXC_ERROR;
4780: END IF;
4781:
4782: IF ( l_visit_limited_dets.visit_type_code IS NULL AND l_visit_limited_dets.IS_OLD_VISIT <> 'Y' ) THEN
4783: IF (l_log_statement >= l_log_current_level) THEN
4784: fnd_log.string(l_log_statement,L_DEBUG,' No visit type code' );
4785: END IF;
4786: Fnd_Message.SET_NAME('AHL','AHL_VWP_VST_TYPE_MAND');
4787: Fnd_Msg_Pub.ADD;
4788: RAISE Fnd_Api.G_EXC_ERROR;
4789: END IF;
4790:
4791: END IF;
5149: fnd_log.string(l_log_statement,L_DEBUG,'Invalid stage rule');
5150: END IF;
5151:
5152: Fnd_Message.SET_NAME('AHL','AHL_VWP_MAND_STG_RULE');
5153: Fnd_Msg_Pub.ADD;
5154: RAISE Fnd_Api.G_EXC_ERROR;
5155:
5156: END IF;
5157:
5185: RAISE Fnd_Api.G_EXC_ERROR;
5186: END IF;
5187:
5188: --Standard check to count messages
5189: l_msg_count := Fnd_Msg_Pub.count_msg;
5190: IF l_msg_count > 0 THEN
5191: X_msg_count := l_msg_count;
5192: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5193: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5199:
5200: EXCEPTION
5201: WHEN Fnd_Api.G_EXC_ERROR THEN
5202: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5203: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5204: p_data => x_msg_data,
5205: p_encoded => Fnd_Api.g_false);
5206: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5207: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5204: p_data => x_msg_data,
5205: p_encoded => Fnd_Api.g_false);
5206: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5207: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5208: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5209: p_data => x_msg_data,
5210: p_encoded => Fnd_Api.g_false);
5211: WHEN OTHERS THEN
5212: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5209: p_data => x_msg_data,
5210: p_encoded => Fnd_Api.g_false);
5211: WHEN OTHERS THEN
5212: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5213: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5214: THEN
5215: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5216: END IF;
5217: Fnd_Msg_Pub.count_and_get (
5211: WHEN OTHERS THEN
5212: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5213: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5214: THEN
5215: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5216: END IF;
5217: Fnd_Msg_Pub.count_and_get (
5218: p_encoded => Fnd_Api.g_false,
5219: p_count => x_msg_count,
5213: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5214: THEN
5215: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5216: END IF;
5217: Fnd_Msg_Pub.count_and_get (
5218: p_encoded => Fnd_Api.g_false,
5219: p_count => x_msg_count,
5220: p_data => x_msg_data );
5221:
5354:
5355: END IF;
5356:
5357: --Standard check to count messages
5358: l_msg_count := Fnd_Msg_Pub.count_msg;
5359: IF l_msg_count > 0 THEN
5360: X_msg_count := l_msg_count;
5361: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5362: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5368:
5369: EXCEPTION
5370: WHEN Fnd_Api.G_EXC_ERROR THEN
5371: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5372: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5373: p_data => x_msg_data,
5374: p_encoded => Fnd_Api.g_false);
5375: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5376: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5373: p_data => x_msg_data,
5374: p_encoded => Fnd_Api.g_false);
5375: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5376: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5377: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5378: p_data => x_msg_data,
5379: p_encoded => Fnd_Api.g_false);
5380: WHEN OTHERS THEN
5381: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5378: p_data => x_msg_data,
5379: p_encoded => Fnd_Api.g_false);
5380: WHEN OTHERS THEN
5381: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5382: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5383: THEN
5384: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5385: END IF;
5386: Fnd_Msg_Pub.count_and_get (
5380: WHEN OTHERS THEN
5381: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5382: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5383: THEN
5384: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5385: END IF;
5386: Fnd_Msg_Pub.count_and_get (
5387: p_encoded => Fnd_Api.g_false,
5388: p_count => x_msg_count,
5382: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5383: THEN
5384: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5385: END IF;
5386: Fnd_Msg_Pub.count_and_get (
5387: p_encoded => Fnd_Api.g_false,
5388: p_count => x_msg_count,
5389: p_data => x_msg_data );
5390:
5509:
5510: END LOOP;
5511:
5512: --Standard check to count messages
5513: l_msg_count := Fnd_Msg_Pub.count_msg;
5514: IF l_msg_count > 0 THEN
5515: X_msg_count := l_msg_count;
5516: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5517: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5523:
5524: EXCEPTION
5525: WHEN Fnd_Api.G_EXC_ERROR THEN
5526: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5527: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5528: p_data => x_msg_data,
5529: p_encoded => Fnd_Api.g_false);
5530: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5531: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5528: p_data => x_msg_data,
5529: p_encoded => Fnd_Api.g_false);
5530: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5531: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5532: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5533: p_data => x_msg_data,
5534: p_encoded => Fnd_Api.g_false);
5535: WHEN OTHERS THEN
5536: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5533: p_data => x_msg_data,
5534: p_encoded => Fnd_Api.g_false);
5535: WHEN OTHERS THEN
5536: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5537: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5538: THEN
5539: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5540: END IF;
5541: Fnd_Msg_Pub.count_and_get (
5535: WHEN OTHERS THEN
5536: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5537: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5538: THEN
5539: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5540: END IF;
5541: Fnd_Msg_Pub.count_and_get (
5542: p_encoded => Fnd_Api.g_false,
5543: p_count => x_msg_count,
5537: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5538: THEN
5539: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5540: END IF;
5541: Fnd_Msg_Pub.count_and_get (
5542: p_encoded => Fnd_Api.g_false,
5543: p_count => x_msg_count,
5544: p_data => x_msg_data );
5545:
5659: l_stage_id := p_valid_stages.NEXT(l_stage_id);
5660: END LOOP;
5661:
5662: --Standard check to count messages
5663: l_msg_count := Fnd_Msg_Pub.count_msg;
5664: IF l_msg_count > 0 THEN
5665: X_msg_count := l_msg_count;
5666: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5667: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5673:
5674: EXCEPTION
5675: WHEN Fnd_Api.G_EXC_ERROR THEN
5676: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5677: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5678: p_data => x_msg_data,
5679: p_encoded => Fnd_Api.g_false);
5680: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5681: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5678: p_data => x_msg_data,
5679: p_encoded => Fnd_Api.g_false);
5680: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5681: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5682: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5683: p_data => x_msg_data,
5684: p_encoded => Fnd_Api.g_false);
5685: WHEN OTHERS THEN
5686: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5683: p_data => x_msg_data,
5684: p_encoded => Fnd_Api.g_false);
5685: WHEN OTHERS THEN
5686: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5687: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5688: THEN
5689: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5690: END IF;
5691: Fnd_Msg_Pub.count_and_get (
5685: WHEN OTHERS THEN
5686: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5687: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5688: THEN
5689: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5690: END IF;
5691: Fnd_Msg_Pub.count_and_get (
5692: p_encoded => Fnd_Api.g_false,
5693: p_count => x_msg_count,
5687: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5688: THEN
5689: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5690: END IF;
5691: Fnd_Msg_Pub.count_and_get (
5692: p_encoded => Fnd_Api.g_false,
5693: p_count => x_msg_count,
5694: p_data => x_msg_data );
5695:
5942: Fnd_Message.SET_TOKEN('STG_ST_DATE', invalid_stage_numbers.planned_start_date);
5943: Fnd_Message.SET_TOKEN('STG_ST_TIMESTAMP', TO_CHAR(invalid_stage_numbers.planned_start_date,'HH24:MI:SS'));
5944: Fnd_Message.SET_TOKEN('STG_ED_DATE', invalid_stage_numbers.planned_end_date);
5945: Fnd_Message.SET_TOKEN('STG_ED_TIMESTAMP', TO_CHAR(invalid_stage_numbers.planned_end_date,'HH24:MI:SS'));
5946: Fnd_Msg_Pub.ADD;
5947: ELSE
5948: Fnd_Message.SET_NAME('AHL','AHL_VWP_VST_STAGE_NUMS');
5949: FND_MESSAGE.SET_TOKEN('STAGE_NUM',invalid_stage_numbers.STAGE_NUM);
5950: Fnd_Message.SET_TOKEN('STG_ST_DATE', invalid_stage_numbers.planned_start_date);
5950: Fnd_Message.SET_TOKEN('STG_ST_DATE', invalid_stage_numbers.planned_start_date);
5951: Fnd_Message.SET_TOKEN('STG_ST_TIMESTAMP', TO_CHAR(invalid_stage_numbers.planned_start_date,'HH24:MI:SS'));
5952: Fnd_Message.SET_TOKEN('STG_ED_DATE', invalid_stage_numbers.planned_end_date);
5953: Fnd_Message.SET_TOKEN('STG_ED_TIMESTAMP', TO_CHAR(invalid_stage_numbers.planned_end_date,'HH24:MI:SS'));
5954: Fnd_Msg_Pub.ADD;
5955: END IF;
5956: l_isValidationFailed := true;
5957:
5958: END LOOP;
5991: END IF;
5992: -- PRAKKUM :: 13-FEB-2011 :: Bug 13711800 :: END
5993:
5994: --Standard check to count messages
5995: l_msg_count := Fnd_Msg_Pub.count_msg;
5996: IF l_msg_count > 0 THEN
5997: X_msg_count := l_msg_count;
5998: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5999: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6005:
6006: EXCEPTION
6007: WHEN Fnd_Api.G_EXC_ERROR THEN
6008: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6009: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6010: p_data => x_msg_data,
6011: p_encoded => Fnd_Api.g_false);
6012: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6013: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6010: p_data => x_msg_data,
6011: p_encoded => Fnd_Api.g_false);
6012: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6013: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6014: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6015: p_data => x_msg_data,
6016: p_encoded => Fnd_Api.g_false);
6017: WHEN OTHERS THEN
6018: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6015: p_data => x_msg_data,
6016: p_encoded => Fnd_Api.g_false);
6017: WHEN OTHERS THEN
6018: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6019: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6020: THEN
6021: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6022: END IF;
6023: Fnd_Msg_Pub.count_and_get (
6017: WHEN OTHERS THEN
6018: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6019: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6020: THEN
6021: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6022: END IF;
6023: Fnd_Msg_Pub.count_and_get (
6024: p_encoded => Fnd_Api.g_false,
6025: p_count => x_msg_count,
6019: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6020: THEN
6021: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6022: END IF;
6023: Fnd_Msg_Pub.count_and_get (
6024: p_encoded => Fnd_Api.g_false,
6025: p_count => x_msg_count,
6026: p_data => x_msg_data );
6027:
6116: fnd_log.string(l_log_statement,L_DEBUG,' p_x_stages_ovn_tbl count is '||p_x_stages_ovn_tbl.count);
6117: END IF;
6118:
6119: --Standard check to count messages
6120: l_msg_count := Fnd_Msg_Pub.count_msg;
6121: IF l_msg_count > 0 THEN
6122: X_msg_count := l_msg_count;
6123: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6124: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6130:
6131: EXCEPTION
6132: WHEN Fnd_Api.G_EXC_ERROR THEN
6133: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6134: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6135: p_data => x_msg_data,
6136: p_encoded => Fnd_Api.g_false);
6137: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6138: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6135: p_data => x_msg_data,
6136: p_encoded => Fnd_Api.g_false);
6137: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6138: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6139: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6140: p_data => x_msg_data,
6141: p_encoded => Fnd_Api.g_false);
6142: WHEN OTHERS THEN
6143: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6140: p_data => x_msg_data,
6141: p_encoded => Fnd_Api.g_false);
6142: WHEN OTHERS THEN
6143: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6144: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6145: THEN
6146: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6147: END IF;
6148: Fnd_Msg_Pub.count_and_get (
6142: WHEN OTHERS THEN
6143: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6144: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6145: THEN
6146: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6147: END IF;
6148: Fnd_Msg_Pub.count_and_get (
6149: p_encoded => Fnd_Api.g_false,
6150: p_count => x_msg_count,
6144: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6145: THEN
6146: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6147: END IF;
6148: Fnd_Msg_Pub.count_and_get (
6149: p_encoded => Fnd_Api.g_false,
6150: p_count => x_msg_count,
6151: p_data => x_msg_data );
6152:
6223: Fnd_Message.SET_TOKEN('STAGE_DATE', l_stages_rec.planned_end_date);
6224: Fnd_Message.SET_TOKEN('STAGE_TIMESTAMP', TO_CHAR(l_stages_rec.planned_end_date,'HH24:MI:SS'));
6225: Fnd_Message.SET_TOKEN('VISIT_END_DATE', l_stages_rec.close_date_time);
6226: Fnd_Message.SET_TOKEN('VISIT_END_TIMESTAMP', TO_CHAR(l_stages_rec.close_date_time,'HH24:MI:SS'));
6227: Fnd_Msg_Pub.ADD;
6228:
6229: l_isValidationFailed := 'Y';
6230: END LOOP;
6231:
6237: fnd_log.string(l_log_statement,L_DEBUG,' l_isValidationFailed --@>'|| l_isValidationFailed);
6238: END IF;
6239:
6240: --Standard check to count messages
6241: l_msg_count := Fnd_Msg_Pub.count_msg;
6242: IF l_msg_count > 0 THEN
6243: X_msg_count := l_msg_count;
6244: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6245: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6251:
6252: EXCEPTION
6253: WHEN Fnd_Api.G_EXC_ERROR THEN
6254: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6255: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6256: p_data => x_msg_data,
6257: p_encoded => Fnd_Api.g_false);
6258: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6259: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6256: p_data => x_msg_data,
6257: p_encoded => Fnd_Api.g_false);
6258: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6259: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6260: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6261: p_data => x_msg_data,
6262: p_encoded => Fnd_Api.g_false);
6263: WHEN OTHERS THEN
6264: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6261: p_data => x_msg_data,
6262: p_encoded => Fnd_Api.g_false);
6263: WHEN OTHERS THEN
6264: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6265: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6266: THEN
6267: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6268: END IF;
6269: Fnd_Msg_Pub.count_and_get (
6263: WHEN OTHERS THEN
6264: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6265: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6266: THEN
6267: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6268: END IF;
6269: Fnd_Msg_Pub.count_and_get (
6270: p_encoded => Fnd_Api.g_false,
6271: p_count => x_msg_count,
6265: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6266: THEN
6267: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6268: END IF;
6269: Fnd_Msg_Pub.count_and_get (
6270: p_encoded => Fnd_Api.g_false,
6271: p_count => x_msg_count,
6272: p_data => x_msg_data );
6273: