[Home] [Help]
475: L_INSTRUCTION_SET_ID := L_GMO_INSTR_SET_REC.INSTRUCTION_SET_ID;
476: L_INSTR_SET_EXIST_COUNT := 0;
477:
478: SELECT COUNT(*) INTO L_INSTR_SET_EXIST_COUNT
479: FROM GMO_INSTR_SET_DEFN_T
480: WHERE INSTRUCTION_PROCESS_ID = L_INSTRUCTION_PROCESS_ID
481: AND INSTRUCTION_SET_ID = L_INSTRUCTION_SET_ID;
482:
483: IF ( ( L_INSTRUCTION_TYPE IS NOT NULL AND ( LENGTH(L_INSTRUCTION_TYPE) = 0 OR
484: INSTR( l_instruction_type, L_GMO_INSTR_SET_REC.INSTRUCTION_TYPE) > 0 )) AND L_INSTR_SET_EXIST_COUNT = 0) THEN
485:
486: -- Insert the Instruction Set Record from permenant to temporary
487: -- tables
488: INSERT INTO GMO_INSTR_SET_DEFN_T
489: (
490: INSTRUCTION_PROCESS_ID,
491: INSTRUCTION_SET_ID,
492: INSTRUCTION_TYPE,
958:
959: --Delete the contents of Temp Table for the specified process ID.
960: DELETE FROM GMO_INSTR_APPR_DEFN_T WHERE INSTRUCTION_PROCESS_ID = X_INSTRUCTION_PROCESS_ID;
961: DELETE FROM GMO_INSTR_DEFN_T WHERE INSTRUCTION_PROCESS_ID = X_INSTRUCTION_PROCESS_ID;
962: DELETE FROM GMO_INSTR_SET_DEFN_T WHERE INSTRUCTION_PROCESS_ID = X_INSTRUCTION_PROCESS_ID;
963:
964: -- COMMIT CHANGES
965: COMMIT;
966:
1432: ENTITY_NAME, ENTITY_KEY, INSTR_SET_NAME,
1433: INSTR_SET_DESC, CREATION_DATE,
1434: LAST_UPDATE_DATE, CREATED_BY, LAST_UPDATED_BY,
1435: LAST_UPDATE_LOGIN
1436: FROM GMO_INSTR_SET_DEFN_T
1437: WHERE INSTRUCTION_PROCESS_ID = P_INSTRUCTION_PROCESS_ID
1438: AND ENTITY_NAME = L_ENTITY_NAME
1439: AND ENTITY_KEY = L_TARGET_ENTITY_KEY
1440: AND INSTRUCTION_TYPE = L_INSTRUCTION_TYPE;
1660: -- so that the movement from temp to permanent is
1661: -- to the correct set of rows
1662: IF (L_SOURCE_ENTITY_KEY <> L_TARGET_ENTITY_KEY) THEN
1663:
1664: UPDATE GMO_INSTR_SET_DEFN_T
1665: SET ENTITY_KEY = L_TARGET_ENTITY_KEY
1666: WHERE INSTRUCTION_PROCESS_ID = P_INSTRUCTION_PROCESS_ID
1667: AND ENTITY_NAME = L_ENTITY_NAME
1668: AND ENTITY_KEY = L_SOURCE_ENTITY_KEY
1684:
1685: SELECT INSTRUCTION_SET_ID INTO L_PERM_INSTRUCTION_SET_ID FROM GMO_INSTR_SET_DEFN_B
1686: WHERE ENTITY_NAME = L_ENTITY_NAME AND ENTITY_KEY = L_TARGET_ENTITY_KEY AND INSTRUCTION_TYPE = L_INSTRUCTION_TYPE;
1687:
1688: SELECT INSTRUCTION_SET_ID INTO L_TEMP_INSTRUCTION_SET_ID FROM GMO_INSTR_SET_DEFN_T
1689: WHERE ENTITY_NAME = L_ENTITY_NAME AND ENTITY_KEY = L_TARGET_ENTITY_KEY AND INSTRUCTION_TYPE = L_INSTRUCTION_TYPE
1690: AND INSTRUCTION_PROCESS_ID = P_INSTRUCTION_PROCESS_ID;
1691:
1692: UPDATE GMO_INSTR_SET_DEFN_T
1688: SELECT INSTRUCTION_SET_ID INTO L_TEMP_INSTRUCTION_SET_ID FROM GMO_INSTR_SET_DEFN_T
1689: WHERE ENTITY_NAME = L_ENTITY_NAME AND ENTITY_KEY = L_TARGET_ENTITY_KEY AND INSTRUCTION_TYPE = L_INSTRUCTION_TYPE
1690: AND INSTRUCTION_PROCESS_ID = P_INSTRUCTION_PROCESS_ID;
1691:
1692: UPDATE GMO_INSTR_SET_DEFN_T
1693: SET INSTRUCTION_SET_ID = L_PERM_INSTRUCTION_SET_ID
1694: WHERE INSTRUCTION_PROCESS_ID = P_INSTRUCTION_PROCESS_ID
1695: AND ENTITY_NAME = L_ENTITY_NAME
1696: AND ENTITY_KEY = L_TARGET_ENTITY_KEY
1760: LAST_UPDATED_BY = L_LAST_UPDATED_BY ,
1761: LAST_UPDATE_LOGIN = L_LAST_UPDATE_LOGIN
1762: WHERE INSTRUCTION_SET_ID = L_TEMP_INSTR_SET_DEFN_REC.INSTRUCTION_SET_ID;
1763:
1764: UPDATE GMO_INSTR_SET_DEFN_TL SET
1765: INSTR_SET_DESC = L_TEMP_INSTR_SET_DEFN_REC.INSTR_SET_DESC,
1766: LAST_UPDATE_DATE = L_LAST_UPDATE_DATE,
1767: LAST_UPDATED_BY = L_LAST_UPDATED_BY ,
1768: LAST_UPDATE_LOGIN = L_LAST_UPDATE_LOGIN
2069:
2070: --Cleanup deleted records from instruction set table
2071: -- Count = number of instruction sets in temporary table
2072:
2073: SELECT COUNT(*) INTO L_ENTITY_COUNT_T FROM GMO_INSTR_SET_DEFN_T
2074: WHERE ENTITY_NAME = L_ENTITY_NAME
2075: AND ENTITY_KEY = L_TARGET_ENTITY_KEY
2076: AND INSTRUCTION_TYPE = L_INSTRUCTION_TYPE
2077: AND INSTRUCTION_PROCESS_ID = P_INSTRUCTION_PROCESS_ID;
2112: DELETE FROM GMO_INSTR_DEFN_B
2113: WHERE INSTRUCTION_SET_ID = L_DEL_INSTR_SET_ID;
2114:
2115: -- Finally remove the instruction set from table
2116: DELETE FROM GMO_INSTR_SET_DEFN_TL
2117: WHERE INSTRUCTION_SET_ID IN (SELECT INSTRUCTION_SET_ID FROM GMO_INSTR_SET_DEFN_B WHERE ENTITY_NAME = L_ENTITY_NAME
2118: AND ENTITY_KEY = L_TARGET_ENTITY_KEY AND INSTRUCTION_TYPE = L_INSTRUCTION_TYPE)
2119: AND LANGUAGE=USERENV('LANG');
2120:
5466:
5467:
5468:
5469: --This procedure deletes the instruction set details in
5470: -- GMO_INSTR_SET_DEFN_T for the specified
5471: --process ID. It also updates the process status in
5472: --GMO_INSTR_ATTRUBUTES_T to "CANCEL".
5473:
5474: PROCEDURE DELETE_INSTR_SET_DETAILS
5868: )
5869: )
5870: )
5871: INTO L_INSTR_XML
5872: FROM GMO_INSTR_SET_DEFN_T INSTR_SET
5873: WHERE INSTR_SET.INSTRUCTION_PROCESS_ID = P_INSTRUCTION_PROCESS_ID;
5874:
5875: --Convert XMLType to CLOB.
5876: X_OUTPUT_XML := L_INSTR_XML.GETCLOBVAL();
6004: from gmo_instr_appr_defn
6005: where instruction_id = l_instruction_id;
6006:
6007: cursor is_valid_process is
6008: select count(*) from gmo_instr_set_defn_t
6009: where instruction_set_id = P_INSTRUCTION_SET_ID
6010: and instruction_process_id = P_INSTRUCTION_PROCESS_ID;
6011: -- Bug 5686314 : rvsingh :start
6012: cursor task_count_per_inst_set is
6438:
6439: select count(*) into l_count
6440: from gmo_instr_defn_b
6441: where task_attribute_id like l_check_attribute
6442: and instruction_set_id not in (select instruction_set_id from gmo_instr_set_defn_t where instruction_process_id = l_instruction_process_id);
6443:
6444: l_total_count := l_total_count + l_count;
6445:
6446: end if;