248: FETCH c_task_number into l_parent_task_number;
249: CLOSE c_task_number;
250: --End of change by amagrawa
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;
249: CLOSE c_task_number;
250: --End of change by amagrawa
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;
264: FETCH c_task_number into l_parent_task_number;
265: CLOSE c_task_number;
266: --End of change by amagrawa
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;
265: CLOSE c_task_number;
266: --End of change by amagrawa
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;
281: FETCH c_task_number into l_child_task_number;
282: CLOSE c_task_number;
283: --End of change by amagrawa
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;
282: CLOSE c_task_number;
283: --End of change by amagrawa
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;
297: open c_task_number(p_task_link_rec.PARENT_TASK_ID);
298: FETCH c_task_number into l_parent_task_number;
299: CLOSE c_task_number;
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;
298: FETCH c_task_number into l_parent_task_number;
299: CLOSE c_task_number;
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;
308:
309: OPEN c_parent_or_child_task(l_parent_task_id);
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: */
319:
320: OPEN c_parent_or_child_task(l_child_task_id);
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: */
340: FETCH c_task_number into l_parent_task_number;
341: CLOSE c_task_number;
342: --End of change by amagrawa
343:
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;
341: CLOSE c_task_number;
342: --End of change by amagrawa
343:
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;
342: --End of change by amagrawa
343:
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:
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;
362: END IF;
363:
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;
369: END IF;
370:
394: END IF;
395:
396: IF l_counter2>0
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;
395:
396: IF l_counter2>0
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:
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;
464:
465: ELSE
467: FETCH get_task_info INTO l_task_det;
468:
469: IF get_task_info%NOTFOUND
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
468:
469: IF get_task_info%NOTFOUND
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;
527: START WITH VISIT_TASK_ID=P_VISIT_TASK_ID
528: CONNECT BY PRIOR VISIT_TASK_ID =PARENT_TASK_ID;
529: EXCEPTION
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
528: CONNECT BY PRIOR VISIT_TASK_ID =PARENT_TASK_ID;
529: EXCEPTION
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;
584: -- Validate the values entered by the user
585:
586: IF(P_task_link_rec.visit_task_number is NULL or length(trim(P_task_link_rec.visit_task_number)) = 0 )
587: THEN
588: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_CONTEXT_TASK_NULL');
589: FND_MSG_PUB.ADD;
590: ELSE
591: OPEN CHECK_TASK_ID(P_task_link_rec.visit_task_number,P_task_link_rec.visit_task_id);
592: FETCH CHECK_TASK_ID INTO l_visit_task_id;
592: FETCH CHECK_TASK_ID INTO l_visit_task_id;
593: IF (CHECK_TASK_ID%FOUND) THEN
594: P_task_link_rec.parent_task_id := l_visit_task_id;
595: ELSE
596: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_CONTEXT_TSK_INV');
597: FND_MESSAGE.SET_TOKEN('RECORD',P_task_link_rec.visit_task_number,false);
598: FND_MSG_PUB.ADD;
599: END IF;
600: CLOSE Check_Task_ID;
593: IF (CHECK_TASK_ID%FOUND) THEN
594: P_task_link_rec.parent_task_id := l_visit_task_id;
595: ELSE
596: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_CONTEXT_TSK_INV');
597: FND_MESSAGE.SET_TOKEN('RECORD',P_task_link_rec.visit_task_number,false);
598: FND_MSG_PUB.ADD;
599: END IF;
600: CLOSE Check_Task_ID;
601: END IF;
777: WHERE TASK_LINK_ID=p_task_link_id
778: AND OBJECT_VERSION_NUMBER=p_object_version_number;
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:
1006: CLOSE task_status_csr;
1007:
1008: IF l_status_code <>'PLANNING' THEN
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:
1007:
1008: IF l_status_code <>'PLANNING' THEN
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
1052: /* DELETE AHL_TASK_LINKS WHERE TASK_LINK_ID=l_task_link_tbl(i).task_link_id
1053: AND OBJECT_VERSION_NUMBER=l_task_link_tbl(i).OBJECT_VERSION_NUMBER;
1054: IF SQL%ROWCOUNT=0
1055: THEN
1056: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1057: FND_MSG_PUB.ADD;
1058: END IF;
1059: */
1060: