[Home] [Help]
64: AND meaning = p_meaning
65: AND SYSDATE BETWEEN start_date_active
66: AND NVL(end_date_active,SYSDATE);
67: END IF;
68: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
69:
70: EXCEPTION
71: WHEN NO_DATA_FOUND THEN
72: x_return_status := Fnd_Api.G_RET_STS_ERROR;
68: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
69:
70: EXCEPTION
71: WHEN NO_DATA_FOUND THEN
72: x_return_status := Fnd_Api.G_RET_STS_ERROR;
73: WHEN TOO_MANY_ROWS THEN
74: x_return_status := Fnd_Api.G_RET_STS_ERROR;
75: WHEN OTHERS THEN
76: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
70: EXCEPTION
71: WHEN NO_DATA_FOUND THEN
72: x_return_status := Fnd_Api.G_RET_STS_ERROR;
73: WHEN TOO_MANY_ROWS THEN
74: x_return_status := Fnd_Api.G_RET_STS_ERROR;
75: WHEN OTHERS THEN
76: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
77: RAISE;
78: END;
72: x_return_status := Fnd_Api.G_RET_STS_ERROR;
73: WHEN TOO_MANY_ROWS THEN
74: x_return_status := Fnd_Api.G_RET_STS_ERROR;
75: WHEN OTHERS THEN
76: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
77: RAISE;
78: END;
79:
80:
109: INTO x_organization_id
110: FROM HR_ALL_ORGANIZATION_UNITS
111: WHERE NAME = p_org_name;
112: END IF;
113: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
114: EXCEPTION
115: WHEN NO_DATA_FOUND THEN
116: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
117: x_error_msg_code:= 'AHL_LTP_ORG_ID_NOT_EXISTS';
112: END IF;
113: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
114: EXCEPTION
115: WHEN NO_DATA_FOUND THEN
116: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
117: x_error_msg_code:= 'AHL_LTP_ORG_ID_NOT_EXISTS';
118: WHEN TOO_MANY_ROWS THEN
119: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
120: x_error_msg_code:= 'AHL_LTP_ORG_ID_NOT_EXISTS';
115: WHEN NO_DATA_FOUND THEN
116: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
117: x_error_msg_code:= 'AHL_LTP_ORG_ID_NOT_EXISTS';
118: WHEN TOO_MANY_ROWS THEN
119: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
120: x_error_msg_code:= 'AHL_LTP_ORG_ID_NOT_EXISTS';
121: WHEN OTHERS THEN
122: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
123: RAISE;
118: WHEN TOO_MANY_ROWS THEN
119: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
120: x_error_msg_code:= 'AHL_LTP_ORG_ID_NOT_EXISTS';
121: WHEN OTHERS THEN
122: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
123: RAISE;
124: END Check_org_name_Or_Id;
125: --------------------------------------------------------------------
126: -- PROCEDURE
160: FROM BOM_DEPARTMENTS
161: WHERE organization_id = p_organization_id
162: AND description = p_dept_description;
163: END IF;
164: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
165: EXCEPTION
166: WHEN NO_DATA_FOUND THEN
167: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
168: x_error_msg_code:= 'AHL_LTP_DEPT_ID_NOT_EXIST';
163: END IF;
164: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
165: EXCEPTION
166: WHEN NO_DATA_FOUND THEN
167: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
168: x_error_msg_code:= 'AHL_LTP_DEPT_ID_NOT_EXIST';
169: WHEN TOO_MANY_ROWS THEN
170: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
171: x_error_msg_code:= 'AHL_LTP_DEPT_ID_NOT_EXIST';
166: WHEN NO_DATA_FOUND THEN
167: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
168: x_error_msg_code:= 'AHL_LTP_DEPT_ID_NOT_EXIST';
169: WHEN TOO_MANY_ROWS THEN
170: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
171: x_error_msg_code:= 'AHL_LTP_DEPT_ID_NOT_EXIST';
172: WHEN OTHERS THEN
173: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
174: RAISE;
169: WHEN TOO_MANY_ROWS THEN
170: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
171: x_error_msg_code:= 'AHL_LTP_DEPT_ID_NOT_EXIST';
172: WHEN OTHERS THEN
173: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
174: RAISE;
175: END Check_dept_desc_Or_Id;
176:
177: --------------------------------------------------------------------
205: INTO x_space_id
206: FROM AHL_SPACES_VL
207: WHERE SPACE_NAME = p_space_name;
208: END IF;
209: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
210: EXCEPTION
211: WHEN NO_DATA_FOUND THEN
212: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
213: x_error_msg_code:= 'AHL_LTP_SPACE_NOT_EXISTS';
208: END IF;
209: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
210: EXCEPTION
211: WHEN NO_DATA_FOUND THEN
212: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
213: x_error_msg_code:= 'AHL_LTP_SPACE_NOT_EXISTS';
214: WHEN TOO_MANY_ROWS THEN
215: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
216: x_error_msg_code:= 'AHL_LTP_SPACE_NOT_EXISTS';
211: WHEN NO_DATA_FOUND THEN
212: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
213: x_error_msg_code:= 'AHL_LTP_SPACE_NOT_EXISTS';
214: WHEN TOO_MANY_ROWS THEN
215: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
216: x_error_msg_code:= 'AHL_LTP_SPACE_NOT_EXISTS';
217: WHEN OTHERS THEN
218: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
219: RAISE;
214: WHEN TOO_MANY_ROWS THEN
215: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
216: x_error_msg_code:= 'AHL_LTP_SPACE_NOT_EXISTS';
217: WHEN OTHERS THEN
218: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
219: RAISE;
220: END Check_space_name_Or_Id;
221:
222: ---------------------------------------------------------------------
317: IF c_space_rec%NOTFOUND THEN
318: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
319: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_NOT_FOUND');
320: FND_MSG_PUB.add;
321: RAISE Fnd_Api.G_EXC_ERROR;
322: END IF;
323: END IF;
324: CLOSE c_space_rec;
325: --
327: IF (l_space_rec.object_version_number <> p_space_rec.object_version_number)
328: THEN
329: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
330: Fnd_Msg_Pub.ADD;
331: RAISE Fnd_Api.G_EXC_ERROR;
332: END IF;
333: --
334: IF p_space_rec.space_name <> l_space_rec.space_name THEN
335: OPEN check_dup_name(p_space_rec.space_name,l_space_rec.bom_department_id);
340: END IF;
341: IF l_dummy IS NOT NULL THEN
342: Fnd_Message.SET_NAME('AHL','AHL_LTP_SPACE_NAME_EXISTS');
343: Fnd_Msg_Pub.ADD;
344: RAISE Fnd_Api.G_EXC_ERROR;
345: END IF;
346: END IF;
347:
348: -- BOM_DEPARTMENT ID
346: END IF;
347:
348: -- BOM_DEPARTMENT ID
349: IF (
350: p_space_rec.department_id <> FND_API.g_miss_num) THEN
351: x_space_rec.department_id := p_space_rec.department_id;
352: ELSE
353: x_space_rec.department_id := l_space_rec.bom_department_id;
354: END IF;
352: ELSE
353: x_space_rec.department_id := l_space_rec.bom_department_id;
354: END IF;
355: -- ORGANIZATION_ID
356: IF (p_space_rec.organization_id <> FND_API.g_miss_num) THEN
357: x_space_rec.organization_id := p_space_rec.organization_id;
358: ELSE
359: x_space_rec.organization_id := l_space_rec.organization_id;
360: END IF;
365: ELSE
366: x_space_rec.space_name := p_space_rec.space_name;
367: END IF;
368: -- SPACE_CATEGORY
369: IF (p_space_rec.space_category_code <> FND_API.g_miss_char) THEN
370: x_space_rec.space_category_code := p_space_rec.space_category_code;
371: ELSE
372: x_space_rec.space_category_code := l_space_rec.space_category;
373: END IF;
372: x_space_rec.space_category_code := l_space_rec.space_category;
373: END IF;
374: -- INACTIVE_FLAG
375: IF (
376: p_space_rec.inactive_flag_code <> FND_API.g_miss_char) THEN
377: x_space_rec.inactive_flag_code := p_space_rec.inactive_flag_code;
378: ELSE
379: x_space_rec.inactive_flag_code := l_space_rec.inactive_flag;
380: END IF;
378: ELSE
379: x_space_rec.inactive_flag_code := l_space_rec.inactive_flag;
380: END IF;
381: -- ATTRIBUTE CATEGORY
382: IF p_space_rec.attribute_category <> FND_API.g_miss_char THEN
383: x_space_rec.attribute_category := p_space_rec.attribute_category;
384: ELSE
385: x_space_rec.attribute_category := l_space_rec.attribute_category;
386: END IF;
384: ELSE
385: x_space_rec.attribute_category := l_space_rec.attribute_category;
386: END IF;
387: -- ATTRIBUTE 1
388: IF p_space_rec.attribute1 <> FND_API.g_miss_char THEN
389: x_space_rec.attribute1 := l_space_rec.attribute1;
390: ELSE
391: x_space_rec.attribute1 := p_space_rec.attribute1;
392: END IF;
390: ELSE
391: x_space_rec.attribute1 := p_space_rec.attribute1;
392: END IF;
393: -- ATTRIBUTE 2
394: IF p_space_rec.attribute2 <> FND_API.g_miss_char THEN
395: x_space_rec.attribute2 := l_space_rec.attribute2;
396: ELSE
397: x_space_rec.attribute2 := p_space_rec.attribute2;
398: END IF;
396: ELSE
397: x_space_rec.attribute2 := p_space_rec.attribute2;
398: END IF;
399: -- ATTRIBUTE 3
400: IF p_space_rec.attribute3 <> FND_API.g_miss_char THEN
401: x_space_rec.attribute3 := l_space_rec.attribute3;
402: ELSE
403: x_space_rec.attribute3 := p_space_rec.attribute3;
404: END IF;
402: ELSE
403: x_space_rec.attribute3 := p_space_rec.attribute3;
404: END IF;
405: -- ATTRIBUTE 4
406: IF p_space_rec.attribute4 <> FND_API.g_miss_char THEN
407: x_space_rec.attribute4 := l_space_rec.attribute4;
408: ELSE
409: x_space_rec.attribute4 := p_space_rec.attribute4;
410: END IF;
408: ELSE
409: x_space_rec.attribute4 := p_space_rec.attribute4;
410: END IF;
411: -- ATTRIBUTE 5
412: IF p_space_rec.attribute5 <> FND_API.g_miss_char THEN
413: x_space_rec.attribute5 := l_space_rec.attribute5;
414: ELSE
415: x_space_rec.attribute5 := p_space_rec.attribute5;
416: END IF;
414: ELSE
415: x_space_rec.attribute5 := p_space_rec.attribute5;
416: END IF;
417: -- ATTRIBUTE 6
418: IF p_space_rec.attribute6 <> FND_API.g_miss_char THEN
419: x_space_rec.attribute6 := l_space_rec.attribute6;
420: ELSE
421: x_space_rec.attribute6 := p_space_rec.attribute6;
422: END IF;
420: ELSE
421: x_space_rec.attribute6 := p_space_rec.attribute6;
422: END IF;
423: -- ATTRIBUTE 7
424: IF p_space_rec.attribute7 <> FND_API.g_miss_char THEN
425: x_space_rec.attribute7 := l_space_rec.attribute7;
426: ELSE
427: x_space_rec.attribute7 := p_space_rec.attribute7;
428: END IF;
426: ELSE
427: x_space_rec.attribute7 := p_space_rec.attribute7;
428: END IF;
429: -- ATTRIBUTE 8
430: IF p_space_rec.attribute8 <> FND_API.g_miss_char THEN
431: x_space_rec.attribute8 := l_space_rec.attribute8;
432: ELSE
433: x_space_rec.attribute8 := p_space_rec.attribute8;
434: END IF;
432: ELSE
433: x_space_rec.attribute8 := p_space_rec.attribute8;
434: END IF;
435: -- ATTRIBUTE 9
436: IF p_space_rec.attribute9 <> FND_API.g_miss_char THEN
437: x_space_rec.attribute9 := l_space_rec.attribute9;
438: ELSE
439: x_space_rec.attribute9 := p_space_rec.attribute9;
440: END IF;
438: ELSE
439: x_space_rec.attribute9 := p_space_rec.attribute9;
440: END IF;
441: -- ATTRIBUTE 10
442: IF p_space_rec.attribute10 <> FND_API.g_miss_char THEN
443: x_space_rec.attribute10 := l_space_rec.attribute10;
444: ELSE
445: x_space_rec.attribute10 := p_space_rec.attribute10;
446: END IF;
444: ELSE
445: x_space_rec.attribute10 := p_space_rec.attribute10;
446: END IF;
447: -- ATTRIBUTE 11
448: IF p_space_rec.attribute11 <> FND_API.g_miss_char THEN
449: x_space_rec.attribute11 := l_space_rec.attribute11;
450: ELSE
451: x_space_rec.attribute11 := p_space_rec.attribute11;
452: END IF;
450: ELSE
451: x_space_rec.attribute11 := p_space_rec.attribute11;
452: END IF;
453: -- ATTRIBUTE 12
454: IF p_space_rec.attribute12 <> FND_API.g_miss_char THEN
455: x_space_rec.attribute12 := l_space_rec.attribute12;
456: ELSE
457: x_space_rec.attribute12 := p_space_rec.attribute12;
458: END IF;
456: ELSE
457: x_space_rec.attribute12 := p_space_rec.attribute12;
458: END IF;
459: -- ATTRIBUTE 13
460: IF p_space_rec.attribute13 <> FND_API.g_miss_char THEN
461: x_space_rec.attribute13 := l_space_rec.attribute13;
462: ELSE
463: x_space_rec.attribute13 := p_space_rec.attribute13;
464: END IF;
462: ELSE
463: x_space_rec.attribute13 := p_space_rec.attribute13;
464: END IF;
465: -- ATTRIBUTE 14
466: IF p_space_rec.attribute14 <> FND_API.g_miss_char THEN
467: x_space_rec.attribute14 := l_space_rec.attribute14;
468: ELSE
469: x_space_rec.attribute14 := p_space_rec.attribute14;
470: END IF;
468: ELSE
469: x_space_rec.attribute14 := p_space_rec.attribute14;
470: END IF;
471: -- ATTRIBUTE 15
472: IF p_space_rec.attribute15 <> FND_API.g_miss_char THEN
473: x_space_rec.attribute15 := l_space_rec.attribute15;
474: ELSE
475: x_space_rec.attribute15 := p_space_rec.attribute15;
476: END IF;
508: l_space_name VARCHAR2(30);
509: l_space_id NUMBER;
510: BEGIN
511: -- Initialize API/Procedure return status to success
512: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
513: -- Check required parameters
514: IF (p_space_rec.ORGANIZATION_ID IS NULL OR
515: p_space_rec.ORGANIZATION_ID = Fnd_Api.G_MISS_NUM
516: )
511: -- Initialize API/Procedure return status to success
512: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
513: -- Check required parameters
514: IF (p_space_rec.ORGANIZATION_ID IS NULL OR
515: p_space_rec.ORGANIZATION_ID = Fnd_Api.G_MISS_NUM
516: )
517: --
518: THEN
519: -- missing required fields
521: THEN
522: Fnd_Message.set_name('AHL', 'AHL_LTP_ORG_REQUIRED');
523: Fnd_Msg_Pub.ADD;
524: END IF;
525: x_return_status := Fnd_Api.G_RET_STS_ERROR;
526: END IF;
527: -- BOM_DEPARTMENT_ID
528: IF (p_space_rec.DEPARTMENT_ID = Fnd_Api.G_MISS_NUM OR
529: p_space_rec.DEPARTMENT_ID IS NULL)
524: END IF;
525: x_return_status := Fnd_Api.G_RET_STS_ERROR;
526: END IF;
527: -- BOM_DEPARTMENT_ID
528: IF (p_space_rec.DEPARTMENT_ID = Fnd_Api.G_MISS_NUM OR
529: p_space_rec.DEPARTMENT_ID IS NULL)
530: THEN
531: -- missing required fields
532: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
533: THEN
534: Fnd_Message.set_name('AHL', 'AHL_LTP_DEPT_REQUIRED');
535: Fnd_Msg_Pub.ADD;
536: END IF;
537: x_return_status := Fnd_Api.G_RET_STS_ERROR;
538: END IF;
539: --SPACE CATEGORY
540: IF (p_space_rec.SPACE_CATEGORY_CODE = Fnd_Api.G_MISS_CHAR OR
541: p_space_rec.SPACE_CATEGORY_CODE IS NULL)
536: END IF;
537: x_return_status := Fnd_Api.G_RET_STS_ERROR;
538: END IF;
539: --SPACE CATEGORY
540: IF (p_space_rec.SPACE_CATEGORY_CODE = Fnd_Api.G_MISS_CHAR OR
541: p_space_rec.SPACE_CATEGORY_CODE IS NULL)
542: THEN
543: -- missing required fields
544: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
545: THEN
546: Fnd_Message.set_name('AHL', 'AHL_LTP_SP_CATEGORY_NOT_EXIST');
547: Fnd_Msg_Pub.ADD;
548: END IF;
549: x_return_status := Fnd_Api.G_RET_STS_ERROR;
550: END IF;
551:
552: --SPACE_NAME
553: IF (p_space_rec.space_name = Fnd_Api.G_MISS_CHAR OR
549: x_return_status := Fnd_Api.G_RET_STS_ERROR;
550: END IF;
551:
552: --SPACE_NAME
553: IF (p_space_rec.space_name = Fnd_Api.G_MISS_CHAR OR
554: p_space_rec.SPACE_NAME IS NULL)
555: THEN
556: -- missing required fields
557: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
558: THEN
559: Fnd_Message.set_name('AHL', 'AHL_LTP_SPACE_NAME_NOT_EXIST');
560: Fnd_Msg_Pub.ADD;
561: END IF;
562: x_return_status := Fnd_Api.G_RET_STS_ERROR;
563: END IF;
564: -- Validate uniqueness
565: IF p_validation_mode = Jtf_Plsql_Api.g_create
566: AND (p_space_rec.space_id = FND_API.G_MISS_NUM OR
562: x_return_status := Fnd_Api.G_RET_STS_ERROR;
563: END IF;
564: -- Validate uniqueness
565: IF p_validation_mode = Jtf_Plsql_Api.g_create
566: AND (p_space_rec.space_id = FND_API.G_MISS_NUM OR
567: p_space_rec.space_id IS NULL)
568: THEN
569: IF Ahl_Utility_Pvt.check_uniqueness(
570: 'ahl_spaces_vl',
568: THEN
569: IF Ahl_Utility_Pvt.check_uniqueness(
570: 'ahl_spaces_vl',
571: 'space_name = ' || p_space_rec.space_name
572: ) = Fnd_Api.g_false
573: THEN
574: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error)
575: THEN
576: Fnd_Message.set_name('AHL', 'AHL_LTP_SPACE_NAME_EXISTS');
575: THEN
576: Fnd_Message.set_name('AHL', 'AHL_LTP_SPACE_NAME_EXISTS');
577: Fnd_Msg_Pub.ADD;
578: END IF;
579: x_return_status := Fnd_Api.g_ret_sts_error;
580: END IF;
581: END IF;
582: --
583: IF (p_space_rec.space_id = FND_API.G_MISS_NUM OR
579: x_return_status := Fnd_Api.g_ret_sts_error;
580: END IF;
581: END IF;
582: --
583: IF (p_space_rec.space_id = FND_API.G_MISS_NUM OR
584: p_space_rec.space_id IS NULL) THEN
585: OPEN space_name_cur(p_space_rec.space_name,p_space_rec.department_id);
586: FETCH space_name_cur INTO l_space_name;
587: IF l_space_name IS NOT NULL THEN
592: END IF;
593:
594: /*
595: --
596: IF (p_space_rec.space_id <> FND_API.G_MISS_NUM AND
597: p_space_rec.space_id IS NOT NULL) THEN
598: --
599: SELECT space_id INTO l_space_id
600: FROM AHL_SPACE_ASSIGNMENTS
634: -- Status Local Variables
635: l_return_status VARCHAR2(1);
636: BEGIN
637: -- Initialize API return status to success
638: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
639: --
640: NULL;
641: --
642: END Validate_Space_Record;
654: --
655: --------------------------------------------------------------------
656: PROCEDURE Validate_Space
657: ( p_api_version IN NUMBER,
658: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
659: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
660: p_space_rec IN space_rec,
661: x_return_status OUT NOCOPY VARCHAR2,
662: x_msg_count OUT NOCOPY NUMBER,
655: --------------------------------------------------------------------
656: PROCEDURE Validate_Space
657: ( p_api_version IN NUMBER,
658: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
659: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
660: p_space_rec IN space_rec,
661: x_return_status OUT NOCOPY VARCHAR2,
662: x_msg_count OUT NOCOPY NUMBER,
663: x_msg_data OUT NOCOPY VARCHAR2
669: l_return_status VARCHAR2(1);
670: l_space_rec space_rec;
671: BEGIN
672: -- Standard call to check for call compatibility.
673: IF NOT Fnd_Api.Compatible_API_Call ( l_api_version,
674: p_api_version,
675: l_api_name,
676: G_PKG_NAME)
677: THEN
674: p_api_version,
675: l_api_name,
676: G_PKG_NAME)
677: THEN
678: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
679: END IF;
680: -- Initialize message list if p_init_msg_list is set to TRUE.
681: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
682: Fnd_Msg_Pub.initialize;
677: THEN
678: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
679: END IF;
680: -- Initialize message list if p_init_msg_list is set to TRUE.
681: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
682: Fnd_Msg_Pub.initialize;
683: END IF;
684: -- Initialize API return status to success
685: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
681: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
682: Fnd_Msg_Pub.initialize;
683: END IF;
684: -- Initialize API return status to success
685: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
686: --
687: -- API body
688: --
689: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item
693: p_validation_mode => Jtf_Plsql_Api.g_create,
694: x_return_status => l_return_status
695: );
696: -- If any errors happen abort API.
697: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
698: THEN
699: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
700: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR
701: THEN
695: );
696: -- If any errors happen abort API.
697: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
698: THEN
699: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
700: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR
701: THEN
702: RAISE Fnd_Api.G_EXC_ERROR;
703: END IF;
696: -- If any errors happen abort API.
697: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
698: THEN
699: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
700: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR
701: THEN
702: RAISE Fnd_Api.G_EXC_ERROR;
703: END IF;
704: END IF;
698: THEN
699: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
700: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR
701: THEN
702: RAISE Fnd_Api.G_EXC_ERROR;
703: END IF;
704: END IF;
705: -- Perform cross attribute validation and missing attribute checks. Record
706: -- level validation.
710: p_space_rec => p_space_rec,
711: x_return_status => l_return_status
712:
713: );
714: IF l_return_status = Fnd_Api.G_RET_STS_ERROR
715: THEN
716: RAISE Fnd_Api.G_EXC_ERROR;
717: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
718: THEN
712:
713: );
714: IF l_return_status = Fnd_Api.G_RET_STS_ERROR
715: THEN
716: RAISE Fnd_Api.G_EXC_ERROR;
717: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
718: THEN
719: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
720: END IF;
713: );
714: IF l_return_status = Fnd_Api.G_RET_STS_ERROR
715: THEN
716: RAISE Fnd_Api.G_EXC_ERROR;
717: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
718: THEN
719: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
720: END IF;
721: END IF;
715: THEN
716: RAISE Fnd_Api.G_EXC_ERROR;
717: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
718: THEN
719: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
720: END IF;
721: END IF;
722: --
723: -- END of API body.
723: -- END of API body.
724: --
725: -------------------- finish --------------------------
726: Fnd_Msg_Pub.count_and_get(
727: p_encoded => Fnd_Api.g_false,
728: p_count => x_msg_count,
729: p_data => x_msg_data);
730: EXCEPTION
731: WHEN Fnd_Api.G_EXC_ERROR THEN
727: p_encoded => Fnd_Api.g_false,
728: p_count => x_msg_count,
729: p_data => x_msg_data);
730: EXCEPTION
731: WHEN Fnd_Api.G_EXC_ERROR THEN
732: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
733: Fnd_Msg_Pub.Count_AND_Get
734: ( p_count => x_msg_count,
735: p_data => x_msg_data,
728: p_count => x_msg_count,
729: p_data => x_msg_data);
730: EXCEPTION
731: WHEN Fnd_Api.G_EXC_ERROR THEN
732: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
733: Fnd_Msg_Pub.Count_AND_Get
734: ( p_count => x_msg_count,
735: p_data => x_msg_data,
736: p_encoded => Fnd_Api.G_FALSE
732: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
733: Fnd_Msg_Pub.Count_AND_Get
734: ( p_count => x_msg_count,
735: p_data => x_msg_data,
736: p_encoded => Fnd_Api.G_FALSE
737: );
738: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
739: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
740: Fnd_Msg_Pub.Count_AND_Get
734: ( p_count => x_msg_count,
735: p_data => x_msg_data,
736: p_encoded => Fnd_Api.G_FALSE
737: );
738: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
739: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
740: Fnd_Msg_Pub.Count_AND_Get
741: ( p_count => x_msg_count,
742: p_data => x_msg_data,
735: p_data => x_msg_data,
736: p_encoded => Fnd_Api.G_FALSE
737: );
738: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
739: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
740: Fnd_Msg_Pub.Count_AND_Get
741: ( p_count => x_msg_count,
742: p_data => x_msg_data,
743: p_encoded => Fnd_Api.G_FALSE
739: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
740: Fnd_Msg_Pub.Count_AND_Get
741: ( p_count => x_msg_count,
742: p_data => x_msg_data,
743: p_encoded => Fnd_Api.G_FALSE
744: );
745: WHEN OTHERS THEN
746: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
747: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
742: p_data => x_msg_data,
743: p_encoded => Fnd_Api.G_FALSE
744: );
745: WHEN OTHERS THEN
746: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
747: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
748: THEN
749: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
750: END IF;
750: END IF;
751: Fnd_Msg_Pub.Count_AND_Get
752: ( p_count => x_msg_count,
753: p_data => x_msg_data,
754: p_encoded => Fnd_Api.G_FALSE
755: );
756: END Validate_Space;
757:
758: --------------------------------------------------------------------
769: --------------------------------------------------------------------
770:
771: PROCEDURE Create_Space (
772: p_api_version IN NUMBER,
773: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
774: p_commit IN VARCHAR2 := FND_API.g_false,
775: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
776: p_module_type IN VARCHAR2 := 'JSP',
777: p_x_space_rec IN OUT NOCOPY ahl_ltp_space_capb_pub.Space_Rec,
770:
771: PROCEDURE Create_Space (
772: p_api_version IN NUMBER,
773: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
774: p_commit IN VARCHAR2 := FND_API.g_false,
775: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
776: p_module_type IN VARCHAR2 := 'JSP',
777: p_x_space_rec IN OUT NOCOPY ahl_ltp_space_capb_pub.Space_Rec,
778: x_return_status OUT NOCOPY VARCHAR2,
771: PROCEDURE Create_Space (
772: p_api_version IN NUMBER,
773: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
774: p_commit IN VARCHAR2 := FND_API.g_false,
775: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
776: p_module_type IN VARCHAR2 := 'JSP',
777: p_x_space_rec IN OUT NOCOPY ahl_ltp_space_capb_pub.Space_Rec,
778: x_return_status OUT NOCOPY VARCHAR2,
779: x_msg_count OUT NOCOPY NUMBER,
817: IF G_DEBUG='Y' THEN
818: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_space_capb_pvt.Create Space ','+SPCBL+');
819: END IF;
820: -- Standard call to check for call compatibility.
821: IF FND_API.to_boolean(p_init_msg_list)
822: THEN
823: FND_MSG_PUB.initialize;
824: END IF;
825: -- Initialize API return status to success
822: THEN
823: FND_MSG_PUB.initialize;
824: END IF;
825: -- Initialize API return status to success
826: x_return_status := FND_API.G_RET_STS_SUCCESS;
827: -- Initialize message list if p_init_msg_list is set to TRUE.
828: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
829: p_api_version,
830: l_api_name,G_PKG_NAME)
824: END IF;
825: -- Initialize API return status to success
826: x_return_status := FND_API.G_RET_STS_SUCCESS;
827: -- Initialize message list if p_init_msg_list is set to TRUE.
828: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
829: p_api_version,
830: l_api_name,G_PKG_NAME)
831: THEN
832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
828: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
829: p_api_version,
830: l_api_name,G_PKG_NAME)
831: THEN
832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
833: END IF;
834: --------------------Value OR ID conversion---------------------------
835: --Start API Body
836: IF p_module_type = 'JSP'
840: END IF;
841:
842: -- Convert org name to organization id
843: IF (p_x_space_rec.org_name IS NOT NULL AND
844: p_x_space_rec.org_name <> FND_API.G_MISS_CHAR ) OR
845: (p_x_space_rec.organization_id IS NOT NULL AND
846: p_x_space_rec.organization_id <> FND_API.G_MISS_NUM) THEN
847:
848: Check_org_name_Or_Id
842: -- Convert org name to organization id
843: IF (p_x_space_rec.org_name IS NOT NULL AND
844: p_x_space_rec.org_name <> FND_API.G_MISS_CHAR ) OR
845: (p_x_space_rec.organization_id IS NOT NULL AND
846: p_x_space_rec.organization_id <> FND_API.G_MISS_NUM) THEN
847:
848: Check_org_name_Or_Id
849: (p_organization_id => p_x_space_rec.organization_id,
850: p_org_name => p_x_space_rec.org_name,
866: p_x_space_rec.organization_id := l_organization_id;
867:
868: -- Get dept code using dept description
869: IF (p_x_space_rec.dept_description IS NOT NULL AND
870: p_x_space_rec.dept_description <> FND_API.G_MISS_CHAR ) OR
871: (p_x_space_rec.department_id IS NOT NULL AND
872: p_x_space_rec.department_id <> FND_API.G_MISS_NUM) THEN
873:
874: Check_dept_desc_Or_Id
868: -- Get dept code using dept description
869: IF (p_x_space_rec.dept_description IS NOT NULL AND
870: p_x_space_rec.dept_description <> FND_API.G_MISS_CHAR ) OR
871: (p_x_space_rec.department_id IS NOT NULL AND
872: p_x_space_rec.department_id <> FND_API.G_MISS_NUM) THEN
873:
874: Check_dept_desc_Or_Id
875: (p_organization_id => p_x_space_rec.organization_id,
876: p_org_name => p_x_space_rec.org_name,
895: p_x_space_rec.department_id := l_department_id;
896:
897: --For Space Category
898: IF p_x_space_rec.space_category_mean IS NOT NULL AND
899: p_x_space_rec.space_category_mean <> Fnd_Api.G_MISS_CHAR
900: THEN
901: Check_lookup_name_Or_Id (
902: p_lookup_type => 'AHL_SPACE_CATEGORY',
903: p_lookup_code => NULL,
913: END IF;
914: END IF;
915: -- Id presents
916: IF p_x_space_rec.space_category_code IS NOT NULL AND
917: p_x_space_rec.space_category_code <> Fnd_Api.G_MISS_CHAR
918: THEN
919: l_space_rec.space_category_code := p_x_space_rec.space_category_code;
920: ELSE
921: Fnd_Message.SET_NAME('AHL','AHL_LTP_SP_CATEGORY_NOT_EXIST');
922: Fnd_Msg_Pub.ADD;
923: END IF;
924: --
925: --SPACE_NAME
926: IF (p_x_space_rec.space_name = Fnd_Api.G_MISS_CHAR OR
927: p_x_space_rec.SPACE_NAME IS NULL)
928: THEN
929: -- missing required fields
930: Fnd_Message.set_name('AHL', 'AHL_LTP_SPACE_NAME_NOT_EXIST');
935: l_msg_count := Fnd_Msg_Pub.count_msg;
936:
937: IF l_msg_count > 0 THEN
938: X_msg_count := l_msg_count;
939: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
940: RAISE Fnd_Api.G_EXC_ERROR;
941: END IF;
942:
943: --------------------------------Validation ---------------------------
936:
937: IF l_msg_count > 0 THEN
938: X_msg_count := l_msg_count;
939: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
940: RAISE Fnd_Api.G_EXC_ERROR;
941: END IF;
942:
943: --------------------------------Validation ---------------------------
944: --Assign to local variable
956: x_return_status => l_return_status,
957: x_msg_count => l_msg_count,
958: x_msg_data => l_msg_data );
959:
960: IF (p_x_space_rec.space_id = Fnd_Api.G_MISS_NUM OR
961: p_x_space_rec.space_id IS NULL )
962: THEN
963: --
964: -- If the ID is not passed into the API, then
980: Fnd_Message.SET_NAME('AHL','AHL_LTP_SEQUENCE_NOT_EXISTS');
981: Fnd_Msg_Pub.ADD;
982: END IF;
983: -- For optional fields
984: IF p_x_space_rec.description = FND_API.G_MISS_CHAR
985: THEN
986: l_space_rec.description := NULL;
987: ELSE
988: l_space_rec.description := p_x_space_rec.description;
987: ELSE
988: l_space_rec.description := p_x_space_rec.description;
989: END IF;
990: --
991: IF p_x_space_rec.attribute_category = FND_API.G_MISS_CHAR
992: THEN
993: l_space_rec.attribute_category := NULL;
994: ELSE
995: l_space_rec.attribute_category := p_x_space_rec.attribute_category;
994: ELSE
995: l_space_rec.attribute_category := p_x_space_rec.attribute_category;
996: END IF;
997: --
998: IF p_x_space_rec.attribute1 = FND_API.G_MISS_CHAR
999: THEN
1000: l_space_rec.attribute1 := NULL;
1001: ELSE
1002: l_space_rec.attribute1 := p_x_space_rec.attribute1;
1001: ELSE
1002: l_space_rec.attribute1 := p_x_space_rec.attribute1;
1003: END IF;
1004: --
1005: IF p_x_space_rec.attribute2 = FND_API.G_MISS_CHAR
1006: THEN
1007: l_space_rec.attribute2 := NULL;
1008: ELSE
1009: l_space_rec.attribute2 := p_x_space_rec.attribute2;
1008: ELSE
1009: l_space_rec.attribute2 := p_x_space_rec.attribute2;
1010: END IF;
1011: --
1012: IF p_x_space_rec.attribute3 = FND_API.G_MISS_CHAR
1013: THEN
1014: l_space_rec.attribute3 := NULL;
1015: ELSE
1016: l_space_rec.attribute3 := p_x_space_rec.attribute3;
1015: ELSE
1016: l_space_rec.attribute3 := p_x_space_rec.attribute3;
1017: END IF;
1018: --
1019: IF p_x_space_rec.attribute4 = FND_API.G_MISS_CHAR
1020: THEN
1021: l_space_rec.attribute4 := NULL;
1022: ELSE
1023: l_space_rec.attribute4 := p_x_space_rec.attribute4;
1022: ELSE
1023: l_space_rec.attribute4 := p_x_space_rec.attribute4;
1024: END IF;
1025: --
1026: IF p_x_space_rec.attribute5 = FND_API.G_MISS_CHAR
1027: THEN
1028: l_space_rec.attribute5 := NULL;
1029: ELSE
1030: l_space_rec.attribute5 := p_x_space_rec.attribute5;
1029: ELSE
1030: l_space_rec.attribute5 := p_x_space_rec.attribute5;
1031: END IF;
1032: --
1033: IF p_x_space_rec.attribute6 = FND_API.G_MISS_CHAR
1034: THEN
1035: l_space_rec.attribute6 := NULL;
1036: ELSE
1037: l_space_rec.attribute6 := p_x_space_rec.attribute6;
1036: ELSE
1037: l_space_rec.attribute6 := p_x_space_rec.attribute6;
1038: END IF;
1039: --
1040: IF p_x_space_rec.attribute7 = FND_API.G_MISS_CHAR
1041: THEN
1042: l_space_rec.attribute7 := NULL;
1043: ELSE
1044: l_space_rec.attribute7 := p_x_space_rec.attribute7;
1043: ELSE
1044: l_space_rec.attribute7 := p_x_space_rec.attribute7;
1045: END IF;
1046: --
1047: IF p_x_space_rec.attribute8 = FND_API.G_MISS_CHAR
1048: THEN
1049: l_space_rec.attribute8 := NULL;
1050: ELSE
1051: l_space_rec.attribute8 := p_x_space_rec.attribute8;
1050: ELSE
1051: l_space_rec.attribute8 := p_x_space_rec.attribute8;
1052: END IF;
1053: --
1054: IF p_x_space_rec.attribute9 = FND_API.G_MISS_CHAR
1055: THEN
1056: l_space_rec.attribute9 := NULL;
1057: ELSE
1058: l_space_rec.attribute9 := p_x_space_rec.attribute9;
1057: ELSE
1058: l_space_rec.attribute9 := p_x_space_rec.attribute9;
1059: END IF;
1060: --
1061: IF p_x_space_rec.attribute10 = FND_API.G_MISS_CHAR
1062: THEN
1063: l_space_rec.attribute10 := NULL;
1064: ELSE
1065: l_space_rec.attribute10 := p_x_space_rec.attribute10;
1064: ELSE
1065: l_space_rec.attribute10 := p_x_space_rec.attribute10;
1066: END IF;
1067: --
1068: IF p_x_space_rec.attribute11 = FND_API.G_MISS_CHAR
1069: THEN
1070: l_space_rec.attribute11 := NULL;
1071: ELSE
1072: l_space_rec.attribute11 := p_x_space_rec.attribute11;
1071: ELSE
1072: l_space_rec.attribute11 := p_x_space_rec.attribute11;
1073: END IF;
1074: --
1075: IF p_x_space_rec.attribute12 = FND_API.G_MISS_CHAR
1076: THEN
1077: l_space_rec.attribute12 := NULL;
1078: ELSE
1079: l_space_rec.attribute12 := p_x_space_rec.attribute12;
1078: ELSE
1079: l_space_rec.attribute12 := p_x_space_rec.attribute12;
1080: END IF;
1081: --
1082: IF p_x_space_rec.attribute13 = FND_API.G_MISS_CHAR
1083: THEN
1084: l_space_rec.attribute13 := NULL;
1085: ELSE
1086: l_space_rec.attribute13 := p_x_space_rec.attribute13;
1085: ELSE
1086: l_space_rec.attribute13 := p_x_space_rec.attribute13;
1087: END IF;
1088: --
1089: IF p_x_space_rec.attribute14 = FND_API.G_MISS_CHAR
1090: THEN
1091: l_space_rec.attribute14 := NULL;
1092: ELSE
1093: l_space_rec.attribute14 := p_x_space_rec.attribute14;
1092: ELSE
1093: l_space_rec.attribute14 := p_x_space_rec.attribute14;
1094: END IF;
1095: --
1096: IF p_x_space_rec.attribute15 = FND_API.G_MISS_CHAR
1097: THEN
1098: l_space_rec.attribute15 := NULL;
1099: ELSE
1100: l_space_rec.attribute15 := p_x_space_rec.attribute15;
1105: l_msg_count := Fnd_Msg_Pub.count_msg;
1106:
1107: IF l_msg_count > 0 THEN
1108: X_msg_count := l_msg_count;
1109: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1110: RAISE Fnd_Api.G_EXC_ERROR;
1111: END IF;
1112:
1113: ----------------------------DML Operation---------------------------------
1106:
1107: IF l_msg_count > 0 THEN
1108: X_msg_count := l_msg_count;
1109: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1110: RAISE Fnd_Api.G_EXC_ERROR;
1111: END IF;
1112:
1113: ----------------------------DML Operation---------------------------------
1114: --Call table handler generated package to insert a record
1149: l_msg_count := Fnd_Msg_Pub.count_msg;
1150:
1151: IF l_msg_count > 0 THEN
1152: X_msg_count := l_msg_count;
1153: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1154: RAISE Fnd_Api.G_EXC_ERROR;
1155: END IF;
1156:
1157: --Standard check for commit
1150:
1151: IF l_msg_count > 0 THEN
1152: X_msg_count := l_msg_count;
1153: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1154: RAISE Fnd_Api.G_EXC_ERROR;
1155: END IF;
1156:
1157: --Standard check for commit
1158: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1154: RAISE Fnd_Api.G_EXC_ERROR;
1155: END IF;
1156:
1157: --Standard check for commit
1158: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1159: COMMIT;
1160: END IF;
1161: -- Debug info
1162: IF G_DEBUG='Y' THEN
1164: -- Check if API is called in debug mode. If yes, disable debug.
1165: Ahl_Debug_Pub.disable_debug;
1166: END IF;
1167: EXCEPTION
1168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1169: ROLLBACK TO create_space;
1170: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1171: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1172: p_count => x_msg_count,
1166: END IF;
1167: EXCEPTION
1168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1169: ROLLBACK TO create_space;
1170: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1171: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1172: p_count => x_msg_count,
1173: p_data => x_msg_data);
1174: IF G_DEBUG='Y' THEN
1167: EXCEPTION
1168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1169: ROLLBACK TO create_space;
1170: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1171: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1172: p_count => x_msg_count,
1173: p_data => x_msg_data);
1174: IF G_DEBUG='Y' THEN
1175: AHL_DEBUG_PUB.log_app_messages (
1177: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Create Space ','+SPCBL+');
1178: -- Check if API is called in debug mode. If yes, disable debug.
1179: AHL_DEBUG_PUB.disable_debug;
1180: END IF;
1181: WHEN FND_API.G_EXC_ERROR THEN
1182: ROLLBACK TO create_space;
1183: X_return_status := FND_API.G_RET_STS_ERROR;
1184: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1185: p_count => x_msg_count,
1179: AHL_DEBUG_PUB.disable_debug;
1180: END IF;
1181: WHEN FND_API.G_EXC_ERROR THEN
1182: ROLLBACK TO create_space;
1183: X_return_status := FND_API.G_RET_STS_ERROR;
1184: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1185: p_count => x_msg_count,
1186: p_data => X_msg_data);
1187: IF G_DEBUG='Y' THEN
1180: END IF;
1181: WHEN FND_API.G_EXC_ERROR THEN
1182: ROLLBACK TO create_space;
1183: X_return_status := FND_API.G_RET_STS_ERROR;
1184: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1185: p_count => x_msg_count,
1186: p_data => X_msg_data);
1187: IF G_DEBUG='Y' THEN
1188: -- Debug info.
1193: AHL_DEBUG_PUB.disable_debug;
1194: END IF;
1195: WHEN OTHERS THEN
1196: ROLLBACK TO create_space;
1197: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1198: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1199: THEN
1200: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_CAPB_PVT',
1201: p_procedure_name => 'CREATE_SPACE',
1200: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_CAPB_PVT',
1201: p_procedure_name => 'CREATE_SPACE',
1202: p_error_text => SUBSTR(SQLERRM,1,240));
1203: END IF;
1204: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1205: p_count => x_msg_count,
1206: p_data => X_msg_data);
1207: IF G_DEBUG='Y' THEN
1208: -- Debug info.
1228: -- NOTES
1229: --------------------------------------------------------------------
1230: PROCEDURE Update_Space (
1231: p_api_version IN NUMBER,
1232: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1233: p_commit IN VARCHAR2 := FND_API.g_false,
1234: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1235: p_module_type IN VARCHAR2 := 'JSP',
1236: p_space_rec IN ahl_ltp_space_capb_pub.Space_Rec,
1229: --------------------------------------------------------------------
1230: PROCEDURE Update_Space (
1231: p_api_version IN NUMBER,
1232: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1233: p_commit IN VARCHAR2 := FND_API.g_false,
1234: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1235: p_module_type IN VARCHAR2 := 'JSP',
1236: p_space_rec IN ahl_ltp_space_capb_pub.Space_Rec,
1237: x_return_status OUT NOCOPY VARCHAR2,
1230: PROCEDURE Update_Space (
1231: p_api_version IN NUMBER,
1232: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1233: p_commit IN VARCHAR2 := FND_API.g_false,
1234: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1235: p_module_type IN VARCHAR2 := 'JSP',
1236: p_space_rec IN ahl_ltp_space_capb_pub.Space_Rec,
1237: x_return_status OUT NOCOPY VARCHAR2,
1238: x_msg_count OUT NOCOPY NUMBER,
1276: IF G_DEBUG='Y' THEN
1277: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_space_capb_pvt.Update Space ','+SPCBL+');
1278: END IF;
1279: -- Standard call to check for call compatibility.
1280: IF FND_API.to_boolean(p_init_msg_list)
1281: THEN
1282: FND_MSG_PUB.initialize;
1283: END IF;
1284: -- Initialize API return status to success
1281: THEN
1282: FND_MSG_PUB.initialize;
1283: END IF;
1284: -- Initialize API return status to success
1285: x_return_status := FND_API.G_RET_STS_SUCCESS;
1286: -- Initialize message list if p_init_msg_list is set to TRUE.
1287: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1288: p_api_version,
1289: l_api_name,G_PKG_NAME)
1283: END IF;
1284: -- Initialize API return status to success
1285: x_return_status := FND_API.G_RET_STS_SUCCESS;
1286: -- Initialize message list if p_init_msg_list is set to TRUE.
1287: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1288: p_api_version,
1289: l_api_name,G_PKG_NAME)
1290: THEN
1291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1287: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1288: p_api_version,
1289: l_api_name,G_PKG_NAME)
1290: THEN
1291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1292: END IF;
1293:
1294: --------------------Value OR ID conversion---------------------------
1295: IF G_DEBUG='Y' THEN
1308: END IF;
1309:
1310: -- Convert Space name to space id
1311: IF (l_space_rec.space_name IS NOT NULL AND
1312: l_space_rec.space_name <> FND_API.G_MISS_CHAR ) OR
1313: (l_space_rec.space_id IS NOT NULL AND
1314: l_space_rec.space_id <> FND_API.G_MISS_NUM) THEN
1315:
1316: Check_space_name_Or_Id
1310: -- Convert Space name to space id
1311: IF (l_space_rec.space_name IS NOT NULL AND
1312: l_space_rec.space_name <> FND_API.G_MISS_CHAR ) OR
1313: (l_space_rec.space_id IS NOT NULL AND
1314: l_space_rec.space_id <> FND_API.G_MISS_NUM) THEN
1315:
1316: Check_space_name_Or_Id
1317: (p_space_id => l_space_rec.space_id,
1318: p_space_name => l_space_rec.space_name,
1328: END IF;
1329: ELSE
1330: Fnd_Message.SET_NAME('AHL','AHL_LTP_SPACE_ID_NOT_EXIST');
1331: Fnd_Msg_Pub.ADD;
1332: RAISE Fnd_Api.G_EXC_ERROR;
1333: END IF;
1334:
1335: --Assign the returned value
1336: l_space_rec.space_id := l_space_id;
1336: l_space_rec.space_id := l_space_id;
1337:
1338: --Check for space name
1339: IF (l_space_rec.space_name IS NULL OR
1340: l_space_rec.space_name = fnd_api.g_miss_char)
1341: THEN
1342: Fnd_Message.set_name('AHL', 'AHL_LTP_SPACE_NAME_NOT_EXIST');
1343: Fnd_Msg_Pub.ADD;
1344: RAISE Fnd_Api.G_EXC_ERROR;
1340: l_space_rec.space_name = fnd_api.g_miss_char)
1341: THEN
1342: Fnd_Message.set_name('AHL', 'AHL_LTP_SPACE_NAME_NOT_EXIST');
1343: Fnd_Msg_Pub.ADD;
1344: RAISE Fnd_Api.G_EXC_ERROR;
1345: END IF;
1346:
1347: --For Space Category
1348: IF l_space_rec.space_category_mean IS NOT NULL AND
1345: END IF;
1346:
1347: --For Space Category
1348: IF l_space_rec.space_category_mean IS NOT NULL AND
1349: l_space_rec.space_category_mean <> Fnd_Api.G_MISS_CHAR
1350: THEN
1351: Check_lookup_name_Or_Id (
1352: p_lookup_type => 'AHL_SPACE_CATEGORY',
1353: p_lookup_code => NULL,
1363: END IF;
1364: END IF;
1365: -- Id presents
1366: IF l_space_rec.space_category_code IS NOT NULL AND
1367: l_space_rec.space_category_code <> Fnd_Api.G_MISS_CHAR
1368: THEN
1369: l_space_rec.space_category_code := l_space_rec.space_category_code;
1370: END IF;
1371:
1370: END IF;
1371:
1372: --For Inactive Flag
1373: IF p_space_rec.inactive_flag_mean IS NOT NULL AND
1374: p_space_rec.inactive_flag_mean <> Fnd_Api.G_MISS_CHAR
1375: THEN
1376: Check_lookup_name_Or_Id (
1377: p_lookup_type => 'AHL_SPACE_STATUS',
1378: p_lookup_code => NULL,
1388: END IF;
1389: END IF;
1390: -- Id presents
1391: IF p_space_rec.inactive_flag_code IS NOT NULL AND
1392: p_space_rec.inactive_flag_code <> Fnd_Api.G_MISS_CHAR
1393: THEN
1394: l_space_rec.inactive_flag_code := p_space_rec.inactive_flag_code;
1395: END IF;
1396:
1414: l_msg_count := Fnd_Msg_Pub.count_msg;
1415:
1416: IF l_msg_count > 0 THEN
1417: X_msg_count := l_msg_count;
1418: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1419: RAISE Fnd_Api.G_EXC_ERROR;
1420: END IF;
1421: --
1422: IF G_DEBUG='Y' THEN
1415:
1416: IF l_msg_count > 0 THEN
1417: X_msg_count := l_msg_count;
1418: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1419: RAISE Fnd_Api.G_EXC_ERROR;
1420: END IF;
1421: --
1422: IF G_DEBUG='Y' THEN
1423: Ahl_Debug_Pub.debug( 'before update space id'||p_space_rec.space_id);
1459: l_msg_count := Fnd_Msg_Pub.count_msg;
1460:
1461: IF l_msg_count > 0 THEN
1462: X_msg_count := l_msg_count;
1463: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1464: RAISE Fnd_Api.G_EXC_ERROR;
1465: END IF;
1466:
1467: --Standard check for commit
1460:
1461: IF l_msg_count > 0 THEN
1462: X_msg_count := l_msg_count;
1463: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1464: RAISE Fnd_Api.G_EXC_ERROR;
1465: END IF;
1466:
1467: --Standard check for commit
1468: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1464: RAISE Fnd_Api.G_EXC_ERROR;
1465: END IF;
1466:
1467: --Standard check for commit
1468: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1469: COMMIT;
1470: END IF;
1471: -- Debug info
1472: IF G_DEBUG='Y' THEN
1474: -- Check if API is called in debug mode. If yes, disable debug.
1475: Ahl_Debug_Pub.disable_debug;
1476: END IF;
1477: EXCEPTION
1478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1479: ROLLBACK TO update_space;
1480: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1481: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1482: p_count => x_msg_count,
1476: END IF;
1477: EXCEPTION
1478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1479: ROLLBACK TO update_space;
1480: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1481: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1482: p_count => x_msg_count,
1483: p_data => x_msg_data);
1484: IF G_DEBUG='Y' THEN
1477: EXCEPTION
1478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1479: ROLLBACK TO update_space;
1480: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1481: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1482: p_count => x_msg_count,
1483: p_data => x_msg_data);
1484: IF G_DEBUG='Y' THEN
1485: AHL_DEBUG_PUB.log_app_messages (
1487: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Update Space ','+SPCBL+');
1488: -- Check if API is called in debug mode. If yes, disable debug.
1489: AHL_DEBUG_PUB.disable_debug;
1490: END IF;
1491: WHEN FND_API.G_EXC_ERROR THEN
1492: ROLLBACK TO update_space;
1493: X_return_status := FND_API.G_RET_STS_ERROR;
1494: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1495: p_count => x_msg_count,
1489: AHL_DEBUG_PUB.disable_debug;
1490: END IF;
1491: WHEN FND_API.G_EXC_ERROR THEN
1492: ROLLBACK TO update_space;
1493: X_return_status := FND_API.G_RET_STS_ERROR;
1494: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1495: p_count => x_msg_count,
1496: p_data => X_msg_data);
1497: -- Debug info.
1490: END IF;
1491: WHEN FND_API.G_EXC_ERROR THEN
1492: ROLLBACK TO update_space;
1493: X_return_status := FND_API.G_RET_STS_ERROR;
1494: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1495: p_count => x_msg_count,
1496: p_data => X_msg_data);
1497: -- Debug info.
1498: IF G_DEBUG='Y' THEN
1503: AHL_DEBUG_PUB.disable_debug;
1504: END IF;
1505: WHEN OTHERS THEN
1506: ROLLBACK TO update_space;
1507: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1508: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1509: THEN
1510: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_CAPB_PVT',
1511: p_procedure_name => 'UPDATE_SPACE',
1510: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_CAPB_PVT',
1511: p_procedure_name => 'UPDATE_SPACE',
1512: p_error_text => SUBSTR(SQLERRM,1,240));
1513: END IF;
1514: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1515: p_count => x_msg_count,
1516: p_data => X_msg_data);
1517:
1518: -- Debug info.
1540: -- 1. Raise exception if the object_version_number doesn't match.
1541: --------------------------------------------------------------------
1542: PROCEDURE Delete_Space (
1543: p_api_version IN NUMBER,
1544: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1545: p_commit IN VARCHAR2 := FND_API.g_false,
1546: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1547: p_space_rec IN ahl_ltp_space_capb_pub.Space_Rec,
1548: x_return_status OUT NOCOPY VARCHAR2,
1541: --------------------------------------------------------------------
1542: PROCEDURE Delete_Space (
1543: p_api_version IN NUMBER,
1544: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1545: p_commit IN VARCHAR2 := FND_API.g_false,
1546: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1547: p_space_rec IN ahl_ltp_space_capb_pub.Space_Rec,
1548: x_return_status OUT NOCOPY VARCHAR2,
1549: x_msg_count OUT NOCOPY NUMBER,
1542: PROCEDURE Delete_Space (
1543: p_api_version IN NUMBER,
1544: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1545: p_commit IN VARCHAR2 := FND_API.g_false,
1546: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1547: p_space_rec IN ahl_ltp_space_capb_pub.Space_Rec,
1548: x_return_status OUT NOCOPY VARCHAR2,
1549: x_msg_count OUT NOCOPY NUMBER,
1550: x_msg_data OUT NOCOPY VARCHAR2
1595: IF G_DEBUG='Y' THEN
1596: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_space_capb_pvt.Delete Space','+SPCBL+');
1597: END IF;
1598: -- Standard call to check for call compatibility.
1599: IF FND_API.to_boolean(p_init_msg_list)
1600: THEN
1601: FND_MSG_PUB.initialize;
1602: END IF;
1603: -- Initialize API return status to success
1600: THEN
1601: FND_MSG_PUB.initialize;
1602: END IF;
1603: -- Initialize API return status to success
1604: x_return_status := FND_API.G_RET_STS_SUCCESS;
1605: -- Initialize message list if p_init_msg_list is set to TRUE.
1606: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1607: p_api_version,
1608: l_api_name,G_PKG_NAME)
1602: END IF;
1603: -- Initialize API return status to success
1604: x_return_status := FND_API.G_RET_STS_SUCCESS;
1605: -- Initialize message list if p_init_msg_list is set to TRUE.
1606: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1607: p_api_version,
1608: l_api_name,G_PKG_NAME)
1609: THEN
1610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1606: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1607: p_api_version,
1608: l_api_name,G_PKG_NAME)
1609: THEN
1610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1611: END IF;
1612: -----------------------Start of API Body-----------------------------
1613: -- Check for Record exists
1614: OPEN c_space_cur(p_space_rec.space_id);
1619: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_NOT_FOUND');
1620: FND_MSG_PUB.add;
1621: END IF;
1622: CLOSE c_space_cur;
1623: RAISE FND_API.g_exc_error;
1624: END IF;
1625: CLOSE c_space_cur;
1626: --Check for object version number
1627: IF l_object_version_number <> p_space_rec.object_version_number
1627: IF l_object_version_number <> p_space_rec.object_version_number
1628: THEN
1629: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1630: FND_MSG_PUB.add;
1631: RAISE FND_API.g_exc_error;
1632: END IF;
1633: --Ckeck for any visits assigned
1634: OPEN c_space_visit_cur(l_space_id);
1635: LOOP
1643: --
1644: IF l_visit_status_code <> 'CLOSED' THEN
1645: FND_MESSAGE.set_name('AHL', 'AHL_LTP_SP_VISITS_ASSIGNED');
1646: FND_MSG_PUB.add;
1647: RAISE Fnd_Api.G_EXC_ERROR;
1648: ELSE
1649: UPDATE AHL_SPACES_B
1650: SET INACTIVE_FLAG = 'N'
1651: WHERE space_id = l_space_id;
1658: l_msg_count := Fnd_Msg_Pub.count_msg;
1659:
1660: IF l_msg_count > 0 THEN
1661: X_msg_count := l_msg_count;
1662: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1663: RAISE Fnd_Api.G_EXC_ERROR;
1664: END IF;
1665:
1666: -------------------Call Table handler generated procedure------------
1659:
1660: IF l_msg_count > 0 THEN
1661: X_msg_count := l_msg_count;
1662: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1663: RAISE Fnd_Api.G_EXC_ERROR;
1664: END IF;
1665:
1666: -------------------Call Table handler generated procedure------------
1667: IF l_visit_id IS NULL THEN
1678: l_msg_count := Fnd_Msg_Pub.count_msg;
1679:
1680: IF l_msg_count > 0 THEN
1681: X_msg_count := l_msg_count;
1682: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1683: RAISE Fnd_Api.G_EXC_ERROR;
1684: END IF;
1685:
1686: --Standard check for commit
1679:
1680: IF l_msg_count > 0 THEN
1681: X_msg_count := l_msg_count;
1682: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1683: RAISE Fnd_Api.G_EXC_ERROR;
1684: END IF;
1685:
1686: --Standard check for commit
1687: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1683: RAISE Fnd_Api.G_EXC_ERROR;
1684: END IF;
1685:
1686: --Standard check for commit
1687: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1688: COMMIT;
1689: END IF;
1690: -- Debug info
1691: IF G_DEBUG='Y' THEN
1694: Ahl_Debug_Pub.disable_debug;
1695: END IF;
1696: --
1697: EXCEPTION
1698: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1699: ROLLBACK TO delete_space;
1700: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1701: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1702: p_count => x_msg_count,
1696: --
1697: EXCEPTION
1698: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1699: ROLLBACK TO delete_space;
1700: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1701: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1702: p_count => x_msg_count,
1703: p_data => x_msg_data);
1704: IF G_DEBUG='Y' THEN
1697: EXCEPTION
1698: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1699: ROLLBACK TO delete_space;
1700: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1701: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1702: p_count => x_msg_count,
1703: p_data => x_msg_data);
1704: IF G_DEBUG='Y' THEN
1705: AHL_DEBUG_PUB.log_app_messages (
1707: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Delete Space ','+SPCBL+');
1708: -- Check if API is called in debug mode. If yes, disable debug.
1709: AHL_DEBUG_PUB.disable_debug;
1710: END IF;
1711: WHEN FND_API.G_EXC_ERROR THEN
1712: ROLLBACK TO delete_space;
1713: X_return_status := FND_API.G_RET_STS_ERROR;
1714: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1715: p_count => x_msg_count,
1709: AHL_DEBUG_PUB.disable_debug;
1710: END IF;
1711: WHEN FND_API.G_EXC_ERROR THEN
1712: ROLLBACK TO delete_space;
1713: X_return_status := FND_API.G_RET_STS_ERROR;
1714: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1715: p_count => x_msg_count,
1716: p_data => X_msg_data);
1717: -- Debug info.
1710: END IF;
1711: WHEN FND_API.G_EXC_ERROR THEN
1712: ROLLBACK TO delete_space;
1713: X_return_status := FND_API.G_RET_STS_ERROR;
1714: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1715: p_count => x_msg_count,
1716: p_data => X_msg_data);
1717: -- Debug info.
1718: IF G_DEBUG='Y' THEN
1723: AHL_DEBUG_PUB.disable_debug;
1724: END IF;
1725: WHEN OTHERS THEN
1726: ROLLBACK TO delete_space;
1727: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1728: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1729: THEN
1730: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_CAPB_PVT',
1731: p_procedure_name => 'DELETE_SPACE',
1730: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_CAPB_PVT',
1731: p_procedure_name => 'DELETE_SPACE',
1732: p_error_text => SUBSTR(SQLERRM,1,240));
1733: END IF;
1734: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1735: p_count => x_msg_count,
1736: p_data => X_msg_data);
1737:
1738: -- Debug info.
1781: INTO x_inventory_item_id
1782: FROM MTL_SYSTEM_ITEMS_B_KFV
1783: WHERE concatenated_segments = p_item_description;
1784: END IF;
1785: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1786: IF G_DEBUG='Y' THEN
1787: AHL_DEBUG_PUB.debug( 'inside conevrt orgid'||p_organization_id);
1788: AHL_DEBUG_PUB.debug( 'iten id inside convert'||x_inventory_item_id);
1789: END IF;
1788: AHL_DEBUG_PUB.debug( 'iten id inside convert'||x_inventory_item_id);
1789: END IF;
1790: EXCEPTION
1791: WHEN NO_DATA_FOUND THEN
1792: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
1793: x_error_msg_code:= 'AHL_LTP_ITEM_NOT_EXISTS';
1794: WHEN TOO_MANY_ROWS THEN
1795: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
1796: x_error_msg_code:= 'AHL_LTP_ITEM_NOT_EXISTS';
1791: WHEN NO_DATA_FOUND THEN
1792: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
1793: x_error_msg_code:= 'AHL_LTP_ITEM_NOT_EXISTS';
1794: WHEN TOO_MANY_ROWS THEN
1795: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
1796: x_error_msg_code:= 'AHL_LTP_ITEM_NOT_EXISTS';
1797: WHEN OTHERS THEN
1798: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
1799: RAISE;
1794: WHEN TOO_MANY_ROWS THEN
1795: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
1796: x_error_msg_code:= 'AHL_LTP_ITEM_NOT_EXISTS';
1797: WHEN OTHERS THEN
1798: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
1799: RAISE;
1800: END Check_inventory_desc_Or_Id;
1801:
1802: ---------------------------------------------------------------------
1886: IF c_space_capbl_rec%NOTFOUND THEN
1887: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1888: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_NOT_FOUND');
1889: FND_MSG_PUB.add;
1890: RAISE Fnd_Api.G_EXC_ERROR;
1891: END IF;
1892: END IF;
1893: CLOSE c_space_capbl_rec;
1894:
1906: IF (l_space_capbl_rec.object_version_number <> p_space_capbl_rec.object_version_number)
1907: THEN
1908: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1909: Fnd_Msg_Pub.ADD;
1910: RAISE Fnd_Api.G_EXC_ERROR;
1911: END IF;
1912: -- SPACE ID
1913: IF p_space_capbl_rec.space_id <> FND_API.g_miss_num THEN
1914: x_space_capbl_rec.space_id := p_space_capbl_rec.space_id;
1909: Fnd_Msg_Pub.ADD;
1910: RAISE Fnd_Api.G_EXC_ERROR;
1911: END IF;
1912: -- SPACE ID
1913: IF p_space_capbl_rec.space_id <> FND_API.g_miss_num THEN
1914: x_space_capbl_rec.space_id := p_space_capbl_rec.space_id;
1915: ELSE
1916: x_space_capbl_rec.space_id := l_space_capbl_rec.space_id;
1917: END IF;
1915: ELSE
1916: x_space_capbl_rec.space_id := l_space_capbl_rec.space_id;
1917: END IF;
1918: -- ORGANIZATION_ID
1919: IF p_space_capbl_rec.organization_id <> FND_API.g_miss_num THEN
1920: x_space_capbl_rec.organization_id := p_space_capbl_rec.organization_id;
1921: ELSE
1922: x_space_capbl_rec.organization_id := l_space_capbl_rec.organization_id;
1923: END IF;
1921: ELSE
1922: x_space_capbl_rec.organization_id := l_space_capbl_rec.organization_id;
1923: END IF;
1924: -- VISIT TYPE
1925: IF p_space_capbl_rec.visit_type_code <> FND_API.g_miss_char THEN
1926: x_space_capbl_rec.visit_type_code := p_space_capbl_rec.visit_type_code;
1927: ELSE
1928: x_space_capbl_rec.visit_type_code := l_space_capbl_rec.visit_type;
1929: END IF;
1927: ELSE
1928: x_space_capbl_rec.visit_type_code := l_space_capbl_rec.visit_type;
1929: END IF;
1930: -- INVENTORY ITEM
1931: IF p_space_capbl_rec.inventory_item_id <> FND_API.g_miss_num THEN
1932: x_space_capbl_rec.inventory_item_id := p_space_capbl_rec.inventory_item_id;
1933: ELSE
1934: x_space_capbl_rec.inventory_item_id := l_space_capbl_rec.inventory_item_id;
1935: END IF;
1933: ELSE
1934: x_space_capbl_rec.inventory_item_id := l_space_capbl_rec.inventory_item_id;
1935: END IF;
1936: -- ATTRIBUTE CATEGORY
1937: IF p_space_capbl_rec.attribute_category = FND_API.g_miss_char THEN
1938: x_space_capbl_rec.attribute_category := l_space_capbl_rec.attribute_category;
1939: END IF;
1940: -- ATTRIBUTE 1
1941: IF p_space_capbl_rec.attribute1 = FND_API.g_miss_char THEN
1937: IF p_space_capbl_rec.attribute_category = FND_API.g_miss_char THEN
1938: x_space_capbl_rec.attribute_category := l_space_capbl_rec.attribute_category;
1939: END IF;
1940: -- ATTRIBUTE 1
1941: IF p_space_capbl_rec.attribute1 = FND_API.g_miss_char THEN
1942: x_space_capbl_rec.attribute1 := l_space_capbl_rec.attribute1;
1943: END IF;
1944: -- ATTRIBUTE 2
1945: IF p_space_capbl_rec.attribute2 = FND_API.g_miss_char THEN
1941: IF p_space_capbl_rec.attribute1 = FND_API.g_miss_char THEN
1942: x_space_capbl_rec.attribute1 := l_space_capbl_rec.attribute1;
1943: END IF;
1944: -- ATTRIBUTE 2
1945: IF p_space_capbl_rec.attribute2 = FND_API.g_miss_char THEN
1946: x_space_capbl_rec.attribute2 := l_space_capbl_rec.attribute2;
1947: END IF;
1948: -- ATTRIBUTE 3
1949: IF p_space_capbl_rec.attribute3 = FND_API.g_miss_char THEN
1945: IF p_space_capbl_rec.attribute2 = FND_API.g_miss_char THEN
1946: x_space_capbl_rec.attribute2 := l_space_capbl_rec.attribute2;
1947: END IF;
1948: -- ATTRIBUTE 3
1949: IF p_space_capbl_rec.attribute3 = FND_API.g_miss_char THEN
1950: x_space_capbl_rec.attribute3 := l_space_capbl_rec.attribute3;
1951: END IF;
1952: -- ATTRIBUTE 4
1953: IF p_space_capbl_rec.attribute4 = FND_API.g_miss_char THEN
1949: IF p_space_capbl_rec.attribute3 = FND_API.g_miss_char THEN
1950: x_space_capbl_rec.attribute3 := l_space_capbl_rec.attribute3;
1951: END IF;
1952: -- ATTRIBUTE 4
1953: IF p_space_capbl_rec.attribute4 = FND_API.g_miss_char THEN
1954: x_space_capbl_rec.attribute4 := l_space_capbl_rec.attribute4;
1955: END IF;
1956: -- ATTRIBUTE 5
1957: IF p_space_capbl_rec.attribute5 = FND_API.g_miss_char THEN
1953: IF p_space_capbl_rec.attribute4 = FND_API.g_miss_char THEN
1954: x_space_capbl_rec.attribute4 := l_space_capbl_rec.attribute4;
1955: END IF;
1956: -- ATTRIBUTE 5
1957: IF p_space_capbl_rec.attribute5 = FND_API.g_miss_char THEN
1958: x_space_capbl_rec.attribute5 := l_space_capbl_rec.attribute5;
1959: END IF;
1960: -- ATTRIBUTE 6
1961: IF p_space_capbl_rec.attribute6 = FND_API.g_miss_char THEN
1957: IF p_space_capbl_rec.attribute5 = FND_API.g_miss_char THEN
1958: x_space_capbl_rec.attribute5 := l_space_capbl_rec.attribute5;
1959: END IF;
1960: -- ATTRIBUTE 6
1961: IF p_space_capbl_rec.attribute6 = FND_API.g_miss_char THEN
1962: x_space_capbl_rec.attribute6 := l_space_capbl_rec.attribute6;
1963: END IF;
1964: -- ATTRIBUTE 7
1965: IF p_space_capbl_rec.attribute7 = FND_API.g_miss_char THEN
1961: IF p_space_capbl_rec.attribute6 = FND_API.g_miss_char THEN
1962: x_space_capbl_rec.attribute6 := l_space_capbl_rec.attribute6;
1963: END IF;
1964: -- ATTRIBUTE 7
1965: IF p_space_capbl_rec.attribute7 = FND_API.g_miss_char THEN
1966: x_space_capbl_rec.attribute7 := l_space_capbl_rec.attribute7;
1967: END IF;
1968: -- ATTRIBUTE 8
1969: IF p_space_capbl_rec.attribute8 = FND_API.g_miss_char THEN
1965: IF p_space_capbl_rec.attribute7 = FND_API.g_miss_char THEN
1966: x_space_capbl_rec.attribute7 := l_space_capbl_rec.attribute7;
1967: END IF;
1968: -- ATTRIBUTE 8
1969: IF p_space_capbl_rec.attribute8 = FND_API.g_miss_char THEN
1970: x_space_capbl_rec.attribute8 := l_space_capbl_rec.attribute8;
1971: END IF;
1972: -- ATTRIBUTE 9
1973: IF p_space_capbl_rec.attribute9 = FND_API.g_miss_char THEN
1969: IF p_space_capbl_rec.attribute8 = FND_API.g_miss_char THEN
1970: x_space_capbl_rec.attribute8 := l_space_capbl_rec.attribute8;
1971: END IF;
1972: -- ATTRIBUTE 9
1973: IF p_space_capbl_rec.attribute9 = FND_API.g_miss_char THEN
1974: x_space_capbl_rec.attribute9 := l_space_capbl_rec.attribute9;
1975: END IF;
1976: -- ATTRIBUTE 10
1977: IF p_space_capbl_rec.attribute10 = FND_API.g_miss_char THEN
1973: IF p_space_capbl_rec.attribute9 = FND_API.g_miss_char THEN
1974: x_space_capbl_rec.attribute9 := l_space_capbl_rec.attribute9;
1975: END IF;
1976: -- ATTRIBUTE 10
1977: IF p_space_capbl_rec.attribute10 = FND_API.g_miss_char THEN
1978: x_space_capbl_rec.attribute10 := l_space_capbl_rec.attribute10;
1979: END IF;
1980: -- ATTRIBUTE 11
1981: IF p_space_capbl_rec.attribute11 = FND_API.g_miss_char THEN
1977: IF p_space_capbl_rec.attribute10 = FND_API.g_miss_char THEN
1978: x_space_capbl_rec.attribute10 := l_space_capbl_rec.attribute10;
1979: END IF;
1980: -- ATTRIBUTE 11
1981: IF p_space_capbl_rec.attribute11 = FND_API.g_miss_char THEN
1982: x_space_capbl_rec.attribute11 := l_space_capbl_rec.attribute11;
1983: END IF;
1984: -- ATTRIBUTE 12
1985: IF p_space_capbl_rec.attribute12 = FND_API.g_miss_char THEN
1981: IF p_space_capbl_rec.attribute11 = FND_API.g_miss_char THEN
1982: x_space_capbl_rec.attribute11 := l_space_capbl_rec.attribute11;
1983: END IF;
1984: -- ATTRIBUTE 12
1985: IF p_space_capbl_rec.attribute12 = FND_API.g_miss_char THEN
1986: x_space_capbl_rec.attribute12 := l_space_capbl_rec.attribute12;
1987: END IF;
1988: -- ATTRIBUTE 13
1989: IF p_space_capbl_rec.attribute13 = FND_API.g_miss_char THEN
1985: IF p_space_capbl_rec.attribute12 = FND_API.g_miss_char THEN
1986: x_space_capbl_rec.attribute12 := l_space_capbl_rec.attribute12;
1987: END IF;
1988: -- ATTRIBUTE 13
1989: IF p_space_capbl_rec.attribute13 = FND_API.g_miss_char THEN
1990: x_space_capbl_rec.attribute13 := l_space_capbl_rec.attribute13;
1991: END IF;
1992: -- ATTRIBUTE 14
1993: IF p_space_capbl_rec.attribute14 = FND_API.g_miss_char THEN
1989: IF p_space_capbl_rec.attribute13 = FND_API.g_miss_char THEN
1990: x_space_capbl_rec.attribute13 := l_space_capbl_rec.attribute13;
1991: END IF;
1992: -- ATTRIBUTE 14
1993: IF p_space_capbl_rec.attribute14 = FND_API.g_miss_char THEN
1994: x_space_capbl_rec.attribute14 := l_space_capbl_rec.attribute14;
1995: END IF;
1996: -- ATTRIBUTE 15
1997: IF p_space_capbl_rec.attribute15 = FND_API.g_miss_char THEN
1993: IF p_space_capbl_rec.attribute14 = FND_API.g_miss_char THEN
1994: x_space_capbl_rec.attribute14 := l_space_capbl_rec.attribute14;
1995: END IF;
1996: -- ATTRIBUTE 15
1997: IF p_space_capbl_rec.attribute15 = FND_API.g_miss_char THEN
1998: x_space_capbl_rec.attribute15 := l_space_capbl_rec.attribute15;
1999: END IF;
2000:
2001: IF G_DEBUG='Y' THEN
2043:
2044:
2045: BEGIN
2046: -- Initialize API/Procedure return status to success
2047: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2048: -- Check required parameters
2049: IF (p_space_capbl_rec.ORGANIZATION_ID IS NULL OR
2050: p_space_capbl_rec.ORGANIZATION_ID = Fnd_Api.G_MISS_NUM )
2051: THEN
2046: -- Initialize API/Procedure return status to success
2047: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2048: -- Check required parameters
2049: IF (p_space_capbl_rec.ORGANIZATION_ID IS NULL OR
2050: p_space_capbl_rec.ORGANIZATION_ID = Fnd_Api.G_MISS_NUM )
2051: THEN
2052: -- missing required fields
2053: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
2054: THEN
2054: THEN
2055: Fnd_Message.set_name('AHL', 'AHL_LTP_ORG_ID_NOT_EXISTS');
2056: Fnd_Msg_Pub.ADD;
2057: END IF;
2058: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2059: END IF;
2060: -- SPACE_ID
2061: IF (p_space_capbl_rec.SPACE_ID = Fnd_Api.G_MISS_NUM OR
2062: p_space_capbl_rec.SPACE_ID IS NULL)
2057: END IF;
2058: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2059: END IF;
2060: -- SPACE_ID
2061: IF (p_space_capbl_rec.SPACE_ID = Fnd_Api.G_MISS_NUM OR
2062: p_space_capbl_rec.SPACE_ID IS NULL)
2063: THEN
2064: -- missing required fields
2065: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
2066: THEN
2067: Fnd_Message.set_name('AHL', 'AHL_LTP_DEPT_ID_NOT_EXIST');
2068: Fnd_Msg_Pub.ADD;
2069: END IF;
2070: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2071: END IF;
2072: --VISIT TYPE
2073: IF (p_space_capbl_rec.VISIT_TYPE_CODE = Fnd_Api.G_MISS_CHAR OR
2074: p_space_capbl_rec.VISIT_TYPE_CODE IS NULL)
2069: END IF;
2070: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2071: END IF;
2072: --VISIT TYPE
2073: IF (p_space_capbl_rec.VISIT_TYPE_CODE = Fnd_Api.G_MISS_CHAR OR
2074: p_space_capbl_rec.VISIT_TYPE_CODE IS NULL)
2075: THEN
2076: -- missing required fields
2077: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
2078: THEN
2079: Fnd_Message.set_name('AHL', 'AHL_LTP_VISIT_TYPE_NOT_EXIST');
2080: Fnd_Msg_Pub.ADD;
2081: END IF;
2082: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2083: END IF;
2084:
2085: --INVENTORY ITEM
2086: IF (p_space_capbl_rec.INVENTORY_ITEM_ID = Fnd_Api.G_MISS_NUM OR
2082: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2083: END IF;
2084:
2085: --INVENTORY ITEM
2086: IF (p_space_capbl_rec.INVENTORY_ITEM_ID = Fnd_Api.G_MISS_NUM OR
2087: p_space_capbl_rec.INVENTORY_ITEM_ID IS NULL)
2088: THEN
2089: -- missing required fields
2090: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
2091: THEN
2092: Fnd_Message.set_name('AHL', 'AHL_LTP_INV_ITEM_NOT_EXIST');
2093: Fnd_Msg_Pub.ADD;
2094: END IF;
2095: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2096: END IF;
2097:
2098: -- Validate uniqueness
2099: /* IF p_validation_mode = Jtf_Plsql_Api.g_create
2102: IF Ahl_Utility_Pvt.check_uniqueness(
2103: 'ahl_space_capabilities',
2104: 'visit_type = ' || p_space_capbl_rec.visit_type_code ||
2105: ''' AND inventory_item_id = ''' || p_space_capbl_rec.inventory_item_id
2106: ) = Fnd_Api.g_false
2107: THEN
2108: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error)
2109: THEN
2110: Fnd_Message.set_name('AHL', 'AHL_LTP_SPACE_CAPBL_DUPL_ID');
2109: THEN
2110: Fnd_Message.set_name('AHL', 'AHL_LTP_SPACE_CAPBL_DUPL_ID');
2111: Fnd_Msg_Pub.ADD;
2112: END IF;
2113: x_return_status := Fnd_Api.g_ret_sts_error;
2114: END IF;
2115: END IF; */
2116:
2117: IF G_DEBUG='Y' THEN
2133: IF l_dummy is NOT NULL THEN
2134: Fnd_Message.set_name('AHL', 'AHL_LTP_SPACE_CAPBL_DUPL_ID');
2135: Fnd_Msg_Pub.ADD;
2136: END IF;
2137: x_return_status := Fnd_Api.g_ret_sts_error;
2138: END IF;
2139: END IF;
2140:
2141:
2157: -- Status Local Variables
2158: l_return_status VARCHAR2(1);
2159: BEGIN
2160: -- Initialize API return status to success
2161: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2162: --
2163: NULL;
2164: --
2165: END Validate_Space_Capbl_Record;
2177: --
2178: --------------------------------------------------------------------
2179: PROCEDURE Validate_Space_Capblts
2180: ( p_api_version IN NUMBER,
2181: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2182: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2183: p_space_capblts_rec IN space_capbl_rec,
2184: x_return_status OUT NOCOPY VARCHAR2,
2185: x_msg_count OUT NOCOPY NUMBER,
2178: --------------------------------------------------------------------
2179: PROCEDURE Validate_Space_Capblts
2180: ( p_api_version IN NUMBER,
2181: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2182: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2183: p_space_capblts_rec IN space_capbl_rec,
2184: x_return_status OUT NOCOPY VARCHAR2,
2185: x_msg_count OUT NOCOPY NUMBER,
2186: x_msg_data OUT NOCOPY VARCHAR2
2192: l_return_status VARCHAR2(1);
2193: l_space_capblts_rec space_capbl_rec;
2194: BEGIN
2195: -- Standard call to check for call compatibility.
2196: IF NOT Fnd_Api.Compatible_API_Call ( l_api_version,
2197: p_api_version,
2198: l_api_name,
2199: G_PKG_NAME)
2200: THEN
2197: p_api_version,
2198: l_api_name,
2199: G_PKG_NAME)
2200: THEN
2201: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2202: END IF;
2203: -- Initialize message list if p_init_msg_list is set to TRUE.
2204: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
2205: Fnd_Msg_Pub.initialize;
2200: THEN
2201: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2202: END IF;
2203: -- Initialize message list if p_init_msg_list is set to TRUE.
2204: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
2205: Fnd_Msg_Pub.initialize;
2206: END IF;
2207: -- Initialize API return status to success
2208: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2204: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
2205: Fnd_Msg_Pub.initialize;
2206: END IF;
2207: -- Initialize API return status to success
2208: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2209: --
2210: -- API body
2211: --
2212: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item
2216: p_validation_mode => Jtf_Plsql_Api.g_create,
2217: x_return_status => l_return_status
2218: );
2219: -- If any errors happen abort API.
2220: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
2221: THEN
2222: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2223: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR
2224: THEN
2218: );
2219: -- If any errors happen abort API.
2220: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
2221: THEN
2222: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2223: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR
2224: THEN
2225: RAISE Fnd_Api.G_EXC_ERROR;
2226: END IF;
2219: -- If any errors happen abort API.
2220: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
2221: THEN
2222: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2223: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR
2224: THEN
2225: RAISE Fnd_Api.G_EXC_ERROR;
2226: END IF;
2227: END IF;
2221: THEN
2222: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2223: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR
2224: THEN
2225: RAISE Fnd_Api.G_EXC_ERROR;
2226: END IF;
2227: END IF;
2228: -- Perform cross attribute validation and missing attribute checks. Record
2229: -- level validation.
2233: p_space_capbl_rec => p_space_capblts_rec,
2234: x_return_status => l_return_status
2235:
2236: );
2237: IF l_return_status = Fnd_Api.G_RET_STS_ERROR
2238: THEN
2239: RAISE Fnd_Api.G_EXC_ERROR;
2240: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
2241: THEN
2235:
2236: );
2237: IF l_return_status = Fnd_Api.G_RET_STS_ERROR
2238: THEN
2239: RAISE Fnd_Api.G_EXC_ERROR;
2240: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
2241: THEN
2242: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2243: END IF;
2236: );
2237: IF l_return_status = Fnd_Api.G_RET_STS_ERROR
2238: THEN
2239: RAISE Fnd_Api.G_EXC_ERROR;
2240: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
2241: THEN
2242: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2243: END IF;
2244: END IF;
2238: THEN
2239: RAISE Fnd_Api.G_EXC_ERROR;
2240: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
2241: THEN
2242: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2243: END IF;
2244: END IF;
2245: --
2246: -- END of API body.
2246: -- END of API body.
2247: --
2248: -------------------- finish --------------------------
2249: Fnd_Msg_Pub.count_and_get(
2250: p_encoded => Fnd_Api.g_false,
2251: p_count => x_msg_count,
2252: p_data => x_msg_data);
2253: EXCEPTION
2254: WHEN Fnd_Api.G_EXC_ERROR THEN
2250: p_encoded => Fnd_Api.g_false,
2251: p_count => x_msg_count,
2252: p_data => x_msg_data);
2253: EXCEPTION
2254: WHEN Fnd_Api.G_EXC_ERROR THEN
2255: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
2256: Fnd_Msg_Pub.Count_AND_Get
2257: ( p_count => x_msg_count,
2258: p_data => x_msg_data,
2251: p_count => x_msg_count,
2252: p_data => x_msg_data);
2253: EXCEPTION
2254: WHEN Fnd_Api.G_EXC_ERROR THEN
2255: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
2256: Fnd_Msg_Pub.Count_AND_Get
2257: ( p_count => x_msg_count,
2258: p_data => x_msg_data,
2259: p_encoded => Fnd_Api.G_FALSE
2255: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
2256: Fnd_Msg_Pub.Count_AND_Get
2257: ( p_count => x_msg_count,
2258: p_data => x_msg_data,
2259: p_encoded => Fnd_Api.G_FALSE
2260: );
2261: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2262: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
2263: Fnd_Msg_Pub.Count_AND_Get
2257: ( p_count => x_msg_count,
2258: p_data => x_msg_data,
2259: p_encoded => Fnd_Api.G_FALSE
2260: );
2261: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2262: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
2263: Fnd_Msg_Pub.Count_AND_Get
2264: ( p_count => x_msg_count,
2265: p_data => x_msg_data,
2258: p_data => x_msg_data,
2259: p_encoded => Fnd_Api.G_FALSE
2260: );
2261: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2262: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
2263: Fnd_Msg_Pub.Count_AND_Get
2264: ( p_count => x_msg_count,
2265: p_data => x_msg_data,
2266: p_encoded => Fnd_Api.G_FALSE
2262: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
2263: Fnd_Msg_Pub.Count_AND_Get
2264: ( p_count => x_msg_count,
2265: p_data => x_msg_data,
2266: p_encoded => Fnd_Api.G_FALSE
2267: );
2268: WHEN OTHERS THEN
2269: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
2270: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
2265: p_data => x_msg_data,
2266: p_encoded => Fnd_Api.G_FALSE
2267: );
2268: WHEN OTHERS THEN
2269: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
2270: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
2271: THEN
2272: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2273: END IF;
2273: END IF;
2274: Fnd_Msg_Pub.Count_AND_Get
2275: ( p_count => x_msg_count,
2276: p_data => x_msg_data,
2277: p_encoded => Fnd_Api.G_FALSE
2278: );
2279: END Validate_Space_Capblts;
2280:
2281: --------------------------------------------------------------------
2291: -- NOTES
2292: --------------------------------------------------------------------
2293: PROCEDURE Create_Space_Capblts (
2294: p_api_version IN NUMBER,
2295: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2296: p_commit IN VARCHAR2 := FND_API.g_false,
2297: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2298: p_module_type IN VARCHAR2 := 'JSP',
2299: p_x_space_capblts_rec IN OUT NOCOPY ahl_ltp_space_capb_pub.Space_Capbl_Rec,
2292: --------------------------------------------------------------------
2293: PROCEDURE Create_Space_Capblts (
2294: p_api_version IN NUMBER,
2295: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2296: p_commit IN VARCHAR2 := FND_API.g_false,
2297: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2298: p_module_type IN VARCHAR2 := 'JSP',
2299: p_x_space_capblts_rec IN OUT NOCOPY ahl_ltp_space_capb_pub.Space_Capbl_Rec,
2300: x_return_status OUT NOCOPY VARCHAR2,
2293: PROCEDURE Create_Space_Capblts (
2294: p_api_version IN NUMBER,
2295: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2296: p_commit IN VARCHAR2 := FND_API.g_false,
2297: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2298: p_module_type IN VARCHAR2 := 'JSP',
2299: p_x_space_capblts_rec IN OUT NOCOPY ahl_ltp_space_capb_pub.Space_Capbl_Rec,
2300: x_return_status OUT NOCOPY VARCHAR2,
2301: x_msg_count OUT NOCOPY NUMBER,
2347: IF G_DEBUG='Y' THEN
2348: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_space_capb_pvt.Create Space Capblts ','+SPCBL+');
2349: END IF;
2350: -- Standard call to check for call compatibility.
2351: IF FND_API.to_boolean(p_init_msg_list)
2352: THEN
2353: FND_MSG_PUB.initialize;
2354: END IF;
2355: -- Initialize API return status to success
2352: THEN
2353: FND_MSG_PUB.initialize;
2354: END IF;
2355: -- Initialize API return status to success
2356: x_return_status := FND_API.G_RET_STS_SUCCESS;
2357: -- Initialize message list if p_init_msg_list is set to TRUE.
2358: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2359: p_api_version,
2360: l_api_name,G_PKG_NAME)
2354: END IF;
2355: -- Initialize API return status to success
2356: x_return_status := FND_API.G_RET_STS_SUCCESS;
2357: -- Initialize message list if p_init_msg_list is set to TRUE.
2358: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2359: p_api_version,
2360: l_api_name,G_PKG_NAME)
2361: THEN
2362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2358: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2359: p_api_version,
2360: l_api_name,G_PKG_NAME)
2361: THEN
2362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2363: END IF;
2364:
2365: IF G_DEBUG='Y' THEN
2366: AHL_DEBUG_PUB.debug( 'org name 1:'||p_x_space_capblts_rec.org_name);
2379:
2380:
2381: -- Convert Space name to space id
2382: IF (p_x_space_capblts_rec.space_name IS NOT NULL AND
2383: p_x_space_capblts_rec.space_name <> FND_API.G_MISS_CHAR ) OR
2384: (p_x_space_capblts_rec.space_id IS NOT NULL AND
2385: p_x_space_capblts_rec.space_id <> FND_API.G_MISS_NUM) THEN
2386:
2387: Check_space_name_Or_Id
2381: -- Convert Space name to space id
2382: IF (p_x_space_capblts_rec.space_name IS NOT NULL AND
2383: p_x_space_capblts_rec.space_name <> FND_API.G_MISS_CHAR ) OR
2384: (p_x_space_capblts_rec.space_id IS NOT NULL AND
2385: p_x_space_capblts_rec.space_id <> FND_API.G_MISS_NUM) THEN
2386:
2387: Check_space_name_Or_Id
2388: (p_space_id => p_x_space_capblts_rec.space_id,
2389: p_space_name => p_x_space_capblts_rec.space_name,
2402: p_x_space_capblts_rec.space_id := l_space_id;
2403: /*
2404: -- Convert org name to organization id
2405: IF (p_x_space_capblts_rec.org_name IS NOT NULL AND
2406: p_x_space_capblts_rec.org_name <> FND_API.G_MISS_CHAR ) OR
2407: (p_x_space_capblts_rec.organization_id IS NOT NULL AND
2408: p_x_space_capblts_rec.organization_id <> FND_API.G_MISS_NUM) THEN
2409:
2410: Check_org_name_Or_Id
2404: -- Convert org name to organization id
2405: IF (p_x_space_capblts_rec.org_name IS NOT NULL AND
2406: p_x_space_capblts_rec.org_name <> FND_API.G_MISS_CHAR ) OR
2407: (p_x_space_capblts_rec.organization_id IS NOT NULL AND
2408: p_x_space_capblts_rec.organization_id <> FND_API.G_MISS_NUM) THEN
2409:
2410: Check_org_name_Or_Id
2411: (p_organization_id => p_x_space_capblts_rec.organization_id,
2412: p_org_name => p_x_space_capblts_rec.org_name,
2439: p_x_space_capblts_rec.organization_id := l_organization_id;
2440:
2441: -- Get Inventory item id
2442: IF (p_x_space_capblts_rec.item_description IS NOT NULL AND
2443: p_x_space_capblts_rec.item_description <> FND_API.G_MISS_CHAR ) OR
2444: (p_x_space_capblts_rec.inventory_item_id IS NOT NULL AND
2445: p_x_space_capblts_rec.inventory_item_id <> FND_API.G_MISS_NUM) THEN
2446:
2447: Check_inventory_desc_Or_Id
2441: -- Get Inventory item id
2442: IF (p_x_space_capblts_rec.item_description IS NOT NULL AND
2443: p_x_space_capblts_rec.item_description <> FND_API.G_MISS_CHAR ) OR
2444: (p_x_space_capblts_rec.inventory_item_id IS NOT NULL AND
2445: p_x_space_capblts_rec.inventory_item_id <> FND_API.G_MISS_NUM) THEN
2446:
2447: Check_inventory_desc_Or_Id
2448: (p_organization_id => null, --p_x_space_capblts_rec.organization_id,
2449: p_org_name => null, --p_x_space_capblts_rec.org_name,
2472: END IF;
2473:
2474: --For Visit Type
2475: IF p_x_space_capblts_rec.visit_type_mean IS NOT NULL AND
2476: p_x_space_capblts_rec.visit_type_mean <> Fnd_Api.G_MISS_CHAR
2477: THEN
2478: Check_lookup_name_Or_Id (
2479: p_lookup_type => 'AHL_PLANNING_VISIT_TYPE',
2480: p_lookup_code => NULL,
2491: END IF;
2492: -- END IF;
2493: -- Id presents
2494: ELSIF p_x_space_capblts_rec.visit_type_code IS NOT NULL AND
2495: p_x_space_capblts_rec.visit_type_code <> Fnd_Api.G_MISS_CHAR
2496: THEN
2497: l_space_capblts_rec.visit_type_code := p_x_space_capblts_rec.visit_type_code;
2498: ELSE
2499: Fnd_Message.SET_NAME('AHL','AHL_LTP_VISIT_TYPE_NOT_EXIST');
2513: l_msg_count := Fnd_Msg_Pub.count_msg;
2514:
2515: IF l_msg_count > 0 THEN
2516: X_msg_count := l_msg_count;
2517: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2518: RAISE Fnd_Api.G_EXC_ERROR;
2519: END IF;
2520:
2521: --------------------------------Validation ---------------------------
2514:
2515: IF l_msg_count > 0 THEN
2516: X_msg_count := l_msg_count;
2517: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2518: RAISE Fnd_Api.G_EXC_ERROR;
2519: END IF;
2520:
2521: --------------------------------Validation ---------------------------
2522: --Assign to local variable
2541: x_return_status => l_return_status,
2542: x_msg_count => l_msg_count,
2543: x_msg_data => l_msg_data );
2544:
2545: IF (p_x_space_capblts_rec.space_capability_id = Fnd_Api.G_MISS_NUM OR
2546: p_x_space_capblts_rec.space_capability_id IS NULL )
2547: THEN
2548: --
2549: -- If the ID is not passed into the API, then
2565: Fnd_Msg_Pub.ADD;
2566: END IF;
2567: -- For optional fields
2568: --
2569: IF p_x_space_capblts_rec.attribute_category = FND_API.G_MISS_CHAR
2570: THEN
2571: l_space_capblts_rec.attribute_category := NULL;
2572: ELSE
2573: l_space_capblts_rec.attribute_category := p_x_space_capblts_rec.attribute_category;
2572: ELSE
2573: l_space_capblts_rec.attribute_category := p_x_space_capblts_rec.attribute_category;
2574: END IF;
2575: --
2576: IF p_x_space_capblts_rec.attribute1 = FND_API.G_MISS_CHAR
2577: THEN
2578: l_space_capblts_rec.attribute1 := NULL;
2579: ELSE
2580: l_space_capblts_rec.attribute1 := p_x_space_capblts_rec.attribute1;
2579: ELSE
2580: l_space_capblts_rec.attribute1 := p_x_space_capblts_rec.attribute1;
2581: END IF;
2582: --
2583: IF p_x_space_capblts_rec.attribute2 = FND_API.G_MISS_CHAR
2584: THEN
2585: l_space_capblts_rec.attribute2 := NULL;
2586: ELSE
2587: l_space_capblts_rec.attribute2 := p_x_space_capblts_rec.attribute2;
2586: ELSE
2587: l_space_capblts_rec.attribute2 := p_x_space_capblts_rec.attribute2;
2588: END IF;
2589: --
2590: IF p_x_space_capblts_rec.attribute3 = FND_API.G_MISS_CHAR
2591: THEN
2592: l_space_capblts_rec.attribute3 := NULL;
2593: ELSE
2594: l_space_capblts_rec.attribute3 := p_x_space_capblts_rec.attribute3;
2593: ELSE
2594: l_space_capblts_rec.attribute3 := p_x_space_capblts_rec.attribute3;
2595: END IF;
2596: --
2597: IF p_x_space_capblts_rec.attribute4 = FND_API.G_MISS_CHAR
2598: THEN
2599: l_space_capblts_rec.attribute4 := NULL;
2600: ELSE
2601: l_space_capblts_rec.attribute4 := p_x_space_capblts_rec.attribute4;
2600: ELSE
2601: l_space_capblts_rec.attribute4 := p_x_space_capblts_rec.attribute4;
2602: END IF;
2603: --
2604: IF p_x_space_capblts_rec.attribute5 = FND_API.G_MISS_CHAR
2605: THEN
2606: l_space_capblts_rec.attribute5 := NULL;
2607: ELSE
2608: l_space_capblts_rec.attribute5 := p_x_space_capblts_rec.attribute5;
2607: ELSE
2608: l_space_capblts_rec.attribute5 := p_x_space_capblts_rec.attribute5;
2609: END IF;
2610: --
2611: IF p_x_space_capblts_rec.attribute6 = FND_API.G_MISS_CHAR
2612: THEN
2613: l_space_capblts_rec.attribute6 := NULL;
2614: ELSE
2615: l_space_capblts_rec.attribute6 := p_x_space_capblts_rec.attribute6;
2614: ELSE
2615: l_space_capblts_rec.attribute6 := p_x_space_capblts_rec.attribute6;
2616: END IF;
2617: --
2618: IF p_x_space_capblts_rec.attribute7 = FND_API.G_MISS_CHAR
2619: THEN
2620: l_space_capblts_rec.attribute7 := NULL;
2621: ELSE
2622: l_space_capblts_rec.attribute7 := p_x_space_capblts_rec.attribute7;
2621: ELSE
2622: l_space_capblts_rec.attribute7 := p_x_space_capblts_rec.attribute7;
2623: END IF;
2624: --
2625: IF p_x_space_capblts_rec.attribute8 = FND_API.G_MISS_CHAR
2626: THEN
2627: l_space_capblts_rec.attribute8 := NULL;
2628: ELSE
2629: l_space_capblts_rec.attribute8 := p_x_space_capblts_rec.attribute8;
2628: ELSE
2629: l_space_capblts_rec.attribute8 := p_x_space_capblts_rec.attribute8;
2630: END IF;
2631: --
2632: IF p_x_space_capblts_rec.attribute9 = FND_API.G_MISS_CHAR
2633: THEN
2634: l_space_capblts_rec.attribute9 := NULL;
2635: ELSE
2636: l_space_capblts_rec.attribute9 := p_x_space_capblts_rec.attribute9;
2635: ELSE
2636: l_space_capblts_rec.attribute9 := p_x_space_capblts_rec.attribute9;
2637: END IF;
2638: --
2639: IF p_x_space_capblts_rec.attribute10 = FND_API.G_MISS_CHAR
2640: THEN
2641: l_space_capblts_rec.attribute10 := NULL;
2642: ELSE
2643: l_space_capblts_rec.attribute10 := p_x_space_capblts_rec.attribute10;
2642: ELSE
2643: l_space_capblts_rec.attribute10 := p_x_space_capblts_rec.attribute10;
2644: END IF;
2645: --
2646: IF p_x_space_capblts_rec.attribute11 = FND_API.G_MISS_CHAR
2647: THEN
2648: l_space_capblts_rec.attribute11 := NULL;
2649: ELSE
2650: l_space_capblts_rec.attribute11 := p_x_space_capblts_rec.attribute11;
2649: ELSE
2650: l_space_capblts_rec.attribute11 := p_x_space_capblts_rec.attribute11;
2651: END IF;
2652: --
2653: IF p_x_space_capblts_rec.attribute12 = FND_API.G_MISS_CHAR
2654: THEN
2655: l_space_capblts_rec.attribute12 := NULL;
2656: ELSE
2657: l_space_capblts_rec.attribute12 := p_x_space_capblts_rec.attribute12;
2656: ELSE
2657: l_space_capblts_rec.attribute12 := p_x_space_capblts_rec.attribute12;
2658: END IF;
2659: --
2660: IF p_x_space_capblts_rec.attribute13 = FND_API.G_MISS_CHAR
2661: THEN
2662: l_space_capblts_rec.attribute13 := NULL;
2663: ELSE
2664: l_space_capblts_rec.attribute13 := p_x_space_capblts_rec.attribute13;
2663: ELSE
2664: l_space_capblts_rec.attribute13 := p_x_space_capblts_rec.attribute13;
2665: END IF;
2666: --
2667: IF p_x_space_capblts_rec.attribute14 = FND_API.G_MISS_CHAR
2668: THEN
2669: l_space_capblts_rec.attribute14 := NULL;
2670: ELSE
2671: l_space_capblts_rec.attribute14 := p_x_space_capblts_rec.attribute14;
2670: ELSE
2671: l_space_capblts_rec.attribute14 := p_x_space_capblts_rec.attribute14;
2672: END IF;
2673: --
2674: IF p_x_space_capblts_rec.attribute15 = FND_API.G_MISS_CHAR
2675: THEN
2676: l_space_capblts_rec.attribute15 := NULL;
2677: ELSE
2678: l_space_capblts_rec.attribute15 := p_x_space_capblts_rec.attribute15;
2683: l_msg_count := Fnd_Msg_Pub.count_msg;
2684:
2685: IF l_msg_count > 0 THEN
2686: X_msg_count := l_msg_count;
2687: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2688: RAISE Fnd_Api.G_EXC_ERROR;
2689: END IF;
2690:
2691: ----------------------------DML Operation---------------------------------
2684:
2685: IF l_msg_count > 0 THEN
2686: X_msg_count := l_msg_count;
2687: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2688: RAISE Fnd_Api.G_EXC_ERROR;
2689: END IF;
2690:
2691: ----------------------------DML Operation---------------------------------
2692: --insert space capabilities record
2758: l_msg_count := Fnd_Msg_Pub.count_msg;
2759:
2760: IF l_msg_count > 0 THEN
2761: X_msg_count := l_msg_count;
2762: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2763: RAISE Fnd_Api.G_EXC_ERROR;
2764: END IF;
2765:
2766: --Standard check for commit
2759:
2760: IF l_msg_count > 0 THEN
2761: X_msg_count := l_msg_count;
2762: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2763: RAISE Fnd_Api.G_EXC_ERROR;
2764: END IF;
2765:
2766: --Standard check for commit
2767: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2763: RAISE Fnd_Api.G_EXC_ERROR;
2764: END IF;
2765:
2766: --Standard check for commit
2767: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2768: COMMIT;
2769: END IF;
2770: -- Debug info
2771: IF G_DEBUG='Y' THEN
2774: Ahl_Debug_Pub.disable_debug;
2775: END IF;
2776:
2777: EXCEPTION
2778: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2779: ROLLBACK TO create_space_capblts;
2780: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2781: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2782: p_count => x_msg_count,
2776:
2777: EXCEPTION
2778: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2779: ROLLBACK TO create_space_capblts;
2780: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2781: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2782: p_count => x_msg_count,
2783: p_data => x_msg_data);
2784:
2777: EXCEPTION
2778: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2779: ROLLBACK TO create_space_capblts;
2780: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2781: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2782: p_count => x_msg_count,
2783: p_data => x_msg_data);
2784:
2785: IF G_DEBUG='Y' THEN
2788: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Create Space Capblts','+SPCBL+');
2789: -- Check if API is called in debug mode. If yes, disable debug.
2790: AHL_DEBUG_PUB.disable_debug;
2791: END IF;
2792: WHEN FND_API.G_EXC_ERROR THEN
2793: ROLLBACK TO create_space_capblts;
2794: X_return_status := FND_API.G_RET_STS_ERROR;
2795: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2796: p_count => x_msg_count,
2790: AHL_DEBUG_PUB.disable_debug;
2791: END IF;
2792: WHEN FND_API.G_EXC_ERROR THEN
2793: ROLLBACK TO create_space_capblts;
2794: X_return_status := FND_API.G_RET_STS_ERROR;
2795: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2796: p_count => x_msg_count,
2797: p_data => X_msg_data);
2798: -- Debug info.
2791: END IF;
2792: WHEN FND_API.G_EXC_ERROR THEN
2793: ROLLBACK TO create_space_capblts;
2794: X_return_status := FND_API.G_RET_STS_ERROR;
2795: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2796: p_count => x_msg_count,
2797: p_data => X_msg_data);
2798: -- Debug info.
2799: IF G_DEBUG='Y' THEN
2805: AHL_DEBUG_PUB.disable_debug;
2806:
2807: WHEN OTHERS THEN
2808: ROLLBACK TO create_space_capblts;
2809: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2810: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2811: THEN
2812: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_CAPB_PVT',
2813: p_procedure_name => 'CREATE_SPACE_CAPBLTS',
2812: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_CAPB_PVT',
2813: p_procedure_name => 'CREATE_SPACE_CAPBLTS',
2814: p_error_text => SUBSTR(SQLERRM,1,240));
2815: END IF;
2816: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2817: p_count => x_msg_count,
2818: p_data => X_msg_data);
2819:
2820: -- Debug info.
2841: -- NOTES
2842: --------------------------------------------------------------------
2843: PROCEDURE Update_Space_Capblts (
2844: p_api_version IN NUMBER,
2845: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2846: p_commit IN VARCHAR2 := FND_API.g_false,
2847: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2848: p_module_type IN VARCHAR2 := 'JSP',
2849: p_space_capblts_rec IN ahl_ltp_space_capb_pub.Space_Capbl_Rec,
2842: --------------------------------------------------------------------
2843: PROCEDURE Update_Space_Capblts (
2844: p_api_version IN NUMBER,
2845: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2846: p_commit IN VARCHAR2 := FND_API.g_false,
2847: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2848: p_module_type IN VARCHAR2 := 'JSP',
2849: p_space_capblts_rec IN ahl_ltp_space_capb_pub.Space_Capbl_Rec,
2850: x_return_status OUT NOCOPY VARCHAR2,
2843: PROCEDURE Update_Space_Capblts (
2844: p_api_version IN NUMBER,
2845: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2846: p_commit IN VARCHAR2 := FND_API.g_false,
2847: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2848: p_module_type IN VARCHAR2 := 'JSP',
2849: p_space_capblts_rec IN ahl_ltp_space_capb_pub.Space_Capbl_Rec,
2850: x_return_status OUT NOCOPY VARCHAR2,
2851: x_msg_count OUT NOCOPY NUMBER,
2886: IF G_DEBUG='Y' THEN
2887: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_space_capb_pvt.Update Space Capblts','+SPCBL+');
2888: END IF;
2889: -- Standard call to check for call compatibility.
2890: IF FND_API.to_boolean(p_init_msg_list)
2891: THEN
2892: FND_MSG_PUB.initialize;
2893: END IF;
2894: -- Initialize API return status to success
2891: THEN
2892: FND_MSG_PUB.initialize;
2893: END IF;
2894: -- Initialize API return status to success
2895: x_return_status := FND_API.G_RET_STS_SUCCESS;
2896: -- Initialize message list if p_init_msg_list is set to TRUE.
2897: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2898: p_api_version,
2899: l_api_name,G_PKG_NAME)
2893: END IF;
2894: -- Initialize API return status to success
2895: x_return_status := FND_API.G_RET_STS_SUCCESS;
2896: -- Initialize message list if p_init_msg_list is set to TRUE.
2897: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2898: p_api_version,
2899: l_api_name,G_PKG_NAME)
2900: THEN
2901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2897: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2898: p_api_version,
2899: l_api_name,G_PKG_NAME)
2900: THEN
2901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2902: END IF;
2903:
2904: ---------------------art API Body------------------------------------
2905:
2923: l_space_capblts_rec.space_id := null;
2924: END IF;
2925: /* -- Convert org name to organization id
2926: IF (p_space_capblts_rec.org_name IS NOT NULL AND
2927: p_space_capblts_rec.org_name <> FND_API.G_MISS_CHAR ) OR
2928: (l_space_capblts_rec.organization_id IS NOT NULL AND
2929: l_space_capblts_rec.organization_id <> FND_API.G_MISS_NUM) THEN
2930:
2931: Check_org_name_Or_Id
2925: /* -- Convert org name to organization id
2926: IF (p_space_capblts_rec.org_name IS NOT NULL AND
2927: p_space_capblts_rec.org_name <> FND_API.G_MISS_CHAR ) OR
2928: (l_space_capblts_rec.organization_id IS NOT NULL AND
2929: l_space_capblts_rec.organization_id <> FND_API.G_MISS_NUM) THEN
2930:
2931: Check_org_name_Or_Id
2932: (p_organization_id => l_space_capblts_rec.organization_id,
2933: p_org_name => p_space_capblts_rec.org_name,
2947: */
2948:
2949: -- Convert Space name to space id
2950: IF (p_space_capblts_rec.space_name IS NOT NULL AND
2951: p_space_capblts_rec.space_name <> FND_API.G_MISS_CHAR ) OR
2952: (p_space_capblts_rec.space_id IS NOT NULL AND
2953: p_space_capblts_rec.space_id <> FND_API.G_MISS_NUM) THEN
2954:
2955: Check_space_name_Or_Id
2949: -- Convert Space name to space id
2950: IF (p_space_capblts_rec.space_name IS NOT NULL AND
2951: p_space_capblts_rec.space_name <> FND_API.G_MISS_CHAR ) OR
2952: (p_space_capblts_rec.space_id IS NOT NULL AND
2953: p_space_capblts_rec.space_id <> FND_API.G_MISS_NUM) THEN
2954:
2955: Check_space_name_Or_Id
2956: (p_space_id => p_space_capblts_rec.space_id,
2957: p_space_name => p_space_capblts_rec.space_name,
2978: l_space_capblts_rec.organization_id := l_organization_id;
2979:
2980: -- Get Inventory item id
2981: IF (p_space_capblts_rec.item_description IS NOT NULL AND
2982: p_space_capblts_rec.item_description <> FND_API.G_MISS_CHAR ) OR
2983: (p_space_capblts_rec.inventory_item_id IS NOT NULL AND
2984: p_space_capblts_rec.inventory_item_id <> FND_API.G_MISS_NUM) THEN
2985:
2986: Check_inventory_desc_Or_Id
2980: -- Get Inventory item id
2981: IF (p_space_capblts_rec.item_description IS NOT NULL AND
2982: p_space_capblts_rec.item_description <> FND_API.G_MISS_CHAR ) OR
2983: (p_space_capblts_rec.inventory_item_id IS NOT NULL AND
2984: p_space_capblts_rec.inventory_item_id <> FND_API.G_MISS_NUM) THEN
2985:
2986: Check_inventory_desc_Or_Id
2987: (p_organization_id => l_organization_id,
2988: p_org_name => p_space_capblts_rec.org_name,
3003: l_space_capblts_rec.inventory_item_id := l_inventory_item_id;
3004:
3005: --For Visit Type
3006: IF p_space_capblts_rec.visit_type_mean IS NOT NULL AND
3007: p_space_capblts_rec.visit_type_mean <> Fnd_Api.G_MISS_CHAR
3008: THEN
3009: Check_lookup_name_Or_Id (
3010: p_lookup_type => 'AHL_VISIT_TYPE',
3011: p_lookup_code => NULL,
3021: END IF;
3022: END IF;
3023: -- Id presents
3024: IF p_space_capblts_rec.visit_type_code IS NOT NULL AND
3025: p_space_capblts_rec.visit_type_code <> Fnd_Api.G_MISS_CHAR
3026: THEN
3027: l_space_capblts_rec.visit_type_code := p_space_capblts_rec.visit_type_code;
3028: ELSE
3029: Fnd_Message.SET_NAME('AHL','AHL_LTP_VISIT_TYPE_NOT_EXIST');
3083: l_msg_count := Fnd_Msg_Pub.count_msg;
3084:
3085: IF l_msg_count > 0 THEN
3086: X_msg_count := l_msg_count;
3087: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3088: RAISE Fnd_Api.G_EXC_ERROR;
3089: END IF;
3090:
3091: --Standard check for commit
3084:
3085: IF l_msg_count > 0 THEN
3086: X_msg_count := l_msg_count;
3087: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3088: RAISE Fnd_Api.G_EXC_ERROR;
3089: END IF;
3090:
3091: --Standard check for commit
3092: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3088: RAISE Fnd_Api.G_EXC_ERROR;
3089: END IF;
3090:
3091: --Standard check for commit
3092: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3093: COMMIT;
3094: END IF;
3095: -- Debug info
3096: IF G_DEBUG='Y' THEN
3099: Ahl_Debug_Pub.disable_debug;
3100: END IF;
3101:
3102: EXCEPTION
3103: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3104: ROLLBACK TO update_space_capblts;
3105: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3106: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3107: p_count => x_msg_count,
3101:
3102: EXCEPTION
3103: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3104: ROLLBACK TO update_space_capblts;
3105: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3106: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3107: p_count => x_msg_count,
3108: p_data => x_msg_data);
3109:
3102: EXCEPTION
3103: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3104: ROLLBACK TO update_space_capblts;
3105: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3106: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3107: p_count => x_msg_count,
3108: p_data => x_msg_data);
3109:
3110: IF G_DEBUG='Y' THEN
3114: END IF;
3115: -- Check if API is called in debug mode. If yes, disable debug.
3116: AHL_DEBUG_PUB.disable_debug;
3117:
3118: WHEN FND_API.G_EXC_ERROR THEN
3119: ROLLBACK TO update_space_capblts;
3120: X_return_status := FND_API.G_RET_STS_ERROR;
3121: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3122: p_count => x_msg_count,
3116: AHL_DEBUG_PUB.disable_debug;
3117:
3118: WHEN FND_API.G_EXC_ERROR THEN
3119: ROLLBACK TO update_space_capblts;
3120: X_return_status := FND_API.G_RET_STS_ERROR;
3121: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3122: p_count => x_msg_count,
3123: p_data => X_msg_data);
3124: -- Debug info.
3117:
3118: WHEN FND_API.G_EXC_ERROR THEN
3119: ROLLBACK TO update_space_capblts;
3120: X_return_status := FND_API.G_RET_STS_ERROR;
3121: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3122: p_count => x_msg_count,
3123: p_data => X_msg_data);
3124: -- Debug info.
3125: IF G_DEBUG='Y' THEN
3131: AHL_DEBUG_PUB.disable_debug;
3132:
3133: WHEN OTHERS THEN
3134: ROLLBACK TO update_space_capblts;
3135: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3136: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3137: THEN
3138: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_CAPB_PVT',
3139: p_procedure_name => 'UPDATE_SPACE_CAPBLTS',
3138: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_CAPB_PVT',
3139: p_procedure_name => 'UPDATE_SPACE_CAPBLTS',
3140: p_error_text => SUBSTR(SQLERRM,1,240));
3141: END IF;
3142: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3143: p_count => x_msg_count,
3144: p_data => X_msg_data);
3145:
3146: -- Debug info.
3170: -- 1. Raise exception if the object_version_number doesn't match.
3171: --------------------------------------------------------------------
3172: PROCEDURE Delete_Space_Capblts (
3173: p_api_version IN NUMBER,
3174: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3175: p_commit IN VARCHAR2 := FND_API.g_false,
3176: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
3177: p_space_capblts_rec IN ahl_ltp_space_capb_pub.Space_Capbl_Rec,
3178: x_return_status OUT NOCOPY VARCHAR2,
3171: --------------------------------------------------------------------
3172: PROCEDURE Delete_Space_Capblts (
3173: p_api_version IN NUMBER,
3174: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3175: p_commit IN VARCHAR2 := FND_API.g_false,
3176: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
3177: p_space_capblts_rec IN ahl_ltp_space_capb_pub.Space_Capbl_Rec,
3178: x_return_status OUT NOCOPY VARCHAR2,
3179: x_msg_count OUT NOCOPY NUMBER,
3172: PROCEDURE Delete_Space_Capblts (
3173: p_api_version IN NUMBER,
3174: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3175: p_commit IN VARCHAR2 := FND_API.g_false,
3176: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
3177: p_space_capblts_rec IN ahl_ltp_space_capb_pub.Space_Capbl_Rec,
3178: x_return_status OUT NOCOPY VARCHAR2,
3179: x_msg_count OUT NOCOPY NUMBER,
3180: x_msg_data OUT NOCOPY VARCHAR2
3230: IF G_DEBUG='Y' THEN
3231: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_space_capb_pvt.Delete Space Capblts','+SPCBL+');
3232: END IF;
3233: -- Standard call to check for call compatibility.
3234: IF FND_API.to_boolean(p_init_msg_list)
3235: THEN
3236: FND_MSG_PUB.initialize;
3237: END IF;
3238: -- Initialize API return status to success
3235: THEN
3236: FND_MSG_PUB.initialize;
3237: END IF;
3238: -- Initialize API return status to success
3239: x_return_status := FND_API.G_RET_STS_SUCCESS;
3240: -- Initialize message list if p_init_msg_list is set to TRUE.
3241: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
3242: p_api_version,
3243: l_api_name,G_PKG_NAME)
3237: END IF;
3238: -- Initialize API return status to success
3239: x_return_status := FND_API.G_RET_STS_SUCCESS;
3240: -- Initialize message list if p_init_msg_list is set to TRUE.
3241: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
3242: p_api_version,
3243: l_api_name,G_PKG_NAME)
3244: THEN
3245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3241: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
3242: p_api_version,
3243: l_api_name,G_PKG_NAME)
3244: THEN
3245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3246: END IF;
3247: -----------------------Start of API Body-----------------------------
3248: -- Check for Record exists
3249: OPEN c_space_capb_cur(p_space_capblts_rec.space_capability_id);
3255: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_NOT_FOUND');
3256: FND_MSG_PUB.add;
3257: END IF;
3258: CLOSE c_space_capb_cur;
3259: RAISE FND_API.g_exc_error;
3260: END IF;
3261: CLOSE c_space_capb_cur;
3262:
3263: --Check for object version number
3264: IF l_object_version_number <> p_space_capblts_rec.object_version_number
3265: THEN
3266: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
3267: FND_MSG_PUB.add;
3268: RAISE FND_API.g_exc_error;
3269: END IF;
3270: -- Check for space assignment exists, If so any visit has same capability
3271: OPEN space_assign_cur(p_space_capblts_rec.space_id);
3272: LOOP
3278: IF check_space_capb_cur%FOUND THEN
3279: FND_MESSAGE.set_name('AHL', 'AHL_CAPBL_ASIGN_TO_VIIST');
3280: FND_MSG_PUB.add;
3281: CLOSE check_space_capb_cur;
3282: RAISE FND_API.g_exc_error;
3283: END IF;
3284: CLOSE check_space_capb_cur;
3285: END IF;
3286: --
3300: l_msg_count := Fnd_Msg_Pub.count_msg;
3301:
3302: IF l_msg_count > 0 THEN
3303: X_msg_count := l_msg_count;
3304: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3305: RAISE Fnd_Api.G_EXC_ERROR;
3306: END IF;
3307:
3308: --Standard check for commit
3301:
3302: IF l_msg_count > 0 THEN
3303: X_msg_count := l_msg_count;
3304: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3305: RAISE Fnd_Api.G_EXC_ERROR;
3306: END IF;
3307:
3308: --Standard check for commit
3309: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3305: RAISE Fnd_Api.G_EXC_ERROR;
3306: END IF;
3307:
3308: --Standard check for commit
3309: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3310: COMMIT;
3311: END IF;
3312: -- Debug info
3313: IF G_DEBUG='Y' THEN
3316: Ahl_Debug_Pub.disable_debug;
3317: END IF;
3318:
3319: EXCEPTION
3320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3321: ROLLBACK TO delete_space_capblts;
3322: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3323: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3324: p_count => x_msg_count,
3318:
3319: EXCEPTION
3320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3321: ROLLBACK TO delete_space_capblts;
3322: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3323: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3324: p_count => x_msg_count,
3325: p_data => x_msg_data);
3326: IF G_DEBUG='Y' THEN
3319: EXCEPTION
3320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3321: ROLLBACK TO delete_space_capblts;
3322: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3323: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3324: p_count => x_msg_count,
3325: p_data => x_msg_data);
3326: IF G_DEBUG='Y' THEN
3327: AHL_DEBUG_PUB.log_app_messages (
3329: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Delete Space Capblts','+SPCBL+');
3330: -- Check if API is called in debug mode. If yes, disable debug.
3331: AHL_DEBUG_PUB.disable_debug;
3332: END IF;
3333: WHEN FND_API.G_EXC_ERROR THEN
3334: ROLLBACK TO delete_space_capblts;
3335: X_return_status := FND_API.G_RET_STS_ERROR;
3336: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3337: p_count => x_msg_count,
3331: AHL_DEBUG_PUB.disable_debug;
3332: END IF;
3333: WHEN FND_API.G_EXC_ERROR THEN
3334: ROLLBACK TO delete_space_capblts;
3335: X_return_status := FND_API.G_RET_STS_ERROR;
3336: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3337: p_count => x_msg_count,
3338: p_data => X_msg_data);
3339: IF G_DEBUG='Y' THEN
3332: END IF;
3333: WHEN FND_API.G_EXC_ERROR THEN
3334: ROLLBACK TO delete_space_capblts;
3335: X_return_status := FND_API.G_RET_STS_ERROR;
3336: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3337: p_count => x_msg_count,
3338: p_data => X_msg_data);
3339: IF G_DEBUG='Y' THEN
3340: -- Debug info.
3345: AHL_DEBUG_PUB.disable_debug;
3346: END IF;
3347: WHEN OTHERS THEN
3348: ROLLBACK TO delete_space_capblts;
3349: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3350: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3351: THEN
3352: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_CAPB_PVT',
3353: p_procedure_name => 'DELETE_SPACE_CAPBLTS',
3352: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_CAPB_PVT',
3353: p_procedure_name => 'DELETE_SPACE_CAPBLTS',
3354: p_error_text => SUBSTR(SQLERRM,1,240));
3355: END IF;
3356: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3357: p_count => x_msg_count,
3358: p_data => X_msg_data);
3359:
3360: IF G_DEBUG='Y' THEN