[Home] [Help]
55: INTO x_plan_id
56: FROM AHL_SIMULATION_PLANS_VL
57: WHERE SIMULATION_PLAN_NAME = p_plan_name;
58: END IF;
59: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
60: EXCEPTION
61: WHEN NO_DATA_FOUND THEN
62: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
63: x_error_msg_code:= 'AHL_LTP_ORG_NOT_EXISTS';
58: END IF;
59: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
60: EXCEPTION
61: WHEN NO_DATA_FOUND THEN
62: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
63: x_error_msg_code:= 'AHL_LTP_ORG_NOT_EXISTS';
64: WHEN TOO_MANY_ROWS THEN
65: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
66: x_error_msg_code:= 'AHL_LTP_ORG_NOT_EXISTS';
61: WHEN NO_DATA_FOUND THEN
62: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
63: x_error_msg_code:= 'AHL_LTP_ORG_NOT_EXISTS';
64: WHEN TOO_MANY_ROWS THEN
65: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
66: x_error_msg_code:= 'AHL_LTP_ORG_NOT_EXISTS';
67: WHEN OTHERS THEN
68: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
69: RAISE;
64: WHEN TOO_MANY_ROWS THEN
65: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
66: x_error_msg_code:= 'AHL_LTP_ORG_NOT_EXISTS';
67: WHEN OTHERS THEN
68: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
69: RAISE;
70: END Check_plan_name_Or_Id;
71:
72: --------------------------------------------------------------------
156: IF c_simulation_rec%NOTFOUND THEN
157: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
158: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_NOT_FOUND');
159: FND_MSG_PUB.add;
160: RAISE Fnd_Api.G_EXC_ERROR;
161: END IF;
162: END IF;
163: CLOSE c_simulation_rec;
164: --Check for object version number
165: IF (l_simulation_rec.object_version_number <> p_simulation_rec.object_version_number)
166: THEN
167: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
168: Fnd_Msg_Pub.ADD;
169: RAISE Fnd_Api.G_EXC_ERROR;
170: END IF;
171:
172: IF G_DEBUG='Y' THEN
173: AHL_DEBUG_PUB.debug( 'inside complete name 1:'||l_simulation_rec.simulation_plan_name);
173: AHL_DEBUG_PUB.debug( 'inside complete name 1:'||l_simulation_rec.simulation_plan_name);
174: END IF;
175:
176: -- SIMULATION_PLAN_NAME
177: IF p_simulation_rec.simulation_plan_name <> FND_API.g_miss_char THEN
178: x_simulation_rec.simulation_plan_name := p_simulation_rec.simulation_plan_name;
179: ELSE
180: x_simulation_rec.simulation_plan_name := l_simulation_rec.simulation_plan_name;
181: END IF;
179: ELSE
180: x_simulation_rec.simulation_plan_name := l_simulation_rec.simulation_plan_name;
181: END IF;
182: -- DESCRIPTION
183: IF p_simulation_rec.description <> FND_API.g_miss_char THEN
184: x_simulation_rec.description := p_simulation_rec.description;
185: ELSE
186: x_simulation_rec.description := l_simulation_rec.description;
187: END IF;
185: ELSE
186: x_simulation_rec.description := l_simulation_rec.description;
187: END IF;
188: -- ATTRIBUTE CATEGORY
189: IF p_simulation_rec.attribute_category <> FND_API.g_miss_char THEN
190: x_simulation_rec.attribute_category := p_simulation_rec.attribute_category;
191: ELSE
192: x_simulation_rec.attribute_category := l_simulation_rec.attribute_category;
193: END IF;
191: ELSE
192: x_simulation_rec.attribute_category := l_simulation_rec.attribute_category;
193: END IF;
194: -- ATTRIBUTE 1
195: IF p_simulation_rec.attribute1 <> FND_API.g_miss_char THEN
196: x_simulation_rec.attribute1 := p_simulation_rec.attribute1;
197: ELSE
198: x_simulation_rec.attribute1 := l_simulation_rec.attribute1;
199: END IF;
197: ELSE
198: x_simulation_rec.attribute1 := l_simulation_rec.attribute1;
199: END IF;
200: -- ATTRIBUTE 2
201: IF p_simulation_rec.attribute2 <> FND_API.g_miss_char THEN
202: x_simulation_rec.attribute2 := p_simulation_rec.attribute2;
203: ELSE
204: x_simulation_rec.attribute2 := l_simulation_rec.attribute2;
205: END IF;
203: ELSE
204: x_simulation_rec.attribute2 := l_simulation_rec.attribute2;
205: END IF;
206: -- ATTRIBUTE 3
207: IF p_simulation_rec.attribute3 <> FND_API.g_miss_char THEN
208: x_simulation_rec.attribute3 := p_simulation_rec.attribute3;
209: ELSE
210: x_simulation_rec.attribute3 := l_simulation_rec.attribute3;
211: END IF;
209: ELSE
210: x_simulation_rec.attribute3 := l_simulation_rec.attribute3;
211: END IF;
212: -- ATTRIBUTE 4
213: IF p_simulation_rec.attribute4 <> FND_API.g_miss_char THEN
214: x_simulation_rec.attribute4 := p_simulation_rec.attribute4;
215: ELSE
216: x_simulation_rec.attribute4 := l_simulation_rec.attribute4;
217: END IF;
215: ELSE
216: x_simulation_rec.attribute4 := l_simulation_rec.attribute4;
217: END IF;
218: -- ATTRIBUTE 5
219: IF p_simulation_rec.attribute5 <> FND_API.g_miss_char THEN
220: x_simulation_rec.attribute5 := p_simulation_rec.attribute5;
221: ELSE
222: x_simulation_rec.attribute5 := l_simulation_rec.attribute5;
223: END IF;
221: ELSE
222: x_simulation_rec.attribute5 := l_simulation_rec.attribute5;
223: END IF;
224: -- ATTRIBUTE 6
225: IF p_simulation_rec.attribute6 <> FND_API.g_miss_char THEN
226: x_simulation_rec.attribute6 := p_simulation_rec.attribute6;
227: ELSE
228: x_simulation_rec.attribute6 := l_simulation_rec.attribute6;
229: END IF;
227: ELSE
228: x_simulation_rec.attribute6 := l_simulation_rec.attribute6;
229: END IF;
230: -- ATTRIBUTE 7
231: IF p_simulation_rec.attribute7 <> FND_API.g_miss_char THEN
232: x_simulation_rec.attribute7 := p_simulation_rec.attribute7;
233: ELSE
234: x_simulation_rec.attribute7 := l_simulation_rec.attribute7;
235: END IF;
233: ELSE
234: x_simulation_rec.attribute7 := l_simulation_rec.attribute7;
235: END IF;
236: -- ATTRIBUTE 8
237: IF p_simulation_rec.attribute8 <> FND_API.g_miss_char THEN
238: x_simulation_rec.attribute8 := p_simulation_rec.attribute8;
239: ELSE
240: x_simulation_rec.attribute8 := l_simulation_rec.attribute8;
241: END IF;
239: ELSE
240: x_simulation_rec.attribute8 := l_simulation_rec.attribute8;
241: END IF;
242: -- ATTRIBUTE 9
243: IF p_simulation_rec.attribute9 <> FND_API.g_miss_char THEN
244: x_simulation_rec.attribute9 := p_simulation_rec.attribute9;
245: ELSE
246: x_simulation_rec.attribute9 := l_simulation_rec.attribute9;
247: END IF;
245: ELSE
246: x_simulation_rec.attribute9 := l_simulation_rec.attribute9;
247: END IF;
248: -- ATTRIBUTE 10
249: IF p_simulation_rec.attribute10 <> FND_API.g_miss_char THEN
250: x_simulation_rec.attribute10 := p_simulation_rec.attribute10;
251: ELSE
252: x_simulation_rec.attribute10 := l_simulation_rec.attribute10;
253: END IF;
251: ELSE
252: x_simulation_rec.attribute10 := l_simulation_rec.attribute10;
253: END IF;
254: -- ATTRIBUTE 11
255: IF p_simulation_rec.attribute11 <> FND_API.g_miss_char THEN
256: x_simulation_rec.attribute11 := p_simulation_rec.attribute11;
257: ELSE
258: x_simulation_rec.attribute11 := l_simulation_rec.attribute11;
259: END IF;
257: ELSE
258: x_simulation_rec.attribute11 := l_simulation_rec.attribute11;
259: END IF;
260: -- ATTRIBUTE 12
261: IF p_simulation_rec.attribute12 <> FND_API.g_miss_char THEN
262: x_simulation_rec.attribute12 := p_simulation_rec.attribute12;
263: ELSE
264: x_simulation_rec.attribute12 := l_simulation_rec.attribute12;
265: END IF;
263: ELSE
264: x_simulation_rec.attribute12 := l_simulation_rec.attribute12;
265: END IF;
266: -- ATTRIBUTE 13
267: IF p_simulation_rec.attribute13 <> FND_API.g_miss_char THEN
268: x_simulation_rec.attribute13 := p_simulation_rec.attribute13;
269: ELSE
270: x_simulation_rec.attribute13 := l_simulation_rec.attribute13;
271: END IF;
269: ELSE
270: x_simulation_rec.attribute13 := l_simulation_rec.attribute13;
271: END IF;
272: -- ATTRIBUTE 14
273: IF p_simulation_rec.attribute14 <> FND_API.g_miss_char THEN
274: x_simulation_rec.attribute14 := p_simulation_rec.attribute14;
275: ELSE
276: x_simulation_rec.attribute14 := l_simulation_rec.attribute14;
277: END IF;
275: ELSE
276: x_simulation_rec.attribute14 := l_simulation_rec.attribute14;
277: END IF;
278: -- ATTRIBUTE 15
279: IF p_simulation_rec.attribute15 <> FND_API.g_miss_char THEN
280: x_simulation_rec.attribute15 := p_simulation_rec.attribute15;
281: ELSE
282: x_simulation_rec.attribute15 := l_simulation_rec.attribute15;
283: END IF;
349:
350:
351: BEGIN
352: -- Initialize API/Procedure return status to success
353: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
354: -- Check required parameters
355: -- PLAN_NAME
356: IF (p_simulation_plan_rec.SIMULATION_PLAN_NAME IS NULL
357: OR
354: -- Check required parameters
355: -- PLAN_NAME
356: IF (p_simulation_plan_rec.SIMULATION_PLAN_NAME IS NULL
357: OR
358: p_simulation_plan_rec.SIMULATION_PLAN_NAME = FND_API.G_MISS_CHAR)
359: THEN
360:
361: -- missing required fields
362: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
363: THEN
364: Fnd_Message.set_name('AHL', 'AHL_LTP_PLAN_NAME_NOT_EXIST');
365: Fnd_Msg_Pub.ADD;
366: END IF;
367: x_return_status := Fnd_Api.G_RET_STS_ERROR;
368: END IF;
369: -- Validate uniqueness
370: OPEN check_plan_name_cur(p_simulation_plan_rec.simulation_plan_name);
371: FETCH check_plan_name_cur INTO l_dummy;
372: IF check_plan_name_cur%FOUND THEN
373: Fnd_Message.set_name('AHL', 'AHL_LTP_SIMUL_DUPLE_NAME');
374: Fnd_Msg_Pub.ADD;
375: END IF;
376: x_return_status := Fnd_Api.g_ret_sts_error;
377: CLOSE check_plan_name_cur;
378: --Check for primary plan
379: IF p_simulation_plan_rec.primary_plan_flag = 'Y' THEN
380: Fnd_Message.set_name('AHL', 'AHL_LTP_SIMUL_DUPLE_NAME');
378: --Check for primary plan
379: IF p_simulation_plan_rec.primary_plan_flag = 'Y' THEN
380: Fnd_Message.set_name('AHL', 'AHL_LTP_SIMUL_DUPLE_NAME');
381: Fnd_Msg_Pub.ADD;
382: x_return_status := Fnd_Api.g_ret_sts_error;
383: END IF;
384:
385: END Validate_Simulation_plan_Items;
386: ----------------------------------------------------------------------------
400: -- Status Local Variables
401: l_return_status VARCHAR2(1);
402: BEGIN
403: -- Initialize API return status to success
404: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
405: --
406: NULL;
407: --
408: END Validate_Simulation_plan_Rec;
419: --
420: --------------------------------------------------------------------
421: PROCEDURE Validate_Simulation_plan
422: ( p_api_version IN NUMBER,
423: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
424: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
425: p_simulation_plan_rec IN simulation_plan_rec,
426: x_return_status OUT NOCOPY VARCHAR2,
427: x_msg_count OUT NOCOPY NUMBER,
420: --------------------------------------------------------------------
421: PROCEDURE Validate_Simulation_plan
422: ( p_api_version IN NUMBER,
423: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
424: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
425: p_simulation_plan_rec IN simulation_plan_rec,
426: x_return_status OUT NOCOPY VARCHAR2,
427: x_msg_count OUT NOCOPY NUMBER,
428: x_msg_data OUT NOCOPY VARCHAR2
434: l_return_status VARCHAR2(1);
435: l_simulation_plan_rec simulation_plan_rec;
436: BEGIN
437: -- Standard call to check for call compatibility.
438: IF NOT Fnd_Api.Compatible_API_Call ( l_api_version,
439: p_api_version,
440: l_api_name,
441: G_PKG_NAME)
442: THEN
439: p_api_version,
440: l_api_name,
441: G_PKG_NAME)
442: THEN
443: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
444: END IF;
445: -- Initialize message list if p_init_msg_list is set to TRUE.
446: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
447: Fnd_Msg_Pub.initialize;
442: THEN
443: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
444: END IF;
445: -- Initialize message list if p_init_msg_list is set to TRUE.
446: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
447: Fnd_Msg_Pub.initialize;
448: END IF;
449: -- Initialize API return status to success
450: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
446: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
447: Fnd_Msg_Pub.initialize;
448: END IF;
449: -- Initialize API return status to success
450: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
451: --
452: -- API body
453: --
454: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item
458: p_validation_mode => Jtf_Plsql_Api.g_create,
459: x_return_status => l_return_status
460: );
461: -- If any errors happen abort API.
462: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
463: THEN
464: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
465: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR
466: THEN
460: );
461: -- If any errors happen abort API.
462: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
463: THEN
464: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
465: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR
466: THEN
467: RAISE Fnd_Api.G_EXC_ERROR;
468: END IF;
461: -- If any errors happen abort API.
462: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
463: THEN
464: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
465: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR
466: THEN
467: RAISE Fnd_Api.G_EXC_ERROR;
468: END IF;
469: END IF;
463: THEN
464: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
465: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR
466: THEN
467: RAISE Fnd_Api.G_EXC_ERROR;
468: END IF;
469: END IF;
470: -- Perform cross attribute validation and missing attribute checks. Record
471: -- level validation.
474: Validate_Simulation_plan_Rec(
475: p_simulation_plan_rec => p_simulation_plan_rec,
476: x_return_status => l_return_status
477: );
478: IF l_return_status = Fnd_Api.G_RET_STS_ERROR
479: THEN
480: RAISE Fnd_Api.G_EXC_ERROR;
481: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
482: THEN
476: x_return_status => l_return_status
477: );
478: IF l_return_status = Fnd_Api.G_RET_STS_ERROR
479: THEN
480: RAISE Fnd_Api.G_EXC_ERROR;
481: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
482: THEN
483: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
484: END IF;
477: );
478: IF l_return_status = Fnd_Api.G_RET_STS_ERROR
479: THEN
480: RAISE Fnd_Api.G_EXC_ERROR;
481: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
482: THEN
483: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
484: END IF;
485: END IF;
479: THEN
480: RAISE Fnd_Api.G_EXC_ERROR;
481: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR
482: THEN
483: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
484: END IF;
485: END IF;
486: --
487: -- END of API body.
487: -- END of API body.
488: --
489: -------------------- finish --------------------------
490: Fnd_Msg_Pub.count_and_get(
491: p_encoded => Fnd_Api.g_false,
492: p_count => x_msg_count,
493: p_data => x_msg_data);
494: EXCEPTION
495: WHEN Fnd_Api.G_EXC_ERROR THEN
491: p_encoded => Fnd_Api.g_false,
492: p_count => x_msg_count,
493: p_data => x_msg_data);
494: EXCEPTION
495: WHEN Fnd_Api.G_EXC_ERROR THEN
496: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
497: Fnd_Msg_Pub.Count_AND_Get
498: ( p_count => x_msg_count,
499: p_data => x_msg_data,
492: p_count => x_msg_count,
493: p_data => x_msg_data);
494: EXCEPTION
495: WHEN Fnd_Api.G_EXC_ERROR THEN
496: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
497: Fnd_Msg_Pub.Count_AND_Get
498: ( p_count => x_msg_count,
499: p_data => x_msg_data,
500: p_encoded => Fnd_Api.G_FALSE
496: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
497: Fnd_Msg_Pub.Count_AND_Get
498: ( p_count => x_msg_count,
499: p_data => x_msg_data,
500: p_encoded => Fnd_Api.G_FALSE
501: );
502: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
503: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
504: Fnd_Msg_Pub.Count_AND_Get
498: ( p_count => x_msg_count,
499: p_data => x_msg_data,
500: p_encoded => Fnd_Api.G_FALSE
501: );
502: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
503: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
504: Fnd_Msg_Pub.Count_AND_Get
505: ( p_count => x_msg_count,
506: p_data => x_msg_data,
499: p_data => x_msg_data,
500: p_encoded => Fnd_Api.G_FALSE
501: );
502: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
503: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
504: Fnd_Msg_Pub.Count_AND_Get
505: ( p_count => x_msg_count,
506: p_data => x_msg_data,
507: p_encoded => Fnd_Api.G_FALSE
503: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
504: Fnd_Msg_Pub.Count_AND_Get
505: ( p_count => x_msg_count,
506: p_data => x_msg_data,
507: p_encoded => Fnd_Api.G_FALSE
508: );
509: WHEN OTHERS THEN
510: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
511: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
506: p_data => x_msg_data,
507: p_encoded => Fnd_Api.G_FALSE
508: );
509: WHEN OTHERS THEN
510: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
511: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
512: THEN
513: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
514: END IF;
514: END IF;
515: Fnd_Msg_Pub.Count_AND_Get
516: ( p_count => x_msg_count,
517: p_data => x_msg_data,
518: p_encoded => Fnd_Api.G_FALSE
519: );
520: END Validate_Simulation_plan;
521:
522: --------------------------------------------------------------------
533: --------------------------------------------------------------------
534:
535: PROCEDURE Create_Simulation_plan (
536: p_api_version IN NUMBER,
537: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
538: p_commit IN VARCHAR2 := FND_API.g_false,
539: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
540: p_module_type IN VARCHAR2 := 'JSP',
541: p_x_simulation_plan_rec IN OUT NOCOPY ahl_ltp_simul_plan_pub.Simulation_Plan_Rec,
534:
535: PROCEDURE Create_Simulation_plan (
536: p_api_version IN NUMBER,
537: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
538: p_commit IN VARCHAR2 := FND_API.g_false,
539: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
540: p_module_type IN VARCHAR2 := 'JSP',
541: p_x_simulation_plan_rec IN OUT NOCOPY ahl_ltp_simul_plan_pub.Simulation_Plan_Rec,
542: x_return_status OUT NOCOPY VARCHAR2,
535: PROCEDURE Create_Simulation_plan (
536: p_api_version IN NUMBER,
537: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
538: p_commit IN VARCHAR2 := FND_API.g_false,
539: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
540: p_module_type IN VARCHAR2 := 'JSP',
541: p_x_simulation_plan_rec IN OUT NOCOPY ahl_ltp_simul_plan_pub.Simulation_Plan_Rec,
542: x_return_status OUT NOCOPY VARCHAR2,
543: x_msg_count OUT NOCOPY NUMBER,
577: IF G_DEBUG='Y' THEN
578: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.Create Simulation plan','+SIMPL+');
579: END IF;
580: -- Standard call to check for call compatibility.
581: IF FND_API.to_boolean(p_init_msg_list)
582: THEN
583: FND_MSG_PUB.initialize;
584: END IF;
585: -- Initialize API return status to success
582: THEN
583: FND_MSG_PUB.initialize;
584: END IF;
585: -- Initialize API return status to success
586: x_return_status := FND_API.G_RET_STS_SUCCESS;
587: -- Initialize message list if p_init_msg_list is set to TRUE.
588: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
589: p_api_version,
590: l_api_name,G_PKG_NAME)
584: END IF;
585: -- Initialize API return status to success
586: x_return_status := FND_API.G_RET_STS_SUCCESS;
587: -- Initialize message list if p_init_msg_list is set to TRUE.
588: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
589: p_api_version,
590: l_api_name,G_PKG_NAME)
591: THEN
592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
588: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
589: p_api_version,
590: l_api_name,G_PKG_NAME)
591: THEN
592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
593: END IF;
594: --------------------Value OR ID conversion---------------------------
595: --Assign to local variable
596: Assign_Simulation_Rec (
607: x_msg_count => l_msg_count,
608: x_msg_data => l_msg_data );
609:
610:
611: IF (p_x_simulation_plan_rec.plan_id = Fnd_Api.G_MISS_NUM OR
612: p_x_simulation_plan_rec.plan_id IS NULL)
613: THEN
614: --
615: -- If the ID is not passed into the API, then
630: Fnd_Message.SET_NAME('AHL','AHL_LTP_SEQUENCE_NOT_EXISTS');
631: Fnd_Msg_Pub.ADD;
632: END IF;
633: -- For optional fields
634: IF p_x_simulation_plan_rec.description = FND_API.G_MISS_CHAR THEN
635: l_simulation_plan_rec.description := NULL;
636: ELSE
637: l_simulation_plan_rec.description := p_x_simulation_plan_rec.description;
638: END IF;
636: ELSE
637: l_simulation_plan_rec.description := p_x_simulation_plan_rec.description;
638: END IF;
639: --
640: IF p_x_simulation_plan_rec.attribute_category = FND_API.G_MISS_CHAR THEN
641: l_simulation_plan_rec.attribute_category := NULL;
642: ELSE
643: l_simulation_plan_rec.attribute_category := p_x_simulation_plan_rec.attribute_category;
644: END IF;
642: ELSE
643: l_simulation_plan_rec.attribute_category := p_x_simulation_plan_rec.attribute_category;
644: END IF;
645: --
646: IF p_x_simulation_plan_rec.attribute1 = FND_API.G_MISS_CHAR THEN
647: l_simulation_plan_rec.attribute1 := NULL;
648: ELSE
649: l_simulation_plan_rec.attribute1 := p_x_simulation_plan_rec.attribute1;
650: END IF;
648: ELSE
649: l_simulation_plan_rec.attribute1 := p_x_simulation_plan_rec.attribute1;
650: END IF;
651: --
652: IF p_x_simulation_plan_rec.attribute2 = FND_API.G_MISS_CHAR THEN
653: l_simulation_plan_rec.attribute2 := NULL;
654: ELSE
655: l_simulation_plan_rec.attribute2 := p_x_simulation_plan_rec.attribute2;
656: END IF;
654: ELSE
655: l_simulation_plan_rec.attribute2 := p_x_simulation_plan_rec.attribute2;
656: END IF;
657: --
658: IF p_x_simulation_plan_rec.attribute3 = FND_API.G_MISS_CHAR THEN
659: l_simulation_plan_rec.attribute3 := NULL;
660: ELSE
661: l_simulation_plan_rec.attribute3 := p_x_simulation_plan_rec.attribute3;
662: END IF;
660: ELSE
661: l_simulation_plan_rec.attribute3 := p_x_simulation_plan_rec.attribute3;
662: END IF;
663: --
664: IF p_x_simulation_plan_rec.attribute4 = FND_API.G_MISS_CHAR THEN
665: l_simulation_plan_rec.attribute4 := NULL;
666: ELSE
667: l_simulation_plan_rec.attribute4 := p_x_simulation_plan_rec.attribute4;
668: END IF;
666: ELSE
667: l_simulation_plan_rec.attribute4 := p_x_simulation_plan_rec.attribute4;
668: END IF;
669: --
670: IF p_x_simulation_plan_rec.attribute5 = FND_API.G_MISS_CHAR THEN
671: l_simulation_plan_rec.attribute5 := NULL;
672: ELSE
673: l_simulation_plan_rec.attribute5 := p_x_simulation_plan_rec.attribute5;
674: END IF;
672: ELSE
673: l_simulation_plan_rec.attribute5 := p_x_simulation_plan_rec.attribute5;
674: END IF;
675: --
676: IF p_x_simulation_plan_rec.attribute6 = FND_API.G_MISS_CHAR THEN
677: l_simulation_plan_rec.attribute6 := NULL;
678: ELSE
679: l_simulation_plan_rec.attribute6 := p_x_simulation_plan_rec.attribute6;
680: END IF;
678: ELSE
679: l_simulation_plan_rec.attribute6 := p_x_simulation_plan_rec.attribute6;
680: END IF;
681: --
682: IF p_x_simulation_plan_rec.attribute7 = FND_API.G_MISS_CHAR THEN
683: l_simulation_plan_rec.attribute7 := NULL;
684: ELSE
685: l_simulation_plan_rec.attribute7 := p_x_simulation_plan_rec.attribute7;
686: END IF;
684: ELSE
685: l_simulation_plan_rec.attribute7 := p_x_simulation_plan_rec.attribute7;
686: END IF;
687: --
688: IF p_x_simulation_plan_rec.attribute8 = FND_API.G_MISS_CHAR THEN
689: l_simulation_plan_rec.attribute8 := NULL;
690: ELSE
691: l_simulation_plan_rec.attribute8 := p_x_simulation_plan_rec.attribute8;
692: END IF;
690: ELSE
691: l_simulation_plan_rec.attribute8 := p_x_simulation_plan_rec.attribute8;
692: END IF;
693: --
694: IF p_x_simulation_plan_rec.attribute9 = FND_API.G_MISS_CHAR THEN
695: l_simulation_plan_rec.attribute9 := NULL;
696: ELSE
697: l_simulation_plan_rec.attribute9 := p_x_simulation_plan_rec.attribute9;
698: END IF;
696: ELSE
697: l_simulation_plan_rec.attribute9 := p_x_simulation_plan_rec.attribute9;
698: END IF;
699: --
700: IF p_x_simulation_plan_rec.attribute10 = FND_API.G_MISS_CHAR THEN
701: l_simulation_plan_rec.attribute10 := NULL;
702: ELSE
703: l_simulation_plan_rec.attribute10 := p_x_simulation_plan_rec.attribute10;
704: END IF;
702: ELSE
703: l_simulation_plan_rec.attribute10 := p_x_simulation_plan_rec.attribute10;
704: END IF;
705: --
706: IF p_x_simulation_plan_rec.attribute11 = FND_API.G_MISS_CHAR THEN
707: l_simulation_plan_rec.attribute11 := NULL;
708: ELSE
709: l_simulation_plan_rec.attribute11 := p_x_simulation_plan_rec.attribute11;
710: END IF;
708: ELSE
709: l_simulation_plan_rec.attribute11 := p_x_simulation_plan_rec.attribute11;
710: END IF;
711: --
712: IF p_x_simulation_plan_rec.attribute12 = FND_API.G_MISS_CHAR THEN
713: l_simulation_plan_rec.attribute12 := NULL;
714: ELSE
715: l_simulation_plan_rec.attribute12 := p_x_simulation_plan_rec.attribute12;
716: END IF;
714: ELSE
715: l_simulation_plan_rec.attribute12 := p_x_simulation_plan_rec.attribute12;
716: END IF;
717: --
718: IF p_x_simulation_plan_rec.attribute13 = FND_API.G_MISS_CHAR THEN
719: l_simulation_plan_rec.attribute13 := NULL;
720: ELSE
721: l_simulation_plan_rec.attribute13 := p_x_simulation_plan_rec.attribute13;
722: END IF;
720: ELSE
721: l_simulation_plan_rec.attribute13 := p_x_simulation_plan_rec.attribute13;
722: END IF;
723: --
724: IF p_x_simulation_plan_rec.attribute14 = FND_API.G_MISS_CHAR THEN
725: l_simulation_plan_rec.attribute14 := NULL;
726: ELSE
727: l_simulation_plan_rec.attribute14 := p_x_simulation_plan_rec.attribute14;
728: END IF;
726: ELSE
727: l_simulation_plan_rec.attribute14 := p_x_simulation_plan_rec.attribute14;
728: END IF;
729: --
730: IF p_x_simulation_plan_rec.attribute15 = FND_API.G_MISS_CHAR THEN
731: l_simulation_plan_rec.attribute15 := NULL;
732: ELSE
733: l_simulation_plan_rec.attribute15 := p_x_simulation_plan_rec.attribute15;
734: END IF;
737: l_msg_count := Fnd_Msg_Pub.count_msg;
738:
739: IF l_msg_count > 0 THEN
740: X_msg_count := l_msg_count;
741: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
742: RAISE Fnd_Api.G_EXC_ERROR;
743: END IF;
744:
745: ----------------------------DML Operation---------------------------------
738:
739: IF l_msg_count > 0 THEN
740: X_msg_count := l_msg_count;
741: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
742: RAISE Fnd_Api.G_EXC_ERROR;
743: END IF;
744:
745: ----------------------------DML Operation---------------------------------
746: --Call table handler generated package to insert a record
781: l_msg_count := Fnd_Msg_Pub.count_msg;
782:
783: IF l_msg_count > 0 THEN
784: X_msg_count := l_msg_count;
785: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
786: RAISE Fnd_Api.G_EXC_ERROR;
787: END IF;
788:
789: --Standard check for commit
782:
783: IF l_msg_count > 0 THEN
784: X_msg_count := l_msg_count;
785: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
786: RAISE Fnd_Api.G_EXC_ERROR;
787: END IF;
788:
789: --Standard check for commit
790: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
786: RAISE Fnd_Api.G_EXC_ERROR;
787: END IF;
788:
789: --Standard check for commit
790: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
791: COMMIT;
792: END IF;
793: -- Debug info
794: IF G_DEBUG='Y' THEN
798: IF G_DEBUG='Y' THEN
799: Ahl_Debug_Pub.disable_debug;
800: END IF;
801: EXCEPTION
802: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
803: ROLLBACK TO create_simulation_plan;
804: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
805: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
806: p_count => x_msg_count,
800: END IF;
801: EXCEPTION
802: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
803: ROLLBACK TO create_simulation_plan;
804: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
805: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
806: p_count => x_msg_count,
807: p_data => x_msg_data);
808: IF G_DEBUG='Y' THEN
801: EXCEPTION
802: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
803: ROLLBACK TO create_simulation_plan;
804: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
805: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
806: p_count => x_msg_count,
807: p_data => x_msg_data);
808: IF G_DEBUG='Y' THEN
809:
812: AHL_DEBUG_PUB.debug( 'ahl_ltp_simul_plan_pvt.Create Simulation plan','+SMPLN+');
813: -- Check if API is called in debug mode. If yes, disable debug.
814: AHL_DEBUG_PUB.disable_debug;
815: END IF;
816: WHEN FND_API.G_EXC_ERROR THEN
817: ROLLBACK TO create_simulation_plan;
818: X_return_status := FND_API.G_RET_STS_ERROR;
819: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
820: p_count => x_msg_count,
814: AHL_DEBUG_PUB.disable_debug;
815: END IF;
816: WHEN FND_API.G_EXC_ERROR THEN
817: ROLLBACK TO create_simulation_plan;
818: X_return_status := FND_API.G_RET_STS_ERROR;
819: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
820: p_count => x_msg_count,
821: p_data => X_msg_data);
822: IF G_DEBUG='Y' THEN
815: END IF;
816: WHEN FND_API.G_EXC_ERROR THEN
817: ROLLBACK TO create_simulation_plan;
818: X_return_status := FND_API.G_RET_STS_ERROR;
819: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
820: p_count => x_msg_count,
821: p_data => X_msg_data);
822: IF G_DEBUG='Y' THEN
823: -- Debug info.
828: AHL_DEBUG_PUB.disable_debug;
829: END IF;
830: WHEN OTHERS THEN
831: ROLLBACK TO create_simulation_plan;
832: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
833: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
834: THEN
835: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
836: p_procedure_name => 'CREATE_SIMULATION_PLAN',
835: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
836: p_procedure_name => 'CREATE_SIMULATION_PLAN',
837: p_error_text => SUBSTR(SQLERRM,1,240));
838: END IF;
839: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
840: p_count => x_msg_count,
841: p_data => X_msg_data);
842: IF G_DEBUG='Y' THEN
843:
865: -- NOTES
866: --------------------------------------------------------------------
867: PROCEDURE Update_Simulation_plan (
868: p_api_version IN NUMBER,
869: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
870: p_commit IN VARCHAR2 := FND_API.g_false,
871: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
872: p_module_type IN VARCHAR2 := 'JSP',
873: p_simulation_plan_rec IN ahl_ltp_simul_plan_pub.Simulation_plan_Rec,
866: --------------------------------------------------------------------
867: PROCEDURE Update_Simulation_plan (
868: p_api_version IN NUMBER,
869: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
870: p_commit IN VARCHAR2 := FND_API.g_false,
871: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
872: p_module_type IN VARCHAR2 := 'JSP',
873: p_simulation_plan_rec IN ahl_ltp_simul_plan_pub.Simulation_plan_Rec,
874: x_return_status OUT NOCOPY VARCHAR2,
867: PROCEDURE Update_Simulation_plan (
868: p_api_version IN NUMBER,
869: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
870: p_commit IN VARCHAR2 := FND_API.g_false,
871: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
872: p_module_type IN VARCHAR2 := 'JSP',
873: p_simulation_plan_rec IN ahl_ltp_simul_plan_pub.Simulation_plan_Rec,
874: x_return_status OUT NOCOPY VARCHAR2,
875: x_msg_count OUT NOCOPY NUMBER,
910: IF G_DEBUG='Y' THEN
911: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.Update Simulation plan','+SMPNL+');
912: END IF;
913: -- Standard call to check for call compatibility.
914: IF FND_API.to_boolean(p_init_msg_list)
915: THEN
916: FND_MSG_PUB.initialize;
917: END IF;
918: -- Initialize API return status to success
915: THEN
916: FND_MSG_PUB.initialize;
917: END IF;
918: -- Initialize API return status to success
919: x_return_status := FND_API.G_RET_STS_SUCCESS;
920: -- Initialize message list if p_init_msg_list is set to TRUE.
921: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
922: p_api_version,
923: l_api_name,G_PKG_NAME)
917: END IF;
918: -- Initialize API return status to success
919: x_return_status := FND_API.G_RET_STS_SUCCESS;
920: -- Initialize message list if p_init_msg_list is set to TRUE.
921: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
922: p_api_version,
923: l_api_name,G_PKG_NAME)
924: THEN
925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
921: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
922: p_api_version,
923: l_api_name,G_PKG_NAME)
924: THEN
925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
926: END IF;
927:
928: --------------------Value OR ID conversion---------------------------
929: --Assign to local variable
933: --Start API Body
934:
935: -- Convert org name to organization id
936: IF (p_simulation_plan_rec.plan_name IS NOT NULL AND
937: p_simulation_plan_rec.plan_name <> FND_API.G_MISS_CHAR ) OR
938: (l_simulation_plan_rec.simulation_plan_id IS NOT NULL AND
939: l_simulation_plan_rec.simulation_plan_id <> FND_API.G_MISS_NUM) THEN
940:
941: Check_plan_name_Or_Id
935: -- Convert org name to organization id
936: IF (p_simulation_plan_rec.plan_name IS NOT NULL AND
937: p_simulation_plan_rec.plan_name <> FND_API.G_MISS_CHAR ) OR
938: (l_simulation_plan_rec.simulation_plan_id IS NOT NULL AND
939: l_simulation_plan_rec.simulation_plan_id <> FND_API.G_MISS_NUM) THEN
940:
941: Check_plan_name_Or_Id
942: (p_simulation_plan_id => l_simulation_plan_rec.simulation_plan_id,
943: p_plan_name => p_simulation_plan_rec.plan_name,
984: l_msg_count := Fnd_Msg_Pub.count_msg;
985:
986: IF l_msg_count > 0 THEN
987: X_msg_count := l_msg_count;
988: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
989: RAISE Fnd_Api.G_EXC_ERROR;
990: END IF;
991:
992: ----------------------------DML Operation---------------------------------
985:
986: IF l_msg_count > 0 THEN
987: X_msg_count := l_msg_count;
988: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
989: RAISE Fnd_Api.G_EXC_ERROR;
990: END IF;
991:
992: ----------------------------DML Operation---------------------------------
993: --Call table handler generated package to update a record
1026: l_msg_count := Fnd_Msg_Pub.count_msg;
1027:
1028: IF l_msg_count > 0 THEN
1029: X_msg_count := l_msg_count;
1030: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1031: RAISE Fnd_Api.G_EXC_ERROR;
1032: END IF;
1033:
1034: --Standard check for commit
1027:
1028: IF l_msg_count > 0 THEN
1029: X_msg_count := l_msg_count;
1030: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1031: RAISE Fnd_Api.G_EXC_ERROR;
1032: END IF;
1033:
1034: --Standard check for commit
1035: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1031: RAISE Fnd_Api.G_EXC_ERROR;
1032: END IF;
1033:
1034: --Standard check for commit
1035: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1036: COMMIT;
1037: END IF;
1038: -- Debug info
1039: IF G_DEBUG='Y' THEN
1041: -- Check if API is called in debug mode. If yes, disable debug.
1042: Ahl_Debug_Pub.disable_debug;
1043: END IF;
1044: EXCEPTION
1045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1046: ROLLBACK TO update_simulation_plan;
1047: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1048: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1049: p_count => x_msg_count,
1043: END IF;
1044: EXCEPTION
1045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1046: ROLLBACK TO update_simulation_plan;
1047: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1048: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1049: p_count => x_msg_count,
1050: p_data => x_msg_data);
1051: IF G_DEBUG='Y' THEN
1044: EXCEPTION
1045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1046: ROLLBACK TO update_simulation_plan;
1047: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1048: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1049: p_count => x_msg_count,
1050: p_data => x_msg_data);
1051: IF G_DEBUG='Y' THEN
1052:
1055: AHL_DEBUG_PUB.debug( 'ahl_ltp_simul_plan_pvt.Update Simulation plan','+SMPLN+');
1056: -- Check if API is called in debug mode. If yes, disable debug.
1057: AHL_DEBUG_PUB.disable_debug;
1058: END IF;
1059: WHEN FND_API.G_EXC_ERROR THEN
1060: ROLLBACK TO update_simulation_plan;
1061: X_return_status := FND_API.G_RET_STS_ERROR;
1062: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1063: p_count => x_msg_count,
1057: AHL_DEBUG_PUB.disable_debug;
1058: END IF;
1059: WHEN FND_API.G_EXC_ERROR THEN
1060: ROLLBACK TO update_simulation_plan;
1061: X_return_status := FND_API.G_RET_STS_ERROR;
1062: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1063: p_count => x_msg_count,
1064: p_data => X_msg_data);
1065: IF G_DEBUG='Y' THEN
1058: END IF;
1059: WHEN FND_API.G_EXC_ERROR THEN
1060: ROLLBACK TO update_simulation_plan;
1061: X_return_status := FND_API.G_RET_STS_ERROR;
1062: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1063: p_count => x_msg_count,
1064: p_data => X_msg_data);
1065: IF G_DEBUG='Y' THEN
1066:
1072: AHL_DEBUG_PUB.disable_debug;
1073: END IF;
1074: WHEN OTHERS THEN
1075: ROLLBACK TO update_simulation_plan;
1076: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1077: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1078: THEN
1079: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
1080: p_procedure_name => 'UPDATE_SIMULATION_PLAN',
1079: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
1080: p_procedure_name => 'UPDATE_SIMULATION_PLAN',
1081: p_error_text => SUBSTR(SQLERRM,1,240));
1082: END IF;
1083: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1084: p_count => x_msg_count,
1085: p_data => X_msg_data);
1086: IF G_DEBUG='Y' THEN
1087:
1110: -- 1. Raise exception if the object_version_number doesn't match.
1111: --------------------------------------------------------------------
1112: PROCEDURE Delete_Simulation_plan (
1113: p_api_version IN NUMBER,
1114: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1115: p_commit IN VARCHAR2 := FND_API.g_false,
1116: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1117: p_simulation_plan_rec IN ahl_ltp_simul_plan_pub.Simulation_plan_Rec,
1118: x_return_status OUT NOCOPY VARCHAR2,
1111: --------------------------------------------------------------------
1112: PROCEDURE Delete_Simulation_plan (
1113: p_api_version IN NUMBER,
1114: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1115: p_commit IN VARCHAR2 := FND_API.g_false,
1116: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1117: p_simulation_plan_rec IN ahl_ltp_simul_plan_pub.Simulation_plan_Rec,
1118: x_return_status OUT NOCOPY VARCHAR2,
1119: x_msg_count OUT NOCOPY NUMBER,
1112: PROCEDURE Delete_Simulation_plan (
1113: p_api_version IN NUMBER,
1114: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1115: p_commit IN VARCHAR2 := FND_API.g_false,
1116: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1117: p_simulation_plan_rec IN ahl_ltp_simul_plan_pub.Simulation_plan_Rec,
1118: x_return_status OUT NOCOPY VARCHAR2,
1119: x_msg_count OUT NOCOPY NUMBER,
1120: x_msg_data OUT NOCOPY VARCHAR2
1178: IF G_DEBUG='Y' THEN
1179: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.Delete Simulation plan','+SMPLN+');
1180: END IF;
1181: -- Standard call to check for call compatibility.
1182: IF FND_API.to_boolean(p_init_msg_list)
1183: THEN
1184: FND_MSG_PUB.initialize;
1185: END IF;
1186: -- Initialize API return status to success
1183: THEN
1184: FND_MSG_PUB.initialize;
1185: END IF;
1186: -- Initialize API return status to success
1187: x_return_status := FND_API.G_RET_STS_SUCCESS;
1188: -- Initialize message list if p_init_msg_list is set to TRUE.
1189: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1190: p_api_version,
1191: l_api_name,G_PKG_NAME)
1185: END IF;
1186: -- Initialize API return status to success
1187: x_return_status := FND_API.G_RET_STS_SUCCESS;
1188: -- Initialize message list if p_init_msg_list is set to TRUE.
1189: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1190: p_api_version,
1191: l_api_name,G_PKG_NAME)
1192: THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1189: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1190: p_api_version,
1191: l_api_name,G_PKG_NAME)
1192: THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: END IF;
1195: -----------------------Start of API Body-----------------------------
1196: -- Check for Record exists
1197: OPEN c_simulation_plan_cur(p_simulation_plan_rec.plan_id);
1203: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_NOT_FOUND');
1204: FND_MSG_PUB.add;
1205: END IF;
1206: CLOSE c_simulation_plan_cur;
1207: RAISE FND_API.g_exc_error;
1208: END IF;
1209: CLOSE c_simulation_plan_cur;
1210: --
1211: --Check for primary plan
1212: IF l_primary_plan_flag = 'Y'
1213: THEN
1214: FND_MESSAGE.set_name('AHL', 'AHL_LTP_PRIMARY_PLAN');
1215: FND_MSG_PUB.add;
1216: RAISE FND_API.g_exc_error;
1217: END IF;
1218:
1219: /* Added by mpothuku on 12/22/04 to delete the associated simulation visits.
1220: */
1225: EXIT WHEN get_simulation_visits_cur%NOTFOUND;
1226: IF l_visit_id IS NOT NULL THEN
1227: Remove_Visits_FR_Plan (
1228: p_api_version => p_api_version,
1229: p_init_msg_list => FND_API.g_false,--p_init_msg_list,
1230: p_commit => FND_API.g_false, --p_commit,
1231: p_validation_level => p_validation_level,
1232: p_module_type => null,
1233: p_visit_id => l_visit_id,
1226: IF l_visit_id IS NOT NULL THEN
1227: Remove_Visits_FR_Plan (
1228: p_api_version => p_api_version,
1229: p_init_msg_list => FND_API.g_false,--p_init_msg_list,
1230: p_commit => FND_API.g_false, --p_commit,
1231: p_validation_level => p_validation_level,
1232: p_module_type => null,
1233: p_visit_id => l_visit_id,
1234: p_plan_id => null,
1237: x_msg_count => l_msg_count,
1238: x_msg_data => l_msg_data);
1239:
1240: -- Check Error Message stack.
1241: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1242: l_msg_count := FND_MSG_PUB.count_msg;
1243: IF l_msg_count > 0 THEN
1244: RAISE FND_API.G_EXC_ERROR;
1245: END IF;
1240: -- Check Error Message stack.
1241: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1242: l_msg_count := FND_MSG_PUB.count_msg;
1243: IF l_msg_count > 0 THEN
1244: RAISE FND_API.G_EXC_ERROR;
1245: END IF;
1246: END IF;
1247: END IF; -- If Visit not null
1248: END LOOP;
1252: IF l_object_version_number <> p_simulation_plan_rec.object_version_number
1253: THEN
1254: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_CHANGED');
1255: FND_MSG_PUB.add;
1256: RAISE FND_API.g_exc_error;
1257: END IF;
1258: -------------------Call Table handler generated procedure------------
1259: AHL_SIMULATION_PLANS_PKG.DELETE_ROW (
1260: X_SIMULATION_PLAN_ID => l_simulation_plan_id
1264: l_msg_count := Fnd_Msg_Pub.count_msg;
1265:
1266: IF l_msg_count > 0 THEN
1267: X_msg_count := l_msg_count;
1268: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1269: RAISE Fnd_Api.G_EXC_ERROR;
1270: END IF;
1271:
1272: --Standard check for commit
1265:
1266: IF l_msg_count > 0 THEN
1267: X_msg_count := l_msg_count;
1268: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1269: RAISE Fnd_Api.G_EXC_ERROR;
1270: END IF;
1271:
1272: --Standard check for commit
1273: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1269: RAISE Fnd_Api.G_EXC_ERROR;
1270: END IF;
1271:
1272: --Standard check for commit
1273: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1274: COMMIT;
1275: END IF;
1276: -- Debug info
1277: IF G_DEBUG='Y' THEN
1281: IF G_DEBUG='Y' THEN
1282: Ahl_Debug_Pub.disable_debug;
1283: END IF;
1284: EXCEPTION
1285: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1286: ROLLBACK TO delete_simulation_plan;
1287: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1288: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1289: p_count => x_msg_count,
1283: END IF;
1284: EXCEPTION
1285: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1286: ROLLBACK TO delete_simulation_plan;
1287: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1288: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1289: p_count => x_msg_count,
1290: p_data => x_msg_data);
1291: IF G_DEBUG='Y' THEN
1284: EXCEPTION
1285: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1286: ROLLBACK TO delete_simulation_plan;
1287: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1288: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1289: p_count => x_msg_count,
1290: p_data => x_msg_data);
1291: IF G_DEBUG='Y' THEN
1292:
1295: AHL_DEBUG_PUB.debug( 'ahl_ltp_simul_plan_pvt.Delete Simulation plan','+SMPLN+');
1296: -- Check if API is called in debug mode. If yes, disable debug.
1297: AHL_DEBUG_PUB.disable_debug;
1298: END IF;
1299: WHEN FND_API.G_EXC_ERROR THEN
1300: ROLLBACK TO delete_simulation_plan;
1301: X_return_status := FND_API.G_RET_STS_ERROR;
1302: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1303: p_count => x_msg_count,
1297: AHL_DEBUG_PUB.disable_debug;
1298: END IF;
1299: WHEN FND_API.G_EXC_ERROR THEN
1300: ROLLBACK TO delete_simulation_plan;
1301: X_return_status := FND_API.G_RET_STS_ERROR;
1302: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1303: p_count => x_msg_count,
1304: p_data => X_msg_data);
1305: IF G_DEBUG='Y' THEN
1298: END IF;
1299: WHEN FND_API.G_EXC_ERROR THEN
1300: ROLLBACK TO delete_simulation_plan;
1301: X_return_status := FND_API.G_RET_STS_ERROR;
1302: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1303: p_count => x_msg_count,
1304: p_data => X_msg_data);
1305: IF G_DEBUG='Y' THEN
1306: -- Debug info.
1311: AHL_DEBUG_PUB.disable_debug;
1312: END IF;
1313: WHEN OTHERS THEN
1314: ROLLBACK TO delete_simulation_plan;
1315: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1316: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1317: THEN
1318: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
1319: p_procedure_name => 'DELETE_SIMULATION_PLAN',
1318: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
1319: p_procedure_name => 'DELETE_SIMULATION_PLAN',
1320: p_error_text => SUBSTR(SQLERRM,1,240));
1321: END IF;
1322: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1323: p_count => x_msg_count,
1324: p_data => X_msg_data);
1325: IF G_DEBUG='Y' THEN
1326:
1349: -- NOTES
1350: --------------------------------------------------------------------
1351: PROCEDURE Copy_Visits_To_Plan (
1352: p_api_version IN NUMBER,
1353: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1354: p_commit IN VARCHAR2 := FND_API.g_false,
1355: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1356: p_module_type IN VARCHAR2 := 'JSP',
1357: p_visit_id IN NUMBER ,
1350: --------------------------------------------------------------------
1351: PROCEDURE Copy_Visits_To_Plan (
1352: p_api_version IN NUMBER,
1353: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1354: p_commit IN VARCHAR2 := FND_API.g_false,
1355: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1356: p_module_type IN VARCHAR2 := 'JSP',
1357: p_visit_id IN NUMBER ,
1358: p_visit_number IN NUMBER ,
1351: PROCEDURE Copy_Visits_To_Plan (
1352: p_api_version IN NUMBER,
1353: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1354: p_commit IN VARCHAR2 := FND_API.g_false,
1355: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1356: p_module_type IN VARCHAR2 := 'JSP',
1357: p_visit_id IN NUMBER ,
1358: p_visit_number IN NUMBER ,
1359: p_plan_id IN NUMBER,
1729: -- Debug info.
1730: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.Copy Visits to Plan','+SMPNL+');
1731: END IF;
1732: -- Standard call to check for call compatibility.
1733: IF FND_API.to_boolean(p_init_msg_list)
1734: THEN
1735: FND_MSG_PUB.initialize;
1736: END IF;
1737: -- Initialize API return status to success
1734: THEN
1735: FND_MSG_PUB.initialize;
1736: END IF;
1737: -- Initialize API return status to success
1738: x_return_status := FND_API.G_RET_STS_SUCCESS;
1739: -- Initialize message list if p_init_msg_list is set to TRUE.
1740: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1741: p_api_version,
1742: l_api_name,G_PKG_NAME)
1736: END IF;
1737: -- Initialize API return status to success
1738: x_return_status := FND_API.G_RET_STS_SUCCESS;
1739: -- Initialize message list if p_init_msg_list is set to TRUE.
1740: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1741: p_api_version,
1742: l_api_name,G_PKG_NAME)
1743: THEN
1744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1740: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1741: p_api_version,
1742: l_api_name,G_PKG_NAME)
1743: THEN
1744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1745: END IF;
1746: IF G_DEBUG='Y' THEN
1747: AHL_DEBUG_PUB.debug( 'visit_id'||p_visit_id);
1748: AHL_DEBUG_PUB.debug( 'visit_number'||p_visit_number);
1749: END IF;
1750: ---------------------start API Body------------------------------------
1751: --
1752: IF (p_visit_number IS NOT NULL AND
1753: p_visit_number <> FND_API.G_MISS_NUM) THEN
1754: --
1755: OPEN get_visit_id_cur(p_visit_number);
1756: FETCH get_visit_id_cur INTO l_pvisit_id, l_primary_visit_id;
1757: IF get_visit_id_cur%NOTFOUND THEN
1757: IF get_visit_id_cur%NOTFOUND THEN
1758: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_VISIT_NUMBER');
1759: Fnd_Msg_Pub.ADD;
1760: CLOSE get_visit_id_cur;
1761: RAISE Fnd_Api.G_EXC_ERROR;
1762: --
1763: END IF;
1764: CLOSE get_visit_id_cur;
1765: END IF;
1769: AHL_DEBUG_PUB.debug( 'visit_number'||l_primary_visit_id);
1770: END IF;
1771: --
1772: IF (p_visit_id IS NOT NULL AND
1773: p_visit_id <> FND_API.G_MISS_NUM) THEN
1774: OPEN get_visit_num_cur(p_visit_id);
1775: FETCH get_visit_num_cur INTO l_pvisit_id, l_primary_visit_id;
1776: IF get_visit_num_cur%NOTFOUND THEN
1777: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_VISIT_NUMBER');
1776: IF get_visit_num_cur%NOTFOUND THEN
1777: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_VISIT_NUMBER');
1778: Fnd_Msg_Pub.ADD;
1779: CLOSE get_visit_num_cur;
1780: RAISE Fnd_Api.G_EXC_ERROR;
1781: END IF;
1782: CLOSE get_visit_num_cur;
1783: END IF;
1784: --
1783: END IF;
1784: --
1785: --Get simulation plan id
1786: IF (p_plan_id IS NOT NULL AND
1787: p_plan_id <> FND_API.G_MISS_NUM) THEN
1788: SELECT simulation_plan_id,primary_plan_flag
1789: INTO l_simulation_plan_id, l_plan_flag
1790: FROM AHL_SIMULATION_PLANS_VL
1791: WHERE simulation_plan_id = p_plan_id;
1791: WHERE simulation_plan_id = p_plan_id;
1792: ELSE
1793: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_SIMUL_NAME');
1794: Fnd_Msg_Pub.ADD;
1795: RAISE Fnd_Api.G_EXC_ERROR;
1796: END IF;
1797: --Check for copying to priamry plan
1798: IF l_plan_flag = 'Y' THEN
1799: Fnd_message.SET_NAME('AHL','AHL_LTP_NO_COPY_PRIM_PLAN');
1797: --Check for copying to priamry plan
1798: IF l_plan_flag = 'Y' THEN
1799: Fnd_message.SET_NAME('AHL','AHL_LTP_NO_COPY_PRIM_PLAN');
1800: Fnd_Msg_Pub.ADD;
1801: RAISE Fnd_Api.G_EXC_ERROR;
1802: END IF;
1803: --
1804: OPEN visit_detail_cur(l_pvisit_id);
1805: FETCH visit_detail_cur INTO l_visit_detail_rec;
1809: IF l_visit_detail_rec.visit_id = l_pvisit_id THEN
1810: IF l_visit_detail_rec.simulation_plan_id = p_plan_id THEN
1811: Fnd_message.SET_NAME('AHL','AHL_LTP_RECORD_EXISTS');
1812: Fnd_Msg_Pub.ADD;
1813: RAISE Fnd_Api.G_EXC_ERROR;
1814: END IF;
1815: END IF;
1816:
1817: --Check for Object version number
1814: END IF;
1815: END IF;
1816:
1817: --Check for Object version number
1818: IF (p_v_ovn IS NOT NULL AND p_v_ovn <> FND_API.G_MISS_NUM )
1819: THEN
1820: IF p_v_ovn <> l_visit_detail_rec.object_version_number THEN
1821: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_VISIT_RECORD');
1822: Fnd_Msg_Pub.ADD;
1819: THEN
1820: IF p_v_ovn <> l_visit_detail_rec.object_version_number THEN
1821: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_VISIT_RECORD');
1822: Fnd_Msg_Pub.ADD;
1823: RAISE Fnd_Api.G_EXC_ERROR;
1824: END IF;
1825: END IF;
1826: --
1827: SELECT object_version_number INTO l_plan_ovn_number FROM
1826: --
1827: SELECT object_version_number INTO l_plan_ovn_number FROM
1828: AHL_SIMULATION_PLANS_VL WHERE simulation_plan_id = p_plan_id;
1829: --Check for plan object version number
1830: IF (p_p_ovn IS NOT NULL AND p_p_ovn <> FND_API.G_MISS_NUM )
1831: THEN
1832: IF p_p_ovn <> l_plan_ovn_number THEN
1833: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_PLAN_RECORD');
1834: Fnd_Msg_Pub.ADD;
1831: THEN
1832: IF p_p_ovn <> l_plan_ovn_number THEN
1833: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_PLAN_RECORD');
1834: Fnd_Msg_Pub.ADD;
1835: RAISE Fnd_Api.G_EXC_ERROR;
1836: END IF;
1837: END IF;
1838: --Check for duplicate records
1839: OPEN check_visit_exist_cur(p_plan_id,l_pvisit_id,l_primary_visit_id);
1842: --
1843: IF l_dup_id IS NOT NULL THEN
1844: Fnd_message.SET_NAME('AHL','AHL_LTP_VISIT_NUMBER_EXISTS');
1845: Fnd_Msg_Pub.ADD;
1846: RAISE Fnd_Api.G_EXC_ERROR;
1847: END IF;
1848: IF G_DEBUG='Y' THEN
1849: AHL_DEBUG_PUB.debug( 'plan_id'||p_plan_id);
1850: AHL_DEBUG_PUB.debug( 'visit_id'||l_pvisit_id);
2078: FETCH get_visit_number INTO l_asso_prim_visit_number;
2079: CLOSE get_visit_number;
2080:
2081:
2082: x_return_status := Fnd_Api.g_ret_sts_error;
2083:
2084: /*
2085: Fnd_Message.SET_NAME('AHL','AHL_LTP_SIM_VISIT_UNIT_FOUND');
2086: Fnd_Message.SET_TOKEN('UE_TITLE', l_ue_details_rec.ue_title);
2095:
2096: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
2097: Fnd_Message.SET_TOKEN('VISIT2', l_asso_prim_visit_number);
2098: Fnd_Msg_Pub.ADD;
2099: RAISE Fnd_Api.G_EXC_ERROR;
2100: ELSE
2101: CLOSE chk_unit_effectivities;
2102: END IF;
2103: END IF;
2374: l_msg_count := Fnd_Msg_Pub.count_msg;
2375:
2376: IF l_msg_count > 0 THEN
2377: X_msg_count := l_msg_count;
2378: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2379: RAISE Fnd_Api.G_EXC_ERROR;
2380: END IF;
2381:
2382: --Standard check for commit
2375:
2376: IF l_msg_count > 0 THEN
2377: X_msg_count := l_msg_count;
2378: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2379: RAISE Fnd_Api.G_EXC_ERROR;
2380: END IF;
2381:
2382: --Standard check for commit
2383: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2379: RAISE Fnd_Api.G_EXC_ERROR;
2380: END IF;
2381:
2382: --Standard check for commit
2383: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2384: COMMIT;
2385: END IF;
2386: -- Debug info
2387: IF G_DEBUG='Y' THEN
2390: Ahl_Debug_Pub.disable_debug;
2391: END IF;
2392:
2393: EXCEPTION
2394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2395: ROLLBACK TO copy_visits_to_plan;
2396: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2397: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2398: p_count => x_msg_count,
2392:
2393: EXCEPTION
2394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2395: ROLLBACK TO copy_visits_to_plan;
2396: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2397: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2398: p_count => x_msg_count,
2399: p_data => x_msg_data);
2400: IF G_DEBUG='Y' THEN
2393: EXCEPTION
2394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2395: ROLLBACK TO copy_visits_to_plan;
2396: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2397: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2398: p_count => x_msg_count,
2399: p_data => x_msg_data);
2400: IF G_DEBUG='Y' THEN
2401:
2405: -- Check if API is called in debug mode. If yes, disable debug.
2406: AHL_DEBUG_PUB.disable_debug;
2407: END IF;
2408:
2409: WHEN FND_API.G_EXC_ERROR THEN
2410: ROLLBACK TO copy_visits_to_plan;
2411: X_return_status := FND_API.G_RET_STS_ERROR;
2412: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2413: p_count => x_msg_count,
2407: END IF;
2408:
2409: WHEN FND_API.G_EXC_ERROR THEN
2410: ROLLBACK TO copy_visits_to_plan;
2411: X_return_status := FND_API.G_RET_STS_ERROR;
2412: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2413: p_count => x_msg_count,
2414: p_data => X_msg_data);
2415: IF G_DEBUG='Y' THEN
2408:
2409: WHEN FND_API.G_EXC_ERROR THEN
2410: ROLLBACK TO copy_visits_to_plan;
2411: X_return_status := FND_API.G_RET_STS_ERROR;
2412: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2413: p_count => x_msg_count,
2414: p_data => X_msg_data);
2415: IF G_DEBUG='Y' THEN
2416:
2423: END IF;
2424:
2425: WHEN OTHERS THEN
2426: ROLLBACK TO copy_visits_to_plan;
2427: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2428: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2429: THEN
2430: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2431: p_procedure_name => 'COPY_VISITS_TO_PLAN',
2430: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2431: p_procedure_name => 'COPY_VISITS_TO_PLAN',
2432: p_error_text => SUBSTR(SQLERRM,1,240));
2433: END IF;
2434: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2435: p_count => x_msg_count,
2436: p_data => X_msg_data);
2437: IF G_DEBUG='Y' THEN
2438:
2461: -- NOTES
2462: --------------------------------------------------------------------
2463: PROCEDURE Remove_Visits_FR_Plan (
2464: p_api_version IN NUMBER,
2465: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2466: p_commit IN VARCHAR2 := FND_API.g_false,
2467: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2468: p_module_type IN VARCHAR2 := 'JSP',
2469: p_visit_id IN NUMBER,
2462: --------------------------------------------------------------------
2463: PROCEDURE Remove_Visits_FR_Plan (
2464: p_api_version IN NUMBER,
2465: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2466: p_commit IN VARCHAR2 := FND_API.g_false,
2467: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2468: p_module_type IN VARCHAR2 := 'JSP',
2469: p_visit_id IN NUMBER,
2470: p_plan_id IN NUMBER,
2463: PROCEDURE Remove_Visits_FR_Plan (
2464: p_api_version IN NUMBER,
2465: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2466: p_commit IN VARCHAR2 := FND_API.g_false,
2467: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2468: p_module_type IN VARCHAR2 := 'JSP',
2469: p_visit_id IN NUMBER,
2470: p_plan_id IN NUMBER,
2471: p_v_ovn IN NUMBER,
2533: IF G_DEBUG='Y' THEN
2534: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.Remove Visits from Plan','+SMPNL+');
2535: END IF;
2536: -- Standard call to check for call compatibility.
2537: IF FND_API.to_boolean(p_init_msg_list)
2538: THEN
2539: FND_MSG_PUB.initialize;
2540: END IF;
2541: -- Initialize API return status to success
2538: THEN
2539: FND_MSG_PUB.initialize;
2540: END IF;
2541: -- Initialize API return status to success
2542: x_return_status := FND_API.G_RET_STS_SUCCESS;
2543: -- Initialize message list if p_init_msg_list is set to TRUE.
2544: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2545: p_api_version,
2546: l_api_name,G_PKG_NAME)
2540: END IF;
2541: -- Initialize API return status to success
2542: x_return_status := FND_API.G_RET_STS_SUCCESS;
2543: -- Initialize message list if p_init_msg_list is set to TRUE.
2544: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2545: p_api_version,
2546: l_api_name,G_PKG_NAME)
2547: THEN
2548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2544: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2545: p_api_version,
2546: l_api_name,G_PKG_NAME)
2547: THEN
2548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2549: END IF;
2550:
2551: ---------------------start API Body------------------------------------
2552: --Remove tasks
2606: IF(l_delete_unit_effectivity_tbl(ue_count) is not null) THEN
2607: AHL_UMP_UNPLANNED_PVT.DELETE_UNIT_EFFECTIVITY
2608: (
2609: P_API_VERSION => p_api_version,
2610: p_init_msg_list => FND_API.G_FALSE,
2611: p_commit => FND_API.G_FALSE,
2612:
2613: X_RETURN_STATUS => l_return_status,
2614: X_MSG_COUNT => l_msg_count,
2607: AHL_UMP_UNPLANNED_PVT.DELETE_UNIT_EFFECTIVITY
2608: (
2609: P_API_VERSION => p_api_version,
2610: p_init_msg_list => FND_API.G_FALSE,
2611: p_commit => FND_API.G_FALSE,
2612:
2613: X_RETURN_STATUS => l_return_status,
2614: X_MSG_COUNT => l_msg_count,
2615: X_MSG_DATA => l_msg_data,
2624: 'After Calling ahl Ump Unplanned Pvt status : '|| l_return_status
2625: );
2626: END IF;
2627:
2628: IF (l_msg_count > 0) OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2629: x_return_status := FND_API.G_RET_STS_ERROR;
2630: RAISE FND_API.G_EXC_ERROR;
2631: END IF;
2632: END IF;
2625: );
2626: END IF;
2627:
2628: IF (l_msg_count > 0) OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2629: x_return_status := FND_API.G_RET_STS_ERROR;
2630: RAISE FND_API.G_EXC_ERROR;
2631: END IF;
2632: END IF;
2633: END LOOP;
2626: END IF;
2627:
2628: IF (l_msg_count > 0) OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2629: x_return_status := FND_API.G_RET_STS_ERROR;
2630: RAISE FND_API.G_EXC_ERROR;
2631: END IF;
2632: END IF;
2633: END LOOP;
2634: END IF;
2681: -- Removing planned materials for the visit
2682: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
2683: (
2684: p_api_version => p_api_version,
2685: p_init_msg_list => Fnd_Api.G_FALSE,
2686: p_commit => Fnd_Api.G_FALSE,
2687: p_visit_id => p_visit_id,
2688: p_visit_task_id => NULL,
2689: p_org_id => NULL,
2682: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
2683: (
2684: p_api_version => p_api_version,
2685: p_init_msg_list => Fnd_Api.G_FALSE,
2686: p_commit => Fnd_Api.G_FALSE,
2687: p_visit_id => p_visit_id,
2688: p_visit_task_id => NULL,
2689: p_org_id => NULL,
2690: p_start_date => NULL,
2695: x_msg_count => l_msg_count,
2696: x_msg_data => l_msg_data
2697: );
2698:
2699: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2700: CLOSE c_Material;
2701: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2702: END IF;
2703:
2697: );
2698:
2699: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2700: CLOSE c_Material;
2701: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2702: END IF;
2703:
2704: END IF;
2705: CLOSE c_Material;
2714: l_msg_count := Fnd_Msg_Pub.count_msg;
2715:
2716: IF l_msg_count > 0 THEN
2717: X_msg_count := l_msg_count;
2718: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2719: RAISE Fnd_Api.G_EXC_ERROR;
2720: END IF;
2721:
2722: --Standard check for commit
2715:
2716: IF l_msg_count > 0 THEN
2717: X_msg_count := l_msg_count;
2718: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2719: RAISE Fnd_Api.G_EXC_ERROR;
2720: END IF;
2721:
2722: --Standard check for commit
2723: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2719: RAISE Fnd_Api.G_EXC_ERROR;
2720: END IF;
2721:
2722: --Standard check for commit
2723: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2724: COMMIT;
2725: END IF;
2726: IF G_DEBUG='Y' THEN
2727: -- Debug info
2730: Ahl_Debug_Pub.disable_debug;
2731: END IF;
2732:
2733: EXCEPTION
2734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2735: ROLLBACK TO remove_visits_fr_plan;
2736: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2737: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2738: p_count => x_msg_count,
2732:
2733: EXCEPTION
2734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2735: ROLLBACK TO remove_visits_fr_plan;
2736: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2737: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2738: p_count => x_msg_count,
2739: p_data => x_msg_data);
2740: IF G_DEBUG='Y' THEN
2733: EXCEPTION
2734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2735: ROLLBACK TO remove_visits_fr_plan;
2736: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2737: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2738: p_count => x_msg_count,
2739: p_data => x_msg_data);
2740: IF G_DEBUG='Y' THEN
2741:
2745: -- Check if API is called in debug mode. If yes, disable debug.
2746: AHL_DEBUG_PUB.disable_debug;
2747: END IF;
2748:
2749: WHEN FND_API.G_EXC_ERROR THEN
2750: ROLLBACK TO remove_visits_fr_plan;
2751: X_return_status := FND_API.G_RET_STS_ERROR;
2752: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2753: p_count => x_msg_count,
2747: END IF;
2748:
2749: WHEN FND_API.G_EXC_ERROR THEN
2750: ROLLBACK TO remove_visits_fr_plan;
2751: X_return_status := FND_API.G_RET_STS_ERROR;
2752: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2753: p_count => x_msg_count,
2754: p_data => X_msg_data);
2755: IF G_DEBUG='Y' THEN
2748:
2749: WHEN FND_API.G_EXC_ERROR THEN
2750: ROLLBACK TO remove_visits_fr_plan;
2751: X_return_status := FND_API.G_RET_STS_ERROR;
2752: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2753: p_count => x_msg_count,
2754: p_data => X_msg_data);
2755: IF G_DEBUG='Y' THEN
2756:
2763: END IF;
2764:
2765: WHEN OTHERS THEN
2766: ROLLBACK TO remove_visits_fr_plan;
2767: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2768: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2769: THEN
2770: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2771: p_procedure_name => 'REMOVE_VISITS_FR_PLAN',
2770: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2771: p_procedure_name => 'REMOVE_VISITS_FR_PLAN',
2772: p_error_text => SUBSTR(SQLERRM,1,240));
2773: END IF;
2774: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2775: p_count => x_msg_count,
2776: p_data => X_msg_data);
2777: IF G_DEBUG='Y' THEN
2778:
2801: -- NOTES
2802: --------------------------------------------------------------------
2803: PROCEDURE Toggle_Simulation_Delete (
2804: p_api_version IN NUMBER,
2805: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2806: p_commit IN VARCHAR2 := FND_API.g_false,
2807: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2808: p_module_type IN VARCHAR2 := 'JSP',
2809: p_visit_id IN NUMBER,
2802: --------------------------------------------------------------------
2803: PROCEDURE Toggle_Simulation_Delete (
2804: p_api_version IN NUMBER,
2805: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2806: p_commit IN VARCHAR2 := FND_API.g_false,
2807: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2808: p_module_type IN VARCHAR2 := 'JSP',
2809: p_visit_id IN NUMBER,
2810: p_visit_object_version_number IN NUMBER,
2803: PROCEDURE Toggle_Simulation_Delete (
2804: p_api_version IN NUMBER,
2805: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2806: p_commit IN VARCHAR2 := FND_API.g_false,
2807: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2808: p_module_type IN VARCHAR2 := 'JSP',
2809: p_visit_id IN NUMBER,
2810: p_visit_object_version_number IN NUMBER,
2811: x_return_status OUT NOCOPY VARCHAR2,
2839: -- Debug info.
2840: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.toggle simulation delete','+SMPNL+');
2841: END IF;
2842: -- Standard call to check for call compatibility.
2843: IF FND_API.to_boolean(p_init_msg_list)
2844: THEN
2845: FND_MSG_PUB.initialize;
2846: END IF;
2847: -- Initialize API return status to success
2844: THEN
2845: FND_MSG_PUB.initialize;
2846: END IF;
2847: -- Initialize API return status to success
2848: x_return_status := FND_API.G_RET_STS_SUCCESS;
2849: -- Initialize message list if p_init_msg_list is set to TRUE.
2850: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2851: p_api_version,
2852: l_api_name,G_PKG_NAME)
2846: END IF;
2847: -- Initialize API return status to success
2848: x_return_status := FND_API.G_RET_STS_SUCCESS;
2849: -- Initialize message list if p_init_msg_list is set to TRUE.
2850: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2851: p_api_version,
2852: l_api_name,G_PKG_NAME)
2853: THEN
2854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2850: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2851: p_api_version,
2852: l_api_name,G_PKG_NAME)
2853: THEN
2854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2855: END IF;
2856:
2857: ---------------------start API Body----------------------------------------
2858: -- Check for Visit ID
2893: l_msg_count := Fnd_Msg_Pub.count_msg;
2894:
2895: IF l_msg_count > 0 THEN
2896: X_msg_count := l_msg_count;
2897: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2898: RAISE Fnd_Api.G_EXC_ERROR;
2899: END IF;
2900:
2901: --Standard check for commit
2894:
2895: IF l_msg_count > 0 THEN
2896: X_msg_count := l_msg_count;
2897: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2898: RAISE Fnd_Api.G_EXC_ERROR;
2899: END IF;
2900:
2901: --Standard check for commit
2902: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2898: RAISE Fnd_Api.G_EXC_ERROR;
2899: END IF;
2900:
2901: --Standard check for commit
2902: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2903: COMMIT;
2904: END IF;
2905: IF G_DEBUG='Y' THEN
2906: -- Debug info
2909: Ahl_Debug_Pub.disable_debug;
2910: END IF;
2911:
2912: EXCEPTION
2913: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2914: ROLLBACK TO toggle_simulation_delete;
2915: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2916: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2917: p_count => x_msg_count,
2911:
2912: EXCEPTION
2913: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2914: ROLLBACK TO toggle_simulation_delete;
2915: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2916: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2917: p_count => x_msg_count,
2918: p_data => x_msg_data);
2919: IF G_DEBUG='Y' THEN
2912: EXCEPTION
2913: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2914: ROLLBACK TO toggle_simulation_delete;
2915: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2916: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2917: p_count => x_msg_count,
2918: p_data => x_msg_data);
2919: IF G_DEBUG='Y' THEN
2920:
2926: -- Check if API is called in debug mode. If yes, disable debug.
2927: AHL_DEBUG_PUB.disable_debug;
2928: END IF;
2929:
2930: WHEN FND_API.G_EXC_ERROR THEN
2931: ROLLBACK TO toggle_simulation_delete;
2932: X_return_status := FND_API.G_RET_STS_ERROR;
2933: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2934: p_count => x_msg_count,
2928: END IF;
2929:
2930: WHEN FND_API.G_EXC_ERROR THEN
2931: ROLLBACK TO toggle_simulation_delete;
2932: X_return_status := FND_API.G_RET_STS_ERROR;
2933: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2934: p_count => x_msg_count,
2935: p_data => X_msg_data);
2936: IF G_DEBUG='Y' THEN
2929:
2930: WHEN FND_API.G_EXC_ERROR THEN
2931: ROLLBACK TO toggle_simulation_delete;
2932: X_return_status := FND_API.G_RET_STS_ERROR;
2933: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2934: p_count => x_msg_count,
2935: p_data => X_msg_data);
2936: IF G_DEBUG='Y' THEN
2937:
2946: END IF;
2947:
2948: WHEN OTHERS THEN
2949: ROLLBACK TO toggle_simulation_delete;
2950: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2951: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2952: THEN
2953: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2954: p_procedure_name => 'TOGGLE_SIMULATION_DELETE',
2953: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2954: p_procedure_name => 'TOGGLE_SIMULATION_DELETE',
2955: p_error_text => SUBSTR(SQLERRM,1,240));
2956: END IF;
2957: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2958: p_count => x_msg_count,
2959: p_data => X_msg_data);
2960: IF G_DEBUG='Y' THEN
2961:
2985: -- NOTES
2986: --------------------------------------------------------------------
2987: PROCEDURE Set_Plan_As_Primary (
2988: p_api_version IN NUMBER,
2989: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2990: p_commit IN VARCHAR2 := FND_API.g_false,
2991: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2992: p_module_type IN VARCHAR2 := 'JSP',
2993: p_plan_id IN NUMBER,
2986: --------------------------------------------------------------------
2987: PROCEDURE Set_Plan_As_Primary (
2988: p_api_version IN NUMBER,
2989: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2990: p_commit IN VARCHAR2 := FND_API.g_false,
2991: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2992: p_module_type IN VARCHAR2 := 'JSP',
2993: p_plan_id IN NUMBER,
2994: p_object_version_number IN NUMBER,
2987: PROCEDURE Set_Plan_As_Primary (
2988: p_api_version IN NUMBER,
2989: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2990: p_commit IN VARCHAR2 := FND_API.g_false,
2991: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2992: p_module_type IN VARCHAR2 := 'JSP',
2993: p_plan_id IN NUMBER,
2994: p_object_version_number IN NUMBER,
2995: x_return_status OUT NOCOPY VARCHAR2,
3039: IF G_DEBUG='Y' THEN
3040: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.set plan as primary','+SMPNL+');
3041: END IF;
3042: -- Standard call to check for call compatibility.
3043: IF FND_API.to_boolean(p_init_msg_list)
3044: THEN
3045: FND_MSG_PUB.initialize;
3046: END IF;
3047: -- Initialize API return status to success
3044: THEN
3045: FND_MSG_PUB.initialize;
3046: END IF;
3047: -- Initialize API return status to success
3048: x_return_status := FND_API.G_RET_STS_SUCCESS;
3049: -- Initialize message list if p_init_msg_list is set to TRUE.
3050: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
3051: p_api_version,
3052: l_api_name,G_PKG_NAME)
3046: END IF;
3047: -- Initialize API return status to success
3048: x_return_status := FND_API.G_RET_STS_SUCCESS;
3049: -- Initialize message list if p_init_msg_list is set to TRUE.
3050: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
3051: p_api_version,
3052: l_api_name,G_PKG_NAME)
3053: THEN
3054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3050: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
3051: p_api_version,
3052: l_api_name,G_PKG_NAME)
3053: THEN
3054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3055: END IF;
3056:
3057: ---------------------start API Body----------------------------------------
3058: IF p_plan_id IS NULL AND p_plan_id <> FND_API.G_MISS_NUM THEN
3054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3055: END IF;
3056:
3057: ---------------------start API Body----------------------------------------
3058: IF p_plan_id IS NULL AND p_plan_id <> FND_API.G_MISS_NUM THEN
3059: OPEN plan_cur(p_plan_id);
3060: FETCH plan_cur INTO l_simulation_plan_id,
3061: l_object_version_number,
3062: l_primary_plan_flag;
3072: IF check_visit_cur%NOTFOUND THEN
3073: Fnd_message.SET_NAME('AHL','AHL_LTP_SIMULATION_NO_VISITS');
3074: Fnd_Msg_Pub.ADD;
3075: CLOSE check_visit_cur;
3076: RAISE Fnd_Api.G_EXC_ERROR;
3077: END IF;
3078: CLOSE check_visit_cur;
3079: --
3080: --Check for Record change
3082: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_PLAN_RECORD');
3083: Fnd_Msg_Pub.ADD;
3084: END IF;
3085: --Get all the simulated visits
3086: IF p_plan_id IS NOT NULL AND p_plan_id <> FND_API.G_MISS_NUM
3087: THEN
3088:
3089: OPEN visit_detail_cur(p_plan_id);
3090: LOOP
3093: EXIT WHEN visit_detail_cur%NOTFOUND;
3094: --Call set visit as primary
3095: Set_Visit_As_Primary
3096: ( p_api_version => p_api_version,
3097: p_init_msg_list => FND_API.G_FALSE,--p_init_msg_list,
3098: p_commit => FND_API.G_FALSE, --p_commit,
3099: p_validation_level => p_validation_level,
3100: p_module_type => p_module_type,
3101: p_visit_id => l_visit_id,
3094: --Call set visit as primary
3095: Set_Visit_As_Primary
3096: ( p_api_version => p_api_version,
3097: p_init_msg_list => FND_API.G_FALSE,--p_init_msg_list,
3098: p_commit => FND_API.G_FALSE, --p_commit,
3099: p_validation_level => p_validation_level,
3100: p_module_type => p_module_type,
3101: p_visit_id => l_visit_id,
3102: p_plan_id => p_plan_id,
3119: l_msg_count := Fnd_Msg_Pub.count_msg;
3120:
3121: IF l_msg_count > 0 THEN
3122: X_msg_count := l_msg_count;
3123: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3124: RAISE Fnd_Api.G_EXC_ERROR;
3125: END IF;
3126:
3127: --Standard check for commit
3120:
3121: IF l_msg_count > 0 THEN
3122: X_msg_count := l_msg_count;
3123: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3124: RAISE Fnd_Api.G_EXC_ERROR;
3125: END IF;
3126:
3127: --Standard check for commit
3128: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3124: RAISE Fnd_Api.G_EXC_ERROR;
3125: END IF;
3126:
3127: --Standard check for commit
3128: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3129: COMMIT;
3130: END IF;
3131: -- Debug info
3132: IF G_DEBUG='Y' THEN
3135: Ahl_Debug_Pub.disable_debug;
3136: END IF;
3137:
3138: EXCEPTION
3139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3140: ROLLBACK TO toggle_simulation_delete;
3141: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3142: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3143: p_count => x_msg_count,
3137:
3138: EXCEPTION
3139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3140: ROLLBACK TO toggle_simulation_delete;
3141: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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: IF G_DEBUG='Y' THEN
3138: EXCEPTION
3139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3140: ROLLBACK TO toggle_simulation_delete;
3141: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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: IF G_DEBUG='Y' THEN
3146:
3150: -- Check if API is called in debug mode. If yes, disable debug.
3151: AHL_DEBUG_PUB.disable_debug;
3152: END IF;
3153:
3154: WHEN FND_API.G_EXC_ERROR THEN
3155: ROLLBACK TO set_plan_as_primary;
3156: X_return_status := FND_API.G_RET_STS_ERROR;
3157: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3158: p_count => x_msg_count,
3152: END IF;
3153:
3154: WHEN FND_API.G_EXC_ERROR THEN
3155: ROLLBACK TO set_plan_as_primary;
3156: X_return_status := FND_API.G_RET_STS_ERROR;
3157: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3158: p_count => x_msg_count,
3159: p_data => X_msg_data);
3160: IF G_DEBUG='Y' THEN
3153:
3154: WHEN FND_API.G_EXC_ERROR THEN
3155: ROLLBACK TO set_plan_as_primary;
3156: X_return_status := FND_API.G_RET_STS_ERROR;
3157: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3158: p_count => x_msg_count,
3159: p_data => X_msg_data);
3160: IF G_DEBUG='Y' THEN
3161:
3167: AHL_DEBUG_PUB.disable_debug;
3168: END IF;
3169: WHEN OTHERS THEN
3170: ROLLBACK TO set_plan_as_primary;
3171: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3172: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3173: THEN
3174: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
3175: p_procedure_name => 'SET_PLAN_AS_PRIMARY',
3174: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
3175: p_procedure_name => 'SET_PLAN_AS_PRIMARY',
3176: p_error_text => SUBSTR(SQLERRM,1,240));
3177: END IF;
3178: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3179: p_count => x_msg_count,
3180: p_data => X_msg_data);
3181:
3182: -- Debug info.
3203: -- NOTES
3204: --------------------------------------------------------------------
3205: PROCEDURE Set_Visit_As_Primary (
3206: p_api_version IN NUMBER,
3207: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3208: p_commit IN VARCHAR2 := FND_API.g_false,
3209: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
3210: p_module_type IN VARCHAR2 := 'JSP',
3211: p_visit_id IN NUMBER,
3204: --------------------------------------------------------------------
3205: PROCEDURE Set_Visit_As_Primary (
3206: p_api_version IN NUMBER,
3207: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3208: p_commit IN VARCHAR2 := FND_API.g_false,
3209: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
3210: p_module_type IN VARCHAR2 := 'JSP',
3211: p_visit_id IN NUMBER,
3212: p_plan_id IN NUMBER,
3205: PROCEDURE Set_Visit_As_Primary (
3206: p_api_version IN NUMBER,
3207: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3208: p_commit IN VARCHAR2 := FND_API.g_false,
3209: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
3210: p_module_type IN VARCHAR2 := 'JSP',
3211: p_visit_id IN NUMBER,
3212: p_plan_id IN NUMBER,
3213: p_object_version_number IN NUMBER,
3642: IF G_DEBUG='Y' THEN
3643: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.set visit as primary','+SMPNL+');
3644: END IF;
3645: -- Standard call to check for call compatibility.
3646: IF FND_API.to_boolean(p_init_msg_list)
3647: THEN
3648: FND_MSG_PUB.initialize;
3649: END IF;
3650: -- Initialize API return status to success
3647: THEN
3648: FND_MSG_PUB.initialize;
3649: END IF;
3650: -- Initialize API return status to success
3651: x_return_status := FND_API.G_RET_STS_SUCCESS;
3652: -- Initialize message list if p_init_msg_list is set to TRUE.
3653: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
3654: p_api_version,
3655: l_api_name,G_PKG_NAME)
3649: END IF;
3650: -- Initialize API return status to success
3651: x_return_status := FND_API.G_RET_STS_SUCCESS;
3652: -- Initialize message list if p_init_msg_list is set to TRUE.
3653: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
3654: p_api_version,
3655: l_api_name,G_PKG_NAME)
3656: THEN
3657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3653: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
3654: p_api_version,
3655: l_api_name,G_PKG_NAME)
3656: THEN
3657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3658: END IF;
3659:
3660: ---------------------start API Body----------------------------------------
3661: --Check for simulation plan is primary
3665: --
3666: IF l_primary_plan_id IS NOT NULL THEN
3667: Fnd_message.SET_NAME('AHL','AHL_LTP_PRIMARY_PLAN');
3668: Fnd_Msg_Pub.ADD;
3669: RAISE Fnd_Api.G_EXC_ERROR;
3670: END IF;
3671: --Check for visit belongs to simulation plan
3672: SELECT simulation_plan_id,
3673: primary_plan_flag,
3679: --
3680: IF l_simulation_plan_id IS NULL THEN
3681: Fnd_message.SET_NAME('AHL','AHL_LTP_PRIMARY_PLAN');
3682: Fnd_Msg_Pub.ADD;
3683: RAISE Fnd_Api.G_EXC_ERROR;
3684: END IF;
3685:
3686: --Check for simulation plan
3687: OPEN simul_visit_cur(p_visit_id,p_plan_id);
3689: IF simul_visit_cur%NOTFOUND THEN
3690: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_RECORD');
3691: Fnd_Msg_Pub.ADD;
3692: CLOSE simul_visit_cur;
3693: RAISE Fnd_Api.G_EXC_ERROR;
3694: END IF;
3695: CLOSE simul_visit_cur;
3696:
3697: --Check for object version number
3698: IF p_object_version_number <> l_simul_visit_rec.object_version_number
3699: THEN
3700: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_PLAN_RECORD');
3701: Fnd_Msg_Pub.ADD;
3702: RAISE Fnd_Api.G_EXC_ERROR;
3703: END IF;
3704: --Get corresponding primary visit
3705:
3706: SELECT VISIT_ID,VISIT_NUMBER, a.SIMULATION_PLAN_ID INTO
3721: /* Modified by mpothuku on 01/25/05 to delete the primary visit if the Simulation Flag is delete */
3722: /*
3723: Fnd_message.SET_NAME('AHL','AHL_LTP_VISIT_REMOVED');
3724: Fnd_Msg_Pub.ADD;
3725: RAISE Fnd_Api.G_EXC_ERROR;
3726: */
3727: IF l_primary_visit_id IS NOT NULL THEN
3728: l_visit_tbl(l_visit_count).visit_id := l_primary_visit_id;
3729: l_visit_tbl(l_visit_count).operation_flag := 'D';
3737: END IF;
3738: AHL_VWP_VISITS_PVT.Process_Visit
3739: (
3740: p_api_version => p_api_version,
3741: p_init_msg_list => FND_API.g_false,--p_init_msg_list,
3742: p_commit => FND_API.g_false, --p_commit,
3743: p_validation_level => p_validation_level,
3744: p_module_type => p_module_type,
3745: p_x_Visit_tbl => l_visit_tbl,
3738: AHL_VWP_VISITS_PVT.Process_Visit
3739: (
3740: p_api_version => p_api_version,
3741: p_init_msg_list => FND_API.g_false,--p_init_msg_list,
3742: p_commit => FND_API.g_false, --p_commit,
3743: p_validation_level => p_validation_level,
3744: p_module_type => p_module_type,
3745: p_x_Visit_tbl => l_visit_tbl,
3746: x_return_status => l_return_status,
3757: 'After Calling ahl Vwp Visits Pvt status : '|| l_return_status
3758: );
3759: END IF;
3760: -- Check Error Message stack.
3761: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3762: l_msg_count := FND_MSG_PUB.count_msg;
3763: IF l_msg_count > 0 THEN
3764: RAISE FND_API.G_EXC_ERROR;
3765: END IF;
3760: -- Check Error Message stack.
3761: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3762: l_msg_count := FND_MSG_PUB.count_msg;
3763: IF l_msg_count > 0 THEN
3764: RAISE FND_API.G_EXC_ERROR;
3765: END IF;
3766: END IF;
3767: END IF;
3768:
3778: FETCH c_Visit INTO c_visit_rec;
3779: CLOSE c_Visit;
3780:
3781: -- To check if visit starttime is not null then store time in HH4 format
3782: IF (l_simul_visit_rec.START_DATE_TIME IS NOT NULL AND l_simul_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE) THEN
3783: l_hour := TO_NUMBER(TO_CHAR(l_simul_visit_rec.START_DATE_TIME , 'HH24'));
3784: l_minute := TO_NUMBER(TO_CHAR(l_simul_visit_rec.START_DATE_TIME , 'MI'));
3785: ELSE
3786: l_hour := NULL;
3788: l_simul_visit_rec.START_DATE_TIME := NULL;
3789: END IF;
3790:
3791: -- To check if visit closetime is not null then store time in HH4 format
3792: IF (l_simul_visit_rec.CLOSE_DATE_TIME IS NOT NULL AND l_simul_visit_rec.CLOSE_DATE_TIME <> Fnd_Api.G_MISS_DATE) THEN
3793: l_hour_close := TO_NUMBER(TO_CHAR(l_simul_visit_rec.CLOSE_DATE_TIME , 'HH24'));
3794: l_minute_close := TO_NUMBER(TO_CHAR(l_simul_visit_rec.CLOSE_DATE_TIME , 'MI'));
3795: ELSE
3796: l_hour_close := NULL;
3879:
3880: AHL_VWP_VISITS_PVT.Process_Visit
3881: (
3882: p_api_version => p_api_version,
3883: p_init_msg_list => FND_API.g_false,
3884: p_commit => FND_API.g_false,
3885: p_validation_level => p_validation_level,
3886: p_module_type => NULL, --p_module_type,
3887: p_x_Visit_tbl => l_prim_visit_tbl,
3880: AHL_VWP_VISITS_PVT.Process_Visit
3881: (
3882: p_api_version => p_api_version,
3883: p_init_msg_list => FND_API.g_false,
3884: p_commit => FND_API.g_false,
3885: p_validation_level => p_validation_level,
3886: p_module_type => NULL, --p_module_type,
3887: p_x_Visit_tbl => l_prim_visit_tbl,
3888: x_return_status => l_return_status,
3899: );
3900:
3901: END IF;
3902: -- Check Error Message stack.
3903: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
3904: l_msg_count := FND_MSG_PUB.count_msg;
3905: IF l_msg_count > 0 THEN
3906: RAISE FND_API.G_EXC_ERROR;
3907: END IF;
3902: -- Check Error Message stack.
3903: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
3904: l_msg_count := FND_MSG_PUB.count_msg;
3905: IF l_msg_count > 0 THEN
3906: RAISE FND_API.G_EXC_ERROR;
3907: END IF;
3908: END IF;
3909:
3910: -- Update the Any_task_chg flag to 'Y'
3914: p_flag => 'Y',
3915: x_return_status => l_return_status
3916: );
3917:
3918: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3919: RAISE FND_API.G_EXC_ERROR;
3920: END IF;
3921:
3922: -- Check for tasks exist in primary visit tasks which are not in simulation visit
3915: x_return_status => l_return_status
3916: );
3917:
3918: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3919: RAISE FND_API.G_EXC_ERROR;
3920: END IF;
3921:
3922: -- Check for tasks exist in primary visit tasks which are not in simulation visit
3923: OPEN get_tasks_delete_csr (l_primary_visit_id);
3936: --This will take care of removing the links as well from the primary tasks.
3937: AHL_VWP_TASKS_PVT.Delete_Task
3938: (
3939: p_api_version => p_api_version,
3940: p_init_msg_list => FND_API.g_false,
3941: p_commit => FND_API.g_false,
3942: p_validation_level => p_validation_level,
3943: p_module_type => NULL,
3944: p_visit_task_id => l_tasks_delete_rec.visit_task_id,
3937: AHL_VWP_TASKS_PVT.Delete_Task
3938: (
3939: p_api_version => p_api_version,
3940: p_init_msg_list => FND_API.g_false,
3941: p_commit => FND_API.g_false,
3942: p_validation_level => p_validation_level,
3943: p_module_type => NULL,
3944: p_visit_task_id => l_tasks_delete_rec.visit_task_id,
3945: x_return_status => l_return_status,
3947: x_msg_data => l_msg_data
3948: );
3949:
3950: -- Check Error Message stack.
3951: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
3952: l_msg_count := FND_MSG_PUB.count_msg;
3953: IF l_msg_count > 0 THEN
3954: CLOSE get_tasks_delete_csr;
3955: RAISE FND_API.G_EXC_ERROR;
3951: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
3952: l_msg_count := FND_MSG_PUB.count_msg;
3953: IF l_msg_count > 0 THEN
3954: CLOSE get_tasks_delete_csr;
3955: RAISE FND_API.G_EXC_ERROR;
3956: END IF;
3957: END IF;
3958: END IF;
3959: END IF;
4000: OPEN c_ue_details (l_simul_visit_task_rec.unit_effectivity_id);
4001: FETCH c_ue_details INTO l_ue_details_rec;
4002: CLOSE c_ue_details;
4003: */
4004: x_return_status := Fnd_Api.g_ret_sts_error;
4005: OPEN c_ue_mr_sr_id(l_simul_visit_task_rec.unit_effectivity_id);
4006: FETCH c_ue_mr_sr_id INTO ue_mr_sr_id_rec;
4007: CLOSE c_ue_mr_sr_id;
4008:
4017: Fnd_Message.SET_TOKEN('MR_TITLE', ue_sr_details_rec.mr_title);
4018: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
4019: Fnd_Message.SET_TOKEN('VISIT2', l_visit_number);
4020: Fnd_Msg_Pub.ADD;
4021: RAISE Fnd_Api.G_EXC_ERROR;
4022: ELSE
4023: OPEN c_ue_mr_details(ue_mr_sr_id_rec.mr_header_id,ue_mr_sr_id_rec.csi_item_instance_id);
4024: FETCH c_ue_mr_details INTO ue_mr_details_rec;
4025: CLOSE c_ue_mr_details;
4030: Fnd_Message.SET_TOKEN('MR_TITLE', ue_mr_details_rec.mr_title);
4031: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
4032: Fnd_Message.SET_TOKEN('VISIT2', l_visit_number);
4033: Fnd_Msg_Pub.ADD;
4034: RAISE Fnd_Api.G_EXC_ERROR;
4035: END IF;
4036: /*
4037: AnRaj: End of Fix bug#:4919576
4038: */
4103:
4104: AHL_VWP_TASKS_PVT.Update_Task
4105: (
4106: p_api_version => p_api_version,
4107: p_init_msg_list => Fnd_Api.g_false,
4108: p_commit => Fnd_Api.g_false,
4109: p_validation_level => p_validation_level,
4110: --passing null here as we dont want the OrigtaskId,
4111: --to be picked up as the value we are passing at this point.
4104: AHL_VWP_TASKS_PVT.Update_Task
4105: (
4106: p_api_version => p_api_version,
4107: p_init_msg_list => Fnd_Api.g_false,
4108: p_commit => Fnd_Api.g_false,
4109: p_validation_level => p_validation_level,
4110: --passing null here as we dont want the OrigtaskId,
4111: --to be picked up as the value we are passing at this point.
4112: p_module_type => null,
4116: x_msg_data => l_msg_data
4117: );
4118:
4119: -- Check Error Message stack.
4120: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
4121: l_msg_count := FND_MSG_PUB.count_msg;
4122: IF l_msg_count > 0 THEN
4123: RAISE FND_API.G_EXC_ERROR;
4124: END IF;
4119: -- Check Error Message stack.
4120: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
4121: l_msg_count := FND_MSG_PUB.count_msg;
4122: IF l_msg_count > 0 THEN
4123: RAISE FND_API.G_EXC_ERROR;
4124: END IF;
4125: END IF;
4126:
4127: ELSIF((l_simul_visit_task_rec.primary_visit_task_id IS NULL) OR
4313:
4314: AHL_VWP_TASKS_PVT.Update_Task
4315: (
4316: p_api_version => p_api_version,
4317: p_init_msg_list => Fnd_Api.g_false,
4318: p_commit => Fnd_Api.g_false,
4319: p_validation_level => p_validation_level,
4320: --passing LTP here as we want the OrigtaskId,
4321: --to be picked up as the value we are passing.
4314: AHL_VWP_TASKS_PVT.Update_Task
4315: (
4316: p_api_version => p_api_version,
4317: p_init_msg_list => Fnd_Api.g_false,
4318: p_commit => Fnd_Api.g_false,
4319: p_validation_level => p_validation_level,
4320: --passing LTP here as we want the OrigtaskId,
4321: --to be picked up as the value we are passing.
4322: p_module_type => 'LTP',
4326: x_msg_data => l_msg_data
4327: );
4328:
4329: -- Check Error Message stack.
4330: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
4331: l_msg_count := FND_MSG_PUB.count_msg;
4332: IF l_msg_count > 0 THEN
4333: RAISE FND_API.G_EXC_ERROR;
4334: END IF;
4329: -- Check Error Message stack.
4330: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
4331: l_msg_count := FND_MSG_PUB.count_msg;
4332: IF l_msg_count > 0 THEN
4333: RAISE FND_API.G_EXC_ERROR;
4334: END IF;
4335: END IF;
4336: END IF;
4337: END LOOP;
4498: --To adjust the task times for the inserted/updated tasks
4499: AHL_VWP_TIMES_PVT.Calculate_Task_Times
4500: (
4501: p_api_version => p_api_version,
4502: p_init_msg_list => Fnd_Api.G_FALSE,
4503: p_commit => Fnd_Api.G_FALSE,
4504: p_validation_level => p_validation_level,
4505: x_return_status => l_return_status,
4506: x_msg_count => l_msg_count,
4499: AHL_VWP_TIMES_PVT.Calculate_Task_Times
4500: (
4501: p_api_version => p_api_version,
4502: p_init_msg_list => Fnd_Api.G_FALSE,
4503: p_commit => Fnd_Api.G_FALSE,
4504: p_validation_level => p_validation_level,
4505: x_return_status => l_return_status,
4506: x_msg_count => l_msg_count,
4507: x_msg_data => l_msg_data,
4516: 'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times'
4517: );
4518: END IF;
4519:
4520: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
4521: x_return_status := FND_API.G_RET_STS_ERROR;
4522: RAISE FND_API.G_EXC_ERROR;
4523: END IF;
4524:
4517: );
4518: END IF;
4519:
4520: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
4521: x_return_status := FND_API.G_RET_STS_ERROR;
4522: RAISE FND_API.G_EXC_ERROR;
4523: END IF;
4524:
4525: -- anraj for fixing the issue number 207 in the CMRO Forum
4518: END IF;
4519:
4520: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
4521: x_return_status := FND_API.G_RET_STS_ERROR;
4522: RAISE FND_API.G_EXC_ERROR;
4523: END IF;
4524:
4525: -- anraj for fixing the issue number 207 in the CMRO Forum
4526: -- If none of the Org,dept and start date are null then Process_Planned_Materials is called with 'U'
4536: --Schedule material Reqmts in the Primary Visit for tasks created newly.
4537: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
4538: (
4539: p_api_version => p_api_version,
4540: p_init_msg_list => FND_API.g_false,
4541: p_commit => FND_API.g_false,
4542: p_validation_level => p_validation_level,--FND_API.g_valid_level_full,
4543: p_visit_id => l_primary_visit_id,
4544: p_visit_task_id => NULL,
4537: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
4538: (
4539: p_api_version => p_api_version,
4540: p_init_msg_list => FND_API.g_false,
4541: p_commit => FND_API.g_false,
4542: p_validation_level => p_validation_level,--FND_API.g_valid_level_full,
4543: p_visit_id => l_primary_visit_id,
4544: p_visit_task_id => NULL,
4545: p_org_id => NULL,
4538: (
4539: p_api_version => p_api_version,
4540: p_init_msg_list => FND_API.g_false,
4541: p_commit => FND_API.g_false,
4542: p_validation_level => p_validation_level,--FND_API.g_valid_level_full,
4543: p_visit_id => l_primary_visit_id,
4544: p_visit_task_id => NULL,
4545: p_org_id => NULL,
4546: p_start_date => NULL,
4561: ELSE
4562: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
4563: (
4564: p_api_version => p_api_version,
4565: p_init_msg_list => FND_API.g_false,
4566: p_commit => FND_API.g_false,
4567: p_validation_level => p_validation_level,--FND_API.g_valid_level_full,
4568: p_visit_id => l_primary_visit_id,
4569: p_visit_task_id => NULL,
4562: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
4563: (
4564: p_api_version => p_api_version,
4565: p_init_msg_list => FND_API.g_false,
4566: p_commit => FND_API.g_false,
4567: p_validation_level => p_validation_level,--FND_API.g_valid_level_full,
4568: p_visit_id => l_primary_visit_id,
4569: p_visit_task_id => NULL,
4570: p_org_id => NULL,
4563: (
4564: p_api_version => p_api_version,
4565: p_init_msg_list => FND_API.g_false,
4566: p_commit => FND_API.g_false,
4567: p_validation_level => p_validation_level,--FND_API.g_valid_level_full,
4568: p_visit_id => l_primary_visit_id,
4569: p_visit_task_id => NULL,
4570: p_org_id => NULL,
4571: p_start_date => NULL,
4586: END IF;
4587:
4588: -- modification end
4589:
4590: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
4591: x_return_status := FND_API.G_RET_STS_ERROR;
4592: RAISE FND_API.G_EXC_ERROR;
4593: END IF;
4594:
4587:
4588: -- modification end
4589:
4590: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
4591: x_return_status := FND_API.G_RET_STS_ERROR;
4592: RAISE FND_API.G_EXC_ERROR;
4593: END IF;
4594:
4595: /* Only if Simulation Flag is not set we ought to delete the Simulation Visit otherwise it
4588: -- modification end
4589:
4590: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
4591: x_return_status := FND_API.G_RET_STS_ERROR;
4592: RAISE FND_API.G_EXC_ERROR;
4593: END IF;
4594:
4595: /* Only if Simulation Flag is not set we ought to delete the Simulation Visit otherwise it
4596: anyway be deleted in process Visit
4598:
4599: Remove_Visits_FR_Plan
4600: (
4601: p_api_version => p_api_version,
4602: p_init_msg_list => FND_API.g_false,--p_init_msg_list,
4603: p_commit => FND_API.g_false, --p_commit,
4604: p_validation_level => p_validation_level,
4605: p_module_type => p_module_type,
4606: p_visit_id => p_visit_id,
4599: Remove_Visits_FR_Plan
4600: (
4601: p_api_version => p_api_version,
4602: p_init_msg_list => FND_API.g_false,--p_init_msg_list,
4603: p_commit => FND_API.g_false, --p_commit,
4604: p_validation_level => p_validation_level,
4605: p_module_type => p_module_type,
4606: p_visit_id => p_visit_id,
4607: p_plan_id => null,
4614:
4615: --mpothuku End
4616:
4617: -- Check Error Message stack.
4618: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
4619: l_msg_count := FND_MSG_PUB.count_msg;
4620: IF l_msg_count > 0 THEN
4621: RAISE FND_API.G_EXC_ERROR;
4622: END IF;
4617: -- Check Error Message stack.
4618: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
4619: l_msg_count := FND_MSG_PUB.count_msg;
4620: IF l_msg_count > 0 THEN
4621: RAISE FND_API.G_EXC_ERROR;
4622: END IF;
4623: END IF;
4624: ---------------------------End of Body---------------------------------------
4625: --Standard check to count messages
4626: l_msg_count := Fnd_Msg_Pub.count_msg;
4627:
4628: IF l_msg_count > 0 THEN
4629: X_msg_count := l_msg_count;
4630: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4631: RAISE Fnd_Api.G_EXC_ERROR;
4632: END IF;
4633:
4634: --Standard check for commit
4627:
4628: IF l_msg_count > 0 THEN
4629: X_msg_count := l_msg_count;
4630: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4631: RAISE Fnd_Api.G_EXC_ERROR;
4632: END IF;
4633:
4634: --Standard check for commit
4635: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4631: RAISE Fnd_Api.G_EXC_ERROR;
4632: END IF;
4633:
4634: --Standard check for commit
4635: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4636: COMMIT;
4637: END IF;
4638: -- Debug info
4639: IF G_DEBUG='Y' THEN
4642: Ahl_Debug_Pub.disable_debug;
4643: END IF;
4644: --
4645: EXCEPTION
4646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4647: ROLLBACK TO set_visit_as_primary;
4648: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4649: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4650: p_count => x_msg_count,
4644: --
4645: EXCEPTION
4646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4647: ROLLBACK TO set_visit_as_primary;
4648: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4649: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4650: p_count => x_msg_count,
4651: p_data => x_msg_data);
4652:
4645: EXCEPTION
4646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4647: ROLLBACK TO set_visit_as_primary;
4648: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4649: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4650: p_count => x_msg_count,
4651: p_data => x_msg_data);
4652:
4653: IF G_DEBUG='Y' THEN
4657: END IF;
4658: -- Check if API is called in debug mode. If yes, disable debug.
4659: AHL_DEBUG_PUB.disable_debug;
4660:
4661: WHEN FND_API.G_EXC_ERROR THEN
4662: ROLLBACK TO set_visit_as_primary;
4663: X_return_status := FND_API.G_RET_STS_ERROR;
4664: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4665: p_count => x_msg_count,
4659: AHL_DEBUG_PUB.disable_debug;
4660:
4661: WHEN FND_API.G_EXC_ERROR THEN
4662: ROLLBACK TO set_visit_as_primary;
4663: X_return_status := FND_API.G_RET_STS_ERROR;
4664: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4665: p_count => x_msg_count,
4666: p_data => X_msg_data);
4667: -- Debug info.
4660:
4661: WHEN FND_API.G_EXC_ERROR THEN
4662: ROLLBACK TO set_visit_as_primary;
4663: X_return_status := FND_API.G_RET_STS_ERROR;
4664: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4665: p_count => x_msg_count,
4666: p_data => X_msg_data);
4667: -- Debug info.
4668: IF G_DEBUG='Y' THEN
4674: AHL_DEBUG_PUB.disable_debug;
4675:
4676: WHEN OTHERS THEN
4677: ROLLBACK TO set_visit_as_primary;
4678: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4679: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4680: THEN
4681: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
4682: p_procedure_name => 'SET_VISIT_AS_PRIMARY',
4681: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
4682: p_procedure_name => 'SET_VISIT_AS_PRIMARY',
4683: p_error_text => SUBSTR(SQLERRM,1,240));
4684: END IF;
4685: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4686: p_count => x_msg_count,
4687: p_data => X_msg_data);
4688:
4689: -- Debug info.
4711: --------------------------------------------------------------------
4712:
4713: PROCEDURE Delete_Simul_Visits (
4714: p_api_version IN NUMBER,
4715: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4716: p_commit IN VARCHAR2 := FND_API.g_false,
4717: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
4718: p_visit_id IN NUMBER,
4719: x_return_status OUT NOCOPY VARCHAR2,
4712:
4713: PROCEDURE Delete_Simul_Visits (
4714: p_api_version IN NUMBER,
4715: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4716: p_commit IN VARCHAR2 := FND_API.g_false,
4717: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
4718: p_visit_id IN NUMBER,
4719: x_return_status OUT NOCOPY VARCHAR2,
4720: x_msg_count OUT NOCOPY NUMBER,
4713: PROCEDURE Delete_Simul_Visits (
4714: p_api_version IN NUMBER,
4715: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4716: p_commit IN VARCHAR2 := FND_API.g_false,
4717: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
4718: p_visit_id IN NUMBER,
4719: x_return_status OUT NOCOPY VARCHAR2,
4720: x_msg_count OUT NOCOPY NUMBER,
4721: x_msg_data OUT NOCOPY VARCHAR2)
4763: IF G_DEBUG='Y' THEN
4764: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.Delete Simul Visits','+SMPNL+');
4765: END IF;
4766: -- Standard call to check for call compatibility.
4767: IF FND_API.to_boolean(p_init_msg_list)
4768: THEN
4769: FND_MSG_PUB.initialize;
4770: END IF;
4771: -- Initialize API return status to success
4768: THEN
4769: FND_MSG_PUB.initialize;
4770: END IF;
4771: -- Initialize API return status to success
4772: x_return_status := FND_API.G_RET_STS_SUCCESS;
4773: -- Initialize message list if p_init_msg_list is set to TRUE.
4774: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
4775: p_api_version,
4776: l_api_name,G_PKG_NAME)
4770: END IF;
4771: -- Initialize API return status to success
4772: x_return_status := FND_API.G_RET_STS_SUCCESS;
4773: -- Initialize message list if p_init_msg_list is set to TRUE.
4774: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
4775: p_api_version,
4776: l_api_name,G_PKG_NAME)
4777: THEN
4778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4774: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
4775: p_api_version,
4776: l_api_name,G_PKG_NAME)
4777: THEN
4778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4779: END IF;
4780:
4781: ---------------------start API Body----------------------------------------
4782: /* Changes made by mpothuku on 12/22/04 to call the VWP API instead of
4789: EXIT WHEN Get_simul_visits_cur%NOTFOUND;
4790: IF l_simul_visits_rec.visit_id IS NOT NULL THEN
4791: Remove_Visits_FR_Plan (
4792: p_api_version => p_api_version,
4793: p_init_msg_list => FND_API.g_false,--p_init_msg_list,
4794: p_commit => FND_API.g_false, --p_commit,
4795: p_validation_level => p_validation_level,
4796: p_module_type => NULL,
4797: p_visit_id => l_simul_visits_rec.visit_id,
4790: IF l_simul_visits_rec.visit_id IS NOT NULL THEN
4791: Remove_Visits_FR_Plan (
4792: p_api_version => p_api_version,
4793: p_init_msg_list => FND_API.g_false,--p_init_msg_list,
4794: p_commit => FND_API.g_false, --p_commit,
4795: p_validation_level => p_validation_level,
4796: p_module_type => NULL,
4797: p_visit_id => l_simul_visits_rec.visit_id,
4798: p_plan_id => null,
4801: x_msg_count => l_msg_count,
4802: x_msg_data => l_msg_data);
4803:
4804: -- Check Error Message stack.
4805: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
4806: l_msg_count := FND_MSG_PUB.count_msg;
4807: IF l_msg_count > 0 THEN
4808: RAISE FND_API.G_EXC_ERROR;
4809: END IF;
4804: -- Check Error Message stack.
4805: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
4806: l_msg_count := FND_MSG_PUB.count_msg;
4807: IF l_msg_count > 0 THEN
4808: RAISE FND_API.G_EXC_ERROR;
4809: END IF;
4810: END IF;
4811: END IF; -- Visit not null
4812: END LOOP;
4818: l_msg_count := Fnd_Msg_Pub.count_msg;
4819:
4820: IF l_msg_count > 0 THEN
4821: X_msg_count := l_msg_count;
4822: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4823: RAISE Fnd_Api.G_EXC_ERROR;
4824: END IF;
4825:
4826: --Standard check for commit
4819:
4820: IF l_msg_count > 0 THEN
4821: X_msg_count := l_msg_count;
4822: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4823: RAISE Fnd_Api.G_EXC_ERROR;
4824: END IF;
4825:
4826: --Standard check for commit
4827: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4823: RAISE Fnd_Api.G_EXC_ERROR;
4824: END IF;
4825:
4826: --Standard check for commit
4827: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4828: COMMIT;
4829: END IF;
4830: -- Debug info
4831: IF G_DEBUG='Y' THEN
4834: Ahl_Debug_Pub.disable_debug;
4835: END IF;
4836: --
4837: EXCEPTION
4838: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4839: ROLLBACK TO Delete_Simul_Visits;
4840: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4841: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4842: p_count => x_msg_count,
4836: --
4837: EXCEPTION
4838: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4839: ROLLBACK TO Delete_Simul_Visits;
4840: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4841: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4842: p_count => x_msg_count,
4843: p_data => x_msg_data);
4844:
4837: EXCEPTION
4838: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4839: ROLLBACK TO Delete_Simul_Visits;
4840: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4841: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4842: p_count => x_msg_count,
4843: p_data => x_msg_data);
4844:
4845: IF G_DEBUG='Y' THEN
4849: END IF;
4850: -- Check if API is called in debug mode. If yes, disable debug.
4851: AHL_DEBUG_PUB.disable_debug;
4852:
4853: WHEN FND_API.G_EXC_ERROR THEN
4854: ROLLBACK TO Delete_Simul_Visits;
4855: X_return_status := FND_API.G_RET_STS_ERROR;
4856: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4857: p_count => x_msg_count,
4851: AHL_DEBUG_PUB.disable_debug;
4852:
4853: WHEN FND_API.G_EXC_ERROR THEN
4854: ROLLBACK TO Delete_Simul_Visits;
4855: X_return_status := FND_API.G_RET_STS_ERROR;
4856: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4857: p_count => x_msg_count,
4858: p_data => X_msg_data);
4859: -- Debug info.
4852:
4853: WHEN FND_API.G_EXC_ERROR THEN
4854: ROLLBACK TO Delete_Simul_Visits;
4855: X_return_status := FND_API.G_RET_STS_ERROR;
4856: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4857: p_count => x_msg_count,
4858: p_data => X_msg_data);
4859: -- Debug info.
4860: IF G_DEBUG='Y' THEN
4866: AHL_DEBUG_PUB.disable_debug;
4867:
4868: WHEN OTHERS THEN
4869: ROLLBACK TO Delete_Simul_Visits;
4870: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4871: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4872: THEN
4873: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
4874: p_procedure_name => 'DELETE_SIMUL_VISITS',
4873: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
4874: p_procedure_name => 'DELETE_SIMUL_VISITS',
4875: p_error_text => SUBSTR(SQLERRM,1,240));
4876: END IF;
4877: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4878: p_count => x_msg_count,
4879: p_data => X_msg_data);
4880: -- Debug info.
4881: IF G_DEBUG='Y' THEN