[Home] [Help]
52:
53: -- To validate visit for creation/updation of visit
54: PROCEDURE Validate_Visit (
55: p_api_version IN NUMBER,
56: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
57: p_commit IN VARCHAR2 := Fnd_Api.g_false,
58: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
59: p_Visit_rec IN visit_rec_type,
60: x_return_status OUT NOCOPY VARCHAR2,
53: -- To validate visit for creation/updation of visit
54: PROCEDURE Validate_Visit (
55: p_api_version IN NUMBER,
56: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
57: p_commit IN VARCHAR2 := Fnd_Api.g_false,
58: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
59: p_Visit_rec IN visit_rec_type,
60: x_return_status OUT NOCOPY VARCHAR2,
61: x_msg_count OUT NOCOPY NUMBER,
54: PROCEDURE Validate_Visit (
55: p_api_version IN NUMBER,
56: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
57: p_commit IN VARCHAR2 := Fnd_Api.g_false,
58: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
59: p_Visit_rec IN visit_rec_type,
60: x_return_status OUT NOCOPY VARCHAR2,
61: x_msg_count OUT NOCOPY NUMBER,
62: x_msg_data OUT NOCOPY VARCHAR2
84:
85: -- To Create a Maintenance Visit
86: PROCEDURE Create_Visit (
87: p_api_version IN NUMBER,
88: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
89: p_commit IN VARCHAR2 := Fnd_Api.g_false,
90: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
91: p_module_type IN VARCHAR2 := 'JSP',
92: p_x_visit_rec IN OUT NOCOPY visit_rec_type,
85: -- To Create a Maintenance Visit
86: PROCEDURE Create_Visit (
87: p_api_version IN NUMBER,
88: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
89: p_commit IN VARCHAR2 := Fnd_Api.g_false,
90: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
91: p_module_type IN VARCHAR2 := 'JSP',
92: p_x_visit_rec IN OUT NOCOPY visit_rec_type,
93: x_return_status OUT NOCOPY VARCHAR2,
86: PROCEDURE Create_Visit (
87: p_api_version IN NUMBER,
88: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
89: p_commit IN VARCHAR2 := Fnd_Api.g_false,
90: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
91: p_module_type IN VARCHAR2 := 'JSP',
92: p_x_visit_rec IN OUT NOCOPY visit_rec_type,
93: x_return_status OUT NOCOPY VARCHAR2,
94: x_msg_count OUT NOCOPY NUMBER,
97:
98: -- To Update a Maintenance Visit
99: PROCEDURE Update_Visit (
100: p_api_version IN NUMBER,
101: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
102: p_commit IN VARCHAR2 := Fnd_Api.g_false,
103: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
104: p_module_type IN VARCHAR2 := 'JSP',
105: p_x_Visit_Rec IN OUT NOCOPY visit_rec_type,
98: -- To Update a Maintenance Visit
99: PROCEDURE Update_Visit (
100: p_api_version IN NUMBER,
101: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
102: p_commit IN VARCHAR2 := Fnd_Api.g_false,
103: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
104: p_module_type IN VARCHAR2 := 'JSP',
105: p_x_Visit_Rec IN OUT NOCOPY visit_rec_type,
106: x_return_status OUT NOCOPY VARCHAR2,
99: PROCEDURE Update_Visit (
100: p_api_version IN NUMBER,
101: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
102: p_commit IN VARCHAR2 := Fnd_Api.g_false,
103: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
104: p_module_type IN VARCHAR2 := 'JSP',
105: p_x_Visit_Rec IN OUT NOCOPY visit_rec_type,
106: x_return_status OUT NOCOPY VARCHAR2,
107: x_msg_count OUT NOCOPY NUMBER,
110:
111: -- To Delete a Maintenance Visit
112: PROCEDURE Delete_Visit (
113: p_api_version IN NUMBER,
114: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
115: p_commit IN VARCHAR2 := Fnd_Api.g_false,
116: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
117: p_visit_id IN NUMBER,
118: x_return_status OUT NOCOPY VARCHAR2,
111: -- To Delete a Maintenance Visit
112: PROCEDURE Delete_Visit (
113: p_api_version IN NUMBER,
114: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
115: p_commit IN VARCHAR2 := Fnd_Api.g_false,
116: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
117: p_visit_id IN NUMBER,
118: x_return_status OUT NOCOPY VARCHAR2,
119: x_msg_count OUT NOCOPY NUMBER,
112: PROCEDURE Delete_Visit (
113: p_api_version IN NUMBER,
114: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
115: p_commit IN VARCHAR2 := Fnd_Api.g_false,
116: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
117: p_visit_id IN NUMBER,
118: x_return_status OUT NOCOPY VARCHAR2,
119: x_msg_count OUT NOCOPY NUMBER,
120: x_msg_data OUT NOCOPY VARCHAR2
125: -- yazhou start
126:
127: PROCEDURE Synchronize_Visit (
128: p_api_version IN NUMBER,
129: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
130: p_commit IN VARCHAR2 := Fnd_Api.g_false,
131: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
132: p_module_type IN VARCHAR2 := NULL,
133: p_x_Visit_Rec IN OUT NOCOPY visit_rec_type,
126:
127: PROCEDURE Synchronize_Visit (
128: p_api_version IN NUMBER,
129: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
130: p_commit IN VARCHAR2 := Fnd_Api.g_false,
131: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
132: p_module_type IN VARCHAR2 := NULL,
133: p_x_Visit_Rec IN OUT NOCOPY visit_rec_type,
134: x_return_status OUT NOCOPY VARCHAR2,
127: PROCEDURE Synchronize_Visit (
128: p_api_version IN NUMBER,
129: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
130: p_commit IN VARCHAR2 := Fnd_Api.g_false,
131: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
132: p_module_type IN VARCHAR2 := NULL,
133: p_x_Visit_Rec IN OUT NOCOPY visit_rec_type,
134: x_return_status OUT NOCOPY VARCHAR2,
135: x_msg_count OUT NOCOPY NUMBER,
254: BEGIN
255: -- Post 11.5.10 Enhancements
256: -- Removing defaulting of Visit Name since it is a mandatory field
257: /*-- VISIT NAME
258: IF p_x_visit_rec.visit_name = Fnd_Api.G_MISS_char THEN
259: p_x_visit_rec.visit_name := NULL;
260: ELSE
261: p_x_visit_rec.visit_name := p_x_visit_rec.visit_name;
262: END IF;
262: END IF;
263: */
264:
265: -- ORGANIZATION ID
266: IF p_x_visit_rec.organization_id = Fnd_Api.G_MISS_NUM THEN
267: p_x_visit_rec.organization_id := NULL;
268: ELSE
269: p_x_visit_rec.organization_id := p_x_visit_rec.organization_id;
270: END IF;
269: p_x_visit_rec.organization_id := p_x_visit_rec.organization_id;
270: END IF;
271:
272: -- DEPARTMENT ID
273: IF p_x_visit_rec.department_id = Fnd_Api.G_MISS_NUM THEN
274: p_x_visit_rec.department_id := NULL;
275: ELSE
276: p_x_visit_rec.department_id := p_x_visit_rec.department_id;
277: END IF;
276: p_x_visit_rec.department_id := p_x_visit_rec.department_id;
277: END IF;
278:
279: -- START DATE
280: IF p_x_visit_rec.start_date = Fnd_Api.G_MISS_DATE THEN
281: p_x_visit_rec.start_date := NULL;
282: ELSE
283: p_x_visit_rec.start_date := p_x_visit_rec.start_date;
284: END IF;
283: p_x_visit_rec.start_date := p_x_visit_rec.start_date;
284: END IF;
285:
286: -- PLAN END DATE
287: IF p_x_visit_rec.plan_end_date = Fnd_Api.G_MISS_DATE THEN
288: p_x_visit_rec.plan_end_date := NULL;
289: ELSE
290: p_x_visit_rec.plan_end_date := p_x_visit_rec.plan_end_date;
291: END IF;
290: p_x_visit_rec.plan_end_date := p_x_visit_rec.plan_end_date;
291: END IF;
292:
293: -- SIMULATION_PLAN_ID
294: IF p_x_visit_rec.SIMULATION_PLAN_ID = Fnd_Api.G_MISS_NUM THEN
295: p_x_visit_rec.SIMULATION_PLAN_ID := NULL;
296: ELSE
297: p_x_visit_rec.SIMULATION_PLAN_ID := p_x_visit_rec.SIMULATION_PLAN_ID;
298: END IF;
297: p_x_visit_rec.SIMULATION_PLAN_ID := p_x_visit_rec.SIMULATION_PLAN_ID;
298: END IF;
299:
300: -- ITEM_INSTANCE_ID
301: IF p_x_visit_rec.ITEM_INSTANCE_ID = Fnd_Api.G_MISS_NUM THEN
302: p_x_visit_rec.ITEM_INSTANCE_ID := NULL;
303: ELSE
304: p_x_visit_rec.ITEM_INSTANCE_ID := p_x_visit_rec.ITEM_INSTANCE_ID;
305: END IF;
304: p_x_visit_rec.ITEM_INSTANCE_ID := p_x_visit_rec.ITEM_INSTANCE_ID;
305: END IF;
306:
307: -- ASSO_PRIMARY_VISIT_ID
308: IF p_x_visit_rec.ASSO_PRIMARY_VISIT_ID = Fnd_Api.G_MISS_NUM THEN
309: p_x_visit_rec.ASSO_PRIMARY_VISIT_ID := NULL;
310: ELSE
311: p_x_visit_rec.ASSO_PRIMARY_VISIT_ID := p_x_visit_rec.ASSO_PRIMARY_VISIT_ID;
312: END IF;
311: p_x_visit_rec.ASSO_PRIMARY_VISIT_ID := p_x_visit_rec.ASSO_PRIMARY_VISIT_ID;
312: END IF;
313:
314: -- SIMULATION_DELETE_FLAG
315: IF p_x_visit_rec.SIMULATION_DELETE_FLAG = Fnd_Api.G_MISS_CHAR THEN
316: p_x_visit_rec.SIMULATION_DELETE_FLAG := NULL;
317: ELSE
318: p_x_visit_rec.SIMULATION_DELETE_FLAG := p_x_visit_rec.SIMULATION_DELETE_FLAG;
319: END IF;
318: p_x_visit_rec.SIMULATION_DELETE_FLAG := p_x_visit_rec.SIMULATION_DELETE_FLAG;
319: END IF;
320:
321: -- OUT_OF_SYNC_FLAG
322: IF p_x_visit_rec.OUT_OF_SYNC_FLAG = Fnd_Api.G_MISS_CHAR THEN
323: p_x_visit_rec.OUT_OF_SYNC_FLAG := NULL;
324: ELSE
325: p_x_visit_rec.OUT_OF_SYNC_FLAG := p_x_visit_rec.OUT_OF_SYNC_FLAG;
326: END IF;
325: p_x_visit_rec.OUT_OF_SYNC_FLAG := p_x_visit_rec.OUT_OF_SYNC_FLAG;
326: END IF;
327:
328: -- PROJECT_ID
329: IF p_x_visit_rec.PROJECT_ID = Fnd_Api.G_MISS_NUM THEN
330: p_x_visit_rec.PROJECT_ID := NULL;
331: ELSE
332: p_x_visit_rec.PROJECT_ID := p_x_visit_rec.PROJECT_ID;
333: END IF;
332: p_x_visit_rec.PROJECT_ID := p_x_visit_rec.PROJECT_ID;
333: END IF;
334:
335: -- space_category_code
336: IF p_x_visit_rec.space_category_code = Fnd_Api.G_MISS_CHAR THEN
337: p_x_visit_rec.space_category_code := NULL;
338: ELSE
339: p_x_visit_rec.space_category_code := p_x_visit_rec.space_category_code;
340: END IF;
339: p_x_visit_rec.space_category_code := p_x_visit_rec.space_category_code;
340: END IF;
341:
342: -- description
343: IF p_x_visit_rec.description = Fnd_Api.G_MISS_CHAR THEN
344: p_x_visit_rec.description := NULL;
345: ELSE
346: p_x_visit_rec.description := p_x_visit_rec.description;
347: END IF;
347: END IF;
348:
349: -- Post 11.5.10 Enhancements
350: -- Adding priority and project template
351: IF p_x_visit_rec.priority_code = Fnd_Api.G_MISS_CHAR THEN
352: p_x_visit_rec.priority_code := NULL;
353: ELSE
354: p_x_visit_rec.priority_code := p_x_visit_rec.priority_code;
355: END IF;
353: ELSE
354: p_x_visit_rec.priority_code := p_x_visit_rec.priority_code;
355: END IF;
356:
357: IF p_x_visit_rec.proj_template_id = Fnd_Api.G_MISS_NUM THEN
358: p_x_visit_rec.proj_template_id := NULL;
359: ELSE
360: p_x_visit_rec.proj_template_id := p_x_visit_rec.proj_template_id;
361: END IF;
364: -- Adding item id and visit type code.
365: -- since these fields are not mandatory in Post 11.5.10
366: -- serial number check already exists (item_instance_id)
367: -- ITEM ID
368: IF p_x_visit_rec.inventory_item_id = Fnd_Api.G_MISS_NUM THEN
369: p_x_visit_rec.inventory_item_id := NULL;
370: ELSE
371: p_x_visit_rec.inventory_item_id := p_x_visit_rec.inventory_item_id;
372: END IF;
371: p_x_visit_rec.inventory_item_id := p_x_visit_rec.inventory_item_id;
372: END IF;
373:
374: -- VISIT TYPE CODE
375: IF p_x_visit_rec.visit_type_code = Fnd_Api.G_MISS_CHAR THEN
376: p_x_visit_rec.visit_type_code := NULL;
377: ELSE
378: p_x_visit_rec.visit_type_code := p_x_visit_rec.visit_type_code;
379: END IF;
377: ELSE
378: p_x_visit_rec.visit_type_code := p_x_visit_rec.visit_type_code;
379: END IF;
380:
381: IF p_x_visit_rec.attribute_category = Fnd_Api.G_MISS_CHAR THEN
382: p_x_visit_rec.attribute_category := NULL;
383: ELSE
384: p_x_visit_rec.attribute_category := p_x_visit_rec.attribute_category;
385: END IF;
383: ELSE
384: p_x_visit_rec.attribute_category := p_x_visit_rec.attribute_category;
385: END IF;
386:
387: IF p_x_visit_rec.attribute1 = Fnd_Api.G_MISS_CHAR THEN
388: p_x_visit_rec.attribute1 := NULL;
389: ELSE
390: p_x_visit_rec.attribute1 := p_x_visit_rec.attribute1;
391: END IF;
389: ELSE
390: p_x_visit_rec.attribute1 := p_x_visit_rec.attribute1;
391: END IF;
392:
393: IF p_x_visit_rec.attribute2 = Fnd_Api.G_MISS_CHAR THEN
394: p_x_visit_rec.attribute2 := NULL;
395: ELSE
396: p_x_visit_rec.attribute2 := p_x_visit_rec.attribute2;
397: END IF;
395: ELSE
396: p_x_visit_rec.attribute2 := p_x_visit_rec.attribute2;
397: END IF;
398:
399: IF p_x_visit_rec.attribute3 = Fnd_Api.G_MISS_CHAR THEN
400: p_x_visit_rec.attribute3 := NULL;
401: ELSE
402: p_x_visit_rec.attribute3 := p_x_visit_rec.attribute3;
403: END IF;
401: ELSE
402: p_x_visit_rec.attribute3 := p_x_visit_rec.attribute3;
403: END IF;
404:
405: IF p_x_visit_rec.attribute4 = Fnd_Api.G_MISS_CHAR THEN
406: p_x_visit_rec.attribute4 := NULL;
407: ELSE
408: p_x_visit_rec.attribute4 := p_x_visit_rec.attribute4;
409: END IF;
407: ELSE
408: p_x_visit_rec.attribute4 := p_x_visit_rec.attribute4;
409: END IF;
410:
411: IF p_x_visit_rec.attribute5 = Fnd_Api.G_MISS_CHAR THEN
412: p_x_visit_rec.attribute5 := NULL;
413: ELSE
414: p_x_visit_rec.attribute5 := p_x_visit_rec.attribute5;
415: END IF;
413: ELSE
414: p_x_visit_rec.attribute5 := p_x_visit_rec.attribute5;
415: END IF;
416:
417: IF p_x_visit_rec.attribute6 = Fnd_Api.G_MISS_CHAR THEN
418: p_x_visit_rec.attribute6 := NULL;
419: ELSE
420: p_x_visit_rec.attribute6 := p_x_visit_rec.attribute6;
421: END IF;
419: ELSE
420: p_x_visit_rec.attribute6 := p_x_visit_rec.attribute6;
421: END IF;
422:
423: IF p_x_visit_rec.attribute7 = Fnd_Api.G_MISS_CHAR THEN
424: p_x_visit_rec.attribute7 := NULL;
425: ELSE
426: p_x_visit_rec.attribute7 := p_x_visit_rec.attribute7;
427: END IF;
425: ELSE
426: p_x_visit_rec.attribute7 := p_x_visit_rec.attribute7;
427: END IF;
428:
429: IF p_x_visit_rec.attribute8 = Fnd_Api.G_MISS_CHAR THEN
430: p_x_visit_rec.attribute8 := NULL;
431: ELSE
432: p_x_visit_rec.attribute8 := p_x_visit_rec.attribute8;
433: END IF;
431: ELSE
432: p_x_visit_rec.attribute8 := p_x_visit_rec.attribute8;
433: END IF;
434:
435: IF p_x_visit_rec.attribute9 = Fnd_Api.G_MISS_CHAR THEN
436: p_x_visit_rec.attribute9 := NULL;
437: ELSE
438: p_x_visit_rec.attribute9 := p_x_visit_rec.attribute9;
439: END IF;
437: ELSE
438: p_x_visit_rec.attribute9 := p_x_visit_rec.attribute9;
439: END IF;
440:
441: IF p_x_visit_rec.attribute10 = Fnd_Api.G_MISS_CHAR THEN
442: p_x_visit_rec.attribute10 := NULL;
443: ELSE
444: p_x_visit_rec.attribute10 := p_x_visit_rec.attribute10;
445: END IF;
443: ELSE
444: p_x_visit_rec.attribute10 := p_x_visit_rec.attribute10;
445: END IF;
446:
447: IF p_x_visit_rec.attribute11 = Fnd_Api.G_MISS_CHAR THEN
448: p_x_visit_rec.attribute11 := NULL;
449: ELSE
450: p_x_visit_rec.attribute11 := p_x_visit_rec.attribute11;
451: END IF;
449: ELSE
450: p_x_visit_rec.attribute11 := p_x_visit_rec.attribute11;
451: END IF;
452:
453: IF p_x_visit_rec.attribute12 = Fnd_Api.G_MISS_CHAR THEN
454: p_x_visit_rec.attribute12 := NULL;
455: ELSE
456: p_x_visit_rec.attribute12 := p_x_visit_rec.attribute12;
457: END IF;
455: ELSE
456: p_x_visit_rec.attribute12 := p_x_visit_rec.attribute12;
457: END IF;
458:
459: IF p_x_visit_rec.attribute13 = Fnd_Api.G_MISS_CHAR THEN
460: p_x_visit_rec.attribute13 := NULL;
461: ELSE
462: p_x_visit_rec.attribute13 := p_x_visit_rec.attribute13;
463: END IF;
461: ELSE
462: p_x_visit_rec.attribute13 := p_x_visit_rec.attribute13;
463: END IF;
464:
465: IF p_x_visit_rec.attribute14 = Fnd_Api.G_MISS_CHAR THEN
466: p_x_visit_rec.attribute14 := NULL;
467: ELSE
468: p_x_visit_rec.attribute14 := p_x_visit_rec.attribute14;
469: END IF;
467: ELSE
468: p_x_visit_rec.attribute14 := p_x_visit_rec.attribute14;
469: END IF;
470:
471: IF p_x_visit_rec.attribute15 = Fnd_Api.G_MISS_CHAR THEN
472: p_x_visit_rec.attribute15 := NULL;
473: ELSE
474: p_x_visit_rec.attribute15 := p_x_visit_rec.attribute15;
475: END IF;
628: -- between API's and frontend.
629: --------------------------------------------------------------------
630: PROCEDURE Process_Visit (
631: p_api_version IN NUMBER,
632: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
633: p_commit IN VARCHAR2 := FND_API.g_false,
634: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
635: p_module_type IN VARCHAR2 := 'JSP',
636: p_x_Visit_tbl IN OUT NOCOPY Visit_Tbl_Type,
629: --------------------------------------------------------------------
630: PROCEDURE Process_Visit (
631: p_api_version IN NUMBER,
632: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
633: p_commit IN VARCHAR2 := FND_API.g_false,
634: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
635: p_module_type IN VARCHAR2 := 'JSP',
636: p_x_Visit_tbl IN OUT NOCOPY Visit_Tbl_Type,
637: x_return_status OUT NOCOPY VARCHAR2,
630: PROCEDURE Process_Visit (
631: p_api_version IN NUMBER,
632: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
633: p_commit IN VARCHAR2 := FND_API.g_false,
634: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
635: p_module_type IN VARCHAR2 := 'JSP',
636: p_x_Visit_tbl IN OUT NOCOPY Visit_Tbl_Type,
637: x_return_status OUT NOCOPY VARCHAR2,
638: x_msg_count OUT NOCOPY NUMBER,
672: END IF;
673:
674: -- Initialize API return status to success
675: -- Initialize message list if p_init_msg_list is set to TRUE.
676: IF FND_API.to_boolean(p_init_msg_list) THEN
677: FND_MSG_PUB.initialize;
678: END IF;
679:
680: x_return_status := FND_API.G_RET_STS_SUCCESS;
676: IF FND_API.to_boolean(p_init_msg_list) THEN
677: FND_MSG_PUB.initialize;
678: END IF;
679:
680: x_return_status := FND_API.G_RET_STS_SUCCESS;
681:
682: -- Standard call to check for call compatibility.
683: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
684: p_api_version,
679:
680: x_return_status := FND_API.G_RET_STS_SUCCESS;
681:
682: -- Standard call to check for call compatibility.
683: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
684: p_api_version,
685: l_api_name,G_PKG_NAME) THEN
686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
687: END IF;
682: -- Standard call to check for call compatibility.
683: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
684: p_api_version,
685: l_api_name,G_PKG_NAME) THEN
686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
687: END IF;
688:
689: --------------------Start of API Body-----------------------------------
690: IF p_x_Visit_tbl.COUNT > 0 THEN
704: Create_Visit
705: (
706: p_api_version => l_api_version,
707: p_init_msg_list => p_init_msg_list,
708: p_commit => Fnd_Api.g_false,
709: p_validation_level => p_validation_level,
710: p_module_type => p_module_type,
711: p_x_visit_rec => p_x_Visit_tbl(i),
712: x_return_status => l_return_status,
728: Update_Visit
729: (
730: p_api_version => l_api_version,
731: p_init_msg_list => p_init_msg_list,
732: p_commit => Fnd_Api.g_false,
733: p_validation_level => p_validation_level,
734: p_module_type => p_module_type,
735: p_x_Visit_rec => p_x_Visit_tbl(i),
736: x_return_status => l_return_status,
752: Delete_Visit
753: (
754: p_api_version => l_api_version,
755: p_init_msg_list => p_init_msg_list,
756: p_commit => Fnd_Api.g_false,
757: p_validation_level => p_validation_level,
758: p_Visit_id => p_x_visit_tbl(i).visit_id,
759: x_return_status => l_return_status,
760: x_msg_count => l_msg_count,
778: Synchronize_Visit
779: (
780: p_api_version => l_api_version,
781: p_init_msg_list => p_init_msg_list,
782: p_commit => Fnd_Api.g_false,
783: p_validation_level => p_validation_level,
784: p_x_Visit_rec => p_x_visit_tbl(i),
785: x_return_status => l_return_status,
786: x_msg_count => l_msg_count,
806: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
807: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit status not found for visit : ' ||p_x_Visit_tbl(i).visit_id );
808: END IF;
809: END IF;
810: RAISE Fnd_Api.g_exc_error;
811: ELSE
812: CLOSE c_visit_status;
813: END IF;
814:
821: Delete_Visit
822: (
823: p_api_version => l_api_version,
824: p_init_msg_list => p_init_msg_list,
825: p_commit => Fnd_Api.g_false,
826: p_validation_level => p_validation_level,
827: p_Visit_id => p_x_visit_tbl(i).visit_id,
828: x_return_status => l_return_status,
829: x_msg_count => l_msg_count,
841:
842: Cancel_Visit (
843: p_api_version => l_api_version,
844: p_init_msg_list => p_init_msg_list,
845: p_commit => Fnd_Api.g_false,
846: p_validation_level => p_validation_level,
847: p_module_type => p_module_type,
848: p_visit_id => p_x_visit_tbl(i).visit_id,
849: p_obj_ver_num => p_x_visit_tbl(i).object_version_number,
865: l_msg_count := Fnd_Msg_Pub.count_msg;
866:
867: IF l_msg_count > 0 THEN
868: x_msg_count := l_msg_count;
869: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
870: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
871: END IF;
872:
873: --Standard check for commit
866:
867: IF l_msg_count > 0 THEN
868: x_msg_count := l_msg_count;
869: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
870: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
871: END IF;
872:
873: --Standard check for commit
874: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
870: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
871: END IF;
872:
873: --Standard check for commit
874: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
875: COMMIT;
876: END IF;
877:
878: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
879: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
880: END IF;
881:
882: EXCEPTION
883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
884: ROLLBACK TO Process_Visit;
885: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
886: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
887: p_count => x_msg_count,
881:
882: EXCEPTION
883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
884: ROLLBACK TO Process_Visit;
885: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
886: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
887: p_count => x_msg_count,
888: p_data => x_msg_data);
889:
882: EXCEPTION
883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
884: ROLLBACK TO Process_Visit;
885: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
886: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
887: p_count => x_msg_count,
888: p_data => x_msg_data);
889:
890: WHEN FND_API.G_EXC_ERROR THEN
886: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
887: p_count => x_msg_count,
888: p_data => x_msg_data);
889:
890: WHEN FND_API.G_EXC_ERROR THEN
891: ROLLBACK TO Process_Visit;
892: X_return_status := FND_API.G_RET_STS_ERROR;
893: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
894: p_count => x_msg_count,
888: p_data => x_msg_data);
889:
890: WHEN FND_API.G_EXC_ERROR THEN
891: ROLLBACK TO Process_Visit;
892: X_return_status := FND_API.G_RET_STS_ERROR;
893: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
894: p_count => x_msg_count,
895: p_data => X_msg_data);
896: WHEN OTHERS THEN
889:
890: WHEN FND_API.G_EXC_ERROR THEN
891: ROLLBACK TO Process_Visit;
892: X_return_status := FND_API.G_RET_STS_ERROR;
893: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
894: p_count => x_msg_count,
895: p_data => X_msg_data);
896: WHEN OTHERS THEN
897: ROLLBACK TO Process_Visit;
894: p_count => x_msg_count,
895: p_data => X_msg_data);
896: WHEN OTHERS THEN
897: ROLLBACK TO Process_Visit;
898: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
899: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
900: THEN
901: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_VWP_VISITS_PVT',
902: p_procedure_name => 'Process_Visit',
901: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_VWP_VISITS_PVT',
902: p_procedure_name => 'Process_Visit',
903: p_error_text => SUBSTR(SQLERRM,1,240));
904: END IF;
905: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
906: p_count => x_msg_count,
907: p_data => x_msg_data);
908: END Process_Visit;
909:
915: -- Get a particular Visit Records with all details
916: --------------------------------------------------------------------
917: PROCEDURE Get_Visit_Details (
918: p_api_version IN NUMBER,
919: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
920: p_commit IN VARCHAR2 := Fnd_Api.g_false,
921: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
922: p_module_type IN VARCHAR2 := 'JSP',
923: p_visit_id IN NUMBER,
916: --------------------------------------------------------------------
917: PROCEDURE Get_Visit_Details (
918: p_api_version IN NUMBER,
919: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
920: p_commit IN VARCHAR2 := Fnd_Api.g_false,
921: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
922: p_module_type IN VARCHAR2 := 'JSP',
923: p_visit_id IN NUMBER,
924:
917: PROCEDURE Get_Visit_Details (
918: p_api_version IN NUMBER,
919: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
920: p_commit IN VARCHAR2 := Fnd_Api.g_false,
921: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
922: p_module_type IN VARCHAR2 := 'JSP',
923: p_visit_id IN NUMBER,
924:
925: x_Visit_rec OUT NOCOPY Visit_Rec_Type,
1135: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure, p_visit_id - '||p_visit_id);
1136: END IF;
1137:
1138: -- Initialize message list if p_init_msg_list is set to TRUE.
1139: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
1140: Fnd_Msg_Pub.initialize;
1141: END IF;
1142:
1143: -- Initialize API return status to success
1140: Fnd_Msg_Pub.initialize;
1141: END IF;
1142:
1143: -- Initialize API return status to success
1144: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1145:
1146: -- Standard call to check for call compatibility.
1147: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1148: p_api_version,
1143: -- Initialize API return status to success
1144: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1145:
1146: -- Standard call to check for call compatibility.
1147: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1148: p_api_version,
1149: l_api_name,G_PKG_NAME) THEN
1150: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1151: END IF;
1146: -- Standard call to check for call compatibility.
1147: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1148: p_api_version,
1149: l_api_name,G_PKG_NAME) THEN
1150: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1151: END IF;
1152: ------------------------------Start of API Body------------------------------------
1153:
1154: ----------------------------------------- Cursor ----------------------------------
1202:
1203: -- Post 11.5.10
1204: -- Reema Start
1205: -- To check if visit starttime is not null then store time in HH4 format
1206: IF (c_visit_rec.START_DATE_TIME IS NOT NULL AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE) THEN
1207: l_hour := TO_NUMBER(TO_CHAR(c_visit_rec.START_DATE_TIME , 'HH24'));
1208: l_minute := TO_NUMBER(TO_CHAR(c_visit_rec.START_DATE_TIME , 'MI'));
1209: ELSE
1210: l_hour := NULL;
1211: c_visit_rec.START_DATE_TIME := NULL;
1212: END IF;
1213:
1214: -- To check if visit closetime is not null then store time in HH4 format
1215: IF (visit_rec.CLOSE_DATE_TIME IS NOT NULL AND visit_rec.CLOSE_DATE_TIME <> Fnd_Api.G_MISS_DATE) THEN
1216: l_hour_close := TO_NUMBER(TO_CHAR(visit_rec.CLOSE_DATE_TIME , 'HH24'));
1217: l_minute_close := TO_NUMBER(TO_CHAR(c_visit_rec.CLOSE_DATE_TIME , 'MI'));
1218: ELSE
1219: l_hour_close := NULL;
1228: END IF;
1229:
1230: -- Derive the visit end date
1231: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
1232: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE
1233: AND c_visit_rec.DEPARTMENT_ID IS NOT NULL
1234: AND c_visit_rec.DEPARTMENT_ID <> FND_API.G_MISS_NUM) THEN
1235: l_visit_end_date:= AHL_VWP_TIMES_PVT.get_visit_end_time(p_visit_id);
1236: END IF;
1230: -- Derive the visit end date
1231: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
1232: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE
1233: AND c_visit_rec.DEPARTMENT_ID IS NOT NULL
1234: AND c_visit_rec.DEPARTMENT_ID <> FND_API.G_MISS_NUM) THEN
1235: l_visit_end_date:= AHL_VWP_TIMES_PVT.get_visit_end_time(p_visit_id);
1236: END IF;
1237:
1238: -- Post 11.5.10
1243: IF c_proj_template%NOTFOUND THEN
1244: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1245: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_PROTEM');
1246: Fnd_Msg_Pub.ADD;
1247: RAISE Fnd_Api.G_EXC_ERROR;
1248: END IF;
1249: END IF;
1250: CLOSE c_proj_template;
1251: END IF;
1326: -- Standard call to get message count and if count is 1, get message info
1327: Fnd_Msg_Pub.Count_And_Get
1328: ( p_count => x_msg_count,
1329: p_data => x_msg_data,
1330: p_encoded => Fnd_Api.g_false);
1331:
1332: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1333: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
1334: END IF;
1334: END IF;
1335:
1336: RETURN;
1337: EXCEPTION
1338: WHEN Fnd_Api.G_EXC_ERROR THEN
1339: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1340: ROLLBACK TO Get_Visit_Details;
1341: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1342: p_data => x_msg_data,
1335:
1336: RETURN;
1337: EXCEPTION
1338: WHEN Fnd_Api.G_EXC_ERROR THEN
1339: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1340: ROLLBACK TO Get_Visit_Details;
1341: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1342: p_data => x_msg_data,
1343: p_encoded => Fnd_Api.g_false);
1339: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1340: ROLLBACK TO Get_Visit_Details;
1341: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1342: p_data => x_msg_data,
1343: p_encoded => Fnd_Api.g_false);
1344:
1345: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1346: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1347: ROLLBACK TO Get_Visit_Details;
1341: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1342: p_data => x_msg_data,
1343: p_encoded => Fnd_Api.g_false);
1344:
1345: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1346: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1347: ROLLBACK TO Get_Visit_Details;
1348: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1349: p_data => x_msg_data,
1342: p_data => x_msg_data,
1343: p_encoded => Fnd_Api.g_false);
1344:
1345: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1346: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1347: ROLLBACK TO Get_Visit_Details;
1348: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1349: p_data => x_msg_data,
1350: p_encoded => Fnd_Api.g_false);
1346: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1347: ROLLBACK TO Get_Visit_Details;
1348: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1349: p_data => x_msg_data,
1350: p_encoded => Fnd_Api.g_false);
1351:
1352: WHEN OTHERS THEN
1353: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1354: ROLLBACK TO Get_Visit_Details;
1349: p_data => x_msg_data,
1350: p_encoded => Fnd_Api.g_false);
1351:
1352: WHEN OTHERS THEN
1353: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1354: ROLLBACK TO Get_Visit_Details;
1355: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1356: p_procedure_name => 'Get_Visit_Details',
1357: p_error_text => SQLERRM);
1356: p_procedure_name => 'Get_Visit_Details',
1357: p_error_text => SQLERRM);
1358: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1359: p_data => x_msg_data,
1360: p_encoded => Fnd_Api.g_false);
1361: END Get_Visit_Details;
1362:
1363: --------------------------------------------------------------------
1364: -- PROCEDURE
1368: -- To create a Maintainance Visit
1369: --------------------------------------------------------------------
1370: PROCEDURE Create_Visit (
1371: p_api_version IN NUMBER,
1372: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1373: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1374: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1375: p_module_type IN VARCHAR2 := 'JSP',
1376: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
1369: --------------------------------------------------------------------
1370: PROCEDURE Create_Visit (
1371: p_api_version IN NUMBER,
1372: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1373: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1374: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1375: p_module_type IN VARCHAR2 := 'JSP',
1376: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
1377: x_return_status OUT NOCOPY VARCHAR2,
1370: PROCEDURE Create_Visit (
1371: p_api_version IN NUMBER,
1372: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1373: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1374: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1375: p_module_type IN VARCHAR2 := 'JSP',
1376: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
1377: x_return_status OUT NOCOPY VARCHAR2,
1378: x_msg_count OUT NOCOPY NUMBER,
1531: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
1532: END IF;
1533:
1534: -- Initialize message list if p_init_msg_list is set to TRUE.
1535: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
1536: Fnd_Msg_Pub.initialize;
1537: END IF;
1538:
1539: -- Initialize API return status to success
1536: Fnd_Msg_Pub.initialize;
1537: END IF;
1538:
1539: -- Initialize API return status to success
1540: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1541:
1542: -- Standard call to check for call compatibility.
1543: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1544: p_api_version,
1539: -- Initialize API return status to success
1540: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1541:
1542: -- Standard call to check for call compatibility.
1543: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1544: p_api_version,
1545: l_api_name,G_PKG_NAME) THEN
1546: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1547: END IF;
1542: -- Standard call to check for call compatibility.
1543: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1544: p_api_version,
1545: l_api_name,G_PKG_NAME) THEN
1546: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1547: END IF;
1548: ------------------------Start of API Body------------------------------------
1549:
1550: --------------------Value OR ID conversion---------------------------
1556: END IF;
1557:
1558: -- For VISIT STATUS
1559: -- To check visit status by default is Planning if not entered as input
1560: IF l_visit_rec.status_code IS NULL OR l_visit_rec.status_code = Fnd_Api.G_MISS_CHAR THEN
1561: l_Visit_rec.status_code := 'PLANNING';
1562: END IF;
1563:
1564: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1566: END IF;
1567:
1568: ----------- Starts defining all Dropdowns on Create Visit UI Screen-------------
1569: -- For SPACE CATEGORY CODE
1570: IF l_Visit_rec.space_category_code = Fnd_Api.G_MISS_CHAR THEN
1571: l_Visit_rec.space_category_code := Null;
1572: END IF;
1573:
1574: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1578: ----------- Start defining and validate all LOVs on Create Visit UI Screen---
1579: -- For VISIT TYPE
1580: -- To find Visit Type Code when Visit Type Name has input values
1581: IF l_Visit_rec.visit_type_name IS NOT NULL AND
1582: l_Visit_rec.visit_type_name <> Fnd_Api.G_MISS_CHAR THEN
1583:
1584: AHL_VWP_RULES_PVT.Check_Lookup_Name_Or_Id (
1585: p_lookup_type => 'AHL_PLANNING_VISIT_TYPE',
1586: p_lookup_code => NULL,
1591:
1592: IF NVL(l_return_status, 'X') <> 'S' THEN
1593: Fnd_Message.SET_NAME('AHL','AHL_VWP_TYPE_CODE_NOT_EXISTS');
1594: Fnd_Msg_Pub.ADD;
1595: RAISE Fnd_Api.G_EXC_ERROR;
1596: END IF;
1597: END IF;
1598:
1599: IF l_Visit_rec.unit_name IS NOT NULL AND l_Visit_rec.unit_name <> Fnd_Api.G_MISS_CHAR THEN
1595: RAISE Fnd_Api.G_EXC_ERROR;
1596: END IF;
1597: END IF;
1598:
1599: IF l_Visit_rec.unit_name IS NOT NULL AND l_Visit_rec.unit_name <> Fnd_Api.G_MISS_CHAR THEN
1600: OPEN c_unit_det(l_Visit_rec.unit_name);
1601: FETCH c_unit_det INTO l_Visit_rec.unit_name,l_Visit_rec.serial_number,l_Visit_rec.item_instance_id,
1602: l_Visit_rec.inventory_item_id,l_Visit_rec.item_organization_id;
1603: IF c_unit_det%NOTFOUND THEN
1606: END IF;
1607: Fnd_Message.SET_NAME('AHL','AHL_VWP_UNIT_NOT_EXISTS');
1608: Fnd_Msg_Pub.ADD;
1609: CLOSE c_unit_det;
1610: RAISE Fnd_Api.G_EXC_ERROR;
1611: END IF;
1612: CLOSE c_unit_det;
1613:
1614: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1623:
1624: -- For ORGANIZATION
1625: -- To Convert Organization Name to Organization Id
1626: IF (l_Visit_rec.org_name IS NOT NULL AND
1627: l_Visit_rec.org_name <> Fnd_Api.G_MISS_CHAR) THEN
1628:
1629: AHL_VWP_RULES_PVT.Check_Org_Name_Or_Id
1630: (p_organization_id => l_Visit_rec.organization_id,
1631: p_org_name => l_Visit_rec.org_name,
1635:
1636: IF NVL(l_return_status,'x') <> 'S' THEN
1637: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORG_NOT_EXISTS');
1638: Fnd_Msg_Pub.ADD;
1639: RAISE Fnd_Api.G_EXC_ERROR;
1640: END IF;
1641: END IF;
1642:
1643: IF (l_Visit_rec.org_name IS NOT NULL AND
1640: END IF;
1641: END IF;
1642:
1643: IF (l_Visit_rec.org_name IS NOT NULL AND
1644: l_Visit_rec.org_name <> Fnd_Api.G_MISS_CHAR ) THEN
1645: --Assign the returned value
1646: l_Visit_rec.organization_id := l_organization_id;
1647: /* ELSE
1648: l_Visit_rec.organization_id := NULL;*/
1654:
1655: -- For DEPARTMENT
1656: -- To convert Department Name to Department Id
1657: IF (l_Visit_rec.dept_name IS NOT NULL AND
1658: l_Visit_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) OR
1659: (l_Visit_rec.department_id IS NOT NULL AND
1660: l_Visit_rec.department_id <> Fnd_Api.G_MISS_NUM) THEN
1661:
1662: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
1656: -- To convert Department Name to Department Id
1657: IF (l_Visit_rec.dept_name IS NOT NULL AND
1658: l_Visit_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) OR
1659: (l_Visit_rec.department_id IS NOT NULL AND
1660: l_Visit_rec.department_id <> Fnd_Api.G_MISS_NUM) THEN
1661:
1662: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
1663: (p_organization_id => l_Visit_rec.organization_id,
1664: p_dept_name => l_Visit_rec.dept_name,
1669:
1670: IF NVL(l_return_status,'x') <> 'S' THEN
1671: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
1672: Fnd_Msg_Pub.ADD;
1673: RAISE Fnd_Api.G_EXC_ERROR;
1674: END IF;
1675:
1676: AHL_VWP_RULES_PVT.CHECK_DEPARTMENT_SHIFT
1677: (p_dept_id => l_department_id,
1679:
1680: IF NVL(l_return_status,'x') <> 'S' THEN
1681: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
1682: Fnd_Msg_Pub.ADD;
1683: RAISE Fnd_Api.G_EXC_ERROR;
1684: END IF;
1685: END IF;
1686:
1687: IF (l_Visit_rec.dept_name IS NOT NULL AND l_Visit_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
1683: RAISE Fnd_Api.G_EXC_ERROR;
1684: END IF;
1685: END IF;
1686:
1687: IF (l_Visit_rec.dept_name IS NOT NULL AND l_Visit_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
1688: --Assign the returned value
1689: l_Visit_rec.department_id := l_department_id;
1690: /* ELSE
1691: l_Visit_rec.department_id := NULL;*/
1696: END IF;
1697:
1698: -- For SERVICE REQUEST
1699: -- To Convert Service Request Number to Service Request Id
1700: IF (l_Visit_rec.service_request_number IS NOT NULL AND l_Visit_rec.service_request_number <> Fnd_Api.G_MISS_CHAR ) THEN
1701: AHL_VWP_RULES_PVT.Check_SR_Request_Number_Or_Id
1702: (p_service_id => l_Visit_rec.service_request_id,
1703: p_service_number => l_Visit_rec.service_request_number,
1704: x_service_id => l_service_id,
1707:
1708: IF NVL(l_return_status,'x') <> 'S' THEN
1709: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERVICE_REQ_NOT_EXISTS');
1710: Fnd_Msg_Pub.ADD;
1711: RAISE Fnd_Api.g_exc_error;
1712: END IF;
1713:
1714: --Assign the returned value
1715: l_Visit_rec.service_request_id := l_service_id;
1721:
1722: ----------- End defining and validate all LOVs on Create Visit UI Screen---
1723: -- For VISIT START DATE TIME
1724: -- Convert time stamp for start date time
1725: IF l_Visit_rec.START_DATE IS NOT NULL AND l_Visit_rec.START_DATE <> fnd_api.g_miss_date THEN
1726: IF (l_Visit_rec.START_HOUR IS NOT NULL AND l_visit_rec.START_MIN IS NOT NULL)THEN
1727: l_date := TO_CHAR(l_Visit_rec.START_DATE, 'DD-MM-YYYY ') || l_Visit_rec.start_hour ||':'|| l_visit_rec.start_min;
1728: l_Visit_rec.START_DATE := TO_DATE(l_date, 'DD-MM-YYYY HH24:MI');
1729: ELSIF l_Visit_rec.START_HOUR IS NOT NULL THEN
1741:
1742: --Added by amagrawa for Transit Visit
1743: -- For VISIT PLANNED END DATE TIME
1744: -- Convert time stamp for planned end date time
1745: IF l_Visit_rec.plan_end_date IS NOT NULL AND l_Visit_rec.plan_end_date <> fnd_api.g_miss_date THEN
1746: IF (l_Visit_rec.plan_end_HOUR IS NOT NULL AND l_visit_rec.plan_end_MIN IS NOT NULL)THEN
1747: 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;
1748: l_Visit_rec.plan_end_date := TO_DATE(l_date, 'DD-MM-YYYY HH24:MI');
1749: ELSIF l_Visit_rec.plan_end_hour IS NOT NULL THEN
1763: IF l_Visit_rec.START_DATE IS NOT NULL AND l_Visit_rec.plan_end_date IS NOT NULL THEN
1764: IF (l_Visit_rec.START_DATE > l_Visit_rec.plan_end_date) THEN
1765: Fnd_Message.SET_NAME('AHL','AHL_VWP_START_DT_GTR_CLOSE_DT');
1766: Fnd_Msg_Pub.ADD;
1767: RAISE Fnd_Api.G_EXC_ERROR;
1768: END IF;
1769: END IF;
1770: -- End of changes by amagrawa
1771: -- For SIMULATION PLAN
1769: END IF;
1770: -- End of changes by amagrawa
1771: -- For SIMULATION PLAN
1772: -- To check whether any primary plan exists in LTP
1773: IF l_visit_rec.SIMULATION_PLAN_ID = Fnd_Api.G_MISS_NUM THEN
1774: l_visit_rec.SIMULATION_PLAN_ID := NULL;
1775: END IF;
1776:
1777: IF (l_Visit_rec.SIMULATION_PLAN_ID IS NULL) THEN
1782:
1783: IF l_simulation_plan_id IS NULL THEN
1784: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRI_PLN_NOT_EXIST');
1785: Fnd_Msg_Pub.ADD;
1786: RAISE Fnd_Api.G_EXC_ERROR;
1787: END IF;
1788: END IF;
1789:
1790: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1792: END IF;
1793:
1794: -- Post 11.5.10 Enhancements
1795: -- For PRIORITY
1796: IF l_Visit_rec.priority_value IS NOT NULL AND l_Visit_rec.priority_value <> Fnd_Api.G_MISS_CHAR THEN
1797: AHL_VWP_RULES_PVT.Check_Lookup_Name_Or_Id
1798: (p_lookup_type => 'AHL_VWP_VISIT_PRIORITY',
1799: p_lookup_code => l_Visit_rec.priority_code,
1800: p_meaning => l_Visit_rec.priority_value,
1804:
1805: IF NVL(l_return_status, 'X') <> 'S' THEN
1806: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRI_NOT_EXISTS');
1807: Fnd_Msg_Pub.ADD;
1808: RAISE Fnd_Api.G_EXC_ERROR;
1809: END IF;
1810: l_visit_rec.priority_code := l_priority_code;
1811: END IF;
1812:
1821:
1822: IF NVL(l_return_status, 'X') <> 'S' THEN
1823: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_PROTEM');
1824: Fnd_Msg_Pub.ADD;
1825: RAISE Fnd_Api.G_EXC_ERROR;
1826: END IF;
1827: l_visit_rec.proj_template_id := l_proj_template_id;
1828: ELSE
1829: -- If Project Template Name is null
1836:
1837: IF ((l_visit_rec.subinventory IS NOT NULL) AND (l_visit_rec.locator_segment IS NULL)) THEN
1838: Fnd_Message.SET_NAME('AHL','AHL_VWP_LOCATOR_NULL');
1839: Fnd_Msg_Pub.ADD;
1840: RAISE Fnd_Api.G_EXC_ERROR;
1841: ELSIF ((l_visit_rec.subinventory IS NULL) AND (l_visit_rec.locator_segment IS NOT NULL))THEN
1842: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINVENTORY_NULL');
1843: Fnd_Msg_Pub.ADD;
1844: RAISE Fnd_Api.G_EXC_ERROR;
1840: RAISE Fnd_Api.G_EXC_ERROR;
1841: ELSIF ((l_visit_rec.subinventory IS NULL) AND (l_visit_rec.locator_segment IS NOT NULL))THEN
1842: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINVENTORY_NULL');
1843: Fnd_Msg_Pub.ADD;
1844: RAISE Fnd_Api.G_EXC_ERROR;
1845: ELSIF ((l_visit_rec.subinventory IS NOT NULL) AND (l_visit_rec.locator_segment IS NOT NULL)) THEN
1846:
1847: OPEN c_subinv_validate (l_visit_rec.subinventory, l_visit_rec.organization_id);
1848: FETCH c_subinv_validate INTO l_status_id;
1849: IF (c_subinv_validate%NOTFOUND) THEN
1850: CLOSE c_subinv_validate;
1851: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINV_NOT_EXISTS');
1852: Fnd_Msg_Pub.ADD;
1853: RAISE Fnd_Api.G_EXC_ERROR;
1854: ELSE
1855: 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
1856: CLOSE c_subinv_validate;
1857: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
1856: CLOSE c_subinv_validate;
1857: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
1858: FND_MESSAGE.Set_Token('INV', l_visit_rec.subinventory);
1859: FND_MSG_PUB.ADD;
1860: RAISE Fnd_Api.G_EXC_ERROR;
1861: END IF;
1862: END IF;
1863: CLOSE c_subinv_validate;
1864:
1869: IF c_loc_validate%NOTFOUND THEN
1870: Fnd_Message.SET_NAME('AHL','AHL_VWP_PHY_LOCATOR_NOT_EXISTS');
1871: Fnd_Msg_Pub.ADD;
1872: CLOSE c_loc_validate;
1873: RAISE Fnd_Api.G_EXC_ERROR;
1874: END IF;
1875: CLOSE c_loc_validate;
1876:
1877: l_visit_rec.inv_locator_id := l_inv_loc_id;
1887:
1888: Validate_Visit (
1889: p_api_version => l_api_version,
1890: p_init_msg_list => p_init_msg_list,
1891: p_commit => Fnd_Api.g_false,
1892: p_validation_level => p_validation_level,
1893: p_Visit_rec => l_Visit_rec,
1894: x_return_status => l_return_status,
1895: x_msg_count => x_msg_count,
1900: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Validate_Visit - l_return_status : '||l_return_status);
1901: END IF;
1902:
1903: -- Check for the ID.
1904: IF (l_Visit_rec.VISIT_ID = Fnd_Api.g_miss_num OR l_Visit_rec.VISIT_ID IS Null) THEN
1905: -- If the ID is not passed into the API, then
1906: -- grab a value from the sequence.
1907: OPEN c_seq;
1908: FETCH c_seq INTO l_Visit_rec.VISIT_ID;
1934: l_msg_count := Fnd_Msg_Pub.count_msg;
1935:
1936: IF l_msg_count > 0 THEN
1937: x_msg_count := l_msg_count;
1938: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1939: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1940: END IF;
1941:
1942: -- Check for Visit Number
1935:
1936: IF l_msg_count > 0 THEN
1937: x_msg_count := l_msg_count;
1938: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1939: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1940: END IF;
1941:
1942: -- Check for Visit Number
1943: OPEN c_visit_number;
1959: END IF;
1960:
1961: -- Transit Check Changes Senthil.
1962: IF l_Visit_rec.unit_schedule_id IS NOT NULL
1963: AND l_Visit_rec.unit_schedule_id <> FND_API.G_MISS_NUM THEN
1964:
1965: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1966: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_UA_FLIGHT_SCHEDULES_PVT.Validate_Flight_Schedule');
1967: END IF;
1982: END IF;
1983:
1984: IF l_msg_count > 0 THEN
1985: X_msg_count := l_msg_count;
1986: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1987: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1988: END IF;
1989:
1990: -- Instance ID is madatory for transit visit
1983:
1984: IF l_msg_count > 0 THEN
1985: X_msg_count := l_msg_count;
1986: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1987: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1988: END IF;
1989:
1990: -- Instance ID is madatory for transit visit
1991: IF l_Visit_rec.item_instance_id IS NULL
1988: END IF;
1989:
1990: -- Instance ID is madatory for transit visit
1991: IF l_Visit_rec.item_instance_id IS NULL
1992: OR l_Visit_rec.item_instance_id = FND_API.G_MISS_NUM THEN
1993: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_UNIT_REQ');
1994: Fnd_Msg_Pub.ADD;
1995: END IF;
1996:
1994: Fnd_Msg_Pub.ADD;
1995: END IF;
1996:
1997: -- Planned Start Date is madatory for transit visit
1998: IF l_visit_rec.START_DATE IS NULL OR l_visit_rec.START_DATE = FND_API.g_miss_date THEN
1999: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_ST_DT_REQ');
2000: Fnd_Msg_Pub.ADD;
2001: END IF;
2002:
2002:
2003: -- Planned End Date is madatory for transit visit
2004: /*
2005: IF p_module_type = 'JSP' AND ( l_visit_rec.PLAN_END_DATE IS NULL
2006: OR l_visit_rec.PLAN_END_DATE = FND_API.g_miss_date) THEN
2007: l_visit_rec.PLAN_END_DATE:= l_visit_rec.START_DATE + (FND_PROFILE.VALUE('AHL_TRANSIT_VISIT_DEFAULT_DURATION')/1440);
2008: END IF;
2009: */
2010: ELSE
2015: l_msg_count := Fnd_Msg_Pub.count_msg;
2016:
2017: IF l_msg_count > 0 THEN
2018: x_msg_count := l_msg_count;
2019: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2020: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2021: END IF;
2022:
2023: -------------------------- Insert --------------------------
2016:
2017: IF l_msg_count > 0 THEN
2018: x_msg_count := l_msg_count;
2019: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2020: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2021: END IF;
2022:
2023: -------------------------- Insert --------------------------
2024: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2101: -----CREATE STAGES IF VISIT HAS BEEN CREATED SUCESSFULLY--------
2102: AHL_VWP_VISITS_STAGES_PVT.CREATE_STAGES
2103: ( p_api_version => p_api_version,
2104: p_init_msg_list => p_init_msg_list,
2105: p_commit => Fnd_Api.g_false,
2106: p_validation_level => p_validation_level,
2107: p_module_type => p_module_type,
2108: p_visit_id => l_Visit_rec.VISIT_ID,
2109: x_return_status => x_return_status,
2115: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.CREATE_STAGES - x_return_status : '||x_return_status);
2116: END IF;
2117:
2118: IF l_Visit_rec.visit_type_code IS NOT NULL
2119: AND l_Visit_rec.visit_type_code <> FND_API.G_MISS_CHAR THEN
2120:
2121: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2122: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TASKS_PVT.ASSOCIATE_DEFAULT_MRS');
2123: END IF;
2139: l_msg_count := Fnd_Msg_Pub.count_msg;
2140:
2141: IF l_msg_count > 0 THEN
2142: X_msg_count := l_msg_count;
2143: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2144: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2145: END IF;
2146: END IF;
2147:
2140:
2141: IF l_msg_count > 0 THEN
2142: X_msg_count := l_msg_count;
2143: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2144: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2145: END IF;
2146: END IF;
2147:
2148: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2150: END IF;
2151:
2152: --Now adjust the times derivation for task
2153: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
2154: p_init_msg_list => Fnd_Api.G_FALSE,
2155: p_commit => Fnd_Api.G_FALSE,
2156: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2157: x_return_status => l_return_status,
2158: x_msg_count => l_msg_count,
2151:
2152: --Now adjust the times derivation for task
2153: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
2154: p_init_msg_list => Fnd_Api.G_FALSE,
2155: p_commit => Fnd_Api.G_FALSE,
2156: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2157: x_return_status => l_return_status,
2158: x_msg_count => l_msg_count,
2159: x_msg_data => l_msg_data,
2152: --Now adjust the times derivation for task
2153: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
2154: p_init_msg_list => Fnd_Api.G_FALSE,
2155: p_commit => Fnd_Api.G_FALSE,
2156: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2157: x_return_status => l_return_status,
2158: x_msg_count => l_msg_count,
2159: x_msg_data => l_msg_data,
2160: p_visit_id => l_visit_rec.visit_id);
2167: l_msg_count := Fnd_Msg_Pub.count_msg;
2168:
2169: IF l_msg_count > 0 THEN
2170: X_msg_count := l_msg_count;
2171: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2172: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2173: END IF;
2174:
2175: -- Added by sjayacha as per Shailaja mail
2168:
2169: IF l_msg_count > 0 THEN
2170: X_msg_count := l_msg_count;
2171: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2172: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2173: END IF;
2174:
2175: -- Added by sjayacha as per Shailaja mail
2176: IF l_Visit_rec.unit_schedule_id IS NOT NULL
2173: END IF;
2174:
2175: -- Added by sjayacha as per Shailaja mail
2176: IF l_Visit_rec.unit_schedule_id IS NOT NULL
2177: AND l_Visit_rec.unit_schedule_id <> FND_API.G_MISS_NUM THEN
2178: l_date_time := NVL(NVL(l_visit_rec.PLAN_END_DATE,
2179: AHL_VWP_TIMES_PVT.get_visit_end_time(l_Visit_rec.visit_id)),
2180: l_visit_rec.START_DATE + (FND_PROFILE.VALUE('AHL_TRANSIT_VISIT_DEFAULT_DURATION')/1440));
2181:
2188: WHERE visit_id = l_Visit_rec.visit_id ;
2189: END IF;
2190:
2191: IF l_Visit_rec.visit_create_type IS NOT NULL
2192: AND l_Visit_rec.visit_create_type <> FND_API.G_MISS_CHAR THEN
2193: IF l_Visit_rec.visit_create_type = 'PRODUCTION_RELEASED' THEN
2194: l_release_flag := 'Y';
2195: ELSIF l_Visit_rec.visit_create_type = 'PRODUCTION_UNRELEASED' THEN
2196: l_release_flag := 'N';
2202: END IF;
2203:
2204: AHL_VWP_PROJ_PROD_PVT.Release_Visit (
2205: p_api_version => 1.0,
2206: /*p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2207: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2208: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FU */
2209: p_module_type => 'VWP',
2210: p_visit_id => l_Visit_rec.VISIT_ID,
2203:
2204: AHL_VWP_PROJ_PROD_PVT.Release_Visit (
2205: p_api_version => 1.0,
2206: /*p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2207: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2208: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FU */
2209: p_module_type => 'VWP',
2210: p_visit_id => l_Visit_rec.VISIT_ID,
2211: p_release_flag => l_release_flag,
2204: AHL_VWP_PROJ_PROD_PVT.Release_Visit (
2205: p_api_version => 1.0,
2206: /*p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2207: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2208: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FU */
2209: p_module_type => 'VWP',
2210: p_visit_id => l_Visit_rec.VISIT_ID,
2211: p_release_flag => l_release_flag,
2212: x_return_status => x_return_status,
2223: l_msg_count := Fnd_Msg_Pub.count_msg;
2224:
2225: IF l_msg_count > 0 THEN
2226: X_msg_count := l_msg_count;
2227: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2228: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2229: END IF;
2230:
2231: --Standard check for commit
2224:
2225: IF l_msg_count > 0 THEN
2226: X_msg_count := l_msg_count;
2227: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2228: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2229: END IF;
2230:
2231: --Standard check for commit
2232: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2228: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2229: END IF;
2230:
2231: --Standard check for commit
2232: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2233: COMMIT;
2234: END IF;
2235:
2236: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2236: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2237: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
2238: END IF;
2239: EXCEPTION
2240: WHEN Fnd_Api.g_exc_error THEN
2241: ROLLBACK TO Create_Visit;
2242: x_return_status := Fnd_Api.g_ret_sts_error;
2243: Fnd_Msg_Pub.count_and_get(
2244: p_encoded => Fnd_Api.g_false,
2238: END IF;
2239: EXCEPTION
2240: WHEN Fnd_Api.g_exc_error THEN
2241: ROLLBACK TO Create_Visit;
2242: x_return_status := Fnd_Api.g_ret_sts_error;
2243: Fnd_Msg_Pub.count_and_get(
2244: p_encoded => Fnd_Api.g_false,
2245: p_count => x_msg_count,
2246: p_data => x_msg_data
2240: WHEN Fnd_Api.g_exc_error THEN
2241: ROLLBACK TO Create_Visit;
2242: x_return_status := Fnd_Api.g_ret_sts_error;
2243: Fnd_Msg_Pub.count_and_get(
2244: p_encoded => Fnd_Api.g_false,
2245: p_count => x_msg_count,
2246: p_data => x_msg_data
2247: );
2248: WHEN Fnd_Api.g_exc_unexpected_error THEN
2244: p_encoded => Fnd_Api.g_false,
2245: p_count => x_msg_count,
2246: p_data => x_msg_data
2247: );
2248: WHEN Fnd_Api.g_exc_unexpected_error THEN
2249: ROLLBACK TO Create_Visit;
2250: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2251: Fnd_Msg_Pub.count_and_get (
2252: p_encoded => Fnd_Api.g_false,
2246: p_data => x_msg_data
2247: );
2248: WHEN Fnd_Api.g_exc_unexpected_error THEN
2249: ROLLBACK TO Create_Visit;
2250: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2251: Fnd_Msg_Pub.count_and_get (
2252: p_encoded => Fnd_Api.g_false,
2253: p_count => x_msg_count,
2254: p_data => x_msg_data
2248: WHEN Fnd_Api.g_exc_unexpected_error THEN
2249: ROLLBACK TO Create_Visit;
2250: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2251: Fnd_Msg_Pub.count_and_get (
2252: p_encoded => Fnd_Api.g_false,
2253: p_count => x_msg_count,
2254: p_data => x_msg_data
2255: );
2256: WHEN OTHERS THEN
2254: p_data => x_msg_data
2255: );
2256: WHEN OTHERS THEN
2257: ROLLBACK TO Create_Visit;
2258: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2259: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2260: THEN
2261: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2262: END IF;
2260: THEN
2261: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2262: END IF;
2263: Fnd_Msg_Pub.count_and_get (
2264: p_encoded => Fnd_Api.g_false,
2265: p_count => x_msg_count,
2266: p_data => x_msg_data
2267: );
2268: END Create_Visit;
2275: -- To copy to Visit/Template from a Visit/Template
2276: --------------------------------------------------------------------
2277: PROCEDURE Copy_Visit (
2278: p_api_version IN NUMBER,
2279: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2280: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2281: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2282: p_module_type IN VARCHAR2 := 'JSP',
2283: p_visit_id IN NUMBER,
2276: --------------------------------------------------------------------
2277: PROCEDURE Copy_Visit (
2278: p_api_version IN NUMBER,
2279: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2280: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2281: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2282: p_module_type IN VARCHAR2 := 'JSP',
2283: p_visit_id IN NUMBER,
2284: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
2277: PROCEDURE Copy_Visit (
2278: p_api_version IN NUMBER,
2279: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2280: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2281: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2282: p_module_type IN VARCHAR2 := 'JSP',
2283: p_visit_id IN NUMBER,
2284: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
2285: x_return_status OUT NOCOPY VARCHAR2,
2376: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
2377: END IF;
2378:
2379: -- Initialize message list if p_init_msg_list is set to TRUE.
2380: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
2381: Fnd_Msg_Pub.initialize;
2382: END IF;
2383:
2384: -- Initialize API return status to success
2381: Fnd_Msg_Pub.initialize;
2382: END IF;
2383:
2384: -- Initialize API return status to success
2385: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2386:
2387: -- Standard call to check for call compatibility.
2388: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2389: p_api_version,
2384: -- Initialize API return status to success
2385: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2386:
2387: -- Standard call to check for call compatibility.
2388: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2389: p_api_version,
2390: l_api_name,G_PKG_NAME) THEN
2391: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2392: END IF;
2387: -- Standard call to check for call compatibility.
2388: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2389: p_api_version,
2390: l_api_name,G_PKG_NAME) THEN
2391: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2392: END IF;
2393: ------------------------Start of API Body------------------------------------
2394: -----------------------Value/Id conversions ----------------------
2395: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2406: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2407: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for' ||l_visit_rec.visit_id );
2408: END IF;
2409: END IF;
2410: RAISE Fnd_Api.g_exc_error;
2411: ELSE
2412: CLOSE c_Visit;
2413: END IF;
2414:
2415: -- Check if the visit status is deleted.display error message if so. Added in 11.5.10
2416: IF UPPER(c_visit_rec.status_code) = 'DELETED' THEN
2417: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_STATUS');
2418: Fnd_Msg_Pub.ADD;
2419: RAISE Fnd_Api.G_EXC_ERROR;
2420: END IF;
2421:
2422: -- org/dept/start date/end date are passed from UA
2423: -- Null check and org/dept/dates validation is already done from calling API Synchronize_Visit
2594:
2595: -- To call LTP Process Materials API for APS Integration
2596: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
2597: ( p_api_version => 1.0,
2598: p_init_msg_list => FND_API.g_false,
2599: p_commit => FND_API.g_false,
2600: p_validation_level => FND_API.g_valid_level_full,
2601: p_visit_id => l_Visit_Id,
2602: p_visit_task_id => c_task_rec.visit_task_id,
2595: -- To call LTP Process Materials API for APS Integration
2596: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
2597: ( p_api_version => 1.0,
2598: p_init_msg_list => FND_API.g_false,
2599: p_commit => FND_API.g_false,
2600: p_validation_level => FND_API.g_valid_level_full,
2601: p_visit_id => l_Visit_Id,
2602: p_visit_task_id => c_task_rec.visit_task_id,
2603: p_org_id => NULL,
2596: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
2597: ( p_api_version => 1.0,
2598: p_init_msg_list => FND_API.g_false,
2599: p_commit => FND_API.g_false,
2600: p_validation_level => FND_API.g_valid_level_full,
2601: p_visit_id => l_Visit_Id,
2602: p_visit_task_id => c_task_rec.visit_task_id,
2603: p_org_id => NULL,
2604: p_start_date => NULL,
2613: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Planned Order Flag : ' || l_planned_order_flag);
2614: END IF;
2615:
2616: IF l_return_status <> 'S' THEN
2617: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2618: END IF;
2619: END IF;
2620: END LOOP;
2621: CLOSE c_task;
2714:
2715: --Now adjust the times derivation for visit.
2716: AHL_VWP_TIMES_PVT.Calculate_Task_Times
2717: (p_api_version => 1.0,
2718: p_init_msg_list => Fnd_Api.G_FALSE,
2719: p_commit => Fnd_Api.G_FALSE,
2720: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2721: x_return_status => l_return_status,
2722: x_msg_count => l_msg_count,
2715: --Now adjust the times derivation for visit.
2716: AHL_VWP_TIMES_PVT.Calculate_Task_Times
2717: (p_api_version => 1.0,
2718: p_init_msg_list => Fnd_Api.G_FALSE,
2719: p_commit => Fnd_Api.G_FALSE,
2720: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2721: x_return_status => l_return_status,
2722: x_msg_count => l_msg_count,
2723: x_msg_data => l_msg_data,
2716: AHL_VWP_TIMES_PVT.Calculate_Task_Times
2717: (p_api_version => 1.0,
2718: p_init_msg_list => Fnd_Api.G_FALSE,
2719: p_commit => Fnd_Api.G_FALSE,
2720: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2721: x_return_status => l_return_status,
2722: x_msg_count => l_msg_count,
2723: x_msg_data => l_msg_data,
2724: p_visit_id => l_visit_id);
2735: l_msg_count := Fnd_Msg_Pub.count_msg;
2736:
2737: IF l_msg_count > 0 THEN
2738: X_msg_count := l_msg_count;
2739: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2740: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2741: END IF;
2742:
2743: --Standard check for commit
2736:
2737: IF l_msg_count > 0 THEN
2738: X_msg_count := l_msg_count;
2739: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2740: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2741: END IF;
2742:
2743: --Standard check for commit
2744: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2740: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2741: END IF;
2742:
2743: --Standard check for commit
2744: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2745: COMMIT;
2746: END IF;
2747:
2748: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2748: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2749: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
2750: END IF;
2751: EXCEPTION
2752: WHEN Fnd_Api.g_exc_error THEN
2753: ROLLBACK TO Copy_Visit;
2754: x_return_status := Fnd_Api.g_ret_sts_error;
2755: Fnd_Msg_Pub.count_and_get (
2756: p_encoded => Fnd_Api.g_false,
2750: END IF;
2751: EXCEPTION
2752: WHEN Fnd_Api.g_exc_error THEN
2753: ROLLBACK TO Copy_Visit;
2754: x_return_status := Fnd_Api.g_ret_sts_error;
2755: Fnd_Msg_Pub.count_and_get (
2756: p_encoded => Fnd_Api.g_false,
2757: p_count => x_msg_count,
2758: p_data => x_msg_data
2752: WHEN Fnd_Api.g_exc_error THEN
2753: ROLLBACK TO Copy_Visit;
2754: x_return_status := Fnd_Api.g_ret_sts_error;
2755: Fnd_Msg_Pub.count_and_get (
2756: p_encoded => Fnd_Api.g_false,
2757: p_count => x_msg_count,
2758: p_data => x_msg_data
2759: );
2760: WHEN Fnd_Api.g_exc_unexpected_error THEN
2756: p_encoded => Fnd_Api.g_false,
2757: p_count => x_msg_count,
2758: p_data => x_msg_data
2759: );
2760: WHEN Fnd_Api.g_exc_unexpected_error THEN
2761: ROLLBACK TO Copy_Visit;
2762: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2763: Fnd_Msg_Pub.count_and_get (
2764: p_encoded => Fnd_Api.g_false,
2758: p_data => x_msg_data
2759: );
2760: WHEN Fnd_Api.g_exc_unexpected_error THEN
2761: ROLLBACK TO Copy_Visit;
2762: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2763: Fnd_Msg_Pub.count_and_get (
2764: p_encoded => Fnd_Api.g_false,
2765: p_count => x_msg_count,
2766: p_data => x_msg_data
2760: WHEN Fnd_Api.g_exc_unexpected_error THEN
2761: ROLLBACK TO Copy_Visit;
2762: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2763: Fnd_Msg_Pub.count_and_get (
2764: p_encoded => Fnd_Api.g_false,
2765: p_count => x_msg_count,
2766: p_data => x_msg_data
2767: );
2768: WHEN OTHERS THEN
2766: p_data => x_msg_data
2767: );
2768: WHEN OTHERS THEN
2769: ROLLBACK TO Copy_Visit;
2770: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2771: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2772: THEN
2773: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2774: END IF;
2772: THEN
2773: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2774: END IF;
2775: Fnd_Msg_Pub.count_and_get (
2776: p_encoded => Fnd_Api.g_false,
2777: p_count => x_msg_count,
2778: p_data => x_msg_data
2779: );
2780: END Copy_Visit;
2787: -- To update a Maintainance Visit.
2788: --------------------------------------------------------------------
2789: PROCEDURE Update_Visit (
2790: p_api_version IN NUMBER,
2791: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2792: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2793: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2794: p_module_type IN VARCHAR2 := 'JSP',
2795: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
2788: --------------------------------------------------------------------
2789: PROCEDURE Update_Visit (
2790: p_api_version IN NUMBER,
2791: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2792: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2793: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2794: p_module_type IN VARCHAR2 := 'JSP',
2795: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
2796: x_return_status OUT NOCOPY VARCHAR2,
2789: PROCEDURE Update_Visit (
2790: p_api_version IN NUMBER,
2791: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2792: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2793: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2794: p_module_type IN VARCHAR2 := 'JSP',
2795: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
2796: x_return_status OUT NOCOPY VARCHAR2,
2797: x_msg_count OUT NOCOPY NUMBER,
2904: 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);
2905: END IF;
2906:
2907: -- Initialize message list if p_init_msg_list is set to TRUE.
2908: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
2909: Fnd_Msg_Pub.initialize;
2910: END IF;
2911:
2912: -- Initialize API return status to success
2909: Fnd_Msg_Pub.initialize;
2910: END IF;
2911:
2912: -- Initialize API return status to success
2913: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2914:
2915: -- Standard call to check for call compatibility.
2916: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2917: p_api_version,
2912: -- Initialize API return status to success
2913: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2914:
2915: -- Standard call to check for call compatibility.
2916: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2917: p_api_version,
2918: l_api_name,G_PKG_NAME)
2919: THEN
2920: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2916: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2917: p_api_version,
2918: l_api_name,G_PKG_NAME)
2919: THEN
2920: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2921: END IF;
2922:
2923: ------------------------Start of API Body------------------------------------
2924: OPEN c_Visit(l_Visit_rec.visit_id);
2931: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2932: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for' ||l_visit_rec.visit_id );
2933: END IF;
2934: END IF;
2935: RAISE Fnd_Api.g_exc_error;
2936: ELSE
2937: CLOSE c_Visit;
2938: END IF;
2939:
2940: -- To validate Object version number.
2941: IF (c_visit_rec.object_version_number <> l_visit_rec.object_version_number) THEN
2942: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
2943: Fnd_Msg_Pub.ADD;
2944: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2945: END IF;
2946: --------------------Value OR ID conversion---------------------------
2947: -- Commented for TC changes by Senthil
2948: -- Uncommented by yazhou
2952: l_Visit_rec.item_instance_id := NULL;
2953: l_Visit_rec.service_request_id := NULL;
2954: l_visit_rec.proj_template_id := NULL;
2955:
2956: IF l_Visit_rec.START_DATE IS NOT NULL AND l_Visit_rec.START_DATE <> fnd_api.g_miss_date THEN
2957: l_date_time_start := TO_DATE(TO_CHAR(l_visit_rec.START_DATE, 'DD-MM-YYYY ') ||
2958: TO_CHAR(NVL(l_visit_rec.START_HOUR,'00')) || ':'||TO_CHAR(NVL(l_visit_rec.START_MIN,'00')),'DD-MM-YYYY HH24:MI');
2959: ELSE
2960: l_Visit_rec.START_DATE:= null;
2961: l_visit_rec.START_HOUR:= null;
2962: l_date_time_start := null;
2963: END IF;
2964:
2965: IF l_Visit_rec.PLAN_END_DATE IS NOT NULL AND l_Visit_rec.PLAN_END_DATE <> fnd_api.g_miss_date THEN
2966: l_date_time_end := TO_DATE(TO_CHAR(l_visit_rec.PLAN_END_DATE, 'DD-MM-YYYY ') ||
2967: 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');
2968: ELSE
2969: l_Visit_rec.PLAN_END_DATE:= null;
2970: l_visit_rec.PLAN_END_HOUR:= null;
2971: l_date_time_end :=null;
2972: END IF;
2973: ELSE
2974: IF l_Visit_rec.START_DATE IS NOT NULL AND l_Visit_rec.START_DATE <> fnd_api.g_miss_date THEN
2975: l_date_time_start := l_visit_rec.START_DATE;
2976: ELSE
2977: l_Visit_rec.START_DATE:= null;
2978: l_date_time_start := null;
2977: l_Visit_rec.START_DATE:= null;
2978: l_date_time_start := null;
2979: END IF;
2980:
2981: IF l_Visit_rec.PLAN_END_DATE IS NOT NULL AND l_Visit_rec.PLAN_END_DATE <> fnd_api.g_miss_date THEN
2982: l_date_time_end := l_visit_rec.PLAN_END_DATE;
2983: ELSE
2984: l_Visit_rec.START_DATE:= null;
2985: l_date_time_end := null;
2996: -- not allowed to update if status code is not planning, released or partially released.
2997: IF c_visit_rec.status_code NOT IN ('PLANNING','RELEASED', 'PARTIALLY RELEASED') THEN
2998: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_STATUS_NO_EDIT');
2999: Fnd_Msg_Pub.ADD;
3000: RAISE Fnd_Api.G_EXC_ERROR;
3001: END IF;
3002:
3003: -- Process fields that are only updateable when visit is in Planning status
3004: IF c_visit_rec.status_code = 'PLANNING' THEN
3003: -- Process fields that are only updateable when visit is in Planning status
3004: IF c_visit_rec.status_code = 'PLANNING' THEN
3005: ----- Dropdowns on Update Visit UI Screen-------------
3006: -- For SPACE CATEGORY CODE
3007: IF l_Visit_rec.space_category_code = Fnd_Api.G_MISS_CHAR THEN
3008: l_Visit_rec.space_category_code := Null;
3009: END IF;
3010:
3011: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3014:
3015: ----------- LOVs on Update Visit UI Screen---
3016: -- For VISIT TYPE
3017: -- To find Visit Type Code when Visit Type Name has input values
3018: IF l_Visit_rec.visit_type_name IS NOT NULL AND l_Visit_rec.visit_type_name <> Fnd_Api.G_MISS_CHAR THEN
3019: AHL_VWP_RULES_PVT.Check_Lookup_Name_Or_Id
3020: ( p_lookup_type => 'AHL_PLANNING_VISIT_TYPE',
3021: p_lookup_code => NULL,
3022: p_meaning => l_Visit_rec.visit_type_name,
3027:
3028: IF NVL(l_return_status, 'X') <> 'S' THEN
3029: Fnd_Message.SET_NAME('AHL','AHL_VWP_TYPE_CODE_NOT_EXISTS');
3030: Fnd_Msg_Pub.ADD;
3031: RAISE Fnd_Api.G_EXC_ERROR;
3032: END IF;
3033: END IF;
3034:
3035: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3038:
3039: -- For SERVICE REQUEST
3040: -- To Convert Service Request Number to Service Request Id
3041: IF (l_Visit_rec.service_request_number IS NOT NULL AND
3042: l_Visit_rec.service_request_number <> Fnd_Api.G_MISS_CHAR ) THEN
3043:
3044: AHL_VWP_RULES_PVT.Check_SR_Request_Number_Or_Id
3045: ( p_service_id => l_Visit_rec.service_request_id,
3046: p_service_number => l_Visit_rec.service_request_number,
3050:
3051: IF NVL(l_return_status,'x') <> 'S' THEN
3052: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERVICE_REQ_NOT_EXISTS');
3053: Fnd_Msg_Pub.ADD;
3054: RAISE Fnd_Api.g_exc_error;
3055: END IF;
3056:
3057: --Assign the returned value
3058: l_Visit_rec.service_request_id := l_service_id;
3063: END IF;
3064: ----------- End defining and validate all LOVs on Update Visit UI Screen---
3065: -- For Priority
3066: -- To Convert Priority Value to Code
3067: IF l_Visit_rec.priority_value IS NOT NULL AND l_Visit_rec.priority_value <> Fnd_Api.G_MISS_CHAR THEN
3068: AHL_VWP_RULES_PVT.Check_Lookup_Name_Or_Id
3069: (p_lookup_type => 'AHL_VWP_VISIT_PRIORITY',
3070: p_lookup_code => l_Visit_rec.priority_code,
3071: p_meaning => l_Visit_rec.priority_value,
3075:
3076: IF NVL(l_return_status, 'X') <> 'S' THEN
3077: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRI_NOT_EXISTS');
3078: Fnd_Msg_Pub.ADD;
3079: RAISE Fnd_Api.G_EXC_ERROR;
3080: END IF;
3081: l_visit_rec.priority_code := l_priority_code;
3082: END IF;
3083:
3082: END IF;
3083:
3084: -- For Organization
3085: -- To Convert Organization Name to ID
3086: IF (l_visit_rec.ORG_NAME IS NOT NULL AND l_visit_rec.ORG_NAME <> Fnd_Api.G_MISS_CHAR ) OR
3087: (l_visit_rec.organization_id IS NOT NULL AND l_visit_rec.organization_id <> Fnd_Api.G_MISS_NUM )
3088: THEN
3089: AHL_VWP_RULES_PVT.Check_Org_Name_Or_Id
3090: (p_organization_id => l_visit_rec.organization_id,
3083:
3084: -- For Organization
3085: -- To Convert Organization Name to ID
3086: IF (l_visit_rec.ORG_NAME IS NOT NULL AND l_visit_rec.ORG_NAME <> Fnd_Api.G_MISS_CHAR ) OR
3087: (l_visit_rec.organization_id IS NOT NULL AND l_visit_rec.organization_id <> Fnd_Api.G_MISS_NUM )
3088: THEN
3089: AHL_VWP_RULES_PVT.Check_Org_Name_Or_Id
3090: (p_organization_id => l_visit_rec.organization_id,
3091: p_org_name => l_visit_rec.ORG_NAME,
3095:
3096: IF NVL(l_return_status,'x') <> 'S' THEN
3097: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORG_NOT_EXISTS');
3098: Fnd_Msg_Pub.ADD;
3099: RAISE Fnd_Api.G_EXC_ERROR;
3100: END IF;
3101:
3102: l_visit_rec.organization_id := l_organization_id;
3103:
3105: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Organization ID' || l_visit_rec.organization_id);
3106: END IF;
3107: END IF;
3108:
3109: IF l_visit_rec.organization_id IS NULL OR l_visit_rec.organization_id = Fnd_Api.G_MISS_NUM THEN
3110: --Assign the department to Null if organization id is null
3111: l_visit_rec.department_id := NULL;
3112: l_visit_rec.organization_id:= NULL;
3113: ELSE
3110: --Assign the department to Null if organization id is null
3111: l_visit_rec.department_id := NULL;
3112: l_visit_rec.organization_id:= NULL;
3113: ELSE
3114: IF (l_visit_rec.DEPT_NAME IS NOT NULL AND l_visit_rec.DEPT_NAME <> Fnd_Api.G_MISS_CHAR )OR
3115: (l_visit_rec.department_id IS NOT NULL AND l_visit_rec.department_id <> Fnd_Api.G_MISS_NUM )
3116: THEN
3117: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3118: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Inside Dept Name/ID - '||l_visit_rec.DEPT_NAME ||' - '||l_visit_rec.department_id );
3111: l_visit_rec.department_id := NULL;
3112: l_visit_rec.organization_id:= NULL;
3113: ELSE
3114: IF (l_visit_rec.DEPT_NAME IS NOT NULL AND l_visit_rec.DEPT_NAME <> Fnd_Api.G_MISS_CHAR )OR
3115: (l_visit_rec.department_id IS NOT NULL AND l_visit_rec.department_id <> Fnd_Api.G_MISS_NUM )
3116: THEN
3117: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3118: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Inside Dept Name/ID - '||l_visit_rec.DEPT_NAME ||' - '||l_visit_rec.department_id );
3119: END IF;
3128:
3129: IF NVL(l_return_status,'x') <> 'S' THEN
3130: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
3131: Fnd_Msg_Pub.ADD;
3132: RAISE Fnd_Api.G_EXC_ERROR;
3133: END IF;
3134:
3135: l_visit_rec.department_id := l_department_id;
3136: AHL_VWP_RULES_PVT.CHECK_DEPARTMENT_SHIFT
3139:
3140: IF NVL(l_return_status,'x') <> 'S' THEN
3141: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
3142: Fnd_Msg_Pub.ADD;
3143: RAISE Fnd_Api.G_EXC_ERROR;
3144: END IF;
3145:
3146: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3147: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Department ID' || l_visit_rec.department_id);
3162:
3163: IF NVL(l_return_status, 'X') <> 'S' THEN
3164: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_PROTEMP');
3165: Fnd_Msg_Pub.ADD;
3166: RAISE Fnd_Api.G_EXC_ERROR;
3167: END IF;
3168: ELSE
3169: -- If Project Template Name is null
3170: -- then use the profile value
3174: IF (l_proj_template_id <> c_visit_rec.project_template_id) AND (c_visit_rec.project_id IS NOT NULL) THEN
3175: -- Project Template cannot be updated if Project has been created for Visit
3176: Fnd_Message.SET_NAME('AHL','AHL_VWP_PROJ_CRTD');
3177: Fnd_Msg_Pub.ADD;
3178: RAISE Fnd_Api.G_EXC_ERROR;
3179: ELSE
3180: l_visit_rec.proj_template_id := l_proj_template_id;
3181: END IF;
3182:
3185:
3186: IF ((l_visit_rec.subinventory IS NOT NULL) AND (l_visit_rec.locator_segment IS NULL)) THEN
3187: Fnd_Message.SET_NAME('AHL','AHL_VWP_LOCATOR_NULL');
3188: Fnd_Msg_Pub.ADD;
3189: RAISE Fnd_Api.G_EXC_ERROR;
3190: ELSIF ((l_visit_rec.subinventory IS NULL) AND (l_visit_rec.locator_segment IS NOT NULL))THEN
3191: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINVENTORY_NULL');
3192: Fnd_Msg_Pub.ADD;
3193: RAISE Fnd_Api.G_EXC_ERROR;
3189: RAISE Fnd_Api.G_EXC_ERROR;
3190: ELSIF ((l_visit_rec.subinventory IS NULL) AND (l_visit_rec.locator_segment IS NOT NULL))THEN
3191: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINVENTORY_NULL');
3192: Fnd_Msg_Pub.ADD;
3193: RAISE Fnd_Api.G_EXC_ERROR;
3194: ELSIF ((l_visit_rec.subinventory IS NOT NULL) AND (l_visit_rec.locator_segment IS NOT NULL)) THEN
3195:
3196: OPEN c_subinv_validate (l_visit_rec.subinventory, l_visit_rec.organization_id);
3197: FETCH c_subinv_validate INTO l_status_id;
3198: IF c_subinv_validate%NOTFOUND THEN
3199: CLOSE c_subinv_validate;
3200: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINV_NOT_EXISTS');
3201: Fnd_Msg_Pub.ADD;
3202: RAISE Fnd_Api.G_EXC_ERROR;
3203: ELSE
3204: 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
3205: CLOSE c_subinv_validate;
3206: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
3205: CLOSE c_subinv_validate;
3206: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
3207: FND_MESSAGE.Set_Token('INV', l_visit_rec.subinventory);
3208: FND_MSG_PUB.ADD;
3209: RAISE Fnd_Api.G_EXC_ERROR;
3210: END IF;
3211: END IF;
3212: CLOSE c_subinv_validate;
3213:
3218: IF c_loc_validate%NOTFOUND THEN
3219: Fnd_Message.SET_NAME('AHL','AHL_VWP_PHY_LOCATOR_NOT_EXISTS');
3220: Fnd_Msg_Pub.ADD;
3221: CLOSE c_loc_validate;
3222: RAISE Fnd_Api.G_EXC_ERROR;
3223: END IF;
3224: CLOSE c_loc_validate;
3225:
3226: l_visit_rec.inv_locator_id := l_inv_loc_id;
3254: IF c_visit_rec.status_code IN ('RELEASED', 'PARTIALLY RELEASED') THEN
3255: IF l_date_time_start IS NULL THEN
3256: Fnd_Message.SET_NAME('AHL','AHL_VWP_ST_DT_REQ');
3257: Fnd_Msg_Pub.ADD;
3258: RAISE FND_Api.G_EXC_ERROR;
3259: END IF;
3260:
3261: IF l_date_time_end IS NULL THEN
3262: Fnd_Message.SET_NAME('AHL','AHL_VWP_END_DT_REQ');
3260:
3261: IF l_date_time_end IS NULL THEN
3262: Fnd_Message.SET_NAME('AHL','AHL_VWP_END_DT_REQ');
3263: Fnd_Msg_Pub.ADD;
3264: RAISE FND_Api.G_EXC_ERROR;
3265: END IF;
3266: END IF;
3267:
3268: IF c_Visit_rec.unit_schedule_id IS NOT NULL AND c_Visit_rec.unit_schedule_id <> FND_API.G_MISS_NUM
3264: RAISE FND_Api.G_EXC_ERROR;
3265: END IF;
3266: END IF;
3267:
3268: IF c_Visit_rec.unit_schedule_id IS NOT NULL AND c_Visit_rec.unit_schedule_id <> FND_API.G_MISS_NUM
3269: THEN
3270: -- Planned Start Date is madatory for transit visit
3271: IF l_date_time_start IS NULL THEN
3272: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_ST_DT_REQ');
3270: -- Planned Start Date is madatory for transit visit
3271: IF l_date_time_start IS NULL THEN
3272: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_ST_DT_REQ');
3273: Fnd_Msg_Pub.ADD;
3274: RAISE FND_Api.G_EXC_ERROR;
3275: END IF;
3276:
3277: -- Planned End Date is madatory for transit visit
3278: IF l_date_time_end IS NULL THEN
3277: -- Planned End Date is madatory for transit visit
3278: IF l_date_time_end IS NULL THEN
3279: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_END_DT_REQ');
3280: Fnd_Msg_Pub.ADD;
3281: RAISE FND_Api.G_EXC_ERROR;
3282: END IF;
3283: END IF;
3284:
3285: -- To validate visit start date should be less than plan end date
3286: IF l_date_time_end IS NOT NULL AND l_date_time_start IS NOT NULL THEN
3287: IF (l_date_time_start > l_date_time_end) THEN
3288: Fnd_Message.SET_NAME('AHL','AHL_VWP_START_DT_GTR_CLOSE_DT');
3289: Fnd_Msg_Pub.ADD;
3290: RAISE Fnd_Api.G_EXC_ERROR;
3291: END IF;
3292: END IF;
3293: l_visit_rec.STATUS_CODE := c_Visit_rec.STATUS_CODE;
3294:
3322: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3323: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Check_Visit_Items : l_return_status - '|| l_return_status);
3324: END IF;
3325:
3326: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3327: RAISE Fnd_Api.g_exc_unexpected_error;
3328: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
3329: RAISE Fnd_Api.g_exc_error;
3330: END IF;
3323: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Check_Visit_Items : l_return_status - '|| l_return_status);
3324: END IF;
3325:
3326: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3327: RAISE Fnd_Api.g_exc_unexpected_error;
3328: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
3329: RAISE Fnd_Api.g_exc_error;
3330: END IF;
3331: END IF;
3324: END IF;
3325:
3326: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3327: RAISE Fnd_Api.g_exc_unexpected_error;
3328: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
3329: RAISE Fnd_Api.g_exc_error;
3330: END IF;
3331: END IF;
3332:
3325:
3326: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3327: RAISE Fnd_Api.g_exc_unexpected_error;
3328: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
3329: RAISE Fnd_Api.g_exc_error;
3330: END IF;
3331: END IF;
3332:
3333: -- if organization is changed, then reset all the task department and space changed flag
3360: END IF;
3361:
3362: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
3363: (p_api_version => 1.0,
3364: p_init_msg_list => FND_API.G_TRUE,
3365: p_commit => FND_API.G_FALSE,
3366: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3367: p_default => FND_API.G_FALSE,
3368: p_module_type => NULL,
3361:
3362: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
3363: (p_api_version => 1.0,
3364: p_init_msg_list => FND_API.G_TRUE,
3365: p_commit => FND_API.G_FALSE,
3366: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3367: p_default => FND_API.G_FALSE,
3368: p_module_type => NULL,
3369: x_return_status => l_return_status,
3362: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
3363: (p_api_version => 1.0,
3364: p_init_msg_list => FND_API.G_TRUE,
3365: p_commit => FND_API.G_FALSE,
3366: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3367: p_default => FND_API.G_FALSE,
3368: p_module_type => NULL,
3369: x_return_status => l_return_status,
3370: x_msg_count => l_msg_count,
3363: (p_api_version => 1.0,
3364: p_init_msg_list => FND_API.G_TRUE,
3365: p_commit => FND_API.G_FALSE,
3366: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3367: p_default => FND_API.G_FALSE,
3368: p_module_type => NULL,
3369: x_return_status => l_return_status,
3370: x_msg_count => l_msg_count,
3371: x_msg_data => l_msg_data,
3377: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
3378: END IF;
3379:
3380: IF l_return_status <> 'S' THEN
3381: RAISE Fnd_Api.G_EXC_ERROR;
3382: END IF;
3383: ELSE
3384: CLOSE c_visit_WO;
3385: END IF;
3402: END IF;
3403:
3404: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
3405: (p_api_version => 1.0,
3406: p_init_msg_list => FND_API.G_TRUE,
3407: p_commit => FND_API.G_FALSE,
3408: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3409: p_default => FND_API.G_FALSE,
3410: p_module_type => NULL,
3403:
3404: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
3405: (p_api_version => 1.0,
3406: p_init_msg_list => FND_API.G_TRUE,
3407: p_commit => FND_API.G_FALSE,
3408: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3409: p_default => FND_API.G_FALSE,
3410: p_module_type => NULL,
3411: x_return_status => l_return_status,
3404: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
3405: (p_api_version => 1.0,
3406: p_init_msg_list => FND_API.G_TRUE,
3407: p_commit => FND_API.G_FALSE,
3408: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3409: p_default => FND_API.G_FALSE,
3410: p_module_type => NULL,
3411: x_return_status => l_return_status,
3412: x_msg_count => l_msg_count,
3405: (p_api_version => 1.0,
3406: p_init_msg_list => FND_API.G_TRUE,
3407: p_commit => FND_API.G_FALSE,
3408: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3409: p_default => FND_API.G_FALSE,
3410: p_module_type => NULL,
3411: x_return_status => l_return_status,
3412: x_msg_count => l_msg_count,
3413: x_msg_data => l_msg_data,
3419: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
3420: END IF;
3421:
3422: IF l_return_status <> 'S' THEN
3423: RAISE Fnd_Api.G_EXC_ERROR;
3424: END IF;
3425: ELSE
3426: close c_visit_WO;
3427: END IF;
3446: END IF;
3447:
3448: AHL_PRD_WORKORDER_PVT.update_job
3449: ( p_api_version =>1.0,
3450: p_init_msg_list =>fnd_api.g_false,
3451: p_commit =>fnd_api.g_false,
3452: p_validation_level =>p_validation_level,
3453: p_default =>fnd_api.g_false,
3454: p_module_type =>'API',
3447:
3448: AHL_PRD_WORKORDER_PVT.update_job
3449: ( p_api_version =>1.0,
3450: p_init_msg_list =>fnd_api.g_false,
3451: p_commit =>fnd_api.g_false,
3452: p_validation_level =>p_validation_level,
3453: p_default =>fnd_api.g_false,
3454: p_module_type =>'API',
3455: x_return_status =>l_return_status,
3449: ( p_api_version =>1.0,
3450: p_init_msg_list =>fnd_api.g_false,
3451: p_commit =>fnd_api.g_false,
3452: p_validation_level =>p_validation_level,
3453: p_default =>fnd_api.g_false,
3454: p_module_type =>'API',
3455: x_return_status =>l_return_status,
3456: x_msg_count =>x_msg_count,
3457: x_msg_data =>x_msg_data,
3461: );
3462:
3463: IF l_return_status <> 'S' THEN
3464: CLOSE c_visit_WO;
3465: RAISE Fnd_Api.G_EXC_ERROR;
3466: END IF;
3467:
3468: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3469: 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);
3483: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - ID = ' || c_task_rec.visit_task_id);
3484: END IF;
3485:
3486: -- Update workorder for the task only if task is using visit department
3487: IF c_task_rec.department_id is null OR c_task_rec.department_id = FND_API.g_miss_num THEN
3488: OPEN c_Task_WO(c_task_rec.visit_task_id);
3489: FETCH c_Task_WO into l_task_workrec;
3490:
3491: IF c_Task_WO%found THEN
3505: END IF;
3506:
3507: AHL_PRD_WORKORDER_PVT.update_job
3508: ( p_api_version =>1.0,
3509: p_init_msg_list =>fnd_api.g_false,
3510: p_commit =>fnd_api.g_false,
3511: p_validation_level =>p_validation_level,
3512: p_default =>fnd_api.g_false,
3513: p_module_type =>'API',
3506:
3507: AHL_PRD_WORKORDER_PVT.update_job
3508: ( p_api_version =>1.0,
3509: p_init_msg_list =>fnd_api.g_false,
3510: p_commit =>fnd_api.g_false,
3511: p_validation_level =>p_validation_level,
3512: p_default =>fnd_api.g_false,
3513: p_module_type =>'API',
3514: x_return_status =>l_return_status,
3508: ( p_api_version =>1.0,
3509: p_init_msg_list =>fnd_api.g_false,
3510: p_commit =>fnd_api.g_false,
3511: p_validation_level =>p_validation_level,
3512: p_default =>fnd_api.g_false,
3513: p_module_type =>'API',
3514: x_return_status =>l_return_status,
3515: x_msg_count =>x_msg_count,
3516: x_msg_data =>x_msg_data,
3525:
3526: IF l_return_status <> 'S' THEN
3527: CLOSE c_Task_WO;
3528: CLOSE c_task;
3529: RAISE Fnd_Api.G_EXC_ERROR;
3530: END IF;
3531: END IF;
3532: CLOSE c_Task_WO;
3533: END IF;
3612:
3613: -- Added cxcheng POST11510--------------
3614: AHL_VWP_TIMES_PVT.Calculate_Task_Times
3615: ( p_api_version => 1.0,
3616: p_init_msg_list => Fnd_Api.G_FALSE,
3617: p_commit => Fnd_Api.G_FALSE,
3618: p_validation_level=> Fnd_Api.G_VALID_LEVEL_FULL,
3619: x_return_status => l_return_status,
3620: x_msg_count => l_msg_count,
3613: -- Added cxcheng POST11510--------------
3614: AHL_VWP_TIMES_PVT.Calculate_Task_Times
3615: ( p_api_version => 1.0,
3616: p_init_msg_list => Fnd_Api.G_FALSE,
3617: p_commit => Fnd_Api.G_FALSE,
3618: p_validation_level=> Fnd_Api.G_VALID_LEVEL_FULL,
3619: x_return_status => l_return_status,
3620: x_msg_count => l_msg_count,
3621: x_msg_data => l_msg_data,
3614: AHL_VWP_TIMES_PVT.Calculate_Task_Times
3615: ( p_api_version => 1.0,
3616: p_init_msg_list => Fnd_Api.G_FALSE,
3617: p_commit => Fnd_Api.G_FALSE,
3618: p_validation_level=> Fnd_Api.G_VALID_LEVEL_FULL,
3619: x_return_status => l_return_status,
3620: x_msg_count => l_msg_count,
3621: x_msg_data => l_msg_data,
3622: p_visit_id => l_visit_rec.visit_id);
3625: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times - l_return_status : '||l_return_status);
3626: END IF;
3627:
3628: IF l_return_status <> 'S' THEN
3629: RAISE Fnd_Api.G_EXC_ERROR;
3630: END IF;
3631:
3632: -- To call LTP process to delete or adjust space assignments if space changed flag is set to "Y"
3633: IF space_changed_flag = 'Y' THEN
3637:
3638: l_Space_Assignment_Rec.VISIT_ID := l_Visit_rec.VISIT_ID;
3639: AHL_LTP_SPACE_ASSIGN_PVT.Delete_Space_assignment
3640: ( p_api_version => 1.0,
3641: p_init_msg_list => FND_API.g_false,
3642: p_commit => FND_API.g_false,
3643: p_validation_level => FND_API.g_valid_level_full,
3644: p_space_assign_rec => l_Space_Assignment_Rec,
3645: x_return_status => l_return_status,
3638: l_Space_Assignment_Rec.VISIT_ID := l_Visit_rec.VISIT_ID;
3639: AHL_LTP_SPACE_ASSIGN_PVT.Delete_Space_assignment
3640: ( p_api_version => 1.0,
3641: p_init_msg_list => FND_API.g_false,
3642: p_commit => FND_API.g_false,
3643: p_validation_level => FND_API.g_valid_level_full,
3644: p_space_assign_rec => l_Space_Assignment_Rec,
3645: x_return_status => l_return_status,
3646: x_msg_count => x_msg_count,
3639: AHL_LTP_SPACE_ASSIGN_PVT.Delete_Space_assignment
3640: ( p_api_version => 1.0,
3641: p_init_msg_list => FND_API.g_false,
3642: p_commit => FND_API.g_false,
3643: p_validation_level => FND_API.g_valid_level_full,
3644: p_space_assign_rec => l_Space_Assignment_Rec,
3645: x_return_status => l_return_status,
3646: x_msg_count => x_msg_count,
3647: x_msg_data => x_msg_data
3651: 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);
3652: END IF;
3653:
3654: IF l_return_status <> 'S' THEN
3655: RAISE Fnd_Api.G_EXC_ERROR;
3656: END IF;
3657: END IF;
3658:
3659: -- If Visit DEPARTMENT or ORGANIZATION or Start Date is changed after price/cost is estimated,
3703: -- else if any of them is updated then AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials is invoked with operation flag 'U' as earlier.
3704:
3705: IF (( c_visit_rec.organization_id IS NOT NULL AND c_visit_rec.department_id IS NOT NULL AND
3706: c_Visit_rec.START_DATE_TIME IS NOT NULL )
3707: AND ( l_date_time_start IS NULL OR l_date_time_start = Fnd_Api.G_MISS_DATE OR
3708: l_visit_rec.organization_id IS NULL OR l_visit_rec.organization_id = Fnd_Api.G_MISS_NUM OR
3709: l_visit_rec.department_id IS NULL OR l_visit_rec.department_id = Fnd_Api.G_MISS_NUM ))
3710: THEN
3711: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3704:
3705: IF (( c_visit_rec.organization_id IS NOT NULL AND c_visit_rec.department_id IS NOT NULL AND
3706: c_Visit_rec.START_DATE_TIME IS NOT NULL )
3707: AND ( l_date_time_start IS NULL OR l_date_time_start = Fnd_Api.G_MISS_DATE OR
3708: l_visit_rec.organization_id IS NULL OR l_visit_rec.organization_id = Fnd_Api.G_MISS_NUM OR
3709: l_visit_rec.department_id IS NULL OR l_visit_rec.department_id = Fnd_Api.G_MISS_NUM ))
3710: THEN
3711: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3712: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
3705: IF (( c_visit_rec.organization_id IS NOT NULL AND c_visit_rec.department_id IS NOT NULL AND
3706: c_Visit_rec.START_DATE_TIME IS NOT NULL )
3707: AND ( l_date_time_start IS NULL OR l_date_time_start = Fnd_Api.G_MISS_DATE OR
3708: l_visit_rec.organization_id IS NULL OR l_visit_rec.organization_id = Fnd_Api.G_MISS_NUM OR
3709: l_visit_rec.department_id IS NULL OR l_visit_rec.department_id = Fnd_Api.G_MISS_NUM ))
3710: THEN
3711: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3712: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
3713: END IF;
3713: END IF;
3714:
3715: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
3716: p_api_version => 1.0,
3717: p_init_msg_list => FND_API.g_false,
3718: p_commit => FND_API.g_false,
3719: p_validation_level => FND_API.g_valid_level_full,
3720: p_visit_id => l_visit_rec.Visit_Id,
3721: p_visit_task_id => NULL,
3714:
3715: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
3716: p_api_version => 1.0,
3717: p_init_msg_list => FND_API.g_false,
3718: p_commit => FND_API.g_false,
3719: p_validation_level => FND_API.g_valid_level_full,
3720: p_visit_id => l_visit_rec.Visit_Id,
3721: p_visit_task_id => NULL,
3722: p_org_id => l_visit_rec.organization_id,
3715: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
3716: p_api_version => 1.0,
3717: p_init_msg_list => FND_API.g_false,
3718: p_commit => FND_API.g_false,
3719: p_validation_level => FND_API.g_valid_level_full,
3720: p_visit_id => l_visit_rec.Visit_Id,
3721: p_visit_task_id => NULL,
3722: p_org_id => l_visit_rec.organization_id,
3723: p_start_date => l_date_time_start,
3730: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3731: 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);
3732: END IF;
3733:
3734: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3735: RAISE FND_API.G_EXC_ERROR;
3736: END IF;
3737: 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'))
3738: OR NVL(l_visit_rec.organization_id,-777) <> NVL(c_visit_rec.organization_id,-777)
3731: 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);
3732: END IF;
3733:
3734: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3735: RAISE FND_API.G_EXC_ERROR;
3736: END IF;
3737: 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'))
3738: OR NVL(l_visit_rec.organization_id,-777) <> NVL(c_visit_rec.organization_id,-777)
3739: OR NVL(l_visit_rec.department_id,-777) <> NVL(c_visit_rec.department_id,-777))
3736: END IF;
3737: 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'))
3738: OR NVL(l_visit_rec.organization_id,-777) <> NVL(c_visit_rec.organization_id,-777)
3739: OR NVL(l_visit_rec.department_id,-777) <> NVL(c_visit_rec.department_id,-777))
3740: AND ( l_date_time_start IS NOT NULL AND l_date_time_start <> Fnd_Api.G_MISS_DATE
3741: AND l_visit_rec.organization_id IS NOT NULL AND l_visit_rec.organization_id <> Fnd_Api.G_MISS_NUM
3742: AND l_visit_rec.department_id IS NOT NULL AND l_visit_rec.department_id <> Fnd_Api.G_MISS_NUM )
3743: THEN
3744: /*AHL_DEBUG_PUB.Debug( l_full_name ||': VISIT UPDATED - Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
3737: 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'))
3738: OR NVL(l_visit_rec.organization_id,-777) <> NVL(c_visit_rec.organization_id,-777)
3739: OR NVL(l_visit_rec.department_id,-777) <> NVL(c_visit_rec.department_id,-777))
3740: AND ( l_date_time_start IS NOT NULL AND l_date_time_start <> Fnd_Api.G_MISS_DATE
3741: AND l_visit_rec.organization_id IS NOT NULL AND l_visit_rec.organization_id <> Fnd_Api.G_MISS_NUM
3742: AND l_visit_rec.department_id IS NOT NULL AND l_visit_rec.department_id <> Fnd_Api.G_MISS_NUM )
3743: THEN
3744: /*AHL_DEBUG_PUB.Debug( l_full_name ||': VISIT UPDATED - Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
3745: ELSIF (
3738: OR NVL(l_visit_rec.organization_id,-777) <> NVL(c_visit_rec.organization_id,-777)
3739: OR NVL(l_visit_rec.department_id,-777) <> NVL(c_visit_rec.department_id,-777))
3740: AND ( l_date_time_start IS NOT NULL AND l_date_time_start <> Fnd_Api.G_MISS_DATE
3741: AND l_visit_rec.organization_id IS NOT NULL AND l_visit_rec.organization_id <> Fnd_Api.G_MISS_NUM
3742: AND l_visit_rec.department_id IS NOT NULL AND l_visit_rec.department_id <> Fnd_Api.G_MISS_NUM )
3743: THEN
3744: /*AHL_DEBUG_PUB.Debug( l_full_name ||': VISIT UPDATED - Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
3745: ELSIF (
3746: ( l_date_time_start <> c_Visit_rec.START_DATE_TIME)
3752: END IF;
3753:
3754: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
3755: p_api_version => 1.0,
3756: p_init_msg_list => FND_API.g_false,
3757: p_commit => FND_API.g_false,
3758: p_validation_level => FND_API.g_valid_level_full,
3759: p_visit_id => l_visit_rec.Visit_Id,
3760: p_visit_task_id => NULL,
3753:
3754: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
3755: p_api_version => 1.0,
3756: p_init_msg_list => FND_API.g_false,
3757: p_commit => FND_API.g_false,
3758: p_validation_level => FND_API.g_valid_level_full,
3759: p_visit_id => l_visit_rec.Visit_Id,
3760: p_visit_task_id => NULL,
3761: p_org_id => l_visit_rec.organization_id,
3754: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
3755: p_api_version => 1.0,
3756: p_init_msg_list => FND_API.g_false,
3757: p_commit => FND_API.g_false,
3758: p_validation_level => FND_API.g_valid_level_full,
3759: p_visit_id => l_visit_rec.Visit_Id,
3760: p_visit_task_id => NULL,
3761: p_org_id => l_visit_rec.organization_id,
3762: p_start_date => l_date_time_start,
3769: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3770: 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);
3771: END IF;
3772:
3773: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3774: RAISE FND_API.G_EXC_ERROR;
3775: END IF;
3776: END IF;
3777:
3770: 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);
3771: END IF;
3772:
3773: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3774: RAISE FND_API.G_EXC_ERROR;
3775: END IF;
3776: END IF;
3777:
3778: -- Set any task changed flag to "Y" if start/end date changed
3783: p_visit_id => l_Visit_rec.visit_id,
3784: p_flag => 'Y',
3785: x_return_status => l_return_status);
3786:
3787: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3788: RAISE FND_API.G_EXC_ERROR;
3789: END IF;
3790: END IF;
3791:
3784: p_flag => 'Y',
3785: x_return_status => l_return_status);
3786:
3787: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3788: RAISE FND_API.G_EXC_ERROR;
3789: END IF;
3790: END IF;
3791:
3792: l_msg_count := Fnd_Msg_Pub.count_msg;
3791:
3792: l_msg_count := Fnd_Msg_Pub.count_msg;
3793: IF l_msg_count > 0 THEN
3794: X_msg_count := l_msg_count;
3795: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3796: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3797: END IF;
3798:
3799: --Standard check for commit
3792: l_msg_count := Fnd_Msg_Pub.count_msg;
3793: IF l_msg_count > 0 THEN
3794: X_msg_count := l_msg_count;
3795: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3796: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3797: END IF;
3798:
3799: --Standard check for commit
3800: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3796: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3797: END IF;
3798:
3799: --Standard check for commit
3800: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3801: COMMIT;
3802: END IF;
3803:
3804: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3804: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3805: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
3806: END IF;
3807: EXCEPTION
3808: WHEN Fnd_Api.g_exc_error THEN
3809: ROLLBACK TO Update_Visit;
3810: x_return_status := Fnd_Api.g_ret_sts_error;
3811: Fnd_Msg_Pub.count_and_get (
3812: p_encoded => Fnd_Api.g_false,
3806: END IF;
3807: EXCEPTION
3808: WHEN Fnd_Api.g_exc_error THEN
3809: ROLLBACK TO Update_Visit;
3810: x_return_status := Fnd_Api.g_ret_sts_error;
3811: Fnd_Msg_Pub.count_and_get (
3812: p_encoded => Fnd_Api.g_false,
3813: p_count => x_msg_count,
3814: p_data => x_msg_data
3808: WHEN Fnd_Api.g_exc_error THEN
3809: ROLLBACK TO Update_Visit;
3810: x_return_status := Fnd_Api.g_ret_sts_error;
3811: Fnd_Msg_Pub.count_and_get (
3812: p_encoded => Fnd_Api.g_false,
3813: p_count => x_msg_count,
3814: p_data => x_msg_data
3815: );
3816: WHEN Fnd_Api.g_exc_unexpected_error THEN
3812: p_encoded => Fnd_Api.g_false,
3813: p_count => x_msg_count,
3814: p_data => x_msg_data
3815: );
3816: WHEN Fnd_Api.g_exc_unexpected_error THEN
3817: ROLLBACK TO Update_Visit;
3818: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3819: Fnd_Msg_Pub.count_and_get (
3820: p_encoded => Fnd_Api.g_false,
3814: p_data => x_msg_data
3815: );
3816: WHEN Fnd_Api.g_exc_unexpected_error THEN
3817: ROLLBACK TO Update_Visit;
3818: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3819: Fnd_Msg_Pub.count_and_get (
3820: p_encoded => Fnd_Api.g_false,
3821: p_count => x_msg_count,
3822: p_data => x_msg_data
3816: WHEN Fnd_Api.g_exc_unexpected_error THEN
3817: ROLLBACK TO Update_Visit;
3818: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3819: Fnd_Msg_Pub.count_and_get (
3820: p_encoded => Fnd_Api.g_false,
3821: p_count => x_msg_count,
3822: p_data => x_msg_data
3823: );
3824: WHEN OTHERS THEN
3822: p_data => x_msg_data
3823: );
3824: WHEN OTHERS THEN
3825: ROLLBACK TO Update_Visit;
3826: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3827: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3828: THEN
3829: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3830: END IF;
3828: THEN
3829: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3830: END IF;
3831: Fnd_Msg_Pub.count_and_get (
3832: p_encoded => Fnd_Api.g_false,
3833: p_count => x_msg_count,
3834: p_data => x_msg_data
3835: );
3836: END Update_Visit;
3842: --------------------------------------------------------------------
3843:
3844: PROCEDURE Delete_Task (
3845: p_api_version IN NUMBER,
3846: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3847: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3848: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3849: p_module_type IN VARCHAR2 := Null,
3850: p_Visit_Task_Id IN NUMBER,
3843:
3844: PROCEDURE Delete_Task (
3845: p_api_version IN NUMBER,
3846: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3847: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3848: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3849: p_module_type IN VARCHAR2 := Null,
3850: p_Visit_Task_Id IN NUMBER,
3851: x_return_status OUT NOCOPY VARCHAR2,
3844: PROCEDURE Delete_Task (
3845: p_api_version IN NUMBER,
3846: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3847: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3848: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3849: p_module_type IN VARCHAR2 := Null,
3850: p_Visit_Task_Id IN NUMBER,
3851: x_return_status OUT NOCOPY VARCHAR2,
3852: x_msg_count OUT NOCOPY NUMBER,
3919:
3920: AHL_VWP_PROJ_PROD_PVT.Delete_Task_To_project(
3921: p_api_version => p_api_version,
3922: p_init_msg_list => p_init_msg_list,
3923: p_commit => Fnd_Api.g_false,
3924: p_validation_level => p_validation_level,
3925: p_module_type => p_module_type,
3926: p_visit_task_id => p_Visit_Task_Id,
3927: x_return_status => x_return_status,
3927: x_return_status => x_return_status,
3928: x_msg_count => x_msg_count,
3929: x_msg_data => x_msg_data);
3930:
3931: IF NVL(x_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS
3932: THEN
3933: -- Method call was not successful, raise error
3934: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_TASK_FAILED');
3935: Fnd_Msg_Pub.ADD;
3940: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
3941: 'Failed to delete project task association for task '||p_visit_task_id
3942: );
3943: END IF;
3944: RAISE Fnd_Api.G_EXC_ERROR;
3945: END IF;
3946:
3947: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3948: fnd_log.string
3964: --------------------------------------------------------------------
3965:
3966: PROCEDURE Delete_Visit (
3967: p_api_version IN NUMBER,
3968: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3969: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3970: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3971: p_visit_id IN NUMBER,
3972: x_return_status OUT NOCOPY VARCHAR2,
3965:
3966: PROCEDURE Delete_Visit (
3967: p_api_version IN NUMBER,
3968: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3969: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3970: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3971: p_visit_id IN NUMBER,
3972: x_return_status OUT NOCOPY VARCHAR2,
3973: x_msg_count OUT NOCOPY NUMBER,
3966: PROCEDURE Delete_Visit (
3967: p_api_version IN NUMBER,
3968: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3969: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3970: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3971: p_visit_id IN NUMBER,
3972: x_return_status OUT NOCOPY VARCHAR2,
3973: x_msg_count OUT NOCOPY NUMBER,
3974: x_msg_data OUT NOCOPY VARCHAR2
4057: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
4058: END IF;
4059:
4060: -- Initialize message list if p_init_msg_list is set to TRUE.
4061: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
4062: Fnd_Msg_Pub.initialize;
4063: END IF;
4064:
4065: --Initialize API return status to success
4062: Fnd_Msg_Pub.initialize;
4063: END IF;
4064:
4065: --Initialize API return status to success
4066: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4067:
4068: -- Standard call to check for call compatibility.
4069: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
4070: p_api_version,
4065: --Initialize API return status to success
4066: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4067:
4068: -- Standard call to check for call compatibility.
4069: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
4070: p_api_version,
4071: l_api_name,G_PKG_NAME) THEN
4072: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4073: END IF;
4068: -- Standard call to check for call compatibility.
4069: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
4070: p_api_version,
4071: l_api_name,G_PKG_NAME) THEN
4072: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4073: END IF;
4074: ------------------------Start of API Body------------------------------------
4075: ------------------------ Delete ------------------------
4076: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4087: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4088: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Record not found for the visit with ID'||p_visit_id);
4089: END IF;
4090: END IF;
4091: RAISE Fnd_Api.g_exc_error;
4092: END IF;
4093: CLOSE c_Visit;
4094:
4095: -- Check the status of visit, if 'planning' then only delete
4098: Fnd_Msg_Pub.ADD;
4099: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4100: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit is in invalid status for deletion. Visit ID: '||p_visit_id);
4101: END IF;
4102: RAISE Fnd_Api.G_EXC_ERROR;
4103: END IF;
4104:
4105: -- To Check if any materials are schedueled for the visit
4106: OPEN c_Material(p_visit_id);
4114:
4115: -- Removing planned materials for the visit
4116: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
4117: (p_api_version => p_api_version,
4118: p_init_msg_list => Fnd_Api.G_FALSE,
4119: p_commit => Fnd_Api.G_FALSE,
4120: p_visit_id => p_visit_id,
4121: p_visit_task_id => NULL,
4122: p_org_id => NULL,
4115: -- Removing planned materials for the visit
4116: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
4117: (p_api_version => p_api_version,
4118: p_init_msg_list => Fnd_Api.G_FALSE,
4119: p_commit => Fnd_Api.G_FALSE,
4120: p_visit_id => p_visit_id,
4121: p_visit_task_id => NULL,
4122: p_org_id => NULL,
4123: p_start_date => NULL,
4130: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4131: 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);
4132: END IF;
4133:
4134: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4135: CLOSE c_Material;
4136: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4137: END IF;
4138: END IF;
4132: END IF;
4133:
4134: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4135: CLOSE c_Material;
4136: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4137: END IF;
4138: END IF;
4139: CLOSE c_Material;
4140:
4155: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4156: 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);
4157: END IF;
4158:
4159: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4160: -- Check Error Message stack.
4161: x_msg_count := FND_MSG_PUB.count_msg;
4162: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4163: fnd_log.string (fnd_log.level_statement,L_DEBUG,'Errors from delete_simul_visits: ' || x_msg_count );
4161: x_msg_count := FND_MSG_PUB.count_msg;
4162: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4163: fnd_log.string (fnd_log.level_statement,L_DEBUG,'Errors from delete_simul_visits: ' || x_msg_count );
4164: END IF;
4165: RAISE Fnd_Api.g_exc_error;
4166: END IF;
4167:
4168: -- Check for to delete the visit's tasks
4169: OPEN c_Tasks_csr(p_visit_id);
4192: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4193: fnd_log.string (fnd_log.level_statement,L_DEBUG,'After calling Delete_Task - l_return_status : '||l_return_status);
4194: END IF;
4195:
4196: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4197: CLOSE c_Tasks_csr;
4198: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_DEL_FAILED');
4199: Fnd_Message.SET_TOKEN('TASK_NAME',l_tasks_rec.visit_task_number);
4200: Fnd_Msg_Pub.ADD;
4197: CLOSE c_Tasks_csr;
4198: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_DEL_FAILED');
4199: Fnd_Message.SET_TOKEN('TASK_NAME',l_tasks_rec.visit_task_number);
4200: Fnd_Msg_Pub.ADD;
4201: RAISE Fnd_Api.G_EXC_ERROR;
4202: END IF;
4203: END LOOP;
4204: CLOSE c_Tasks_csr;
4205:
4228: END IF;
4229:
4230: AHL_PRD_WORKORDER_PVT.update_job
4231: ( p_api_version =>1.0,
4232: p_init_msg_list =>fnd_api.g_false,
4233: p_commit =>fnd_api.g_false,
4234: p_validation_level =>p_validation_level,
4235: p_default =>fnd_api.g_false,
4236: p_module_type =>NULL,
4229:
4230: AHL_PRD_WORKORDER_PVT.update_job
4231: ( p_api_version =>1.0,
4232: p_init_msg_list =>fnd_api.g_false,
4233: p_commit =>fnd_api.g_false,
4234: p_validation_level =>p_validation_level,
4235: p_default =>fnd_api.g_false,
4236: p_module_type =>NULL,
4237: x_return_status =>l_return_status,
4231: ( p_api_version =>1.0,
4232: p_init_msg_list =>fnd_api.g_false,
4233: p_commit =>fnd_api.g_false,
4234: p_validation_level =>p_validation_level,
4235: p_default =>fnd_api.g_false,
4236: p_module_type =>NULL,
4237: x_return_status =>l_return_status,
4238: x_msg_count =>x_msg_count,
4239: x_msg_data =>x_msg_data,
4245: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4246: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_PRD_WORKORDER_PVT.update_job - l_return_status : '||l_return_status);
4247: END IF;
4248:
4249: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4250: CLOSE c_active_workorder;
4251: CLOSE c_workorder_csr;
4252: RAISE Fnd_Api.G_EXC_ERROR;
4253: END IF;
4248:
4249: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4250: CLOSE c_active_workorder;
4251: CLOSE c_workorder_csr;
4252: RAISE Fnd_Api.G_EXC_ERROR;
4253: END IF;
4254: END IF;
4255: CLOSE c_active_workorder;
4256: END IF;
4283: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4284: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_PROJ_PROD_PVT.Update_project - l_return_status : '||l_return_status);
4285: END IF;
4286:
4287: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4288: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_UPDATE_FAILED'); -- Failed to update job
4289: Fnd_Msg_Pub.ADD;
4290: RAISE Fnd_Api.G_EXC_ERROR;
4291: END IF;
4286:
4287: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4288: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_UPDATE_FAILED'); -- Failed to update job
4289: Fnd_Msg_Pub.ADD;
4290: RAISE Fnd_Api.G_EXC_ERROR;
4291: END IF;
4292: ELSE
4293: -- When a visit is hard deleted than the related projects is also deleted
4294: -- Call Delete_Project local procedure to delete project and its tasks
4310: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4311: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_PROJ_PROD_PVT.Delete_Project - l_return_status : '||l_return_status);
4312: END IF;
4313:
4314: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4315: -- Method call was not successful, raise error
4316: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_DEL_FAILED');
4317: Fnd_Msg_Pub.ADD;
4318: RAISE Fnd_Api.G_EXC_ERROR;
4314: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4315: -- Method call was not successful, raise error
4316: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_DEL_FAILED');
4317: Fnd_Msg_Pub.ADD;
4318: RAISE Fnd_Api.G_EXC_ERROR;
4319: END IF;
4320: END IF; -- soft delete flag
4321: END IF; -- project id not null
4322:
4341: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4342: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_VISITS_STAGES_PVT.DELETE_STAGES - l_return_status : '||l_return_status );
4343: END IF;
4344:
4345: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4346: RAISE Fnd_Api.G_EXC_ERROR;
4347: END IF;
4348:
4349: DELETE FROM ahl_visit_tasks_b
4342: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_VISITS_STAGES_PVT.DELETE_STAGES - l_return_status : '||l_return_status );
4343: END IF;
4344:
4345: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4346: RAISE Fnd_Api.G_EXC_ERROR;
4347: END IF;
4348:
4349: DELETE FROM ahl_visit_tasks_b
4350: WHERE visit_id = p_visit_id;
4364: l_msg_count := Fnd_Msg_Pub.count_msg;
4365:
4366: IF l_msg_count > 0 THEN
4367: X_msg_count := l_msg_count;
4368: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4369: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4370: END IF;
4371:
4372: --Standard check for commit
4365:
4366: IF l_msg_count > 0 THEN
4367: X_msg_count := l_msg_count;
4368: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4369: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4370: END IF;
4371:
4372: --Standard check for commit
4373: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4369: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4370: END IF;
4371:
4372: --Standard check for commit
4373: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4374: COMMIT;
4375: END IF;
4376:
4377: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4377: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4378: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
4379: END IF;
4380: EXCEPTION
4381: WHEN Fnd_Api.g_exc_error THEN
4382: ROLLBACK TO Delete_Visit;
4383: x_return_status := Fnd_Api.g_ret_sts_error;
4384: Fnd_Msg_Pub.count_and_get (
4385: p_encoded => Fnd_Api.g_false,
4379: END IF;
4380: EXCEPTION
4381: WHEN Fnd_Api.g_exc_error THEN
4382: ROLLBACK TO Delete_Visit;
4383: x_return_status := Fnd_Api.g_ret_sts_error;
4384: Fnd_Msg_Pub.count_and_get (
4385: p_encoded => Fnd_Api.g_false,
4386: p_count => x_msg_count,
4387: p_data => x_msg_data
4381: WHEN Fnd_Api.g_exc_error THEN
4382: ROLLBACK TO Delete_Visit;
4383: x_return_status := Fnd_Api.g_ret_sts_error;
4384: Fnd_Msg_Pub.count_and_get (
4385: p_encoded => Fnd_Api.g_false,
4386: p_count => x_msg_count,
4387: p_data => x_msg_data
4388: );
4389: WHEN Fnd_Api.g_exc_unexpected_error THEN
4385: p_encoded => Fnd_Api.g_false,
4386: p_count => x_msg_count,
4387: p_data => x_msg_data
4388: );
4389: WHEN Fnd_Api.g_exc_unexpected_error THEN
4390: ROLLBACK TO Delete_Visit;
4391: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4392: Fnd_Msg_Pub.count_and_get (
4393: p_encoded => Fnd_Api.g_false,
4387: p_data => x_msg_data
4388: );
4389: WHEN Fnd_Api.g_exc_unexpected_error THEN
4390: ROLLBACK TO Delete_Visit;
4391: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4392: Fnd_Msg_Pub.count_and_get (
4393: p_encoded => Fnd_Api.g_false,
4394: p_count => x_msg_count,
4395: p_data => x_msg_data
4389: WHEN Fnd_Api.g_exc_unexpected_error THEN
4390: ROLLBACK TO Delete_Visit;
4391: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4392: Fnd_Msg_Pub.count_and_get (
4393: p_encoded => Fnd_Api.g_false,
4394: p_count => x_msg_count,
4395: p_data => x_msg_data
4396: );
4397: WHEN OTHERS THEN
4395: p_data => x_msg_data
4396: );
4397: WHEN OTHERS THEN
4398: ROLLBACK TO Delete_Visit;
4399: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4400: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4401: THEN
4402: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4403: END IF;
4401: THEN
4402: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4403: END IF;
4404: Fnd_Msg_Pub.count_and_get (
4405: p_encoded => Fnd_Api.g_false,
4406: p_count => x_msg_count,
4407: p_data => x_msg_data
4408: );
4409: END Delete_Visit;
4413: --
4414: --------------------------------------------------------------------
4415: PROCEDURE Validate_Visit (
4416: p_api_version IN NUMBER,
4417: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4418: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4419: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4420: p_Visit_rec IN Visit_Rec_Type,
4421: x_return_status OUT NOCOPY VARCHAR2,
4414: --------------------------------------------------------------------
4415: PROCEDURE Validate_Visit (
4416: p_api_version IN NUMBER,
4417: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4418: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4419: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4420: p_Visit_rec IN Visit_Rec_Type,
4421: x_return_status OUT NOCOPY VARCHAR2,
4422: x_msg_count OUT NOCOPY NUMBER,
4415: PROCEDURE Validate_Visit (
4416: p_api_version IN NUMBER,
4417: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4418: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4419: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4420: p_Visit_rec IN Visit_Rec_Type,
4421: x_return_status OUT NOCOPY VARCHAR2,
4422: x_msg_count OUT NOCOPY NUMBER,
4423: x_msg_data OUT NOCOPY VARCHAR2
4435: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4436: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
4437: END IF;
4438:
4439: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
4440: Fnd_Msg_Pub.initialize;
4441: END IF;
4442:
4443: IF NOT Fnd_Api.compatible_api_call (
4439: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
4440: Fnd_Msg_Pub.initialize;
4441: END IF;
4442:
4443: IF NOT Fnd_Api.compatible_api_call (
4444: l_api_version,
4445: p_api_version,
4446: l_api_name,
4447: G_PKG_NAME
4445: p_api_version,
4446: l_api_name,
4447: G_PKG_NAME
4448: ) THEN
4449: RAISE Fnd_Api.g_exc_unexpected_error;
4450: END IF;
4451: x_return_status := Fnd_Api.g_ret_sts_success;
4452:
4453: ---------------------- validate ------------------------
4447: G_PKG_NAME
4448: ) THEN
4449: RAISE Fnd_Api.g_exc_unexpected_error;
4450: END IF;
4451: x_return_status := Fnd_Api.g_ret_sts_success;
4452:
4453: ---------------------- validate ------------------------
4454: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4455: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Calling Check_Visit_Items');
4465: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4466: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Check_Visit_Items - l_return_status : '||l_return_status);
4467: END IF;
4468:
4469: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4470: RAISE Fnd_Api.g_exc_unexpected_error;
4471: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4472: RAISE Fnd_Api.g_exc_error;
4473: END IF;
4466: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Check_Visit_Items - l_return_status : '||l_return_status);
4467: END IF;
4468:
4469: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4470: RAISE Fnd_Api.g_exc_unexpected_error;
4471: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4472: RAISE Fnd_Api.g_exc_error;
4473: END IF;
4474: END IF;
4467: END IF;
4468:
4469: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4470: RAISE Fnd_Api.g_exc_unexpected_error;
4471: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4472: RAISE Fnd_Api.g_exc_error;
4473: END IF;
4474: END IF;
4475: -------------------- finish --------------------------
4468:
4469: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4470: RAISE Fnd_Api.g_exc_unexpected_error;
4471: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4472: RAISE Fnd_Api.g_exc_error;
4473: END IF;
4474: END IF;
4475: -------------------- finish --------------------------
4476: Fnd_Msg_Pub.count_and_get (
4473: END IF;
4474: END IF;
4475: -------------------- finish --------------------------
4476: Fnd_Msg_Pub.count_and_get (
4477: p_encoded => Fnd_Api.g_false,
4478: p_count => x_msg_count,
4479: p_data => x_msg_data
4480: );
4481:
4483: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
4484: END IF;
4485:
4486: EXCEPTION
4487: WHEN Fnd_Api.g_exc_error THEN
4488: x_return_status := Fnd_Api.g_ret_sts_error;
4489: Fnd_Msg_Pub.count_and_get (
4490: p_encoded => Fnd_Api.g_false,
4491: p_count => x_msg_count,
4484: END IF;
4485:
4486: EXCEPTION
4487: WHEN Fnd_Api.g_exc_error THEN
4488: x_return_status := Fnd_Api.g_ret_sts_error;
4489: Fnd_Msg_Pub.count_and_get (
4490: p_encoded => Fnd_Api.g_false,
4491: p_count => x_msg_count,
4492: p_data => x_msg_data
4486: EXCEPTION
4487: WHEN Fnd_Api.g_exc_error THEN
4488: x_return_status := Fnd_Api.g_ret_sts_error;
4489: Fnd_Msg_Pub.count_and_get (
4490: p_encoded => Fnd_Api.g_false,
4491: p_count => x_msg_count,
4492: p_data => x_msg_data
4493: );
4494: WHEN Fnd_Api.g_exc_unexpected_error THEN
4490: p_encoded => Fnd_Api.g_false,
4491: p_count => x_msg_count,
4492: p_data => x_msg_data
4493: );
4494: WHEN Fnd_Api.g_exc_unexpected_error THEN
4495: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4496: Fnd_Msg_Pub.count_and_get (
4497: p_encoded => Fnd_Api.g_false,
4498: p_count => x_msg_count,
4491: p_count => x_msg_count,
4492: p_data => x_msg_data
4493: );
4494: WHEN Fnd_Api.g_exc_unexpected_error THEN
4495: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4496: Fnd_Msg_Pub.count_and_get (
4497: p_encoded => Fnd_Api.g_false,
4498: p_count => x_msg_count,
4499: p_data => x_msg_data
4493: );
4494: WHEN Fnd_Api.g_exc_unexpected_error THEN
4495: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4496: Fnd_Msg_Pub.count_and_get (
4497: p_encoded => Fnd_Api.g_false,
4498: p_count => x_msg_count,
4499: p_data => x_msg_data
4500: );
4501: WHEN OTHERS THEN
4498: p_count => x_msg_count,
4499: p_data => x_msg_data
4500: );
4501: WHEN OTHERS THEN
4502: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
4503: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
4504: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4505: END IF;
4506: Fnd_Msg_Pub.count_and_get (
4503: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
4504: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4505: END IF;
4506: Fnd_Msg_Pub.count_and_get (
4507: p_encoded => Fnd_Api.g_false,
4508: p_count => x_msg_count,
4509: p_data => x_msg_data
4510: );
4511: END Validate_Visit;
4527: p_Visit_rec => p_Visit_rec,
4528: x_return_status => x_return_status
4529: );
4530:
4531: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
4532: RETURN;
4533: END IF;
4534:
4535: -- Validate uniqueness.
4538: p_validation_mode => p_validation_mode,
4539: x_return_status => x_return_status
4540: );
4541:
4542: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
4543: RETURN;
4544: END IF;
4545:
4546: END Check_Visit_Items;
4557: BEGIN
4558: -- Post 11.5.10 Enhancements
4559: -- Only visit name is mandatory on create/update visit pages
4560: -- VISIT NAME
4561: IF (p_Visit_rec.visit_name IS NULL OR p_Visit_rec.visit_name = Fnd_Api.G_MISS_CHAR) THEN
4562: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4563: Fnd_Message.set_name ('AHL', 'AHL_VWP_VST_NAME_MISSING');
4564: Fnd_Msg_Pub.ADD;
4565: END IF;
4562: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4563: Fnd_Message.set_name ('AHL', 'AHL_VWP_VST_NAME_MISSING');
4564: Fnd_Msg_Pub.ADD;
4565: END IF;
4566: x_return_status := Fnd_Api.g_ret_sts_error;
4567: RETURN;
4568: END IF;
4569:
4570: /* -- VISIT TYPE ==== VISIT_TYPE_CODE
4567: RETURN;
4568: END IF;
4569:
4570: /* -- VISIT TYPE ==== VISIT_TYPE_CODE
4571: IF (p_Visit_rec.visit_type_code IS NULL OR p_Visit_rec.visit_type_code = Fnd_Api.G_MISS_CHAR)THEN
4572: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4573: Fnd_Message.set_name ('AHL', 'AHL_VWP_TYPE_MISSING');
4574: Fnd_Msg_Pub.ADD;
4575: END IF;
4572: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4573: Fnd_Message.set_name ('AHL', 'AHL_VWP_TYPE_MISSING');
4574: Fnd_Msg_Pub.ADD;
4575: END IF;
4576: x_return_status := Fnd_Api.g_ret_sts_error;
4577: RETURN;
4578: END IF;
4579: */
4580: /* IF p_Visit_rec.VISIT_ID IS NULL THEN
4578: END IF;
4579: */
4580: /* IF p_Visit_rec.VISIT_ID IS NULL THEN
4581: -- ITEM ==== INVENTORY_ITEM_ID
4582: IF (p_Visit_rec.ITEM_NAME IS NULL OR p_Visit_rec.ITEM_NAME = Fnd_Api.G_MISS_CHAR) THEN
4583: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4584: Fnd_Message.set_name ('AHL', 'AHL_VWP_ITEM_MISSING');
4585: Fnd_Msg_Pub.ADD;
4586: END IF;
4583: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4584: Fnd_Message.set_name ('AHL', 'AHL_VWP_ITEM_MISSING');
4585: Fnd_Msg_Pub.ADD;
4586: END IF;
4587: x_return_status := Fnd_Api.g_ret_sts_error;
4588: RETURN;
4589: END IF;
4590: */
4591: /* -- SERIAL NUMBER ==== ITEM_INSTANCE_ID
4588: RETURN;
4589: END IF;
4590: */
4591: /* -- SERIAL NUMBER ==== ITEM_INSTANCE_ID
4592: IF (p_Visit_rec.SERIAL_NUMBER IS NULL OR p_Visit_rec.SERIAL_NUMBER = Fnd_Api.G_MISS_CHAR) THEN
4593:
4594: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4595: Fnd_Message.set_name ('AHL', 'AHL_VWP_SERIAL_MISSING');
4596: Fnd_Msg_Pub.ADD;
4594: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4595: Fnd_Message.set_name ('AHL', 'AHL_VWP_SERIAL_MISSING');
4596: Fnd_Msg_Pub.ADD;
4597: END IF;
4598: x_return_status := Fnd_Api.g_ret_sts_error;
4599: RETURN;
4600: END IF;
4601:
4602: END IF;
4615: )
4616: IS
4617: l_valid_flag VARCHAR2(1);
4618: BEGIN
4619: x_return_status := Fnd_Api.g_ret_sts_success;
4620: --
4621: -- For Create_Visit, when ID is passed in, we need to
4622: -- check if this ID is unique.
4623: IF UPPER(p_Visit_rec.operation_flag) <> 'C' THEN
4627:
4628: IF Ahl_Utility_Pvt.check_uniqueness(
4629: 'Ahl_Visits_VL',
4630: 'VISIT_ID = ' || p_Visit_rec.VISIT_ID
4631: ) = Fnd_Api.g_false THEN
4632:
4633: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4634: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLICATE_VISIT_ID');
4635: Fnd_Msg_Pub.ADD;
4633: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4634: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLICATE_VISIT_ID');
4635: Fnd_Msg_Pub.ADD;
4636: END IF;
4637: x_return_status := Fnd_Api.g_ret_sts_error;
4638: RETURN;
4639:
4640: END IF;
4641: END IF;
4658: );
4659: END IF;
4660: END IF;
4661:
4662: IF l_valid_flag = Fnd_Api.g_false THEN
4663: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4664: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLI_VISIT_NUMBER');
4665: Fnd_Msg_Pub.ADD;
4666: END IF;
4663: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4664: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLI_VISIT_NUMBER');
4665: Fnd_Msg_Pub.ADD;
4666: END IF;
4667: x_return_status := Fnd_Api.g_ret_sts_error;
4668: RETURN;
4669: END IF;
4670: END Check_Visit_UK_Items;
4671:
4678: -- To check all validations before changing status of a Visit to Close
4679: --------------------------------------------------------------------
4680: PROCEDURE Close_Visit(
4681: p_api_version IN NUMBER,
4682: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4683: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4684: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4685: p_module_type IN VARCHAR2 := Null,
4686: p_visit_id IN NUMBER,
4679: --------------------------------------------------------------------
4680: PROCEDURE Close_Visit(
4681: p_api_version IN NUMBER,
4682: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4683: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4684: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4685: p_module_type IN VARCHAR2 := Null,
4686: p_visit_id IN NUMBER,
4687: p_x_cost_session_id IN OUT NOCOPY NUMBER,
4680: PROCEDURE Close_Visit(
4681: p_api_version IN NUMBER,
4682: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4683: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4684: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4685: p_module_type IN VARCHAR2 := Null,
4686: p_visit_id IN NUMBER,
4687: p_x_cost_session_id IN OUT NOCOPY NUMBER,
4688: p_x_mr_session_id IN OUT NOCOPY NUMBER,
4798: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure : Visit Id = ' || p_visit_id);
4799: END IF;
4800:
4801: -- Initialize message list if p_init_msg_list is set to TRUE.
4802: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
4803: Fnd_Msg_Pub.initialize;
4804: END IF;
4805:
4806: -- Initialize API return status to success
4803: Fnd_Msg_Pub.initialize;
4804: END IF;
4805:
4806: -- Initialize API return status to success
4807: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4808:
4809: -- Standard call to check for call compatibility.
4810: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
4811: p_api_version,
4806: -- Initialize API return status to success
4807: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4808:
4809: -- Standard call to check for call compatibility.
4810: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
4811: p_api_version,
4812: l_api_name,G_PKG_NAME) THEN
4813: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4814: END IF;
4809: -- Standard call to check for call compatibility.
4810: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
4811: p_api_version,
4812: l_api_name,G_PKG_NAME) THEN
4813: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4814: END IF;
4815:
4816: ------------------------Start of API Body------------------------------------
4817: OPEN c_visit (p_visit_id);
4824: item_instance_id => c_visit_rec.Item_Instance_Id);
4825: -- Check Error Message stack.
4826: l_msg_count := FND_MSG_PUB.count_msg;
4827: IF l_msg_count > 0 THEN
4828: x_return_status := FND_API.G_RET_STS_ERROR;
4829: RAISE FND_API.G_EXC_ERROR;
4830: END IF;
4831:
4832: -- AnRaj added for R 12.0 ACL changes in VWP, End
4825: -- Check Error Message stack.
4826: l_msg_count := FND_MSG_PUB.count_msg;
4827: IF l_msg_count > 0 THEN
4828: x_return_status := FND_API.G_RET_STS_ERROR;
4829: RAISE FND_API.G_EXC_ERROR;
4830: END IF;
4831:
4832: -- AnRaj added for R 12.0 ACL changes in VWP, End
4833: IF c_visit_rec.status_code = 'RELEASED' THEN
4839: l_chk_flag := 'N';
4840: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_JOB_STATUS');
4841: Fnd_Msg_Pub.ADD;
4842: CLOSE get_open_job_task_csr;
4843: RAISE Fnd_Api.g_exc_error;
4844: END IF;
4845: CLOSE get_open_job_task_csr;
4846:
4847: --2) Check that the corresponding UE records are in
4852: l_chk_flag :='N';
4853: Fnd_Message.SET_NAME('AHL','AHL_VWP_UE_CLOSE_INV');
4854: Fnd_Msg_Pub.ADD;
4855: CLOSE get_ue_tasks_csr;
4856: RAISE Fnd_Api.g_exc_error;
4857: END IF;
4858: CLOSE get_ue_tasks_csr;
4859:
4860: --Modified by srini Sep 24/2003
4872: --Call ahl_vwp_cost_pvt.calculate_wo_cost
4873: AHL_VWP_COST_PVT.Calculate_WO_Cost(
4874: p_api_version => p_api_version,
4875: p_init_msg_list => p_init_msg_list,
4876: p_commit => Fnd_Api.g_false,
4877: p_validation_level => p_validation_level,
4878: p_x_cost_price_rec => l_cost_price_rec,
4879: x_return_status => l_return_status);
4880:
4884:
4885: -- Check Error Message stack.
4886: l_msg_count := FND_MSG_PUB.count_msg;
4887: IF l_msg_count > 0 THEN
4888: x_return_status := FND_API.G_RET_STS_ERROR;
4889: RAISE FND_API.G_EXC_ERROR;
4890: END IF;
4891:
4892: --Assign to out paramenter if null
4885: -- Check Error Message stack.
4886: l_msg_count := FND_MSG_PUB.count_msg;
4887: IF l_msg_count > 0 THEN
4888: x_return_status := FND_API.G_RET_STS_ERROR;
4889: RAISE FND_API.G_EXC_ERROR;
4890: END IF;
4891:
4892: --Assign to out paramenter if null
4893: p_x_cost_session_id := l_cost_price_rec.cost_session_id;
4934:
4935: -- Check Error Message stack.
4936: l_msg_count := FND_MSG_PUB.count_msg;
4937: IF l_msg_count > 0 THEN
4938: x_return_status := FND_API.G_RET_STS_ERROR;
4939: RAISE FND_API.G_EXC_ERROR;
4940: END IF;
4941:
4942: --Check for summary tasks without mr
4935: -- Check Error Message stack.
4936: l_msg_count := FND_MSG_PUB.count_msg;
4937: IF l_msg_count > 0 THEN
4938: x_return_status := FND_API.G_RET_STS_ERROR;
4939: RAISE FND_API.G_EXC_ERROR;
4940: END IF;
4941:
4942: --Check for summary tasks without mr
4943: OPEN c_summ_task(c_visit_rec.visit_id);
4978: /* Call Update_Project procedure to update project status to CLOSED
4979: AHL_VWP_PROJ_PROD_PVT.Update_Project (
4980: p_api_version => p_api_version,
4981: p_init_msg_list => p_init_msg_list,
4982: p_commit => Fnd_Api.g_false,
4983: p_validation_level => p_validation_level,
4984: p_module_type => p_module_type,
4985: p_visit_id => p_visit_id,
4986: x_return_status => x_return_status,
5001: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5002: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_COMPLETIONS_PVT.complete_master_wo');
5003: END IF;
5004:
5005: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5006: -- Check Error Message stack.
5007: x_msg_count := FND_MSG_PUB.count_msg;
5008: RAISE Fnd_Api.g_exc_error;
5009: END IF;
5004:
5005: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5006: -- Check Error Message stack.
5007: x_msg_count := FND_MSG_PUB.count_msg;
5008: RAISE Fnd_Api.g_exc_error;
5009: END IF;
5010: -- yazhou 28Sept2005 ends
5011:
5012: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5045: END IF;
5046:
5047: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
5048: p_api_version => 1.0,
5049: p_init_msg_list => FND_API.g_false,
5050: p_commit => FND_API.g_false,
5051: p_validation_level => FND_API.g_valid_level_full,
5052: p_visit_id => p_visit_id,
5053: p_visit_task_id => NULL,
5046:
5047: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
5048: p_api_version => 1.0,
5049: p_init_msg_list => FND_API.g_false,
5050: p_commit => FND_API.g_false,
5051: p_validation_level => FND_API.g_valid_level_full,
5052: p_visit_id => p_visit_id,
5053: p_visit_task_id => NULL,
5054: p_org_id => NULL,
5047: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
5048: p_api_version => 1.0,
5049: p_init_msg_list => FND_API.g_false,
5050: p_commit => FND_API.g_false,
5051: p_validation_level => FND_API.g_valid_level_full,
5052: p_visit_id => p_visit_id,
5053: p_visit_task_id => NULL,
5054: p_org_id => NULL,
5055: p_start_date => NULL,
5066:
5067: l_msg_count := FND_MSG_PUB.count_msg;
5068: IF l_msg_count > 0 THEN
5069: X_msg_count := l_msg_count;
5070: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5071: RAISE FND_API.G_EXC_ERROR;
5072: END IF;
5073:
5074: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5067: l_msg_count := FND_MSG_PUB.count_msg;
5068: IF l_msg_count > 0 THEN
5069: X_msg_count := l_msg_count;
5070: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5071: RAISE FND_API.G_EXC_ERROR;
5072: END IF;
5073:
5074: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5075: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_planned_order_flag - '||l_planned_order_flag);
5078: END IF;
5079: ELSE
5080: Fnd_Message.SET_NAME('AHL','AHL_VWP_STATUS_NOT_RELEASED');
5081: Fnd_Msg_Pub.ADD;
5082: RAISE Fnd_Api.g_exc_error;
5083: END IF;
5084:
5085: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5086: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Session ID: ' || p_x_cost_session_id);
5088: END IF;
5089: ---------------------------End of API Body-------------------------------------
5090:
5091: -- Standard check of p_commit.
5092: IF Fnd_Api.To_Boolean ( p_commit ) THEN
5093: COMMIT WORK;
5094: END IF;
5095:
5096: Fnd_Msg_Pub.count_and_get(
5093: COMMIT WORK;
5094: END IF;
5095:
5096: Fnd_Msg_Pub.count_and_get(
5097: p_encoded => Fnd_Api.g_false,
5098: p_count => x_msg_count,
5099: p_data => x_msg_data);
5100:
5101: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5101: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5102: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
5103: END IF;
5104: EXCEPTION
5105: WHEN Fnd_Api.g_exc_error THEN
5106: ROLLBACK TO Close_Visit;
5107: x_return_status := Fnd_Api.g_ret_sts_error;
5108: Fnd_Msg_Pub.count_and_get (
5109: p_encoded => Fnd_Api.g_false,
5103: END IF;
5104: EXCEPTION
5105: WHEN Fnd_Api.g_exc_error THEN
5106: ROLLBACK TO Close_Visit;
5107: x_return_status := Fnd_Api.g_ret_sts_error;
5108: Fnd_Msg_Pub.count_and_get (
5109: p_encoded => Fnd_Api.g_false,
5110: p_count => x_msg_count,
5111: p_data => x_msg_data
5105: WHEN Fnd_Api.g_exc_error THEN
5106: ROLLBACK TO Close_Visit;
5107: x_return_status := Fnd_Api.g_ret_sts_error;
5108: Fnd_Msg_Pub.count_and_get (
5109: p_encoded => Fnd_Api.g_false,
5110: p_count => x_msg_count,
5111: p_data => x_msg_data
5112: );
5113: WHEN Fnd_Api.g_exc_unexpected_error THEN
5109: p_encoded => Fnd_Api.g_false,
5110: p_count => x_msg_count,
5111: p_data => x_msg_data
5112: );
5113: WHEN Fnd_Api.g_exc_unexpected_error THEN
5114: ROLLBACK TO Close_Visit;
5115: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5116: Fnd_Msg_Pub.count_and_get (
5117: p_encoded => Fnd_Api.g_false,
5111: p_data => x_msg_data
5112: );
5113: WHEN Fnd_Api.g_exc_unexpected_error THEN
5114: ROLLBACK TO Close_Visit;
5115: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5116: Fnd_Msg_Pub.count_and_get (
5117: p_encoded => Fnd_Api.g_false,
5118: p_count => x_msg_count,
5119: p_data => x_msg_data
5113: WHEN Fnd_Api.g_exc_unexpected_error THEN
5114: ROLLBACK TO Close_Visit;
5115: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5116: Fnd_Msg_Pub.count_and_get (
5117: p_encoded => Fnd_Api.g_false,
5118: p_count => x_msg_count,
5119: p_data => x_msg_data
5120: );
5121: WHEN OTHERS THEN
5119: p_data => x_msg_data
5120: );
5121: WHEN OTHERS THEN
5122: ROLLBACK TO Close_Visit;
5123: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5124: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5125: THEN
5126: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5127: END IF;
5125: THEN
5126: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5127: END IF;
5128: Fnd_Msg_Pub.count_and_get (
5129: p_encoded => Fnd_Api.g_false,
5130: p_count => x_msg_count,
5131: p_data => x_msg_data
5132: );
5133: END Close_Visit;
5144: -- To check all validations before changing status of a Visit to Cancel
5145: --------------------------------------------------------------------
5146: PROCEDURE Cancel_Visit(
5147: p_api_version IN NUMBER := 1.0,
5148: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5149: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5150: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5151: p_module_type IN VARCHAR2 := Null,
5152: p_visit_id IN NUMBER,
5145: --------------------------------------------------------------------
5146: PROCEDURE Cancel_Visit(
5147: p_api_version IN NUMBER := 1.0,
5148: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5149: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5150: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5151: p_module_type IN VARCHAR2 := Null,
5152: p_visit_id IN NUMBER,
5153: p_obj_ver_num IN NUMBER,
5146: PROCEDURE Cancel_Visit(
5147: p_api_version IN NUMBER := 1.0,
5148: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5149: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5150: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5151: p_module_type IN VARCHAR2 := Null,
5152: p_visit_id IN NUMBER,
5153: p_obj_ver_num IN NUMBER,
5154: x_return_status OUT NOCOPY VARCHAR2,
5224: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure : Visit Id = ' || p_visit_id);
5225: END IF;
5226:
5227: -- Initialize message list if p_init_msg_list is set to TRUE.
5228: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
5229: Fnd_Msg_Pub.initialize;
5230: END IF;
5231:
5232: -- Initialize API return status to success
5229: Fnd_Msg_Pub.initialize;
5230: END IF;
5231:
5232: -- Initialize API return status to success
5233: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5234:
5235: -- Standard call to check for call compatibility.
5236: IF NOT Fnd_Api.COMPATIBLE_API_CALL( l_api_version,
5237: p_api_version,
5232: -- Initialize API return status to success
5233: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5234:
5235: -- Standard call to check for call compatibility.
5236: IF NOT Fnd_Api.COMPATIBLE_API_CALL( l_api_version,
5237: p_api_version,
5238: l_api_name,G_PKG_NAME) THEN
5239: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5240: END IF;
5235: -- Standard call to check for call compatibility.
5236: IF NOT Fnd_Api.COMPATIBLE_API_CALL( l_api_version,
5237: p_api_version,
5238: l_api_name,G_PKG_NAME) THEN
5239: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5240: END IF;
5241:
5242: ---------------------------Start of API Body-------------------------------------
5243: OPEN c_visit(p_visit_id);
5246:
5247: IF c_visit_rec.OBJECT_VERSION_NUMBER <> p_obj_ver_num THEN
5248: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
5249: Fnd_Msg_Pub.ADD;
5250: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5251: END IF;
5252:
5253: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5254: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs');
5257: -- Code Start
5258: -- Call Cancel_Visit_Jobs API
5259: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
5260: (p_api_version => 1.0,
5261: p_init_msg_list => FND_API.G_TRUE,
5262: p_commit => FND_API.G_FALSE,
5263: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5264: p_default => FND_API.G_FALSE,
5265: p_module_type => NULL,
5258: -- Call Cancel_Visit_Jobs API
5259: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
5260: (p_api_version => 1.0,
5261: p_init_msg_list => FND_API.G_TRUE,
5262: p_commit => FND_API.G_FALSE,
5263: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5264: p_default => FND_API.G_FALSE,
5265: p_module_type => NULL,
5266: x_return_status => l_return_status,
5259: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
5260: (p_api_version => 1.0,
5261: p_init_msg_list => FND_API.G_TRUE,
5262: p_commit => FND_API.G_FALSE,
5263: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5264: p_default => FND_API.G_FALSE,
5265: p_module_type => NULL,
5266: x_return_status => l_return_status,
5267: x_msg_count => l_msg_count,
5260: (p_api_version => 1.0,
5261: p_init_msg_list => FND_API.G_TRUE,
5262: p_commit => FND_API.G_FALSE,
5263: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5264: p_default => FND_API.G_FALSE,
5265: p_module_type => NULL,
5266: x_return_status => l_return_status,
5267: x_msg_count => l_msg_count,
5268: x_msg_data => l_msg_data,
5274: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
5275: END IF;
5276:
5277: -- Check return status.
5278: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5279: RAISE FND_API.G_EXC_ERROR;
5280: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5282: END IF;
5275: END IF;
5276:
5277: -- Check return status.
5278: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5279: RAISE FND_API.G_EXC_ERROR;
5280: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5282: END IF;
5283:
5276:
5277: -- Check return status.
5278: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5279: RAISE FND_API.G_EXC_ERROR;
5280: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5282: END IF;
5283:
5284: -- set unit_effectivity to null
5277: -- Check return status.
5278: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5279: RAISE FND_API.G_EXC_ERROR;
5280: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5282: END IF;
5283:
5284: -- set unit_effectivity to null
5285: UPDATE AHL_VISIT_TASKS_B
5294:
5295: -- Call AHL_LTP_REQST_MATRL_PVT.Process_Planned_Material
5296: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
5297: (p_api_version => 1.0,
5298: p_init_msg_list => FND_API.g_false,
5299: p_commit => FND_API.g_false,
5300: p_validation_level => FND_API.g_valid_level_full,
5301: p_visit_id => p_visit_id,
5302: p_visit_task_id => NULL,
5295: -- Call AHL_LTP_REQST_MATRL_PVT.Process_Planned_Material
5296: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
5297: (p_api_version => 1.0,
5298: p_init_msg_list => FND_API.g_false,
5299: p_commit => FND_API.g_false,
5300: p_validation_level => FND_API.g_valid_level_full,
5301: p_visit_id => p_visit_id,
5302: p_visit_task_id => NULL,
5303: p_org_id => NULL,
5296: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
5297: (p_api_version => 1.0,
5298: p_init_msg_list => FND_API.g_false,
5299: p_commit => FND_API.g_false,
5300: p_validation_level => FND_API.g_valid_level_full,
5301: p_visit_id => p_visit_id,
5302: p_visit_task_id => NULL,
5303: p_org_id => NULL,
5304: p_start_date => NULL,
5313: 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);
5314: END IF;
5315:
5316: -- Check return status.
5317: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5318: RAISE FND_API.G_EXC_ERROR;
5319: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5321: END IF;
5314: END IF;
5315:
5316: -- Check return status.
5317: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5318: RAISE FND_API.G_EXC_ERROR;
5319: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5321: END IF;
5322:
5315:
5316: -- Check return status.
5317: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5318: RAISE FND_API.G_EXC_ERROR;
5319: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5321: END IF;
5322:
5323: -- update task status
5316: -- Check return status.
5317: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5318: RAISE FND_API.G_EXC_ERROR;
5319: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5321: END IF;
5322:
5323: -- update task status
5324: OPEN c_task(p_visit_id);
5358:
5359: AHL_VWP_PROJ_PROD_PVT.Update_Project(
5360: p_api_version => p_api_version,
5361: p_init_msg_list => p_init_msg_list,
5362: p_commit => Fnd_Api.g_false,
5363: p_validation_level => p_validation_level,
5364: p_module_type => p_module_type,
5365: p_visit_id => p_visit_id,
5366: x_return_status => x_return_status,
5371: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5372: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_PROJ_PROD_PVT.Update_Project - x_return_status : '||x_return_status);
5373: END IF;
5374:
5375: IF NVL(x_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5376: -- Method call was not successful, raise error
5377: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_UPDATE_FAILED'); -- Failed to update job
5378: Fnd_Msg_Pub.ADD;
5379: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
5379: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
5380: fnd_log.string( fnd_log.level_error,'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
5381: 'Cant update the project to Rejected status');
5382: END IF;
5383: RAISE Fnd_Api.G_EXC_ERROR;
5384: END IF;
5385: END IF;
5386:
5387: -- transit check change
5408: -- Pass p_status_id as 1 (OPEN)
5409: CS_ServiceRequest_PUB.Update_Status
5410: ( p_api_version => 2.0,
5411: p_init_msg_list => p_init_msg_list,
5412: p_commit => FND_API.G_FALSE,
5413: p_resp_appl_id => NULL,
5414: p_resp_id => NULL,
5415: p_user_id => NULL,
5416: p_login_id => NULL,
5416: p_login_id => NULL,
5417: p_status_id => 1,
5418: p_closed_date => NULL,
5419: p_audit_comments => NULL,
5420: p_called_by_workflow => FND_API.G_FALSE,
5421: p_workflow_process_id => NULL,
5422: p_comments => NULL,
5423: p_public_comment_flag => FND_API.G_FALSE,
5424: p_validate_sr_closure => 'N',
5419: p_audit_comments => NULL,
5420: p_called_by_workflow => FND_API.G_FALSE,
5421: p_workflow_process_id => NULL,
5422: p_comments => NULL,
5423: p_public_comment_flag => FND_API.G_FALSE,
5424: p_validate_sr_closure => 'N',
5425: p_auto_close_child_entities => 'N',
5426: p_request_id => NULL,
5427: p_request_number => c_sr_ovn_rec.incident_number,
5437: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling CS_ServiceRequest_PUB.Update_Status - l_return_status : '||l_return_status);
5438: END IF;
5439: -- yazhou 29-Jun-2006 ends
5440: -- Check return status.
5441: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5442: CLOSE c_check_SR;
5443: CLOSE c_service_request;
5444: RAISE FND_API.G_EXC_ERROR;
5445: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5440: -- Check return status.
5441: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5442: CLOSE c_check_SR;
5443: CLOSE c_service_request;
5444: RAISE FND_API.G_EXC_ERROR;
5445: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5446: CLOSE c_check_SR;
5447: CLOSE c_service_request;
5448: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5441: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5442: CLOSE c_check_SR;
5443: CLOSE c_service_request;
5444: RAISE FND_API.G_EXC_ERROR;
5445: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5446: CLOSE c_check_SR;
5447: CLOSE c_service_request;
5448: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5449: END IF;
5444: RAISE FND_API.G_EXC_ERROR;
5445: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5446: CLOSE c_check_SR;
5447: CLOSE c_service_request;
5448: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5449: END IF;
5450: END IF;
5451: CLOSE c_check_SR;
5452: END LOOP;
5455:
5456: ---------------------------End of API Body-------------------------------------
5457: -- Standard check of p_commit.
5458:
5459: IF Fnd_Api.To_Boolean ( p_commit ) THEN
5460: COMMIT WORK;
5461: END IF;
5462:
5463: Fnd_Msg_Pub.count_and_get(
5460: COMMIT WORK;
5461: END IF;
5462:
5463: Fnd_Msg_Pub.count_and_get(
5464: p_encoded => Fnd_Api.g_false,
5465: p_count => x_msg_count,
5466: p_data => x_msg_data);
5467:
5468: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5468: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5469: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
5470: END IF;
5471: EXCEPTION
5472: WHEN Fnd_Api.g_exc_error THEN
5473: ROLLBACK TO Cancel_Visit;
5474: x_return_status := Fnd_Api.g_ret_sts_error;
5475: Fnd_Msg_Pub.count_and_get (
5476: p_encoded => Fnd_Api.g_false,
5470: END IF;
5471: EXCEPTION
5472: WHEN Fnd_Api.g_exc_error THEN
5473: ROLLBACK TO Cancel_Visit;
5474: x_return_status := Fnd_Api.g_ret_sts_error;
5475: Fnd_Msg_Pub.count_and_get (
5476: p_encoded => Fnd_Api.g_false,
5477: p_count => x_msg_count,
5478: p_data => x_msg_data
5472: WHEN Fnd_Api.g_exc_error THEN
5473: ROLLBACK TO Cancel_Visit;
5474: x_return_status := Fnd_Api.g_ret_sts_error;
5475: Fnd_Msg_Pub.count_and_get (
5476: p_encoded => Fnd_Api.g_false,
5477: p_count => x_msg_count,
5478: p_data => x_msg_data
5479: );
5480: WHEN Fnd_Api.g_exc_unexpected_error THEN
5476: p_encoded => Fnd_Api.g_false,
5477: p_count => x_msg_count,
5478: p_data => x_msg_data
5479: );
5480: WHEN Fnd_Api.g_exc_unexpected_error THEN
5481: ROLLBACK TO Cancel_Visit;
5482: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5483: Fnd_Msg_Pub.count_and_get (
5484: p_encoded => Fnd_Api.g_false,
5478: p_data => x_msg_data
5479: );
5480: WHEN Fnd_Api.g_exc_unexpected_error THEN
5481: ROLLBACK TO Cancel_Visit;
5482: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5483: Fnd_Msg_Pub.count_and_get (
5484: p_encoded => Fnd_Api.g_false,
5485: p_count => x_msg_count,
5486: p_data => x_msg_data
5480: WHEN Fnd_Api.g_exc_unexpected_error THEN
5481: ROLLBACK TO Cancel_Visit;
5482: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5483: Fnd_Msg_Pub.count_and_get (
5484: p_encoded => Fnd_Api.g_false,
5485: p_count => x_msg_count,
5486: p_data => x_msg_data
5487: );
5488: WHEN OTHERS THEN
5486: p_data => x_msg_data
5487: );
5488: WHEN OTHERS THEN
5489: ROLLBACK TO Cancel_Visit;
5490: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5491: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5492: THEN
5493: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5494: END IF;
5492: THEN
5493: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5494: END IF;
5495: Fnd_Msg_Pub.count_and_get (
5496: p_encoded => Fnd_Api.g_false,
5497: p_count => x_msg_count,
5498: p_data => x_msg_data
5499: );
5500:
5516: -- To Synchronize visit with flight schedule change
5517: --------------------------------------------------------------------
5518: PROCEDURE Synchronize_Visit (
5519: p_api_version IN NUMBER,
5520: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5521: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5522: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5523: p_module_type IN VARCHAR2 := NULL,
5524: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
5517: --------------------------------------------------------------------
5518: PROCEDURE Synchronize_Visit (
5519: p_api_version IN NUMBER,
5520: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5521: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5522: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5523: p_module_type IN VARCHAR2 := NULL,
5524: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
5525: x_return_status OUT NOCOPY VARCHAR2,
5518: PROCEDURE Synchronize_Visit (
5519: p_api_version IN NUMBER,
5520: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5521: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5522: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5523: p_module_type IN VARCHAR2 := NULL,
5524: p_x_visit_rec IN OUT NOCOPY Visit_Rec_Type,
5525: x_return_status OUT NOCOPY VARCHAR2,
5526: x_msg_count OUT NOCOPY NUMBER,
5558: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure : Visit Id - '||l_visit_rec.visit_id);
5559: END IF;
5560:
5561: -- Initialize message list if p_init_msg_list is set to TRUE.
5562: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
5563: Fnd_Msg_Pub.initialize;
5564: END IF;
5565:
5566: -- Initialize API return status to success
5563: Fnd_Msg_Pub.initialize;
5564: END IF;
5565:
5566: -- Initialize API return status to success
5567: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5568:
5569: -- Standard call to check for call compatibility.
5570: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
5571: p_api_version,
5566: -- Initialize API return status to success
5567: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5568:
5569: -- Standard call to check for call compatibility.
5570: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
5571: p_api_version,
5572: l_api_name,G_PKG_NAME)
5573: THEN
5574: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5570: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
5571: p_api_version,
5572: l_api_name,G_PKG_NAME)
5573: THEN
5574: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5575: END IF;
5576:
5577: ------------------------Start of API Body------------------------------------
5578: OPEN c_Visit(l_visit_rec.visit_id);
5585: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5586: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for - ' ||l_visit_rec.visit_id );
5587: END IF;
5588: END IF;
5589: RAISE Fnd_Api.g_exc_error;
5590: ELSE
5591: CLOSE c_Visit;
5592: END IF;
5593:
5613: Update_Visit
5614: (
5615: p_api_version => l_api_version,
5616: p_init_msg_list => p_init_msg_list,
5617: p_commit => Fnd_Api.g_false,
5618: p_validation_level => p_validation_level,
5619: p_module_type => p_module_type,
5620: p_x_Visit_rec => p_x_visit_rec,
5621: x_return_status => l_return_status,
5627: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Update_Visit - l_return_status : '||l_return_status);
5628: END IF;
5629:
5630: IF l_return_status <> 'S' THEN
5631: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5632: END IF;
5633: ELSIF c_Visit_rec.status_code = 'RELEASED' OR c_Visit_rec.status_code = 'PARTIALLY RELEASED' THEN
5634: -------------- R12 changes For Serial Number Reservations Start-------------------
5635: ---------------AnRaj added on 19th June 2005-------------------
5633: ELSIF c_Visit_rec.status_code = 'RELEASED' OR c_Visit_rec.status_code = 'PARTIALLY RELEASED' THEN
5634: -------------- R12 changes For Serial Number Reservations Start-------------------
5635: ---------------AnRaj added on 19th June 2005-------------------
5636: -- R12: Department is made mandatory
5637: IF l_visit_rec.department_id IS NULL OR l_visit_rec.department_id = Fnd_Api.G_MISS_NUM THEN
5638: Fnd_Message.SET_NAME('AHL','AHL_VWP_RELSD_DEPT_MAND');
5639: Fnd_Msg_Pub.ADD;
5640: RAISE Fnd_Api.G_EXC_ERROR;
5641: END IF;
5636: -- R12: Department is made mandatory
5637: IF l_visit_rec.department_id IS NULL OR l_visit_rec.department_id = Fnd_Api.G_MISS_NUM THEN
5638: Fnd_Message.SET_NAME('AHL','AHL_VWP_RELSD_DEPT_MAND');
5639: Fnd_Msg_Pub.ADD;
5640: RAISE Fnd_Api.G_EXC_ERROR;
5641: END IF;
5642:
5643: -- R12: Department change does not require to cancel current visit and Create a new visit
5644: -- R12: Removed the Department change check here
5643: -- R12: Department change does not require to cancel current visit and Create a new visit
5644: -- R12: Removed the Department change check here
5645: -- If orgnization changed, then cancel the visit and create a new one.
5646: IF l_visit_rec.organization_id IS NOT NULL
5647: AND l_visit_rec.organization_id <> Fnd_Api.G_MISS_NUM
5648: AND l_visit_rec.organization_id <> c_Visit_rec.organization_id
5649: THEN
5650: -- Validate org/dept/dates
5651: -- Planned Start Date is madatory for transit visit
5649: THEN
5650: -- Validate org/dept/dates
5651: -- Planned Start Date is madatory for transit visit
5652: IF l_visit_rec.START_DATE IS NULL
5653: OR l_visit_rec.START_DATE = FND_API.g_miss_date
5654: THEN
5655: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_ST_DT_REQ');
5656: Fnd_Msg_Pub.ADD;
5657: RAISE Fnd_Api.G_EXC_ERROR;
5653: OR l_visit_rec.START_DATE = FND_API.g_miss_date
5654: THEN
5655: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_ST_DT_REQ');
5656: Fnd_Msg_Pub.ADD;
5657: RAISE Fnd_Api.G_EXC_ERROR;
5658: END IF;
5659:
5660: -- Planned End Date is madatory for transit visit
5661: IF l_visit_rec.PLAN_END_DATE IS NULL
5658: END IF;
5659:
5660: -- Planned End Date is madatory for transit visit
5661: IF l_visit_rec.PLAN_END_DATE IS NULL
5662: OR l_visit_rec.PLAN_END_DATE = FND_API.g_miss_date
5663: THEN
5664: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_END_DT_REQ');
5665: Fnd_Msg_Pub.ADD;
5666: RAISE Fnd_Api.G_EXC_ERROR;
5662: OR l_visit_rec.PLAN_END_DATE = FND_API.g_miss_date
5663: THEN
5664: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_END_DT_REQ');
5665: Fnd_Msg_Pub.ADD;
5666: RAISE Fnd_Api.G_EXC_ERROR;
5667: END IF;
5668:
5669: -- Planned End Date must be greater than or equal to Planned Start Date
5670: IF (l_visit_rec.START_DATE > l_visit_rec.PLAN_END_DATE) THEN
5669: -- Planned End Date must be greater than or equal to Planned Start Date
5670: IF (l_visit_rec.START_DATE > l_visit_rec.PLAN_END_DATE) THEN
5671: Fnd_Message.SET_NAME('AHL','AHL_VWP_START_DT_GTR_CLOSE_DT');
5672: Fnd_Msg_Pub.ADD;
5673: RAISE Fnd_Api.G_EXC_ERROR;
5674: END IF;
5675:
5676: -- If visit start date is earlier than SYSDATE then use sysdate to create new visit
5677: IF (l_visit_rec.START_DATE < SYSDATE ) THEN
5690:
5691: IF NVL(l_return_status,'x') <> 'S' THEN
5692: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORG_NOT_EXISTS');
5693: Fnd_Msg_Pub.ADD;
5694: RAISE Fnd_Api.G_EXC_ERROR;
5695: END IF;
5696:
5697: -- Department must have shift defined
5698: AHL_VWP_RULES_PVT.CHECK_DEPARTMENT_SHIFT
5701:
5702: IF NVL(l_return_status,'x') <> 'S' THEN
5703: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
5704: Fnd_Msg_Pub.ADD;
5705: RAISE Fnd_Api.G_EXC_ERROR;
5706: END IF;
5707:
5708: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5709: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling COPY_VISIT');
5711:
5712: COPY_VISIT(
5713: p_api_version => l_api_version,
5714: p_init_msg_list => p_init_msg_list,
5715: p_commit => Fnd_Api.g_false,
5716: p_validation_level => p_validation_level,
5717: p_module_type => p_module_type,
5718: P_VISIT_ID => c_visit_rec.visit_id,
5719: p_x_Visit_rec => l_visit_rec,
5726: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling COPY_VISIT l_return_status - '||l_return_status);
5727: END IF;
5728:
5729: IF l_return_status <> 'S' THEN
5730: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5731: END IF;
5732:
5733: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5734: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_PROJ_PROD_PVT.Release_Visit');
5749: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_PROJ_PROD_PVT.Release_Visit : l_return_status - '||l_return_status);
5750: END IF;
5751:
5752: IF l_return_status <> 'S' THEN
5753: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5754: END IF;
5755:
5756: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5757: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Cancel_Visit');
5770: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Cancel_Visit : l_return_status - '||l_return_status);
5771: END IF;
5772:
5773: IF l_return_status <> 'S' THEN
5774: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5775: END IF;
5776: -- The Organization did not change
5777: -- Only there is change in the date and time of the visit
5778: -- R12 OR the department has changed., added the condition
5777: -- Only there is change in the date and time of the visit
5778: -- R12 OR the department has changed., added the condition
5779: -- R12 AnRaj
5780: ELSIF l_visit_rec.START_DATE IS NOT NULL
5781: AND l_visit_rec.START_DATE <> FND_API.g_miss_date
5782: AND l_visit_rec.PLAN_END_DATE IS NOT NULL
5783: AND l_visit_rec.PLAN_END_DATE <> FND_API.g_miss_date
5784: AND ( l_visit_rec.START_DATE <> c_Visit_rec.START_DATE_TIME
5785: OR l_visit_rec.PLAN_END_DATE <> c_Visit_rec.CLOSE_DATE_TIME
5779: -- R12 AnRaj
5780: ELSIF l_visit_rec.START_DATE IS NOT NULL
5781: AND l_visit_rec.START_DATE <> FND_API.g_miss_date
5782: AND l_visit_rec.PLAN_END_DATE IS NOT NULL
5783: AND l_visit_rec.PLAN_END_DATE <> FND_API.g_miss_date
5784: AND ( l_visit_rec.START_DATE <> c_Visit_rec.START_DATE_TIME
5785: OR l_visit_rec.PLAN_END_DATE <> c_Visit_rec.CLOSE_DATE_TIME
5786: OR l_visit_rec.department_id <> c_Visit_rec.department_id
5787: )
5795: Update_Visit
5796: (
5797: p_api_version => l_api_version,
5798: p_init_msg_list => p_init_msg_list,
5799: p_commit => Fnd_Api.g_false,
5800: p_validation_level => p_validation_level,
5801: p_module_type => p_module_type,
5802: p_x_Visit_rec => p_x_visit_rec,
5803: x_return_status => l_return_status,
5809: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Update_Visit - l_return_status : '||l_return_status);
5810: END IF;
5811:
5812: IF l_return_status <> 'S' THEN
5813: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5814: END IF;
5815:
5816: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5817: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS');
5830: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS - l_return_status : '||l_return_status);
5831: END IF;
5832:
5833: IF l_return_status <> 'S' THEN
5834: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5835: END IF;
5836: END IF;
5837: END IF;
5838:
5839: l_msg_count := Fnd_Msg_Pub.count_msg;
5840:
5841: IF l_msg_count > 0 THEN
5842: X_msg_count := l_msg_count;
5843: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5844: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5845: END IF;
5846: --Standard check for commit
5847: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
5840:
5841: IF l_msg_count > 0 THEN
5842: X_msg_count := l_msg_count;
5843: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5844: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5845: END IF;
5846: --Standard check for commit
5847: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
5848: COMMIT;
5843: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5844: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5845: END IF;
5846: --Standard check for commit
5847: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
5848: COMMIT;
5849: END IF;
5850:
5851: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5851: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5852: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
5853: END IF;
5854: EXCEPTION
5855: WHEN Fnd_Api.g_exc_error THEN
5856: ROLLBACK TO Synchronize_Visit;
5857: x_return_status := Fnd_Api.g_ret_sts_error;
5858: Fnd_Msg_Pub.count_and_get (
5859: p_encoded => Fnd_Api.g_false,
5853: END IF;
5854: EXCEPTION
5855: WHEN Fnd_Api.g_exc_error THEN
5856: ROLLBACK TO Synchronize_Visit;
5857: x_return_status := Fnd_Api.g_ret_sts_error;
5858: Fnd_Msg_Pub.count_and_get (
5859: p_encoded => Fnd_Api.g_false,
5860: p_count => x_msg_count,
5861: p_data => x_msg_data
5855: WHEN Fnd_Api.g_exc_error THEN
5856: ROLLBACK TO Synchronize_Visit;
5857: x_return_status := Fnd_Api.g_ret_sts_error;
5858: Fnd_Msg_Pub.count_and_get (
5859: p_encoded => Fnd_Api.g_false,
5860: p_count => x_msg_count,
5861: p_data => x_msg_data
5862: );
5863: WHEN Fnd_Api.g_exc_unexpected_error THEN
5859: p_encoded => Fnd_Api.g_false,
5860: p_count => x_msg_count,
5861: p_data => x_msg_data
5862: );
5863: WHEN Fnd_Api.g_exc_unexpected_error THEN
5864: ROLLBACK TO Synchronize_Visit;
5865: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5866: Fnd_Msg_Pub.count_and_get (
5867: p_encoded => Fnd_Api.g_false,
5861: p_data => x_msg_data
5862: );
5863: WHEN Fnd_Api.g_exc_unexpected_error THEN
5864: ROLLBACK TO Synchronize_Visit;
5865: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5866: Fnd_Msg_Pub.count_and_get (
5867: p_encoded => Fnd_Api.g_false,
5868: p_count => x_msg_count,
5869: p_data => x_msg_data
5863: WHEN Fnd_Api.g_exc_unexpected_error THEN
5864: ROLLBACK TO Synchronize_Visit;
5865: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5866: Fnd_Msg_Pub.count_and_get (
5867: p_encoded => Fnd_Api.g_false,
5868: p_count => x_msg_count,
5869: p_data => x_msg_data
5870: );
5871: WHEN OTHERS THEN
5869: p_data => x_msg_data
5870: );
5871: WHEN OTHERS THEN
5872: ROLLBACK TO Synchronize_Visit;
5873: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5874: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5875: THEN
5876: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5877: END IF;
5875: THEN
5876: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5877: END IF;
5878: Fnd_Msg_Pub.count_and_get (
5879: p_encoded => Fnd_Api.g_false,
5880: p_count => x_msg_count,
5881: p_data => x_msg_data
5882: );
5883: END Synchronize_Visit;
5897: BEGIN
5898: SAVEPOINT delete_flight_assoc;
5899:
5900: -- Initialize return status to success initially
5901: x_return_status:=FND_API.G_RET_STS_SUCCESS;
5902:
5903: UPDATE AHL_VISITS_B
5904: SET UNIT_SCHEDULE_ID = NULL
5905: WHERE UNIT_SCHEDULE_ID = p_unit_schedule_id ;
5904: SET UNIT_SCHEDULE_ID = NULL
5905: WHERE UNIT_SCHEDULE_ID = p_unit_schedule_id ;
5906:
5907: EXCEPTION
5908: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5909: ROLLBACK TO delete_flight_assoc;
5910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5911: WHEN FND_API.G_EXC_ERROR THEN
5912: ROLLBACK TO delete_flight_assoc;
5906:
5907: EXCEPTION
5908: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5909: ROLLBACK TO delete_flight_assoc;
5910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5911: WHEN FND_API.G_EXC_ERROR THEN
5912: ROLLBACK TO delete_flight_assoc;
5913: x_return_status := FND_API.G_RET_STS_ERROR;
5914: WHEN OTHERS THEN
5907: EXCEPTION
5908: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5909: ROLLBACK TO delete_flight_assoc;
5910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5911: WHEN FND_API.G_EXC_ERROR THEN
5912: ROLLBACK TO delete_flight_assoc;
5913: x_return_status := FND_API.G_RET_STS_ERROR;
5914: WHEN OTHERS THEN
5915: ROLLBACK TO delete_flight_assoc;
5909: ROLLBACK TO delete_flight_assoc;
5910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5911: WHEN FND_API.G_EXC_ERROR THEN
5912: ROLLBACK TO delete_flight_assoc;
5913: x_return_status := FND_API.G_RET_STS_ERROR;
5914: WHEN OTHERS THEN
5915: ROLLBACK TO delete_flight_assoc;
5916: x_return_status := FND_API.G_RET_STS_ERROR;
5917: END DELETE_FLIGHT_ASSOC;
5912: ROLLBACK TO delete_flight_assoc;
5913: x_return_status := FND_API.G_RET_STS_ERROR;
5914: WHEN OTHERS THEN
5915: ROLLBACK TO delete_flight_assoc;
5916: x_return_status := FND_API.G_RET_STS_ERROR;
5917: END DELETE_FLIGHT_ASSOC;
5918:
5919: -- AnRaj added for R 12.0 ACL changes in VWP
5920: -- Bug number 4297066
5953:
5954: IF item_instance_id IS NOT NULL THEN
5955: -- If the Visit header has an instance id, check for the corresponding Unit
5956: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,item_instance_id);
5957: IF l_quarantined = FND_API.G_TRUE THEN
5958: l_unit_name := ahl_util_uc_pkg.get_unit_name(item_instance_id);
5959: Fnd_Message.SET_NAME('AHL','AHL_VWP_CLOSE_HDR_UNIT_QRNT');
5960: -- The Unit for this Visit (UNIT_NAME-1) is quarantined.
5961: Fnd_Message.Set_Token('UNIT_NAME',l_unit_name);
5971: LOOP
5972: FETCH c_get_tasknumbers INTO l_task_number,l_instance_id;
5973: EXIT WHEN c_get_tasknumbers%NOTFOUND;
5974: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,l_instance_id);
5975: IF l_quarantined = FND_API.G_TRUE THEN
5976: Fnd_Message.SET_NAME('AHL','AHL_VWP_CLOSE_TSK_UNIT_QRNT');
5977: -- The Unit for the Task (UNIT_NAME-1) is quarantined.
5978: Fnd_Message.Set_Token('TASK_NUMBER',l_task_number);
5979: Fnd_Msg_Pub.ADD;