[Home] [Help]
58: AND meaning = p_meaning
59: AND SYSDATE BETWEEN start_date_active
60: AND NVL(end_date_active,SYSDATE);
61: END IF;
62: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
63:
64: EXCEPTION
65: WHEN NO_DATA_FOUND THEN
66: x_return_status := Fnd_Api.G_RET_STS_ERROR;
62: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
63:
64: EXCEPTION
65: WHEN NO_DATA_FOUND THEN
66: x_return_status := Fnd_Api.G_RET_STS_ERROR;
67: WHEN TOO_MANY_ROWS THEN
68: x_return_status := Fnd_Api.G_RET_STS_ERROR;
69: WHEN OTHERS THEN
70: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
64: EXCEPTION
65: WHEN NO_DATA_FOUND THEN
66: x_return_status := Fnd_Api.G_RET_STS_ERROR;
67: WHEN TOO_MANY_ROWS THEN
68: x_return_status := Fnd_Api.G_RET_STS_ERROR;
69: WHEN OTHERS THEN
70: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
71: RAISE;
72: END;
66: x_return_status := Fnd_Api.G_RET_STS_ERROR;
67: WHEN TOO_MANY_ROWS THEN
68: x_return_status := Fnd_Api.G_RET_STS_ERROR;
69: WHEN OTHERS THEN
70: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
71: RAISE;
72: END;
73: -- Start of Coments
74: -- CHECK_ORG_NAME_OR_ID
99: INTO x_organization_id
100: FROM HR_ALL_ORGANIZATION_UNITS
101: WHERE NAME = p_org_name;
102: END IF;
103: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
104: EXCEPTION
105: WHEN NO_DATA_FOUND THEN
106: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
107: x_error_msg_code:= 'AHL_LTP_ORG_NOT_EXISTS';
102: END IF;
103: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
104: EXCEPTION
105: WHEN NO_DATA_FOUND THEN
106: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
107: x_error_msg_code:= 'AHL_LTP_ORG_NOT_EXISTS';
108: WHEN TOO_MANY_ROWS THEN
109: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
110: x_error_msg_code:= 'AHL_LTP_ORG_NOT_EXISTS';
105: WHEN NO_DATA_FOUND THEN
106: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
107: x_error_msg_code:= 'AHL_LTP_ORG_NOT_EXISTS';
108: WHEN TOO_MANY_ROWS THEN
109: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
110: x_error_msg_code:= 'AHL_LTP_ORG_NOT_EXISTS';
111: WHEN OTHERS THEN
112: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
113: RAISE;
108: WHEN TOO_MANY_ROWS THEN
109: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
110: x_error_msg_code:= 'AHL_LTP_ORG_NOT_EXISTS';
111: WHEN OTHERS THEN
112: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
113: RAISE;
114: END Check_org_name_Or_Id;
115: -- Start of Comments
116: -- PROCEDURE
150: WHERE organization_id = p_organization_id
151: AND description = p_dept_description
152: AND EXISTS ( SELECT 'x' FROM AHL_DEPARTMENT_SHIFTS WHERE DEPARTMENT_ID = BOM_DEPARTMENTS.DEPARTMENT_ID);
153: END IF;
154: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
155: EXCEPTION
156: WHEN NO_DATA_FOUND THEN
157: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
158: x_error_msg_code:= 'AHL_LTP_DEPT_NOT_EXISTS';
153: END IF;
154: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
155: EXCEPTION
156: WHEN NO_DATA_FOUND THEN
157: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
158: x_error_msg_code:= 'AHL_LTP_DEPT_NOT_EXISTS';
159: WHEN TOO_MANY_ROWS THEN
160: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
161: x_error_msg_code:= 'AHL_LTP_DEPT_NOT_EXISTS';
156: WHEN NO_DATA_FOUND THEN
157: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
158: x_error_msg_code:= 'AHL_LTP_DEPT_NOT_EXISTS';
159: WHEN TOO_MANY_ROWS THEN
160: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
161: x_error_msg_code:= 'AHL_LTP_DEPT_NOT_EXISTS';
162: WHEN OTHERS THEN
163: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
164: RAISE;
159: WHEN TOO_MANY_ROWS THEN
160: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
161: x_error_msg_code:= 'AHL_LTP_DEPT_NOT_EXISTS';
162: WHEN OTHERS THEN
163: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
164: RAISE;
165: END Check_dept_desc_Or_Id;
166: --
167: -- PROCEDURE
195: INTO x_space_id
196: FROM AHL_SPACES_VL
197: WHERE SPACE_ID = p_space_id;
198: END IF;
199: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
200: EXCEPTION
201: WHEN NO_DATA_FOUND THEN
202: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
203: x_error_msg_code:= 'AHL_LTP_SPACE_NOT_EXISTS';
198: END IF;
199: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
200: EXCEPTION
201: WHEN NO_DATA_FOUND THEN
202: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
203: x_error_msg_code:= 'AHL_LTP_SPACE_NOT_EXISTS';
204: WHEN TOO_MANY_ROWS THEN
205: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
206: x_error_msg_code:= 'AHL_LTP_SPACE_NOT_EXISTS';
201: WHEN NO_DATA_FOUND THEN
202: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
203: x_error_msg_code:= 'AHL_LTP_SPACE_NOT_EXISTS';
204: WHEN TOO_MANY_ROWS THEN
205: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
206: x_error_msg_code:= 'AHL_LTP_SPACE_NOT_EXISTS';
207: WHEN OTHERS THEN
208: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
209: RAISE;
204: WHEN TOO_MANY_ROWS THEN
205: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
206: x_error_msg_code:= 'AHL_LTP_SPACE_NOT_EXISTS';
207: WHEN OTHERS THEN
208: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
209: RAISE;
210: END Check_space_name_Or_Id;
211: --
212: -- PROCEDURE
239: INTO x_visit_id
240: FROM AHL_VISITS_VL
241: WHERE visit_number = p_visit_number;
242: END IF;
243: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
244: EXCEPTION
245: WHEN NO_DATA_FOUND THEN
246: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
247: x_error_msg_code:= 'AHL_LTP_SPACE_NOT_EXISTS';
242: END IF;
243: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
244: EXCEPTION
245: WHEN NO_DATA_FOUND THEN
246: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
247: x_error_msg_code:= 'AHL_LTP_SPACE_NOT_EXISTS';
248: WHEN TOO_MANY_ROWS THEN
249: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
250: x_error_msg_code:= 'AHL_LTP_SPACE_NOT_EXISTS';
245: WHEN NO_DATA_FOUND THEN
246: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
247: x_error_msg_code:= 'AHL_LTP_SPACE_NOT_EXISTS';
248: WHEN TOO_MANY_ROWS THEN
249: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
250: x_error_msg_code:= 'AHL_LTP_SPACE_NOT_EXISTS';
251: WHEN OTHERS THEN
252: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
253: RAISE;
248: WHEN TOO_MANY_ROWS THEN
249: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
250: x_error_msg_code:= 'AHL_LTP_SPACE_NOT_EXISTS';
251: WHEN OTHERS THEN
252: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
253: RAISE;
254: END Check_visit_number_Or_Id;
255: --
256: -- PROCEDURE
333: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
334: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_NOT_FOUND');
335: FND_MSG_PUB.add;
336: CLOSE c_space_assign_rec;
337: RAISE Fnd_Api.G_EXC_ERROR;
338: END IF;
339: END IF;
340: CLOSE c_space_assign_rec;
341: --Check for object version number
342: IF (l_space_assign_rec.object_version_number <> p_space_assign_rec.object_version_number)
343: THEN
344: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
345: Fnd_Msg_Pub.ADD;
346: RAISE Fnd_Api.G_EXC_ERROR;
347: END IF;
348:
349: -- SPACE ID
350: IF p_space_assign_rec.space_id <> FND_API.g_miss_num THEN
346: RAISE Fnd_Api.G_EXC_ERROR;
347: END IF;
348:
349: -- SPACE ID
350: IF p_space_assign_rec.space_id <> FND_API.g_miss_num THEN
351: x_space_assign_rec.space_id := p_space_assign_rec.space_id;
352: ELSE
353: x_space_assign_rec.space_id := l_space_assign_rec.space_id;
354: END IF;
352: ELSE
353: x_space_assign_rec.space_id := l_space_assign_rec.space_id;
354: END IF;
355: -- VISIT_ID
356: IF p_space_assign_rec.visit_id <> FND_API.g_miss_num THEN
357: x_space_assign_rec.visit_id := p_space_assign_rec.visit_id;
358: ELSE
359: x_space_assign_rec.visit_id := l_space_assign_rec.visit_id;
360: END IF;
358: ELSE
359: x_space_assign_rec.visit_id := l_space_assign_rec.visit_id;
360: END IF;
361: -- ATTRIBUTE CATEGORY
362: IF p_space_assign_rec.attribute_category <> FND_API.g_miss_char THEN
363: x_space_assign_rec.attribute_category := p_space_assign_rec.attribute_category;
364: ELSE
365: x_space_assign_rec.attribute_category := l_space_assign_rec.attribute_category;
366: END IF;
364: ELSE
365: x_space_assign_rec.attribute_category := l_space_assign_rec.attribute_category;
366: END IF;
367: -- ATTRIBUTE 1
368: IF p_space_assign_rec.attribute1 <> FND_API.g_miss_char THEN
369: x_space_assign_rec.attribute1 := p_space_assign_rec.attribute1;
370: ELSE
371: x_space_assign_rec.attribute1 := l_space_assign_rec.attribute1;
372: END IF;
370: ELSE
371: x_space_assign_rec.attribute1 := l_space_assign_rec.attribute1;
372: END IF;
373: -- ATTRIBUTE 2
374: IF p_space_assign_rec.attribute2 <> FND_API.g_miss_char THEN
375: x_space_assign_rec.attribute2 := p_space_assign_rec.attribute2;
376: ELSE
377: x_space_assign_rec.attribute2 := l_space_assign_rec.attribute2;
378: END IF;
376: ELSE
377: x_space_assign_rec.attribute2 := l_space_assign_rec.attribute2;
378: END IF;
379: -- ATTRIBUTE 3
380: IF p_space_assign_rec.attribute3 <> FND_API.g_miss_char THEN
381: x_space_assign_rec.attribute3 := p_space_assign_rec.attribute3;
382: ELSE
383: x_space_assign_rec.attribute3 := l_space_assign_rec.attribute3;
384: END IF;
382: ELSE
383: x_space_assign_rec.attribute3 := l_space_assign_rec.attribute3;
384: END IF;
385: -- ATTRIBUTE 4
386: IF p_space_assign_rec.attribute4 <> FND_API.g_miss_char THEN
387: x_space_assign_rec.attribute4 := p_space_assign_rec.attribute4;
388: ELSE
389: x_space_assign_rec.attribute4 := l_space_assign_rec.attribute4;
390: END IF;
388: ELSE
389: x_space_assign_rec.attribute4 := l_space_assign_rec.attribute4;
390: END IF;
391: -- ATTRIBUTE 5
392: IF p_space_assign_rec.attribute5 <> FND_API.g_miss_char THEN
393: x_space_assign_rec.attribute5 := p_space_assign_rec.attribute5;
394: ELSE
395: x_space_assign_rec.attribute5 := l_space_assign_rec.attribute5;
396: END IF;
394: ELSE
395: x_space_assign_rec.attribute5 := l_space_assign_rec.attribute5;
396: END IF;
397: -- ATTRIBUTE 6
398: IF p_space_assign_rec.attribute6 <> FND_API.g_miss_char THEN
399: x_space_assign_rec.attribute6 := p_space_assign_rec.attribute6;
400: ELSE
401: x_space_assign_rec.attribute6 := l_space_assign_rec.attribute6;
402: END IF;
400: ELSE
401: x_space_assign_rec.attribute6 := l_space_assign_rec.attribute6;
402: END IF;
403: -- ATTRIBUTE 7
404: IF p_space_assign_rec.attribute7 <> FND_API.g_miss_char THEN
405: x_space_assign_rec.attribute7 := p_space_assign_rec.attribute7;
406: ELSE
407: x_space_assign_rec.attribute7 := l_space_assign_rec.attribute7;
408: END IF;
406: ELSE
407: x_space_assign_rec.attribute7 := l_space_assign_rec.attribute7;
408: END IF;
409: -- ATTRIBUTE 8
410: IF p_space_assign_rec.attribute8 <> FND_API.g_miss_char THEN
411: x_space_assign_rec.attribute8 := p_space_assign_rec.attribute8;
412: ELSE
413: x_space_assign_rec.attribute8 := l_space_assign_rec.attribute8;
414: END IF;
412: ELSE
413: x_space_assign_rec.attribute8 := l_space_assign_rec.attribute8;
414: END IF;
415: -- ATTRIBUTE 9
416: IF p_space_assign_rec.attribute9 <> FND_API.g_miss_char THEN
417: x_space_assign_rec.attribute9 := p_space_assign_rec.attribute9;
418: ELSE
419: x_space_assign_rec.attribute9 := l_space_assign_rec.attribute9;
420: END IF;
418: ELSE
419: x_space_assign_rec.attribute9 := l_space_assign_rec.attribute9;
420: END IF;
421: -- ATTRIBUTE 10
422: IF p_space_assign_rec.attribute10 <> FND_API.g_miss_char THEN
423: x_space_assign_rec.attribute10 := p_space_assign_rec.attribute10;
424: ELSE
425: x_space_assign_rec.attribute10 := l_space_assign_rec.attribute10;
426: END IF;
424: ELSE
425: x_space_assign_rec.attribute10 := l_space_assign_rec.attribute10;
426: END IF;
427: -- ATTRIBUTE 11
428: IF p_space_assign_rec.attribute11 <> FND_API.g_miss_char THEN
429: x_space_assign_rec.attribute11 := p_space_assign_rec.attribute11;
430: ELSE
431: x_space_assign_rec.attribute11 := l_space_assign_rec.attribute11;
432: END IF;
430: ELSE
431: x_space_assign_rec.attribute11 := l_space_assign_rec.attribute11;
432: END IF;
433: -- ATTRIBUTE 12
434: IF p_space_assign_rec.attribute12 <> FND_API.g_miss_char THEN
435: x_space_assign_rec.attribute12 := p_space_assign_rec.attribute12;
436: ELSE
437: x_space_assign_rec.attribute12 := l_space_assign_rec.attribute12;
438: END IF;
436: ELSE
437: x_space_assign_rec.attribute12 := l_space_assign_rec.attribute12;
438: END IF;
439: -- ATTRIBUTE 13
440: IF p_space_assign_rec.attribute13 <> FND_API.g_miss_char THEN
441: x_space_assign_rec.attribute13 := p_space_assign_rec.attribute13;
442: ELSE
443: x_space_assign_rec.attribute13 := l_space_assign_rec.attribute13;
444: END IF;
442: ELSE
443: x_space_assign_rec.attribute13 := l_space_assign_rec.attribute13;
444: END IF;
445: -- ATTRIBUTE 14
446: IF p_space_assign_rec.attribute14 <> FND_API.g_miss_char THEN
447: x_space_assign_rec.attribute14 := p_space_assign_rec.attribute14;
448: ELSE
449: x_space_assign_rec.attribute14 := l_space_assign_rec.attribute14;
450: END IF;
448: ELSE
449: x_space_assign_rec.attribute14 := l_space_assign_rec.attribute14;
450: END IF;
451: -- ATTRIBUTE 15
452: IF p_space_assign_rec.attribute15 <> FND_API.g_miss_char THEN
453: x_space_assign_rec.attribute15 := p_space_assign_rec.attribute15;
454: ELSE
455: x_space_assign_rec.attribute15 := l_space_assign_rec.attribute15;
456: END IF;
533: l_space_capability_id NUMBER;
534: --
535: BEGIN
536: -- Initialize API/Procedure return status to success
537: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
538: -- Check required parameters
539: IF (p_space_assign_rec.SPACE_ID IS NULL OR
540: p_space_assign_rec.SPACE_ID = Fnd_Api.G_MISS_NUM
541: )
536: -- Initialize API/Procedure return status to success
537: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
538: -- Check required parameters
539: IF (p_space_assign_rec.SPACE_ID IS NULL OR
540: p_space_assign_rec.SPACE_ID = Fnd_Api.G_MISS_NUM
541: )
542: --
543: THEN
544: -- missing required fields
545: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
546: THEN
547: Fnd_Message.set_name('AHL', 'AHL_LTP_SPACE_ID_NOT_EXIST');
548: Fnd_Msg_Pub.ADD;
549: RAISE Fnd_Api.G_EXC_ERROR;
550: END IF;
551: x_return_status := Fnd_Api.G_RET_STS_ERROR;
552: END IF;
553: -- VISIT_ID
547: Fnd_Message.set_name('AHL', 'AHL_LTP_SPACE_ID_NOT_EXIST');
548: Fnd_Msg_Pub.ADD;
549: RAISE Fnd_Api.G_EXC_ERROR;
550: END IF;
551: x_return_status := Fnd_Api.G_RET_STS_ERROR;
552: END IF;
553: -- VISIT_ID
554: IF (p_space_assign_rec.VISIT_ID = Fnd_Api.G_MISS_NUM OR
555: p_space_assign_rec.VISIT_ID IS NULL)
550: END IF;
551: x_return_status := Fnd_Api.G_RET_STS_ERROR;
552: END IF;
553: -- VISIT_ID
554: IF (p_space_assign_rec.VISIT_ID = Fnd_Api.G_MISS_NUM OR
555: p_space_assign_rec.VISIT_ID IS NULL)
556: THEN
557: -- missing required fields
558: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
559: THEN
560: Fnd_Message.set_name('AHL', 'AHL_LTP_VISIT_ID_NOT_EXIST');
561: Fnd_Msg_Pub.ADD;
562: END IF;
563: x_return_status := Fnd_Api.G_RET_STS_ERROR;
564: END IF;
565:
566: -- Validate uniqueness
567: OPEN check_unique (p_space_assign_rec.visit_id,
640: --
641: --
642: PROCEDURE Validate_Space_Assign
643: ( p_api_version IN NUMBER,
644: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
645: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
646: p_space_assign_rec IN space_assignment_rec,
647: x_return_status OUT NOCOPY VARCHAR2,
648: x_msg_count OUT NOCOPY NUMBER,
641: --
642: PROCEDURE Validate_Space_Assign
643: ( p_api_version IN NUMBER,
644: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
645: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
646: p_space_assign_rec IN space_assignment_rec,
647: x_return_status OUT NOCOPY VARCHAR2,
648: x_msg_count OUT NOCOPY NUMBER,
649: x_msg_data OUT NOCOPY VARCHAR2
655: l_return_status VARCHAR2(1);
656: l_space_assign_rec space_assignment_rec;
657: BEGIN
658: -- Standard call to check for call compatibility.
659: IF NOT Fnd_Api.Compatible_API_Call ( l_api_version,
660: p_api_version,
661: l_api_name,
662: G_PKG_NAME)
663: THEN
660: p_api_version,
661: l_api_name,
662: G_PKG_NAME)
663: THEN
664: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
665: END IF;
666: -- Initialize message list if p_init_msg_list is set to TRUE.
667: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
668: Fnd_Msg_Pub.initialize;
663: THEN
664: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
665: END IF;
666: -- Initialize message list if p_init_msg_list is set to TRUE.
667: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
668: Fnd_Msg_Pub.initialize;
669: END IF;
670: -- Initialize API return status to success
671: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
667: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
668: Fnd_Msg_Pub.initialize;
669: END IF;
670: -- Initialize API return status to success
671: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
672: --
673: -- API body
674: --
675: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item
679: p_validation_mode => Jtf_Plsql_Api.g_create,
680: x_return_status => l_return_status
681: );
682: -- If any errors happen abort API.
683: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
684: THEN
685: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
686: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR
687: THEN
681: );
682: -- If any errors happen abort API.
683: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
684: THEN
685: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
686: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR
687: THEN
688: RAISE Fnd_Api.G_EXC_ERROR;
689: END IF;
682: -- If any errors happen abort API.
683: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
684: THEN
685: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
686: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR
687: THEN
688: RAISE Fnd_Api.G_EXC_ERROR;
689: END IF;
690: END IF;
684: THEN
685: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
686: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR
687: THEN
688: RAISE Fnd_Api.G_EXC_ERROR;
689: END IF;
690: END IF;
691: --
692: -- END of API body.
692: -- END of API body.
693: --
694: -------------------- finish --------------------------
695: Fnd_Msg_Pub.count_and_get(
696: p_encoded => Fnd_Api.g_false,
697: p_count => x_msg_count,
698: p_data => x_msg_data);
699: EXCEPTION
700: WHEN Fnd_Api.G_EXC_ERROR THEN
696: p_encoded => Fnd_Api.g_false,
697: p_count => x_msg_count,
698: p_data => x_msg_data);
699: EXCEPTION
700: WHEN Fnd_Api.G_EXC_ERROR THEN
701: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
702: Fnd_Msg_Pub.Count_AND_Get
703: ( p_count => x_msg_count,
704: p_data => x_msg_data,
697: p_count => x_msg_count,
698: p_data => x_msg_data);
699: EXCEPTION
700: WHEN Fnd_Api.G_EXC_ERROR THEN
701: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
702: Fnd_Msg_Pub.Count_AND_Get
703: ( p_count => x_msg_count,
704: p_data => x_msg_data,
705: p_encoded => Fnd_Api.G_FALSE
701: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
702: Fnd_Msg_Pub.Count_AND_Get
703: ( p_count => x_msg_count,
704: p_data => x_msg_data,
705: p_encoded => Fnd_Api.G_FALSE
706: );
707: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
708: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
709: Fnd_Msg_Pub.Count_AND_Get
703: ( p_count => x_msg_count,
704: p_data => x_msg_data,
705: p_encoded => Fnd_Api.G_FALSE
706: );
707: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
708: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
709: Fnd_Msg_Pub.Count_AND_Get
710: ( p_count => x_msg_count,
711: p_data => x_msg_data,
704: p_data => x_msg_data,
705: p_encoded => Fnd_Api.G_FALSE
706: );
707: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
708: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
709: Fnd_Msg_Pub.Count_AND_Get
710: ( p_count => x_msg_count,
711: p_data => x_msg_data,
712: p_encoded => Fnd_Api.G_FALSE
708: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
709: Fnd_Msg_Pub.Count_AND_Get
710: ( p_count => x_msg_count,
711: p_data => x_msg_data,
712: p_encoded => Fnd_Api.G_FALSE
713: );
714: WHEN OTHERS THEN
715: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
716: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
711: p_data => x_msg_data,
712: p_encoded => Fnd_Api.G_FALSE
713: );
714: WHEN OTHERS THEN
715: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
716: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
717: THEN
718: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
719: END IF;
719: END IF;
720: Fnd_Msg_Pub.Count_AND_Get
721: ( p_count => x_msg_count,
722: p_data => x_msg_data,
723: p_encoded => Fnd_Api.G_FALSE
724: );
725: END Validate_Space_Assign;
726: --
727: -- PROCEDURE
736: -- NOTES
737: --
738: PROCEDURE Create_Space_Assignment (
739: p_api_version IN NUMBER,
740: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
741: p_commit IN VARCHAR2 := FND_API.g_false,
742: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
743: p_module_type IN VARCHAR2 := 'JSP',
744: p_x_space_assign_rec IN OUT NOCOPY ahl_ltp_space_assign_pub.Space_Assignment_Rec,
737: --
738: PROCEDURE Create_Space_Assignment (
739: p_api_version IN NUMBER,
740: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
741: p_commit IN VARCHAR2 := FND_API.g_false,
742: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
743: p_module_type IN VARCHAR2 := 'JSP',
744: p_x_space_assign_rec IN OUT NOCOPY ahl_ltp_space_assign_pub.Space_Assignment_Rec,
745: p_reschedule_flag IN VARCHAR2,
738: PROCEDURE Create_Space_Assignment (
739: p_api_version IN NUMBER,
740: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
741: p_commit IN VARCHAR2 := FND_API.g_false,
742: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
743: p_module_type IN VARCHAR2 := 'JSP',
744: p_x_space_assign_rec IN OUT NOCOPY ahl_ltp_space_assign_pub.Space_Assignment_Rec,
745: p_reschedule_flag IN VARCHAR2,
746: x_return_status OUT NOCOPY VARCHAR2,
784: IF G_DEBUG='Y' THEN
785: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_space_assign_pvt.Create Space Assignment','+SPASN+');
786: END IF;
787: -- Standard call to check for call compatibility.
788: IF FND_API.to_boolean(p_init_msg_list)
789: THEN
790: FND_MSG_PUB.initialize;
791: END IF;
792: -- Initialize API return status to success
789: THEN
790: FND_MSG_PUB.initialize;
791: END IF;
792: -- Initialize API return status to success
793: x_return_status := FND_API.G_RET_STS_SUCCESS;
794: -- Initialize message list if p_init_msg_list is set to TRUE.
795: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
796: p_api_version,
797: l_api_name,G_PKG_NAME)
791: END IF;
792: -- Initialize API return status to success
793: x_return_status := FND_API.G_RET_STS_SUCCESS;
794: -- Initialize message list if p_init_msg_list is set to TRUE.
795: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
796: p_api_version,
797: l_api_name,G_PKG_NAME)
798: THEN
799: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
795: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
796: p_api_version,
797: l_api_name,G_PKG_NAME)
798: THEN
799: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
800: END IF;
801: --------------------Value OR ID conversion---------------------------
802: IF G_DEBUG='Y' THEN
803: AHL_DEBUG_PUB.debug( 'visit_id'||p_x_space_assign_rec.visit_id);
808: --
809: IF p_reschedule_flag = 'Y' THEN
810: --Check is required during rescheduling
811: IF (p_x_space_assign_rec.visit_id IS NOT NULL AND
812: p_x_space_assign_rec.visit_id <> FND_API.G_MISS_NUM ) THEN
813: --
814: AHL_DEBUG_PUB.debug( 'inside schedule flag:'||p_x_space_assign_rec.space_name);
815: --
816: DELETE FROM AHL_SPACE_ASSIGNMENTS
823: AHL_DEBUG_PUB.debug( 'number of records space_id'||p_x_space_assign_rec.space_name);
824:
825: -- Convert Space name to space id
826: IF (p_x_space_assign_rec.space_name IS NOT NULL AND
827: p_x_space_assign_rec.space_name <> FND_API.G_MISS_CHAR ) OR
828: (p_x_space_assign_rec.space_id IS NOT NULL AND
829: p_x_space_assign_rec.space_id <> FND_API.G_MISS_NUM) THEN
830:
831: Check_space_name_Or_Id
825: -- Convert Space name to space id
826: IF (p_x_space_assign_rec.space_name IS NOT NULL AND
827: p_x_space_assign_rec.space_name <> FND_API.G_MISS_CHAR ) OR
828: (p_x_space_assign_rec.space_id IS NOT NULL AND
829: p_x_space_assign_rec.space_id <> FND_API.G_MISS_NUM) THEN
830:
831: Check_space_name_Or_Id
832: (p_space_id => null,
833: p_space_name => p_x_space_assign_rec.space_name,
846: p_x_space_assign_rec.space_id := l_space_id;
847:
848: -- Convert Visit Number to visit id
849: IF (p_x_space_assign_rec.visit_number IS NOT NULL AND
850: p_x_space_assign_rec.visit_number <> FND_API.G_MISS_NUM ) OR
851: (p_x_space_assign_rec.visit_id IS NOT NULL AND
852: p_x_space_assign_rec.visit_id <> FND_API.G_MISS_NUM) THEN
853:
854: Check_visit_number_Or_Id
848: -- Convert Visit Number to visit id
849: IF (p_x_space_assign_rec.visit_number IS NOT NULL AND
850: p_x_space_assign_rec.visit_number <> FND_API.G_MISS_NUM ) OR
851: (p_x_space_assign_rec.visit_id IS NOT NULL AND
852: p_x_space_assign_rec.visit_id <> FND_API.G_MISS_NUM) THEN
853:
854: Check_visit_number_Or_Id
855: (p_visit_id => p_x_space_assign_rec.visit_id,
856: p_visit_number => p_x_space_assign_rec.visit_number,
861: IF NVL(l_return_status,'x') <> 'S'
862: THEN
863: Fnd_Message.SET_NAME('AHL','AHL_LTP_VISIT_ID_NOT_EXIST');
864: Fnd_Msg_Pub.ADD;
865: RAISE Fnd_Api.G_EXC_ERROR;
866: END IF;
867: END IF;
868: --Assign the returned value
869: p_x_space_assign_rec.visit_id := l_visit_id;
872: l_msg_count := Fnd_Msg_Pub.count_msg;
873:
874: IF l_msg_count > 0 THEN
875: X_msg_count := l_msg_count;
876: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
877: RAISE Fnd_Api.G_EXC_ERROR;
878: END IF;
879:
880: --------------------------------Validation ---------------------------
873:
874: IF l_msg_count > 0 THEN
875: X_msg_count := l_msg_count;
876: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
877: RAISE Fnd_Api.G_EXC_ERROR;
878: END IF;
879:
880: --------------------------------Validation ---------------------------
881: --Assign to local variable
898: l_msg_count := Fnd_Msg_Pub.count_msg;
899:
900: IF l_msg_count > 0 THEN
901: X_msg_count := l_msg_count;
902: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
903: RAISE Fnd_Api.G_EXC_ERROR;
904: END IF;
905:
906:
899:
900: IF l_msg_count > 0 THEN
901: X_msg_count := l_msg_count;
902: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
903: RAISE Fnd_Api.G_EXC_ERROR;
904: END IF;
905:
906:
907: IF (p_x_space_assign_rec.space_assignment_id = Fnd_Api.G_MISS_NUM or
903: RAISE Fnd_Api.G_EXC_ERROR;
904: END IF;
905:
906:
907: IF (p_x_space_assign_rec.space_assignment_id = Fnd_Api.G_MISS_NUM or
908: p_x_space_assign_rec.space_assignment_id IS NULL)
909: THEN
910: --
911: -- If the ID is not passed into the API, then
927: Fnd_Msg_Pub.ADD;
928: END IF;
929: -- For optional fields
930: --
931: IF p_x_space_assign_rec.attribute_category = FND_API.G_MISS_CHAR
932: THEN
933: l_space_assign_rec.attribute_category := NULL;
934: ELSE
935: l_space_assign_rec.attribute_category := p_x_space_assign_rec.attribute_category;
934: ELSE
935: l_space_assign_rec.attribute_category := p_x_space_assign_rec.attribute_category;
936: END IF;
937: --
938: IF p_x_space_assign_rec.attribute1 = FND_API.G_MISS_CHAR
939: THEN
940: l_space_assign_rec.attribute1 := NULL;
941: ELSE
942: l_space_assign_rec.attribute1 := p_x_space_assign_rec.attribute1;
941: ELSE
942: l_space_assign_rec.attribute1 := p_x_space_assign_rec.attribute1;
943: END IF;
944: --
945: IF p_x_space_assign_rec.attribute2 = FND_API.G_MISS_CHAR
946: THEN
947: l_space_assign_rec.attribute2 := NULL;
948: ELSE
949: l_space_assign_rec.attribute2 := p_x_space_assign_rec.attribute2;
948: ELSE
949: l_space_assign_rec.attribute2 := p_x_space_assign_rec.attribute2;
950: END IF;
951: --
952: IF p_x_space_assign_rec.attribute3 = FND_API.G_MISS_CHAR
953: THEN
954: l_space_assign_rec.attribute3 := NULL;
955: ELSE
956: l_space_assign_rec.attribute3 := p_x_space_assign_rec.attribute3;
955: ELSE
956: l_space_assign_rec.attribute3 := p_x_space_assign_rec.attribute3;
957: END IF;
958: --
959: IF p_x_space_assign_rec.attribute4 = FND_API.G_MISS_CHAR
960: THEN
961: l_space_assign_rec.attribute4 := NULL;
962: ELSE
963: l_space_assign_rec.attribute4 := p_x_space_assign_rec.attribute4;
962: ELSE
963: l_space_assign_rec.attribute4 := p_x_space_assign_rec.attribute4;
964: END IF;
965: --
966: IF p_x_space_assign_rec.attribute5 = FND_API.G_MISS_CHAR
967: THEN
968: l_space_assign_rec.attribute5 := NULL;
969: ELSE
970: l_space_assign_rec.attribute5 := p_x_space_assign_rec.attribute5;
969: ELSE
970: l_space_assign_rec.attribute5 := p_x_space_assign_rec.attribute5;
971: END IF;
972: --
973: IF p_x_space_assign_rec.attribute6 = FND_API.G_MISS_CHAR
974: THEN
975: l_space_assign_rec.attribute6 := NULL;
976: ELSE
977: l_space_assign_rec.attribute6 := p_x_space_assign_rec.attribute6;
976: ELSE
977: l_space_assign_rec.attribute6 := p_x_space_assign_rec.attribute6;
978: END IF;
979: --
980: IF p_x_space_assign_rec.attribute7 = FND_API.G_MISS_CHAR
981: THEN
982: l_space_assign_rec.attribute7 := NULL;
983: ELSE
984: l_space_assign_rec.attribute7 := p_x_space_assign_rec.attribute7;
983: ELSE
984: l_space_assign_rec.attribute7 := p_x_space_assign_rec.attribute7;
985: END IF;
986: --
987: IF p_x_space_assign_rec.attribute8 = FND_API.G_MISS_CHAR
988: THEN
989: l_space_assign_rec.attribute8 := NULL;
990: ELSE
991: l_space_assign_rec.attribute8 := p_x_space_assign_rec.attribute8;
990: ELSE
991: l_space_assign_rec.attribute8 := p_x_space_assign_rec.attribute8;
992: END IF;
993: --
994: IF p_x_space_assign_rec.attribute9 = FND_API.G_MISS_CHAR
995: THEN
996: l_space_assign_rec.attribute9 := NULL;
997: ELSE
998: l_space_assign_rec.attribute9 := p_x_space_assign_rec.attribute9;
997: ELSE
998: l_space_assign_rec.attribute9 := p_x_space_assign_rec.attribute9;
999: END IF;
1000: --
1001: IF p_x_space_assign_rec.attribute10 = FND_API.G_MISS_CHAR
1002: THEN
1003: l_space_assign_rec.attribute10 := NULL;
1004: ELSE
1005: l_space_assign_rec.attribute10 := p_x_space_assign_rec.attribute10;
1004: ELSE
1005: l_space_assign_rec.attribute10 := p_x_space_assign_rec.attribute10;
1006: END IF;
1007: --
1008: IF p_x_space_assign_rec.attribute11 = FND_API.G_MISS_CHAR
1009: THEN
1010: l_space_assign_rec.attribute11 := NULL;
1011: ELSE
1012: l_space_assign_rec.attribute11 := p_x_space_assign_rec.attribute11;
1011: ELSE
1012: l_space_assign_rec.attribute11 := p_x_space_assign_rec.attribute11;
1013: END IF;
1014: --
1015: IF p_x_space_assign_rec.attribute12 = FND_API.G_MISS_CHAR
1016: THEN
1017: l_space_assign_rec.attribute12 := NULL;
1018: ELSE
1019: l_space_assign_rec.attribute12 := p_x_space_assign_rec.attribute12;
1018: ELSE
1019: l_space_assign_rec.attribute12 := p_x_space_assign_rec.attribute12;
1020: END IF;
1021: --
1022: IF p_x_space_assign_rec.attribute13 = FND_API.G_MISS_CHAR
1023: THEN
1024: l_space_assign_rec.attribute13 := NULL;
1025: ELSE
1026: l_space_assign_rec.attribute13 := p_x_space_assign_rec.attribute13;
1025: ELSE
1026: l_space_assign_rec.attribute13 := p_x_space_assign_rec.attribute13;
1027: END IF;
1028: --
1029: IF p_x_space_assign_rec.attribute14 = FND_API.G_MISS_CHAR
1030: THEN
1031: l_space_assign_rec.attribute14 := NULL;
1032: ELSE
1033: l_space_assign_rec.attribute14 := p_x_space_assign_rec.attribute14;
1032: ELSE
1033: l_space_assign_rec.attribute14 := p_x_space_assign_rec.attribute14;
1034: END IF;
1035: --
1036: IF p_x_space_assign_rec.attribute15 = FND_API.G_MISS_CHAR
1037: THEN
1038: l_space_assign_rec.attribute15 := NULL;
1039: ELSE
1040: l_space_assign_rec.attribute15 := p_x_space_assign_rec.attribute15;
1044: l_msg_count := Fnd_Msg_Pub.count_msg;
1045:
1046: IF l_msg_count > 0 THEN
1047: X_msg_count := l_msg_count;
1048: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1049: RAISE Fnd_Api.G_EXC_ERROR;
1050: END IF;
1051:
1052: Ahl_Debug_Pub.debug( 'Before insert state'||l_space_assignment_id);
1045:
1046: IF l_msg_count > 0 THEN
1047: X_msg_count := l_msg_count;
1048: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1049: RAISE Fnd_Api.G_EXC_ERROR;
1050: END IF;
1051:
1052: Ahl_Debug_Pub.debug( 'Before insert state'||l_space_assignment_id);
1053:
1116: l_msg_count := Fnd_Msg_Pub.count_msg;
1117:
1118: IF l_msg_count > 0 THEN
1119: X_msg_count := l_msg_count;
1120: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1121: RAISE Fnd_Api.G_EXC_ERROR;
1122: END IF;
1123:
1124: --Standard check for commit
1117:
1118: IF l_msg_count > 0 THEN
1119: X_msg_count := l_msg_count;
1120: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1121: RAISE Fnd_Api.G_EXC_ERROR;
1122: END IF;
1123:
1124: --Standard check for commit
1125: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1121: RAISE Fnd_Api.G_EXC_ERROR;
1122: END IF;
1123:
1124: --Standard check for commit
1125: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1126: COMMIT;
1127: END IF;
1128: -- Debug info
1129: IF G_DEBUG='Y' THEN
1131: -- Check if API is called in debug mode. If yes, disable debug.
1132: Ahl_Debug_Pub.disable_debug;
1133: END IF;
1134: EXCEPTION
1135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1136: ROLLBACK TO create_space_assignment;
1137: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1139: p_count => x_msg_count,
1133: END IF;
1134: EXCEPTION
1135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1136: ROLLBACK TO create_space_assignment;
1137: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1139: p_count => x_msg_count,
1140: p_data => x_msg_data);
1141: IF G_DEBUG='Y' THEN
1134: EXCEPTION
1135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1136: ROLLBACK TO create_space_assignment;
1137: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1139: p_count => x_msg_count,
1140: p_data => x_msg_data);
1141: IF G_DEBUG='Y' THEN
1142:
1145: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_assign_pvt.Create Space assignment','+SPASN+');
1146: -- Check if API is called in debug mode. If yes, disable debug.
1147: AHL_DEBUG_PUB.disable_debug;
1148: END IF;
1149: WHEN FND_API.G_EXC_ERROR THEN
1150: ROLLBACK TO create_space_assignment;
1151: X_return_status := FND_API.G_RET_STS_ERROR;
1152: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1153: p_count => x_msg_count,
1147: AHL_DEBUG_PUB.disable_debug;
1148: END IF;
1149: WHEN FND_API.G_EXC_ERROR THEN
1150: ROLLBACK TO create_space_assignment;
1151: X_return_status := FND_API.G_RET_STS_ERROR;
1152: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1153: p_count => x_msg_count,
1154: p_data => X_msg_data);
1155: IF G_DEBUG='Y' THEN
1148: END IF;
1149: WHEN FND_API.G_EXC_ERROR THEN
1150: ROLLBACK TO create_space_assignment;
1151: X_return_status := FND_API.G_RET_STS_ERROR;
1152: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1153: p_count => x_msg_count,
1154: p_data => X_msg_data);
1155: IF G_DEBUG='Y' THEN
1156: -- Debug info.
1161: AHL_DEBUG_PUB.disable_debug;
1162: END IF;
1163: WHEN OTHERS THEN
1164: ROLLBACK TO create_space_assignment;
1165: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1166: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1167: THEN
1168: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
1169: p_procedure_name => 'CREATE_SPACE_ASSIGNMENT',
1168: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
1169: p_procedure_name => 'CREATE_SPACE_ASSIGNMENT',
1170: p_error_text => SUBSTR(SQLERRM,1,240));
1171: END IF;
1172: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1173: p_count => x_msg_count,
1174: p_data => X_msg_data);
1175: IF G_DEBUG='Y' THEN
1176: -- Debug info.
1194: -- NOTES
1195: --
1196: PROCEDURE Update_Space_Assignment (
1197: p_api_version IN NUMBER,
1198: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1199: p_commit IN VARCHAR2 := FND_API.g_false,
1200: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1201: p_module_type IN VARCHAR2 := 'JSP',
1202: p_space_assign_rec IN ahl_ltp_space_assign_pub.Space_Assignment_Rec,
1195: --
1196: PROCEDURE Update_Space_Assignment (
1197: p_api_version IN NUMBER,
1198: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1199: p_commit IN VARCHAR2 := FND_API.g_false,
1200: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1201: p_module_type IN VARCHAR2 := 'JSP',
1202: p_space_assign_rec IN ahl_ltp_space_assign_pub.Space_Assignment_Rec,
1203: x_return_status OUT NOCOPY VARCHAR2,
1196: PROCEDURE Update_Space_Assignment (
1197: p_api_version IN NUMBER,
1198: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1199: p_commit IN VARCHAR2 := FND_API.g_false,
1200: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1201: p_module_type IN VARCHAR2 := 'JSP',
1202: p_space_assign_rec IN ahl_ltp_space_assign_pub.Space_Assignment_Rec,
1203: x_return_status OUT NOCOPY VARCHAR2,
1204: x_msg_count OUT NOCOPY NUMBER,
1229: IF G_DEBUG='Y' THEN
1230: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_space_assign_pvt.Update Space Assignment','+SPANT+');
1231: END IF;
1232: -- Standard call to check for call compatibility.
1233: IF FND_API.to_boolean(p_init_msg_list)
1234: THEN
1235: FND_MSG_PUB.initialize;
1236: END IF;
1237: -- Initialize API return status to success
1234: THEN
1235: FND_MSG_PUB.initialize;
1236: END IF;
1237: -- Initialize API return status to success
1238: x_return_status := FND_API.G_RET_STS_SUCCESS;
1239: -- Initialize message list if p_init_msg_list is set to TRUE.
1240: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1241: p_api_version,
1242: l_api_name,G_PKG_NAME)
1236: END IF;
1237: -- Initialize API return status to success
1238: x_return_status := FND_API.G_RET_STS_SUCCESS;
1239: -- Initialize message list if p_init_msg_list is set to TRUE.
1240: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1241: p_api_version,
1242: l_api_name,G_PKG_NAME)
1243: THEN
1244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1240: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1241: p_api_version,
1242: l_api_name,G_PKG_NAME)
1243: THEN
1244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1245: END IF;
1246:
1247: ---------------------start API Body------------------------------------
1248: --Assign to local variable
1251: x_space_assign_rec => l_Space_assign_rec);
1252: --------------------Value OR ID conversion---------------------------
1253: -- Convert Space name to space id
1254: IF (p_space_assign_rec.space_name IS NOT NULL AND
1255: p_space_assign_rec.space_name <> FND_API.G_MISS_CHAR ) OR
1256: (p_space_assign_rec.space_id IS NOT NULL AND
1257: p_space_assign_rec.space_id <> FND_API.G_MISS_NUM) THEN
1258:
1259: Check_space_name_Or_Id
1253: -- Convert Space name to space id
1254: IF (p_space_assign_rec.space_name IS NOT NULL AND
1255: p_space_assign_rec.space_name <> FND_API.G_MISS_CHAR ) OR
1256: (p_space_assign_rec.space_id IS NOT NULL AND
1257: p_space_assign_rec.space_id <> FND_API.G_MISS_NUM) THEN
1258:
1259: Check_space_name_Or_Id
1260: (p_space_id => p_space_assign_rec.space_id,
1261: p_space_name => p_space_assign_rec.space_name,
1274: l_space_assign_rec.space_id := l_space_id;
1275:
1276: -- Convert Visit Number to visit id
1277: IF (p_space_assign_rec.visit_number IS NOT NULL AND
1278: p_space_assign_rec.visit_number <> FND_API.G_MISS_NUM ) OR
1279: (p_space_assign_rec.visit_id IS NOT NULL AND
1280: p_space_assign_rec.visit_id <> FND_API.G_MISS_NUM) THEN
1281:
1282: Check_visit_number_Or_Id
1276: -- Convert Visit Number to visit id
1277: IF (p_space_assign_rec.visit_number IS NOT NULL AND
1278: p_space_assign_rec.visit_number <> FND_API.G_MISS_NUM ) OR
1279: (p_space_assign_rec.visit_id IS NOT NULL AND
1280: p_space_assign_rec.visit_id <> FND_API.G_MISS_NUM) THEN
1281:
1282: Check_visit_number_Or_Id
1283: (p_visit_id => p_space_assign_rec.visit_id,
1284: p_visit_number => p_space_assign_rec.visit_number,
1345: l_msg_count := Fnd_Msg_Pub.count_msg;
1346:
1347: IF l_msg_count > 0 THEN
1348: X_msg_count := l_msg_count;
1349: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1350: RAISE Fnd_Api.G_EXC_ERROR;
1351: END IF;
1352:
1353: --Standard check for commit
1346:
1347: IF l_msg_count > 0 THEN
1348: X_msg_count := l_msg_count;
1349: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1350: RAISE Fnd_Api.G_EXC_ERROR;
1351: END IF;
1352:
1353: --Standard check for commit
1354: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1350: RAISE Fnd_Api.G_EXC_ERROR;
1351: END IF;
1352:
1353: --Standard check for commit
1354: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1355: COMMIT;
1356: END IF;
1357: -- Debug info
1358: IF G_DEBUG='Y' THEN
1363: Ahl_Debug_Pub.disable_debug;
1364: END IF;
1365:
1366: EXCEPTION
1367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1368: ROLLBACK TO update_space_assignment;
1369: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1370: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1371: p_count => x_msg_count,
1365:
1366: EXCEPTION
1367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1368: ROLLBACK TO update_space_assignment;
1369: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1370: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1371: p_count => x_msg_count,
1372: p_data => x_msg_data);
1373: IF G_DEBUG='Y' THEN
1366: EXCEPTION
1367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1368: ROLLBACK TO update_space_assignment;
1369: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1370: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1371: p_count => x_msg_count,
1372: p_data => x_msg_data);
1373: IF G_DEBUG='Y' THEN
1374:
1377: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_assign_pvt.Update Space Assignment','+SPANT+');
1378: -- Check if API is called in debug mode. If yes, disable debug.
1379: AHL_DEBUG_PUB.disable_debug;
1380: END IF;
1381: WHEN FND_API.G_EXC_ERROR THEN
1382: ROLLBACK TO update_space_assignment;
1383: X_return_status := FND_API.G_RET_STS_ERROR;
1384: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1385: p_count => x_msg_count,
1379: AHL_DEBUG_PUB.disable_debug;
1380: END IF;
1381: WHEN FND_API.G_EXC_ERROR THEN
1382: ROLLBACK TO update_space_assignment;
1383: X_return_status := FND_API.G_RET_STS_ERROR;
1384: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1385: p_count => x_msg_count,
1386: p_data => X_msg_data);
1387: IF G_DEBUG='Y' THEN
1380: END IF;
1381: WHEN FND_API.G_EXC_ERROR THEN
1382: ROLLBACK TO update_space_assignment;
1383: X_return_status := FND_API.G_RET_STS_ERROR;
1384: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1385: p_count => x_msg_count,
1386: p_data => X_msg_data);
1387: IF G_DEBUG='Y' THEN
1388: -- Debug info.
1393: AHL_DEBUG_PUB.disable_debug;
1394: END IF;
1395: WHEN OTHERS THEN
1396: ROLLBACK TO update_space_assignment;
1397: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1398: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1399: THEN
1400: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
1401: p_procedure_name => 'UPDATE_SPACE_ASSIGNMENT',
1400: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
1401: p_procedure_name => 'UPDATE_SPACE_ASSIGNMENT',
1402: p_error_text => SUBSTR(SQLERRM,1,240));
1403: END IF;
1404: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1405: p_count => x_msg_count,
1406: p_data => X_msg_data);
1407:
1408: IF G_DEBUG='Y' THEN
1429: -- 1. Raise exception if the object_version_number doesn't match.
1430: --
1431: PROCEDURE Delete_Space_Assignment (
1432: p_api_version IN NUMBER,
1433: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1434: p_commit IN VARCHAR2 := FND_API.g_false,
1435: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1436: p_space_assign_rec IN ahl_ltp_space_assign_pub.Space_Assignment_Rec,
1437: x_return_status OUT NOCOPY VARCHAR2,
1430: --
1431: PROCEDURE Delete_Space_Assignment (
1432: p_api_version IN NUMBER,
1433: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1434: p_commit IN VARCHAR2 := FND_API.g_false,
1435: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1436: p_space_assign_rec IN ahl_ltp_space_assign_pub.Space_Assignment_Rec,
1437: x_return_status OUT NOCOPY VARCHAR2,
1438: x_msg_count OUT NOCOPY NUMBER,
1431: PROCEDURE Delete_Space_Assignment (
1432: p_api_version IN NUMBER,
1433: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1434: p_commit IN VARCHAR2 := FND_API.g_false,
1435: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1436: p_space_assign_rec IN ahl_ltp_space_assign_pub.Space_Assignment_Rec,
1437: x_return_status OUT NOCOPY VARCHAR2,
1438: x_msg_count OUT NOCOPY NUMBER,
1439: x_msg_data OUT NOCOPY VARCHAR2
1502: IF G_DEBUG='Y' THEN
1503: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_space_assign_pvt.Delete Space Assignment','+SPANT+');
1504: END IF;
1505: -- Standard call to check for call compatibility.
1506: IF FND_API.to_boolean(p_init_msg_list)
1507: THEN
1508: FND_MSG_PUB.initialize;
1509: END IF;
1510: -- Initialize API return status to success
1507: THEN
1508: FND_MSG_PUB.initialize;
1509: END IF;
1510: -- Initialize API return status to success
1511: x_return_status := FND_API.G_RET_STS_SUCCESS;
1512: -- Initialize message list if p_init_msg_list is set to TRUE.
1513: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1514: p_api_version,
1515: l_api_name,G_PKG_NAME)
1509: END IF;
1510: -- Initialize API return status to success
1511: x_return_status := FND_API.G_RET_STS_SUCCESS;
1512: -- Initialize message list if p_init_msg_list is set to TRUE.
1513: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1514: p_api_version,
1515: l_api_name,G_PKG_NAME)
1516: THEN
1517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1513: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1514: p_api_version,
1515: l_api_name,G_PKG_NAME)
1516: THEN
1517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1518: END IF;
1519: -----------------------Start of API Body-----------------------------
1520: IF (p_space_assign_rec.visit_id IS NOT NULL AND
1521: p_space_assign_rec.visit_id <> FND_API.G_MISS_NUM) THEN
1517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1518: END IF;
1519: -----------------------Start of API Body-----------------------------
1520: IF (p_space_assign_rec.visit_id IS NOT NULL AND
1521: p_space_assign_rec.visit_id <> FND_API.G_MISS_NUM) THEN
1522: --
1523: IF G_DEBUG='Y' THEN
1524: AHL_DEBUG_PUB.debug( 'visit id'||p_space_assign_rec.visit_id);
1525: END IF;
1563: CLOSE c_visit_spaces_cur;
1564: END IF;
1565: --
1566: IF (p_space_assign_rec.space_assignment_id IS NOT NULL AND
1567: p_space_assign_rec.space_assignment_id <> FND_API.G_MISS_NUM )
1568:
1569: THEN
1570: -- Check for Record exists
1571: OPEN c_space_assign_cur(p_space_assign_rec.space_assignment_id);
1576: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_NOT_FOUND');
1577: FND_MSG_PUB.add;
1578: END IF;
1579: CLOSE c_space_assign_cur;
1580: RAISE FND_API.g_exc_error;
1581: END IF;
1582: CLOSE c_space_assign_cur;
1583: IF G_DEBUG='Y' THEN
1584: AHL_DEBUG_PUB.debug( 'space assign id'||l_space_assignment_id);
1589: IF l_object_version_number <> p_space_assign_rec.object_version_number
1590: THEN
1591: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1592: FND_MSG_PUB.add;
1593: RAISE FND_API.g_exc_error;
1594: END IF;
1595: -------------------Call Table handler generated procedure------------
1596: DELETE FROM AHL_SPACE_ASSIGNMENTS
1597: WHERE SPACE_ASSIGNMENT_ID = p_space_assign_rec.space_assignment_id;
1601: l_msg_count := Fnd_Msg_Pub.count_msg;
1602:
1603: IF l_msg_count > 0 THEN
1604: X_msg_count := l_msg_count;
1605: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1606: RAISE Fnd_Api.G_EXC_ERROR;
1607: END IF;
1608:
1609: --Standard check for commit
1602:
1603: IF l_msg_count > 0 THEN
1604: X_msg_count := l_msg_count;
1605: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1606: RAISE Fnd_Api.G_EXC_ERROR;
1607: END IF;
1608:
1609: --Standard check for commit
1610: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1606: RAISE Fnd_Api.G_EXC_ERROR;
1607: END IF;
1608:
1609: --Standard check for commit
1610: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1611: COMMIT;
1612: END IF;
1613: -- Debug info
1614: IF G_DEBUG='Y' THEN
1619: Ahl_Debug_Pub.disable_debug;
1620: END IF;
1621:
1622: EXCEPTION
1623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1624: ROLLBACK TO delete_space_assignment;
1625: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1626: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1627: p_count => x_msg_count,
1621:
1622: EXCEPTION
1623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1624: ROLLBACK TO delete_space_assignment;
1625: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1626: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1627: p_count => x_msg_count,
1628: p_data => x_msg_data);
1629: IF G_DEBUG='Y' THEN
1622: EXCEPTION
1623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1624: ROLLBACK TO delete_space_assignment;
1625: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1626: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1627: p_count => x_msg_count,
1628: p_data => x_msg_data);
1629: IF G_DEBUG='Y' THEN
1630:
1633: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_assign_pvt.Delete Space Assignment','+SPANT+');
1634: -- Check if API is called in debug mode. If yes, disable debug.
1635: AHL_DEBUG_PUB.disable_debug;
1636: END IF;
1637: WHEN FND_API.G_EXC_ERROR THEN
1638: ROLLBACK TO delete_space_assignment;
1639: X_return_status := FND_API.G_RET_STS_ERROR;
1640: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1641: p_count => x_msg_count,
1635: AHL_DEBUG_PUB.disable_debug;
1636: END IF;
1637: WHEN FND_API.G_EXC_ERROR THEN
1638: ROLLBACK TO delete_space_assignment;
1639: X_return_status := FND_API.G_RET_STS_ERROR;
1640: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1641: p_count => x_msg_count,
1642: p_data => X_msg_data);
1643: IF G_DEBUG='Y' THEN
1636: END IF;
1637: WHEN FND_API.G_EXC_ERROR THEN
1638: ROLLBACK TO delete_space_assignment;
1639: X_return_status := FND_API.G_RET_STS_ERROR;
1640: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1641: p_count => x_msg_count,
1642: p_data => X_msg_data);
1643: IF G_DEBUG='Y' THEN
1644:
1650: AHL_DEBUG_PUB.disable_debug;
1651: END IF;
1652: WHEN OTHERS THEN
1653: ROLLBACK TO delete_space_assignment;
1654: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1655: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1656: THEN
1657: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
1658: p_procedure_name => 'DELETE_SPACE_ASSIGNMENT',
1657: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
1658: p_procedure_name => 'DELETE_SPACE_ASSIGNMENT',
1659: p_error_text => SUBSTR(SQLERRM,1,240));
1660: END IF;
1661: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1662: p_count => x_msg_count,
1663: p_data => X_msg_data);
1664: IF G_DEBUG='Y' THEN
1665:
1688: -- ii. The code to remove space assignment has been commented because it is handled in AHL_VWP_VISITS_PVT.Process_Visit
1689: -- iii. Commented cursors c_space_assign_cur,c_visit_sched_cur,visit_info_cur
1690: PROCEDURE Schedule_Visit (
1691: p_api_version IN NUMBER,
1692: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1693: p_commit IN VARCHAR2 := FND_API.g_false,
1694: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1695: p_module_type IN VARCHAR2 := 'JSP',
1696: p_x_schedule_visit_rec IN OUT NOCOPY ahl_ltp_space_assign_pub.Schedule_Visit_Rec,
1689: -- iii. Commented cursors c_space_assign_cur,c_visit_sched_cur,visit_info_cur
1690: PROCEDURE Schedule_Visit (
1691: p_api_version IN NUMBER,
1692: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1693: p_commit IN VARCHAR2 := FND_API.g_false,
1694: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1695: p_module_type IN VARCHAR2 := 'JSP',
1696: p_x_schedule_visit_rec IN OUT NOCOPY ahl_ltp_space_assign_pub.Schedule_Visit_Rec,
1697: x_return_status OUT NOCOPY VARCHAR2,
1690: PROCEDURE Schedule_Visit (
1691: p_api_version IN NUMBER,
1692: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1693: p_commit IN VARCHAR2 := FND_API.g_false,
1694: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1695: p_module_type IN VARCHAR2 := 'JSP',
1696: p_x_schedule_visit_rec IN OUT NOCOPY ahl_ltp_space_assign_pub.Schedule_Visit_Rec,
1697: x_return_status OUT NOCOPY VARCHAR2,
1698: x_msg_count OUT NOCOPY NUMBER,
1796: IF G_DEBUG='Y' THEN
1797: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_space_assign_pvt.Schedule Visit','+SPANT+');
1798: END IF;
1799: -- Standard call to check for call compatibility.
1800: IF FND_API.to_boolean(p_init_msg_list)
1801: THEN
1802: FND_MSG_PUB.initialize;
1803: END IF;
1804: -- Initialize API return status to success
1801: THEN
1802: FND_MSG_PUB.initialize;
1803: END IF;
1804: -- Initialize API return status to success
1805: x_return_status := FND_API.G_RET_STS_SUCCESS;
1806: -- Initialize message list if p_init_msg_list is set to TRUE.
1807: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1808: p_api_version,
1809: l_api_name,G_PKG_NAME)
1803: END IF;
1804: -- Initialize API return status to success
1805: x_return_status := FND_API.G_RET_STS_SUCCESS;
1806: -- Initialize message list if p_init_msg_list is set to TRUE.
1807: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1808: p_api_version,
1809: l_api_name,G_PKG_NAME)
1810: THEN
1811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1807: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1808: p_api_version,
1809: l_api_name,G_PKG_NAME)
1810: THEN
1811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1812: END IF;
1813: ---------------------start API Body------------------------------------
1814: IF p_module_type = 'JSP'
1815: THEN
1828:
1829: -- moved this block of code up, to get acess to l_visit_id
1830: -- Convert Visit Number to visit id
1831: IF (p_x_schedule_visit_rec.visit_number IS NOT NULL AND
1832: p_x_schedule_visit_rec.visit_number <> FND_API.G_MISS_NUM ) OR
1833: (p_x_schedule_visit_rec.visit_id IS NOT NULL AND
1834: p_x_schedule_visit_rec.visit_id <> FND_API.G_MISS_NUM) THEN
1835:
1836: Check_visit_number_Or_Id
1830: -- Convert Visit Number to visit id
1831: IF (p_x_schedule_visit_rec.visit_number IS NOT NULL AND
1832: p_x_schedule_visit_rec.visit_number <> FND_API.G_MISS_NUM ) OR
1833: (p_x_schedule_visit_rec.visit_id IS NOT NULL AND
1834: p_x_schedule_visit_rec.visit_id <> FND_API.G_MISS_NUM) THEN
1835:
1836: Check_visit_number_Or_Id
1837: (p_visit_id => p_x_schedule_visit_rec.visit_id,
1838: p_visit_number => p_x_schedule_visit_rec.visit_number,
1859:
1860:
1861: --Convert Value To ID
1862: IF ( p_x_schedule_visit_rec.org_name IS NULL OR
1863: p_x_schedule_visit_rec.org_name = FND_API.G_MISS_CHAR) THEN
1864: -- anraj: if visit is in planning Organization is not mandatory
1865: IF (l_schedule_visit_rec.status_code <> 'PLANNING') THEN
1866: Fnd_Message.SET_NAME('AHL','AHL_LTP_ORG_REQUIRED');
1867: Fnd_Msg_Pub.ADD;
1872: AHL_DEBUG_PUB.debug( 'dept name'||p_x_schedule_visit_rec.dept_name);
1873: END IF;
1874: --DEPT ID
1875: IF ( p_x_schedule_visit_rec.dept_name IS NULL OR
1876: p_x_schedule_visit_rec.dept_name = FND_API.G_MISS_CHAR) THEN
1877: -- anraj: if visit is in planning Department is not mandatory
1878: IF (l_schedule_visit_rec.status_code <> 'PLANNING') THEN
1879: Fnd_Message.SET_NAME('AHL','AHL_LTP_DEPT_REQUIRED');
1880: Fnd_Msg_Pub.ADD;
1883: --
1884:
1885: -- Check for visit start date
1886: IF ( p_x_schedule_visit_rec.start_date IS NULL AND
1887: p_x_schedule_visit_rec.start_date = FND_API.G_MISS_DATE)
1888: THEN
1889: Fnd_Message.SET_NAME('AHL','AHL_LTP_START_DATE_INVALID');
1890: Fnd_Msg_Pub.ADD;
1891: RAISE Fnd_Api.G_EXC_ERROR;
1887: p_x_schedule_visit_rec.start_date = FND_API.G_MISS_DATE)
1888: THEN
1889: Fnd_Message.SET_NAME('AHL','AHL_LTP_START_DATE_INVALID');
1890: Fnd_Msg_Pub.ADD;
1891: RAISE Fnd_Api.G_EXC_ERROR;
1892: END IF;
1893: --
1894:
1895: IF G_DEBUG='Y' THEN
1898: END IF;
1899:
1900: --For Space Category
1901: IF p_x_schedule_visit_rec.space_category_mean IS NOT NULL AND
1902: p_x_schedule_visit_rec.space_category_mean <> Fnd_Api.G_MISS_CHAR
1903: THEN
1904: Check_lookup_name_Or_Id (
1905: p_lookup_type => 'AHL_LTP_SPACE_CATEGORY',
1906: p_lookup_code => NULL,
1912: IF NVL(l_return_status, 'X') <> 'S'
1913: THEN
1914: Fnd_Message.SET_NAME('AHL','AHL_LTP_SP_CATEGORY_NOT_EXIST');
1915: Fnd_Msg_Pub.ADD;
1916: RAISE Fnd_Api.G_EXC_ERROR;
1917: END IF;
1918: ELSE
1919: -- Id presents
1920: IF p_x_schedule_visit_rec.space_category_code IS NOT NULL AND
1917: END IF;
1918: ELSE
1919: -- Id presents
1920: IF p_x_schedule_visit_rec.space_category_code IS NOT NULL AND
1921: p_x_schedule_visit_rec.space_category_code <> Fnd_Api.G_MISS_CHAR
1922: THEN
1923: p_x_schedule_visit_rec.space_category_code := p_x_schedule_visit_rec.space_category_code;
1924: END IF;
1925: END IF;
1930: END IF;
1931:
1932: -- Visit type code
1933: IF p_x_schedule_visit_rec.visit_type_mean IS NOT NULL AND
1934: p_x_schedule_visit_rec.visit_type_mean <> Fnd_Api.G_MISS_CHAR
1935: THEN
1936: Check_lookup_name_Or_Id (
1937: p_lookup_type => 'AHL_PLANNING_VISIT_TYPE',
1938: p_lookup_code => NULL,
1949: END IF;
1950: ELSE
1951: -- Id presents
1952: IF p_x_schedule_visit_rec.visit_type_code IS NOT NULL AND
1953: p_x_schedule_visit_rec.visit_type_code <> Fnd_Api.G_MISS_CHAR
1954: THEN
1955: p_x_schedule_visit_rec.visit_type_code := p_x_schedule_visit_rec.visit_type_code;
1956: --
1957: --Commented by mpothuku on 02/25/04 as Visit type in not mandatory
1959: ELSIF (l_schedule_visit_rec.status_code <> 'PLANNING' )
1960: THEN
1961: Fnd_Message.SET_NAME('AHL','AHL_LTP_VISIT_TYPE_REQUIRED');
1962: Fnd_Msg_Pub.ADD;
1963: RAISE Fnd_Api.G_EXC_ERROR;
1964: */
1965: END IF;
1966:
1967: END IF;
1976: -- anraj : Commented the following block as Impelmented/Partially Implemented visits can also be updated.
1977: /* IF (l_schedule_visit_rec.status_code <> 'PLANNING' )THEN
1978: Fnd_Message.SET_NAME('AHL','AHL_VISIT_NOT_PLANNED');
1979: Fnd_Msg_Pub.ADD;
1980: RAISE Fnd_Api.G_EXC_ERROR;
1981: END IF;
1982: */
1983:
1984: IF G_DEBUG='Y' THEN
1995: /*
1996: IF p_x_schedule_visit_rec.schedule_flag <> 'Y' THEN
1997: -- Check for the visit has been assigned to different org and department
1998: IF ( p_x_schedule_visit_rec.org_id IS NOT NULL AND
1999: p_x_schedule_visit_rec.org_id <> FND_API.G_MISS_NUM)
2000: OR
2001: ( p_x_schedule_visit_rec.org_name IS NOT NULL AND
2002: p_x_schedule_visit_rec.org_name <> FND_API.G_MISS_CHAR)
2003: THEN
1998: IF ( p_x_schedule_visit_rec.org_id IS NOT NULL AND
1999: p_x_schedule_visit_rec.org_id <> FND_API.G_MISS_NUM)
2000: OR
2001: ( p_x_schedule_visit_rec.org_name IS NOT NULL AND
2002: p_x_schedule_visit_rec.org_name <> FND_API.G_MISS_CHAR)
2003: THEN
2004:
2005: -- Check for Org has been changes
2006: OPEN visit_info_cur;
2034: l_msg_count := Fnd_Msg_Pub.count_msg;
2035:
2036: IF l_msg_count > 0 THEN
2037: X_msg_count := l_msg_count;
2038: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2039: RAISE Fnd_Api.G_EXC_ERROR;
2040: END IF;
2041:
2042: OPEN visit_det_cur;
2035:
2036: IF l_msg_count > 0 THEN
2037: X_msg_count := l_msg_count;
2038: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2039: RAISE Fnd_Api.G_EXC_ERROR;
2040: END IF;
2041:
2042: OPEN visit_det_cur;
2043: FETCH visit_det_cur INTO l_organization_id,l_start_date_time,l_visit_name;
2043: FETCH visit_det_cur INTO l_organization_id,l_start_date_time,l_visit_name;
2044: CLOSE visit_det_cur;
2045:
2046: -- ORGANIZATION_ID
2047: IF p_x_schedule_visit_rec.org_id = FND_API.g_miss_num THEN
2048: p_x_schedule_visit_rec.org_id := NULL;
2049: END IF;
2050: -- DEPARTMENT_ID
2051: IF p_x_schedule_visit_rec.dept_id = FND_API.g_miss_num THEN
2047: IF p_x_schedule_visit_rec.org_id = FND_API.g_miss_num THEN
2048: p_x_schedule_visit_rec.org_id := NULL;
2049: END IF;
2050: -- DEPARTMENT_ID
2051: IF p_x_schedule_visit_rec.dept_id = FND_API.g_miss_num THEN
2052: p_x_schedule_visit_rec.dept_id := NULL;
2053: END IF;
2054: -- START_DATE_TIME
2055: IF p_x_schedule_visit_rec.start_date = FND_API.g_miss_date THEN
2051: IF p_x_schedule_visit_rec.dept_id = FND_API.g_miss_num THEN
2052: p_x_schedule_visit_rec.dept_id := NULL;
2053: END IF;
2054: -- START_DATE_TIME
2055: IF p_x_schedule_visit_rec.start_date = FND_API.g_miss_date THEN
2056: p_x_schedule_visit_rec.start_date := NULL;
2057: END IF;
2058: -- PLANNED_DATE_TIME
2059: IF p_x_schedule_visit_rec.planned_end_date = FND_API.g_miss_date THEN
2055: IF p_x_schedule_visit_rec.start_date = FND_API.g_miss_date THEN
2056: p_x_schedule_visit_rec.start_date := NULL;
2057: END IF;
2058: -- PLANNED_DATE_TIME
2059: IF p_x_schedule_visit_rec.planned_end_date = FND_API.g_miss_date THEN
2060: p_x_schedule_visit_rec.planned_end_date := NULL;
2061: END IF;
2062: -- Space Categpry
2063: IF p_x_schedule_visit_rec.space_category_code = FND_API.g_miss_char THEN
2059: IF p_x_schedule_visit_rec.planned_end_date = FND_API.g_miss_date THEN
2060: p_x_schedule_visit_rec.planned_end_date := NULL;
2061: END IF;
2062: -- Space Categpry
2063: IF p_x_schedule_visit_rec.space_category_code = FND_API.g_miss_char THEN
2064: p_x_schedule_visit_rec.space_category_code := NULL;
2065: END IF;
2066: -- Visit type Code
2067: IF p_x_schedule_visit_rec.visit_type_code = FND_API.g_miss_char THEN
2063: IF p_x_schedule_visit_rec.space_category_code = FND_API.g_miss_char THEN
2064: p_x_schedule_visit_rec.space_category_code := NULL;
2065: END IF;
2066: -- Visit type Code
2067: IF p_x_schedule_visit_rec.visit_type_code = FND_API.g_miss_char THEN
2068: p_x_schedule_visit_rec.visit_type_code := NULL;
2069: END IF;
2070: -- Planned End Hour
2071: IF p_x_schedule_visit_rec.planned_end_hour = FND_API.g_miss_num THEN
2067: IF p_x_schedule_visit_rec.visit_type_code = FND_API.g_miss_char THEN
2068: p_x_schedule_visit_rec.visit_type_code := NULL;
2069: END IF;
2070: -- Planned End Hour
2071: IF p_x_schedule_visit_rec.planned_end_hour = FND_API.g_miss_num THEN
2072: p_x_schedule_visit_rec.planned_end_hour := NULL;
2073: END IF;
2074: -- Start Hour
2075: IF p_x_schedule_visit_rec.start_hour = FND_API.g_miss_num THEN
2071: IF p_x_schedule_visit_rec.planned_end_hour = FND_API.g_miss_num THEN
2072: p_x_schedule_visit_rec.planned_end_hour := NULL;
2073: END IF;
2074: -- Start Hour
2075: IF p_x_schedule_visit_rec.start_hour = FND_API.g_miss_num THEN
2076: p_x_schedule_visit_rec.start_hour := NULL;
2077: END IF;
2078:
2079: --
2095: l_msg_count := Fnd_Msg_Pub.count_msg;
2096:
2097: IF l_msg_count > 0 THEN
2098: X_msg_count := l_msg_count;
2099: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2100: RAISE Fnd_Api.G_EXC_ERROR;
2101: END IF;
2102:
2103: IF G_DEBUG='Y' THEN
2096:
2097: IF l_msg_count > 0 THEN
2098: X_msg_count := l_msg_count;
2099: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2100: RAISE Fnd_Api.G_EXC_ERROR;
2101: END IF;
2102:
2103: IF G_DEBUG='Y' THEN
2104: AHL_DEBUG_PUB.debug( 'before assign l_visit_id:'||l_visit_id);
2164: );
2165: END IF;
2166:
2167: -- Check Error Message stack.
2168: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2169: l_msg_count := FND_MSG_PUB.count_msg;
2170: IF l_msg_count > 0 THEN
2171: RAISE FND_API.G_EXC_ERROR;
2172: END IF;
2167: -- Check Error Message stack.
2168: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2169: l_msg_count := FND_MSG_PUB.count_msg;
2170: IF l_msg_count > 0 THEN
2171: RAISE FND_API.G_EXC_ERROR;
2172: END IF;
2173: END IF;
2174:
2175:
2216: l_msg_count := Fnd_Msg_Pub.count_msg;
2217:
2218: IF l_msg_count > 0 THEN
2219: X_msg_count := l_msg_count;
2220: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2221: RAISE Fnd_Api.G_EXC_ERROR;
2222: END IF;
2223:
2224: ---------------------------End of Body---------------------------------------
2217:
2218: IF l_msg_count > 0 THEN
2219: X_msg_count := l_msg_count;
2220: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2221: RAISE Fnd_Api.G_EXC_ERROR;
2222: END IF;
2223:
2224: ---------------------------End of Body---------------------------------------
2225:
2223:
2224: ---------------------------End of Body---------------------------------------
2225:
2226: --Standard check for commit
2227: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2228: COMMIT;
2229: END IF;
2230: -- Debug info
2231: IF G_DEBUG='Y' THEN
2235: IF G_DEBUG='Y' THEN
2236: Ahl_Debug_Pub.disable_debug;
2237: END IF;
2238: EXCEPTION
2239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2240: ROLLBACK TO schedule_visit;
2241: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2242: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2243: p_count => x_msg_count,
2237: END IF;
2238: EXCEPTION
2239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2240: ROLLBACK TO schedule_visit;
2241: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2242: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2243: p_count => x_msg_count,
2244: p_data => x_msg_data);
2245: IF G_DEBUG='Y' THEN
2238: EXCEPTION
2239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2240: ROLLBACK TO schedule_visit;
2241: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2242: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2243: p_count => x_msg_count,
2244: p_data => x_msg_data);
2245: IF G_DEBUG='Y' THEN
2246:
2249: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_assign_pvt.Schedule Visit','+SPANT+');
2250: -- Check if API is called in debug mode. If yes, disable debug.
2251: AHL_DEBUG_PUB.disable_debug;
2252: END IF;
2253: WHEN FND_API.G_EXC_ERROR THEN
2254: ROLLBACK TO schedule_visit;
2255: X_return_status := FND_API.G_RET_STS_ERROR;
2256: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2257: p_count => x_msg_count,
2251: AHL_DEBUG_PUB.disable_debug;
2252: END IF;
2253: WHEN FND_API.G_EXC_ERROR THEN
2254: ROLLBACK TO schedule_visit;
2255: X_return_status := FND_API.G_RET_STS_ERROR;
2256: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2257: p_count => x_msg_count,
2258: p_data => X_msg_data);
2259: IF G_DEBUG='Y' THEN
2252: END IF;
2253: WHEN FND_API.G_EXC_ERROR THEN
2254: ROLLBACK TO schedule_visit;
2255: X_return_status := FND_API.G_RET_STS_ERROR;
2256: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2257: p_count => x_msg_count,
2258: p_data => X_msg_data);
2259: IF G_DEBUG='Y' THEN
2260:
2266: AHL_DEBUG_PUB.disable_debug;
2267: END IF;
2268: WHEN OTHERS THEN
2269: ROLLBACK TO schedule_visit;
2270: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2271: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2272: THEN
2273: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
2274: p_procedure_name => 'SCHEDULE_VISIT',
2273: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
2274: p_procedure_name => 'SCHEDULE_VISIT',
2275: p_error_text => SUBSTR(SQLERRM,1,240));
2276: END IF;
2277: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2278: p_count => x_msg_count,
2279: p_data => X_msg_data);
2280: IF G_DEBUG='Y' THEN
2281:
2304: -- ii. The code to remove space assignment has been commented because it is handled in AHL_VWP_VISITS_PVT.Process_Visit
2305: -- iii. Commented cursors c_space_assign_cur,c_visit_task_matrl_cur,c_sch_mat_cur
2306: PROCEDURE Unschedule_Visit (
2307: p_api_version IN NUMBER,
2308: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2309: p_commit IN VARCHAR2 := FND_API.g_false,
2310: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2311: p_module_type IN VARCHAR2 := 'JSP',
2312: p_x_schedule_visit_rec IN OUT NOCOPY ahl_ltp_space_assign_pub.Schedule_Visit_Rec,
2305: -- iii. Commented cursors c_space_assign_cur,c_visit_task_matrl_cur,c_sch_mat_cur
2306: PROCEDURE Unschedule_Visit (
2307: p_api_version IN NUMBER,
2308: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2309: p_commit IN VARCHAR2 := FND_API.g_false,
2310: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2311: p_module_type IN VARCHAR2 := 'JSP',
2312: p_x_schedule_visit_rec IN OUT NOCOPY ahl_ltp_space_assign_pub.Schedule_Visit_Rec,
2313: x_return_status OUT NOCOPY VARCHAR2,
2306: PROCEDURE Unschedule_Visit (
2307: p_api_version IN NUMBER,
2308: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2309: p_commit IN VARCHAR2 := FND_API.g_false,
2310: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2311: p_module_type IN VARCHAR2 := 'JSP',
2312: p_x_schedule_visit_rec IN OUT NOCOPY ahl_ltp_space_assign_pub.Schedule_Visit_Rec,
2313: x_return_status OUT NOCOPY VARCHAR2,
2314: x_msg_count OUT NOCOPY NUMBER,
2384: IF G_DEBUG='Y' THEN
2385: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_space_assign_pvt.Unschedule Visit','+SPANT+');
2386: END IF;
2387: -- Standard call to check for call compatibility.
2388: IF FND_API.to_boolean(p_init_msg_list)
2389: THEN
2390: FND_MSG_PUB.initialize;
2391: END IF;
2392: -- Initialize API return status to success
2389: THEN
2390: FND_MSG_PUB.initialize;
2391: END IF;
2392: -- Initialize API return status to success
2393: x_return_status := FND_API.G_RET_STS_SUCCESS;
2394: -- Initialize message list if p_init_msg_list is set to TRUE.
2395: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2396: p_api_version,
2397: l_api_name,G_PKG_NAME)
2391: END IF;
2392: -- Initialize API return status to success
2393: x_return_status := FND_API.G_RET_STS_SUCCESS;
2394: -- Initialize message list if p_init_msg_list is set to TRUE.
2395: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2396: p_api_version,
2397: l_api_name,G_PKG_NAME)
2398: THEN
2399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2395: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2396: p_api_version,
2397: l_api_name,G_PKG_NAME)
2398: THEN
2399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2400: END IF;
2401: ---------------------start API Body------------------------------------
2402: -- Convert Visit Number to visit id
2403: IF (p_x_schedule_visit_rec.visit_number IS NOT NULL AND
2400: END IF;
2401: ---------------------start API Body------------------------------------
2402: -- Convert Visit Number to visit id
2403: IF (p_x_schedule_visit_rec.visit_number IS NOT NULL AND
2404: p_x_schedule_visit_rec.visit_number <> FND_API.G_MISS_NUM ) OR
2405: (p_x_schedule_visit_rec.visit_id IS NOT NULL AND
2406: p_x_schedule_visit_rec.visit_id <> FND_API.G_MISS_NUM) THEN
2407:
2408: Check_visit_number_Or_Id
2402: -- Convert Visit Number to visit id
2403: IF (p_x_schedule_visit_rec.visit_number IS NOT NULL AND
2404: p_x_schedule_visit_rec.visit_number <> FND_API.G_MISS_NUM ) OR
2405: (p_x_schedule_visit_rec.visit_id IS NOT NULL AND
2406: p_x_schedule_visit_rec.visit_id <> FND_API.G_MISS_NUM) THEN
2407:
2408: Check_visit_number_Or_Id
2409: (p_visit_id => p_x_schedule_visit_rec.visit_id,
2410: p_visit_number => p_x_schedule_visit_rec.visit_number,
2430: IF p_x_schedule_visit_rec.object_version_number <> l_object_version_number
2431: THEN
2432: Fnd_Message.SET_NAME('AHL','AHL_LTP_INAVLID_RECORD');
2433: Fnd_Msg_Pub.ADD;
2434: RAISE Fnd_Api.G_EXC_ERROR;
2435: END IF;
2436: -- Check for visit status
2437: IF (l_visit_status_code <> 'PLANNING' )THEN
2438: Fnd_Message.SET_NAME('AHL','AHL_VISIT_NOT_PLANNED');
2436: -- Check for visit status
2437: IF (l_visit_status_code <> 'PLANNING' )THEN
2438: Fnd_Message.SET_NAME('AHL','AHL_VISIT_NOT_PLANNED');
2439: Fnd_Msg_Pub.ADD;
2440: RAISE Fnd_Api.G_EXC_ERROR;
2441: END IF;
2442: --
2443: --Check for material scheduling
2444: -- anraj commented because material scheduling is handled in AHL_VWP_VISITS_PVT.Process_Visit
2457: IF l_scheduled_date IS NOT NULL THEN
2458: Fnd_Message.SET_NAME('AHL','AHL_LTP_MRP_SCHEDUl_ITEM');
2459: Fnd_Msg_Pub.ADD;
2460: CLOSE c_visit_task_matrl_cur;
2461: RAISE Fnd_Api.G_EXC_ERROR;
2462: ELSE
2463: UPDATE ahl_schedule_materials
2464: SET requested_quantity = 0,
2465: object_version_number = l_object_version_number + 1,
2564:
2565: END IF;
2566:
2567: -- Check Error Message stack.
2568: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2569: l_msg_count := FND_MSG_PUB.count_msg;
2570: IF l_msg_count > 0 THEN
2571: RAISE FND_API.G_EXC_ERROR;
2572: END IF;
2567: -- Check Error Message stack.
2568: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2569: l_msg_count := FND_MSG_PUB.count_msg;
2570: IF l_msg_count > 0 THEN
2571: RAISE FND_API.G_EXC_ERROR;
2572: END IF;
2573: END IF;
2574:
2575: -- Changes by mpothuku End
2579: l_msg_count := Fnd_Msg_Pub.count_msg;
2580:
2581: IF l_msg_count > 0 THEN
2582: X_msg_count := l_msg_count;
2583: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2584: RAISE Fnd_Api.G_EXC_ERROR;
2585: END IF;
2586:
2587: --Standard check for commit
2580:
2581: IF l_msg_count > 0 THEN
2582: X_msg_count := l_msg_count;
2583: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2584: RAISE Fnd_Api.G_EXC_ERROR;
2585: END IF;
2586:
2587: --Standard check for commit
2588: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2584: RAISE Fnd_Api.G_EXC_ERROR;
2585: END IF;
2586:
2587: --Standard check for commit
2588: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2589: COMMIT;
2590: END IF;
2591: -- Debug info
2592: IF G_DEBUG='Y' THEN
2594: -- Check if API is called in debug mode. If yes, disable debug.
2595: Ahl_Debug_Pub.disable_debug;
2596: END IF;
2597: EXCEPTION
2598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2599: ROLLBACK TO unschedule_visit;
2600: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2601: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2602: p_count => x_msg_count,
2596: END IF;
2597: EXCEPTION
2598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2599: ROLLBACK TO unschedule_visit;
2600: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2601: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2602: p_count => x_msg_count,
2603: p_data => x_msg_data);
2604: IF G_DEBUG='Y' THEN
2597: EXCEPTION
2598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2599: ROLLBACK TO unschedule_visit;
2600: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2601: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2602: p_count => x_msg_count,
2603: p_data => x_msg_data);
2604: IF G_DEBUG='Y' THEN
2605:
2608: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_assign_pvt.Unschedule Visit','+SPANT+');
2609: -- Check if API is called in debug mode. If yes, disable debug.
2610: AHL_DEBUG_PUB.disable_debug;
2611: END IF;
2612: WHEN FND_API.G_EXC_ERROR THEN
2613: ROLLBACK TO unschedule_visit;
2614: X_return_status := FND_API.G_RET_STS_ERROR;
2615: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2616: p_count => x_msg_count,
2610: AHL_DEBUG_PUB.disable_debug;
2611: END IF;
2612: WHEN FND_API.G_EXC_ERROR THEN
2613: ROLLBACK TO unschedule_visit;
2614: X_return_status := FND_API.G_RET_STS_ERROR;
2615: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2616: p_count => x_msg_count,
2617: p_data => X_msg_data);
2618: IF G_DEBUG='Y' THEN
2611: END IF;
2612: WHEN FND_API.G_EXC_ERROR THEN
2613: ROLLBACK TO unschedule_visit;
2614: X_return_status := FND_API.G_RET_STS_ERROR;
2615: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2616: p_count => x_msg_count,
2617: p_data => X_msg_data);
2618: IF G_DEBUG='Y' THEN
2619:
2625: AHL_DEBUG_PUB.disable_debug;
2626: END IF;
2627: WHEN OTHERS THEN
2628: ROLLBACK TO unschedule_visit;
2629: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2630: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2631: THEN
2632: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
2633: p_procedure_name => 'UNSCHEDULE_VISIT',
2632: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PVT',
2633: p_procedure_name => 'UNSCHEDULE_VISIT',
2634: p_error_text => SUBSTR(SQLERRM,1,240));
2635: END IF;
2636: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2637: p_count => x_msg_count,
2638: p_data => X_msg_data);
2639: IF G_DEBUG='Y' THEN
2640: