[Home] [Help]
67:
68: -- To validate visit for creation/updation of visit
69: PROCEDURE Validate_Visit (
70: p_api_version IN NUMBER,
71: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
72: p_commit IN VARCHAR2 := Fnd_Api.g_false,
73: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
74: p_Visit_rec IN visit_rec_type,
75: x_return_status OUT NOCOPY VARCHAR2,
68: -- To validate visit for creation/updation of visit
69: PROCEDURE Validate_Visit (
70: p_api_version IN NUMBER,
71: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
72: p_commit IN VARCHAR2 := Fnd_Api.g_false,
73: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
74: p_Visit_rec IN visit_rec_type,
75: x_return_status OUT NOCOPY VARCHAR2,
76: x_msg_count OUT NOCOPY NUMBER,
69: PROCEDURE Validate_Visit (
70: p_api_version IN NUMBER,
71: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
72: p_commit IN VARCHAR2 := Fnd_Api.g_false,
73: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
74: p_Visit_rec IN visit_rec_type,
75: x_return_status OUT NOCOPY VARCHAR2,
76: x_msg_count OUT NOCOPY NUMBER,
77: x_msg_data OUT NOCOPY VARCHAR2
101: -- Comment out the below two signatures as these have been moved to
102: -- To Create a Maintenance Visit
103: /*PROCEDURE Create_Visit (
104: p_api_version IN NUMBER,
105: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
106: p_commit IN VARCHAR2 := Fnd_Api.g_false,
107: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
108: p_module_type IN VARCHAR2 := 'JSP',
109: p_x_visit_rec IN OUT NOCOPY visit_rec_type,
102: -- To Create a Maintenance Visit
103: /*PROCEDURE Create_Visit (
104: p_api_version IN NUMBER,
105: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
106: p_commit IN VARCHAR2 := Fnd_Api.g_false,
107: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
108: p_module_type IN VARCHAR2 := 'JSP',
109: p_x_visit_rec IN OUT NOCOPY visit_rec_type,
110: x_return_status OUT NOCOPY VARCHAR2,
103: /*PROCEDURE Create_Visit (
104: p_api_version IN NUMBER,
105: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
106: p_commit IN VARCHAR2 := Fnd_Api.g_false,
107: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
108: p_module_type IN VARCHAR2 := 'JSP',
109: p_x_visit_rec IN OUT NOCOPY visit_rec_type,
110: x_return_status OUT NOCOPY VARCHAR2,
111: x_msg_count OUT NOCOPY NUMBER,
114:
115: -- To Update a Maintenance Visit
116: PROCEDURE Update_Visit (
117: p_api_version IN NUMBER,
118: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
119: p_commit IN VARCHAR2 := Fnd_Api.g_false,
120: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
121: p_module_type IN VARCHAR2 := 'JSP',
122: p_x_Visit_Rec IN OUT NOCOPY visit_rec_type,
115: -- To Update a Maintenance Visit
116: PROCEDURE Update_Visit (
117: p_api_version IN NUMBER,
118: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
119: p_commit IN VARCHAR2 := Fnd_Api.g_false,
120: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
121: p_module_type IN VARCHAR2 := 'JSP',
122: p_x_Visit_Rec IN OUT NOCOPY visit_rec_type,
123: x_return_status OUT NOCOPY VARCHAR2,
116: PROCEDURE Update_Visit (
117: p_api_version IN NUMBER,
118: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
119: p_commit IN VARCHAR2 := Fnd_Api.g_false,
120: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
121: p_module_type IN VARCHAR2 := 'JSP',
122: p_x_Visit_Rec IN OUT NOCOPY visit_rec_type,
123: x_return_status OUT NOCOPY VARCHAR2,
124: x_msg_count OUT NOCOPY NUMBER,
128: -- To Delete a Maintenance Visit
129: -- TCHIMIRA :: AVF ER: 13416865 :: 14-DEC-2011 :: Comment out the below signature as it is moved to spec
130: /*PROCEDURE Delete_Visit (
131: p_api_version IN NUMBER,
132: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
133: p_commit IN VARCHAR2 := Fnd_Api.g_false,
134: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
135: p_visit_id IN NUMBER,
136: x_return_status OUT NOCOPY VARCHAR2,
129: -- TCHIMIRA :: AVF ER: 13416865 :: 14-DEC-2011 :: Comment out the below signature as it is moved to spec
130: /*PROCEDURE Delete_Visit (
131: p_api_version IN NUMBER,
132: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
133: p_commit IN VARCHAR2 := Fnd_Api.g_false,
134: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
135: p_visit_id IN NUMBER,
136: x_return_status OUT NOCOPY VARCHAR2,
137: x_msg_count OUT NOCOPY NUMBER,
130: /*PROCEDURE Delete_Visit (
131: p_api_version IN NUMBER,
132: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
133: p_commit IN VARCHAR2 := Fnd_Api.g_false,
134: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
135: p_visit_id IN NUMBER,
136: x_return_status OUT NOCOPY VARCHAR2,
137: x_msg_count OUT NOCOPY NUMBER,
138: x_msg_data OUT NOCOPY VARCHAR2
143: -- yazhou start
144:
145: PROCEDURE Synchronize_Visit (
146: p_api_version IN NUMBER,
147: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
148: p_commit IN VARCHAR2 := Fnd_Api.g_false,
149: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
150: p_module_type IN VARCHAR2 := NULL,
151: p_x_Visit_Rec IN OUT NOCOPY visit_rec_type,
144:
145: PROCEDURE Synchronize_Visit (
146: p_api_version IN NUMBER,
147: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
148: p_commit IN VARCHAR2 := Fnd_Api.g_false,
149: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
150: p_module_type IN VARCHAR2 := NULL,
151: p_x_Visit_Rec IN OUT NOCOPY visit_rec_type,
152: x_return_status OUT NOCOPY VARCHAR2,
145: PROCEDURE Synchronize_Visit (
146: p_api_version IN NUMBER,
147: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
148: p_commit IN VARCHAR2 := Fnd_Api.g_false,
149: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
150: p_module_type IN VARCHAR2 := NULL,
151: p_x_Visit_Rec IN OUT NOCOPY visit_rec_type,
152: x_return_status OUT NOCOPY VARCHAR2,
153: x_msg_count OUT NOCOPY NUMBER,
295: BEGIN
296: -- Post 11.5.10 Enhancements
297: -- Removing defaulting of Visit Name since it is a mandatory field
298: /*-- VISIT NAME
299: IF p_x_visit_rec.visit_name = Fnd_Api.G_MISS_char THEN
300: p_x_visit_rec.visit_name := NULL;
301: ELSE
302: p_x_visit_rec.visit_name := p_x_visit_rec.visit_name;
303: END IF;
303: END IF;
304: */
305:
306: -- ORGANIZATION ID
307: IF p_x_visit_rec.organization_id = Fnd_Api.G_MISS_NUM THEN
308: p_x_visit_rec.organization_id := NULL;
309: ELSE
310: p_x_visit_rec.organization_id := p_x_visit_rec.organization_id;
311: END IF;
310: p_x_visit_rec.organization_id := p_x_visit_rec.organization_id;
311: END IF;
312:
313: -- DEPARTMENT ID
314: IF p_x_visit_rec.department_id = Fnd_Api.G_MISS_NUM THEN
315: p_x_visit_rec.department_id := NULL;
316: ELSE
317: p_x_visit_rec.department_id := p_x_visit_rec.department_id;
318: END IF;
317: p_x_visit_rec.department_id := p_x_visit_rec.department_id;
318: END IF;
319:
320: -- START DATE
321: IF p_x_visit_rec.start_date = Fnd_Api.G_MISS_DATE THEN
322: p_x_visit_rec.start_date := NULL;
323: ELSE
324: p_x_visit_rec.start_date := p_x_visit_rec.start_date;
325: END IF;
324: p_x_visit_rec.start_date := p_x_visit_rec.start_date;
325: END IF;
326:
327: -- PLAN END DATE
328: IF p_x_visit_rec.plan_end_date = Fnd_Api.G_MISS_DATE THEN
329: p_x_visit_rec.plan_end_date := NULL;
330: ELSE
331: p_x_visit_rec.plan_end_date := p_x_visit_rec.plan_end_date;
332: END IF;
331: p_x_visit_rec.plan_end_date := p_x_visit_rec.plan_end_date;
332: END IF;
333:
334: -- SIMULATION_PLAN_ID
335: IF p_x_visit_rec.SIMULATION_PLAN_ID = Fnd_Api.G_MISS_NUM THEN
336: p_x_visit_rec.SIMULATION_PLAN_ID := NULL;
337: ELSE
338: p_x_visit_rec.SIMULATION_PLAN_ID := p_x_visit_rec.SIMULATION_PLAN_ID;
339: END IF;
338: p_x_visit_rec.SIMULATION_PLAN_ID := p_x_visit_rec.SIMULATION_PLAN_ID;
339: END IF;
340:
341: -- ITEM_INSTANCE_ID
342: IF p_x_visit_rec.ITEM_INSTANCE_ID = Fnd_Api.G_MISS_NUM THEN
343: p_x_visit_rec.ITEM_INSTANCE_ID := NULL;
344: ELSE
345: p_x_visit_rec.ITEM_INSTANCE_ID := p_x_visit_rec.ITEM_INSTANCE_ID;
346: END IF;
345: p_x_visit_rec.ITEM_INSTANCE_ID := p_x_visit_rec.ITEM_INSTANCE_ID;
346: END IF;
347:
348: -- ASSO_PRIMARY_VISIT_ID
349: IF p_x_visit_rec.ASSO_PRIMARY_VISIT_ID = Fnd_Api.G_MISS_NUM THEN
350: p_x_visit_rec.ASSO_PRIMARY_VISIT_ID := NULL;
351: ELSE
352: p_x_visit_rec.ASSO_PRIMARY_VISIT_ID := p_x_visit_rec.ASSO_PRIMARY_VISIT_ID;
353: END IF;
352: p_x_visit_rec.ASSO_PRIMARY_VISIT_ID := p_x_visit_rec.ASSO_PRIMARY_VISIT_ID;
353: END IF;
354:
355: -- SIMULATION_DELETE_FLAG
356: IF p_x_visit_rec.SIMULATION_DELETE_FLAG = Fnd_Api.G_MISS_CHAR THEN
357: p_x_visit_rec.SIMULATION_DELETE_FLAG := NULL;
358: ELSE
359: p_x_visit_rec.SIMULATION_DELETE_FLAG := p_x_visit_rec.SIMULATION_DELETE_FLAG;
360: END IF;
359: p_x_visit_rec.SIMULATION_DELETE_FLAG := p_x_visit_rec.SIMULATION_DELETE_FLAG;
360: END IF;
361:
362: -- OUT_OF_SYNC_FLAG
363: IF p_x_visit_rec.OUT_OF_SYNC_FLAG = Fnd_Api.G_MISS_CHAR THEN
364: p_x_visit_rec.OUT_OF_SYNC_FLAG := NULL;
365: ELSE
366: p_x_visit_rec.OUT_OF_SYNC_FLAG := p_x_visit_rec.OUT_OF_SYNC_FLAG;
367: END IF;
366: p_x_visit_rec.OUT_OF_SYNC_FLAG := p_x_visit_rec.OUT_OF_SYNC_FLAG;
367: END IF;
368:
369: -- PROJECT_ID
370: IF p_x_visit_rec.PROJECT_ID = Fnd_Api.G_MISS_NUM THEN
371: p_x_visit_rec.PROJECT_ID := NULL;
372: ELSE
373: p_x_visit_rec.PROJECT_ID := p_x_visit_rec.PROJECT_ID;
374: END IF;
373: p_x_visit_rec.PROJECT_ID := p_x_visit_rec.PROJECT_ID;
374: END IF;
375:
376: -- space_category_code
377: IF p_x_visit_rec.space_category_code = Fnd_Api.G_MISS_CHAR THEN
378: p_x_visit_rec.space_category_code := NULL;
379: ELSE
380: p_x_visit_rec.space_category_code := p_x_visit_rec.space_category_code;
381: END IF;
380: p_x_visit_rec.space_category_code := p_x_visit_rec.space_category_code;
381: END IF;
382:
383: -- description
384: IF p_x_visit_rec.description = Fnd_Api.G_MISS_CHAR THEN
385: p_x_visit_rec.description := NULL;
386: ELSE
387: p_x_visit_rec.description := p_x_visit_rec.description;
388: END IF;
388: END IF;
389:
390: -- Post 11.5.10 Enhancements
391: -- Adding priority and project template
392: IF p_x_visit_rec.priority_code = Fnd_Api.G_MISS_CHAR THEN
393: p_x_visit_rec.priority_code := NULL;
394: ELSE
395: p_x_visit_rec.priority_code := p_x_visit_rec.priority_code;
396: END IF;
394: ELSE
395: p_x_visit_rec.priority_code := p_x_visit_rec.priority_code;
396: END IF;
397:
398: IF p_x_visit_rec.proj_template_id = Fnd_Api.G_MISS_NUM THEN
399: p_x_visit_rec.proj_template_id := NULL;
400: ELSE
401: p_x_visit_rec.proj_template_id := p_x_visit_rec.proj_template_id;
402: END IF;
405: -- Adding item id and visit type code.
406: -- since these fields are not mandatory in Post 11.5.10
407: -- serial number check already exists (item_instance_id)
408: -- ITEM ID
409: IF p_x_visit_rec.inventory_item_id = Fnd_Api.G_MISS_NUM THEN
410: p_x_visit_rec.inventory_item_id := NULL;
411: ELSE
412: p_x_visit_rec.inventory_item_id := p_x_visit_rec.inventory_item_id;
413: END IF;
412: p_x_visit_rec.inventory_item_id := p_x_visit_rec.inventory_item_id;
413: END IF;
414:
415: -- VISIT TYPE CODE
416: IF p_x_visit_rec.visit_type_code = Fnd_Api.G_MISS_CHAR THEN
417: p_x_visit_rec.visit_type_code := NULL;
418: ELSE
419: p_x_visit_rec.visit_type_code := p_x_visit_rec.visit_type_code;
420: END IF;
420: END IF;
421:
422: -- MANESING::Component Maintenance Planning Project, 02-Nov-2011, default sub-inventories and locators
423: -- Inventory Locator id
424: IF (p_x_visit_rec.inv_locator_id = FND_API.G_MISS_NUM) THEN
425: p_x_visit_rec.inv_locator_id := NULL;
426: END IF;
427:
428: -- Planning Locator id
425: p_x_visit_rec.inv_locator_id := NULL;
426: END IF;
427:
428: -- Planning Locator id
429: IF (p_x_visit_rec.comp_planning_loc_id = FND_API.G_MISS_NUM) THEN
430: p_x_visit_rec.comp_planning_loc_id := NULL;
431: END IF;
432:
433: -- In-Repair Locator id
430: p_x_visit_rec.comp_planning_loc_id := NULL;
431: END IF;
432:
433: -- In-Repair Locator id
434: IF (p_x_visit_rec.comp_inrepair_loc_id = FND_API.G_MISS_NUM) THEN
435: p_x_visit_rec.comp_inrepair_loc_id := NULL;
436: END IF;
437:
438: IF p_x_visit_rec.attribute_category = Fnd_Api.G_MISS_CHAR THEN
434: IF (p_x_visit_rec.comp_inrepair_loc_id = FND_API.G_MISS_NUM) THEN
435: p_x_visit_rec.comp_inrepair_loc_id := NULL;
436: END IF;
437:
438: IF p_x_visit_rec.attribute_category = Fnd_Api.G_MISS_CHAR THEN
439: p_x_visit_rec.attribute_category := NULL;
440: ELSE
441: p_x_visit_rec.attribute_category := p_x_visit_rec.attribute_category;
442: END IF;
440: ELSE
441: p_x_visit_rec.attribute_category := p_x_visit_rec.attribute_category;
442: END IF;
443:
444: IF p_x_visit_rec.attribute1 = Fnd_Api.G_MISS_CHAR THEN
445: p_x_visit_rec.attribute1 := NULL;
446: ELSE
447: p_x_visit_rec.attribute1 := p_x_visit_rec.attribute1;
448: END IF;
446: ELSE
447: p_x_visit_rec.attribute1 := p_x_visit_rec.attribute1;
448: END IF;
449:
450: IF p_x_visit_rec.attribute2 = Fnd_Api.G_MISS_CHAR THEN
451: p_x_visit_rec.attribute2 := NULL;
452: ELSE
453: p_x_visit_rec.attribute2 := p_x_visit_rec.attribute2;
454: END IF;
452: ELSE
453: p_x_visit_rec.attribute2 := p_x_visit_rec.attribute2;
454: END IF;
455:
456: IF p_x_visit_rec.attribute3 = Fnd_Api.G_MISS_CHAR THEN
457: p_x_visit_rec.attribute3 := NULL;
458: ELSE
459: p_x_visit_rec.attribute3 := p_x_visit_rec.attribute3;
460: END IF;
458: ELSE
459: p_x_visit_rec.attribute3 := p_x_visit_rec.attribute3;
460: END IF;
461:
462: IF p_x_visit_rec.attribute4 = Fnd_Api.G_MISS_CHAR THEN
463: p_x_visit_rec.attribute4 := NULL;
464: ELSE
465: p_x_visit_rec.attribute4 := p_x_visit_rec.attribute4;
466: END IF;
464: ELSE
465: p_x_visit_rec.attribute4 := p_x_visit_rec.attribute4;
466: END IF;
467:
468: IF p_x_visit_rec.attribute5 = Fnd_Api.G_MISS_CHAR THEN
469: p_x_visit_rec.attribute5 := NULL;
470: ELSE
471: p_x_visit_rec.attribute5 := p_x_visit_rec.attribute5;
472: END IF;
470: ELSE
471: p_x_visit_rec.attribute5 := p_x_visit_rec.attribute5;
472: END IF;
473:
474: IF p_x_visit_rec.attribute6 = Fnd_Api.G_MISS_CHAR THEN
475: p_x_visit_rec.attribute6 := NULL;
476: ELSE
477: p_x_visit_rec.attribute6 := p_x_visit_rec.attribute6;
478: END IF;
476: ELSE
477: p_x_visit_rec.attribute6 := p_x_visit_rec.attribute6;
478: END IF;
479:
480: IF p_x_visit_rec.attribute7 = Fnd_Api.G_MISS_CHAR THEN
481: p_x_visit_rec.attribute7 := NULL;
482: ELSE
483: p_x_visit_rec.attribute7 := p_x_visit_rec.attribute7;
484: END IF;
482: ELSE
483: p_x_visit_rec.attribute7 := p_x_visit_rec.attribute7;
484: END IF;
485:
486: IF p_x_visit_rec.attribute8 = Fnd_Api.G_MISS_CHAR THEN
487: p_x_visit_rec.attribute8 := NULL;
488: ELSE
489: p_x_visit_rec.attribute8 := p_x_visit_rec.attribute8;
490: END IF;
488: ELSE
489: p_x_visit_rec.attribute8 := p_x_visit_rec.attribute8;
490: END IF;
491:
492: IF p_x_visit_rec.attribute9 = Fnd_Api.G_MISS_CHAR THEN
493: p_x_visit_rec.attribute9 := NULL;
494: ELSE
495: p_x_visit_rec.attribute9 := p_x_visit_rec.attribute9;
496: END IF;
494: ELSE
495: p_x_visit_rec.attribute9 := p_x_visit_rec.attribute9;
496: END IF;
497:
498: IF p_x_visit_rec.attribute10 = Fnd_Api.G_MISS_CHAR THEN
499: p_x_visit_rec.attribute10 := NULL;
500: ELSE
501: p_x_visit_rec.attribute10 := p_x_visit_rec.attribute10;
502: END IF;
500: ELSE
501: p_x_visit_rec.attribute10 := p_x_visit_rec.attribute10;
502: END IF;
503:
504: IF p_x_visit_rec.attribute11 = Fnd_Api.G_MISS_CHAR THEN
505: p_x_visit_rec.attribute11 := NULL;
506: ELSE
507: p_x_visit_rec.attribute11 := p_x_visit_rec.attribute11;
508: END IF;
506: ELSE
507: p_x_visit_rec.attribute11 := p_x_visit_rec.attribute11;
508: END IF;
509:
510: IF p_x_visit_rec.attribute12 = Fnd_Api.G_MISS_CHAR THEN
511: p_x_visit_rec.attribute12 := NULL;
512: ELSE
513: p_x_visit_rec.attribute12 := p_x_visit_rec.attribute12;
514: END IF;
512: ELSE
513: p_x_visit_rec.attribute12 := p_x_visit_rec.attribute12;
514: END IF;
515:
516: IF p_x_visit_rec.attribute13 = Fnd_Api.G_MISS_CHAR THEN
517: p_x_visit_rec.attribute13 := NULL;
518: ELSE
519: p_x_visit_rec.attribute13 := p_x_visit_rec.attribute13;
520: END IF;
518: ELSE
519: p_x_visit_rec.attribute13 := p_x_visit_rec.attribute13;
520: END IF;
521:
522: IF p_x_visit_rec.attribute14 = Fnd_Api.G_MISS_CHAR THEN
523: p_x_visit_rec.attribute14 := NULL;
524: ELSE
525: p_x_visit_rec.attribute14 := p_x_visit_rec.attribute14;
526: END IF;
524: ELSE
525: p_x_visit_rec.attribute14 := p_x_visit_rec.attribute14;
526: END IF;
527:
528: IF p_x_visit_rec.attribute15 = Fnd_Api.G_MISS_CHAR THEN
529: p_x_visit_rec.attribute15 := NULL;
530: ELSE
531: p_x_visit_rec.attribute15 := p_x_visit_rec.attribute15;
532: END IF;
685: -- between API's and frontend.
686: --------------------------------------------------------------------
687: PROCEDURE Process_Visit (
688: p_api_version IN NUMBER,
689: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
690: p_commit IN VARCHAR2 := FND_API.g_false,
691: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
692: p_module_type IN VARCHAR2 := 'JSP',
693: p_x_Visit_tbl IN OUT NOCOPY Visit_Tbl_Type,
686: --------------------------------------------------------------------
687: PROCEDURE Process_Visit (
688: p_api_version IN NUMBER,
689: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
690: p_commit IN VARCHAR2 := FND_API.g_false,
691: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
692: p_module_type IN VARCHAR2 := 'JSP',
693: p_x_Visit_tbl IN OUT NOCOPY Visit_Tbl_Type,
694: x_return_status OUT NOCOPY VARCHAR2,
687: PROCEDURE Process_Visit (
688: p_api_version IN NUMBER,
689: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
690: p_commit IN VARCHAR2 := FND_API.g_false,
691: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
692: p_module_type IN VARCHAR2 := 'JSP',
693: p_x_Visit_tbl IN OUT NOCOPY Visit_Tbl_Type,
694: x_return_status OUT NOCOPY VARCHAR2,
695: x_msg_count OUT NOCOPY NUMBER,
711: -- Transit Visit Change
712: -- yazhou start
713: -- SKPATHAK :: Bug 9115894 :: 23-NOV-2009
714: l_status_flag VARCHAR2(1) := 'S';
715: l_init_msg_list VARCHAR2(1) := FND_API.g_false;
716: l_message_stack_tbl G_MESSAGE_STACK_TBL;
717:
718: l_visit_status VARCHAR2(30);
719: l_ue_ids VARCHAR2(4000);
742: END IF;
743:
744: -- Initialize API return status to success
745: -- Initialize message list if p_init_msg_list is set to TRUE.
746: IF FND_API.to_boolean(p_init_msg_list) THEN
747: FND_MSG_PUB.initialize;
748: END IF;
749:
750: x_return_status := FND_API.G_RET_STS_SUCCESS;
746: IF FND_API.to_boolean(p_init_msg_list) THEN
747: FND_MSG_PUB.initialize;
748: END IF;
749:
750: x_return_status := FND_API.G_RET_STS_SUCCESS;
751:
752: -- Standard call to check for call compatibility.
753: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
754: p_api_version,
749:
750: x_return_status := FND_API.G_RET_STS_SUCCESS;
751:
752: -- Standard call to check for call compatibility.
753: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
754: p_api_version,
755: l_api_name,G_PKG_NAME) THEN
756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
757: END IF;
752: -- Standard call to check for call compatibility.
753: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
754: p_api_version,
755: l_api_name,G_PKG_NAME) THEN
756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
757: END IF;
758:
759: --------------------Start of API Body-----------------------------------
760: IF p_x_Visit_tbl.COUNT > 0 THEN
774: Create_Visit
775: (
776: p_api_version => l_api_version,
777: -- Changed by jaramana on 18-NOV-2009 for bug 9115894
778: p_init_msg_list => FND_API.g_false,
779: p_commit => Fnd_Api.g_false,
780: p_validation_level => p_validation_level,
781: p_module_type => p_module_type,
782: p_x_visit_rec => p_x_Visit_tbl(i),
775: (
776: p_api_version => l_api_version,
777: -- Changed by jaramana on 18-NOV-2009 for bug 9115894
778: p_init_msg_list => FND_API.g_false,
779: p_commit => Fnd_Api.g_false,
780: p_validation_level => p_validation_level,
781: p_module_type => p_module_type,
782: p_x_visit_rec => p_x_Visit_tbl(i),
783: x_return_status => l_return_status,
799: Update_Visit
800: (
801: p_api_version => l_api_version,
802: -- Changed by jaramana on 18-NOV-2009 for bug 9115894
803: p_init_msg_list => FND_API.g_false,
804: p_commit => Fnd_Api.g_false,
805: p_validation_level => p_validation_level,
806: p_module_type => p_module_type,
807: p_x_Visit_rec => p_x_Visit_tbl(i),
800: (
801: p_api_version => l_api_version,
802: -- Changed by jaramana on 18-NOV-2009 for bug 9115894
803: p_init_msg_list => FND_API.g_false,
804: p_commit => Fnd_Api.g_false,
805: p_validation_level => p_validation_level,
806: p_module_type => p_module_type,
807: p_x_Visit_rec => p_x_Visit_tbl(i),
808: x_return_status => l_return_status,
824: Delete_Visit
825: (
826: p_api_version => l_api_version,
827: -- Changed by jaramana on 18-NOV-2009 for bug 9115894
828: p_init_msg_list => FND_API.g_false,
829: p_commit => Fnd_Api.g_false,
830: p_validation_level => p_validation_level,
831: p_Visit_id => p_x_visit_tbl(i).visit_id,
832: x_return_status => l_return_status,
825: (
826: p_api_version => l_api_version,
827: -- Changed by jaramana on 18-NOV-2009 for bug 9115894
828: p_init_msg_list => FND_API.g_false,
829: p_commit => Fnd_Api.g_false,
830: p_validation_level => p_validation_level,
831: p_Visit_id => p_x_visit_tbl(i).visit_id,
832: x_return_status => l_return_status,
833: x_msg_count => l_msg_count,
853: Synchronize_Visit
854: (
855: p_api_version => l_api_version,
856: -- Changed by jaramana on 18-NOV-2009 for bug 9115894
857: p_init_msg_list => FND_API.g_false,
858: p_commit => Fnd_Api.g_false,
859: p_validation_level => p_validation_level,
860: p_x_Visit_rec => p_x_visit_tbl(i),
861: x_return_status => l_return_status,
854: (
855: p_api_version => l_api_version,
856: -- Changed by jaramana on 18-NOV-2009 for bug 9115894
857: p_init_msg_list => FND_API.g_false,
858: p_commit => Fnd_Api.g_false,
859: p_validation_level => p_validation_level,
860: p_x_Visit_rec => p_x_visit_tbl(i),
861: x_return_status => l_return_status,
862: x_msg_count => l_msg_count,
882: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
883: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit status not found for visit : ' ||p_x_Visit_tbl(i).visit_id );
884: END IF;
885: END IF;
886: RAISE Fnd_Api.g_exc_error;
887: ELSE
888: CLOSE c_visit_status;
889: END IF;
890:
892: -- If status flag is V, then initialize the message list
893: -- and store all the message in the message stack in l_message_stack_tbl
894: IF l_status_flag = 'V' THEN
895: Get_Message_Stack (x_message_stack_tbl => l_message_stack_tbl);
896: l_init_msg_list := FND_API.g_true;
897: ELSE
898: l_init_msg_list := FND_API.g_false;
899: END IF;
900:
894: IF l_status_flag = 'V' THEN
895: Get_Message_Stack (x_message_stack_tbl => l_message_stack_tbl);
896: l_init_msg_list := FND_API.g_true;
897: ELSE
898: l_init_msg_list := FND_API.g_false;
899: END IF;
900:
901: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063
902:
917: (
918: p_api_version => l_api_version,
919: -- Changed by jaramana on 18-NOV-2009 for bug 9115894
920: p_init_msg_list => l_init_msg_list,
921: p_commit => Fnd_Api.g_false,
922: p_validation_level => p_validation_level,
923: p_Visit_id => p_x_visit_tbl(i).visit_id,
924: x_return_status => l_return_status,
925: x_msg_count => l_msg_count,
938: Cancel_Visit (
939: p_api_version => l_api_version,
940: -- Changed by jaramana on 18-NOV-2009 for bug 9115894
941: p_init_msg_list => l_init_msg_list,
942: p_commit => Fnd_Api.g_false,
943: p_validation_level => p_validation_level,
944: p_module_type => p_module_type,
945: p_visit_id => p_x_visit_tbl(i).visit_id,
946: p_obj_ver_num => p_x_visit_tbl(i).object_version_number,
973:
974: AHL_AVF_OPER_VSTS_PVT.Launch_Visit_Can_Notification (
975: p_visit_id => p_x_visit_tbl(i).visit_id,
976: p_ue_ids => l_ue_ids,
977: p_commit => FND_API.G_FALSE,
978: x_item_key => l_item_key,
979: x_return_status => l_return_status
980: );
981:
982: IF (l_log_statement >= l_log_current_level) THEN
983: FND_LOG.string(l_log_statement, l_debug, 'After call to AHL_AVF_OPER_VSTS_PVT.Launch_Visit_Can_Notification API, Return Status: ' || l_return_status);
984: END IF;
985:
986: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
987:
988: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
989: RAISE FND_API.G_EXC_ERROR;
990: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
984: END IF;
985:
986: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
987:
988: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
989: RAISE FND_API.G_EXC_ERROR;
990: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
992: END IF;
985:
986: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
987:
988: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
989: RAISE FND_API.G_EXC_ERROR;
990: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
992: END IF;
993:
986: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
987:
988: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
989: RAISE FND_API.G_EXC_ERROR;
990: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
992: END IF;
993:
994: END IF;
987:
988: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
989: RAISE FND_API.G_EXC_ERROR;
990: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
992: END IF;
993:
994: END IF;
995: END IF; -- IF l_ue_ids IS NOT NULL
1019: END IF;
1020:
1021: -- SKPATHAK :: Bug 9115894 :: 19-NOV-2009
1022: IF (l_status_flag = 'E') THEN
1023: RAISE Fnd_Api.G_EXC_ERROR;
1024: ELSIF (l_status_flag = 'U') THEN
1025: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1026: END IF;
1027:
1021: -- SKPATHAK :: Bug 9115894 :: 19-NOV-2009
1022: IF (l_status_flag = 'E') THEN
1023: RAISE Fnd_Api.G_EXC_ERROR;
1024: ELSIF (l_status_flag = 'U') THEN
1025: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1026: END IF;
1027:
1028:
1029: ------------------------End of API Body---------------------------------------
1033: IF l_msg_count > 0 THEN
1034: x_msg_count := l_msg_count;
1035: IF l_status_flag <> 'V' THEN
1036: -- Unknown messages
1037: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1038: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1039: END IF;
1040: END IF;
1041:
1034: x_msg_count := l_msg_count;
1035: IF l_status_flag <> 'V' THEN
1036: -- Unknown messages
1037: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1038: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1039: END IF;
1040: END IF;
1041:
1042: -- Proceed to commit if status is 'S' or if there were only validation errors
1040: END IF;
1041:
1042: -- Proceed to commit if status is 'S' or if there were only validation errors
1043: --Standard check for commit
1044: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1045: COMMIT;
1046: END IF;
1047:
1048: -- Added by jaramana on 18-NOV-2009 for bug 9115894
1049: -- If validation had failed for any of the visits, return 'V' to the caller
1050: -- Otherwise X_return_status will already be 'S'
1051: IF l_status_flag = 'V' THEN
1052: X_return_status := G_VALIDATION_ERROR_STATUS;
1053: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1054: p_count => x_msg_count,
1055: p_data => x_msg_data);
1056: END IF;
1057:
1060: END IF;
1061:
1062: EXCEPTION
1063:
1064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1065: ROLLBACK TO Process_Visit;
1066: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1067: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1068: p_count => x_msg_count,
1062: EXCEPTION
1063:
1064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1065: ROLLBACK TO Process_Visit;
1066: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1067: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1068: p_count => x_msg_count,
1069: p_data => x_msg_data);
1070:
1063:
1064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1065: ROLLBACK TO Process_Visit;
1066: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1067: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1068: p_count => x_msg_count,
1069: p_data => x_msg_data);
1070:
1071: WHEN FND_API.G_EXC_ERROR THEN
1067: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1068: p_count => x_msg_count,
1069: p_data => x_msg_data);
1070:
1071: WHEN FND_API.G_EXC_ERROR THEN
1072: ROLLBACK TO Process_Visit;
1073: X_return_status := FND_API.G_RET_STS_ERROR;
1074: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1075: p_count => x_msg_count,
1069: p_data => x_msg_data);
1070:
1071: WHEN FND_API.G_EXC_ERROR THEN
1072: ROLLBACK TO Process_Visit;
1073: X_return_status := FND_API.G_RET_STS_ERROR;
1074: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1075: p_count => x_msg_count,
1076: p_data => X_msg_data);
1077:
1070:
1071: WHEN FND_API.G_EXC_ERROR THEN
1072: ROLLBACK TO Process_Visit;
1073: X_return_status := FND_API.G_RET_STS_ERROR;
1074: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1075: p_count => x_msg_count,
1076: p_data => X_msg_data);
1077:
1078: WHEN OTHERS THEN
1076: p_data => X_msg_data);
1077:
1078: WHEN OTHERS THEN
1079: ROLLBACK TO Process_Visit;
1080: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1081: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1082: THEN
1083: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_VWP_VISITS_PVT',
1084: p_procedure_name => 'Process_Visit',
1083: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_VWP_VISITS_PVT',
1084: p_procedure_name => 'Process_Visit',
1085: p_error_text => SUBSTR(SQLERRM,1,240));
1086: END IF;
1087: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1088: p_count => x_msg_count,
1089: p_data => x_msg_data);
1090: END Process_Visit;
1091:
1097: -- Get a particular Visit Records with all details
1098: --------------------------------------------------------------------
1099: PROCEDURE Get_Visit_Details (
1100: p_api_version IN NUMBER,
1101: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1102: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1103: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1104: p_module_type IN VARCHAR2 := 'JSP',
1105: p_visit_id IN NUMBER,
1098: --------------------------------------------------------------------
1099: PROCEDURE Get_Visit_Details (
1100: p_api_version IN NUMBER,
1101: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1102: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1103: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1104: p_module_type IN VARCHAR2 := 'JSP',
1105: p_visit_id IN NUMBER,
1106: x_Visit_rec OUT NOCOPY Visit_Rec_Type,
1099: PROCEDURE Get_Visit_Details (
1100: p_api_version IN NUMBER,
1101: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1102: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1103: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1104: p_module_type IN VARCHAR2 := 'JSP',
1105: p_visit_id IN NUMBER,
1106: x_Visit_rec OUT NOCOPY Visit_Rec_Type,
1107: x_return_status OUT NOCOPY VARCHAR2,
1341: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure, p_visit_id - '||p_visit_id);
1342: END IF;
1343:
1344: -- Initialize message list if p_init_msg_list is set to TRUE.
1345: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
1346: Fnd_Msg_Pub.initialize;
1347: END IF;
1348:
1349: -- Initialize API return status to success
1346: Fnd_Msg_Pub.initialize;
1347: END IF;
1348:
1349: -- Initialize API return status to success
1350: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1351:
1352: -- Standard call to check for call compatibility.
1353: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1354: p_api_version,
1349: -- Initialize API return status to success
1350: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1351:
1352: -- Standard call to check for call compatibility.
1353: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1354: p_api_version,
1355: l_api_name,G_PKG_NAME) THEN
1356: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1357: END IF;
1352: -- Standard call to check for call compatibility.
1353: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1354: p_api_version,
1355: l_api_name,G_PKG_NAME) THEN
1356: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1357: END IF;
1358: ------------------------------Start of API Body------------------------------------
1359:
1360: ----------------------------------------- Cursor ----------------------------------
1413:
1414: -- Post 11.5.10
1415: -- Reema Start
1416: -- To check if visit starttime is not null then store time in HH4 format
1417: IF (c_visit_rec.START_DATE_TIME IS NOT NULL AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE) THEN
1418: l_hour := TO_NUMBER(TO_CHAR(c_visit_rec.START_DATE_TIME , 'HH24'));
1419: l_minute := TO_NUMBER(TO_CHAR(c_visit_rec.START_DATE_TIME , 'MI'));
1420: ELSE
1421: l_hour := NULL;
1422: c_visit_rec.START_DATE_TIME := NULL;
1423: END IF;
1424:
1425: -- To check if visit closetime is not null then store time in HH4 format
1426: IF (visit_rec.CLOSE_DATE_TIME IS NOT NULL AND visit_rec.CLOSE_DATE_TIME <> Fnd_Api.G_MISS_DATE) THEN
1427: l_hour_close := TO_NUMBER(TO_CHAR(visit_rec.CLOSE_DATE_TIME , 'HH24'));
1428: l_minute_close := TO_NUMBER(TO_CHAR(c_visit_rec.CLOSE_DATE_TIME , 'MI'));
1429: ELSE
1430: l_hour_close := NULL;
1442: END IF;
1443:
1444: -- Derive the visit end date
1445: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
1446: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE
1447: AND c_visit_rec.DEPARTMENT_ID IS NOT NULL
1448: AND c_visit_rec.DEPARTMENT_ID <> FND_API.G_MISS_NUM) THEN
1449: l_visit_end_date:= AHL_VWP_TIMES_PVT.get_visit_end_time(p_visit_id);
1450: END IF;
1444: -- Derive the visit end date
1445: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
1446: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE
1447: AND c_visit_rec.DEPARTMENT_ID IS NOT NULL
1448: AND c_visit_rec.DEPARTMENT_ID <> FND_API.G_MISS_NUM) THEN
1449: l_visit_end_date:= AHL_VWP_TIMES_PVT.get_visit_end_time(p_visit_id);
1450: END IF;
1451:
1452:
1466: IF c_proj_template%NOTFOUND THEN
1467: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1468: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_PROTEM');
1469: Fnd_Msg_Pub.ADD;
1470: RAISE Fnd_Api.G_EXC_ERROR;
1471: END IF;
1472: END IF;
1473: CLOSE c_proj_template;
1474: END IF;
1594: -- Standard call to get message count and if count is 1, get message info
1595: Fnd_Msg_Pub.Count_And_Get
1596: ( p_count => x_msg_count,
1597: p_data => x_msg_data,
1598: p_encoded => Fnd_Api.g_false);
1599:
1600: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1601: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
1602: END IF;
1602: END IF;
1603:
1604: RETURN;
1605: EXCEPTION
1606: WHEN Fnd_Api.G_EXC_ERROR THEN
1607: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1608: ROLLBACK TO Get_Visit_Details;
1609: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1610: p_data => x_msg_data,
1603:
1604: RETURN;
1605: EXCEPTION
1606: WHEN Fnd_Api.G_EXC_ERROR THEN
1607: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1608: ROLLBACK TO Get_Visit_Details;
1609: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1610: p_data => x_msg_data,
1611: p_encoded => Fnd_Api.g_false);
1607: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1608: ROLLBACK TO Get_Visit_Details;
1609: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1610: p_data => x_msg_data,
1611: p_encoded => Fnd_Api.g_false);
1612:
1613: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1614: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1615: ROLLBACK TO Get_Visit_Details;
1609: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1610: p_data => x_msg_data,
1611: p_encoded => Fnd_Api.g_false);
1612:
1613: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1614: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1615: ROLLBACK TO Get_Visit_Details;
1616: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1617: p_data => x_msg_data,
1610: p_data => x_msg_data,
1611: p_encoded => Fnd_Api.g_false);
1612:
1613: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1614: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1615: ROLLBACK TO Get_Visit_Details;
1616: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1617: p_data => x_msg_data,
1618: p_encoded => Fnd_Api.g_false);
1614: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1615: ROLLBACK TO Get_Visit_Details;
1616: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1617: p_data => x_msg_data,
1618: p_encoded => Fnd_Api.g_false);
1619:
1620: WHEN OTHERS THEN
1621: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1622: ROLLBACK TO Get_Visit_Details;
1617: p_data => x_msg_data,
1618: p_encoded => Fnd_Api.g_false);
1619:
1620: WHEN OTHERS THEN
1621: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1622: ROLLBACK TO Get_Visit_Details;
1623: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1624: p_procedure_name => 'Get_Visit_Details',
1625: p_error_text => SQLERRM);
1624: p_procedure_name => 'Get_Visit_Details',
1625: p_error_text => SQLERRM);
1626: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1627: p_data => x_msg_data,
1628: p_encoded => Fnd_Api.g_false);
1629: END Get_Visit_Details;
1630:
1631: --------------------------------------------------------------------
1632: -- PROCEDURE
1636: -- To create a Maintainance Visit
1637: --------------------------------------------------------------------
1638: PROCEDURE Create_Visit (
1639: p_api_version IN NUMBER,
1640: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1641: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1642: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1643: p_module_type IN VARCHAR2 := 'JSP',
1644: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
1637: --------------------------------------------------------------------
1638: PROCEDURE Create_Visit (
1639: p_api_version IN NUMBER,
1640: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1641: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1642: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1643: p_module_type IN VARCHAR2 := 'JSP',
1644: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
1645: x_return_status OUT NOCOPY VARCHAR2,
1638: PROCEDURE Create_Visit (
1639: p_api_version IN NUMBER,
1640: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1641: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1642: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1643: p_module_type IN VARCHAR2 := 'JSP',
1644: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
1645: x_return_status OUT NOCOPY VARCHAR2,
1646: x_msg_count OUT NOCOPY NUMBER,
1818: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
1819: END IF;
1820:
1821: -- Initialize message list if p_init_msg_list is set to TRUE.
1822: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
1823: Fnd_Msg_Pub.initialize;
1824: END IF;
1825:
1826: -- Initialize API return status to success
1823: Fnd_Msg_Pub.initialize;
1824: END IF;
1825:
1826: -- Initialize API return status to success
1827: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1828:
1829: -- Standard call to check for call compatibility.
1830: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1831: p_api_version,
1826: -- Initialize API return status to success
1827: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1828:
1829: -- Standard call to check for call compatibility.
1830: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1831: p_api_version,
1832: l_api_name,G_PKG_NAME) THEN
1833: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1834: END IF;
1829: -- Standard call to check for call compatibility.
1830: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1831: p_api_version,
1832: l_api_name,G_PKG_NAME) THEN
1833: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1834: END IF;
1835: ------------------------Start of API Body------------------------------------
1836:
1837: --------------------Value OR ID conversion---------------------------
1843: END IF;
1844:
1845: -- For VISIT STATUS
1846: -- To check visit status by default is Draft if not entered as input
1847: IF l_visit_rec.status_code IS NULL OR l_visit_rec.status_code = Fnd_Api.G_MISS_CHAR THEN
1848: -- VWPE ER-12424063 :: tchimira :: 15-FEB -2011
1849: --As a part of VWP enhancement, going forward Visits will be created with status 'DRAFT'.Commenting below statement for the same.
1850: --l_Visit_rec.status_code := 'PLANNING';
1851: l_Visit_rec.status_code := 'DRAFT';
1856: END IF;
1857:
1858: ----------- Starts defining all Dropdowns on Create Visit UI Screen-------------
1859: -- For SPACE CATEGORY CODE
1860: IF l_Visit_rec.space_category_code = Fnd_Api.G_MISS_CHAR THEN
1861: l_Visit_rec.space_category_code := Null;
1862: END IF;
1863:
1864: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1868: ----------- Start defining and validate all LOVs on Create Visit UI Screen---
1869: -- For VISIT TYPE
1870: -- To find Visit Type Code when Visit Type Name has input values
1871: IF l_Visit_rec.visit_type_name IS NOT NULL AND
1872: l_Visit_rec.visit_type_name <> Fnd_Api.G_MISS_CHAR THEN
1873:
1874: AHL_VWP_RULES_PVT.Check_Lookup_Name_Or_Id (
1875: p_lookup_type => 'AHL_PLANNING_VISIT_TYPE',
1876: p_lookup_code => NULL,
1881:
1882: IF NVL(l_return_status, 'X') <> 'S' THEN
1883: Fnd_Message.SET_NAME('AHL','AHL_VWP_TYPE_CODE_NOT_EXISTS');
1884: Fnd_Msg_Pub.ADD;
1885: RAISE Fnd_Api.G_EXC_ERROR;
1886: END IF;
1887:
1888: END IF;
1889:
1886: END IF;
1887:
1888: END IF;
1889:
1890: IF l_Visit_rec.unit_name IS NOT NULL AND l_Visit_rec.unit_name <> Fnd_Api.G_MISS_CHAR THEN
1891: OPEN c_unit_det(l_Visit_rec.unit_name);
1892: FETCH c_unit_det INTO l_Visit_rec.unit_name,l_Visit_rec.serial_number,l_Visit_rec.item_instance_id,
1893: l_Visit_rec.inventory_item_id,l_Visit_rec.item_organization_id;
1894: IF c_unit_det%NOTFOUND THEN
1897: END IF;
1898: Fnd_Message.SET_NAME('AHL','AHL_VWP_UNIT_NOT_EXISTS');
1899: Fnd_Msg_Pub.ADD;
1900: CLOSE c_unit_det;
1901: RAISE Fnd_Api.G_EXC_ERROR;
1902: END IF;
1903: CLOSE c_unit_det;
1904:
1905: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1914:
1915: -- For ORGANIZATION
1916: -- To Convert Organization Name to Organization Id
1917: IF (l_Visit_rec.org_name IS NOT NULL AND
1918: l_Visit_rec.org_name <> Fnd_Api.G_MISS_CHAR) THEN
1919:
1920: AHL_VWP_RULES_PVT.Check_Org_Name_Or_Id
1921: (p_organization_id => l_Visit_rec.organization_id,
1922: p_org_name => l_Visit_rec.org_name,
1926:
1927: IF NVL(l_return_status,'x') <> 'S' THEN
1928: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORG_NOT_EXISTS');
1929: Fnd_Msg_Pub.ADD;
1930: RAISE Fnd_Api.G_EXC_ERROR;
1931: END IF;
1932: END IF;
1933:
1934: IF (l_Visit_rec.org_name IS NOT NULL AND
1931: END IF;
1932: END IF;
1933:
1934: IF (l_Visit_rec.org_name IS NOT NULL AND
1935: l_Visit_rec.org_name <> Fnd_Api.G_MISS_CHAR ) THEN
1936: --Assign the returned value
1937: l_Visit_rec.organization_id := l_organization_id;
1938: /* ELSE
1939: l_Visit_rec.organization_id := NULL;*/
1945:
1946: -- For DEPARTMENT
1947: -- To convert Department Name to Department Id
1948: IF (l_Visit_rec.dept_name IS NOT NULL AND
1949: l_Visit_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) OR
1950: (l_Visit_rec.department_id IS NOT NULL AND
1951: l_Visit_rec.department_id <> Fnd_Api.G_MISS_NUM) THEN
1952:
1953: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
1947: -- To convert Department Name to Department Id
1948: IF (l_Visit_rec.dept_name IS NOT NULL AND
1949: l_Visit_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) OR
1950: (l_Visit_rec.department_id IS NOT NULL AND
1951: l_Visit_rec.department_id <> Fnd_Api.G_MISS_NUM) THEN
1952:
1953: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
1954: (p_organization_id => l_Visit_rec.organization_id,
1955: p_dept_name => l_Visit_rec.dept_name,
1960:
1961: IF NVL(l_return_status,'x') <> 'S' THEN
1962: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
1963: Fnd_Msg_Pub.ADD;
1964: RAISE Fnd_Api.G_EXC_ERROR;
1965: END IF;
1966:
1967: AHL_VWP_RULES_PVT.CHECK_DEPARTMENT_SHIFT
1968: (p_dept_id => l_department_id,
1970:
1971: IF NVL(l_return_status,'x') <> 'S' THEN
1972: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
1973: Fnd_Msg_Pub.ADD;
1974: RAISE Fnd_Api.G_EXC_ERROR;
1975: END IF;
1976: END IF;
1977:
1978: IF (l_Visit_rec.dept_name IS NOT NULL AND l_Visit_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
1974: RAISE Fnd_Api.G_EXC_ERROR;
1975: END IF;
1976: END IF;
1977:
1978: IF (l_Visit_rec.dept_name IS NOT NULL AND l_Visit_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
1979: --Assign the returned value
1980: l_Visit_rec.department_id := l_department_id;
1981: /* ELSE
1982: l_Visit_rec.department_id := NULL;*/
1987: END IF;
1988:
1989: -- For SERVICE REQUEST
1990: -- To Convert Service Request Number to Service Request Id
1991: IF (l_Visit_rec.service_request_number IS NOT NULL AND l_Visit_rec.service_request_number <> Fnd_Api.G_MISS_CHAR ) THEN
1992: AHL_VWP_RULES_PVT.Check_SR_Request_Number_Or_Id
1993: (p_service_id => l_Visit_rec.service_request_id,
1994: p_service_number => l_Visit_rec.service_request_number,
1995: x_service_id => l_service_id,
1998:
1999: IF NVL(l_return_status,'x') <> 'S' THEN
2000: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERVICE_REQ_NOT_EXISTS');
2001: Fnd_Msg_Pub.ADD;
2002: RAISE Fnd_Api.g_exc_error;
2003: END IF;
2004:
2005: --Assign the returned value
2006: l_Visit_rec.service_request_id := l_service_id;
2012:
2013: ----------- End defining and validate all LOVs on Create Visit UI Screen---
2014: -- For VISIT START DATE TIME
2015: -- Convert time stamp for start date time
2016: IF l_Visit_rec.START_DATE IS NOT NULL AND l_Visit_rec.START_DATE <> fnd_api.g_miss_date THEN
2017: IF (l_Visit_rec.START_HOUR IS NOT NULL AND l_visit_rec.START_MIN IS NOT NULL)THEN
2018: l_date := TO_CHAR(l_Visit_rec.START_DATE, 'DD-MM-YYYY ') || l_Visit_rec.start_hour ||':'|| l_visit_rec.start_min;
2019: l_Visit_rec.START_DATE := TO_DATE(l_date, 'DD-MM-YYYY HH24:MI');
2020: ELSIF l_Visit_rec.START_HOUR IS NOT NULL THEN
2032:
2033: --Added by amagrawa for Transit Visit
2034: -- For VISIT PLANNED END DATE TIME
2035: -- Convert time stamp for planned end date time
2036: IF l_Visit_rec.plan_end_date IS NOT NULL AND l_Visit_rec.plan_end_date <> fnd_api.g_miss_date THEN
2037: IF (l_Visit_rec.plan_end_HOUR IS NOT NULL AND l_visit_rec.plan_end_MIN IS NOT NULL)THEN
2038: l_date := TO_CHAR(l_Visit_rec.plan_end_date, 'DD-MM-YYYY ') || l_Visit_rec.plan_end_hour || ':'||l_visit_rec.plan_end_min;
2039: l_Visit_rec.plan_end_date := TO_DATE(l_date, 'DD-MM-YYYY HH24:MI');
2040: ELSIF l_Visit_rec.plan_end_hour IS NOT NULL THEN
2054: IF l_Visit_rec.START_DATE IS NOT NULL AND l_Visit_rec.plan_end_date IS NOT NULL THEN
2055: IF (l_Visit_rec.START_DATE > l_Visit_rec.plan_end_date) THEN
2056: Fnd_Message.SET_NAME('AHL','AHL_VWP_START_DT_GTR_CLOSE_DT');
2057: Fnd_Msg_Pub.ADD;
2058: RAISE Fnd_Api.G_EXC_ERROR;
2059: END IF;
2060: END IF;
2061: -- End of changes by amagrawa
2062: -- For SIMULATION PLAN
2060: END IF;
2061: -- End of changes by amagrawa
2062: -- For SIMULATION PLAN
2063: -- To check whether any primary plan exists in LTP
2064: IF l_visit_rec.SIMULATION_PLAN_ID = Fnd_Api.G_MISS_NUM THEN
2065: l_visit_rec.SIMULATION_PLAN_ID := NULL;
2066: END IF;
2067:
2068: IF (l_Visit_rec.SIMULATION_PLAN_ID IS NULL) THEN
2075:
2076: IF l_simulation_plan_id IS NULL THEN
2077: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRI_PLN_NOT_EXIST');
2078: Fnd_Msg_Pub.ADD;
2079: RAISE Fnd_Api.G_EXC_ERROR;
2080: END IF;
2081: END IF;
2082:
2083: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2085: END IF;
2086:
2087: -- Post 11.5.10 Enhancements
2088: -- For PRIORITY
2089: IF l_Visit_rec.priority_value IS NOT NULL AND l_Visit_rec.priority_value <> Fnd_Api.G_MISS_CHAR THEN
2090: AHL_VWP_RULES_PVT.Check_Lookup_Name_Or_Id
2091: (p_lookup_type => 'AHL_VWP_VISIT_PRIORITY',
2092: p_lookup_code => l_Visit_rec.priority_code,
2093: p_meaning => l_Visit_rec.priority_value,
2097:
2098: IF NVL(l_return_status, 'X') <> 'S' THEN
2099: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRI_NOT_EXISTS');
2100: Fnd_Msg_Pub.ADD;
2101: RAISE Fnd_Api.G_EXC_ERROR;
2102: END IF;
2103: l_visit_rec.priority_code := l_priority_code;
2104: END IF;
2105:
2109: IF l_visit_rec.proj_template_name IS NOT NULL THEN
2110: IF l_visit_rec.project_name IS NOT NULL THEN
2111: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_INV_PROJ_AND_TEMP');
2112: Fnd_Msg_Pub.ADD;
2113: RAISE Fnd_Api.G_EXC_ERROR;
2114: ELSE --i.e. name is null but template is not null
2115: AHL_VWP_RULES_PVT.Check_Project_Template_Or_Id
2116: ( p_proj_temp_name => l_visit_rec.proj_template_name,
2117: x_project_id => l_proj_template_id,
2120:
2121: IF NVL(l_return_status, 'X') <> 'S' THEN
2122: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_PROTEM');
2123: Fnd_Msg_Pub.ADD;
2124: RAISE Fnd_Api.G_EXC_ERROR;
2125: END IF;
2126: l_visit_rec.proj_template_id := l_proj_template_id;
2127: END IF; --project name not null
2128: ELSE
2136: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_INV_PROJ_NAME');
2137: Fnd_Message.Set_Token('PROJ_NAME', l_visit_rec.project_name);
2138: Fnd_Msg_Pub.ADD;
2139: CLOSE get_project_id_csr;
2140: RAISE Fnd_Api.G_EXC_ERROR;
2141: END IF;
2142: CLOSE get_project_id_csr;
2143: END IF;
2144: END IF;
2150: Fnd_Message.Set_Token('PROJ_NAME', l_visit_rec.project_name);
2151: Fnd_Message.Set_Token('PROJ_ID', l_visit_rec.project_id);
2152: Fnd_Msg_Pub.ADD;
2153: CLOSE validate_proj_date_csr;
2154: RAISE Fnd_Api.G_EXC_ERROR;
2155: END IF;
2156: CLOSE validate_proj_date_csr;
2157: END IF;
2158: --PRAKKUM ::FP PIE :: 13-OCT-2009 :: END
2163:
2164: IF ((l_visit_rec.subinventory IS NOT NULL) AND (l_visit_rec.locator_segment IS NULL)) THEN
2165: Fnd_Message.SET_NAME('AHL','AHL_VWP_LOCATOR_NULL');
2166: Fnd_Msg_Pub.ADD;
2167: RAISE Fnd_Api.G_EXC_ERROR;
2168: ELSIF ((l_visit_rec.subinventory IS NULL) AND (l_visit_rec.locator_segment IS NOT NULL))THEN
2169: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINVENTORY_NULL');
2170: Fnd_Msg_Pub.ADD;
2171: RAISE Fnd_Api.G_EXC_ERROR;
2167: RAISE Fnd_Api.G_EXC_ERROR;
2168: ELSIF ((l_visit_rec.subinventory IS NULL) AND (l_visit_rec.locator_segment IS NOT NULL))THEN
2169: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINVENTORY_NULL');
2170: Fnd_Msg_Pub.ADD;
2171: RAISE Fnd_Api.G_EXC_ERROR;
2172: ELSIF ((l_visit_rec.subinventory IS NOT NULL) AND (l_visit_rec.locator_segment IS NOT NULL)) THEN
2173:
2174: OPEN c_subinv_validate (l_visit_rec.subinventory, l_visit_rec.organization_id);
2175: FETCH c_subinv_validate INTO l_status_id;
2176: IF (c_subinv_validate%NOTFOUND) THEN
2177: CLOSE c_subinv_validate;
2178: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINV_NOT_EXISTS');
2179: Fnd_Msg_Pub.ADD;
2180: RAISE Fnd_Api.G_EXC_ERROR;
2181: ELSE
2182: IF l_status_id in (NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1), NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1)) THEN
2183: CLOSE c_subinv_validate;
2184: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
2183: CLOSE c_subinv_validate;
2184: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
2185: FND_MESSAGE.Set_Token('INV', l_visit_rec.subinventory);
2186: FND_MSG_PUB.ADD;
2187: RAISE Fnd_Api.G_EXC_ERROR;
2188: END IF;
2189: END IF;
2190: CLOSE c_subinv_validate;
2191:
2196: IF c_loc_validate%NOTFOUND THEN
2197: Fnd_Message.SET_NAME('AHL','AHL_VWP_PHY_LOCATOR_NOT_EXISTS');
2198: Fnd_Msg_Pub.ADD;
2199: CLOSE c_loc_validate;
2200: RAISE Fnd_Api.G_EXC_ERROR;
2201: END IF;
2202: CLOSE c_loc_validate;
2203:
2204: l_visit_rec.inv_locator_id := l_inv_loc_id;
2219: IF (l_status_id <> NVL(FND_PROFILE.VALUE('AHL_MTL_MAT_STATUS_UNSERVICABLE'), l_status_id)) THEN
2220: -- Planning and In-Repair Sub Inventory should be Unserviceable.
2221: FND_MESSAGE.SET_NAME('AHL', 'AHL_CMP_SUBINV_NOT_UNSVC');
2222: FND_MSG_PUB.ADD;
2223: RAISE FND_API.G_EXC_ERROR;
2224: END IF;
2225:
2226: l_inv_loc_id := NULL;
2227: OPEN c_loc_validate (l_visit_rec.organization_id, l_visit_rec.comp_planning_subinv, l_visit_rec.comp_planning_loc_seg);
2243: IF (l_status_id <> NVL(FND_PROFILE.VALUE('AHL_MTL_MAT_STATUS_UNSERVICABLE'), l_status_id)) THEN
2244: -- Planning and In-Repair Sub Inventory should be Unserviceable.
2245: FND_MESSAGE.SET_NAME('AHL', 'AHL_CMP_SUBINV_NOT_UNSVC');
2246: FND_MSG_PUB.ADD;
2247: RAISE FND_API.G_EXC_ERROR;
2248: END IF;
2249:
2250: l_inv_loc_id := NULL;
2251: OPEN c_loc_validate (l_visit_rec.organization_id, l_visit_rec.comp_inrepair_subinv, l_visit_rec.comp_inrepair_loc_seg);
2265: l_visit_rec.comp_planning_loc_id = l_visit_rec.comp_inrepair_loc_id) THEN
2266: -- Please set different locators for Physical, Planning and In-Repair Sub Inventories.
2267: FND_MESSAGE.SET_NAME('AHL', 'AHL_CMP_DIFF_LOCATORS');
2268: FND_MSG_PUB.ADD;
2269: RAISE FND_API.G_EXC_ERROR;
2270: END IF;
2271: -- SATHAPLI::Component Maintenance Planning Project, 02-Nov-2011, end
2272:
2273: -------------------------------- Validate -----------------------------------------
2277:
2278: Validate_Visit (
2279: p_api_version => l_api_version,
2280: p_init_msg_list => p_init_msg_list,
2281: p_commit => Fnd_Api.g_false,
2282: p_validation_level => p_validation_level,
2283: p_Visit_rec => l_Visit_rec,
2284: x_return_status => l_return_status,
2285: x_msg_count => x_msg_count,
2290: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Validate_Visit - l_return_status : '||l_return_status);
2291: END IF;
2292:
2293: -- Check for the ID.
2294: IF (l_Visit_rec.VISIT_ID = Fnd_Api.g_miss_num OR l_Visit_rec.VISIT_ID IS Null) THEN
2295: -- If the ID is not passed into the API, then
2296: -- grab a value from the sequence.
2297: OPEN c_seq;
2298: FETCH c_seq INTO l_Visit_rec.VISIT_ID;
2324: l_msg_count := Fnd_Msg_Pub.count_msg;
2325:
2326: IF l_msg_count > 0 THEN
2327: x_msg_count := l_msg_count;
2328: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2329: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2330: END IF;
2331:
2332: -- Check for Visit Number
2325:
2326: IF l_msg_count > 0 THEN
2327: x_msg_count := l_msg_count;
2328: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2329: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2330: END IF;
2331:
2332: -- Check for Visit Number
2333: OPEN c_visit_number;
2349: END IF;
2350:
2351: -- Transit Check Changes Senthil.
2352: IF l_Visit_rec.unit_schedule_id IS NOT NULL
2353: AND l_Visit_rec.unit_schedule_id <> FND_API.G_MISS_NUM THEN
2354:
2355: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2356: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_UA_FLIGHT_SCHEDULES_PVT.Validate_Flight_Schedule');
2357: END IF;
2372: END IF;
2373:
2374: IF l_msg_count > 0 THEN
2375: X_msg_count := l_msg_count;
2376: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2377: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2378: END IF;
2379:
2380: -- Instance ID is madatory for transit visit
2373:
2374: IF l_msg_count > 0 THEN
2375: X_msg_count := l_msg_count;
2376: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2377: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2378: END IF;
2379:
2380: -- Instance ID is madatory for transit visit
2381: IF l_Visit_rec.item_instance_id IS NULL
2378: END IF;
2379:
2380: -- Instance ID is madatory for transit visit
2381: IF l_Visit_rec.item_instance_id IS NULL
2382: OR l_Visit_rec.item_instance_id = FND_API.G_MISS_NUM THEN
2383: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_UNIT_REQ');
2384: Fnd_Msg_Pub.ADD;
2385: END IF;
2386:
2384: Fnd_Msg_Pub.ADD;
2385: END IF;
2386:
2387: -- Planned Start Date is madatory for transit visit
2388: IF l_visit_rec.START_DATE IS NULL OR l_visit_rec.START_DATE = FND_API.g_miss_date THEN
2389: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_ST_DT_REQ');
2390: Fnd_Msg_Pub.ADD;
2391: END IF;
2392:
2392:
2393: -- Planned End Date is madatory for transit visit
2394: /*
2395: IF p_module_type = 'JSP' AND ( l_visit_rec.PLAN_END_DATE IS NULL
2396: OR l_visit_rec.PLAN_END_DATE = FND_API.g_miss_date) THEN
2397: l_visit_rec.PLAN_END_DATE:= l_visit_rec.START_DATE + (FND_PROFILE.VALUE('AHL_TRANSIT_VISIT_DEFAULT_DURATION')/1440);
2398: END IF;
2399: */
2400: ELSE
2405: l_msg_count := Fnd_Msg_Pub.count_msg;
2406:
2407: IF l_msg_count > 0 THEN
2408: x_msg_count := l_msg_count;
2409: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2410: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2411: END IF;
2412:
2413: --VWPE ER-12424063 :: tchimira :: 15-FEB -2011 :: start
2406:
2407: IF l_msg_count > 0 THEN
2408: x_msg_count := l_msg_count;
2409: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2410: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2411: END IF;
2412:
2413: --VWPE ER-12424063 :: tchimira :: 15-FEB -2011 :: start
2414: -- If the start date of the visit is not null and less than sysdate, the it is past dated visit. So pass the flag value accordingly
2534: -----CREATE STAGES IF VISIT HAS BEEN CREATED SUCESSFULLY--------
2535: /*AHL_VWP_VISITS_STAGES_PVT.CREATE_STAGES
2536: ( p_api_version => p_api_version,
2537: p_init_msg_list => p_init_msg_list,
2538: p_commit => Fnd_Api.g_false,
2539: p_validation_level => p_validation_level,
2540: p_module_type => p_module_type,
2541: p_visit_id => l_Visit_rec.VISIT_ID,
2542: x_return_status => x_return_status,
2552: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: START
2553: -- Create the default stage task
2554: AHL_VWP_TASKS_PVT.Create_Stage_Tasks (
2555: p_api_version => p_api_version,
2556: p_init_msg_list => Fnd_Api.G_FALSE,
2557: p_commit => Fnd_Api.G_FALSE,
2558: p_validation_level => p_validation_level,
2559: p_module_type => p_module_type,
2560: p_stage_id => null,
2553: -- Create the default stage task
2554: AHL_VWP_TASKS_PVT.Create_Stage_Tasks (
2555: p_api_version => p_api_version,
2556: p_init_msg_list => Fnd_Api.G_FALSE,
2557: p_commit => Fnd_Api.G_FALSE,
2558: p_validation_level => p_validation_level,
2559: p_module_type => p_module_type,
2560: p_stage_id => null,
2561: p_visit_id => l_Visit_rec.VISIT_ID,
2569: L_DEBUG,
2570: 'After Calling AHL_VWP_PROJ_PROD_PVT.plan_visit. Return Status = ' || l_return_status );
2571: END IF;
2572:
2573: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2574: x_msg_count := l_msg_count;
2575: x_return_status := l_return_status;
2576: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2577: RAISE Fnd_Api.g_exc_error;
2572:
2573: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2574: x_msg_count := l_msg_count;
2575: x_return_status := l_return_status;
2576: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2577: RAISE Fnd_Api.g_exc_error;
2578: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2579: RAISE Fnd_Api.g_exc_unexpected_error;
2580: END IF;
2573: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2574: x_msg_count := l_msg_count;
2575: x_return_status := l_return_status;
2576: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2577: RAISE Fnd_Api.g_exc_error;
2578: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2579: RAISE Fnd_Api.g_exc_unexpected_error;
2580: END IF;
2581: END IF;
2574: x_msg_count := l_msg_count;
2575: x_return_status := l_return_status;
2576: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2577: RAISE Fnd_Api.g_exc_error;
2578: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2579: RAISE Fnd_Api.g_exc_unexpected_error;
2580: END IF;
2581: END IF;
2582: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: END
2575: x_return_status := l_return_status;
2576: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2577: RAISE Fnd_Api.g_exc_error;
2578: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2579: RAISE Fnd_Api.g_exc_unexpected_error;
2580: END IF;
2581: END IF;
2582: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: END
2583: END IF; -- if l_is_comp_visit = 'N'
2595: WHERE VISIT_ID = l_visit_rec.visit_id;
2596: END IF;
2597: -- TCHIMIRA :: Changes for Component Maintenance Planning :: 10-JAN-2012 :: END
2598: IF l_Visit_rec.visit_type_code IS NOT NULL
2599: AND l_Visit_rec.visit_type_code <> FND_API.G_MISS_CHAR THEN
2600:
2601: -- TCHIMIRA :: BUG 13991270 :: 26-Apr-2012
2602: -- Swapped the below two calls AHL_VWP_VISITS_STAGES_PVT.Assoc_VisitType_to_Visit and AHL_VWP_TASKS_PVT.ASSOCIATE_DEFAULT_MRS
2603: -- First we need to create stages and then associate default MRs to the visit during visit creation.
2616: END IF;
2617:
2618: AHL_VWP_VISITS_STAGES_PVT.Assoc_VisitType_to_Visit (
2619: p_api_version => 1.0,
2620: p_init_msg_list => fnd_api.g_false,
2621: p_commit => fnd_api.g_false,
2622: p_validation_level => p_validation_level,
2623: p_visit_id => l_Visit_rec.VISIT_ID,
2624: p_visit_type_code => l_Visit_rec.VISIT_TYPE_CODE,
2617:
2618: AHL_VWP_VISITS_STAGES_PVT.Assoc_VisitType_to_Visit (
2619: p_api_version => 1.0,
2620: p_init_msg_list => fnd_api.g_false,
2621: p_commit => fnd_api.g_false,
2622: p_validation_level => p_validation_level,
2623: p_visit_id => l_Visit_rec.VISIT_ID,
2624: p_visit_type_code => l_Visit_rec.VISIT_TYPE_CODE,
2625: x_return_status => l_return_status,
2630: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.Assoc_VisitType_to_Visit - l_return_status : '||l_return_status);
2631: END IF;
2632:
2633:
2634: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2635: RAISE Fnd_Api.g_exc_unexpected_error;
2636: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
2637: RAISE Fnd_Api.g_exc_error;
2638: END IF;
2631: END IF;
2632:
2633:
2634: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2635: RAISE Fnd_Api.g_exc_unexpected_error;
2636: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
2637: RAISE Fnd_Api.g_exc_error;
2638: END IF;
2639: --VWPE ER-12424063:: tchimira :: 15-FEB -2011 :: start
2632:
2633:
2634: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2635: RAISE Fnd_Api.g_exc_unexpected_error;
2636: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
2637: RAISE Fnd_Api.g_exc_error;
2638: END IF;
2639: --VWPE ER-12424063:: tchimira :: 15-FEB -2011 :: start
2640:
2633:
2634: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2635: RAISE Fnd_Api.g_exc_unexpected_error;
2636: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
2637: RAISE Fnd_Api.g_exc_error;
2638: END IF;
2639: --VWPE ER-12424063:: tchimira :: 15-FEB -2011 :: start
2640:
2641: END IF; -- if l_is_comp_visit = 'N'
2663: l_msg_count := Fnd_Msg_Pub.count_msg;
2664:
2665: IF l_msg_count > 0 THEN
2666: X_msg_count := l_msg_count;
2667: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2668: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2669: END IF;
2670: END IF;--if l_Visit_rec.visit_type_code IS NOT NULL
2671:
2664:
2665: IF l_msg_count > 0 THEN
2666: X_msg_count := l_msg_count;
2667: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2668: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2669: END IF;
2670: END IF;--if l_Visit_rec.visit_type_code IS NOT NULL
2671:
2672: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2674: END IF;
2675:
2676: --Now adjust the times derivation for task
2677: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
2678: p_init_msg_list => Fnd_Api.G_FALSE,
2679: p_commit => Fnd_Api.G_FALSE,
2680: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2681: x_return_status => l_return_status,
2682: x_msg_count => l_msg_count,
2675:
2676: --Now adjust the times derivation for task
2677: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
2678: p_init_msg_list => Fnd_Api.G_FALSE,
2679: p_commit => Fnd_Api.G_FALSE,
2680: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2681: x_return_status => l_return_status,
2682: x_msg_count => l_msg_count,
2683: x_msg_data => l_msg_data,
2676: --Now adjust the times derivation for task
2677: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
2678: p_init_msg_list => Fnd_Api.G_FALSE,
2679: p_commit => Fnd_Api.G_FALSE,
2680: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2681: x_return_status => l_return_status,
2682: x_msg_count => l_msg_count,
2683: x_msg_data => l_msg_data,
2684: p_visit_id => l_visit_rec.visit_id);
2691: l_msg_count := Fnd_Msg_Pub.count_msg;
2692:
2693: IF l_msg_count > 0 THEN
2694: X_msg_count := l_msg_count;
2695: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2696: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2697: END IF;
2698:
2699: -- Added by sjayacha as per Shailaja mail
2692:
2693: IF l_msg_count > 0 THEN
2694: X_msg_count := l_msg_count;
2695: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2696: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2697: END IF;
2698:
2699: -- Added by sjayacha as per Shailaja mail
2700: IF l_Visit_rec.unit_schedule_id IS NOT NULL
2697: END IF;
2698:
2699: -- Added by sjayacha as per Shailaja mail
2700: IF l_Visit_rec.unit_schedule_id IS NOT NULL
2701: AND l_Visit_rec.unit_schedule_id <> FND_API.G_MISS_NUM THEN
2702: l_date_time := NVL(NVL(l_visit_rec.PLAN_END_DATE,
2703: AHL_VWP_TIMES_PVT.get_visit_end_time(l_Visit_rec.visit_id)),
2704: l_visit_rec.START_DATE + (FND_PROFILE.VALUE('AHL_TRANSIT_VISIT_DEFAULT_DURATION')/1440));
2705:
2712: WHERE visit_id = l_Visit_rec.visit_id ;
2713: END IF;
2714:
2715: IF l_Visit_rec.visit_create_type IS NOT NULL
2716: AND l_Visit_rec.visit_create_type <> FND_API.G_MISS_CHAR THEN
2717: IF l_Visit_rec.visit_create_type = 'PRODUCTION_RELEASED' THEN
2718: l_release_flag := 'Y';
2719: ELSIF l_Visit_rec.visit_create_type = 'PRODUCTION_UNRELEASED' THEN
2720: l_release_flag := 'N';
2726: END IF;
2727:
2728: AHL_VWP_PROJ_PROD_PVT.Release_Visit (
2729: p_api_version => 1.0,
2730: /*p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2731: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2732: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FU */
2733: p_module_type => 'VWP',
2734: p_visit_id => l_Visit_rec.VISIT_ID,
2727:
2728: AHL_VWP_PROJ_PROD_PVT.Release_Visit (
2729: p_api_version => 1.0,
2730: /*p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2731: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2732: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FU */
2733: p_module_type => 'VWP',
2734: p_visit_id => l_Visit_rec.VISIT_ID,
2735: p_release_flag => l_release_flag,
2728: AHL_VWP_PROJ_PROD_PVT.Release_Visit (
2729: p_api_version => 1.0,
2730: /*p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2731: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2732: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FU */
2733: p_module_type => 'VWP',
2734: p_visit_id => l_Visit_rec.VISIT_ID,
2735: p_release_flag => l_release_flag,
2736: x_return_status => x_return_status,
2745: ELSIF l_Visit_rec.visit_create_type = 'PLANNING' THEN
2746: AHL_VWP_PROJ_PROD_PVT.plan_visit(
2747: p_api_version => l_api_version,
2748: p_init_msg_list => p_init_msg_list,
2749: p_commit => Fnd_Api.g_false,
2750: p_validation_level => p_validation_level,
2751: p_visit_id => l_Visit_rec.VISIT_ID,
2752: x_return_status => x_return_status,
2753: x_msg_count => x_msg_count,
2768: l_msg_count := Fnd_Msg_Pub.count_msg;
2769:
2770: IF l_msg_count > 0 THEN
2771: X_msg_count := l_msg_count;
2772: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2773: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2774: END IF;
2775:
2776: --Standard check for commit
2769:
2770: IF l_msg_count > 0 THEN
2771: X_msg_count := l_msg_count;
2772: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2773: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2774: END IF;
2775:
2776: --Standard check for commit
2777: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2773: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2774: END IF;
2775:
2776: --Standard check for commit
2777: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2778: COMMIT;
2779: END IF;
2780:
2781: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2781: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2782: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
2783: END IF;
2784: EXCEPTION
2785: WHEN Fnd_Api.g_exc_error THEN
2786: ROLLBACK TO Create_Visit;
2787: x_return_status := Fnd_Api.g_ret_sts_error;
2788: Fnd_Msg_Pub.count_and_get(
2789: p_encoded => Fnd_Api.g_false,
2783: END IF;
2784: EXCEPTION
2785: WHEN Fnd_Api.g_exc_error THEN
2786: ROLLBACK TO Create_Visit;
2787: x_return_status := Fnd_Api.g_ret_sts_error;
2788: Fnd_Msg_Pub.count_and_get(
2789: p_encoded => Fnd_Api.g_false,
2790: p_count => x_msg_count,
2791: p_data => x_msg_data
2785: WHEN Fnd_Api.g_exc_error THEN
2786: ROLLBACK TO Create_Visit;
2787: x_return_status := Fnd_Api.g_ret_sts_error;
2788: Fnd_Msg_Pub.count_and_get(
2789: p_encoded => Fnd_Api.g_false,
2790: p_count => x_msg_count,
2791: p_data => x_msg_data
2792: );
2793: WHEN Fnd_Api.g_exc_unexpected_error THEN
2789: p_encoded => Fnd_Api.g_false,
2790: p_count => x_msg_count,
2791: p_data => x_msg_data
2792: );
2793: WHEN Fnd_Api.g_exc_unexpected_error THEN
2794: ROLLBACK TO Create_Visit;
2795: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2796: Fnd_Msg_Pub.count_and_get (
2797: p_encoded => Fnd_Api.g_false,
2791: p_data => x_msg_data
2792: );
2793: WHEN Fnd_Api.g_exc_unexpected_error THEN
2794: ROLLBACK TO Create_Visit;
2795: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2796: Fnd_Msg_Pub.count_and_get (
2797: p_encoded => Fnd_Api.g_false,
2798: p_count => x_msg_count,
2799: p_data => x_msg_data
2793: WHEN Fnd_Api.g_exc_unexpected_error THEN
2794: ROLLBACK TO Create_Visit;
2795: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2796: Fnd_Msg_Pub.count_and_get (
2797: p_encoded => Fnd_Api.g_false,
2798: p_count => x_msg_count,
2799: p_data => x_msg_data
2800: );
2801: WHEN OTHERS THEN
2799: p_data => x_msg_data
2800: );
2801: WHEN OTHERS THEN
2802: ROLLBACK TO Create_Visit;
2803: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2804: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2805: THEN
2806: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2807: END IF;
2805: THEN
2806: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2807: END IF;
2808: Fnd_Msg_Pub.count_and_get (
2809: p_encoded => Fnd_Api.g_false,
2810: p_count => x_msg_count,
2811: p_data => x_msg_data
2812: );
2813: END Create_Visit;
2820: -- To copy to Visit/Template from a Visit/Template
2821: --------------------------------------------------------------------
2822: PROCEDURE Copy_Visit (
2823: p_api_version IN NUMBER,
2824: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2825: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2826: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2827: p_module_type IN VARCHAR2 := 'JSP',
2828: p_visit_id IN NUMBER,
2821: --------------------------------------------------------------------
2822: PROCEDURE Copy_Visit (
2823: p_api_version IN NUMBER,
2824: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2825: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2826: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2827: p_module_type IN VARCHAR2 := 'JSP',
2828: p_visit_id IN NUMBER,
2829: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
2822: PROCEDURE Copy_Visit (
2823: p_api_version IN NUMBER,
2824: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2825: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2826: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2827: p_module_type IN VARCHAR2 := 'JSP',
2828: p_visit_id IN NUMBER,
2829: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
2830: x_return_status OUT NOCOPY VARCHAR2,
2921: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
2922: END IF;
2923:
2924: -- Initialize message list if p_init_msg_list is set to TRUE.
2925: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
2926: Fnd_Msg_Pub.initialize;
2927: END IF;
2928:
2929: -- Initialize API return status to success
2926: Fnd_Msg_Pub.initialize;
2927: END IF;
2928:
2929: -- Initialize API return status to success
2930: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2931:
2932: -- Standard call to check for call compatibility.
2933: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2934: p_api_version,
2929: -- Initialize API return status to success
2930: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2931:
2932: -- Standard call to check for call compatibility.
2933: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2934: p_api_version,
2935: l_api_name,G_PKG_NAME) THEN
2936: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2937: END IF;
2932: -- Standard call to check for call compatibility.
2933: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2934: p_api_version,
2935: l_api_name,G_PKG_NAME) THEN
2936: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2937: END IF;
2938: ------------------------Start of API Body------------------------------------
2939: -----------------------Value/Id conversions ----------------------
2940: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2951: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2952: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for' ||l_visit_rec.visit_id );
2953: END IF;
2954: END IF;
2955: RAISE Fnd_Api.g_exc_error;
2956: ELSE
2957: CLOSE c_Visit;
2958: END IF;
2959:
2960: -- Check if the visit status is deleted.display error message if so. Added in 11.5.10
2961: IF UPPER(c_visit_rec.status_code) = 'DELETED' THEN
2962: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_STATUS');
2963: Fnd_Msg_Pub.ADD;
2964: RAISE Fnd_Api.G_EXC_ERROR;
2965: END IF;
2966:
2967: -- org/dept/start date/end date are passed from UA
2968: -- Null check and org/dept/dates validation is already done from calling API Synchronize_Visit
3160:
3161: -- To call LTP Process Materials API for APS Integration
3162: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
3163: ( p_api_version => 1.0,
3164: p_init_msg_list => FND_API.g_false,
3165: p_commit => FND_API.g_false,
3166: p_validation_level => FND_API.g_valid_level_full,
3167: p_visit_id => l_Visit_Id,
3168: p_visit_task_id => c_task_rec.visit_task_id,
3161: -- To call LTP Process Materials API for APS Integration
3162: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
3163: ( p_api_version => 1.0,
3164: p_init_msg_list => FND_API.g_false,
3165: p_commit => FND_API.g_false,
3166: p_validation_level => FND_API.g_valid_level_full,
3167: p_visit_id => l_Visit_Id,
3168: p_visit_task_id => c_task_rec.visit_task_id,
3169: p_org_id => NULL,
3162: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
3163: ( p_api_version => 1.0,
3164: p_init_msg_list => FND_API.g_false,
3165: p_commit => FND_API.g_false,
3166: p_validation_level => FND_API.g_valid_level_full,
3167: p_visit_id => l_Visit_Id,
3168: p_visit_task_id => c_task_rec.visit_task_id,
3169: p_org_id => NULL,
3170: p_start_date => NULL,
3179: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Planned Order Flag : ' || l_planned_order_flag);
3180: END IF;
3181:
3182: IF l_return_status <> 'S' THEN
3183: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3184: END IF;
3185: END IF;
3186: END LOOP;
3187: CLOSE c_task;
3280:
3281: --Now adjust the times derivation for visit.
3282: AHL_VWP_TIMES_PVT.Calculate_Task_Times
3283: (p_api_version => 1.0,
3284: p_init_msg_list => Fnd_Api.G_FALSE,
3285: p_commit => Fnd_Api.G_FALSE,
3286: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3287: x_return_status => l_return_status,
3288: x_msg_count => l_msg_count,
3281: --Now adjust the times derivation for visit.
3282: AHL_VWP_TIMES_PVT.Calculate_Task_Times
3283: (p_api_version => 1.0,
3284: p_init_msg_list => Fnd_Api.G_FALSE,
3285: p_commit => Fnd_Api.G_FALSE,
3286: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3287: x_return_status => l_return_status,
3288: x_msg_count => l_msg_count,
3289: x_msg_data => l_msg_data,
3282: AHL_VWP_TIMES_PVT.Calculate_Task_Times
3283: (p_api_version => 1.0,
3284: p_init_msg_list => Fnd_Api.G_FALSE,
3285: p_commit => Fnd_Api.G_FALSE,
3286: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3287: x_return_status => l_return_status,
3288: x_msg_count => l_msg_count,
3289: x_msg_data => l_msg_data,
3290: p_visit_id => l_visit_id);
3301: l_msg_count := Fnd_Msg_Pub.count_msg;
3302:
3303: IF l_msg_count > 0 THEN
3304: X_msg_count := l_msg_count;
3305: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3306: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3307: END IF;
3308:
3309: --Standard check for commit
3302:
3303: IF l_msg_count > 0 THEN
3304: X_msg_count := l_msg_count;
3305: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3306: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3307: END IF;
3308:
3309: --Standard check for commit
3310: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3306: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3307: END IF;
3308:
3309: --Standard check for commit
3310: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3311: COMMIT;
3312: END IF;
3313:
3314: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3314: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3315: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
3316: END IF;
3317: EXCEPTION
3318: WHEN Fnd_Api.g_exc_error THEN
3319: ROLLBACK TO Copy_Visit;
3320: x_return_status := Fnd_Api.g_ret_sts_error;
3321: Fnd_Msg_Pub.count_and_get (
3322: p_encoded => Fnd_Api.g_false,
3316: END IF;
3317: EXCEPTION
3318: WHEN Fnd_Api.g_exc_error THEN
3319: ROLLBACK TO Copy_Visit;
3320: x_return_status := Fnd_Api.g_ret_sts_error;
3321: Fnd_Msg_Pub.count_and_get (
3322: p_encoded => Fnd_Api.g_false,
3323: p_count => x_msg_count,
3324: p_data => x_msg_data
3318: WHEN Fnd_Api.g_exc_error THEN
3319: ROLLBACK TO Copy_Visit;
3320: x_return_status := Fnd_Api.g_ret_sts_error;
3321: Fnd_Msg_Pub.count_and_get (
3322: p_encoded => Fnd_Api.g_false,
3323: p_count => x_msg_count,
3324: p_data => x_msg_data
3325: );
3326: WHEN Fnd_Api.g_exc_unexpected_error THEN
3322: p_encoded => Fnd_Api.g_false,
3323: p_count => x_msg_count,
3324: p_data => x_msg_data
3325: );
3326: WHEN Fnd_Api.g_exc_unexpected_error THEN
3327: ROLLBACK TO Copy_Visit;
3328: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3329: Fnd_Msg_Pub.count_and_get (
3330: p_encoded => Fnd_Api.g_false,
3324: p_data => x_msg_data
3325: );
3326: WHEN Fnd_Api.g_exc_unexpected_error THEN
3327: ROLLBACK TO Copy_Visit;
3328: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3329: Fnd_Msg_Pub.count_and_get (
3330: p_encoded => Fnd_Api.g_false,
3331: p_count => x_msg_count,
3332: p_data => x_msg_data
3326: WHEN Fnd_Api.g_exc_unexpected_error THEN
3327: ROLLBACK TO Copy_Visit;
3328: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3329: Fnd_Msg_Pub.count_and_get (
3330: p_encoded => Fnd_Api.g_false,
3331: p_count => x_msg_count,
3332: p_data => x_msg_data
3333: );
3334: WHEN OTHERS THEN
3332: p_data => x_msg_data
3333: );
3334: WHEN OTHERS THEN
3335: ROLLBACK TO Copy_Visit;
3336: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3337: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3338: THEN
3339: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3340: END IF;
3338: THEN
3339: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3340: END IF;
3341: Fnd_Msg_Pub.count_and_get (
3342: p_encoded => Fnd_Api.g_false,
3343: p_count => x_msg_count,
3344: p_data => x_msg_data
3345: );
3346: END Copy_Visit;
3353: -- To update a Maintainance Visit.
3354: --------------------------------------------------------------------
3355: PROCEDURE Update_Visit (
3356: p_api_version IN NUMBER,
3357: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3358: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3359: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3360: p_module_type IN VARCHAR2 := 'JSP',
3361: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
3354: --------------------------------------------------------------------
3355: PROCEDURE Update_Visit (
3356: p_api_version IN NUMBER,
3357: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3358: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3359: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3360: p_module_type IN VARCHAR2 := 'JSP',
3361: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
3362: x_return_status OUT NOCOPY VARCHAR2,
3355: PROCEDURE Update_Visit (
3356: p_api_version IN NUMBER,
3357: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3358: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3359: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3360: p_module_type IN VARCHAR2 := 'JSP',
3361: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
3362: x_return_status OUT NOCOPY VARCHAR2,
3363: x_msg_count OUT NOCOPY NUMBER,
3568: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure - Visit Id - '||l_visit_rec.visit_id ||'p_module_tyoe - '|| p_module_type);
3569: END IF;
3570:
3571: -- Initialize message list if p_init_msg_list is set to TRUE.
3572: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
3573: Fnd_Msg_Pub.initialize;
3574: END IF;
3575:
3576: -- Initialize API return status to success
3573: Fnd_Msg_Pub.initialize;
3574: END IF;
3575:
3576: -- Initialize API return status to success
3577: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3578:
3579: -- Standard call to check for call compatibility.
3580: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
3581: p_api_version,
3576: -- Initialize API return status to success
3577: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3578:
3579: -- Standard call to check for call compatibility.
3580: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
3581: p_api_version,
3582: l_api_name,G_PKG_NAME)
3583: THEN
3584: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3580: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
3581: p_api_version,
3582: l_api_name,G_PKG_NAME)
3583: THEN
3584: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3585: END IF;
3586:
3587: ------------------------Start of API Body------------------------------------
3588: OPEN c_Visit(l_Visit_rec.visit_id);
3595: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3596: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for' ||l_visit_rec.visit_id );
3597: END IF;
3598: END IF;
3599: RAISE Fnd_Api.g_exc_error;
3600: ELSE
3601: CLOSE c_Visit;
3602: END IF;
3603:
3607: FETCH c_conc_req_phase INTO l_dummy_val;
3608: IF(c_conc_req_phase%FOUND) THEN
3609: FND_MESSAGE.Set_Name('AHL','AHL_VWP_CP_P2P_IN_PROGS');
3610: FND_MSG_PUB.ADD;
3611: RAISE FND_API.G_EXC_ERROR;
3612: END IF;
3613: CLOSE c_conc_req_phase;
3614: --salogan::Modified the cursor fetch to handle both request id from P2P and Cost Estimation CP ER 9299910::01-JUN-2009::END
3615: --TCHIMIRA::P2P CP ER 9151144::09-DEC-2009::END
3618: -- To validate Object version number.
3619: IF (c_visit_rec.object_version_number <> l_visit_rec.object_version_number) THEN
3620: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
3621: Fnd_Msg_Pub.ADD;
3622: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3623: END IF;
3624: --------------------Value OR ID conversion---------------------------
3625: -- Commented for TC changes by Senthil
3626: -- Uncommented by yazhou
3631: l_Visit_rec.service_request_id := NULL;
3632: l_visit_rec.proj_template_id := NULL;
3633: l_visit_rec.project_id := NULL; --PRAKKUM ::FP PIE :: 13-OCT-2010
3634:
3635: IF l_Visit_rec.START_DATE IS NOT NULL AND l_Visit_rec.START_DATE <> fnd_api.g_miss_date THEN
3636: l_date_time_start := TO_DATE(TO_CHAR(l_visit_rec.START_DATE, 'DD-MM-YYYY ') ||
3637: TO_CHAR(NVL(l_visit_rec.START_HOUR,'00')) || ':'||TO_CHAR(NVL(l_visit_rec.START_MIN,'00')),'DD-MM-YYYY HH24:MI');
3638: ELSE
3639: l_Visit_rec.START_DATE:= null;
3640: l_visit_rec.START_HOUR:= null;
3641: l_date_time_start := null;
3642: END IF;
3643:
3644: IF l_Visit_rec.PLAN_END_DATE IS NOT NULL AND l_Visit_rec.PLAN_END_DATE <> fnd_api.g_miss_date THEN
3645: l_date_time_end := TO_DATE(TO_CHAR(l_visit_rec.PLAN_END_DATE, 'DD-MM-YYYY ') ||
3646: TO_CHAR(NVL(l_visit_rec.PLAN_END_HOUR,'00')) || ':'|| TO_CHAR(NVL(l_visit_rec.PLAN_END_MIN,'00')) ,'DD-MM-YYYY HH24:MI');
3647: ELSE
3648: l_Visit_rec.PLAN_END_DATE:= null;
3649: l_visit_rec.PLAN_END_HOUR:= null;
3650: l_date_time_end :=null;
3651: END IF;
3652: ELSE
3653: IF l_Visit_rec.START_DATE IS NOT NULL AND l_Visit_rec.START_DATE <> fnd_api.g_miss_date THEN
3654: l_date_time_start := l_visit_rec.START_DATE;
3655: ELSE
3656: l_Visit_rec.START_DATE:= null;
3657: l_date_time_start := null;
3656: l_Visit_rec.START_DATE:= null;
3657: l_date_time_start := null;
3658: END IF;
3659:
3660: IF l_Visit_rec.PLAN_END_DATE IS NOT NULL AND l_Visit_rec.PLAN_END_DATE <> fnd_api.g_miss_date THEN
3661: l_date_time_end := l_visit_rec.PLAN_END_DATE;
3662: ELSE
3663: l_Visit_rec.START_DATE:= null;
3664: l_date_time_end := null;
3674: IF l_date_time_start IS NOT NULL THEN
3675: IF visit_task_past_dates_rec.past_task_start_date < l_date_time_start THEN
3676: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_START_DATE_INVLD');
3677: Fnd_Msg_Pub.ADD;
3678: RAISE FND_API.G_EXC_ERROR;
3679: END IF;
3680: END IF;
3681: IF l_date_time_end IS NOT NULL THEN
3682: IF visit_task_past_dates_rec.past_task_end_date > l_date_time_end THEN
3681: IF l_date_time_end IS NOT NULL THEN
3682: IF visit_task_past_dates_rec.past_task_end_date > l_date_time_end THEN
3683: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_END_DATE_INVLD');
3684: Fnd_Msg_Pub.ADD;
3685: RAISE FND_API.G_EXC_ERROR;
3686: END IF;
3687: END IF;
3688: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: END
3689:
3699: -- Even the visits in DRAFT status can be updated
3700: IF c_visit_rec.status_code NOT IN ('DRAFT','PLANNING','RELEASED', 'PARTIALLY RELEASED') THEN
3701: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_STATUS_NO_EDIT');
3702: Fnd_Msg_Pub.ADD;
3703: RAISE Fnd_Api.G_EXC_ERROR;
3704: END IF;
3705:
3706: -- PRAKKUM :: 28-JUN-2011 :: VWPE :: ER 12730539
3707: OPEN c_is_old_visit(l_Visit_rec.visit_id);
3713: -- Add the new DRAFT status to the below list
3714: IF c_visit_rec.status_code IN ('PLANNING','DRAFT') THEN
3715: ----- Dropdowns on Update Visit UI Screen-------------
3716: -- For SPACE CATEGORY CODE
3717: IF l_Visit_rec.space_category_code = Fnd_Api.G_MISS_CHAR THEN
3718: l_Visit_rec.space_category_code := Null;
3719: END IF;
3720:
3721: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3724:
3725: ----------- LOVs on Update Visit UI Screen---
3726: -- For VISIT TYPE
3727: -- To find Visit Type Code when Visit Type Name has input values
3728: IF l_Visit_rec.visit_type_name IS NOT NULL AND l_Visit_rec.visit_type_name <> Fnd_Api.G_MISS_CHAR THEN
3729: AHL_VWP_RULES_PVT.Check_Lookup_Name_Or_Id
3730: ( p_lookup_type => 'AHL_PLANNING_VISIT_TYPE',
3731: p_lookup_code => NULL,
3732: p_meaning => l_Visit_rec.visit_type_name,
3737:
3738: IF NVL(l_return_status, 'X') <> 'S' THEN
3739: Fnd_Message.SET_NAME('AHL','AHL_VWP_TYPE_CODE_NOT_EXISTS');
3740: Fnd_Msg_Pub.ADD;
3741: RAISE Fnd_Api.G_EXC_ERROR;
3742: END IF;
3743: END IF;
3744:
3745: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063
3746: IF ((c_Visit_rec.VISIT_TYPE_CODE IS NOT NULL) AND (NVL(l_Visit_rec.VISIT_TYPE_CODE,'X') <> c_Visit_rec.visit_type_code))
3747: THEN
3748: Fnd_Message.SET_NAME('AHL','AHL_VWP_TYPE_NOT_EDIT');
3749: Fnd_Msg_Pub.ADD;
3750: RAISE Fnd_Api.G_EXC_ERROR;
3751: END IF;
3752:
3753: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3754: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Type' || l_Visit_rec.visit_type_name || '-' || l_Visit_rec.visit_type_code);
3756:
3757: -- For SERVICE REQUEST
3758: -- To Convert Service Request Number to Service Request Id
3759: IF (l_Visit_rec.service_request_number IS NOT NULL AND
3760: l_Visit_rec.service_request_number <> Fnd_Api.G_MISS_CHAR ) THEN
3761:
3762: AHL_VWP_RULES_PVT.Check_SR_Request_Number_Or_Id
3763: ( p_service_id => l_Visit_rec.service_request_id,
3764: p_service_number => l_Visit_rec.service_request_number,
3768:
3769: IF NVL(l_return_status,'x') <> 'S' THEN
3770: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERVICE_REQ_NOT_EXISTS');
3771: Fnd_Msg_Pub.ADD;
3772: RAISE Fnd_Api.g_exc_error;
3773: END IF;
3774:
3775: --Assign the returned value
3776: l_Visit_rec.service_request_id := l_service_id;
3781: END IF;
3782: ----------- End defining and validate all LOVs on Update Visit UI Screen---
3783: -- For Priority
3784: -- To Convert Priority Value to Code
3785: IF l_Visit_rec.priority_value IS NOT NULL AND l_Visit_rec.priority_value <> Fnd_Api.G_MISS_CHAR THEN
3786: AHL_VWP_RULES_PVT.Check_Lookup_Name_Or_Id
3787: (p_lookup_type => 'AHL_VWP_VISIT_PRIORITY',
3788: p_lookup_code => l_Visit_rec.priority_code,
3789: p_meaning => l_Visit_rec.priority_value,
3793:
3794: IF NVL(l_return_status, 'X') <> 'S' THEN
3795: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRI_NOT_EXISTS');
3796: Fnd_Msg_Pub.ADD;
3797: RAISE Fnd_Api.G_EXC_ERROR;
3798: END IF;
3799: l_visit_rec.priority_code := l_priority_code;
3800: END IF;
3801:
3800: END IF;
3801:
3802: -- For Organization
3803: -- To Convert Organization Name to ID
3804: IF (l_visit_rec.ORG_NAME IS NOT NULL AND l_visit_rec.ORG_NAME <> Fnd_Api.G_MISS_CHAR ) OR
3805: (l_visit_rec.organization_id IS NOT NULL AND l_visit_rec.organization_id <> Fnd_Api.G_MISS_NUM )
3806: THEN
3807: AHL_VWP_RULES_PVT.Check_Org_Name_Or_Id
3808: (p_organization_id => l_visit_rec.organization_id,
3801:
3802: -- For Organization
3803: -- To Convert Organization Name to ID
3804: IF (l_visit_rec.ORG_NAME IS NOT NULL AND l_visit_rec.ORG_NAME <> Fnd_Api.G_MISS_CHAR ) OR
3805: (l_visit_rec.organization_id IS NOT NULL AND l_visit_rec.organization_id <> Fnd_Api.G_MISS_NUM )
3806: THEN
3807: AHL_VWP_RULES_PVT.Check_Org_Name_Or_Id
3808: (p_organization_id => l_visit_rec.organization_id,
3809: p_org_name => l_visit_rec.ORG_NAME,
3813:
3814: IF NVL(l_return_status,'x') <> 'S' THEN
3815: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORG_NOT_EXISTS');
3816: Fnd_Msg_Pub.ADD;
3817: RAISE Fnd_Api.G_EXC_ERROR;
3818: END IF;
3819:
3820: l_visit_rec.organization_id := l_organization_id;
3821:
3823: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Organization ID' || l_visit_rec.organization_id);
3824: END IF;
3825: END IF;
3826:
3827: IF l_visit_rec.organization_id IS NULL OR l_visit_rec.organization_id = Fnd_Api.G_MISS_NUM THEN
3828: --Assign the department to Null if organization id is null
3829: l_visit_rec.department_id := NULL;
3830: l_visit_rec.organization_id:= NULL;
3831: ELSE
3828: --Assign the department to Null if organization id is null
3829: l_visit_rec.department_id := NULL;
3830: l_visit_rec.organization_id:= NULL;
3831: ELSE
3832: IF (l_visit_rec.DEPT_NAME IS NOT NULL AND l_visit_rec.DEPT_NAME <> Fnd_Api.G_MISS_CHAR )OR
3833: (l_visit_rec.department_id IS NOT NULL AND l_visit_rec.department_id <> Fnd_Api.G_MISS_NUM )
3834: THEN
3835: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3836: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Inside Dept Name/ID - '||l_visit_rec.DEPT_NAME ||' - '||l_visit_rec.department_id );
3829: l_visit_rec.department_id := NULL;
3830: l_visit_rec.organization_id:= NULL;
3831: ELSE
3832: IF (l_visit_rec.DEPT_NAME IS NOT NULL AND l_visit_rec.DEPT_NAME <> Fnd_Api.G_MISS_CHAR )OR
3833: (l_visit_rec.department_id IS NOT NULL AND l_visit_rec.department_id <> Fnd_Api.G_MISS_NUM )
3834: THEN
3835: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3836: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Inside Dept Name/ID - '||l_visit_rec.DEPT_NAME ||' - '||l_visit_rec.department_id );
3837: END IF;
3846:
3847: IF NVL(l_return_status,'x') <> 'S' THEN
3848: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
3849: Fnd_Msg_Pub.ADD;
3850: RAISE Fnd_Api.G_EXC_ERROR;
3851: END IF;
3852:
3853: l_visit_rec.department_id := l_department_id;
3854: AHL_VWP_RULES_PVT.CHECK_DEPARTMENT_SHIFT
3857:
3858: IF NVL(l_return_status,'x') <> 'S' THEN
3859: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
3860: Fnd_Msg_Pub.ADD;
3861: RAISE Fnd_Api.G_EXC_ERROR;
3862: END IF;
3863:
3864: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3865: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Department ID' || l_visit_rec.department_id);
3874: IF l_visit_rec.proj_template_name IS NOT NULL THEN
3875: IF l_visit_rec.project_name IS NOT NULL THEN
3876: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_INV_PROJ_AND_TEMP');
3877: Fnd_Msg_Pub.ADD;
3878: RAISE Fnd_Api.G_EXC_ERROR;
3879: ELSE --i.e. name is null but template is not null
3880: AHL_VWP_RULES_PVT.Check_Project_Template_Or_Id
3881: ( p_proj_temp_name => l_visit_rec.proj_template_name,
3882: x_project_id => l_proj_template_id,
3885:
3886: IF NVL(l_return_status, 'X') <> 'S' THEN
3887: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_PROTEM');
3888: Fnd_Msg_Pub.ADD;
3889: RAISE Fnd_Api.G_EXC_ERROR;
3890: END IF;
3891: END IF; --project name not null
3892: ELSE
3893: -- If Project Template Name is null
3905: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_INV_PROJ_NAME');
3906: Fnd_Message.Set_Token('PROJ_NAME', l_visit_rec.project_name);
3907: Fnd_Msg_Pub.ADD;
3908: CLOSE get_project_id_csr;
3909: RAISE Fnd_Api.G_EXC_ERROR;
3910: END IF;
3911: CLOSE get_project_id_csr;
3912: END IF;
3913: END IF;
3925: OR ((c_visit_rec.project_id IS NOT NULL) AND (c_visit_rec.top_project_task_id IS NOT NULL))) THEN
3926: -- Project Template or Project Name cannot be updated if Project has been created for the Visit
3927: Fnd_Message.SET_NAME('AHL','AHL_VWP_PROJ_CRTD');
3928: Fnd_Msg_Pub.ADD;
3929: RAISE Fnd_Api.G_EXC_ERROR;
3930: ELSE
3931: l_visit_rec.proj_template_id := l_proj_template_id;
3932: c_visit_rec.project_id := l_project_id;
3933: END IF;
3939: Fnd_Message.Set_Token('PROJ_NAME', l_visit_rec.project_name);
3940: Fnd_Message.Set_Token('PROJ_ID', l_visit_rec.project_id);
3941: Fnd_Msg_Pub.ADD;
3942: CLOSE validate_proj_date_csr;
3943: RAISE Fnd_Api.G_EXC_ERROR;
3944: END IF;
3945: CLOSE validate_proj_date_csr;
3946: END IF;
3947: --PRAKKUM ::FP PIE :: 13-OCT-2010 :: END
3951:
3952: IF ((l_visit_rec.subinventory IS NOT NULL) AND (l_visit_rec.locator_segment IS NULL)) THEN
3953: Fnd_Message.SET_NAME('AHL','AHL_VWP_LOCATOR_NULL');
3954: Fnd_Msg_Pub.ADD;
3955: RAISE Fnd_Api.G_EXC_ERROR;
3956: ELSIF ((l_visit_rec.subinventory IS NULL) AND (l_visit_rec.locator_segment IS NOT NULL))THEN
3957: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINVENTORY_NULL');
3958: Fnd_Msg_Pub.ADD;
3959: RAISE Fnd_Api.G_EXC_ERROR;
3955: RAISE Fnd_Api.G_EXC_ERROR;
3956: ELSIF ((l_visit_rec.subinventory IS NULL) AND (l_visit_rec.locator_segment IS NOT NULL))THEN
3957: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINVENTORY_NULL');
3958: Fnd_Msg_Pub.ADD;
3959: RAISE Fnd_Api.G_EXC_ERROR;
3960: ELSIF ((l_visit_rec.subinventory IS NOT NULL) AND (l_visit_rec.locator_segment IS NOT NULL)) THEN
3961:
3962: OPEN c_subinv_validate (l_visit_rec.subinventory, l_visit_rec.organization_id);
3963: FETCH c_subinv_validate INTO l_status_id;
3964: IF c_subinv_validate%NOTFOUND THEN
3965: CLOSE c_subinv_validate;
3966: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINV_NOT_EXISTS');
3967: Fnd_Msg_Pub.ADD;
3968: RAISE Fnd_Api.G_EXC_ERROR;
3969: ELSE
3970: IF l_status_id in (NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1), NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1)) THEN
3971: CLOSE c_subinv_validate;
3972: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
3971: CLOSE c_subinv_validate;
3972: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
3973: FND_MESSAGE.Set_Token('INV', l_visit_rec.subinventory);
3974: FND_MSG_PUB.ADD;
3975: RAISE Fnd_Api.G_EXC_ERROR;
3976: END IF;
3977: END IF;
3978: CLOSE c_subinv_validate;
3979:
3984: IF c_loc_validate%NOTFOUND THEN
3985: Fnd_Message.SET_NAME('AHL','AHL_VWP_PHY_LOCATOR_NOT_EXISTS');
3986: Fnd_Msg_Pub.ADD;
3987: CLOSE c_loc_validate;
3988: RAISE Fnd_Api.G_EXC_ERROR;
3989: END IF;
3990: CLOSE c_loc_validate;
3991:
3992: l_visit_rec.inv_locator_id := l_inv_loc_id;
4022: IF c_visit_rec.status_code IN ('RELEASED', 'PARTIALLY RELEASED') THEN
4023: IF l_date_time_start IS NULL THEN
4024: Fnd_Message.SET_NAME('AHL','AHL_VWP_ST_DT_REQ');
4025: Fnd_Msg_Pub.ADD;
4026: RAISE FND_Api.G_EXC_ERROR;
4027: END IF;
4028:
4029: IF l_date_time_end IS NULL THEN
4030: Fnd_Message.SET_NAME('AHL','AHL_VWP_END_DT_REQ');
4028:
4029: IF l_date_time_end IS NULL THEN
4030: Fnd_Message.SET_NAME('AHL','AHL_VWP_END_DT_REQ');
4031: Fnd_Msg_Pub.ADD;
4032: RAISE FND_Api.G_EXC_ERROR;
4033: END IF;
4034: END IF;
4035:
4036: IF c_Visit_rec.unit_schedule_id IS NOT NULL AND c_Visit_rec.unit_schedule_id <> FND_API.G_MISS_NUM
4032: RAISE FND_Api.G_EXC_ERROR;
4033: END IF;
4034: END IF;
4035:
4036: IF c_Visit_rec.unit_schedule_id IS NOT NULL AND c_Visit_rec.unit_schedule_id <> FND_API.G_MISS_NUM
4037: THEN
4038: -- Planned Start Date is madatory for transit visit
4039: IF l_date_time_start IS NULL THEN
4040: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_ST_DT_REQ');
4038: -- Planned Start Date is madatory for transit visit
4039: IF l_date_time_start IS NULL THEN
4040: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_ST_DT_REQ');
4041: Fnd_Msg_Pub.ADD;
4042: RAISE FND_Api.G_EXC_ERROR;
4043: END IF;
4044:
4045: -- Planned End Date is madatory for transit visit
4046: IF l_date_time_end IS NULL THEN
4045: -- Planned End Date is madatory for transit visit
4046: IF l_date_time_end IS NULL THEN
4047: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_END_DT_REQ');
4048: Fnd_Msg_Pub.ADD;
4049: RAISE FND_Api.G_EXC_ERROR;
4050: END IF;
4051: END IF;
4052:
4053: -- To validate visit start date should be less than plan end date
4054: IF l_date_time_end IS NOT NULL AND l_date_time_start IS NOT NULL THEN
4055: IF (l_date_time_start > l_date_time_end) THEN
4056: Fnd_Message.SET_NAME('AHL','AHL_VWP_START_DT_GTR_CLOSE_DT');
4057: Fnd_Msg_Pub.ADD;
4058: RAISE Fnd_Api.G_EXC_ERROR;
4059: END IF;
4060: END IF;
4061: l_visit_rec.STATUS_CODE := c_Visit_rec.STATUS_CODE;
4062:
4109: IF (l_status_id <> NVL(FND_PROFILE.VALUE('AHL_MTL_MAT_STATUS_UNSERVICABLE'), l_status_id)) THEN
4110: -- Planning and In-Repair Sub Inventory should be Unserviceable.
4111: FND_MESSAGE.SET_NAME('AHL', 'AHL_CMP_SUBINV_NOT_UNSVC');
4112: FND_MSG_PUB.ADD;
4113: RAISE FND_API.G_EXC_ERROR;
4114: END IF;
4115:
4116: l_inv_loc_id := NULL;
4117: OPEN c_loc_validate (l_visit_rec.organization_id, l_visit_rec.comp_planning_subinv, l_visit_rec.comp_planning_loc_seg);
4133: IF (l_status_id <> NVL(FND_PROFILE.VALUE('AHL_MTL_MAT_STATUS_UNSERVICABLE'), l_status_id)) THEN
4134: -- Planning and In-Repair Sub Inventory should be Unserviceable.
4135: FND_MESSAGE.SET_NAME('AHL', 'AHL_CMP_SUBINV_NOT_UNSVC');
4136: FND_MSG_PUB.ADD;
4137: RAISE FND_API.G_EXC_ERROR;
4138: END IF;
4139:
4140: l_inv_loc_id := NULL;
4141: OPEN c_loc_validate (l_visit_rec.organization_id, l_visit_rec.comp_inrepair_subinv, l_visit_rec.comp_inrepair_loc_seg);
4155: l_visit_rec.comp_planning_loc_id = l_visit_rec.comp_inrepair_loc_id) THEN
4156: -- Please set different locators for Physical, Planning and In-Repair Sub Inventories.
4157: FND_MESSAGE.SET_NAME('AHL', 'AHL_CMP_DIFF_LOCATORS');
4158: FND_MSG_PUB.ADD;
4159: RAISE FND_API.G_EXC_ERROR;
4160: END IF;
4161: -- SATHAPLI::Component Maintenance Planning Project, 02-Nov-2011, end
4162:
4163: /* MANESING::Component Maintenance Planning Project, 05-Jul-2011, added call to Validate_Visit API
4170: Validate_Visit
4171: (
4172: p_api_version => l_api_version,
4173: p_init_msg_list => p_init_msg_list,
4174: p_commit => FND_API.g_false,
4175: p_validation_level => p_validation_level,
4176: p_Visit_rec => l_Visit_rec,
4177: x_return_status => l_return_status,
4178: x_msg_count => l_msg_count,
4182: IF (l_log_statement >= l_log_current_level) THEN
4183: FND_LOG.string(l_log_statement, l_debug, ' After call to Validate_Visit API, Return Status = ' || l_return_status);
4184: END IF;
4185:
4186: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4187: x_return_status := l_return_status;
4188: x_msg_count := l_msg_count;
4189: x_msg_data := l_msg_data;
4190:
4187: x_return_status := l_return_status;
4188: x_msg_count := l_msg_count;
4189: x_msg_data := l_msg_data;
4190:
4191: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4192: RAISE FND_API.G_EXC_ERROR;
4193: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4195: END IF;
4188: x_msg_count := l_msg_count;
4189: x_msg_data := l_msg_data;
4190:
4191: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4192: RAISE FND_API.G_EXC_ERROR;
4193: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4195: END IF;
4196: END IF;
4189: x_msg_data := l_msg_data;
4190:
4191: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4192: RAISE FND_API.G_EXC_ERROR;
4193: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4195: END IF;
4196: END IF;
4197:
4190:
4191: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4192: RAISE FND_API.G_EXC_ERROR;
4193: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4195: END IF;
4196: END IF;
4197:
4198: -- MANESING::Component Maintenance Planning Project, 02-Nov-2011
4205: l_visit_rec.comp_inrepair_loc_id <> c_visit_rec.comp_inrepair_loc_id) THEN
4206: -- Cannot update Physical, Planning or In-Repair Sub Inventory or Locator when the Component Visit is not in Draft status.
4207: FND_MESSAGE.set_name('AHL', 'AHL_CMP_LOCATORS_NOUPDATE');
4208: FND_MSG_PUB.add;
4209: RAISE FND_API.G_EXC_ERROR;
4210: END IF;
4211: END IF;
4212:
4213: -- if organization is changed, then reset all the task department and space changed flag
4245: END IF;
4246:
4247: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
4248: (p_api_version => 1.0,
4249: p_init_msg_list => FND_API.G_TRUE,
4250: p_commit => FND_API.G_FALSE,
4251: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4252: p_default => FND_API.G_FALSE,
4253: p_module_type => NULL,
4246:
4247: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
4248: (p_api_version => 1.0,
4249: p_init_msg_list => FND_API.G_TRUE,
4250: p_commit => FND_API.G_FALSE,
4251: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4252: p_default => FND_API.G_FALSE,
4253: p_module_type => NULL,
4254: x_return_status => l_return_status,
4247: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
4248: (p_api_version => 1.0,
4249: p_init_msg_list => FND_API.G_TRUE,
4250: p_commit => FND_API.G_FALSE,
4251: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4252: p_default => FND_API.G_FALSE,
4253: p_module_type => NULL,
4254: x_return_status => l_return_status,
4255: x_msg_count => l_msg_count,
4248: (p_api_version => 1.0,
4249: p_init_msg_list => FND_API.G_TRUE,
4250: p_commit => FND_API.G_FALSE,
4251: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4252: p_default => FND_API.G_FALSE,
4253: p_module_type => NULL,
4254: x_return_status => l_return_status,
4255: x_msg_count => l_msg_count,
4256: x_msg_data => l_msg_data,
4262: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
4263: END IF;
4264:
4265: IF l_return_status <> 'S' THEN
4266: RAISE Fnd_Api.G_EXC_ERROR;
4267: END IF;
4268: ELSE
4269: CLOSE c_visit_WO;
4270: END IF;
4291: END IF;
4292:
4293: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
4294: (p_api_version => 1.0,
4295: p_init_msg_list => FND_API.G_TRUE,
4296: p_commit => FND_API.G_FALSE,
4297: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4298: p_default => FND_API.G_FALSE,
4299: p_module_type => NULL,
4292:
4293: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
4294: (p_api_version => 1.0,
4295: p_init_msg_list => FND_API.G_TRUE,
4296: p_commit => FND_API.G_FALSE,
4297: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4298: p_default => FND_API.G_FALSE,
4299: p_module_type => NULL,
4300: x_return_status => l_return_status,
4293: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
4294: (p_api_version => 1.0,
4295: p_init_msg_list => FND_API.G_TRUE,
4296: p_commit => FND_API.G_FALSE,
4297: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4298: p_default => FND_API.G_FALSE,
4299: p_module_type => NULL,
4300: x_return_status => l_return_status,
4301: x_msg_count => l_msg_count,
4294: (p_api_version => 1.0,
4295: p_init_msg_list => FND_API.G_TRUE,
4296: p_commit => FND_API.G_FALSE,
4297: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4298: p_default => FND_API.G_FALSE,
4299: p_module_type => NULL,
4300: x_return_status => l_return_status,
4301: x_msg_count => l_msg_count,
4302: x_msg_data => l_msg_data,
4308: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
4309: END IF;
4310:
4311: IF l_return_status <> 'S' THEN
4312: RAISE Fnd_Api.G_EXC_ERROR;
4313: END IF;
4314: ELSE
4315: close c_visit_WO;
4316: END IF;
4335: END IF;
4336:
4337: AHL_PRD_WORKORDER_PVT.update_job
4338: ( p_api_version =>1.0,
4339: p_init_msg_list =>fnd_api.g_false,
4340: p_commit =>fnd_api.g_false,
4341: p_validation_level =>p_validation_level,
4342: p_default =>fnd_api.g_false,
4343: p_module_type =>'API',
4336:
4337: AHL_PRD_WORKORDER_PVT.update_job
4338: ( p_api_version =>1.0,
4339: p_init_msg_list =>fnd_api.g_false,
4340: p_commit =>fnd_api.g_false,
4341: p_validation_level =>p_validation_level,
4342: p_default =>fnd_api.g_false,
4343: p_module_type =>'API',
4344: x_return_status =>l_return_status,
4338: ( p_api_version =>1.0,
4339: p_init_msg_list =>fnd_api.g_false,
4340: p_commit =>fnd_api.g_false,
4341: p_validation_level =>p_validation_level,
4342: p_default =>fnd_api.g_false,
4343: p_module_type =>'API',
4344: x_return_status =>l_return_status,
4345: x_msg_count =>x_msg_count,
4346: x_msg_data =>x_msg_data,
4350: );
4351:
4352: IF l_return_status <> 'S' THEN
4353: CLOSE c_visit_WO;
4354: RAISE Fnd_Api.G_EXC_ERROR;
4355: END IF;
4356:
4357: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4358: fnd_log.string(fnd_log.level_statement,L_DEBUG,'VISIT - After calling AHL_PRD_WORKORDER_PVT.update_job API - l_return_status : '||l_return_status);
4372: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - ID = ' || c_task_rec.visit_task_id);
4373: END IF;
4374:
4375: -- Update workorder for the task only if task is using visit department
4376: IF c_task_rec.department_id is null OR c_task_rec.department_id = FND_API.g_miss_num THEN
4377: OPEN c_Task_WO(c_task_rec.visit_task_id);
4378: FETCH c_Task_WO into l_task_workrec;
4379:
4380: IF c_Task_WO%found THEN
4394: END IF;
4395:
4396: AHL_PRD_WORKORDER_PVT.update_job
4397: ( p_api_version =>1.0,
4398: p_init_msg_list =>fnd_api.g_false,
4399: p_commit =>fnd_api.g_false,
4400: p_validation_level =>p_validation_level,
4401: p_default =>fnd_api.g_false,
4402: p_module_type =>'API',
4395:
4396: AHL_PRD_WORKORDER_PVT.update_job
4397: ( p_api_version =>1.0,
4398: p_init_msg_list =>fnd_api.g_false,
4399: p_commit =>fnd_api.g_false,
4400: p_validation_level =>p_validation_level,
4401: p_default =>fnd_api.g_false,
4402: p_module_type =>'API',
4403: x_return_status =>l_return_status,
4397: ( p_api_version =>1.0,
4398: p_init_msg_list =>fnd_api.g_false,
4399: p_commit =>fnd_api.g_false,
4400: p_validation_level =>p_validation_level,
4401: p_default =>fnd_api.g_false,
4402: p_module_type =>'API',
4403: x_return_status =>l_return_status,
4404: x_msg_count =>x_msg_count,
4405: x_msg_data =>x_msg_data,
4414:
4415: IF l_return_status <> 'S' THEN
4416: CLOSE c_Task_WO;
4417: CLOSE c_task;
4418: RAISE Fnd_Api.G_EXC_ERROR;
4419: END IF;
4420: END IF;
4421: CLOSE c_Task_WO;
4422: END IF;
4459: -- Removed the below validation
4460: /*IF (c_visit_rec.PAST_DATED_VISIT_FLAG = 'N') AND (l_date_time_start < SYSDATE) THEN
4461: Fnd_Message.SET_NAME('AHL','AHL_VWP_CANNOT_CHNG_ST');
4462: Fnd_Msg_Pub.ADD;
4463: RAISE FND_API.G_EXC_ERROR;
4464: END IF;*/
4465:
4466: IF (c_visit_rec.PAST_DATED_VISIT_FLAG = 'Y') AND (l_date_time_start > SYSDATE) THEN
4467: Fnd_Message.SET_NAME('AHL','AHL_VWP_CANNOT_CHNG_ST');
4465:
4466: IF (c_visit_rec.PAST_DATED_VISIT_FLAG = 'Y') AND (l_date_time_start > SYSDATE) THEN
4467: Fnd_Message.SET_NAME('AHL','AHL_VWP_CANNOT_CHNG_ST');
4468: Fnd_Msg_Pub.ADD;
4469: RAISE FND_API.G_EXC_ERROR;
4470: END IF;
4471: END IF;
4472:
4473: --VWPE ER-12424063:: tchimira :: 15-FEB -2011 :: end
4588: L_DEBUG,
4589: 'After calling AHL_PRD_WORKORDER_PVT.reschedule_visit_jobs. Return Status = ' || l_return_status);
4590: END IF;
4591:
4592: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
4593: IF (l_log_statement >= l_log_current_level) THEN
4594: fnd_log.string(l_log_statement,
4595: L_DEBUG,
4596: 'Errors from AHL_PRD_WORKORDER_PVT.reschedule_visit_jobs. Message count: ' ||
4595: L_DEBUG,
4596: 'Errors from AHL_PRD_WORKORDER_PVT.reschedule_visit_jobs. Message count: ' ||
4597: l_msg_count || ', message data: ' || l_msg_data);
4598: END IF;
4599: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4600: RAISE FND_API.G_EXC_ERROR;
4601: ELSE
4602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4603: END IF;
4596: 'Errors from AHL_PRD_WORKORDER_PVT.reschedule_visit_jobs. Message count: ' ||
4597: l_msg_count || ', message data: ' || l_msg_data);
4598: END IF;
4599: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4600: RAISE FND_API.G_EXC_ERROR;
4601: ELSE
4602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4603: END IF;
4604: END IF;
4598: END IF;
4599: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4600: RAISE FND_API.G_EXC_ERROR;
4601: ELSE
4602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4603: END IF;
4604: END IF;
4605: END IF;
4606: END IF; --reschedule visit jobs
4614: IF l_latest_wo_end_date > l_date_time_end THEN
4615: Fnd_Message.SET_NAME('AHL','AHL_VWP_PUSH_END_DATE');
4616: Fnd_Message.SET_TOKEN('END_DATE',to_char(l_latest_wo_end_date, 'DD-Mon-YYYY HH24:MI:SS'));
4617: Fnd_Msg_Pub.ADD;
4618: RAISE Fnd_Api.G_EXC_ERROR;
4619: END IF; */
4620: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: END
4621:
4622: /* MANESING::Component Maintenance Planning Project, 05-Jul-2011
4632: IF l_Visit_rec.VISIT_TYPE_CODE IS NOT NULL AND c_Visit_rec.visit_type_code IS NULL THEN
4633: IF l_is_old_visit_dets.IS_OLD_VISIT <> 'Y' THEN -- PRAKKUM :: 28-JUN-2011 :: VWPE :: ER 12730539 :: IF not an old visit
4634: AHL_VWP_VISITS_STAGES_PVT.Assoc_VisitType_to_Visit (
4635: p_api_version => 1.0,
4636: p_init_msg_list => fnd_api.g_false,
4637: p_commit => fnd_api.g_false,
4638: p_validation_level => p_validation_level,
4639: p_visit_id => l_Visit_rec.VISIT_ID,
4640: p_visit_type_code => l_Visit_rec.VISIT_TYPE_CODE,
4633: IF l_is_old_visit_dets.IS_OLD_VISIT <> 'Y' THEN -- PRAKKUM :: 28-JUN-2011 :: VWPE :: ER 12730539 :: IF not an old visit
4634: AHL_VWP_VISITS_STAGES_PVT.Assoc_VisitType_to_Visit (
4635: p_api_version => 1.0,
4636: p_init_msg_list => fnd_api.g_false,
4637: p_commit => fnd_api.g_false,
4638: p_validation_level => p_validation_level,
4639: p_visit_id => l_Visit_rec.VISIT_ID,
4640: p_visit_type_code => l_Visit_rec.VISIT_TYPE_CODE,
4641: x_return_status => l_return_status,
4645: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4646: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - After calling AHL_VWP_VISITS_STAGES_PVT.Assoc_VisitType_to_Visit - l_return_status : '||l_return_status);
4647: END IF;
4648:
4649: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4650: RAISE Fnd_Api.g_exc_unexpected_error;
4651: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4652: RAISE Fnd_Api.g_exc_error;
4653: END IF;
4646: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - After calling AHL_VWP_VISITS_STAGES_PVT.Assoc_VisitType_to_Visit - l_return_status : '||l_return_status);
4647: END IF;
4648:
4649: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4650: RAISE Fnd_Api.g_exc_unexpected_error;
4651: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4652: RAISE Fnd_Api.g_exc_error;
4653: END IF;
4654: END IF;
4647: END IF;
4648:
4649: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4650: RAISE Fnd_Api.g_exc_unexpected_error;
4651: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4652: RAISE Fnd_Api.g_exc_error;
4653: END IF;
4654: END IF;
4655: END IF;
4648:
4649: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4650: RAISE Fnd_Api.g_exc_unexpected_error;
4651: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4652: RAISE Fnd_Api.g_exc_error;
4653: END IF;
4654: END IF;
4655: END IF;
4656: END IF;
4692: IF l_is_start_date_changed OR l_is_close_date_changed THEN
4693:
4694: AHL_LTP_SPACE_ASSIGN_PVT.VALIDATE_SPACES_WITH_VISIT(
4695: p_api_version => p_api_version,
4696: p_init_msg_list => Fnd_Api.g_false,
4697: p_commit => Fnd_Api.g_false,
4698: p_validation_level => p_validation_level,
4699: p_module_type => p_module_type,
4700: p_visit_id => l_Visit_rec.visit_id,
4693:
4694: AHL_LTP_SPACE_ASSIGN_PVT.VALIDATE_SPACES_WITH_VISIT(
4695: p_api_version => p_api_version,
4696: p_init_msg_list => Fnd_Api.g_false,
4697: p_commit => Fnd_Api.g_false,
4698: p_validation_level => p_validation_level,
4699: p_module_type => p_module_type,
4700: p_visit_id => l_Visit_rec.visit_id,
4701: x_return_status => x_return_status,
4715: l_stages_ovn_updated_count := l_stages_ovn_updated_count+1;--prakkum :: 06-JUL-2011 :: VWPE 12730539 :: All stages are updated to new dates
4716:
4717: AHL_VWP_VISITS_STAGES_PVT.UPDATE_STAGES_HIERARICHY (
4718: p_api_version => p_api_version,
4719: p_init_msg_list => Fnd_Api.g_false,
4720: p_commit => Fnd_Api.g_false,
4721: p_validation_level => p_validation_level,
4722: p_module_type => p_module_type,
4723: p_visit_id => l_Visit_rec.visit_id,
4716:
4717: AHL_VWP_VISITS_STAGES_PVT.UPDATE_STAGES_HIERARICHY (
4718: p_api_version => p_api_version,
4719: p_init_msg_list => Fnd_Api.g_false,
4720: p_commit => Fnd_Api.g_false,
4721: p_validation_level => p_validation_level,
4722: p_module_type => p_module_type,
4723: p_visit_id => l_Visit_rec.visit_id,
4724: x_return_status => x_return_status,
4741: IF (l_log_statement >= l_log_current_level) THEN
4742: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_DATES - l_return_status : '||l_return_status);
4743: END IF;
4744:
4745: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4746: x_msg_count := l_msg_count;
4747: x_return_status := l_return_status;
4748: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4749: RAISE Fnd_Api.g_exc_error;
4744:
4745: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4746: x_msg_count := l_msg_count;
4747: x_return_status := l_return_status;
4748: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4749: RAISE Fnd_Api.g_exc_error;
4750: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4751: RAISE Fnd_Api.g_exc_unexpected_error;
4752: END IF;
4745: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4746: x_msg_count := l_msg_count;
4747: x_return_status := l_return_status;
4748: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4749: RAISE Fnd_Api.g_exc_error;
4750: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4751: RAISE Fnd_Api.g_exc_unexpected_error;
4752: END IF;
4753: END IF;
4746: x_msg_count := l_msg_count;
4747: x_return_status := l_return_status;
4748: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4749: RAISE Fnd_Api.g_exc_error;
4750: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4751: RAISE Fnd_Api.g_exc_unexpected_error;
4752: END IF;
4753: END IF;
4754: -- PRAKKUM :: 13-FEB-2011 :: Bug 13711800 :: END
4747: x_return_status := l_return_status;
4748: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4749: RAISE Fnd_Api.g_exc_error;
4750: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4751: RAISE Fnd_Api.g_exc_unexpected_error;
4752: END IF;
4753: END IF;
4754: -- PRAKKUM :: 13-FEB-2011 :: Bug 13711800 :: END
4755:
4779:
4780: -- Added cxcheng POST11510--------------
4781: AHL_VWP_TIMES_PVT.Calculate_Task_Times
4782: ( p_api_version => 1.0,
4783: p_init_msg_list => Fnd_Api.G_FALSE,
4784: p_commit => Fnd_Api.G_FALSE,
4785: p_validation_level=> Fnd_Api.G_VALID_LEVEL_FULL,
4786: x_return_status => l_return_status,
4787: x_msg_count => l_msg_count,
4780: -- Added cxcheng POST11510--------------
4781: AHL_VWP_TIMES_PVT.Calculate_Task_Times
4782: ( p_api_version => 1.0,
4783: p_init_msg_list => Fnd_Api.G_FALSE,
4784: p_commit => Fnd_Api.G_FALSE,
4785: p_validation_level=> Fnd_Api.G_VALID_LEVEL_FULL,
4786: x_return_status => l_return_status,
4787: x_msg_count => l_msg_count,
4788: x_msg_data => l_msg_data,
4781: AHL_VWP_TIMES_PVT.Calculate_Task_Times
4782: ( p_api_version => 1.0,
4783: p_init_msg_list => Fnd_Api.G_FALSE,
4784: p_commit => Fnd_Api.G_FALSE,
4785: p_validation_level=> Fnd_Api.G_VALID_LEVEL_FULL,
4786: x_return_status => l_return_status,
4787: x_msg_count => l_msg_count,
4788: x_msg_data => l_msg_data,
4789: p_visit_id => l_visit_rec.visit_id);
4792: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times - l_return_status : '||l_return_status);
4793: END IF;
4794:
4795: IF l_return_status <> 'S' THEN
4796: RAISE Fnd_Api.G_EXC_ERROR;
4797: END IF;
4798:
4799: -- To call LTP process to delete or adjust space assignments if space changed flag is set to "Y"
4800: IF space_changed_flag = 'Y' THEN
4804:
4805: l_Space_Assignment_Rec.VISIT_ID := l_Visit_rec.VISIT_ID;
4806: AHL_LTP_SPACE_ASSIGN_PVT.Delete_Space_assignment
4807: ( p_api_version => 1.0,
4808: p_init_msg_list => FND_API.g_false,
4809: p_commit => FND_API.g_false,
4810: p_validation_level => FND_API.g_valid_level_full,
4811: p_space_assign_rec => l_Space_Assignment_Rec,
4812: x_return_status => l_return_status,
4805: l_Space_Assignment_Rec.VISIT_ID := l_Visit_rec.VISIT_ID;
4806: AHL_LTP_SPACE_ASSIGN_PVT.Delete_Space_assignment
4807: ( p_api_version => 1.0,
4808: p_init_msg_list => FND_API.g_false,
4809: p_commit => FND_API.g_false,
4810: p_validation_level => FND_API.g_valid_level_full,
4811: p_space_assign_rec => l_Space_Assignment_Rec,
4812: x_return_status => l_return_status,
4813: x_msg_count => x_msg_count,
4806: AHL_LTP_SPACE_ASSIGN_PVT.Delete_Space_assignment
4807: ( p_api_version => 1.0,
4808: p_init_msg_list => FND_API.g_false,
4809: p_commit => FND_API.g_false,
4810: p_validation_level => FND_API.g_valid_level_full,
4811: p_space_assign_rec => l_Space_Assignment_Rec,
4812: x_return_status => l_return_status,
4813: x_msg_count => x_msg_count,
4814: x_msg_data => x_msg_data
4818: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_SPACE_ASSIGN_PVT.Delete_Space_assignment - l_return_status : '||l_return_status);
4819: END IF;
4820:
4821: IF l_return_status <> 'S' THEN
4822: RAISE Fnd_Api.G_EXC_ERROR;
4823: END IF;
4824: END IF;
4825:
4826: -- If Visit DEPARTMENT or ORGANIZATION or Start Date is changed after price/cost is estimated,
4872: -- else if any of them is updated then AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials is invoked with operation flag 'U' as earlier.
4873:
4874: IF (( c_visit_rec.organization_id IS NOT NULL AND c_visit_rec.department_id IS NOT NULL AND
4875: c_Visit_rec.START_DATE_TIME IS NOT NULL )
4876: AND ( l_date_time_start IS NULL OR l_date_time_start = Fnd_Api.G_MISS_DATE OR
4877: l_visit_rec.organization_id IS NULL OR l_visit_rec.organization_id = Fnd_Api.G_MISS_NUM OR
4878: l_visit_rec.department_id IS NULL OR l_visit_rec.department_id = Fnd_Api.G_MISS_NUM ))
4879: THEN
4880: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4873:
4874: IF (( c_visit_rec.organization_id IS NOT NULL AND c_visit_rec.department_id IS NOT NULL AND
4875: c_Visit_rec.START_DATE_TIME IS NOT NULL )
4876: AND ( l_date_time_start IS NULL OR l_date_time_start = Fnd_Api.G_MISS_DATE OR
4877: l_visit_rec.organization_id IS NULL OR l_visit_rec.organization_id = Fnd_Api.G_MISS_NUM OR
4878: l_visit_rec.department_id IS NULL OR l_visit_rec.department_id = Fnd_Api.G_MISS_NUM ))
4879: THEN
4880: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4881: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
4874: IF (( c_visit_rec.organization_id IS NOT NULL AND c_visit_rec.department_id IS NOT NULL AND
4875: c_Visit_rec.START_DATE_TIME IS NOT NULL )
4876: AND ( l_date_time_start IS NULL OR l_date_time_start = Fnd_Api.G_MISS_DATE OR
4877: l_visit_rec.organization_id IS NULL OR l_visit_rec.organization_id = Fnd_Api.G_MISS_NUM OR
4878: l_visit_rec.department_id IS NULL OR l_visit_rec.department_id = Fnd_Api.G_MISS_NUM ))
4879: THEN
4880: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4881: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
4882: END IF;
4882: END IF;
4883:
4884: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
4885: p_api_version => 1.0,
4886: p_init_msg_list => FND_API.g_false,
4887: p_commit => FND_API.g_false,
4888: p_validation_level => FND_API.g_valid_level_full,
4889: p_visit_id => l_visit_rec.Visit_Id,
4890: p_visit_task_id => NULL,
4883:
4884: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
4885: p_api_version => 1.0,
4886: p_init_msg_list => FND_API.g_false,
4887: p_commit => FND_API.g_false,
4888: p_validation_level => FND_API.g_valid_level_full,
4889: p_visit_id => l_visit_rec.Visit_Id,
4890: p_visit_task_id => NULL,
4891: p_org_id => l_visit_rec.organization_id,
4884: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
4885: p_api_version => 1.0,
4886: p_init_msg_list => FND_API.g_false,
4887: p_commit => FND_API.g_false,
4888: p_validation_level => FND_API.g_valid_level_full,
4889: p_visit_id => l_visit_rec.Visit_Id,
4890: p_visit_task_id => NULL,
4891: p_org_id => l_visit_rec.organization_id,
4892: p_start_date => l_date_time_start,
4899: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4900: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials - l_return_status : '||l_return_status);
4901: END IF;
4902:
4903: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4904: RAISE FND_API.G_EXC_ERROR;
4905: END IF;
4906: ELSIF ( NVL(l_date_time_start,TO_DATE('01-01-1947','DD-MM-YYYY')) <> NVL(c_Visit_rec.START_DATE_TIME,TO_DATE('01-01-1947','DD-MM-YYYY'))
4907: OR NVL(l_visit_rec.organization_id,-777) <> NVL(c_visit_rec.organization_id,-777)
4900: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials - l_return_status : '||l_return_status);
4901: END IF;
4902:
4903: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4904: RAISE FND_API.G_EXC_ERROR;
4905: END IF;
4906: ELSIF ( NVL(l_date_time_start,TO_DATE('01-01-1947','DD-MM-YYYY')) <> NVL(c_Visit_rec.START_DATE_TIME,TO_DATE('01-01-1947','DD-MM-YYYY'))
4907: OR NVL(l_visit_rec.organization_id,-777) <> NVL(c_visit_rec.organization_id,-777)
4908: OR NVL(l_visit_rec.department_id,-777) <> NVL(c_visit_rec.department_id,-777))
4905: END IF;
4906: ELSIF ( NVL(l_date_time_start,TO_DATE('01-01-1947','DD-MM-YYYY')) <> NVL(c_Visit_rec.START_DATE_TIME,TO_DATE('01-01-1947','DD-MM-YYYY'))
4907: OR NVL(l_visit_rec.organization_id,-777) <> NVL(c_visit_rec.organization_id,-777)
4908: OR NVL(l_visit_rec.department_id,-777) <> NVL(c_visit_rec.department_id,-777))
4909: AND ( l_date_time_start IS NOT NULL AND l_date_time_start <> Fnd_Api.G_MISS_DATE
4910: AND l_visit_rec.organization_id IS NOT NULL AND l_visit_rec.organization_id <> Fnd_Api.G_MISS_NUM
4911: AND l_visit_rec.department_id IS NOT NULL AND l_visit_rec.department_id <> Fnd_Api.G_MISS_NUM )
4912: THEN
4913: /*AHL_DEBUG_PUB.Debug( l_full_name ||': VISIT UPDATED - Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
4906: ELSIF ( NVL(l_date_time_start,TO_DATE('01-01-1947','DD-MM-YYYY')) <> NVL(c_Visit_rec.START_DATE_TIME,TO_DATE('01-01-1947','DD-MM-YYYY'))
4907: OR NVL(l_visit_rec.organization_id,-777) <> NVL(c_visit_rec.organization_id,-777)
4908: OR NVL(l_visit_rec.department_id,-777) <> NVL(c_visit_rec.department_id,-777))
4909: AND ( l_date_time_start IS NOT NULL AND l_date_time_start <> Fnd_Api.G_MISS_DATE
4910: AND l_visit_rec.organization_id IS NOT NULL AND l_visit_rec.organization_id <> Fnd_Api.G_MISS_NUM
4911: AND l_visit_rec.department_id IS NOT NULL AND l_visit_rec.department_id <> Fnd_Api.G_MISS_NUM )
4912: THEN
4913: /*AHL_DEBUG_PUB.Debug( l_full_name ||': VISIT UPDATED - Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
4914: ELSIF (
4907: OR NVL(l_visit_rec.organization_id,-777) <> NVL(c_visit_rec.organization_id,-777)
4908: OR NVL(l_visit_rec.department_id,-777) <> NVL(c_visit_rec.department_id,-777))
4909: AND ( l_date_time_start IS NOT NULL AND l_date_time_start <> Fnd_Api.G_MISS_DATE
4910: AND l_visit_rec.organization_id IS NOT NULL AND l_visit_rec.organization_id <> Fnd_Api.G_MISS_NUM
4911: AND l_visit_rec.department_id IS NOT NULL AND l_visit_rec.department_id <> Fnd_Api.G_MISS_NUM )
4912: THEN
4913: /*AHL_DEBUG_PUB.Debug( l_full_name ||': VISIT UPDATED - Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
4914: ELSIF (
4915: ( l_date_time_start <> c_Visit_rec.START_DATE_TIME)
4917: OR (l_visit_rec.department_id <> c_visit_rec.department_id)
4918: )*/
4919: -- Begin Changes by surrkuma on 15-JUL-2010 for Bug 9901811
4920: -- Unschedule the ATP materials when there is an Org Change
4921: IF (l_visit_rec.organization_id IS NOT NULL AND l_visit_rec.organization_id <> Fnd_Api.G_MISS_NUM AND
4922: c_visit_rec.organization_id IS NOT NULL AND c_visit_rec.organization_id <> Fnd_Api.G_MISS_NUM AND
4923: l_visit_rec.organization_id <> c_visit_rec.organization_id) THEN
4924: Handle_Visit_Org_Change(p_visit_id => l_visit_rec.Visit_Id);
4925: END IF;
4918: )*/
4919: -- Begin Changes by surrkuma on 15-JUL-2010 for Bug 9901811
4920: -- Unschedule the ATP materials when there is an Org Change
4921: IF (l_visit_rec.organization_id IS NOT NULL AND l_visit_rec.organization_id <> Fnd_Api.G_MISS_NUM AND
4922: c_visit_rec.organization_id IS NOT NULL AND c_visit_rec.organization_id <> Fnd_Api.G_MISS_NUM AND
4923: l_visit_rec.organization_id <> c_visit_rec.organization_id) THEN
4924: Handle_Visit_Org_Change(p_visit_id => l_visit_rec.Visit_Id);
4925: END IF;
4926: -- End Changes by surrkuma on 15-JUL-2010 for Bug 9901811
4944: ||'p_visit_id: '||l_visit_rec.Visit_Id||'l_instance_id: '||l_task_detl_rec.instance_id);
4945: END IF;
4946: AHL_LTP_REQST_MATRL_PVT.Associate_Stage_Materials (
4947: p_api_version => 1.0,
4948: p_init_msg_list => Fnd_Api.G_FALSE,
4949: p_commit => Fnd_Api.G_FALSE,
4950: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4951: p_module_type => 'VST',
4952: p_visit_id => l_visit_rec.Visit_Id,
4945: END IF;
4946: AHL_LTP_REQST_MATRL_PVT.Associate_Stage_Materials (
4947: p_api_version => 1.0,
4948: p_init_msg_list => Fnd_Api.G_FALSE,
4949: p_commit => Fnd_Api.G_FALSE,
4950: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4951: p_module_type => 'VST',
4952: p_visit_id => l_visit_rec.Visit_Id,
4953: p_mr_header_id => l_task_detl_rec.mr_id,
4946: AHL_LTP_REQST_MATRL_PVT.Associate_Stage_Materials (
4947: p_api_version => 1.0,
4948: p_init_msg_list => Fnd_Api.G_FALSE,
4949: p_commit => Fnd_Api.G_FALSE,
4950: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4951: p_module_type => 'VST',
4952: p_visit_id => l_visit_rec.Visit_Id,
4953: p_mr_header_id => l_task_detl_rec.mr_id,
4954: p_instance_id => l_task_detl_rec.instance_id,
4962: 'After calling Associate_Stage_Materials, Return Status: ' || l_return_status);
4963: END IF;
4964:
4965: -- Check Error Message stack.
4966: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4967: x_msg_count := l_msg_count;
4968: x_return_status := l_return_status;
4969: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4970: RAISE Fnd_Api.g_exc_error;
4965: -- Check Error Message stack.
4966: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4967: x_msg_count := l_msg_count;
4968: x_return_status := l_return_status;
4969: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4970: RAISE Fnd_Api.g_exc_error;
4971: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4972: RAISE Fnd_Api.g_exc_unexpected_error;
4973: END IF;
4966: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4967: x_msg_count := l_msg_count;
4968: x_return_status := l_return_status;
4969: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4970: RAISE Fnd_Api.g_exc_error;
4971: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4972: RAISE Fnd_Api.g_exc_unexpected_error;
4973: END IF;
4974: END IF;
4967: x_msg_count := l_msg_count;
4968: x_return_status := l_return_status;
4969: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4970: RAISE Fnd_Api.g_exc_error;
4971: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4972: RAISE Fnd_Api.g_exc_unexpected_error;
4973: END IF;
4974: END IF;
4975: END LOOP;
4968: x_return_status := l_return_status;
4969: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4970: RAISE Fnd_Api.g_exc_error;
4971: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4972: RAISE Fnd_Api.g_exc_unexpected_error;
4973: END IF;
4974: END IF;
4975: END LOOP;
4976: -- TCHIMIRA :: 16-JUL-2011 :: VWPE: ER:12730539 :: END
4977: END IF; -- if l_is_comp_visit = 'N'
4978:
4979: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
4980: p_api_version => 1.0,
4981: p_init_msg_list => FND_API.g_false,
4982: p_commit => FND_API.g_false,
4983: p_validation_level => FND_API.g_valid_level_full,
4984: p_visit_id => l_visit_rec.Visit_Id,
4985: p_visit_task_id => NULL,
4978:
4979: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
4980: p_api_version => 1.0,
4981: p_init_msg_list => FND_API.g_false,
4982: p_commit => FND_API.g_false,
4983: p_validation_level => FND_API.g_valid_level_full,
4984: p_visit_id => l_visit_rec.Visit_Id,
4985: p_visit_task_id => NULL,
4986: p_org_id => l_visit_rec.organization_id,
4979: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
4980: p_api_version => 1.0,
4981: p_init_msg_list => FND_API.g_false,
4982: p_commit => FND_API.g_false,
4983: p_validation_level => FND_API.g_valid_level_full,
4984: p_visit_id => l_visit_rec.Visit_Id,
4985: p_visit_task_id => NULL,
4986: p_org_id => l_visit_rec.organization_id,
4987: p_start_date => l_date_time_start,
4994: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4995: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials - l_return_status : '||l_return_status);
4996: END IF;
4997:
4998: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4999: RAISE FND_API.G_EXC_ERROR;
5000: END IF;
5001: END IF;
5002:
4995: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials - l_return_status : '||l_return_status);
4996: END IF;
4997:
4998: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4999: RAISE FND_API.G_EXC_ERROR;
5000: END IF;
5001: END IF;
5002:
5003: -- Set any task changed flag to "Y" if start/end date changed
5008: p_visit_id => l_Visit_rec.visit_id,
5009: p_flag => 'Y',
5010: x_return_status => l_return_status);
5011:
5012: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5013: RAISE FND_API.G_EXC_ERROR;
5014: END IF;
5015: END IF;
5016:
5009: p_flag => 'Y',
5010: x_return_status => l_return_status);
5011:
5012: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5013: RAISE FND_API.G_EXC_ERROR;
5014: END IF;
5015: END IF;
5016:
5017: -- PRAKKUM :: VWPE: ER:12424063 :: 11-APR-2011 :: START
5032:
5033: l_msg_count := Fnd_Msg_Pub.count_msg;
5034: IF l_msg_count > 0 THEN
5035: X_msg_count := l_msg_count;
5036: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5037: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5038: END IF;
5039:
5040: --Standard check for commit
5033: l_msg_count := Fnd_Msg_Pub.count_msg;
5034: IF l_msg_count > 0 THEN
5035: X_msg_count := l_msg_count;
5036: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5037: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5038: END IF;
5039:
5040: --Standard check for commit
5041: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
5037: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5038: END IF;
5039:
5040: --Standard check for commit
5041: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
5042: COMMIT;
5043: END IF;
5044:
5045: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5045: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5046: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
5047: END IF;
5048: EXCEPTION
5049: WHEN Fnd_Api.g_exc_error THEN
5050: ROLLBACK TO Update_Visit;
5051: x_return_status := Fnd_Api.g_ret_sts_error;
5052: Fnd_Msg_Pub.count_and_get (
5053: p_encoded => Fnd_Api.g_false,
5047: END IF;
5048: EXCEPTION
5049: WHEN Fnd_Api.g_exc_error THEN
5050: ROLLBACK TO Update_Visit;
5051: x_return_status := Fnd_Api.g_ret_sts_error;
5052: Fnd_Msg_Pub.count_and_get (
5053: p_encoded => Fnd_Api.g_false,
5054: p_count => x_msg_count,
5055: p_data => x_msg_data
5049: WHEN Fnd_Api.g_exc_error THEN
5050: ROLLBACK TO Update_Visit;
5051: x_return_status := Fnd_Api.g_ret_sts_error;
5052: Fnd_Msg_Pub.count_and_get (
5053: p_encoded => Fnd_Api.g_false,
5054: p_count => x_msg_count,
5055: p_data => x_msg_data
5056: );
5057: WHEN Fnd_Api.g_exc_unexpected_error THEN
5053: p_encoded => Fnd_Api.g_false,
5054: p_count => x_msg_count,
5055: p_data => x_msg_data
5056: );
5057: WHEN Fnd_Api.g_exc_unexpected_error THEN
5058: ROLLBACK TO Update_Visit;
5059: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5060: Fnd_Msg_Pub.count_and_get (
5061: p_encoded => Fnd_Api.g_false,
5055: p_data => x_msg_data
5056: );
5057: WHEN Fnd_Api.g_exc_unexpected_error THEN
5058: ROLLBACK TO Update_Visit;
5059: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5060: Fnd_Msg_Pub.count_and_get (
5061: p_encoded => Fnd_Api.g_false,
5062: p_count => x_msg_count,
5063: p_data => x_msg_data
5057: WHEN Fnd_Api.g_exc_unexpected_error THEN
5058: ROLLBACK TO Update_Visit;
5059: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5060: Fnd_Msg_Pub.count_and_get (
5061: p_encoded => Fnd_Api.g_false,
5062: p_count => x_msg_count,
5063: p_data => x_msg_data
5064: );
5065: WHEN OTHERS THEN
5063: p_data => x_msg_data
5064: );
5065: WHEN OTHERS THEN
5066: ROLLBACK TO Update_Visit;
5067: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5068: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5069: THEN
5070: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5071: END IF;
5069: THEN
5070: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5071: END IF;
5072: Fnd_Msg_Pub.count_and_get (
5073: p_encoded => Fnd_Api.g_false,
5074: p_count => x_msg_count,
5075: p_data => x_msg_data
5076: );
5077: END Update_Visit;
5083: --------------------------------------------------------------------
5084:
5085: PROCEDURE Delete_Task (
5086: p_api_version IN NUMBER,
5087: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5088: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5089: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5090: p_module_type IN VARCHAR2 := Null,
5091: p_Visit_Task_Id IN NUMBER,
5084:
5085: PROCEDURE Delete_Task (
5086: p_api_version IN NUMBER,
5087: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5088: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5089: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5090: p_module_type IN VARCHAR2 := Null,
5091: p_Visit_Task_Id IN NUMBER,
5092: x_return_status OUT NOCOPY VARCHAR2,
5085: PROCEDURE Delete_Task (
5086: p_api_version IN NUMBER,
5087: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5088: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5089: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5090: p_module_type IN VARCHAR2 := Null,
5091: p_Visit_Task_Id IN NUMBER,
5092: x_return_status OUT NOCOPY VARCHAR2,
5093: x_msg_count OUT NOCOPY NUMBER,
5160:
5161: AHL_VWP_PROJ_PROD_PVT.Delete_Task_To_project(
5162: p_api_version => p_api_version,
5163: p_init_msg_list => p_init_msg_list,
5164: p_commit => Fnd_Api.g_false,
5165: p_validation_level => p_validation_level,
5166: p_module_type => p_module_type,
5167: p_visit_task_id => p_Visit_Task_Id,
5168: x_return_status => x_return_status,
5168: x_return_status => x_return_status,
5169: x_msg_count => x_msg_count,
5170: x_msg_data => x_msg_data);
5171:
5172: IF NVL(x_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS
5173: THEN
5174: -- Method call was not successful, raise error
5175: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_TASK_FAILED');
5176: Fnd_Msg_Pub.ADD;
5181: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
5182: 'Failed to delete project task association for task '||p_visit_task_id
5183: );
5184: END IF;
5185: RAISE Fnd_Api.G_EXC_ERROR;
5186: END IF;
5187:
5188: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5189: fnd_log.string
5205: --------------------------------------------------------------------
5206:
5207: PROCEDURE Delete_Visit (
5208: p_api_version IN NUMBER,
5209: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5210: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5211: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5212: p_visit_id IN NUMBER,
5213: x_return_status OUT NOCOPY VARCHAR2,
5206:
5207: PROCEDURE Delete_Visit (
5208: p_api_version IN NUMBER,
5209: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5210: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5211: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5212: p_visit_id IN NUMBER,
5213: x_return_status OUT NOCOPY VARCHAR2,
5214: x_msg_count OUT NOCOPY NUMBER,
5207: PROCEDURE Delete_Visit (
5208: p_api_version IN NUMBER,
5209: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5210: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5211: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5212: p_visit_id IN NUMBER,
5213: x_return_status OUT NOCOPY VARCHAR2,
5214: x_msg_count OUT NOCOPY NUMBER,
5215: x_msg_data OUT NOCOPY VARCHAR2
5301: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
5302: END IF;
5303:
5304: -- Initialize message list if p_init_msg_list is set to TRUE.
5305: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
5306: Fnd_Msg_Pub.initialize;
5307: END IF;
5308:
5309: --Initialize API return status to success
5306: Fnd_Msg_Pub.initialize;
5307: END IF;
5308:
5309: --Initialize API return status to success
5310: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5311:
5312: -- Standard call to check for call compatibility.
5313: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
5314: p_api_version,
5309: --Initialize API return status to success
5310: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5311:
5312: -- Standard call to check for call compatibility.
5313: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
5314: p_api_version,
5315: l_api_name,G_PKG_NAME) THEN
5316: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5317: END IF;
5312: -- Standard call to check for call compatibility.
5313: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
5314: p_api_version,
5315: l_api_name,G_PKG_NAME) THEN
5316: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5317: END IF;
5318: ------------------------Start of API Body------------------------------------
5319: ------------------------ Delete ------------------------
5320: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5331: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5332: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Record not found for the visit with ID'||p_visit_id);
5333: END IF;
5334: END IF;
5335: RAISE Fnd_Api.g_exc_error;
5336: END IF;
5337: CLOSE c_Visit;
5338:
5339: -- Check the status of visit, if 'planning' then only delete
5342: Fnd_Msg_Pub.ADD;
5343: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5344: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit is in invalid status for deletion. Visit ID: '||p_visit_id);
5345: END IF;
5346: RAISE Fnd_Api.G_EXC_ERROR;
5347: END IF;
5348:
5349: -- To Check if any materials are schedueled for the visit
5350: OPEN c_Material(p_visit_id);
5358:
5359: -- Removing planned materials for the visit
5360: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
5361: (p_api_version => p_api_version,
5362: p_init_msg_list => Fnd_Api.G_FALSE,
5363: p_commit => Fnd_Api.G_FALSE,
5364: p_visit_id => p_visit_id,
5365: p_visit_task_id => NULL,
5366: p_org_id => NULL,
5359: -- Removing planned materials for the visit
5360: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
5361: (p_api_version => p_api_version,
5362: p_init_msg_list => Fnd_Api.G_FALSE,
5363: p_commit => Fnd_Api.G_FALSE,
5364: p_visit_id => p_visit_id,
5365: p_visit_task_id => NULL,
5366: p_org_id => NULL,
5367: p_start_date => NULL,
5374: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5375: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials - l_return_status : '||l_return_status);
5376: END IF;
5377:
5378: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5379: CLOSE c_Material;
5380: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5381: END IF;
5382: END IF;
5376: END IF;
5377:
5378: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5379: CLOSE c_Material;
5380: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5381: END IF;
5382: END IF;
5383: CLOSE c_Material;
5384:
5399: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5400: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_SIMUL_PLAN_PVT.delete_simul_visits - l_return_status : '||l_return_status);
5401: END IF;
5402:
5403: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5404: -- Check Error Message stack.
5405: x_msg_count := FND_MSG_PUB.count_msg;
5406: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5407: fnd_log.string (fnd_log.level_statement,L_DEBUG,'Errors from delete_simul_visits: ' || x_msg_count );
5405: x_msg_count := FND_MSG_PUB.count_msg;
5406: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5407: fnd_log.string (fnd_log.level_statement,L_DEBUG,'Errors from delete_simul_visits: ' || x_msg_count );
5408: END IF;
5409: RAISE Fnd_Api.g_exc_error;
5410: END IF;
5411:
5412: -- Check for to delete the visit's tasks
5413: OPEN c_Tasks_csr(p_visit_id);
5436: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5437: fnd_log.string (fnd_log.level_statement,L_DEBUG,'After calling Delete_Task - l_return_status : '||l_return_status);
5438: END IF;
5439:
5440: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5441: CLOSE c_Tasks_csr;
5442: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_DEL_FAILED');
5443: Fnd_Message.SET_TOKEN('TASK_NAME',l_tasks_rec.visit_task_number);
5444: Fnd_Msg_Pub.ADD;
5441: CLOSE c_Tasks_csr;
5442: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_DEL_FAILED');
5443: Fnd_Message.SET_TOKEN('TASK_NAME',l_tasks_rec.visit_task_number);
5444: Fnd_Msg_Pub.ADD;
5445: RAISE Fnd_Api.G_EXC_ERROR;
5446: END IF;
5447: END LOOP;
5448: CLOSE c_Tasks_csr;
5449:
5472: END IF;
5473:
5474: AHL_PRD_WORKORDER_PVT.update_job
5475: ( p_api_version =>1.0,
5476: p_init_msg_list =>fnd_api.g_false,
5477: p_commit =>fnd_api.g_false,
5478: p_validation_level =>p_validation_level,
5479: p_default =>fnd_api.g_false,
5480: p_module_type =>NULL,
5473:
5474: AHL_PRD_WORKORDER_PVT.update_job
5475: ( p_api_version =>1.0,
5476: p_init_msg_list =>fnd_api.g_false,
5477: p_commit =>fnd_api.g_false,
5478: p_validation_level =>p_validation_level,
5479: p_default =>fnd_api.g_false,
5480: p_module_type =>NULL,
5481: x_return_status =>l_return_status,
5475: ( p_api_version =>1.0,
5476: p_init_msg_list =>fnd_api.g_false,
5477: p_commit =>fnd_api.g_false,
5478: p_validation_level =>p_validation_level,
5479: p_default =>fnd_api.g_false,
5480: p_module_type =>NULL,
5481: x_return_status =>l_return_status,
5482: x_msg_count =>x_msg_count,
5483: x_msg_data =>x_msg_data,
5489: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5490: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_PRD_WORKORDER_PVT.update_job - l_return_status : '||l_return_status);
5491: END IF;
5492:
5493: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5494: CLOSE c_active_workorder;
5495: CLOSE c_workorder_csr;
5496: RAISE Fnd_Api.G_EXC_ERROR;
5497: END IF;
5492:
5493: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5494: CLOSE c_active_workorder;
5495: CLOSE c_workorder_csr;
5496: RAISE Fnd_Api.G_EXC_ERROR;
5497: END IF;
5498: END IF;
5499: CLOSE c_active_workorder;
5500: END IF;
5527: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5528: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_PROJ_PROD_PVT.Update_project - l_return_status : '||l_return_status);
5529: END IF;
5530:
5531: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5532: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_UPDATE_FAILED'); -- Failed to update job
5533: Fnd_Msg_Pub.ADD;
5534: RAISE Fnd_Api.G_EXC_ERROR;
5535: END IF;
5530:
5531: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5532: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_UPDATE_FAILED'); -- Failed to update job
5533: Fnd_Msg_Pub.ADD;
5534: RAISE Fnd_Api.G_EXC_ERROR;
5535: END IF;
5536: ELSE
5537: -- When a visit is hard deleted than the related projects is also deleted
5538: -- Call Delete_Project local procedure to delete project and its tasks
5554: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5555: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_PROJ_PROD_PVT.Delete_Project - l_return_status : '||l_return_status);
5556: END IF;
5557:
5558: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5559: -- Method call was not successful, raise error
5560: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_DEL_FAILED');
5561: Fnd_Msg_Pub.ADD;
5562: RAISE Fnd_Api.G_EXC_ERROR;
5558: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5559: -- Method call was not successful, raise error
5560: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_DEL_FAILED');
5561: Fnd_Msg_Pub.ADD;
5562: RAISE Fnd_Api.G_EXC_ERROR;
5563: END IF;
5564: END IF; -- soft delete flag
5565: END IF; -- project id not null
5566:
5593: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5594: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_VISITS_STAGES_PVT.DELETE_ALL_STAGES - l_return_status : '||l_return_status );
5595: END IF;
5596:
5597: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5598: RAISE Fnd_Api.G_EXC_ERROR;
5599: END IF;
5600:
5601: END IF; -- if l_is_comp_visit = 'N'
5594: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_VISITS_STAGES_PVT.DELETE_ALL_STAGES - l_return_status : '||l_return_status );
5595: END IF;
5596:
5597: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5598: RAISE Fnd_Api.G_EXC_ERROR;
5599: END IF;
5600:
5601: END IF; -- if l_is_comp_visit = 'N'
5602:
5622: l_msg_count := Fnd_Msg_Pub.count_msg;
5623:
5624: IF l_msg_count > 0 THEN
5625: X_msg_count := l_msg_count;
5626: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5627: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5628: END IF;
5629:
5630: --Standard check for commit
5623:
5624: IF l_msg_count > 0 THEN
5625: X_msg_count := l_msg_count;
5626: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5627: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5628: END IF;
5629:
5630: --Standard check for commit
5631: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
5627: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5628: END IF;
5629:
5630: --Standard check for commit
5631: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
5632: COMMIT;
5633: END IF;
5634:
5635: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5635: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5636: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
5637: END IF;
5638: EXCEPTION
5639: WHEN Fnd_Api.g_exc_error THEN
5640: ROLLBACK TO Delete_Visit;
5641: x_return_status := Fnd_Api.g_ret_sts_error;
5642: Fnd_Msg_Pub.count_and_get (
5643: p_encoded => Fnd_Api.g_false,
5637: END IF;
5638: EXCEPTION
5639: WHEN Fnd_Api.g_exc_error THEN
5640: ROLLBACK TO Delete_Visit;
5641: x_return_status := Fnd_Api.g_ret_sts_error;
5642: Fnd_Msg_Pub.count_and_get (
5643: p_encoded => Fnd_Api.g_false,
5644: p_count => x_msg_count,
5645: p_data => x_msg_data
5639: WHEN Fnd_Api.g_exc_error THEN
5640: ROLLBACK TO Delete_Visit;
5641: x_return_status := Fnd_Api.g_ret_sts_error;
5642: Fnd_Msg_Pub.count_and_get (
5643: p_encoded => Fnd_Api.g_false,
5644: p_count => x_msg_count,
5645: p_data => x_msg_data
5646: );
5647: WHEN Fnd_Api.g_exc_unexpected_error THEN
5643: p_encoded => Fnd_Api.g_false,
5644: p_count => x_msg_count,
5645: p_data => x_msg_data
5646: );
5647: WHEN Fnd_Api.g_exc_unexpected_error THEN
5648: ROLLBACK TO Delete_Visit;
5649: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5650: Fnd_Msg_Pub.count_and_get (
5651: p_encoded => Fnd_Api.g_false,
5645: p_data => x_msg_data
5646: );
5647: WHEN Fnd_Api.g_exc_unexpected_error THEN
5648: ROLLBACK TO Delete_Visit;
5649: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5650: Fnd_Msg_Pub.count_and_get (
5651: p_encoded => Fnd_Api.g_false,
5652: p_count => x_msg_count,
5653: p_data => x_msg_data
5647: WHEN Fnd_Api.g_exc_unexpected_error THEN
5648: ROLLBACK TO Delete_Visit;
5649: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5650: Fnd_Msg_Pub.count_and_get (
5651: p_encoded => Fnd_Api.g_false,
5652: p_count => x_msg_count,
5653: p_data => x_msg_data
5654: );
5655: WHEN OTHERS THEN
5653: p_data => x_msg_data
5654: );
5655: WHEN OTHERS THEN
5656: ROLLBACK TO Delete_Visit;
5657: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5658: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5659: THEN
5660: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5661: END IF;
5659: THEN
5660: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5661: END IF;
5662: Fnd_Msg_Pub.count_and_get (
5663: p_encoded => Fnd_Api.g_false,
5664: p_count => x_msg_count,
5665: p_data => x_msg_data
5666: );
5667: END Delete_Visit;
5671: --
5672: --------------------------------------------------------------------
5673: PROCEDURE Validate_Visit (
5674: p_api_version IN NUMBER,
5675: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5676: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5677: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5678: p_Visit_rec IN Visit_Rec_Type,
5679: x_return_status OUT NOCOPY VARCHAR2,
5672: --------------------------------------------------------------------
5673: PROCEDURE Validate_Visit (
5674: p_api_version IN NUMBER,
5675: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5676: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5677: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5678: p_Visit_rec IN Visit_Rec_Type,
5679: x_return_status OUT NOCOPY VARCHAR2,
5680: x_msg_count OUT NOCOPY NUMBER,
5673: PROCEDURE Validate_Visit (
5674: p_api_version IN NUMBER,
5675: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5676: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5677: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5678: p_Visit_rec IN Visit_Rec_Type,
5679: x_return_status OUT NOCOPY VARCHAR2,
5680: x_msg_count OUT NOCOPY NUMBER,
5681: x_msg_data OUT NOCOPY VARCHAR2
5731: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5732: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
5733: END IF;
5734:
5735: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
5736: Fnd_Msg_Pub.initialize;
5737: END IF;
5738:
5739: IF NOT Fnd_Api.compatible_api_call (
5735: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
5736: Fnd_Msg_Pub.initialize;
5737: END IF;
5738:
5739: IF NOT Fnd_Api.compatible_api_call (
5740: l_api_version,
5741: p_api_version,
5742: l_api_name,
5743: G_PKG_NAME
5741: p_api_version,
5742: l_api_name,
5743: G_PKG_NAME
5744: ) THEN
5745: RAISE Fnd_Api.g_exc_unexpected_error;
5746: END IF;
5747: x_return_status := Fnd_Api.g_ret_sts_success;
5748:
5749: ---------------------- validate ------------------------
5743: G_PKG_NAME
5744: ) THEN
5745: RAISE Fnd_Api.g_exc_unexpected_error;
5746: END IF;
5747: x_return_status := Fnd_Api.g_ret_sts_success;
5748:
5749: ---------------------- validate ------------------------
5750: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5751: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Calling Check_Visit_Items');
5772: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5773: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Check_Visit_Items - l_return_status : '||l_return_status);
5774: END IF;
5775:
5776: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5777: RAISE Fnd_Api.g_exc_unexpected_error;
5778: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
5779: RAISE Fnd_Api.g_exc_error;
5780: END IF;
5773: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Check_Visit_Items - l_return_status : '||l_return_status);
5774: END IF;
5775:
5776: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5777: RAISE Fnd_Api.g_exc_unexpected_error;
5778: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
5779: RAISE Fnd_Api.g_exc_error;
5780: END IF;
5781: END IF;
5774: END IF;
5775:
5776: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5777: RAISE Fnd_Api.g_exc_unexpected_error;
5778: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
5779: RAISE Fnd_Api.g_exc_error;
5780: END IF;
5781: END IF;
5782:
5775:
5776: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5777: RAISE Fnd_Api.g_exc_unexpected_error;
5778: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
5779: RAISE Fnd_Api.g_exc_error;
5780: END IF;
5781: END IF;
5782:
5783: /* MANESING::Component Maintenance Planning Project, 05-Jul-2011
5808:
5809: Validate_Component_Visit
5810: (
5811: p_api_version => 1.0,
5812: p_init_msg_list => FND_API.G_FALSE,
5813: p_commit => FND_API.G_FALSE,
5814: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5815: p_module_type => null,
5816: p_visit_rec => p_visit_rec,
5809: Validate_Component_Visit
5810: (
5811: p_api_version => 1.0,
5812: p_init_msg_list => FND_API.G_FALSE,
5813: p_commit => FND_API.G_FALSE,
5814: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5815: p_module_type => null,
5816: p_visit_rec => p_visit_rec,
5817: x_return_status => l_return_status,
5810: (
5811: p_api_version => 1.0,
5812: p_init_msg_list => FND_API.G_FALSE,
5813: p_commit => FND_API.G_FALSE,
5814: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5815: p_module_type => null,
5816: p_visit_rec => p_visit_rec,
5817: x_return_status => l_return_status,
5818: x_msg_count => l_msg_count,
5822: IF (l_log_statement >= l_log_current_level) THEN
5823: FND_LOG.string(l_log_statement, l_debug, ' After call to Validate_Component_Visit API, Return Status = ' || l_return_status);
5824: END IF;
5825:
5826: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5827: x_return_status := l_return_status;
5828: x_msg_count := l_msg_count;
5829: x_msg_data := l_msg_data;
5830:
5827: x_return_status := l_return_status;
5828: x_msg_count := l_msg_count;
5829: x_msg_data := l_msg_data;
5830:
5831: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
5832: RAISE FND_API.G_EXC_ERROR;
5833: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5835: END IF;
5828: x_msg_count := l_msg_count;
5829: x_msg_data := l_msg_data;
5830:
5831: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
5832: RAISE FND_API.G_EXC_ERROR;
5833: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5835: END IF;
5836: END IF;
5829: x_msg_data := l_msg_data;
5830:
5831: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
5832: RAISE FND_API.G_EXC_ERROR;
5833: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5835: END IF;
5836: END IF;
5837:
5830:
5831: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
5832: RAISE FND_API.G_EXC_ERROR;
5833: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5835: END IF;
5836: END IF;
5837:
5838: END IF; -- if p_visit_rec.status_code IN ('DRAFT', 'PLANNING')
5849: (p_visit_rec.plan_end_date BETWEEN comp_visit_rec.start_date_time AND comp_visit_rec.close_date_time) OR
5850: ((comp_visit_rec.start_date_time BETWEEN p_visit_rec.start_date AND p_visit_rec.plan_end_date) AND
5851: (comp_visit_rec.close_date_time BETWEEN p_visit_rec.start_date AND p_visit_rec.plan_end_date))) THEN
5852:
5853: l_return_status := FND_API.G_RET_STS_ERROR;
5854: --TCHIMIRA :: 10-JAN-2012 :: Include the visit start and end dates also in the error message
5855: IF (l_overlap_comp_visits IS NULL) THEN
5856: l_overlap_comp_visits := 'visit number ' || comp_visit_rec.visit_number || ' having start date '
5857: ||comp_visit_rec.start_date_time ||' and planned end date ' ||comp_visit_rec.close_date_time;
5863:
5864: END IF;
5865: END LOOP;
5866:
5867: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
5868: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_VWP_COMP_VST_EXISTS');
5869: FND_MESSAGE.set_token('VISIT_NUM', l_overlap_comp_visits);
5870: FND_MSG_PUB.add;
5871: RAISE FND_API.G_EXC_ERROR;
5867: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
5868: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_VWP_COMP_VST_EXISTS');
5869: FND_MESSAGE.set_token('VISIT_NUM', l_overlap_comp_visits);
5870: FND_MSG_PUB.add;
5871: RAISE FND_API.G_EXC_ERROR;
5872: END IF;
5873: END IF; -- if NVL(p_visit_rec.locked_flag, 'N') = 'N'
5874:
5875: ELSE
5882: END IF;
5883:
5884: -------------------- finish --------------------------
5885: Fnd_Msg_Pub.count_and_get (
5886: p_encoded => Fnd_Api.g_false,
5887: p_count => x_msg_count,
5888: p_data => x_msg_data
5889: );
5890:
5892: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
5893: END IF;
5894:
5895: EXCEPTION
5896: WHEN Fnd_Api.g_exc_error THEN
5897: x_return_status := Fnd_Api.g_ret_sts_error;
5898: Fnd_Msg_Pub.count_and_get (
5899: p_encoded => Fnd_Api.g_false,
5900: p_count => x_msg_count,
5893: END IF;
5894:
5895: EXCEPTION
5896: WHEN Fnd_Api.g_exc_error THEN
5897: x_return_status := Fnd_Api.g_ret_sts_error;
5898: Fnd_Msg_Pub.count_and_get (
5899: p_encoded => Fnd_Api.g_false,
5900: p_count => x_msg_count,
5901: p_data => x_msg_data
5895: EXCEPTION
5896: WHEN Fnd_Api.g_exc_error THEN
5897: x_return_status := Fnd_Api.g_ret_sts_error;
5898: Fnd_Msg_Pub.count_and_get (
5899: p_encoded => Fnd_Api.g_false,
5900: p_count => x_msg_count,
5901: p_data => x_msg_data
5902: );
5903: WHEN Fnd_Api.g_exc_unexpected_error THEN
5899: p_encoded => Fnd_Api.g_false,
5900: p_count => x_msg_count,
5901: p_data => x_msg_data
5902: );
5903: WHEN Fnd_Api.g_exc_unexpected_error THEN
5904: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5905: Fnd_Msg_Pub.count_and_get (
5906: p_encoded => Fnd_Api.g_false,
5907: p_count => x_msg_count,
5900: p_count => x_msg_count,
5901: p_data => x_msg_data
5902: );
5903: WHEN Fnd_Api.g_exc_unexpected_error THEN
5904: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5905: Fnd_Msg_Pub.count_and_get (
5906: p_encoded => Fnd_Api.g_false,
5907: p_count => x_msg_count,
5908: p_data => x_msg_data
5902: );
5903: WHEN Fnd_Api.g_exc_unexpected_error THEN
5904: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5905: Fnd_Msg_Pub.count_and_get (
5906: p_encoded => Fnd_Api.g_false,
5907: p_count => x_msg_count,
5908: p_data => x_msg_data
5909: );
5910: WHEN OTHERS THEN
5907: p_count => x_msg_count,
5908: p_data => x_msg_data
5909: );
5910: WHEN OTHERS THEN
5911: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
5912: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
5913: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5914: END IF;
5915: Fnd_Msg_Pub.count_and_get (
5912: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
5913: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5914: END IF;
5915: Fnd_Msg_Pub.count_and_get (
5916: p_encoded => Fnd_Api.g_false,
5917: p_count => x_msg_count,
5918: p_data => x_msg_data
5919: );
5920: END Validate_Visit;
5937:
5938: PROCEDURE Validate_Component_Visit
5939: (
5940: p_api_version IN NUMBER := 1.0,
5941: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5942: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5943: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5944: p_module_type IN VARCHAR2,
5945: p_visit_rec IN VISIT_REC_TYPE,
5938: PROCEDURE Validate_Component_Visit
5939: (
5940: p_api_version IN NUMBER := 1.0,
5941: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5942: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5943: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5944: p_module_type IN VARCHAR2,
5945: p_visit_rec IN VISIT_REC_TYPE,
5946: x_return_status OUT NOCOPY VARCHAR2,
5939: (
5940: p_api_version IN NUMBER := 1.0,
5941: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5942: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5943: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5944: p_module_type IN VARCHAR2,
5945: p_visit_rec IN VISIT_REC_TYPE,
5946: x_return_status OUT NOCOPY VARCHAR2,
5947: x_msg_count OUT NOCOPY NUMBER,
5961: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');
5962: END IF;
5963:
5964: -- Standard call to check for call compatibility
5965: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
5966: l_api_name, G_PKG_NAME) THEN
5967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5968: END IF;
5969:
5963:
5964: -- Standard call to check for call compatibility
5965: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
5966: l_api_name, G_PKG_NAME) THEN
5967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5968: END IF;
5969:
5970: -- Initialize message list if p_init_msg_list is set to TRUE
5971: IF FND_API.to_boolean(p_init_msg_list) THEN
5967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5968: END IF;
5969:
5970: -- Initialize message list if p_init_msg_list is set to TRUE
5971: IF FND_API.to_boolean(p_init_msg_list) THEN
5972: FND_MSG_PUB.initialize;
5973: END IF;
5974:
5975: -- Initialize Procedure return status to success
5972: FND_MSG_PUB.initialize;
5973: END IF;
5974:
5975: -- Initialize Procedure return status to success
5976: x_return_status := FND_API.G_RET_STS_SUCCESS;
5977: l_msg_count := FND_MSG_PUB.count_msg;
5978:
5979: IF (l_log_statement >= l_log_current_level) THEN
5980: FND_LOG.string(l_log_statement, l_full_name, ' visit_id = ' || p_visit_rec.visit_id);
6039: IF (FND_MSG_PUB.count_msg > l_msg_count) THEN
6040: IF (l_log_statement >= l_log_current_level) THEN
6041: FND_LOG.string(l_log_statement, l_full_name, ' Some validations in Validate_Component_Visit API failed.');
6042: END IF;
6043: RAISE FND_API.G_EXC_ERROR;
6044: END IF;
6045:
6046: IF (l_log_procedure >= l_log_current_level) THEN
6047: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'At the end of the API');
6047: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'At the end of the API');
6048: END IF;
6049:
6050: EXCEPTION
6051: WHEN FND_API.G_EXC_ERROR THEN
6052: x_return_status := FND_API.G_RET_STS_ERROR;
6053: FND_MSG_PUB.count_and_get(p_encoded => FND_API.G_FALSE,
6054: p_count => x_msg_count,
6055: p_data => x_msg_data);
6048: END IF;
6049:
6050: EXCEPTION
6051: WHEN FND_API.G_EXC_ERROR THEN
6052: x_return_status := FND_API.G_RET_STS_ERROR;
6053: FND_MSG_PUB.count_and_get(p_encoded => FND_API.G_FALSE,
6054: p_count => x_msg_count,
6055: p_data => x_msg_data);
6056:
6049:
6050: EXCEPTION
6051: WHEN FND_API.G_EXC_ERROR THEN
6052: x_return_status := FND_API.G_RET_STS_ERROR;
6053: FND_MSG_PUB.count_and_get(p_encoded => FND_API.G_FALSE,
6054: p_count => x_msg_count,
6055: p_data => x_msg_data);
6056:
6057: IF (l_log_statement >= l_log_current_level) THEN
6057: IF (l_log_statement >= l_log_current_level) THEN
6058: FND_LOG.string(l_log_statement, l_full_name, ' Expected Exception: ' || x_msg_data);
6059: END IF;
6060:
6061: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6063: FND_MSG_PUB.count_and_get(p_encoded => FND_API.G_FALSE,
6064: p_count => x_msg_count,
6065: p_data => x_msg_data);
6058: FND_LOG.string(l_log_statement, l_full_name, ' Expected Exception: ' || x_msg_data);
6059: END IF;
6060:
6061: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6063: FND_MSG_PUB.count_and_get(p_encoded => FND_API.G_FALSE,
6064: p_count => x_msg_count,
6065: p_data => x_msg_data);
6066:
6059: END IF;
6060:
6061: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6063: FND_MSG_PUB.count_and_get(p_encoded => FND_API.G_FALSE,
6064: p_count => x_msg_count,
6065: p_data => x_msg_data);
6066:
6067: IF (l_log_statement >= l_log_current_level) THEN
6068: FND_LOG.string(l_log_statement, l_full_name, ' Unexpected Exception: ' || x_msg_data);
6069: END IF;
6070:
6071: WHEN OTHERS THEN
6072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6073:
6074: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6075: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
6076: p_procedure_name => l_api_name,
6075: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
6076: p_procedure_name => l_api_name,
6077: p_error_text => SUBSTRB(SQLERRM, 1, 240));
6078: END IF;
6079: FND_MSG_PUB.count_and_get(p_encoded => FND_API.G_FALSE,
6080: p_count => x_msg_count,
6081: p_data => x_msg_data);
6082:
6083: IF (l_log_statement >= l_log_current_level) THEN
6104: p_Visit_rec => p_Visit_rec,
6105: x_return_status => x_return_status
6106: );
6107:
6108: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
6109: RETURN;
6110: END IF;
6111:
6112: -- Validate uniqueness.
6115: p_validation_mode => p_validation_mode,
6116: x_return_status => x_return_status
6117: );
6118:
6119: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
6120: RETURN;
6121: END IF;
6122:
6123: END Check_Visit_Items;
6134: BEGIN
6135: -- Post 11.5.10 Enhancements
6136: -- Only visit name is mandatory on create/update visit pages
6137: -- VISIT NAME
6138: IF (p_Visit_rec.visit_name IS NULL OR p_Visit_rec.visit_name = Fnd_Api.G_MISS_CHAR) THEN
6139: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6140: Fnd_Message.set_name ('AHL', 'AHL_VWP_VST_NAME_MISSING');
6141: Fnd_Msg_Pub.ADD;
6142: END IF;
6139: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6140: Fnd_Message.set_name ('AHL', 'AHL_VWP_VST_NAME_MISSING');
6141: Fnd_Msg_Pub.ADD;
6142: END IF;
6143: x_return_status := Fnd_Api.g_ret_sts_error;
6144: RETURN;
6145: END IF;
6146:
6147: /* -- VISIT TYPE ==== VISIT_TYPE_CODE
6144: RETURN;
6145: END IF;
6146:
6147: /* -- VISIT TYPE ==== VISIT_TYPE_CODE
6148: IF (p_Visit_rec.visit_type_code IS NULL OR p_Visit_rec.visit_type_code = Fnd_Api.G_MISS_CHAR)THEN
6149: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6150: Fnd_Message.set_name ('AHL', 'AHL_VWP_TYPE_MISSING');
6151: Fnd_Msg_Pub.ADD;
6152: END IF;
6149: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6150: Fnd_Message.set_name ('AHL', 'AHL_VWP_TYPE_MISSING');
6151: Fnd_Msg_Pub.ADD;
6152: END IF;
6153: x_return_status := Fnd_Api.g_ret_sts_error;
6154: RETURN;
6155: END IF;
6156: */
6157: /* IF p_Visit_rec.VISIT_ID IS NULL THEN
6155: END IF;
6156: */
6157: /* IF p_Visit_rec.VISIT_ID IS NULL THEN
6158: -- ITEM ==== INVENTORY_ITEM_ID
6159: IF (p_Visit_rec.ITEM_NAME IS NULL OR p_Visit_rec.ITEM_NAME = Fnd_Api.G_MISS_CHAR) THEN
6160: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6161: Fnd_Message.set_name ('AHL', 'AHL_VWP_ITEM_MISSING');
6162: Fnd_Msg_Pub.ADD;
6163: END IF;
6160: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6161: Fnd_Message.set_name ('AHL', 'AHL_VWP_ITEM_MISSING');
6162: Fnd_Msg_Pub.ADD;
6163: END IF;
6164: x_return_status := Fnd_Api.g_ret_sts_error;
6165: RETURN;
6166: END IF;
6167: */
6168: /* -- SERIAL NUMBER ==== ITEM_INSTANCE_ID
6165: RETURN;
6166: END IF;
6167: */
6168: /* -- SERIAL NUMBER ==== ITEM_INSTANCE_ID
6169: IF (p_Visit_rec.SERIAL_NUMBER IS NULL OR p_Visit_rec.SERIAL_NUMBER = Fnd_Api.G_MISS_CHAR) THEN
6170:
6171: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6172: Fnd_Message.set_name ('AHL', 'AHL_VWP_SERIAL_MISSING');
6173: Fnd_Msg_Pub.ADD;
6171: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6172: Fnd_Message.set_name ('AHL', 'AHL_VWP_SERIAL_MISSING');
6173: Fnd_Msg_Pub.ADD;
6174: END IF;
6175: x_return_status := Fnd_Api.g_ret_sts_error;
6176: RETURN;
6177: END IF;
6178:
6179: END IF;
6192: )
6193: IS
6194: l_valid_flag VARCHAR2(1);
6195: BEGIN
6196: x_return_status := Fnd_Api.g_ret_sts_success;
6197: --
6198: -- For Create_Visit, when ID is passed in, we need to
6199: -- check if this ID is unique.
6200: IF UPPER(p_Visit_rec.operation_flag) <> 'C' THEN
6204:
6205: IF Ahl_Utility_Pvt.check_uniqueness(
6206: 'Ahl_Visits_VL',
6207: 'VISIT_ID = ' || p_Visit_rec.VISIT_ID
6208: ) = Fnd_Api.g_false THEN
6209:
6210: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6211: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLICATE_VISIT_ID');
6212: Fnd_Msg_Pub.ADD;
6210: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6211: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLICATE_VISIT_ID');
6212: Fnd_Msg_Pub.ADD;
6213: END IF;
6214: x_return_status := Fnd_Api.g_ret_sts_error;
6215: RETURN;
6216:
6217: END IF;
6218: END IF;
6235: );
6236: END IF;
6237: END IF;
6238:
6239: IF l_valid_flag = Fnd_Api.g_false THEN
6240: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6241: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLI_VISIT_NUMBER');
6242: Fnd_Msg_Pub.ADD;
6243: END IF;
6240: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6241: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLI_VISIT_NUMBER');
6242: Fnd_Msg_Pub.ADD;
6243: END IF;
6244: x_return_status := Fnd_Api.g_ret_sts_error;
6245: RETURN;
6246: END IF;
6247: END Check_Visit_UK_Items;
6248:
6255: -- To check all validations before changing status of a Visit to Close
6256: --------------------------------------------------------------------
6257: PROCEDURE Close_Visit(
6258: p_api_version IN NUMBER,
6259: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6260: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6261: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6262: p_module_type IN VARCHAR2 := Null,
6263: p_visit_id IN NUMBER,
6256: --------------------------------------------------------------------
6257: PROCEDURE Close_Visit(
6258: p_api_version IN NUMBER,
6259: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6260: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6261: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6262: p_module_type IN VARCHAR2 := Null,
6263: p_visit_id IN NUMBER,
6264: p_x_cost_session_id IN OUT NOCOPY NUMBER,
6257: PROCEDURE Close_Visit(
6258: p_api_version IN NUMBER,
6259: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6260: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6261: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6262: p_module_type IN VARCHAR2 := Null,
6263: p_visit_id IN NUMBER,
6264: p_x_cost_session_id IN OUT NOCOPY NUMBER,
6265: p_x_mr_session_id IN OUT NOCOPY NUMBER,
6388: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure : Visit Id = ' || p_visit_id);
6389: END IF;
6390:
6391: -- Initialize message list if p_init_msg_list is set to TRUE.
6392: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
6393: Fnd_Msg_Pub.initialize;
6394: END IF;
6395:
6396: -- Initialize API return status to success
6393: Fnd_Msg_Pub.initialize;
6394: END IF;
6395:
6396: -- Initialize API return status to success
6397: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6398:
6399: -- Standard call to check for call compatibility.
6400: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
6401: p_api_version,
6396: -- Initialize API return status to success
6397: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6398:
6399: -- Standard call to check for call compatibility.
6400: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
6401: p_api_version,
6402: l_api_name,G_PKG_NAME) THEN
6403: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6404: END IF;
6399: -- Standard call to check for call compatibility.
6400: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
6401: p_api_version,
6402: l_api_name,G_PKG_NAME) THEN
6403: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6404: END IF;
6405:
6406: ------------------------Start of API Body------------------------------------
6407: OPEN c_visit (p_visit_id);
6414: item_instance_id => c_visit_rec.Item_Instance_Id);
6415: -- Check Error Message stack.
6416: l_msg_count := FND_MSG_PUB.count_msg;
6417: IF l_msg_count > 0 THEN
6418: x_return_status := FND_API.G_RET_STS_ERROR;
6419: RAISE FND_API.G_EXC_ERROR;
6420: END IF;
6421:
6422: /* MANESING::Component Maintenance Planning Project, 05-Jul-2011
6415: -- Check Error Message stack.
6416: l_msg_count := FND_MSG_PUB.count_msg;
6417: IF l_msg_count > 0 THEN
6418: x_return_status := FND_API.G_RET_STS_ERROR;
6419: RAISE FND_API.G_EXC_ERROR;
6420: END IF;
6421:
6422: /* MANESING::Component Maintenance Planning Project, 05-Jul-2011
6423: * Default Stage task and hence workorder won't exist for the Component Visit.
6435: END IF;
6436:
6437: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
6438: (p_api_version => 1.0,
6439: p_init_msg_list => FND_API.G_FALSE,
6440: p_commit => FND_API.G_FALSE,
6441: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6442: p_default => FND_API.G_FALSE,
6443: p_module_type => NULL,
6436:
6437: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
6438: (p_api_version => 1.0,
6439: p_init_msg_list => FND_API.G_FALSE,
6440: p_commit => FND_API.G_FALSE,
6441: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6442: p_default => FND_API.G_FALSE,
6443: p_module_type => NULL,
6444: x_return_status => l_return_status,
6437: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
6438: (p_api_version => 1.0,
6439: p_init_msg_list => FND_API.G_FALSE,
6440: p_commit => FND_API.G_FALSE,
6441: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6442: p_default => FND_API.G_FALSE,
6443: p_module_type => NULL,
6444: x_return_status => l_return_status,
6445: x_msg_count => l_msg_count,
6438: (p_api_version => 1.0,
6439: p_init_msg_list => FND_API.G_FALSE,
6440: p_commit => FND_API.G_FALSE,
6441: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6442: p_default => FND_API.G_FALSE,
6443: p_module_type => NULL,
6444: x_return_status => l_return_status,
6445: x_msg_count => l_msg_count,
6446: x_msg_data => l_msg_data,
6451: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6452: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
6453: END IF;
6454:
6455: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6456: x_msg_count := l_msg_count;
6457: x_return_status := l_return_status;
6458: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
6459: RAISE Fnd_Api.g_exc_error;
6454:
6455: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6456: x_msg_count := l_msg_count;
6457: x_return_status := l_return_status;
6458: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
6459: RAISE Fnd_Api.g_exc_error;
6460: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
6461: RAISE Fnd_Api.g_exc_unexpected_error;
6462: END IF;
6455: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6456: x_msg_count := l_msg_count;
6457: x_return_status := l_return_status;
6458: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
6459: RAISE Fnd_Api.g_exc_error;
6460: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
6461: RAISE Fnd_Api.g_exc_unexpected_error;
6462: END IF;
6463: END IF;
6456: x_msg_count := l_msg_count;
6457: x_return_status := l_return_status;
6458: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
6459: RAISE Fnd_Api.g_exc_error;
6460: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
6461: RAISE Fnd_Api.g_exc_unexpected_error;
6462: END IF;
6463: END IF;
6464: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: END
6457: x_return_status := l_return_status;
6458: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
6459: RAISE Fnd_Api.g_exc_error;
6460: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
6461: RAISE Fnd_Api.g_exc_unexpected_error;
6462: END IF;
6463: END IF;
6464: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: END
6465: END IF; -- if AHL_CMP_UTIL_PKG.Is_Comp_Visit (p_visit_id) = 'N'
6474: l_chk_flag := 'N';
6475: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_JOB_STATUS');
6476: Fnd_Msg_Pub.ADD;
6477: CLOSE get_open_job_task_csr;
6478: RAISE Fnd_Api.g_exc_error;
6479: END IF;
6480: CLOSE get_open_job_task_csr;
6481:
6482: --2) Check that the corresponding UE records are in
6487: l_chk_flag :='N';
6488: Fnd_Message.SET_NAME('AHL','AHL_VWP_UE_CLOSE_INV');
6489: Fnd_Msg_Pub.ADD;
6490: CLOSE get_ue_tasks_csr;
6491: RAISE Fnd_Api.g_exc_error;
6492: END IF;
6493: CLOSE get_ue_tasks_csr;
6494:
6495: --Modified by srini Sep 24/2003
6507: --Call ahl_vwp_cost_pvt.calculate_wo_cost
6508: AHL_VWP_COST_PVT.Calculate_WO_Cost(
6509: p_api_version => p_api_version,
6510: p_init_msg_list => p_init_msg_list,
6511: p_commit => Fnd_Api.g_false,
6512: p_validation_level => p_validation_level,
6513: p_x_cost_price_rec => l_cost_price_rec,
6514: x_return_status => l_return_status);
6515:
6519:
6520: -- Check Error Message stack.
6521: l_msg_count := FND_MSG_PUB.count_msg;
6522: IF l_msg_count > 0 THEN
6523: x_return_status := FND_API.G_RET_STS_ERROR;
6524: RAISE FND_API.G_EXC_ERROR;
6525: END IF;
6526:
6527: --Assign to out paramenter if null
6520: -- Check Error Message stack.
6521: l_msg_count := FND_MSG_PUB.count_msg;
6522: IF l_msg_count > 0 THEN
6523: x_return_status := FND_API.G_RET_STS_ERROR;
6524: RAISE FND_API.G_EXC_ERROR;
6525: END IF;
6526:
6527: --Assign to out paramenter if null
6528: p_x_cost_session_id := l_cost_price_rec.cost_session_id;
6569:
6570: -- Check Error Message stack.
6571: l_msg_count := FND_MSG_PUB.count_msg;
6572: IF l_msg_count > 0 THEN
6573: x_return_status := FND_API.G_RET_STS_ERROR;
6574: RAISE FND_API.G_EXC_ERROR;
6575: END IF;
6576:
6577: --Check for summary tasks without mr
6570: -- Check Error Message stack.
6571: l_msg_count := FND_MSG_PUB.count_msg;
6572: IF l_msg_count > 0 THEN
6573: x_return_status := FND_API.G_RET_STS_ERROR;
6574: RAISE FND_API.G_EXC_ERROR;
6575: END IF;
6576:
6577: --Check for summary tasks without mr
6578: OPEN c_summ_task(c_visit_rec.visit_id);
6613: /* Call Update_Project procedure to update project status to CLOSED
6614: AHL_VWP_PROJ_PROD_PVT.Update_Project (
6615: p_api_version => p_api_version,
6616: p_init_msg_list => p_init_msg_list,
6617: p_commit => Fnd_Api.g_false,
6618: p_validation_level => p_validation_level,
6619: p_module_type => p_module_type,
6620: p_visit_id => p_visit_id,
6621: x_return_status => x_return_status,
6636: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6637: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_COMPLETIONS_PVT.complete_master_wo');
6638: END IF;
6639:
6640: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6641: -- Check Error Message stack.
6642: x_msg_count := FND_MSG_PUB.count_msg;
6643: RAISE Fnd_Api.g_exc_error;
6644: END IF;
6639:
6640: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6641: -- Check Error Message stack.
6642: x_msg_count := FND_MSG_PUB.count_msg;
6643: RAISE Fnd_Api.g_exc_error;
6644: END IF;
6645: -- yazhou 28Sept2005 ends
6646:
6647: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6688: END IF;
6689:
6690: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
6691: p_api_version => 1.0,
6692: p_init_msg_list => FND_API.g_false,
6693: p_commit => FND_API.g_false,
6694: p_validation_level => FND_API.g_valid_level_full,
6695: p_visit_id => p_visit_id,
6696: p_visit_task_id => NULL,
6689:
6690: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
6691: p_api_version => 1.0,
6692: p_init_msg_list => FND_API.g_false,
6693: p_commit => FND_API.g_false,
6694: p_validation_level => FND_API.g_valid_level_full,
6695: p_visit_id => p_visit_id,
6696: p_visit_task_id => NULL,
6697: p_org_id => NULL,
6690: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
6691: p_api_version => 1.0,
6692: p_init_msg_list => FND_API.g_false,
6693: p_commit => FND_API.g_false,
6694: p_validation_level => FND_API.g_valid_level_full,
6695: p_visit_id => p_visit_id,
6696: p_visit_task_id => NULL,
6697: p_org_id => NULL,
6698: p_start_date => NULL,
6709:
6710: l_msg_count := FND_MSG_PUB.count_msg;
6711: IF l_msg_count > 0 THEN
6712: X_msg_count := l_msg_count;
6713: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6714: RAISE FND_API.G_EXC_ERROR;
6715: END IF;
6716:
6717: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6710: l_msg_count := FND_MSG_PUB.count_msg;
6711: IF l_msg_count > 0 THEN
6712: X_msg_count := l_msg_count;
6713: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6714: RAISE FND_API.G_EXC_ERROR;
6715: END IF;
6716:
6717: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6718: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_planned_order_flag - '||l_planned_order_flag);
6721: END IF;
6722: ELSE
6723: Fnd_Message.SET_NAME('AHL','AHL_VWP_STATUS_NOT_RELEASED');
6724: Fnd_Msg_Pub.ADD;
6725: RAISE Fnd_Api.g_exc_error;
6726: END IF;
6727:
6728: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6729: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Session ID: ' || p_x_cost_session_id);
6731: END IF;
6732: ---------------------------End of API Body-------------------------------------
6733:
6734: -- Standard check of p_commit.
6735: IF Fnd_Api.To_Boolean ( p_commit ) THEN
6736: COMMIT WORK;
6737: END IF;
6738:
6739: Fnd_Msg_Pub.count_and_get(
6736: COMMIT WORK;
6737: END IF;
6738:
6739: Fnd_Msg_Pub.count_and_get(
6740: p_encoded => Fnd_Api.g_false,
6741: p_count => x_msg_count,
6742: p_data => x_msg_data);
6743:
6744: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
6744: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
6745: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
6746: END IF;
6747: EXCEPTION
6748: WHEN Fnd_Api.g_exc_error THEN
6749: ROLLBACK TO Close_Visit;
6750: x_return_status := Fnd_Api.g_ret_sts_error;
6751: Fnd_Msg_Pub.count_and_get (
6752: p_encoded => Fnd_Api.g_false,
6746: END IF;
6747: EXCEPTION
6748: WHEN Fnd_Api.g_exc_error THEN
6749: ROLLBACK TO Close_Visit;
6750: x_return_status := Fnd_Api.g_ret_sts_error;
6751: Fnd_Msg_Pub.count_and_get (
6752: p_encoded => Fnd_Api.g_false,
6753: p_count => x_msg_count,
6754: p_data => x_msg_data
6748: WHEN Fnd_Api.g_exc_error THEN
6749: ROLLBACK TO Close_Visit;
6750: x_return_status := Fnd_Api.g_ret_sts_error;
6751: Fnd_Msg_Pub.count_and_get (
6752: p_encoded => Fnd_Api.g_false,
6753: p_count => x_msg_count,
6754: p_data => x_msg_data
6755: );
6756: WHEN Fnd_Api.g_exc_unexpected_error THEN
6752: p_encoded => Fnd_Api.g_false,
6753: p_count => x_msg_count,
6754: p_data => x_msg_data
6755: );
6756: WHEN Fnd_Api.g_exc_unexpected_error THEN
6757: ROLLBACK TO Close_Visit;
6758: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6759: Fnd_Msg_Pub.count_and_get (
6760: p_encoded => Fnd_Api.g_false,
6754: p_data => x_msg_data
6755: );
6756: WHEN Fnd_Api.g_exc_unexpected_error THEN
6757: ROLLBACK TO Close_Visit;
6758: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6759: Fnd_Msg_Pub.count_and_get (
6760: p_encoded => Fnd_Api.g_false,
6761: p_count => x_msg_count,
6762: p_data => x_msg_data
6756: WHEN Fnd_Api.g_exc_unexpected_error THEN
6757: ROLLBACK TO Close_Visit;
6758: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6759: Fnd_Msg_Pub.count_and_get (
6760: p_encoded => Fnd_Api.g_false,
6761: p_count => x_msg_count,
6762: p_data => x_msg_data
6763: );
6764: WHEN OTHERS THEN
6762: p_data => x_msg_data
6763: );
6764: WHEN OTHERS THEN
6765: ROLLBACK TO Close_Visit;
6766: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6767: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6768: THEN
6769: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6770: END IF;
6768: THEN
6769: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6770: END IF;
6771: Fnd_Msg_Pub.count_and_get (
6772: p_encoded => Fnd_Api.g_false,
6773: p_count => x_msg_count,
6774: p_data => x_msg_data
6775: );
6776: END Close_Visit;
6787: -- To check all validations before changing status of a Visit to Cancel
6788: --------------------------------------------------------------------
6789: PROCEDURE Cancel_Visit(
6790: p_api_version IN NUMBER := 1.0,
6791: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6792: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6793: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6794: p_module_type IN VARCHAR2 := Null,
6795: p_visit_id IN NUMBER,
6788: --------------------------------------------------------------------
6789: PROCEDURE Cancel_Visit(
6790: p_api_version IN NUMBER := 1.0,
6791: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6792: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6793: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6794: p_module_type IN VARCHAR2 := Null,
6795: p_visit_id IN NUMBER,
6796: p_obj_ver_num IN NUMBER,
6789: PROCEDURE Cancel_Visit(
6790: p_api_version IN NUMBER := 1.0,
6791: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6792: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6793: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6794: p_module_type IN VARCHAR2 := Null,
6795: p_visit_id IN NUMBER,
6796: p_obj_ver_num IN NUMBER,
6797: x_return_status OUT NOCOPY VARCHAR2,
6908: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure : Visit Id = ' || p_visit_id);
6909: END IF;
6910:
6911: -- Initialize message list if p_init_msg_list is set to TRUE.
6912: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
6913: Fnd_Msg_Pub.initialize;
6914: END IF;
6915:
6916: -- Initialize API return status to success
6913: Fnd_Msg_Pub.initialize;
6914: END IF;
6915:
6916: -- Initialize API return status to success
6917: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6918:
6919: -- Standard call to check for call compatibility.
6920: IF NOT Fnd_Api.COMPATIBLE_API_CALL( l_api_version,
6921: p_api_version,
6916: -- Initialize API return status to success
6917: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6918:
6919: -- Standard call to check for call compatibility.
6920: IF NOT Fnd_Api.COMPATIBLE_API_CALL( l_api_version,
6921: p_api_version,
6922: l_api_name,G_PKG_NAME) THEN
6923: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6924: END IF;
6919: -- Standard call to check for call compatibility.
6920: IF NOT Fnd_Api.COMPATIBLE_API_CALL( l_api_version,
6921: p_api_version,
6922: l_api_name,G_PKG_NAME) THEN
6923: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6924: END IF;
6925:
6926: ---------------------------Start of API Body-------------------------------------
6927: OPEN c_visit(p_visit_id);
6930:
6931: IF c_visit_rec.OBJECT_VERSION_NUMBER <> p_obj_ver_num THEN
6932: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
6933: Fnd_Msg_Pub.ADD;
6934: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6935: END IF;
6936:
6937: -- Changed by jaramana on 05-NOV-2009
6938: -- Removed the validations added for the bug 9087120
6946: -- Call Cancel_Visit_Jobs API
6947: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
6948: (p_api_version => 1.0,
6949: -- SKPATHAK :: Bug 9115894 :: 20-NOV-2009 :: pass p_init_msg_list as false not true
6950: p_init_msg_list => FND_API.G_FALSE,
6951: p_commit => FND_API.G_FALSE,
6952: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6953: -- SKPATHAK :: Bug 9115894 :: 20-NOV-2009 :: pass p_default as true not false
6954: p_default => FND_API.G_TRUE,
6947: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
6948: (p_api_version => 1.0,
6949: -- SKPATHAK :: Bug 9115894 :: 20-NOV-2009 :: pass p_init_msg_list as false not true
6950: p_init_msg_list => FND_API.G_FALSE,
6951: p_commit => FND_API.G_FALSE,
6952: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6953: -- SKPATHAK :: Bug 9115894 :: 20-NOV-2009 :: pass p_default as true not false
6954: p_default => FND_API.G_TRUE,
6955: p_module_type => NULL,
6948: (p_api_version => 1.0,
6949: -- SKPATHAK :: Bug 9115894 :: 20-NOV-2009 :: pass p_init_msg_list as false not true
6950: p_init_msg_list => FND_API.G_FALSE,
6951: p_commit => FND_API.G_FALSE,
6952: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6953: -- SKPATHAK :: Bug 9115894 :: 20-NOV-2009 :: pass p_default as true not false
6954: p_default => FND_API.G_TRUE,
6955: p_module_type => NULL,
6956: x_return_status => l_return_status,
6950: p_init_msg_list => FND_API.G_FALSE,
6951: p_commit => FND_API.G_FALSE,
6952: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6953: -- SKPATHAK :: Bug 9115894 :: 20-NOV-2009 :: pass p_default as true not false
6954: p_default => FND_API.G_TRUE,
6955: p_module_type => NULL,
6956: x_return_status => l_return_status,
6957: x_msg_count => l_msg_count,
6958: x_msg_data => l_msg_data,
6969: RAISE G_VALIDATION_EXCEPTION;
6970: END IF;
6971:
6972: -- Check return status.
6973: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6974: RAISE FND_API.G_EXC_ERROR;
6975: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6977: END IF;
6970: END IF;
6971:
6972: -- Check return status.
6973: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6974: RAISE FND_API.G_EXC_ERROR;
6975: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6977: END IF;
6978:
6971:
6972: -- Check return status.
6973: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6974: RAISE FND_API.G_EXC_ERROR;
6975: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6977: END IF;
6978:
6979: -- SKPATHAK :: Bug 9096318 :: 09-NOV-2009
6972: -- Check return status.
6973: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6974: RAISE FND_API.G_EXC_ERROR;
6975: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6977: END IF;
6978:
6979: -- SKPATHAK :: Bug 9096318 :: 09-NOV-2009
6980: -- Store all the fetched UE IDs in the table l_ue_id_inst_tbl
6993: END IF;
6994: AHL_UMP_UNPLANNED_PVT.DELETE_UNIT_EFFECTIVITY
6995: (
6996: p_api_version => 1.0,
6997: p_init_msg_list => FND_API.G_FALSE,
6998: p_commit => FND_API.G_FALSE,
6999: x_return_status => l_return_status,
7000: x_msg_count => l_msg_count,
7001: x_msg_data => x_msg_data,
6994: AHL_UMP_UNPLANNED_PVT.DELETE_UNIT_EFFECTIVITY
6995: (
6996: p_api_version => 1.0,
6997: p_init_msg_list => FND_API.G_FALSE,
6998: p_commit => FND_API.G_FALSE,
6999: x_return_status => l_return_status,
7000: x_msg_count => l_msg_count,
7001: x_msg_data => x_msg_data,
7002: p_unit_effectivity_id => l_ue_id
7003: );
7004: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7005: fnd_log.string(fnd_log.level_statement, L_DEBUG, 'Returned from AHL_UMP_UNPLANNED_PVT.DELETE_UNIT_EFFECTIVITY, l_return_status = ' || l_return_status);
7006: END IF;
7007: IF ((l_msg_count > 0) OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
7008: CLOSE c_unplanned_task_UEs;
7009: RAISE FND_API.G_EXC_ERROR;
7010: END IF;
7011: END LOOP;
7005: fnd_log.string(fnd_log.level_statement, L_DEBUG, 'Returned from AHL_UMP_UNPLANNED_PVT.DELETE_UNIT_EFFECTIVITY, l_return_status = ' || l_return_status);
7006: END IF;
7007: IF ((l_msg_count > 0) OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
7008: CLOSE c_unplanned_task_UEs;
7009: RAISE FND_API.G_EXC_ERROR;
7010: END IF;
7011: END LOOP;
7012: CLOSE c_unplanned_task_UEs;
7013:
7035:
7036: -- Call AHL_LTP_REQST_MATRL_PVT.Process_Planned_Material
7037: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
7038: (p_api_version => 1.0,
7039: p_init_msg_list => FND_API.g_false,
7040: p_commit => FND_API.g_false,
7041: p_validation_level => FND_API.g_valid_level_full,
7042: p_visit_id => p_visit_id,
7043: p_visit_task_id => NULL,
7036: -- Call AHL_LTP_REQST_MATRL_PVT.Process_Planned_Material
7037: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
7038: (p_api_version => 1.0,
7039: p_init_msg_list => FND_API.g_false,
7040: p_commit => FND_API.g_false,
7041: p_validation_level => FND_API.g_valid_level_full,
7042: p_visit_id => p_visit_id,
7043: p_visit_task_id => NULL,
7044: p_org_id => NULL,
7037: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
7038: (p_api_version => 1.0,
7039: p_init_msg_list => FND_API.g_false,
7040: p_commit => FND_API.g_false,
7041: p_validation_level => FND_API.g_valid_level_full,
7042: p_visit_id => p_visit_id,
7043: p_visit_task_id => NULL,
7044: p_org_id => NULL,
7045: p_start_date => NULL,
7054: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials - l_return_status : '||l_return_status);
7055: END IF;
7056:
7057: -- Check return status.
7058: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7059: RAISE FND_API.G_EXC_ERROR;
7060: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7062: END IF;
7055: END IF;
7056:
7057: -- Check return status.
7058: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7059: RAISE FND_API.G_EXC_ERROR;
7060: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7062: END IF;
7063:
7056:
7057: -- Check return status.
7058: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7059: RAISE FND_API.G_EXC_ERROR;
7060: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7062: END IF;
7063:
7064: -- update task status
7057: -- Check return status.
7058: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7059: RAISE FND_API.G_EXC_ERROR;
7060: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7062: END IF;
7063:
7064: -- update task status
7065: OPEN c_task(p_visit_id);
7107:
7108: AHL_VWP_PROJ_PROD_PVT.Update_Project(
7109: p_api_version => p_api_version,
7110: p_init_msg_list => p_init_msg_list,
7111: p_commit => Fnd_Api.g_false,
7112: p_validation_level => p_validation_level,
7113: p_module_type => p_module_type,
7114: p_visit_id => p_visit_id,
7115: x_return_status => x_return_status,
7120: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7121: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_PROJ_PROD_PVT.Update_Project - x_return_status : '||x_return_status);
7122: END IF;
7123:
7124: IF NVL(x_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
7125: -- Method call was not successful, raise error
7126: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_UPDATE_FAILED'); -- Failed to update job
7127: Fnd_Msg_Pub.ADD;
7128: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
7128: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
7129: fnd_log.string( fnd_log.level_error,'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
7130: 'Cant update the project to Rejected status');
7131: END IF;
7132: RAISE Fnd_Api.G_EXC_ERROR;
7133: END IF;
7134: END IF;
7135:
7136: -- transit check change
7157: -- Pass p_status_id as 1 (OPEN)
7158: CS_ServiceRequest_PUB.Update_Status
7159: ( p_api_version => 2.0,
7160: p_init_msg_list => p_init_msg_list,
7161: p_commit => FND_API.G_FALSE,
7162: p_resp_appl_id => NULL,
7163: p_resp_id => NULL,
7164: p_user_id => NULL,
7165: p_login_id => NULL,
7165: p_login_id => NULL,
7166: p_status_id => 1,
7167: p_closed_date => NULL,
7168: p_audit_comments => NULL,
7169: p_called_by_workflow => FND_API.G_FALSE,
7170: p_workflow_process_id => NULL,
7171: p_comments => NULL,
7172: p_public_comment_flag => FND_API.G_FALSE,
7173: p_validate_sr_closure => 'N',
7168: p_audit_comments => NULL,
7169: p_called_by_workflow => FND_API.G_FALSE,
7170: p_workflow_process_id => NULL,
7171: p_comments => NULL,
7172: p_public_comment_flag => FND_API.G_FALSE,
7173: p_validate_sr_closure => 'N',
7174: p_auto_close_child_entities => 'N',
7175: p_request_id => NULL,
7176: p_request_number => c_sr_ovn_rec.incident_number,
7186: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling CS_ServiceRequest_PUB.Update_Status - l_return_status : '||l_return_status);
7187: END IF;
7188: -- yazhou 29-Jun-2006 ends
7189: -- Check return status.
7190: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7191: CLOSE c_check_SR;
7192: CLOSE c_service_request;
7193: RAISE FND_API.G_EXC_ERROR;
7194: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7189: -- Check return status.
7190: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7191: CLOSE c_check_SR;
7192: CLOSE c_service_request;
7193: RAISE FND_API.G_EXC_ERROR;
7194: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7195: CLOSE c_check_SR;
7196: CLOSE c_service_request;
7197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7190: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7191: CLOSE c_check_SR;
7192: CLOSE c_service_request;
7193: RAISE FND_API.G_EXC_ERROR;
7194: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7195: CLOSE c_check_SR;
7196: CLOSE c_service_request;
7197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7198: END IF;
7193: RAISE FND_API.G_EXC_ERROR;
7194: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7195: CLOSE c_check_SR;
7196: CLOSE c_service_request;
7197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7198: END IF;
7199: END IF;
7200: CLOSE c_check_SR;
7201: END LOOP;
7204:
7205: ---------------------------End of API Body-------------------------------------
7206: -- Standard check of p_commit.
7207:
7208: IF Fnd_Api.To_Boolean ( p_commit ) THEN
7209: COMMIT WORK;
7210: END IF;
7211:
7212: Fnd_Msg_Pub.count_and_get(
7209: COMMIT WORK;
7210: END IF;
7211:
7212: Fnd_Msg_Pub.count_and_get(
7213: p_encoded => Fnd_Api.g_false,
7214: p_count => x_msg_count,
7215: p_data => x_msg_data);
7216:
7217: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
7222: WHEN G_VALIDATION_EXCEPTION THEN
7223: ROLLBACK TO Cancel_Visit;
7224: x_return_status := G_VALIDATION_ERROR_STATUS ;
7225: Fnd_Msg_Pub.count_and_get (
7226: p_encoded => Fnd_Api.g_false,
7227: p_count => x_msg_count,
7228: p_data => x_msg_data
7229: );
7230:
7227: p_count => x_msg_count,
7228: p_data => x_msg_data
7229: );
7230:
7231: WHEN Fnd_Api.g_exc_error THEN
7232: ROLLBACK TO Cancel_Visit;
7233: x_return_status := Fnd_Api.g_ret_sts_error;
7234: Fnd_Msg_Pub.count_and_get (
7235: p_encoded => Fnd_Api.g_false,
7229: );
7230:
7231: WHEN Fnd_Api.g_exc_error THEN
7232: ROLLBACK TO Cancel_Visit;
7233: x_return_status := Fnd_Api.g_ret_sts_error;
7234: Fnd_Msg_Pub.count_and_get (
7235: p_encoded => Fnd_Api.g_false,
7236: p_count => x_msg_count,
7237: p_data => x_msg_data
7231: WHEN Fnd_Api.g_exc_error THEN
7232: ROLLBACK TO Cancel_Visit;
7233: x_return_status := Fnd_Api.g_ret_sts_error;
7234: Fnd_Msg_Pub.count_and_get (
7235: p_encoded => Fnd_Api.g_false,
7236: p_count => x_msg_count,
7237: p_data => x_msg_data
7238: );
7239:
7236: p_count => x_msg_count,
7237: p_data => x_msg_data
7238: );
7239:
7240: WHEN Fnd_Api.g_exc_unexpected_error THEN
7241: ROLLBACK TO Cancel_Visit;
7242: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7243: Fnd_Msg_Pub.count_and_get (
7244: p_encoded => Fnd_Api.g_false,
7238: );
7239:
7240: WHEN Fnd_Api.g_exc_unexpected_error THEN
7241: ROLLBACK TO Cancel_Visit;
7242: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7243: Fnd_Msg_Pub.count_and_get (
7244: p_encoded => Fnd_Api.g_false,
7245: p_count => x_msg_count,
7246: p_data => x_msg_data
7240: WHEN Fnd_Api.g_exc_unexpected_error THEN
7241: ROLLBACK TO Cancel_Visit;
7242: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7243: Fnd_Msg_Pub.count_and_get (
7244: p_encoded => Fnd_Api.g_false,
7245: p_count => x_msg_count,
7246: p_data => x_msg_data
7247: );
7248:
7247: );
7248:
7249: WHEN OTHERS THEN
7250: ROLLBACK TO Cancel_Visit;
7251: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7252: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7253: THEN
7254: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7255: END IF;
7253: THEN
7254: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7255: END IF;
7256: Fnd_Msg_Pub.count_and_get (
7257: p_encoded => Fnd_Api.g_false,
7258: p_count => x_msg_count,
7259: p_data => x_msg_data
7260: );
7261:
7277: -- To Synchronize visit with flight schedule change
7278: --------------------------------------------------------------------
7279: PROCEDURE Synchronize_Visit (
7280: p_api_version IN NUMBER,
7281: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7282: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7283: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7284: p_module_type IN VARCHAR2 := NULL,
7285: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
7278: --------------------------------------------------------------------
7279: PROCEDURE Synchronize_Visit (
7280: p_api_version IN NUMBER,
7281: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7282: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7283: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7284: p_module_type IN VARCHAR2 := NULL,
7285: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
7286: x_return_status OUT NOCOPY VARCHAR2,
7279: PROCEDURE Synchronize_Visit (
7280: p_api_version IN NUMBER,
7281: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7282: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7283: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7284: p_module_type IN VARCHAR2 := NULL,
7285: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
7286: x_return_status OUT NOCOPY VARCHAR2,
7287: x_msg_count OUT NOCOPY NUMBER,
7319: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure : Visit Id - '||l_visit_rec.visit_id);
7320: END IF;
7321:
7322: -- Initialize message list if p_init_msg_list is set to TRUE.
7323: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
7324: Fnd_Msg_Pub.initialize;
7325: END IF;
7326:
7327: -- Initialize API return status to success
7324: Fnd_Msg_Pub.initialize;
7325: END IF;
7326:
7327: -- Initialize API return status to success
7328: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7329:
7330: -- Standard call to check for call compatibility.
7331: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
7332: p_api_version,
7327: -- Initialize API return status to success
7328: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7329:
7330: -- Standard call to check for call compatibility.
7331: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
7332: p_api_version,
7333: l_api_name,G_PKG_NAME)
7334: THEN
7335: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7331: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
7332: p_api_version,
7333: l_api_name,G_PKG_NAME)
7334: THEN
7335: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7336: END IF;
7337:
7338: ------------------------Start of API Body------------------------------------
7339: OPEN c_Visit(l_visit_rec.visit_id);
7346: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7347: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for - ' ||l_visit_rec.visit_id );
7348: END IF;
7349: END IF;
7350: RAISE Fnd_Api.g_exc_error;
7351: ELSE
7352: CLOSE c_Visit;
7353: END IF;
7354:
7374: Update_Visit
7375: (
7376: p_api_version => l_api_version,
7377: p_init_msg_list => p_init_msg_list,
7378: p_commit => Fnd_Api.g_false,
7379: p_validation_level => p_validation_level,
7380: p_module_type => p_module_type,
7381: p_x_Visit_rec => p_x_visit_rec,
7382: x_return_status => l_return_status,
7388: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Update_Visit - l_return_status : '||l_return_status);
7389: END IF;
7390:
7391: IF l_return_status <> 'S' THEN
7392: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7393: END IF;
7394: ELSIF c_Visit_rec.status_code = 'RELEASED' OR c_Visit_rec.status_code = 'PARTIALLY RELEASED' THEN
7395: -------------- R12 changes For Serial Number Reservations Start-------------------
7396: ---------------AnRaj added on 19th June 2005-------------------
7394: ELSIF c_Visit_rec.status_code = 'RELEASED' OR c_Visit_rec.status_code = 'PARTIALLY RELEASED' THEN
7395: -------------- R12 changes For Serial Number Reservations Start-------------------
7396: ---------------AnRaj added on 19th June 2005-------------------
7397: -- R12: Department is made mandatory
7398: IF l_visit_rec.department_id IS NULL OR l_visit_rec.department_id = Fnd_Api.G_MISS_NUM THEN
7399: Fnd_Message.SET_NAME('AHL','AHL_VWP_RELSD_DEPT_MAND');
7400: Fnd_Msg_Pub.ADD;
7401: RAISE Fnd_Api.G_EXC_ERROR;
7402: END IF;
7397: -- R12: Department is made mandatory
7398: IF l_visit_rec.department_id IS NULL OR l_visit_rec.department_id = Fnd_Api.G_MISS_NUM THEN
7399: Fnd_Message.SET_NAME('AHL','AHL_VWP_RELSD_DEPT_MAND');
7400: Fnd_Msg_Pub.ADD;
7401: RAISE Fnd_Api.G_EXC_ERROR;
7402: END IF;
7403:
7404: -- R12: Department change does not require to cancel current visit and Create a new visit
7405: -- R12: Removed the Department change check here
7404: -- R12: Department change does not require to cancel current visit and Create a new visit
7405: -- R12: Removed the Department change check here
7406: -- If orgnization changed, then cancel the visit and create a new one.
7407: IF l_visit_rec.organization_id IS NOT NULL
7408: AND l_visit_rec.organization_id <> Fnd_Api.G_MISS_NUM
7409: AND l_visit_rec.organization_id <> c_Visit_rec.organization_id
7410: THEN
7411: -- Validate org/dept/dates
7412: -- Planned Start Date is madatory for transit visit
7410: THEN
7411: -- Validate org/dept/dates
7412: -- Planned Start Date is madatory for transit visit
7413: IF l_visit_rec.START_DATE IS NULL
7414: OR l_visit_rec.START_DATE = FND_API.g_miss_date
7415: THEN
7416: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_ST_DT_REQ');
7417: Fnd_Msg_Pub.ADD;
7418: RAISE Fnd_Api.G_EXC_ERROR;
7414: OR l_visit_rec.START_DATE = FND_API.g_miss_date
7415: THEN
7416: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_ST_DT_REQ');
7417: Fnd_Msg_Pub.ADD;
7418: RAISE Fnd_Api.G_EXC_ERROR;
7419: END IF;
7420:
7421: -- Planned End Date is madatory for transit visit
7422: IF l_visit_rec.PLAN_END_DATE IS NULL
7419: END IF;
7420:
7421: -- Planned End Date is madatory for transit visit
7422: IF l_visit_rec.PLAN_END_DATE IS NULL
7423: OR l_visit_rec.PLAN_END_DATE = FND_API.g_miss_date
7424: THEN
7425: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_END_DT_REQ');
7426: Fnd_Msg_Pub.ADD;
7427: RAISE Fnd_Api.G_EXC_ERROR;
7423: OR l_visit_rec.PLAN_END_DATE = FND_API.g_miss_date
7424: THEN
7425: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_END_DT_REQ');
7426: Fnd_Msg_Pub.ADD;
7427: RAISE Fnd_Api.G_EXC_ERROR;
7428: END IF;
7429:
7430: -- Planned End Date must be greater than or equal to Planned Start Date
7431: IF (l_visit_rec.START_DATE > l_visit_rec.PLAN_END_DATE) THEN
7430: -- Planned End Date must be greater than or equal to Planned Start Date
7431: IF (l_visit_rec.START_DATE > l_visit_rec.PLAN_END_DATE) THEN
7432: Fnd_Message.SET_NAME('AHL','AHL_VWP_START_DT_GTR_CLOSE_DT');
7433: Fnd_Msg_Pub.ADD;
7434: RAISE Fnd_Api.G_EXC_ERROR;
7435: END IF;
7436:
7437: -- If visit start date is earlier than SYSDATE then use sysdate to create new visit
7438: IF (l_visit_rec.START_DATE < SYSDATE ) THEN
7451:
7452: IF NVL(l_return_status,'x') <> 'S' THEN
7453: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORG_NOT_EXISTS');
7454: Fnd_Msg_Pub.ADD;
7455: RAISE Fnd_Api.G_EXC_ERROR;
7456: END IF;
7457:
7458: -- Department must have shift defined
7459: AHL_VWP_RULES_PVT.CHECK_DEPARTMENT_SHIFT
7462:
7463: IF NVL(l_return_status,'x') <> 'S' THEN
7464: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
7465: Fnd_Msg_Pub.ADD;
7466: RAISE Fnd_Api.G_EXC_ERROR;
7467: END IF;
7468:
7469: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7470: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling COPY_VISIT');
7472:
7473: COPY_VISIT(
7474: p_api_version => l_api_version,
7475: p_init_msg_list => p_init_msg_list,
7476: p_commit => Fnd_Api.g_false,
7477: p_validation_level => p_validation_level,
7478: p_module_type => p_module_type,
7479: P_VISIT_ID => c_visit_rec.visit_id,
7480: p_x_Visit_rec => l_visit_rec,
7487: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling COPY_VISIT l_return_status - '||l_return_status);
7488: END IF;
7489:
7490: IF l_return_status <> 'S' THEN
7491: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7492: END IF;
7493:
7494: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7495: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_PROJ_PROD_PVT.Release_Visit');
7510: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_PROJ_PROD_PVT.Release_Visit : l_return_status - '||l_return_status);
7511: END IF;
7512:
7513: IF l_return_status <> 'S' THEN
7514: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7515: END IF;
7516:
7517: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7518: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Cancel_Visit');
7531: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Cancel_Visit : l_return_status - '||l_return_status);
7532: END IF;
7533:
7534: IF l_return_status <> 'S' THEN
7535: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7536: END IF;
7537: -- The Organization did not change
7538: -- Only there is change in the date and time of the visit
7539: -- R12 OR the department has changed., added the condition
7538: -- Only there is change in the date and time of the visit
7539: -- R12 OR the department has changed., added the condition
7540: -- R12 AnRaj
7541: ELSIF l_visit_rec.START_DATE IS NOT NULL
7542: AND l_visit_rec.START_DATE <> FND_API.g_miss_date
7543: AND l_visit_rec.PLAN_END_DATE IS NOT NULL
7544: AND l_visit_rec.PLAN_END_DATE <> FND_API.g_miss_date
7545: AND ( l_visit_rec.START_DATE <> c_Visit_rec.START_DATE_TIME
7546: OR l_visit_rec.PLAN_END_DATE <> c_Visit_rec.CLOSE_DATE_TIME
7540: -- R12 AnRaj
7541: ELSIF l_visit_rec.START_DATE IS NOT NULL
7542: AND l_visit_rec.START_DATE <> FND_API.g_miss_date
7543: AND l_visit_rec.PLAN_END_DATE IS NOT NULL
7544: AND l_visit_rec.PLAN_END_DATE <> FND_API.g_miss_date
7545: AND ( l_visit_rec.START_DATE <> c_Visit_rec.START_DATE_TIME
7546: OR l_visit_rec.PLAN_END_DATE <> c_Visit_rec.CLOSE_DATE_TIME
7547: OR l_visit_rec.department_id <> c_Visit_rec.department_id
7548: )
7556: Update_Visit
7557: (
7558: p_api_version => l_api_version,
7559: p_init_msg_list => p_init_msg_list,
7560: p_commit => Fnd_Api.g_false,
7561: p_validation_level => p_validation_level,
7562: p_module_type => p_module_type,
7563: p_x_Visit_rec => p_x_visit_rec,
7564: x_return_status => l_return_status,
7570: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Update_Visit - l_return_status : '||l_return_status);
7571: END IF;
7572:
7573: IF l_return_status <> 'S' THEN
7574: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7575: END IF;
7576:
7577: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7578: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS');
7591: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS - l_return_status : '||l_return_status);
7592: END IF;
7593:
7594: IF l_return_status <> 'S' THEN
7595: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7596: END IF;
7597: END IF;
7598: END IF;
7599:
7600: l_msg_count := Fnd_Msg_Pub.count_msg;
7601:
7602: IF l_msg_count > 0 THEN
7603: X_msg_count := l_msg_count;
7604: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7605: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7606: END IF;
7607: --Standard check for commit
7608: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
7601:
7602: IF l_msg_count > 0 THEN
7603: X_msg_count := l_msg_count;
7604: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7605: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7606: END IF;
7607: --Standard check for commit
7608: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
7609: COMMIT;
7604: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7605: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7606: END IF;
7607: --Standard check for commit
7608: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
7609: COMMIT;
7610: END IF;
7611:
7612: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
7612: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
7613: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
7614: END IF;
7615: EXCEPTION
7616: WHEN Fnd_Api.g_exc_error THEN
7617: ROLLBACK TO Synchronize_Visit;
7618: x_return_status := Fnd_Api.g_ret_sts_error;
7619: Fnd_Msg_Pub.count_and_get (
7620: p_encoded => Fnd_Api.g_false,
7614: END IF;
7615: EXCEPTION
7616: WHEN Fnd_Api.g_exc_error THEN
7617: ROLLBACK TO Synchronize_Visit;
7618: x_return_status := Fnd_Api.g_ret_sts_error;
7619: Fnd_Msg_Pub.count_and_get (
7620: p_encoded => Fnd_Api.g_false,
7621: p_count => x_msg_count,
7622: p_data => x_msg_data
7616: WHEN Fnd_Api.g_exc_error THEN
7617: ROLLBACK TO Synchronize_Visit;
7618: x_return_status := Fnd_Api.g_ret_sts_error;
7619: Fnd_Msg_Pub.count_and_get (
7620: p_encoded => Fnd_Api.g_false,
7621: p_count => x_msg_count,
7622: p_data => x_msg_data
7623: );
7624: WHEN Fnd_Api.g_exc_unexpected_error THEN
7620: p_encoded => Fnd_Api.g_false,
7621: p_count => x_msg_count,
7622: p_data => x_msg_data
7623: );
7624: WHEN Fnd_Api.g_exc_unexpected_error THEN
7625: ROLLBACK TO Synchronize_Visit;
7626: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7627: Fnd_Msg_Pub.count_and_get (
7628: p_encoded => Fnd_Api.g_false,
7622: p_data => x_msg_data
7623: );
7624: WHEN Fnd_Api.g_exc_unexpected_error THEN
7625: ROLLBACK TO Synchronize_Visit;
7626: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7627: Fnd_Msg_Pub.count_and_get (
7628: p_encoded => Fnd_Api.g_false,
7629: p_count => x_msg_count,
7630: p_data => x_msg_data
7624: WHEN Fnd_Api.g_exc_unexpected_error THEN
7625: ROLLBACK TO Synchronize_Visit;
7626: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7627: Fnd_Msg_Pub.count_and_get (
7628: p_encoded => Fnd_Api.g_false,
7629: p_count => x_msg_count,
7630: p_data => x_msg_data
7631: );
7632: WHEN OTHERS THEN
7630: p_data => x_msg_data
7631: );
7632: WHEN OTHERS THEN
7633: ROLLBACK TO Synchronize_Visit;
7634: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7635: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7636: THEN
7637: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7638: END IF;
7636: THEN
7637: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7638: END IF;
7639: Fnd_Msg_Pub.count_and_get (
7640: p_encoded => Fnd_Api.g_false,
7641: p_count => x_msg_count,
7642: p_data => x_msg_data
7643: );
7644: END Synchronize_Visit;
7658: BEGIN
7659: SAVEPOINT delete_flight_assoc;
7660:
7661: -- Initialize return status to success initially
7662: x_return_status:=FND_API.G_RET_STS_SUCCESS;
7663:
7664: UPDATE AHL_VISITS_B
7665: SET UNIT_SCHEDULE_ID = NULL
7666: WHERE UNIT_SCHEDULE_ID = p_unit_schedule_id ;
7665: SET UNIT_SCHEDULE_ID = NULL
7666: WHERE UNIT_SCHEDULE_ID = p_unit_schedule_id ;
7667:
7668: EXCEPTION
7669: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7670: ROLLBACK TO delete_flight_assoc;
7671: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7672: WHEN FND_API.G_EXC_ERROR THEN
7673: ROLLBACK TO delete_flight_assoc;
7667:
7668: EXCEPTION
7669: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7670: ROLLBACK TO delete_flight_assoc;
7671: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7672: WHEN FND_API.G_EXC_ERROR THEN
7673: ROLLBACK TO delete_flight_assoc;
7674: x_return_status := FND_API.G_RET_STS_ERROR;
7675: WHEN OTHERS THEN
7668: EXCEPTION
7669: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7670: ROLLBACK TO delete_flight_assoc;
7671: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7672: WHEN FND_API.G_EXC_ERROR THEN
7673: ROLLBACK TO delete_flight_assoc;
7674: x_return_status := FND_API.G_RET_STS_ERROR;
7675: WHEN OTHERS THEN
7676: ROLLBACK TO delete_flight_assoc;
7670: ROLLBACK TO delete_flight_assoc;
7671: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7672: WHEN FND_API.G_EXC_ERROR THEN
7673: ROLLBACK TO delete_flight_assoc;
7674: x_return_status := FND_API.G_RET_STS_ERROR;
7675: WHEN OTHERS THEN
7676: ROLLBACK TO delete_flight_assoc;
7677: x_return_status := FND_API.G_RET_STS_ERROR;
7678: END DELETE_FLIGHT_ASSOC;
7673: ROLLBACK TO delete_flight_assoc;
7674: x_return_status := FND_API.G_RET_STS_ERROR;
7675: WHEN OTHERS THEN
7676: ROLLBACK TO delete_flight_assoc;
7677: x_return_status := FND_API.G_RET_STS_ERROR;
7678: END DELETE_FLIGHT_ASSOC;
7679:
7680: -- AnRaj added for R 12.0 ACL changes in VWP
7681: -- Bug number 4297066
7714:
7715: IF item_instance_id IS NOT NULL THEN
7716: -- If the Visit header has an instance id, check for the corresponding Unit
7717: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,item_instance_id);
7718: IF l_quarantined = FND_API.G_TRUE THEN
7719: l_unit_name := ahl_util_uc_pkg.get_unit_name(item_instance_id);
7720: Fnd_Message.SET_NAME('AHL','AHL_VWP_CLOSE_HDR_UNIT_QRNT');
7721: -- The Unit for this Visit (UNIT_NAME-1) is quarantined.
7722: Fnd_Message.Set_Token('UNIT_NAME',l_unit_name);
7732: LOOP
7733: FETCH c_get_tasknumbers INTO l_task_number,l_instance_id;
7734: EXIT WHEN c_get_tasknumbers%NOTFOUND;
7735: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,l_instance_id);
7736: IF l_quarantined = FND_API.G_TRUE THEN
7737: Fnd_Message.SET_NAME('AHL','AHL_VWP_CLOSE_TSK_UNIT_QRNT');
7738: -- The Unit for the Task (UNIT_NAME-1) is quarantined.
7739: Fnd_Message.Set_Token('TASK_NUMBER',l_task_number);
7740: Fnd_Msg_Pub.ADD;
7768: IF (l_msg_count > 0 ) THEN
7769: FOR i IN 1..l_msg_count
7770: LOOP
7771: fnd_msg_pub.get( p_msg_index => i,
7772: p_encoded => FND_API.G_FALSE,
7773: p_data => l_msg_data,
7774: p_msg_index_out => l_msg_index_out);
7775:
7776: x_message_stack_tbl(i) := l_msg_data;