[Home] [Help]
29:
30: -- Copying data with previous set id to new set_id.
31: for rec_link in l_link_csr loop
32: -- dtian: use table handler instead
33: select cs_kb_set_links_s.nextval into l_id from dual;
34:
35: CS_KB_SET_LINKS_PKG.Insert_Row(
36: X_Rowid => l_rowid,
37: X_Link_Id => l_id,
270: -- End of Validation
271:
272: --prepare data, then insert new set link
273: IF( x_link_id is null ) THEN
274: select cs_kb_set_links_s.nextval into l_id from dual;
275: ELSE
276: l_id := x_link_id;
277: END IF;
278:
355: p_other_id);
356: FETCH Count_Links_to_Soln_Ver into l_links_to_soln_ver_ct;
357: CLOSE Count_Links_to_Soln_Ver;
358: IF ( l_links_to_soln_ver_ct = 0 ) THEN
359: select cs_kb_set_links_s.nextval into l_other_link_id from dual;
360: CS_KB_SET_LINKS_PKG.Insert_Row(
361: X_Rowid => l_other_rowid,
362: X_Link_Id => l_other_link_id,
363: X_Link_type => p_link_type,
683:
684: -- Validation Cursors
685: CURSOR Validate_Link IS
686: SELECT sl.set_id, sl.object_code, sl.other_id, sb.set_number, sb.status
687: FROM CS_KB_SET_LINKS sl, CS_KB_SETS_B sb
688: WHERE sl.link_id = P_LINK_ID
689: AND sl.set_id = sb.set_id
690: AND ( sb.status = 'PUB' OR sb.latest_version_flag = 'Y' );
691:
692: -- Cursor to fetch link to latest in-progress version of a solution
693: CURSOR Get_Link_To_Latest_Ver(c_soln_number VARCHAR2, c_object_code VARCHAR2,
694: c_other_id NUMBER) IS
695: SELECT sl.link_id, sl.set_id
696: FROM CS_KB_SET_LINKS sl, CS_KB_SETS_B sb
697: WHERE sb.set_number = c_soln_number
698: AND sb.latest_version_flag = 'Y'
699: AND sb.set_id = sl.set_id
700: AND sl.object_code = c_object_code
703: -- Cursor to fetch link to published version of a solution
704: CURSOR Get_Link_To_Published_Ver(c_soln_number VARCHAR2, c_object_code VARCHAR2,
705: c_other_id NUMBER) IS
706: SELECT sl.link_id, sl.set_id
707: FROM CS_KB_SET_LINKS sl, CS_KB_SETS_B sb
708: WHERE sb.set_number = c_soln_number
709: AND sb.status = 'PUB'
710: AND sb.set_id = sl.set_id
711: AND sl.object_code = c_object_code
1001: -- Cursor to validate link exists and is to either a published solution
1002: -- version or an in-progress version.
1003: cursor Valid_Link IS
1004: select sb.set_number, sb.status, sl.object_code, sl.other_id
1005: from cs_kb_set_links sl, cs_kb_sets_b sb
1006: where sl.link_id = P_LINK_ID
1007: and sl.set_id = sb.set_id
1008: and ( sb.status = 'PUB' or sb.latest_version_flag = 'Y' );
1009:
1010: -- Cursor to fetch link to latest in-progress version of a solution
1011: CURSOR Get_Link_To_Other_Ver(c_soln_number VARCHAR2, c_object_code VARCHAR2,
1012: c_other_id NUMBER) IS
1013: SELECT sl.link_id
1014: FROM CS_KB_SET_LINKS sl, CS_KB_SETS_B sb
1015: WHERE sb.set_number = c_soln_number
1016: AND (sb.latest_version_flag = 'Y' or sb.status = 'PUB')
1017: AND sb.set_id = sl.set_id
1018: AND sl.object_code = c_object_code
1226: ) IS
1227:
1228: BEGIN
1229:
1230: update CS_KB_SET_LINKS set
1231:
1232: LINK_TYPE = X_LINK_TYPE,
1233: OBJECT_CODE = X_OBJECT_CODE,
1234: SET_ID = X_SET_ID,