206:
207: -- 5. If (p_unit_schedules_search is NULL or p_unit_schedules_search.start_date_time is null), then display error "Start date and time are mandatory parameters to perform a search on Unit Schedules"
208: IF (p_unit_schedules_search.start_date_time IS NULL OR p_unit_schedules_search.start_date_time = FND_API.G_MISS_DATE)
209: THEN
210: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_SUS_START_DATE_NULL');
211: FND_MSG_PUB.ADD;
212: RAISE FND_API.G_EXC_ERROR;
213: END IF;
214:
217: p_unit_schedules_search.time_increment IS NULL OR p_unit_schedules_search.time_increment = FND_API.G_MISS_NUM OR
218: p_unit_schedules_search.time_uom IS NULL OR p_unit_schedules_search.time_uom = FND_API.G_MISS_CHAR
219: )
220: THEN
221: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_SUS_TIME_UOM_NULL');
222: FND_MSG_PUB.ADD;
223: RAISE FND_API.G_EXC_ERROR;
224: END IF;
225:
225:
226: -- 7. If (p_unit_schedules_search.time_increment is not a positive integer), then display error "Display increment should be a positive integer"
227: IF (p_unit_schedules_search.time_increment <= 0 OR p_unit_schedules_search.time_increment <> TRUNC(p_unit_schedules_search.time_increment))
228: THEN
229: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_SUS_TIME_INTEGER');
230: FND_MSG_PUB.ADD;
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
233:
233:
234: -- 8. Validate p_unit_schedules_search.time_uom using cursor check_time_uom_exists. If cursor does not return 1 record (and only 1), the display error "Invalid UOM for display increment"
235: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_UA_TIME_UOM', p_unit_schedules_search.time_uom))
236: THEN
237: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_SUS_TIME_UOM_INVALID');
238: FND_MESSAGE.SET_TOKEN('UOM', p_unit_schedules_search.time_uom);
239: FND_MSG_PUB.ADD;
240: RAISE FND_API.G_EXC_ERROR;
241: END IF;
234: -- 8. Validate p_unit_schedules_search.time_uom using cursor check_time_uom_exists. If cursor does not return 1 record (and only 1), the display error "Invalid UOM for display increment"
235: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_UA_TIME_UOM', p_unit_schedules_search.time_uom))
236: THEN
237: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_SUS_TIME_UOM_INVALID');
238: FND_MESSAGE.SET_TOKEN('UOM', p_unit_schedules_search.time_uom);
239: FND_MSG_PUB.ADD;
240: RAISE FND_API.G_EXC_ERROR;
241: END IF;
242:
1631:
1632: -- Add Conflcit Message
1633: IF(x_Unit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1634: -- Event with sequence () and previous Event() has conflcits.
1635: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FLIGHT_CONFLICT_MSG');
1636: FND_MESSAGE.SET_TOKEN('EVENT_SEQ1',x_Unit_Schedule_Rec.EVENT_SEQ,false);
1637: FND_MESSAGE.SET_TOKEN('EVENT_SEQ2',x_Unit_Schedule_Rec.EVENT_SEQ -1,false);
1638: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := FND_MESSAGE.get;
1639: IF(org_conflict)THEN
1632: -- Add Conflcit Message
1633: IF(x_Unit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1634: -- Event with sequence () and previous Event() has conflcits.
1635: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FLIGHT_CONFLICT_MSG');
1636: FND_MESSAGE.SET_TOKEN('EVENT_SEQ1',x_Unit_Schedule_Rec.EVENT_SEQ,false);
1637: FND_MESSAGE.SET_TOKEN('EVENT_SEQ2',x_Unit_Schedule_Rec.EVENT_SEQ -1,false);
1638: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := FND_MESSAGE.get;
1639: IF(org_conflict)THEN
1640: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1633: IF(x_Unit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1634: -- Event with sequence () and previous Event() has conflcits.
1635: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FLIGHT_CONFLICT_MSG');
1636: FND_MESSAGE.SET_TOKEN('EVENT_SEQ1',x_Unit_Schedule_Rec.EVENT_SEQ,false);
1637: FND_MESSAGE.SET_TOKEN('EVENT_SEQ2',x_Unit_Schedule_Rec.EVENT_SEQ -1,false);
1638: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := FND_MESSAGE.get;
1639: IF(org_conflict)THEN
1640: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1641: -- Departure Org() and previous flight Arrival Org() do not match.
1634: -- Event with sequence () and previous Event() has conflcits.
1635: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FLIGHT_CONFLICT_MSG');
1636: FND_MESSAGE.SET_TOKEN('EVENT_SEQ1',x_Unit_Schedule_Rec.EVENT_SEQ,false);
1637: FND_MESSAGE.SET_TOKEN('EVENT_SEQ2',x_Unit_Schedule_Rec.EVENT_SEQ -1,false);
1638: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := FND_MESSAGE.get;
1639: IF(org_conflict)THEN
1640: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1641: -- Departure Org() and previous flight Arrival Org() do not match.
1642: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FFO_CONFLICT_MSG');
1638: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := FND_MESSAGE.get;
1639: IF(org_conflict)THEN
1640: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1641: -- Departure Org() and previous flight Arrival Org() do not match.
1642: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FFO_CONFLICT_MSG');
1643: FND_MESSAGE.SET_TOKEN('DEP_ORG',x_Unit_Schedule_Rec.DEPARTURE_ORG_NAME,false);
1644: FND_MESSAGE.SET_TOKEN('ARR_ORG',p_prev_unit_schedule_rec.ARRIVAL_ORG_NAME,false);
1645: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1646: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1639: IF(org_conflict)THEN
1640: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1641: -- Departure Org() and previous flight Arrival Org() do not match.
1642: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FFO_CONFLICT_MSG');
1643: FND_MESSAGE.SET_TOKEN('DEP_ORG',x_Unit_Schedule_Rec.DEPARTURE_ORG_NAME,false);
1644: FND_MESSAGE.SET_TOKEN('ARR_ORG',p_prev_unit_schedule_rec.ARRIVAL_ORG_NAME,false);
1645: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1646: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1647: -- Daparture Org() and previous visit Org() do not match.
1640: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1641: -- Departure Org() and previous flight Arrival Org() do not match.
1642: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FFO_CONFLICT_MSG');
1643: FND_MESSAGE.SET_TOKEN('DEP_ORG',x_Unit_Schedule_Rec.DEPARTURE_ORG_NAME,false);
1644: FND_MESSAGE.SET_TOKEN('ARR_ORG',p_prev_unit_schedule_rec.ARRIVAL_ORG_NAME,false);
1645: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1646: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1647: -- Daparture Org() and previous visit Org() do not match.
1648: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FVO_CONFLICT_MSG');
1641: -- Departure Org() and previous flight Arrival Org() do not match.
1642: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FFO_CONFLICT_MSG');
1643: FND_MESSAGE.SET_TOKEN('DEP_ORG',x_Unit_Schedule_Rec.DEPARTURE_ORG_NAME,false);
1644: FND_MESSAGE.SET_TOKEN('ARR_ORG',p_prev_unit_schedule_rec.ARRIVAL_ORG_NAME,false);
1645: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1646: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1647: -- Daparture Org() and previous visit Org() do not match.
1648: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FVO_CONFLICT_MSG');
1649: FND_MESSAGE.SET_TOKEN('DEP_ORG',x_Unit_Schedule_Rec.DEPARTURE_ORG_NAME,false);
1644: FND_MESSAGE.SET_TOKEN('ARR_ORG',p_prev_unit_schedule_rec.ARRIVAL_ORG_NAME,false);
1645: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1646: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1647: -- Daparture Org() and previous visit Org() do not match.
1648: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FVO_CONFLICT_MSG');
1649: FND_MESSAGE.SET_TOKEN('DEP_ORG',x_Unit_Schedule_Rec.DEPARTURE_ORG_NAME,false);
1650: FND_MESSAGE.SET_TOKEN('VST_ORG',p_prev_visit_schedule_rec.VISIT_ORG_NAME,false);
1651: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1652: END IF;
1645: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1646: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1647: -- Daparture Org() and previous visit Org() do not match.
1648: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FVO_CONFLICT_MSG');
1649: FND_MESSAGE.SET_TOKEN('DEP_ORG',x_Unit_Schedule_Rec.DEPARTURE_ORG_NAME,false);
1650: FND_MESSAGE.SET_TOKEN('VST_ORG',p_prev_visit_schedule_rec.VISIT_ORG_NAME,false);
1651: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1652: END IF;
1653: END IF;
1646: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1647: -- Daparture Org() and previous visit Org() do not match.
1648: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FVO_CONFLICT_MSG');
1649: FND_MESSAGE.SET_TOKEN('DEP_ORG',x_Unit_Schedule_Rec.DEPARTURE_ORG_NAME,false);
1650: FND_MESSAGE.SET_TOKEN('VST_ORG',p_prev_visit_schedule_rec.VISIT_ORG_NAME,false);
1651: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1652: END IF;
1653: END IF;
1654: IF(dept_conflict)THEN
1647: -- Daparture Org() and previous visit Org() do not match.
1648: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FVO_CONFLICT_MSG');
1649: FND_MESSAGE.SET_TOKEN('DEP_ORG',x_Unit_Schedule_Rec.DEPARTURE_ORG_NAME,false);
1650: FND_MESSAGE.SET_TOKEN('VST_ORG',p_prev_visit_schedule_rec.VISIT_ORG_NAME,false);
1651: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1652: END IF;
1653: END IF;
1654: IF(dept_conflict)THEN
1655: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1653: END IF;
1654: IF(dept_conflict)THEN
1655: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1656: -- Departure Dept() and previous flight Arrival Dept() do not match.
1657: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FFD_CONFLICT_MSG');
1658: FND_MESSAGE.SET_TOKEN('DEP_DEPT',x_Unit_Schedule_Rec.DEPARTURE_DEP_NAME,false);
1659: FND_MESSAGE.SET_TOKEN('ARR_DEPT',p_prev_unit_schedule_rec.ARRIVAL_DEP_NAME,false);
1660: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1661: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1654: IF(dept_conflict)THEN
1655: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1656: -- Departure Dept() and previous flight Arrival Dept() do not match.
1657: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FFD_CONFLICT_MSG');
1658: FND_MESSAGE.SET_TOKEN('DEP_DEPT',x_Unit_Schedule_Rec.DEPARTURE_DEP_NAME,false);
1659: FND_MESSAGE.SET_TOKEN('ARR_DEPT',p_prev_unit_schedule_rec.ARRIVAL_DEP_NAME,false);
1660: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1661: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1662: -- Departure Dept() and previous visit Dept() do not match.
1655: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1656: -- Departure Dept() and previous flight Arrival Dept() do not match.
1657: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FFD_CONFLICT_MSG');
1658: FND_MESSAGE.SET_TOKEN('DEP_DEPT',x_Unit_Schedule_Rec.DEPARTURE_DEP_NAME,false);
1659: FND_MESSAGE.SET_TOKEN('ARR_DEPT',p_prev_unit_schedule_rec.ARRIVAL_DEP_NAME,false);
1660: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1661: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1662: -- Departure Dept() and previous visit Dept() do not match.
1663: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FVD_CONFLICT_MSG');
1656: -- Departure Dept() and previous flight Arrival Dept() do not match.
1657: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FFD_CONFLICT_MSG');
1658: FND_MESSAGE.SET_TOKEN('DEP_DEPT',x_Unit_Schedule_Rec.DEPARTURE_DEP_NAME,false);
1659: FND_MESSAGE.SET_TOKEN('ARR_DEPT',p_prev_unit_schedule_rec.ARRIVAL_DEP_NAME,false);
1660: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1661: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1662: -- Departure Dept() and previous visit Dept() do not match.
1663: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FVD_CONFLICT_MSG');
1664: FND_MESSAGE.SET_TOKEN('DEP_DEPT',x_Unit_Schedule_Rec.DEPARTURE_DEP_NAME,false);
1659: FND_MESSAGE.SET_TOKEN('ARR_DEPT',p_prev_unit_schedule_rec.ARRIVAL_DEP_NAME,false);
1660: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1661: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1662: -- Departure Dept() and previous visit Dept() do not match.
1663: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FVD_CONFLICT_MSG');
1664: FND_MESSAGE.SET_TOKEN('DEP_DEPT',x_Unit_Schedule_Rec.DEPARTURE_DEP_NAME,false);
1665: FND_MESSAGE.SET_TOKEN('VST_DEPT',p_prev_visit_schedule_rec.VISIT_DEP_NAME,false);
1666: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1667: END IF;
1660: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1661: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1662: -- Departure Dept() and previous visit Dept() do not match.
1663: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FVD_CONFLICT_MSG');
1664: FND_MESSAGE.SET_TOKEN('DEP_DEPT',x_Unit_Schedule_Rec.DEPARTURE_DEP_NAME,false);
1665: FND_MESSAGE.SET_TOKEN('VST_DEPT',p_prev_visit_schedule_rec.VISIT_DEP_NAME,false);
1666: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1667: END IF;
1668: END IF;
1661: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1662: -- Departure Dept() and previous visit Dept() do not match.
1663: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FVD_CONFLICT_MSG');
1664: FND_MESSAGE.SET_TOKEN('DEP_DEPT',x_Unit_Schedule_Rec.DEPARTURE_DEP_NAME,false);
1665: FND_MESSAGE.SET_TOKEN('VST_DEPT',p_prev_visit_schedule_rec.VISIT_DEP_NAME,false);
1666: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1667: END IF;
1668: END IF;
1669: IF(time_conflict)THEN
1662: -- Departure Dept() and previous visit Dept() do not match.
1663: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FVD_CONFLICT_MSG');
1664: FND_MESSAGE.SET_TOKEN('DEP_DEPT',x_Unit_Schedule_Rec.DEPARTURE_DEP_NAME,false);
1665: FND_MESSAGE.SET_TOKEN('VST_DEPT',p_prev_visit_schedule_rec.VISIT_DEP_NAME,false);
1666: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1667: END IF;
1668: END IF;
1669: IF(time_conflict)THEN
1670: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1668: END IF;
1669: IF(time_conflict)THEN
1670: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1671: -- Departure Time and previous flight Arrival Time has overlap.
1672: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FFT_CONFLICT_MSG');
1673: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1674: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1675: -- Departure Time and previous Visit End Time has overlap.
1676: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FVT_CONFLICT_MSG');
1669: IF(time_conflict)THEN
1670: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1671: -- Departure Time and previous flight Arrival Time has overlap.
1672: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FFT_CONFLICT_MSG');
1673: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1674: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1675: -- Departure Time and previous Visit End Time has overlap.
1676: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FVT_CONFLICT_MSG');
1677: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1672: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FFT_CONFLICT_MSG');
1673: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1674: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1675: -- Departure Time and previous Visit End Time has overlap.
1676: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FVT_CONFLICT_MSG');
1677: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1678: END IF;
1679: END IF;
1680: END IF;
1673: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1674: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1675: -- Departure Time and previous Visit End Time has overlap.
1676: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FVT_CONFLICT_MSG');
1677: x_Unit_Schedule_Rec.CONFLICT_MESSAGE := x_Unit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1678: END IF;
1679: END IF;
1680: END IF;
1681: -- add current event to table of events.
1937:
1938: -- Add Conflcit Message
1939: IF(x_Visit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1940: -- Event with sequence () and previous Event() has conflcits.
1941: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FLIGHT_CONFLICT_MSG');
1942: FND_MESSAGE.SET_TOKEN('EVENT_SEQ1',x_Visit_Schedule_Rec.EVENT_SEQ,false);
1943: FND_MESSAGE.SET_TOKEN('EVENT_SEQ2',x_Visit_Schedule_Rec.EVENT_SEQ -1,false);
1944: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := FND_MESSAGE.get;
1945: IF(org_conflict)THEN
1938: -- Add Conflcit Message
1939: IF(x_Visit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1940: -- Event with sequence () and previous Event() has conflcits.
1941: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FLIGHT_CONFLICT_MSG');
1942: FND_MESSAGE.SET_TOKEN('EVENT_SEQ1',x_Visit_Schedule_Rec.EVENT_SEQ,false);
1943: FND_MESSAGE.SET_TOKEN('EVENT_SEQ2',x_Visit_Schedule_Rec.EVENT_SEQ -1,false);
1944: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := FND_MESSAGE.get;
1945: IF(org_conflict)THEN
1946: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1939: IF(x_Visit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1940: -- Event with sequence () and previous Event() has conflcits.
1941: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FLIGHT_CONFLICT_MSG');
1942: FND_MESSAGE.SET_TOKEN('EVENT_SEQ1',x_Visit_Schedule_Rec.EVENT_SEQ,false);
1943: FND_MESSAGE.SET_TOKEN('EVENT_SEQ2',x_Visit_Schedule_Rec.EVENT_SEQ -1,false);
1944: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := FND_MESSAGE.get;
1945: IF(org_conflict)THEN
1946: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1947: -- Visit Org() and previous flight Arrival Org() do not match.
1940: -- Event with sequence () and previous Event() has conflcits.
1941: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FLIGHT_CONFLICT_MSG');
1942: FND_MESSAGE.SET_TOKEN('EVENT_SEQ1',x_Visit_Schedule_Rec.EVENT_SEQ,false);
1943: FND_MESSAGE.SET_TOKEN('EVENT_SEQ2',x_Visit_Schedule_Rec.EVENT_SEQ -1,false);
1944: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := FND_MESSAGE.get;
1945: IF(org_conflict)THEN
1946: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1947: -- Visit Org() and previous flight Arrival Org() do not match.
1948: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VFO_CONFLICT_MSG');
1944: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := FND_MESSAGE.get;
1945: IF(org_conflict)THEN
1946: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1947: -- Visit Org() and previous flight Arrival Org() do not match.
1948: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VFO_CONFLICT_MSG');
1949: FND_MESSAGE.SET_TOKEN('VST_ORG',x_Visit_Schedule_Rec.VISIT_ORG_NAME,false);
1950: FND_MESSAGE.SET_TOKEN('ARR_ORG',p_prev_unit_schedule_rec.ARRIVAL_ORG_NAME,false);
1951: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1952: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1945: IF(org_conflict)THEN
1946: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1947: -- Visit Org() and previous flight Arrival Org() do not match.
1948: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VFO_CONFLICT_MSG');
1949: FND_MESSAGE.SET_TOKEN('VST_ORG',x_Visit_Schedule_Rec.VISIT_ORG_NAME,false);
1950: FND_MESSAGE.SET_TOKEN('ARR_ORG',p_prev_unit_schedule_rec.ARRIVAL_ORG_NAME,false);
1951: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1952: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1953: -- Visit Org() and previous visit Org() do not match.
1946: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1947: -- Visit Org() and previous flight Arrival Org() do not match.
1948: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VFO_CONFLICT_MSG');
1949: FND_MESSAGE.SET_TOKEN('VST_ORG',x_Visit_Schedule_Rec.VISIT_ORG_NAME,false);
1950: FND_MESSAGE.SET_TOKEN('ARR_ORG',p_prev_unit_schedule_rec.ARRIVAL_ORG_NAME,false);
1951: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1952: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1953: -- Visit Org() and previous visit Org() do not match.
1954: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VVO_CONFLICT_MSG');
1947: -- Visit Org() and previous flight Arrival Org() do not match.
1948: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VFO_CONFLICT_MSG');
1949: FND_MESSAGE.SET_TOKEN('VST_ORG',x_Visit_Schedule_Rec.VISIT_ORG_NAME,false);
1950: FND_MESSAGE.SET_TOKEN('ARR_ORG',p_prev_unit_schedule_rec.ARRIVAL_ORG_NAME,false);
1951: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1952: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1953: -- Visit Org() and previous visit Org() do not match.
1954: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VVO_CONFLICT_MSG');
1955: FND_MESSAGE.SET_TOKEN('VST_ORG',x_Visit_Schedule_Rec.VISIT_ORG_NAME,false);
1950: FND_MESSAGE.SET_TOKEN('ARR_ORG',p_prev_unit_schedule_rec.ARRIVAL_ORG_NAME,false);
1951: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1952: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1953: -- Visit Org() and previous visit Org() do not match.
1954: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VVO_CONFLICT_MSG');
1955: FND_MESSAGE.SET_TOKEN('VST_ORG',x_Visit_Schedule_Rec.VISIT_ORG_NAME,false);
1956: FND_MESSAGE.SET_TOKEN('VST_PORG',p_prev_visit_schedule_rec.VISIT_ORG_NAME,false);
1957: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1958: END IF;
1951: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1952: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1953: -- Visit Org() and previous visit Org() do not match.
1954: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VVO_CONFLICT_MSG');
1955: FND_MESSAGE.SET_TOKEN('VST_ORG',x_Visit_Schedule_Rec.VISIT_ORG_NAME,false);
1956: FND_MESSAGE.SET_TOKEN('VST_PORG',p_prev_visit_schedule_rec.VISIT_ORG_NAME,false);
1957: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1958: END IF;
1959: END IF;
1952: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1953: -- Visit Org() and previous visit Org() do not match.
1954: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VVO_CONFLICT_MSG');
1955: FND_MESSAGE.SET_TOKEN('VST_ORG',x_Visit_Schedule_Rec.VISIT_ORG_NAME,false);
1956: FND_MESSAGE.SET_TOKEN('VST_PORG',p_prev_visit_schedule_rec.VISIT_ORG_NAME,false);
1957: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1958: END IF;
1959: END IF;
1960: IF(dept_conflict)THEN
1953: -- Visit Org() and previous visit Org() do not match.
1954: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VVO_CONFLICT_MSG');
1955: FND_MESSAGE.SET_TOKEN('VST_ORG',x_Visit_Schedule_Rec.VISIT_ORG_NAME,false);
1956: FND_MESSAGE.SET_TOKEN('VST_PORG',p_prev_visit_schedule_rec.VISIT_ORG_NAME,false);
1957: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE || FND_MESSAGE.get;
1958: END IF;
1959: END IF;
1960: IF(dept_conflict)THEN
1961: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1959: END IF;
1960: IF(dept_conflict)THEN
1961: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1962: -- Visit Dept() and previous flight Arrival Dept() do not match.
1963: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VFD_CONFLICT_MSG');
1964: FND_MESSAGE.SET_TOKEN('VST_DEPT',x_Visit_Schedule_Rec.VISIT_DEP_NAME,false);
1965: FND_MESSAGE.SET_TOKEN('ARR_DEPT',p_prev_unit_schedule_rec.ARRIVAL_DEP_NAME,false);
1966: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1967: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1960: IF(dept_conflict)THEN
1961: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1962: -- Visit Dept() and previous flight Arrival Dept() do not match.
1963: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VFD_CONFLICT_MSG');
1964: FND_MESSAGE.SET_TOKEN('VST_DEPT',x_Visit_Schedule_Rec.VISIT_DEP_NAME,false);
1965: FND_MESSAGE.SET_TOKEN('ARR_DEPT',p_prev_unit_schedule_rec.ARRIVAL_DEP_NAME,false);
1966: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1967: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1968: -- Visit Dept() and previous visit Dept() do not match.
1961: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1962: -- Visit Dept() and previous flight Arrival Dept() do not match.
1963: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VFD_CONFLICT_MSG');
1964: FND_MESSAGE.SET_TOKEN('VST_DEPT',x_Visit_Schedule_Rec.VISIT_DEP_NAME,false);
1965: FND_MESSAGE.SET_TOKEN('ARR_DEPT',p_prev_unit_schedule_rec.ARRIVAL_DEP_NAME,false);
1966: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1967: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1968: -- Visit Dept() and previous visit Dept() do not match.
1969: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VVD_CONFLICT_MSG');
1962: -- Visit Dept() and previous flight Arrival Dept() do not match.
1963: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VFD_CONFLICT_MSG');
1964: FND_MESSAGE.SET_TOKEN('VST_DEPT',x_Visit_Schedule_Rec.VISIT_DEP_NAME,false);
1965: FND_MESSAGE.SET_TOKEN('ARR_DEPT',p_prev_unit_schedule_rec.ARRIVAL_DEP_NAME,false);
1966: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1967: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1968: -- Visit Dept() and previous visit Dept() do not match.
1969: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VVD_CONFLICT_MSG');
1970: FND_MESSAGE.SET_TOKEN('VST_DEPT',x_Visit_Schedule_Rec.VISIT_DEP_NAME,false);
1965: FND_MESSAGE.SET_TOKEN('ARR_DEPT',p_prev_unit_schedule_rec.ARRIVAL_DEP_NAME,false);
1966: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1967: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1968: -- Visit Dept() and previous visit Dept() do not match.
1969: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VVD_CONFLICT_MSG');
1970: FND_MESSAGE.SET_TOKEN('VST_DEPT',x_Visit_Schedule_Rec.VISIT_DEP_NAME,false);
1971: FND_MESSAGE.SET_TOKEN('VST_PDEPT',p_prev_visit_schedule_rec.VISIT_DEP_NAME,false);
1972: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1973: END IF;
1966: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1967: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1968: -- Visit Dept() and previous visit Dept() do not match.
1969: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VVD_CONFLICT_MSG');
1970: FND_MESSAGE.SET_TOKEN('VST_DEPT',x_Visit_Schedule_Rec.VISIT_DEP_NAME,false);
1971: FND_MESSAGE.SET_TOKEN('VST_PDEPT',p_prev_visit_schedule_rec.VISIT_DEP_NAME,false);
1972: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1973: END IF;
1974: END IF;
1967: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1968: -- Visit Dept() and previous visit Dept() do not match.
1969: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VVD_CONFLICT_MSG');
1970: FND_MESSAGE.SET_TOKEN('VST_DEPT',x_Visit_Schedule_Rec.VISIT_DEP_NAME,false);
1971: FND_MESSAGE.SET_TOKEN('VST_PDEPT',p_prev_visit_schedule_rec.VISIT_DEP_NAME,false);
1972: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1973: END IF;
1974: END IF;
1975: IF(time_conflict)THEN
1968: -- Visit Dept() and previous visit Dept() do not match.
1969: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VVD_CONFLICT_MSG');
1970: FND_MESSAGE.SET_TOKEN('VST_DEPT',x_Visit_Schedule_Rec.VISIT_DEP_NAME,false);
1971: FND_MESSAGE.SET_TOKEN('VST_PDEPT',p_prev_visit_schedule_rec.VISIT_DEP_NAME,false);
1972: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1973: END IF;
1974: END IF;
1975: IF(time_conflict)THEN
1976: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1974: END IF;
1975: IF(time_conflict)THEN
1976: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1977: -- Visit start Time and previous flight Arrival Time has overlap.
1978: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VFT_CONFLICT_MSG');
1979: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1980: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1981: -- Visit Start Time and previous Visit End Time has overlap.
1982: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VVT_CONFLICT_MSG');
1975: IF(time_conflict)THEN
1976: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1977: -- Visit start Time and previous flight Arrival Time has overlap.
1978: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VFT_CONFLICT_MSG');
1979: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1980: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1981: -- Visit Start Time and previous Visit End Time has overlap.
1982: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VVT_CONFLICT_MSG');
1983: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1978: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VFT_CONFLICT_MSG');
1979: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1980: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1981: -- Visit Start Time and previous Visit End Time has overlap.
1982: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VVT_CONFLICT_MSG');
1983: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1984: END IF;
1985: END IF;
1986: END IF;
1979: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1980: ELSIF(p_prev_event_type = G_EVENT_TYPE_VISIT)THEN
1981: -- Visit Start Time and previous Visit End Time has overlap.
1982: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_VVT_CONFLICT_MSG');
1983: x_Visit_Schedule_Rec.CONFLICT_MESSAGE := x_Visit_Schedule_Rec.CONFLICT_MESSAGE ||FND_MESSAGE.get;
1984: END IF;
1985: END IF;
1986: END IF;
1987: -- add current event to table of events.
2092: --p_end_date_time IS NULL OR p_end_date_time = FND_API.G_MISS_DATE OR
2093: --p_start_date_time >= nvl(p_end_date_time, p_start_date_time + 1)
2094: )
2095: THEN
2096: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_INVALID_PROCEDURE_CALL');
2097: FND_MESSAGE.SET_TOKEN('PROCEDURE', l_api_name);
2098: FND_MSG_PUB.ADD;
2099: RAISE FND_API.G_EXC_ERROR;
2100: END IF;
2093: --p_start_date_time >= nvl(p_end_date_time, p_start_date_time + 1)
2094: )
2095: THEN
2096: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_INVALID_PROCEDURE_CALL');
2097: FND_MESSAGE.SET_TOKEN('PROCEDURE', l_api_name);
2098: FND_MSG_PUB.ADD;
2099: RAISE FND_API.G_EXC_ERROR;
2100: END IF;
2101:
2103: OPEN check_unit_exists (p_unit_config_id);
2104: FETCH check_unit_exists INTO l_dummy_varchar;
2105: IF (check_unit_exists%NOTFOUND)
2106: THEN
2107: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_UNIT_ID_NOT_FOUND');
2108: FND_MSG_PUB.ADD;
2109: CLOSE check_unit_exists;
2110: RAISE FND_API.G_EXC_ERROR;
2111: END IF;