12:
13: FOR i IN p_x_task_link_TBL.FIRST.. p_x_task_link_TBL.LAST
14: LOOP
15:
16: IF p_x_task_link_tbl(i).TASK_LINK_ID= FND_API.G_MISS_NUM
17: THEN
18: p_x_task_link_tbl(i).TASK_LINK_ID:=NULL;
19: END IF;
20: IF p_x_task_link_tbl(i).OBJECT_VERSION_NUMBER= FND_API.G_MISS_NUM
16: IF p_x_task_link_tbl(i).TASK_LINK_ID= FND_API.G_MISS_NUM
17: THEN
18: p_x_task_link_tbl(i).TASK_LINK_ID:=NULL;
19: END IF;
20: IF p_x_task_link_tbl(i).OBJECT_VERSION_NUMBER= FND_API.G_MISS_NUM
21: THEN
22: p_x_task_link_tbl(i).OBJECT_VERSION_NUMBER:=NULL;
23: END IF;
24: IF p_x_task_link_tbl(i).LAST_UPDATE_DATE=FND_API.G_MISS_DATE
20: IF p_x_task_link_tbl(i).OBJECT_VERSION_NUMBER= FND_API.G_MISS_NUM
21: THEN
22: p_x_task_link_tbl(i).OBJECT_VERSION_NUMBER:=NULL;
23: END IF;
24: IF p_x_task_link_tbl(i).LAST_UPDATE_DATE=FND_API.G_MISS_DATE
25: THEN
26: p_x_task_link_tbl(i).LAST_UPDATE_DATE:=NULL;
27: END IF;
28: IF p_x_task_link_tbl(i).LAST_UPDATED_BY= FND_API.G_MISS_NUM
24: IF p_x_task_link_tbl(i).LAST_UPDATE_DATE=FND_API.G_MISS_DATE
25: THEN
26: p_x_task_link_tbl(i).LAST_UPDATE_DATE:=NULL;
27: END IF;
28: IF p_x_task_link_tbl(i).LAST_UPDATED_BY= FND_API.G_MISS_NUM
29: THEN
30: p_x_task_link_tbl(i).LAST_UPDATED_BY:=NULL;
31: END IF;
32: IF p_x_task_link_tbl(i).CREATION_DATE=FND_API.G_MISS_DATE
28: IF p_x_task_link_tbl(i).LAST_UPDATED_BY= FND_API.G_MISS_NUM
29: THEN
30: p_x_task_link_tbl(i).LAST_UPDATED_BY:=NULL;
31: END IF;
32: IF p_x_task_link_tbl(i).CREATION_DATE=FND_API.G_MISS_DATE
33: THEN
34: p_x_task_link_tbl(i).CREATION_DATE:=NULL;
35: END IF;
36: IF p_x_task_link_tbl(i).CREATED_BY= FND_API.G_MISS_NUM
32: IF p_x_task_link_tbl(i).CREATION_DATE=FND_API.G_MISS_DATE
33: THEN
34: p_x_task_link_tbl(i).CREATION_DATE:=NULL;
35: END IF;
36: IF p_x_task_link_tbl(i).CREATED_BY= FND_API.G_MISS_NUM
37: THEN
38: p_x_task_link_tbl(i).CREATED_BY:=NULL;
39: END IF;
40: IF p_x_task_link_tbl(i).LAST_UPDATE_LOGIN= FND_API.G_MISS_NUM
36: IF p_x_task_link_tbl(i).CREATED_BY= FND_API.G_MISS_NUM
37: THEN
38: p_x_task_link_tbl(i).CREATED_BY:=NULL;
39: END IF;
40: IF p_x_task_link_tbl(i).LAST_UPDATE_LOGIN= FND_API.G_MISS_NUM
41: THEN
42: p_x_task_link_tbl(i).LAST_UPDATE_LOGIN:=NULL;
43: END IF;
44: IF p_x_task_link_tbl(i).VISIT_TASK_ID= FND_API.G_MISS_NUM
40: IF p_x_task_link_tbl(i).LAST_UPDATE_LOGIN= FND_API.G_MISS_NUM
41: THEN
42: p_x_task_link_tbl(i).LAST_UPDATE_LOGIN:=NULL;
43: END IF;
44: IF p_x_task_link_tbl(i).VISIT_TASK_ID= FND_API.G_MISS_NUM
45: THEN
46: p_x_task_link_tbl(i).VISIT_TASK_ID:=NULL;
47: END IF;
48: IF p_x_task_link_tbl(i).PARENT_TASK_ID= FND_API.G_MISS_NUM
44: IF p_x_task_link_tbl(i).VISIT_TASK_ID= FND_API.G_MISS_NUM
45: THEN
46: p_x_task_link_tbl(i).VISIT_TASK_ID:=NULL;
47: END IF;
48: IF p_x_task_link_tbl(i).PARENT_TASK_ID= FND_API.G_MISS_NUM
49: THEN
50: p_x_task_link_tbl(i).PARENT_TASK_ID:=NULL;
51: END IF;
52:
49: THEN
50: p_x_task_link_tbl(i).PARENT_TASK_ID:=NULL;
51: END IF;
52:
53: IF p_x_task_link_TBL(i).ATTRIBUTE_CATEGORY= FND_API.G_MISS_CHAR
54: THEN
55: p_x_task_link_TBL(i).ATTRIBUTE_CATEGORY:=NULL;
56: END IF;
57:
54: THEN
55: p_x_task_link_TBL(i).ATTRIBUTE_CATEGORY:=NULL;
56: END IF;
57:
58: IF p_x_task_link_TBL(i).ATTRIBUTE1=FND_API.G_MISS_CHAR
59: THEN
60: p_x_task_link_TBL(i).ATTRIBUTE1:=NULL;
61: END IF;
62:
59: THEN
60: p_x_task_link_TBL(i).ATTRIBUTE1:=NULL;
61: END IF;
62:
63: IF p_x_task_link_TBL(i).ATTRIBUTE2=FND_API.G_MISS_CHAR
64: THEN
65: p_x_task_link_TBL(i).ATTRIBUTE2:=NULL;
66: END IF;
67:
64: THEN
65: p_x_task_link_TBL(i).ATTRIBUTE2:=NULL;
66: END IF;
67:
68: IF p_x_task_link_TBL(i).ATTRIBUTE3=FND_API.G_MISS_CHAR
69: THEN
70: p_x_task_link_TBL(i).ATTRIBUTE3:=NULL;
71: END IF;
72:
69: THEN
70: p_x_task_link_TBL(i).ATTRIBUTE3:=NULL;
71: END IF;
72:
73: IF p_x_task_link_TBL(i).ATTRIBUTE4 IS NULL OR p_x_task_link_TBL(i).ATTRIBUTE4=FND_API.G_MISS_CHAR
74: THEN
75: p_x_task_link_TBL(i).ATTRIBUTE4:=NULL;
76: END IF;
77:
74: THEN
75: p_x_task_link_TBL(i).ATTRIBUTE4:=NULL;
76: END IF;
77:
78: IF p_x_task_link_TBL(i).ATTRIBUTE5=FND_API.G_MISS_CHAR
79: THEN
80: p_x_task_link_TBL(i).ATTRIBUTE5:=NULL;
81: END IF;
82:
79: THEN
80: p_x_task_link_TBL(i).ATTRIBUTE5:=NULL;
81: END IF;
82:
83: IF p_x_task_link_TBL(i).ATTRIBUTE6=FND_API.G_MISS_CHAR
84: THEN
85: p_x_task_link_TBL(i).ATTRIBUTE6:=NULL;
86: END IF;
87:
84: THEN
85: p_x_task_link_TBL(i).ATTRIBUTE6:=NULL;
86: END IF;
87:
88: IF p_x_task_link_TBL(i).ATTRIBUTE7=FND_API.G_MISS_CHAR
89: THEN
90: p_x_task_link_TBL(i).ATTRIBUTE7:=NULL;
91: END IF;
92:
89: THEN
90: p_x_task_link_TBL(i).ATTRIBUTE7:=NULL;
91: END IF;
92:
93: IF p_x_task_link_TBL(i).ATTRIBUTE8=FND_API.G_MISS_CHAR
94: THEN
95: p_x_task_link_TBL(i).ATTRIBUTE8:=NULL;
96: END IF;
97:
94: THEN
95: p_x_task_link_TBL(i).ATTRIBUTE8:=NULL;
96: END IF;
97:
98: IF p_x_task_link_TBL(i).ATTRIBUTE9=FND_API.G_MISS_CHAR
99: THEN
100: p_x_task_link_TBL(i).ATTRIBUTE9:=NULL;
101: END IF;
102:
99: THEN
100: p_x_task_link_TBL(i).ATTRIBUTE9:=NULL;
101: END IF;
102:
103: IF p_x_task_link_TBL(i).ATTRIBUTE10=FND_API.G_MISS_CHAR
104: THEN
105: p_x_task_link_TBL(i).ATTRIBUTE10:=NULL;
106: END IF;
107:
104: THEN
105: p_x_task_link_TBL(i).ATTRIBUTE10:=NULL;
106: END IF;
107:
108: IF p_x_task_link_TBL(i).ATTRIBUTE11=FND_API.G_MISS_CHAR
109: THEN
110: p_x_task_link_TBL(i).ATTRIBUTE11:=NULL;
111: END IF;
112:
109: THEN
110: p_x_task_link_TBL(i).ATTRIBUTE11:=NULL;
111: END IF;
112:
113: IF p_x_task_link_TBL(i).ATTRIBUTE12=FND_API.G_MISS_CHAR
114: THEN
115: p_x_task_link_TBL(i).ATTRIBUTE12:=NULL;
116: END IF;
117:
114: THEN
115: p_x_task_link_TBL(i).ATTRIBUTE12:=NULL;
116: END IF;
117:
118: IF p_x_task_link_TBL(i).ATTRIBUTE13=FND_API.G_MISS_CHAR
119: THEN
120: p_x_task_link_TBL(i).ATTRIBUTE13:=NULL;
121: END IF;
122:
119: THEN
120: p_x_task_link_TBL(i).ATTRIBUTE13:=NULL;
121: END IF;
122:
123: IF p_x_task_link_TBL(i).ATTRIBUTE14=FND_API.G_MISS_CHAR
124: THEN
125: p_x_task_link_TBL(i).ATTRIBUTE14:=NULL;
126: END IF;
127:
124: THEN
125: p_x_task_link_TBL(i).ATTRIBUTE14:=NULL;
126: END IF;
127:
128: IF p_x_task_link_TBL(i).ATTRIBUTE15=FND_API.G_MISS_CHAR
129: THEN
130: p_x_task_link_TBL(i).ATTRIBUTE15:=NULL;
131: END IF;
132: END LOOP;
225: l_parent_task_id number;
226:
227: BEGIN
228:
229: x_return_status:=FND_API.G_RET_STS_SUCCESS;
230:
231:
232: -- Changes done for Post 11.5.10 by senthil.
233: IF p_task_link_rec.HIERARCHY_INDICATOR='AFTER'
251: CLOSE c_task_type_code;
252: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_TASK_SUMMARY');
253: FND_MESSAGE.SET_TOKEN('TASK_NUM',l_parent_task_number);
254: FND_MSG_PUB.ADD;
255: RAISE FND_API.G_EXC_ERROR;
256: END IF;
257: CLOSE c_task_type_code;
258:
259: OPEN c_task_status(l_parent_task_id);
267: CLOSE c_task_status;
268: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_TASK_PARENT_REL');
269: FND_MESSAGE.SET_TOKEN('TASK_NUM',l_parent_task_number);
270: FND_MSG_PUB.ADD;
271: RAISE FND_API.G_EXC_ERROR;
272: END IF;
273: CLOSE c_task_status;
274:
275:
284: CLOSE c_task_status;
285: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_TASK_CHILD_REL');
286: FND_MESSAGE.SET_TOKEN('TASK_NUM',l_child_task_number);
287: FND_MSG_PUB.ADD;
288: RAISE FND_API.G_EXC_ERROR;
289: END IF;
290: CLOSE c_task_status;
291:
292: -- Commented by amagrawa based on review commenst
300: --End of change by amagrawa
301: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_TSK_PRECHILD_REL');
302: FND_MESSAGE.SET_TOKEN('TASK_NUM',l_parent_task_number);
303: FND_MSG_PUB.ADD;
304: RAISE FND_API.G_EXC_ERROR;
305: END IF;
306: CLOSE c_children_check_status;
307: */
308:
310: FETCH c_parent_or_child_task INTO l_parent_stage_num;
311: /*IF c_parent_task%NOTFOUND THEN
312: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_PARENT_TASK_NULL');
313: FND_MSG_PUB.ADD;
314: RAISE FND_API.G_EXC_ERROR;
315: END IF;
316: */
317: CLOSE c_parent_or_child_task;
318:
321: FETCH c_parent_or_child_task INTO l_child_stage_num;
322: /*IF c_child_task%NOTFOUND THEN
323: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_CONTEXT_TASK_NULL');
324: FND_MSG_PUB.ADD;
325: RAISE FND_API.G_EXC_ERROR;
326: END IF;
327: */
328: CLOSE c_parent_or_child_task;
329:
344: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_CHILD_STG_GT');
345: FND_MESSAGE.SET_TOKEN('CHILD_TASK_NUM',l_child_task_number);
346: FND_MESSAGE.SET_TOKEN('PARENT_TASK_NUM',l_parent_task_number);
347: FND_MSG_PUB.ADD;
348: RAISE FND_API.G_EXC_ERROR;
349: END IF;
350:
351: -- End of Post 11.5.10 Changes.
352:
353:
354: IF p_task_link_rec.dml_operation<>'D'
355: THEN
356:
357: IF (p_task_link_rec.task_link_id IS NULL OR p_task_link_rec.task_link_id=FND_API.G_MISS_NUM) AND p_task_link_rec.dml_operation<>'C'
358: THEN
359: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_VISIT_LINK_ID_NULL');
360: FND_MSG_PUB.ADD;
361: RAISE FND_API.G_EXC_ERROR;
357: IF (p_task_link_rec.task_link_id IS NULL OR p_task_link_rec.task_link_id=FND_API.G_MISS_NUM) AND p_task_link_rec.dml_operation<>'C'
358: THEN
359: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_VISIT_LINK_ID_NULL');
360: FND_MSG_PUB.ADD;
361: RAISE FND_API.G_EXC_ERROR;
362: END IF;
363:
364: IF (p_task_link_rec.OBJECT_VERSION_NUMBER IS NULL OR p_task_link_rec.OBJECT_VERSION_NUMBER=FND_API.G_MISS_NUM) and p_task_link_rec.dml_operation<>'C'
365: THEN
360: FND_MSG_PUB.ADD;
361: RAISE FND_API.G_EXC_ERROR;
362: END IF;
363:
364: IF (p_task_link_rec.OBJECT_VERSION_NUMBER IS NULL OR p_task_link_rec.OBJECT_VERSION_NUMBER=FND_API.G_MISS_NUM) and p_task_link_rec.dml_operation<>'C'
365: THEN
366: FND_MESSAGE.SET_NAME('AHL','AHL_COM_OBJECT_VERS_NUM_NULL');
367: FND_MSG_PUB.ADD;
368: RAISE FND_API.G_EXC_ERROR;
364: IF (p_task_link_rec.OBJECT_VERSION_NUMBER IS NULL OR p_task_link_rec.OBJECT_VERSION_NUMBER=FND_API.G_MISS_NUM) and p_task_link_rec.dml_operation<>'C'
365: THEN
366: FND_MESSAGE.SET_NAME('AHL','AHL_COM_OBJECT_VERS_NUM_NULL');
367: FND_MSG_PUB.ADD;
368: RAISE FND_API.G_EXC_ERROR;
369: END IF;
370:
371:
372: -- Check for uniq ness of the Route Sequences
370:
371:
372: -- Check for uniq ness of the Route Sequences
373:
374: IF (p_task_link_rec.visit_Task_id IS NOT NULL AND p_task_link_rec.visit_Task_id<>FND_API.G_MISS_NUM
375: AND p_task_link_rec.PARENT_TASK_ID IS NOT NULL AND p_task_link_rec.PARENT_TASK_ID<>FND_API.G_MISS_NUM)
376: THEN
377: IF G_DEBUG='Y' THEN
378: AHL_DEBUG_PUB.debug(L_FULL_NAME|| 'Enter Validate 02','+VWP_HIERARCHY+');
371:
372: -- Check for uniq ness of the Route Sequences
373:
374: IF (p_task_link_rec.visit_Task_id IS NOT NULL AND p_task_link_rec.visit_Task_id<>FND_API.G_MISS_NUM
375: AND p_task_link_rec.PARENT_TASK_ID IS NOT NULL AND p_task_link_rec.PARENT_TASK_ID<>FND_API.G_MISS_NUM)
376: THEN
377: IF G_DEBUG='Y' THEN
378: AHL_DEBUG_PUB.debug(L_FULL_NAME|| 'Enter Validate 02','+VWP_HIERARCHY+');
379: END IF;
397: THEN
398: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_TASK_LINK_DUP');
399: FND_MESSAGE.SET_TOKEN('RECORD',p_task_link_rec.visit_Task_number,false);
400: FND_MSG_PUB.ADD;
401: RAISE FND_API.G_EXC_ERROR;
402: END IF;
403:
404: CLOSE check_UNIQ;
405:
405:
406: END IF;
407: END IF;
408: EXCEPTION
409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
410: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
411: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
412: p_count => x_msg_count,
413: p_data => x_msg_data);
406: END IF;
407: END IF;
408: EXCEPTION
409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
410: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
411: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
412: p_count => x_msg_count,
413: p_data => x_msg_data);
414:
407: END IF;
408: EXCEPTION
409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
410: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
411: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
412: p_count => x_msg_count,
413: p_data => x_msg_data);
414:
415: WHEN FND_API.G_EXC_ERROR THEN
411: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
412: p_count => x_msg_count,
413: p_data => x_msg_data);
414:
415: WHEN FND_API.G_EXC_ERROR THEN
416: X_return_status := FND_API.G_RET_STS_ERROR;
417: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
418: p_count => x_msg_count,
419: p_data => X_msg_data);
412: p_count => x_msg_count,
413: p_data => x_msg_data);
414:
415: WHEN FND_API.G_EXC_ERROR THEN
416: X_return_status := FND_API.G_RET_STS_ERROR;
417: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
418: p_count => x_msg_count,
419: p_data => X_msg_data);
420: WHEN OTHERS THEN
413: p_data => x_msg_data);
414:
415: WHEN FND_API.G_EXC_ERROR THEN
416: X_return_status := FND_API.G_RET_STS_ERROR;
417: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
418: p_count => x_msg_count,
419: p_data => X_msg_data);
420: WHEN OTHERS THEN
421: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
417: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
418: p_count => x_msg_count,
419: p_data => X_msg_data);
420: WHEN OTHERS THEN
421: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
422: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
423: THEN
424: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
425: p_procedure_name => L_API_NAME,
424: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
425: p_procedure_name => L_API_NAME,
426: p_error_text => SUBSTR(SQLERRM,1,240));
427: END IF;
428: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
429: p_count => x_msg_count,
430: p_data => X_msg_data);
431: END;
432:
453:
454: l_task_det get_task_info%rowtype;
455: BEGIN
456:
457: x_return_status:=FND_API.G_RET_STS_SUCCESS;
458:
459: IF p_x_task_link_rec.visit_task_number is null OR p_x_task_link_rec.visit_task_number=FND_API.G_MISS_CHAR
460: THEN
461: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_TASK_NUMBER_NULL');
455: BEGIN
456:
457: x_return_status:=FND_API.G_RET_STS_SUCCESS;
458:
459: IF p_x_task_link_rec.visit_task_number is null OR p_x_task_link_rec.visit_task_number=FND_API.G_MISS_CHAR
460: THEN
461: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_TASK_NUMBER_NULL');
462: FND_MSG_PUB.ADD;
463: RAISE FND_API.G_EXC_ERROR;
459: IF p_x_task_link_rec.visit_task_number is null OR p_x_task_link_rec.visit_task_number=FND_API.G_MISS_CHAR
460: THEN
461: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_TASK_NUMBER_NULL');
462: FND_MSG_PUB.ADD;
463: RAISE FND_API.G_EXC_ERROR;
464:
465: ELSE
466: OPEN get_task_info(p_x_task_link_rec.VISIT_TASK_ID,p_x_task_link_rec.visit_task_number);
467: FETCH get_task_info INTO l_task_det;
470: THEN
471: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_CONTEXT_TSK_INV');
472: FND_MESSAGE.SET_TOKEN('RECORD',p_x_task_link_rec.visit_Task_number,false);
473: FND_MSG_PUB.ADD;
474: RAISE FND_API.G_EXC_ERROR;
475: ELSE
476: p_x_task_link_rec.parent_task_id:=l_task_det.visit_task_id;
477: -- Commented by amagrawa based on review comments.
478: -- p_x_task_link_rec.visit_task_number:=l_task_det.visit_task_number;
481: CLOSE get_task_info;
482: END IF;
483:
484: EXCEPTION
485: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
486: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
487: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
488: p_count => x_msg_count,
489: p_data => x_msg_data);
482: END IF;
483:
484: EXCEPTION
485: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
486: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
487: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
488: p_count => x_msg_count,
489: p_data => x_msg_data);
490:
483:
484: EXCEPTION
485: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
486: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
487: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
488: p_count => x_msg_count,
489: p_data => x_msg_data);
490:
491: WHEN FND_API.G_EXC_ERROR THEN
487: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
488: p_count => x_msg_count,
489: p_data => x_msg_data);
490:
491: WHEN FND_API.G_EXC_ERROR THEN
492: X_return_status := FND_API.G_RET_STS_ERROR;
493: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
494: p_count => x_msg_count,
495: p_data => X_msg_data);
488: p_count => x_msg_count,
489: p_data => x_msg_data);
490:
491: WHEN FND_API.G_EXC_ERROR THEN
492: X_return_status := FND_API.G_RET_STS_ERROR;
493: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
494: p_count => x_msg_count,
495: p_data => X_msg_data);
496: WHEN OTHERS THEN
489: p_data => x_msg_data);
490:
491: WHEN FND_API.G_EXC_ERROR THEN
492: X_return_status := FND_API.G_RET_STS_ERROR;
493: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
494: p_count => x_msg_count,
495: p_data => X_msg_data);
496: WHEN OTHERS THEN
497: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
493: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
494: p_count => x_msg_count,
495: p_data => X_msg_data);
496: WHEN OTHERS THEN
497: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
498: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
499: THEN
500: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
501: p_procedure_name => 'TRANS_VALUE_ID',
500: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
501: p_procedure_name => 'TRANS_VALUE_ID',
502: p_error_text => SUBSTR(SQLERRM,1,240));
503: END IF;
504: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
505: p_count => x_msg_count,
506: p_data => X_msg_data);
507: END;
508:
519: l_cyclic_loop EXCEPTION;
520: PRAGMA EXCEPTION_INIT(l_cyclic_loop,-1436);
521: l_counter NUMBER;
522: BEGIN
523: x_return_status:=FND_API.G_RET_STS_SUCCESS;
524:
525: SELECT COUNT(*) INTO l_counter
526: FROM AHL_TASK_LINKS A
527: START WITH VISIT_TASK_ID=P_VISIT_TASK_ID
530: WHEN l_cyclic_loop THEN
531: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_VISIT_TASK_ID_CYC');
532: FND_MESSAGE.SET_TOKEN('RECORD',P_VISIT_TASK_NUMBER ,false);
533: FND_MSG_PUB.ADD;
534: x_return_status := FND_API.G_RET_STS_ERROR;
535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
536: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
537: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
538: p_count => x_msg_count,
531: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_VISIT_TASK_ID_CYC');
532: FND_MESSAGE.SET_TOKEN('RECORD',P_VISIT_TASK_NUMBER ,false);
533: FND_MSG_PUB.ADD;
534: x_return_status := FND_API.G_RET_STS_ERROR;
535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
536: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
537: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
538: p_count => x_msg_count,
539: p_data => x_msg_data);
532: FND_MESSAGE.SET_TOKEN('RECORD',P_VISIT_TASK_NUMBER ,false);
533: FND_MSG_PUB.ADD;
534: x_return_status := FND_API.G_RET_STS_ERROR;
535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
536: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
537: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
538: p_count => x_msg_count,
539: p_data => x_msg_data);
540:
533: FND_MSG_PUB.ADD;
534: x_return_status := FND_API.G_RET_STS_ERROR;
535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
536: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
537: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
538: p_count => x_msg_count,
539: p_data => x_msg_data);
540:
541: WHEN FND_API.G_EXC_ERROR THEN
537: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
538: p_count => x_msg_count,
539: p_data => x_msg_data);
540:
541: WHEN FND_API.G_EXC_ERROR THEN
542: X_return_status := FND_API.G_RET_STS_ERROR;
543: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
544: p_count => x_msg_count,
545: p_data => X_msg_data);
538: p_count => x_msg_count,
539: p_data => x_msg_data);
540:
541: WHEN FND_API.G_EXC_ERROR THEN
542: X_return_status := FND_API.G_RET_STS_ERROR;
543: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
544: p_count => x_msg_count,
545: p_data => X_msg_data);
546: WHEN OTHERS THEN
539: p_data => x_msg_data);
540:
541: WHEN FND_API.G_EXC_ERROR THEN
542: X_return_status := FND_API.G_RET_STS_ERROR;
543: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
544: p_count => x_msg_count,
545: p_data => X_msg_data);
546: WHEN OTHERS THEN
547: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
543: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
544: p_count => x_msg_count,
545: p_data => X_msg_data);
546: WHEN OTHERS THEN
547: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
548: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
549: THEN
550: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
551: p_procedure_name => 'NON_CYCLIC_ENF',
550: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
551: p_procedure_name => 'NON_CYCLIC_ENF',
552: p_error_text => SUBSTR(SQLERRM,1,240));
553: END IF;
554: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
555: p_count => x_msg_count,
556: p_data => X_msg_data);
557: END;
558:
604:
605: l_msg_count := FND_MSG_PUB.count_msg;
606: IF l_msg_count > 0
607: THEN
608: RAISE FND_API.G_EXC_ERROR;
609: END IF;
610:
611: -- Validate the Links
612:
621: -- l_msg_count := FND_MSG_PUB.count_msg;
622: -- Added by amagrawa based on review comments.
623: IF l_return_Status <>'S'
624: THEN
625: IF l_return_Status = FND_API.G_RET_STS_ERROR
626: THEN
627: RAISE FND_API.G_EXC_ERROR;
628: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
629: THEN
623: IF l_return_Status <>'S'
624: THEN
625: IF l_return_Status = FND_API.G_RET_STS_ERROR
626: THEN
627: RAISE FND_API.G_EXC_ERROR;
628: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
629: THEN
630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
631: END IF;
624: THEN
625: IF l_return_Status = FND_API.G_RET_STS_ERROR
626: THEN
627: RAISE FND_API.G_EXC_ERROR;
628: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
629: THEN
630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
631: END IF;
632:
626: THEN
627: RAISE FND_API.G_EXC_ERROR;
628: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
629: THEN
630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
631: END IF;
632:
633: END IF;
634:
705:
706: -- Added by amagrawa based on review comments.
707: IF l_return_Status <>'S'
708: THEN
709: IF l_return_Status = FND_API.G_RET_STS_ERROR
710: THEN
711: RAISE FND_API.G_EXC_ERROR;
712: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
713: THEN
707: IF l_return_Status <>'S'
708: THEN
709: IF l_return_Status = FND_API.G_RET_STS_ERROR
710: THEN
711: RAISE FND_API.G_EXC_ERROR;
712: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
713: THEN
714: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
715: END IF;
708: THEN
709: IF l_return_Status = FND_API.G_RET_STS_ERROR
710: THEN
711: RAISE FND_API.G_EXC_ERROR;
712: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
713: THEN
714: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
715: END IF;
716:
710: THEN
711: RAISE FND_API.G_EXC_ERROR;
712: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
713: THEN
714: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
715: END IF;
716:
717: END IF;
718:
718:
719: -- Added cxcheng POST11510--------------
720: --Now adjust the times derivation for the child task
721: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
722: p_init_msg_list => Fnd_Api.G_FALSE,
723: p_commit => Fnd_Api.G_FALSE,
724: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
725: x_return_status => l_return_status,
726: x_msg_count => l_msg_count,
719: -- Added cxcheng POST11510--------------
720: --Now adjust the times derivation for the child task
721: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
722: p_init_msg_list => Fnd_Api.G_FALSE,
723: p_commit => Fnd_Api.G_FALSE,
724: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
725: x_return_status => l_return_status,
726: x_msg_count => l_msg_count,
727: x_msg_data => l_msg_data,
720: --Now adjust the times derivation for the child task
721: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
722: p_init_msg_list => Fnd_Api.G_FALSE,
723: p_commit => Fnd_Api.G_FALSE,
724: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
725: x_return_status => l_return_status,
726: x_msg_count => l_msg_count,
727: x_msg_data => l_msg_data,
728: p_task_id => P_task_link_rec.visit_task_id);
730:
731: -- Added by amagrawa based on review comments.
732: IF l_return_Status <>'S'
733: THEN
734: IF l_return_Status = FND_API.G_RET_STS_ERROR
735: THEN
736: RAISE FND_API.G_EXC_ERROR;
737: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
738: THEN
732: IF l_return_Status <>'S'
733: THEN
734: IF l_return_Status = FND_API.G_RET_STS_ERROR
735: THEN
736: RAISE FND_API.G_EXC_ERROR;
737: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
738: THEN
739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
740: END IF;
733: THEN
734: IF l_return_Status = FND_API.G_RET_STS_ERROR
735: THEN
736: RAISE FND_API.G_EXC_ERROR;
737: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
738: THEN
739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
740: END IF;
741:
735: THEN
736: RAISE FND_API.G_EXC_ERROR;
737: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
738: THEN
739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
740: END IF;
741:
742: END IF;
743:
743:
744: l_msg_count := FND_MSG_PUB.count_msg;
745: IF l_msg_count > 0
746: THEN
747: RAISE FND_API.G_EXC_ERROR;
748: END IF;
749:
750:
751: END Create_Task_Links;
779: IF SQL%ROWCOUNT=0
780: THEN
781: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
782: FND_MSG_PUB.ADD;
783: RAISE FND_API.G_EXC_ERROR;
784: END IF;
785:
786:
787: -- Added cxcheng POST11510--------------
786:
787: -- Added cxcheng POST11510--------------
788: --Now adjust the times derivation for the child task. Parent doesn't matter
789: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
790: p_init_msg_list => Fnd_Api.G_FALSE,
791: p_commit => Fnd_Api.G_FALSE,
792: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
793: x_return_status => l_return_status,
794: x_msg_count => l_msg_count,
787: -- Added cxcheng POST11510--------------
788: --Now adjust the times derivation for the child task. Parent doesn't matter
789: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
790: p_init_msg_list => Fnd_Api.G_FALSE,
791: p_commit => Fnd_Api.G_FALSE,
792: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
793: x_return_status => l_return_status,
794: x_msg_count => l_msg_count,
795: x_msg_data => l_msg_data,
788: --Now adjust the times derivation for the child task. Parent doesn't matter
789: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
790: p_init_msg_list => Fnd_Api.G_FALSE,
791: p_commit => Fnd_Api.G_FALSE,
792: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
793: x_return_status => l_return_status,
794: x_msg_count => l_msg_count,
795: x_msg_data => l_msg_data,
796: p_task_id => l_child_task_id);
797:
798: -- Added by amagrawa based on review comments.
799: IF l_return_Status <>'S'
800: THEN
801: IF l_return_Status = FND_API.G_RET_STS_ERROR
802: THEN
803: RAISE FND_API.G_EXC_ERROR;
804: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
805: THEN
799: IF l_return_Status <>'S'
800: THEN
801: IF l_return_Status = FND_API.G_RET_STS_ERROR
802: THEN
803: RAISE FND_API.G_EXC_ERROR;
804: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
805: THEN
806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
807: END IF;
800: THEN
801: IF l_return_Status = FND_API.G_RET_STS_ERROR
802: THEN
803: RAISE FND_API.G_EXC_ERROR;
804: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
805: THEN
806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
807: END IF;
808:
802: THEN
803: RAISE FND_API.G_EXC_ERROR;
804: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
805: THEN
806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
807: END IF;
808:
809: END IF;
810:
810:
811: l_msg_count := FND_MSG_PUB.count_msg;
812: IF l_msg_count > 0
813: THEN
814: RAISE FND_API.G_EXC_ERROR;
815: END IF;
816:
817: END DELETE_TASK_LINKS;
818:
818:
819: PROCEDURE PROCESS_TASK_LINKS
820: (
821: p_api_version IN NUMBER := 1.0,
822: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
823: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
824: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
825: p_default IN VARCHAR2 := FND_API.G_FALSE,
826: p_module_type IN VARCHAR2 := NULL,
819: PROCEDURE PROCESS_TASK_LINKS
820: (
821: p_api_version IN NUMBER := 1.0,
822: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
823: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
824: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
825: p_default IN VARCHAR2 := FND_API.G_FALSE,
826: p_module_type IN VARCHAR2 := NULL,
827: x_return_status OUT NOCOPY VARCHAR2,
820: (
821: p_api_version IN NUMBER := 1.0,
822: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
823: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
824: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
825: p_default IN VARCHAR2 := FND_API.G_FALSE,
826: p_module_type IN VARCHAR2 := NULL,
827: x_return_status OUT NOCOPY VARCHAR2,
828: x_msg_count OUT NOCOPY NUMBER,
821: p_api_version IN NUMBER := 1.0,
822: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
823: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
824: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
825: p_default IN VARCHAR2 := FND_API.G_FALSE,
826: p_module_type IN VARCHAR2 := NULL,
827: x_return_status OUT NOCOPY VARCHAR2,
828: x_msg_count OUT NOCOPY NUMBER,
829: x_msg_data OUT NOCOPY VARCHAR2,
860: l_api_version CONSTANT NUMBER := 1.0;
861: l_msg_count NUMBER;
862: l_msg_data VARCHAR2(2000);
863: l_return_status VARCHAR2(1);
864: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
865: l_commit VARCHAR2(1):= FND_API.G_FALSE;
866: l_TASK_LINK_tbl TASK_LINK_TBL:=p_x_task_link_tbl;
867: L_TASK_LINK_REC TASK_LINK_REC;
868: l_status_code VARCHAR2(30);
861: l_msg_count NUMBER;
862: l_msg_data VARCHAR2(2000);
863: l_return_status VARCHAR2(1);
864: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
865: l_commit VARCHAR2(1):= FND_API.G_FALSE;
866: l_TASK_LINK_tbl TASK_LINK_TBL:=p_x_task_link_tbl;
867: L_TASK_LINK_REC TASK_LINK_REC;
868: l_status_code VARCHAR2(30);
869: l_task_id NUMBER;
878: SAVEPOINT PROCESS_TASK_LINKS;
879:
880: -- Standard call to check for call compatibility.
881:
882: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
883: p_api_version,
884: l_api_name,G_PKG_NAME) THEN
885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
886: END IF;
881:
882: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
883: p_api_version,
884: l_api_name,G_PKG_NAME) THEN
885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
886: END IF;
887:
888: -- Initialize message list if p_init_msg_list is set to TRUE.
889: IF FND_API.to_boolean(l_init_msg_list) THEN
885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
886: END IF;
887:
888: -- Initialize message list if p_init_msg_list is set to TRUE.
889: IF FND_API.to_boolean(l_init_msg_list) THEN
890: FND_MSG_PUB.initialize;
891: END IF;
892:
893:
907:
908:
909: -- Initialize API return status to success
910:
911: x_return_status := FND_API.G_RET_STS_SUCCESS;
912:
913:
914: --Start of API Body
915:
940:
941: -- Added by amagrawa based on review comments.
942: IF x_return_Status <>'S'
943: THEN
944: IF x_return_Status = FND_API.G_RET_STS_ERROR
945: THEN
946: RAISE FND_API.G_EXC_ERROR;
947: ELSIF x_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
948: THEN
942: IF x_return_Status <>'S'
943: THEN
944: IF x_return_Status = FND_API.G_RET_STS_ERROR
945: THEN
946: RAISE FND_API.G_EXC_ERROR;
947: ELSIF x_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
948: THEN
949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
950: END IF;
943: THEN
944: IF x_return_Status = FND_API.G_RET_STS_ERROR
945: THEN
946: RAISE FND_API.G_EXC_ERROR;
947: ELSIF x_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
948: THEN
949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
950: END IF;
951: END IF;
945: THEN
946: RAISE FND_API.G_EXC_ERROR;
947: ELSIF x_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
948: THEN
949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
950: END IF;
951: END IF;
952:
953: l_TASK_LINK_tbl(i).parent_task_id:=l_TASK_LINK_rec.parent_task_id;
962: -- Commented by amagrawa based on review comments.
963: /* l_msg_count := FND_MSG_PUB.count_msg;
964: IF l_msg_count > 0 THEN
965: X_msg_count := l_msg_count;
966: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
967: RAISE FND_API.G_EXC_ERROR;
968: END IF;
969: */
970: IF G_DEBUG='Y' THEN
963: /* l_msg_count := FND_MSG_PUB.count_msg;
964: IF l_msg_count > 0 THEN
965: X_msg_count := l_msg_count;
966: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
967: RAISE FND_API.G_EXC_ERROR;
968: END IF;
969: */
970: IF G_DEBUG='Y' THEN
971: AHL_DEBUG_PUB.debug( L_FULL_NAME||' After Translate','+VWP_HIERARCHY+');
1009:
1010: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_INV_TASK_STATUS');
1011: FND_MESSAGE.SET_TOKEN('RECORD',l_TASK_LINK_tbl(i).visit_task_number ,false);
1012: FND_MSG_PUB.ADD;
1013: x_return_status := FND_API.G_RET_STS_ERROR;
1014:
1015: ELSE
1016: l_TASK_LINK_rec.object_version_number :=l_TASK_LINK_tbl(i).object_version_number;
1017: l_TASK_LINK_rec.visit_task_id :=l_TASK_LINK_tbl(i).visit_task_id;
1021: l_TASK_LINK_rec.visit_task_id :=l_TASK_LINK_tbl(i).visit_task_id;
1022: l_TASK_LINK_rec.dml_operation :=l_TASK_LINK_tbl(i).DML_OPERATION;
1023:
1024:
1025: -- IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL )
1026: -- THEN
1027: /* IF l_TASK_LINK_TBL(i).DML_OPERATION<>'D'
1028: THEN
1029:
1079: IF l_visit_end_date IS NOT NULL THEN
1080:
1081: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
1082: (p_api_version => p_api_version,
1083: p_init_msg_list => Fnd_Api.G_FALSE,
1084: p_commit => Fnd_Api.G_FALSE,
1085: p_visit_id => l_visit_csr_rec.visit_id,
1086: p_visit_task_id => NULL,
1087: p_org_id => NULL,
1080:
1081: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
1082: (p_api_version => p_api_version,
1083: p_init_msg_list => Fnd_Api.G_FALSE,
1084: p_commit => Fnd_Api.G_FALSE,
1085: p_visit_id => l_visit_csr_rec.visit_id,
1086: p_visit_task_id => NULL,
1087: p_org_id => NULL,
1088: p_start_date => NULL,
1093: x_msg_data => l_msg_data);
1094:
1095:
1096:
1097: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1098: X_msg_count := l_msg_count;
1099: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1100: RAISE Fnd_Api.G_EXC_ERROR;
1101: END IF;
1095:
1096:
1097: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1098: X_msg_count := l_msg_count;
1099: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1100: RAISE Fnd_Api.G_EXC_ERROR;
1101: END IF;
1102:
1103: END IF;
1096:
1097: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1098: X_msg_count := l_msg_count;
1099: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1100: RAISE Fnd_Api.G_EXC_ERROR;
1101: END IF;
1102:
1103: END IF;
1104:
1110: p_visit_id =>l_visit_csr_rec.visit_id,
1111: p_flag =>'Y',
1112: x_return_status =>x_return_status);
1113: END IF;
1114: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1115: CLOSE C_VISIT;
1116: RAISE FND_API.G_EXC_ERROR;
1117: END IF;
1118: END IF;
1112: x_return_status =>x_return_status);
1113: END IF;
1114: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1115: CLOSE C_VISIT;
1116: RAISE FND_API.G_EXC_ERROR;
1117: END IF;
1118: END IF;
1119: CLOSE C_VISIT;
1120:
1121: END IF;
1122: l_msg_count := FND_MSG_PUB.count_msg;
1123: IF l_msg_count > 0 THEN
1124: X_msg_count := l_msg_count;
1125: X_return_status := FND_API.G_RET_STS_ERROR;
1126: RAISE FND_API.G_EXC_ERROR;
1127: END IF;
1128:
1129:
1122: l_msg_count := FND_MSG_PUB.count_msg;
1123: IF l_msg_count > 0 THEN
1124: X_msg_count := l_msg_count;
1125: X_return_status := FND_API.G_RET_STS_ERROR;
1126: RAISE FND_API.G_EXC_ERROR;
1127: END IF;
1128:
1129:
1130: IF FND_API.TO_BOOLEAN(p_commit) THEN
1126: RAISE FND_API.G_EXC_ERROR;
1127: END IF;
1128:
1129:
1130: IF FND_API.TO_BOOLEAN(p_commit) THEN
1131: COMMIT;
1132: END IF;
1133: -- Debug info
1134:
1142: AHL_DEBUG_PUB.disable_debug;
1143: END IF;
1144:
1145: EXCEPTION
1146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1147: ROLLBACK TO PROCESS_TASK_LINKS;
1148: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1149: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1150: p_count => x_msg_count,
1144:
1145: EXCEPTION
1146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1147: ROLLBACK TO PROCESS_TASK_LINKS;
1148: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1149: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1150: p_count => x_msg_count,
1151: p_data => x_msg_data);
1152:
1145: EXCEPTION
1146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1147: ROLLBACK TO PROCESS_TASK_LINKS;
1148: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1149: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1150: p_count => x_msg_count,
1151: p_data => x_msg_data);
1152:
1153: WHEN FND_API.G_EXC_ERROR THEN
1149: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1150: p_count => x_msg_count,
1151: p_data => x_msg_data);
1152:
1153: WHEN FND_API.G_EXC_ERROR THEN
1154: ROLLBACK TO PROCESS_TASK_LINKS;
1155: X_return_status := FND_API.G_RET_STS_ERROR;
1156: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1157: p_count => x_msg_count,
1151: p_data => x_msg_data);
1152:
1153: WHEN FND_API.G_EXC_ERROR THEN
1154: ROLLBACK TO PROCESS_TASK_LINKS;
1155: X_return_status := FND_API.G_RET_STS_ERROR;
1156: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1157: p_count => x_msg_count,
1158: p_data => X_msg_data);
1159: WHEN OTHERS THEN
1152:
1153: WHEN FND_API.G_EXC_ERROR THEN
1154: ROLLBACK TO PROCESS_TASK_LINKS;
1155: X_return_status := FND_API.G_RET_STS_ERROR;
1156: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1157: p_count => x_msg_count,
1158: p_data => X_msg_data);
1159: WHEN OTHERS THEN
1160: ROLLBACK TO PROCESS_TASK_LINKS;
1157: p_count => x_msg_count,
1158: p_data => X_msg_data);
1159: WHEN OTHERS THEN
1160: ROLLBACK TO PROCESS_TASK_LINKS;
1161: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1162: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1163: THEN
1164: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_VWP_TASKS_LINKS_PVT',
1165: p_procedure_name => 'PROCESS_TASK_LINKS',
1164: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_VWP_TASKS_LINKS_PVT',
1165: p_procedure_name => 'PROCESS_TASK_LINKS',
1166: p_error_text => SUBSTR(SQLERRM,1,240));
1167: END IF;
1168: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1169: p_count => x_msg_count,
1170: p_data => X_msg_data);
1171: END;
1172: