[Home] [Help]
77: RETURN;
78: ELSE -- Raise error, If one among the space start from and end to is entered, the other is mandatory.
79: Fnd_Message.SET_NAME('AHL','AHL_VWP_SPACE_ST_END_DT_MND');
80: Fnd_message.SET_TOKEN( 'SPACE_NAME', p_space_assign_rec.SPACE_NAME );-- PRAKKUM :: 02/06/2011 :: VWPE :: Added token
81: Fnd_Msg_Pub.ADD;
82: RAISE Fnd_Api.G_EXC_ERROR;
83: END IF; /* end to null comparison */
84: ELSE
85: IF p_space_assign_rec.END_TO is NULL THEN -- Raise error, If one among the space start from and end to is entered, the other is mandatory.
84: ELSE
85: IF p_space_assign_rec.END_TO is NULL THEN -- Raise error, If one among the space start from and end to is entered, the other is mandatory.
86: Fnd_Message.SET_NAME('AHL','AHL_VWP_SPACE_ST_END_DT_MND');
87: Fnd_message.SET_TOKEN( 'SPACE_NAME', p_space_assign_rec.SPACE_NAME );-- PRAKKUM :: 02/06/2011 :: VWPE :: Added token
88: Fnd_Msg_Pub.ADD;
89: RAISE Fnd_Api.G_EXC_ERROR;
90: ELSE -- Both dates are not null
91:
92: IF ( p_space_assign_rec.START_FROM > p_space_assign_rec.END_TO ) THEN -- Start_from > End_To
91:
92: IF ( p_space_assign_rec.START_FROM > p_space_assign_rec.END_TO ) THEN -- Start_from > End_To
93: Fnd_Message.SET_NAME('AHL','AHL_VWP_SPACE_ST_DT_GT_END_DT');
94: Fnd_message.SET_TOKEN( 'SPACE_NAME', p_space_assign_rec.SPACE_NAME );-- PRAKKUM :: 02/06/2011 :: VWPE :: Added token
95: Fnd_Msg_Pub.ADD;
96: RAISE Fnd_Api.G_EXC_ERROR;
97: END IF; /* start from and end to comparision */
98:
99: -- Validation to find whether space dates fall under visit dates or not
103: l_isValidationFailed := false;
104: IF ( l_visit_dets_rec.START_DATE IS NOT NULL AND p_space_assign_rec.START_FROM < l_visit_dets_rec.START_DATE ) THEN -- Validation failed
105: Fnd_Message.SET_NAME('AHL','AHL_VWP_SPACE_ST_DATE_INVLD');
106: Fnd_message.SET_TOKEN( 'SPACE_NAME', p_space_assign_rec.SPACE_NAME );-- PRAKKUM :: 02/06/2011 :: VWPE :: Added token
107: Fnd_Msg_Pub.ADD;
108: l_isValidationFailed := true;
109: END IF;
110:
111: IF ( l_visit_dets_rec.PLANNED_END_DATE IS NOT NULL AND p_space_assign_rec.END_TO > l_visit_dets_rec.PLANNED_END_DATE ) THEN -- Validation failed
110:
111: IF ( l_visit_dets_rec.PLANNED_END_DATE IS NOT NULL AND p_space_assign_rec.END_TO > l_visit_dets_rec.PLANNED_END_DATE ) THEN -- Validation failed
112: Fnd_Message.SET_NAME('AHL','AHL_VWP_SPACE_END_DATE_INVLD');
113: Fnd_message.SET_TOKEN( 'SPACE_NAME', p_space_assign_rec.SPACE_NAME );-- PRAKKUM :: 02/06/2011 :: VWPE :: Added token
114: Fnd_Msg_Pub.ADD;
115: l_isValidationFailed := true;
116: END IF;
117: END IF;
118: CLOSE validate_with_visit_dets;
123:
124: END IF; /* end to null comparison */
125: END IF; /* start from null comparison */
126:
127: l_msg_count := Fnd_Msg_Pub.count_msg;
128: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
129: x_msg_count := l_msg_count;
130: x_return_status := l_return_status;
131: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
140: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
141: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
142: END IF;
143:
144: Fnd_Msg_Pub.count_and_get(
145: p_encoded => Fnd_Api.g_false,
146: p_count => x_msg_count,
147: p_data => x_msg_data);
148:
148:
149: EXCEPTION
150: WHEN FND_API.G_EXC_ERROR THEN
151: x_return_status := FND_API.G_RET_STS_ERROR;
152: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
155: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
156: WHEN OTHERS THEN
151: x_return_status := FND_API.G_RET_STS_ERROR;
152: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
155: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
156: WHEN OTHERS THEN
157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
158: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
159: fnd_msg_pub.add_exc_msg( p_pkg_name => G_PKG_NAME, p_procedure_name => L_API_NAME, p_error_text => SUBSTR(SQLERRM,1,500));
154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
155: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
156: WHEN OTHERS THEN
157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
158: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
159: fnd_msg_pub.add_exc_msg( p_pkg_name => G_PKG_NAME, p_procedure_name => L_API_NAME, p_error_text => SUBSTR(SQLERRM,1,500));
160: END IF;
161: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
162:
155: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
156: WHEN OTHERS THEN
157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
158: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
159: fnd_msg_pub.add_exc_msg( p_pkg_name => G_PKG_NAME, p_procedure_name => L_API_NAME, p_error_text => SUBSTR(SQLERRM,1,500));
160: END IF;
161: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
162:
163: END Validate_Space_Dates;
157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
158: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
159: fnd_msg_pub.add_exc_msg( p_pkg_name => G_PKG_NAME, p_procedure_name => L_API_NAME, p_error_text => SUBSTR(SQLERRM,1,500));
160: END IF;
161: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
162:
163: END Validate_Space_Dates;
164:
165: --
229: LOOP
230:
231: Fnd_Message.SET_NAME('AHL','AHL_VWP_VST_SPACE_DATES');
232: FND_MESSAGE.SET_TOKEN('SPACE_NAME',l_invalid_space_dates.SPACE_NAME);
233: Fnd_Msg_Pub.ADD;
234: l_isValidationFailed := true;
235:
236: END LOOP;
237:
238: IF l_isValidationFailed THEN
239: RAISE Fnd_Api.G_EXC_ERROR;
240: END IF;
241:
242: l_msg_count := Fnd_Msg_Pub.count_msg;
243: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
244: x_msg_count := l_msg_count;
245: x_return_status := l_return_status;
246: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
258:
259: EXCEPTION
260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
261: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
262: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
263: p_count => x_msg_count,
264: p_data => x_msg_data);
265:
266: WHEN FND_API.G_EXC_ERROR THEN
264: p_data => x_msg_data);
265:
266: WHEN FND_API.G_EXC_ERROR THEN
267: X_return_status := FND_API.G_RET_STS_ERROR;
268: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
269: p_count => x_msg_count,
270: p_data => X_msg_data);
271: WHEN OTHERS THEN
272: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
269: p_count => x_msg_count,
270: p_data => X_msg_data);
271: WHEN OTHERS THEN
272: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
274: THEN
275: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
276: p_procedure_name => L_API_NAME,
277: p_error_text => SUBSTR(SQLERRM,1,240));
271: WHEN OTHERS THEN
272: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
274: THEN
275: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
276: p_procedure_name => L_API_NAME,
277: p_error_text => SUBSTR(SQLERRM,1,240));
278: END IF;
279: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
275: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
276: p_procedure_name => L_API_NAME,
277: p_error_text => SUBSTR(SQLERRM,1,240));
278: END IF;
279: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
280: p_count => x_msg_count,
281: p_data => X_msg_data);
282: END VALIDATE_SPACES_WITH_VISIT;
283:
592: x_space_assign_rec := p_space_assign_rec;
593: OPEN c_space_assign_rec;
594: FETCH c_space_assign_rec INTO l_space_assign_rec;
595: IF c_space_assign_rec%NOTFOUND THEN
596: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
597: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_NOT_FOUND');
598: FND_MSG_PUB.add;
599: CLOSE c_space_assign_rec;
600: RAISE Fnd_Api.G_EXC_ERROR;
594: FETCH c_space_assign_rec INTO l_space_assign_rec;
595: IF c_space_assign_rec%NOTFOUND THEN
596: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
597: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_NOT_FOUND');
598: FND_MSG_PUB.add;
599: CLOSE c_space_assign_rec;
600: RAISE Fnd_Api.G_EXC_ERROR;
601: END IF;
602: END IF;
604: --Check for object version number
605: IF (l_space_assign_rec.object_version_number <> p_space_assign_rec.object_version_number)
606: THEN
607: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
608: Fnd_Msg_Pub.ADD;
609: RAISE Fnd_Api.G_EXC_ERROR;
610: END IF;
611:
612: -- SPACE ID
833: )
834: --
835: THEN
836: -- missing required fields
837: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
838: THEN
839: Fnd_Message.set_name('AHL', 'AHL_LTP_SPACE_ID_NOT_EXIST');
840: Fnd_Msg_Pub.ADD;
841: RAISE Fnd_Api.G_EXC_ERROR;
836: -- missing required fields
837: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
838: THEN
839: Fnd_Message.set_name('AHL', 'AHL_LTP_SPACE_ID_NOT_EXIST');
840: Fnd_Msg_Pub.ADD;
841: RAISE Fnd_Api.G_EXC_ERROR;
842: END IF;
843: x_return_status := Fnd_Api.G_RET_STS_ERROR;
844: END IF;
846: IF (p_space_assign_rec.VISIT_ID = Fnd_Api.G_MISS_NUM OR
847: p_space_assign_rec.VISIT_ID IS NULL)
848: THEN
849: -- missing required fields
850: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
851: THEN
852: Fnd_Message.set_name('AHL', 'AHL_LTP_VISIT_ID_NOT_EXIST');
853: Fnd_Msg_Pub.ADD;
854: END IF;
849: -- missing required fields
850: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
851: THEN
852: Fnd_Message.set_name('AHL', 'AHL_LTP_VISIT_ID_NOT_EXIST');
853: Fnd_Msg_Pub.ADD;
854: END IF;
855: x_return_status := Fnd_Api.G_RET_STS_ERROR;
856: END IF;
857:
874: CLOSE check_unique;
875: --
876: IF l_dummy IS NOT NULL THEN
877: Fnd_Message.set_name('AHL', 'AHL_LTP_SP_ASSIGN_DUP_RECORD');
878: Fnd_Msg_Pub.ADD;
879: END IF;
880: --- Validation for visit type and inventory item
881: OPEN visit_item_cur(p_space_assign_rec.visit_id);
882: FETCH visit_item_cur INTO l_visit_type_code,
907: EXIT WHEN space_unavailable_cur%NOTFOUND;
908: IF space_unavailable_cur%FOUND THEN
909: Fnd_Message.set_name('AHL', 'AHL_LTP_SP_UNAVAL_PERIOD');
910: Fnd_message.set_token( 'PERIOD', l_start_date ||' '||'to'||' '||l_end_date );
911: Fnd_Msg_Pub.ADD;
912: END IF;
913: END LOOP;
914: CLOSE space_unavailable_cur;
915:
925: IF (l_start_date_time >= l_start_date AND
926: l_start_date_time <= l_end_date) THEN
927: Fnd_Message.set_name('AHL', 'AHL_LTP_SP_UNAVAL_PERIOD');
928: Fnd_message.set_token( 'PERIOD', l_start_date ||' '||'to'||' '||l_end_date );
929: Fnd_Msg_Pub.ADD;
930: END IF;
931: END LOOP;
932: CLOSE space_available_cur;
933: --
938: l_inventory_item_id);
939: FETCH space_capable_cur INTO l_space_capability_id;
940: IF l_space_capability_id IS NULL THEN
941: Fnd_Message.set_name('AHL', 'AHL_LTP_VISIT_ITEM_NOT_EXIST');
942: Fnd_Msg_Pub.ADD;
943: END IF;
944: CLOSE space_capable_cur;
945:
946: --
986: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
987: END IF;
988: -- Initialize message list if p_init_msg_list is set to TRUE.
989: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
990: Fnd_Msg_Pub.initialize;
991: END IF;
992:
993: --Initialize API return status to success
994: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1035: --
1036: -- END of API body.
1037: --
1038: -------------------- finish --------------------------
1039: Fnd_Msg_Pub.count_and_get(
1040: p_encoded => Fnd_Api.g_false,
1041: p_count => x_msg_count,
1042: p_data => x_msg_data);
1043: EXCEPTION
1042: p_data => x_msg_data);
1043: EXCEPTION
1044: WHEN Fnd_Api.G_EXC_ERROR THEN
1045: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
1046: Fnd_Msg_Pub.Count_AND_Get
1047: ( p_count => x_msg_count,
1048: p_data => x_msg_data,
1049: p_encoded => Fnd_Api.G_FALSE
1050: );
1049: p_encoded => Fnd_Api.G_FALSE
1050: );
1051: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1052: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
1053: Fnd_Msg_Pub.Count_AND_Get
1054: ( p_count => x_msg_count,
1055: p_data => x_msg_data,
1056: p_encoded => Fnd_Api.G_FALSE
1057: );
1056: p_encoded => Fnd_Api.G_FALSE
1057: );
1058: WHEN OTHERS THEN
1059: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
1060: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
1061: THEN
1062: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1063: END IF;
1064: Fnd_Msg_Pub.Count_AND_Get
1058: WHEN OTHERS THEN
1059: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
1060: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
1061: THEN
1062: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1063: END IF;
1064: Fnd_Msg_Pub.Count_AND_Get
1065: ( p_count => x_msg_count,
1066: p_data => x_msg_data,
1060: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
1061: THEN
1062: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1063: END IF;
1064: Fnd_Msg_Pub.Count_AND_Get
1065: ( p_count => x_msg_count,
1066: p_data => x_msg_data,
1067: p_encoded => Fnd_Api.G_FALSE
1068: );
1130: END IF;
1131: -- Standard call to check for call compatibility.
1132: IF FND_API.to_boolean(p_init_msg_list)
1133: THEN
1134: FND_MSG_PUB.initialize;
1135: END IF;
1136: -- Initialize API return status to success
1137: x_return_status := FND_API.G_RET_STS_SUCCESS;
1138: -- Initialize message list if p_init_msg_list is set to TRUE.
1182: IF NVL(l_return_status,'x') <> 'S'
1183: THEN
1184: Fnd_Message.SET_NAME('AHL','AHL_LTP_SPACE_NOT_EXISTS');
1185: Fnd_Message.SET_TOKEN('SPACEID',p_x_space_assign_rec.space_name);
1186: Fnd_Msg_Pub.ADD;
1187: END IF;
1188: END IF;
1189: --Assign the returned value
1190: p_x_space_assign_rec.space_id := l_space_id;
1204:
1205: IF NVL(l_return_status,'x') <> 'S'
1206: THEN
1207: Fnd_Message.SET_NAME('AHL','AHL_LTP_VISIT_ID_NOT_EXIST');
1208: Fnd_Msg_Pub.ADD;
1209: RAISE Fnd_Api.G_EXC_ERROR;
1210: END IF;
1211: END IF;
1212: --Assign the returned value
1212: --Assign the returned value
1213: p_x_space_assign_rec.visit_id := l_visit_id;
1214:
1215: --Standard check to count messages
1216: l_msg_count := Fnd_Msg_Pub.count_msg;
1217:
1218: IF l_msg_count > 0 THEN
1219: X_msg_count := l_msg_count;
1220: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1238: x_msg_data => l_msg_data );
1239:
1240:
1241: --Standard check to count messages
1242: l_msg_count := Fnd_Msg_Pub.count_msg;
1243:
1244: IF l_msg_count > 0 THEN
1245: X_msg_count := l_msg_count;
1246: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1286: END IF;
1287:
1288: IF l_space_assignment_id IS NULL THEN
1289: Fnd_Message.SET_NAME('AHL','AHL_LTP_SEQUENCE_NOT_EXISTS');
1290: Fnd_Msg_Pub.ADD;
1291: RAISE Fnd_Api.G_EXC_ERROR;
1292: END IF;
1293:
1294: -- Check to be sure that the sequence does not exist.
1300: -- l_dummy would be populated with '1', otherwise,
1301: -- it receives NULL.
1302: IF l_dummy IS NOT NULL THEN
1303: Fnd_Message.SET_NAME('AHL','AHL_LTP_SEQUENCE_NOT_EXISTS');
1304: Fnd_Msg_Pub.ADD;
1305: END IF;
1306:
1307: -- PRAKKUM :: VWPE :: ER 12424063 :: 22-FEB-2011 :: END :: Changes to handle seq from page
1308:
1421: l_space_assign_rec.attribute15 := p_x_space_assign_rec.attribute15;
1422: END IF;
1423:
1424: --Standard check to count messages
1425: l_msg_count := Fnd_Msg_Pub.count_msg;
1426:
1427: IF l_msg_count > 0 THEN
1428: X_msg_count := l_msg_count;
1429: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1497:
1498: p_x_space_assign_rec.space_assignment_id := l_space_assignment_id;
1499: ---------------------------End of Body---------------------------------------
1500: --Standard check to count messages
1501: l_msg_count := Fnd_Msg_Pub.count_msg;
1502:
1503: IF l_msg_count > 0 THEN
1504: X_msg_count := l_msg_count;
1505: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1519: EXCEPTION
1520: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1521: ROLLBACK TO create_space_assignment;
1522: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1523: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1524: p_count => x_msg_count,
1525: p_data => x_msg_data);
1526: IF G_DEBUG='Y' THEN
1527:
1533: END IF;
1534: WHEN FND_API.G_EXC_ERROR THEN
1535: ROLLBACK TO create_space_assignment;
1536: X_return_status := FND_API.G_RET_STS_ERROR;
1537: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1538: p_count => x_msg_count,
1539: p_data => X_msg_data);
1540: IF G_DEBUG='Y' THEN
1541: -- Debug info.
1547: END IF;
1548: WHEN OTHERS THEN
1549: ROLLBACK TO create_space_assignment;
1550: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1551: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1552: THEN
1553: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
1554: p_procedure_name => 'CREATE_SPACE_ASSIGNMENT',
1555: p_error_text => SUBSTR(SQLERRM,1,240));
1549: ROLLBACK TO create_space_assignment;
1550: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1551: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1552: THEN
1553: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
1554: p_procedure_name => 'CREATE_SPACE_ASSIGNMENT',
1555: p_error_text => SUBSTR(SQLERRM,1,240));
1556: END IF;
1557: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1553: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
1554: p_procedure_name => 'CREATE_SPACE_ASSIGNMENT',
1555: p_error_text => SUBSTR(SQLERRM,1,240));
1556: END IF;
1557: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1558: p_count => x_msg_count,
1559: p_data => X_msg_data);
1560: IF G_DEBUG='Y' THEN
1561: -- Debug info.
1617: END IF;
1618: -- Standard call to check for call compatibility.
1619: IF FND_API.to_boolean(p_init_msg_list)
1620: THEN
1621: FND_MSG_PUB.initialize;
1622: END IF;
1623: -- Initialize API return status to success
1624: x_return_status := FND_API.G_RET_STS_SUCCESS;
1625: -- Initialize message list if p_init_msg_list is set to TRUE.
1653: IF NVL(l_return_status,'x') <> 'S'
1654: THEN
1655: Fnd_Message.SET_NAME('AHL','AHL_LTP_SPACE_NOT_EXISTS');
1656: Fnd_Message.SET_TOKEN('SPACEID',p_space_assign_rec.space_name);
1657: Fnd_Msg_Pub.ADD;
1658: END IF;
1659: END IF;
1660: --Assign the returned value
1661: l_Space_assign_rec.space_id := l_space_id;
1676: IF NVL(l_return_status,'x') <> 'S'
1677: THEN
1678: Fnd_Message.SET_NAME('AHL','AHL_LTP_VISIT_NOT_EXISTS');
1679: Fnd_Message.SET_TOKEN('VISITID',p_space_assign_rec.visit_number);
1680: Fnd_Msg_Pub.ADD;
1681: END IF;
1682: END IF;
1683: --Assign the returned value
1684: l_Space_assign_rec.visit_id := l_visit_id;
1732:
1733:
1734: ---------------------------End of Body---------------------------------------
1735: --Standard check to count messages
1736: l_msg_count := Fnd_Msg_Pub.count_msg;
1737:
1738: IF l_msg_count > 0 THEN
1739: X_msg_count := l_msg_count;
1740: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1757: EXCEPTION
1758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1759: ROLLBACK TO update_space_assignment;
1760: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1761: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1762: p_count => x_msg_count,
1763: p_data => x_msg_data);
1764: IF G_DEBUG='Y' THEN
1765:
1771: END IF;
1772: WHEN FND_API.G_EXC_ERROR THEN
1773: ROLLBACK TO update_space_assignment;
1774: X_return_status := FND_API.G_RET_STS_ERROR;
1775: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1776: p_count => x_msg_count,
1777: p_data => X_msg_data);
1778: IF G_DEBUG='Y' THEN
1779: -- Debug info.
1785: END IF;
1786: WHEN OTHERS THEN
1787: ROLLBACK TO update_space_assignment;
1788: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1789: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1790: THEN
1791: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
1792: p_procedure_name => 'UPDATE_SPACE_ASSIGNMENT',
1793: p_error_text => SUBSTR(SQLERRM,1,240));
1787: ROLLBACK TO update_space_assignment;
1788: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1789: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1790: THEN
1791: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
1792: p_procedure_name => 'UPDATE_SPACE_ASSIGNMENT',
1793: p_error_text => SUBSTR(SQLERRM,1,240));
1794: END IF;
1795: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1791: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
1792: p_procedure_name => 'UPDATE_SPACE_ASSIGNMENT',
1793: p_error_text => SUBSTR(SQLERRM,1,240));
1794: END IF;
1795: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1796: p_count => x_msg_count,
1797: p_data => X_msg_data);
1798:
1799: IF G_DEBUG='Y' THEN
1901: END IF;
1902: -- Standard call to check for call compatibility.
1903: IF FND_API.to_boolean(p_init_msg_list)
1904: THEN
1905: FND_MSG_PUB.initialize;
1906: END IF;
1907: -- Initialize API return status to success
1908: x_return_status := FND_API.G_RET_STS_SUCCESS;
1909: -- Initialize message list if p_init_msg_list is set to TRUE.
1978: OPEN c_space_assign_cur(p_space_assign_rec.space_assignment_id);
1979: FETCH c_space_assign_cur INTO l_space_assignment_id,
1980: l_object_version_number;
1981: IF c_space_assign_cur%NOTFOUND THEN
1982: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1983: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_NOT_FOUND');
1984: FND_MSG_PUB.add;
1985: END IF;
1986: CLOSE c_space_assign_cur;
1980: l_object_version_number;
1981: IF c_space_assign_cur%NOTFOUND THEN
1982: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1983: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_NOT_FOUND');
1984: FND_MSG_PUB.add;
1985: END IF;
1986: CLOSE c_space_assign_cur;
1987: RAISE FND_API.g_exc_error;
1988: END IF;
1998: --Check for object version number
1999: IF l_object_version_number <> p_space_assign_rec.object_version_number
2000: THEN
2001: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
2002: FND_MSG_PUB.add;
2003: RAISE FND_API.g_exc_error;
2004: END IF;
2005: -------------------Call Table handler generated procedure------------
2006: DELETE FROM AHL_SPACE_ASSIGNMENTS
2007: WHERE SPACE_ASSIGNMENT_ID = p_space_assign_rec.space_assignment_id;
2008: END IF;
2009: ---------------------------End of Body---------------------------------------
2010: --Standard check to count messages
2011: l_msg_count := Fnd_Msg_Pub.count_msg;
2012:
2013: IF l_msg_count > 0 THEN
2014: X_msg_count := l_msg_count;
2015: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2032: EXCEPTION
2033: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2034: ROLLBACK TO delete_space_assignment;
2035: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2036: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2037: p_count => x_msg_count,
2038: p_data => x_msg_data);
2039: IF G_DEBUG='Y' THEN
2040:
2046: END IF;
2047: WHEN FND_API.G_EXC_ERROR THEN
2048: ROLLBACK TO delete_space_assignment;
2049: X_return_status := FND_API.G_RET_STS_ERROR;
2050: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2051: p_count => x_msg_count,
2052: p_data => X_msg_data);
2053: IF G_DEBUG='Y' THEN
2054:
2061: END IF;
2062: WHEN OTHERS THEN
2063: ROLLBACK TO delete_space_assignment;
2064: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2065: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2066: THEN
2067: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
2068: p_procedure_name => 'DELETE_SPACE_ASSIGNMENT',
2069: p_error_text => SUBSTR(SQLERRM,1,240));
2063: ROLLBACK TO delete_space_assignment;
2064: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2065: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2066: THEN
2067: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
2068: p_procedure_name => 'DELETE_SPACE_ASSIGNMENT',
2069: p_error_text => SUBSTR(SQLERRM,1,240));
2070: END IF;
2071: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2067: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
2068: p_procedure_name => 'DELETE_SPACE_ASSIGNMENT',
2069: p_error_text => SUBSTR(SQLERRM,1,240));
2070: END IF;
2071: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2072: p_count => x_msg_count,
2073: p_data => X_msg_data);
2074: IF G_DEBUG='Y' THEN
2075:
2208: END IF;
2209: -- Standard call to check for call compatibility.
2210: IF FND_API.to_boolean(p_init_msg_list)
2211: THEN
2212: FND_MSG_PUB.initialize;
2213: END IF;
2214: -- Initialize API return status to success
2215: x_return_status := FND_API.G_RET_STS_SUCCESS;
2216: -- Initialize message list if p_init_msg_list is set to TRUE.
2253: IF NVL(l_return_status,'x') <> 'S'
2254: THEN
2255: Fnd_Message.SET_NAME('AHL','AHL_LTP_VISIT_NOT_EXISTS');
2256: Fnd_Message.SET_TOKEN('VISITID',p_x_schedule_visit_rec.visit_number);
2257: Fnd_Msg_Pub.ADD;
2258: END IF;
2259: END IF;
2260:
2261: --Get the existing Record
2273: p_x_schedule_visit_rec.org_name = FND_API.G_MISS_CHAR) THEN
2274: -- anraj: if visit is in planning Organization is not mandatory
2275: IF (l_schedule_visit_rec.status_code <> 'PLANNING') THEN
2276: Fnd_Message.SET_NAME('AHL','AHL_LTP_ORG_REQUIRED');
2277: Fnd_Msg_Pub.ADD;
2278: END IF;
2279: END IF;
2280:
2281: IF G_DEBUG='Y' THEN
2286: p_x_schedule_visit_rec.dept_name = FND_API.G_MISS_CHAR) THEN
2287: -- anraj: if visit is in planning Department is not mandatory
2288: IF (l_schedule_visit_rec.status_code <> 'PLANNING') THEN
2289: Fnd_Message.SET_NAME('AHL','AHL_LTP_DEPT_REQUIRED');
2290: Fnd_Msg_Pub.ADD;
2291: END IF;
2292: END IF;
2293: --
2294:
2296: IF ( p_x_schedule_visit_rec.start_date IS NULL AND
2297: p_x_schedule_visit_rec.start_date = FND_API.G_MISS_DATE)
2298: THEN
2299: Fnd_Message.SET_NAME('AHL','AHL_LTP_START_DATE_INVALID');
2300: Fnd_Msg_Pub.ADD;
2301: RAISE Fnd_Api.G_EXC_ERROR;
2302: END IF;
2303: --
2304:
2321:
2322: IF NVL(l_return_status, 'X') <> 'S'
2323: THEN
2324: Fnd_Message.SET_NAME('AHL','AHL_LTP_SP_CATEGORY_NOT_EXIST');
2325: Fnd_Msg_Pub.ADD;
2326: RAISE Fnd_Api.G_EXC_ERROR;
2327: END IF;
2328: ELSE
2329: -- Id presents
2354: IF NVL(l_return_status, 'X') <> 'S'
2355: THEN
2356: Fnd_Message.SET_NAME('AHL','AHL_LTP_VISIT_TYPE_NOT_EXISTS');
2357: Fnd_Message.SET_TOKEN('VISIT',p_x_schedule_visit_rec.visit_type_mean);
2358: Fnd_Msg_Pub.ADD;
2359: END IF;
2360: ELSE
2361: -- Id presents
2362: IF p_x_schedule_visit_rec.visit_type_code IS NOT NULL AND
2368: /*
2369: ELSIF (l_schedule_visit_rec.status_code <> 'PLANNING' )
2370: THEN
2371: Fnd_Message.SET_NAME('AHL','AHL_LTP_VISIT_TYPE_REQUIRED');
2372: Fnd_Msg_Pub.ADD;
2373: RAISE Fnd_Api.G_EXC_ERROR;
2374: */
2375: END IF;
2376:
2378: --
2379: IF p_x_schedule_visit_rec.object_version_number <> l_schedule_visit_rec.object_version_number
2380: THEN
2381: Fnd_Message.SET_NAME('AHL','AHL_LTP_INVALID_RECORD');
2382: Fnd_Msg_Pub.ADD;
2383: END IF;
2384:
2385: -- Check for visit status
2386: -- anraj : Commented the following block as Impelmented/Partially Implemented visits can also be updated.
2385: -- Check for visit status
2386: -- anraj : Commented the following block as Impelmented/Partially Implemented visits can also be updated.
2387: /* IF (l_schedule_visit_rec.status_code <> 'PLANNING' )THEN
2388: Fnd_Message.SET_NAME('AHL','AHL_VISIT_NOT_PLANNED');
2389: Fnd_Msg_Pub.ADD;
2390: RAISE Fnd_Api.G_EXC_ERROR;
2391: END IF;
2392: */
2393:
2440: END IF; --org condition
2441: END IF; --Schedule flag
2442: */
2443: --Standard check to count messages
2444: l_msg_count := Fnd_Msg_Pub.count_msg;
2445:
2446: IF l_msg_count > 0 THEN
2447: X_msg_count := l_msg_count;
2448: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2501: CLOSE c_visit_sched_cur;
2502: */
2503:
2504: --Standard check to count messages
2505: l_msg_count := Fnd_Msg_Pub.count_msg;
2506:
2507: IF l_msg_count > 0 THEN
2508: X_msg_count := l_msg_count;
2509: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2575: END IF;
2576:
2577: -- Check Error Message stack.
2578: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2579: l_msg_count := FND_MSG_PUB.count_msg;
2580: IF l_msg_count > 0 THEN
2581: RAISE FND_API.G_EXC_ERROR;
2582: END IF;
2583: END IF;
2622:
2623: END IF;
2624: */
2625: --Standard check to count messages
2626: l_msg_count := Fnd_Msg_Pub.count_msg;
2627:
2628: IF l_msg_count > 0 THEN
2629: X_msg_count := l_msg_count;
2630: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2648: EXCEPTION
2649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2650: ROLLBACK TO schedule_visit;
2651: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2652: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2653: p_count => x_msg_count,
2654: p_data => x_msg_data);
2655: IF G_DEBUG='Y' THEN
2656:
2662: END IF;
2663: WHEN FND_API.G_EXC_ERROR THEN
2664: ROLLBACK TO schedule_visit;
2665: X_return_status := FND_API.G_RET_STS_ERROR;
2666: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2667: p_count => x_msg_count,
2668: p_data => X_msg_data);
2669: IF G_DEBUG='Y' THEN
2670:
2677: END IF;
2678: WHEN OTHERS THEN
2679: ROLLBACK TO schedule_visit;
2680: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2681: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2682: THEN
2683: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
2684: p_procedure_name => 'SCHEDULE_VISIT',
2685: p_error_text => SUBSTR(SQLERRM,1,240));
2679: ROLLBACK TO schedule_visit;
2680: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2681: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2682: THEN
2683: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
2684: p_procedure_name => 'SCHEDULE_VISIT',
2685: p_error_text => SUBSTR(SQLERRM,1,240));
2686: END IF;
2687: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2683: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
2684: p_procedure_name => 'SCHEDULE_VISIT',
2685: p_error_text => SUBSTR(SQLERRM,1,240));
2686: END IF;
2687: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2688: p_count => x_msg_count,
2689: p_data => X_msg_data);
2690: IF G_DEBUG='Y' THEN
2691:
2796: END IF;
2797: -- Standard call to check for call compatibility.
2798: IF FND_API.to_boolean(p_init_msg_list)
2799: THEN
2800: FND_MSG_PUB.initialize;
2801: END IF;
2802: -- Initialize API return status to success
2803: x_return_status := FND_API.G_RET_STS_SUCCESS;
2804: -- Initialize message list if p_init_msg_list is set to TRUE.
2825: IF NVL(l_return_status,'x') <> 'S'
2826: THEN
2827: Fnd_Message.SET_NAME('AHL','AHL_LTP_VISIT_NOT_EXISTS');
2828: Fnd_Message.SET_TOKEN('VISITID',p_x_schedule_visit_rec.visit_number);
2829: Fnd_Msg_Pub.ADD;
2830: END IF;
2831: END IF;
2832: --Assign the returned value
2833: p_x_schedule_visit_rec.visit_id := l_visit_id;
2839: --
2840: IF p_x_schedule_visit_rec.object_version_number <> l_object_version_number
2841: THEN
2842: Fnd_Message.SET_NAME('AHL','AHL_LTP_INAVLID_RECORD');
2843: Fnd_Msg_Pub.ADD;
2844: RAISE Fnd_Api.G_EXC_ERROR;
2845: END IF;
2846: -- Check for visit status
2847: IF (l_visit_status_code <> 'PLANNING' )THEN
2845: END IF;
2846: -- Check for visit status
2847: IF (l_visit_status_code <> 'PLANNING' )THEN
2848: Fnd_Message.SET_NAME('AHL','AHL_VISIT_NOT_PLANNED');
2849: Fnd_Msg_Pub.ADD;
2850: RAISE Fnd_Api.G_EXC_ERROR;
2851: END IF;
2852: --
2853: --Check for material scheduling
2865: OPEN c_visit_task_matrl_cur(l_schedule_material_id);
2866: FETCH c_visit_task_matrl_cur INTO l_scheduled_date,l_scheduled_quantity;
2867: IF l_scheduled_date IS NOT NULL THEN
2868: Fnd_Message.SET_NAME('AHL','AHL_LTP_MRP_SCHEDUl_ITEM');
2869: Fnd_Msg_Pub.ADD;
2870: CLOSE c_visit_task_matrl_cur;
2871: RAISE Fnd_Api.G_EXC_ERROR;
2872: ELSE
2873: UPDATE ahl_schedule_materials
2975: END IF;
2976:
2977: -- Check Error Message stack.
2978: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2979: l_msg_count := FND_MSG_PUB.count_msg;
2980: IF l_msg_count > 0 THEN
2981: RAISE FND_API.G_EXC_ERROR;
2982: END IF;
2983: END IF;
2985: -- Changes by mpothuku End
2986:
2987: ---------------------------End of Body---------------------------------------
2988: --Standard check to count messages
2989: l_msg_count := Fnd_Msg_Pub.count_msg;
2990:
2991: IF l_msg_count > 0 THEN
2992: X_msg_count := l_msg_count;
2993: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3007: EXCEPTION
3008: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3009: ROLLBACK TO unschedule_visit;
3010: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3011: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3012: p_count => x_msg_count,
3013: p_data => x_msg_data);
3014: IF G_DEBUG='Y' THEN
3015:
3021: END IF;
3022: WHEN FND_API.G_EXC_ERROR THEN
3023: ROLLBACK TO unschedule_visit;
3024: X_return_status := FND_API.G_RET_STS_ERROR;
3025: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3026: p_count => x_msg_count,
3027: p_data => X_msg_data);
3028: IF G_DEBUG='Y' THEN
3029:
3036: END IF;
3037: WHEN OTHERS THEN
3038: ROLLBACK TO unschedule_visit;
3039: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3040: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3041: THEN
3042: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
3043: p_procedure_name => 'UNSCHEDULE_VISIT',
3044: p_error_text => SUBSTR(SQLERRM,1,240));
3038: ROLLBACK TO unschedule_visit;
3039: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3040: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3041: THEN
3042: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
3043: p_procedure_name => 'UNSCHEDULE_VISIT',
3044: p_error_text => SUBSTR(SQLERRM,1,240));
3045: END IF;
3046: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3042: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
3043: p_procedure_name => 'UNSCHEDULE_VISIT',
3044: p_error_text => SUBSTR(SQLERRM,1,240));
3045: END IF;
3046: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3047: p_count => x_msg_count,
3048: p_data => X_msg_data);
3049: IF G_DEBUG='Y' THEN
3050: