[Home] [Help]
146:
147: CURSOR CHECK_UNIQ(C_PARENT_TASK_ID NUMBER,C_visit_Task_id NUMBER)
148: IS
149: select count(*)
150: from AHL_TASK_LINKS
151: where VISIT_TASK_ID=C_VISIT_TASK_ID
152: and PARENT_TASK_ID=C_PARENT_TASK_ID;
153:
154: -- Changes done for Post 11.5.10 by senthil.
166: -- VWP ER-12424063:: tchimira :: 15-APR-2011:: start
167: -- Get the passed p_parent_task_id and all its successive parent tasks
168: CURSOR c_get_parent_tasks(p_parent_task_id IN NUMBER, p_child_task_id IN NUMBER)
169: IS
170: select link.parent_task_id from ahl_task_links link
171: start with link.visit_task_id = p_child_task_id
172: and link.parent_task_id = p_parent_task_id
173: connect by prior link.parent_task_id = link.visit_task_id;
174:
174:
175: -- Get the passed p_child_task_id and all its successive child tasks
176: CURSOR c_get_child_tasks(p_parent_task_id IN NUMBER, p_child_task_id IN NUMBER)
177: IS
178: select link.visit_task_id from ahl_task_links link
179: start with link.parent_task_id = p_parent_task_id
180: and link.visit_task_id = p_child_task_id
181: connect by prior link.visit_task_id = link.parent_task_id;
182:
229: -- Commented by amagrawa as user can associate only task in planning status to task hierarchy
230: /*CURSOR c_children_check_status(p_parent_visit_task_id IN NUMBER)
231: IS
232: SELECT 'X'
233: FROM ahl_task_links lin,
234: ahl_visit_tasks_b vt
235: WHERE lin.visit_task_id = vt.visit_task_id
236: AND vt.status_code = 'RELEASED'
237: START WITH lin.parent_task_id = p_parent_visit_task_id
549: BEGIN
550: x_return_status:=FND_API.G_RET_STS_SUCCESS;
551:
552: SELECT COUNT(*) INTO l_counter
553: FROM AHL_TASK_LINKS A
554: START WITH VISIT_TASK_ID=P_VISIT_TASK_ID
555: CONNECT BY PRIOR VISIT_TASK_ID =PARENT_TASK_ID;
556: EXCEPTION
557: WHEN l_cyclic_loop THEN
620: l_visit_task_id NUMBER;
621:
622: BEGIN
623:
624: -- Select ahl_task_links_s.nextval into l_task_link_id from dual;
625: -- Validate the values entered by the user
626:
627: IF(P_task_link_rec.visit_task_number is NULL or length(trim(P_task_link_rec.visit_task_number)) = 0 )
628: THEN --Added by tchimira for VWPE 12730539
663: P_task_link_rec.PARENT_TASK_ID:=l_flip_vtid;
664: END IF;*/
665:
666: --Added new 'PRECEDENCE_CONSTRAINT'column by tchimira - VWP ER-12424063 ::14-FEB-2011
667: INSERT INTO AHL_TASK_LINKS(
668: TASK_LINK_ID,
669: OBJECT_VERSION_NUMBER,
670: LAST_UPDATE_DATE,
671: LAST_UPDATED_BY,
692: ATTRIBUTE15,
693: PRECEDENCE_CONSTRAINT)
694: values
695: (
696: ahl_task_links_s.nextval,
697: 1,
698: sysdate,
699: fnd_global.user_id,
700: sysdate,
800: as
801: --
802: cursor child_task_csr (p_task_link_id IN NUMBER) IS
803: SELECT visit_task_id
804: FROM ahl_task_links
805: WHERE task_link_id = p_task_link_id;
806: --
807: l_return_Status VARCHAR2(1);
808: l_msg_count NUMBER;
814: OPEN child_task_csr(p_task_link_id);
815: FETCH child_task_csr INTO l_child_task_id;
816: CLOSE child_task_csr;
817:
818: DELETE AHL_TASK_LINKS
819: WHERE TASK_LINK_ID=p_task_link_id
820: AND OBJECT_VERSION_NUMBER=p_object_version_number;
821: IF SQL%ROWCOUNT=0
822: THEN
891: l_visit_csr_rec c_Visit%ROWTYPE;
892:
893: -- Cursor to find visit_task_id from task_link_id
894: CURSOR c_task_link (p_task_link_id IN NUMBER) IS
895: SELECT visit_task_id FROM AHL_TASK_LINKS
896: WHERE task_link_id = p_task_link_id;
897:
898:
899: l_api_name CONSTANT VARCHAR2(30) := 'PROCESS_TASK_LINKS';
1090: p_task_link_id => l_task_link_tbl(i).task_link_id,
1091: p_object_version_number => l_task_link_tbl(i).object_version_number
1092: );
1093:
1094: /* DELETE AHL_TASK_LINKS WHERE TASK_LINK_ID=l_task_link_tbl(i).task_link_id
1095: AND OBJECT_VERSION_NUMBER=l_task_link_tbl(i).OBJECT_VERSION_NUMBER;
1096: IF SQL%ROWCOUNT=0
1097: THEN
1098: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');