[Home] [Help]
58: TYPE tSetEffUntil IS TABLE OF cz_effectivity_sets.effective_until%TYPE INDEX BY BINARY_INTEGER;
59: TYPE tSetEffId IS TABLE OF cz_effectivity_sets.effectivity_set_id%TYPE INDEX BY BINARY_INTEGER;
60: TYPE tSetName IS TABLE OF cz_effectivity_sets.name%TYPE INDEX BY BINARY_INTEGER;
61:
62: TYPE tHeaderId IS TABLE OF cz_lce_headers.lce_header_id%TYPE INDEX BY VARCHAR2(15);
63: TYPE tExplNodeId IS TABLE OF cz_model_ref_expls.component_id%TYPE INDEX BY BINARY_INTEGER; --kdande; Bug 6881902; 11-Mar-2008
64: TYPE tExplNodeId_idx_vc2 IS TABLE OF cz_model_ref_expls.component_id%TYPE INDEX BY VARCHAR2(15); --kdande; Bug 6881902; 11-Mar-2008
65:
66: TYPE tExprType IS TABLE OF cz_expression_nodes.expr_type%TYPE INDEX BY BINARY_INTEGER;
204: FAILED_TO_LOCK_MODEL EXCEPTION;
205:
206: --bug fix 8689041 Modified the criteria to retrieve last_logic_update and logic creation_date
207: logicSQL VARCHAR2(4000) := 'SELECT proj.devl_project_id, max(proj.last_logic_update),max(head.creation_date)' ||
208: ' FROM cz_devl_projects proj, cz_model_ref_expls expl, cz_lce_headers head' ||
209: ' WHERE proj.deleted_flag = ''' || FLAG_NOT_DELETED ||
210: ''' AND expl.deleted_flag = ''' || FLAG_NOT_DELETED ||
211: ''' AND head.deleted_flag = ''' || FLAG_NOT_DELETED ||
212: ''' AND expl.node_depth = 1' ||
245: BEGIN
246: IF((last_id_allocated IS NULL) OR
247: (next_id_to_use = (NVL(last_id_allocated, 0) + CZ_SEQUENCE_INCREMENT)))THEN
248:
249: SELECT cz_lce_headers_s.NEXTVAL INTO last_id_allocated FROM DUAL;
250: next_id_to_use := last_id_allocated;
251: END IF;
252:
253: id_to_return := next_id_to_use;
351: thisProjectName cz_devl_projects.name%TYPE;
352: thisProjectType cz_devl_projects.model_type%TYPE;
353: thisRootExplIndex PLS_INTEGER;
354:
355: nStructureHeaderId cz_lce_headers.lce_header_id%TYPE;
356: PrevEffFrom DATE := EpochBeginDate;
357: PrevEffUntil DATE := EpochEndDate;
358: PrevUsageMask cz_ps_nodes.effective_usage_mask%TYPE := AnyUsageMask;
359: CurrentEffFrom DATE;
694: MaxDepthId cz_model_ref_expls.model_ref_expl_id%TYPE;
695: nAux cz_model_ref_expls.model_ref_expl_id%TYPE;
696: MaxDepthValue cz_model_ref_expls.node_depth%TYPE;
697: baseDepthValue cz_model_ref_expls.node_depth%TYPE;
698: nHeaderId cz_lce_headers.lce_header_id%TYPE;
699: nPreviousHeaderId cz_lce_headers.lce_header_id%TYPE;
700: nNewLogicFileFlag PLS_INTEGER := 0;
701: nRuleAssignedLevel PLS_INTEGER;
702: MaxDepthIndex PLS_INTEGER;
695: nAux cz_model_ref_expls.model_ref_expl_id%TYPE;
696: MaxDepthValue cz_model_ref_expls.node_depth%TYPE;
697: baseDepthValue cz_model_ref_expls.node_depth%TYPE;
698: nHeaderId cz_lce_headers.lce_header_id%TYPE;
699: nPreviousHeaderId cz_lce_headers.lce_header_id%TYPE;
700: nNewLogicFileFlag PLS_INTEGER := 0;
701: nRuleAssignedLevel PLS_INTEGER;
702: MaxDepthIndex PLS_INTEGER;
703: logicNetType PLS_INTEGER;
7980: nDebug := 1000004;
7981:
7982: --Insert the rule net logic header record into the table.
7983:
7984: INSERT INTO cz_lce_headers
7985: (lce_header_id, gen_version, gen_header, component_id, net_type,
7986: devl_project_id, model_ref_expl_id, nbr_required_expls, deleted_flag)
7987: VALUES
7988: (nHeaderId, VersionString, GenHeader, v_tPsNodeId(i), LOGIC_NET_TYPE_MANDATORY,
9119: BEGIN
9120:
9121: --Insert the rule net logic header record into the table.
9122:
9123: INSERT INTO cz_lce_headers
9124: (lce_header_id, gen_version, gen_header, component_id, net_type,
9125: devl_project_id, model_ref_expl_id, nbr_required_expls, deleted_flag)
9126: VALUES
9127: (nHeaderId, VersionString, GenHeader, v_tPsNodeId(v_IndexByNodeId(MaxDepthId)),
9715: BEGIN
9716:
9717: --Insert the rule net logic header record into the table
9718:
9719: INSERT INTO cz_lce_headers
9720: (lce_header_id, gen_version, gen_header, component_id, net_type,
9721: devl_project_id, model_ref_expl_id, nbr_required_expls, deleted_flag)
9722: VALUES
9723: (nHeaderId, VersionString, GenHeader, inComponentId, LOGIC_NET_TYPE_MANDATORY,
9870: IF(NOT IsLogicGenerated.EXISTS(inComponentId))THEN
9871:
9872: --Read the explosions table here. It will be extensively used in rule generation. For the
9873: --structure generation, there is really no need in this table, except that now we want to
9874: --put reasonable values into CZ_LCE_HEADERS.MODEL_REF_EXPL_ID even for structure files as
9875: --this column is being made not nullable in 18.
9876:
9877: IF(inParentLogicHeaderId IS NULL)THEN
9878:
9922:
9923: --Build the MODEL_REF_EXPL_ID(COMPONENT_ID) hash table for all the components
9924: --inside this project (not inside referenced projects). All such components
9925: --have CHILD_MODEL_EXPL_ID null. We need this table to populate MODEL_REF_EXPL_ID
9926: --in CZ_LCE_HEADERS records for structure file of this component.
9927:
9928: IF(v_tChildModelExpl(i) IS NULL)THEN
9929: v_NodeIdByComponent(v_tPsNodeId(i)) := v_NodeId(i);
9930: END IF;
9953: BEGIN
9954:
9955: --Insert the structure logic header record into the table.
9956:
9957: INSERT INTO cz_lce_headers
9958: (lce_header_id, gen_version, gen_header, component_id, net_type,
9959: devl_project_id, model_ref_expl_id, nbr_required_expls, deleted_flag)
9960: VALUES
9961: (nStructureHeaderId, VersionString, GenHeader, inComponentId, LOGIC_NET_TYPE_STRUCTURE,
9990:
9991: nDebug := 1110003;
9992:
9993: SELECT head.lce_header_id, max(text.seq_nbr) INTO nStructureHeaderId, nSequenceNbr
9994: FROM cz_lce_headers head, cz_lce_texts text
9995: WHERE head.deleted_flag = FLAG_NOT_DELETED
9996: AND head.net_type = LOGIC_NET_TYPE_STRUCTURE
9997: AND head.component_id = inComponentId
9998: AND head.lce_header_id = text.lce_header_id
11152: (localComponent IS NULL OR NewHeadersComponents(i) <> localComponent))THEN
11153:
11154: localOldHeaders.DELETE;
11155:
11156: SELECT lce_header_id BULK COLLECT INTO localOldHeaders FROM cz_lce_headers
11157: WHERE deleted_flag = FLAG_NOT_DELETED
11158: AND devl_project_id = NewHeadersComponents(i);
11159:
11160: FOR j IN 1..localOldHeaders.COUNT LOOP
11166: END IF;
11167: END LOOP;
11168:
11169: FORALL i IN 1..OldHeaders.COUNT
11170: UPDATE cz_lce_headers SET deleted_flag = FLAG_DELETED
11171: WHERE lce_header_id = OldHeaders(i);
11172:
11173: FORALL i IN 1..OldHeaders.COUNT
11174: UPDATE cz_lce_load_specs SET deleted_flag = FLAG_DELETED
11174: UPDATE cz_lce_load_specs SET deleted_flag = FLAG_DELETED
11175: WHERE lce_header_id = OldHeaders(i);
11176:
11177: FORALL i IN 1..NewHeaders.COUNT
11178: UPDATE cz_lce_headers SET deleted_flag = FLAG_NOT_DELETED
11179: WHERE lce_header_id = NewHeaders(i);
11180:
11181: FORALL i IN 1..NewHeaders.COUNT
11182: UPDATE cz_lce_load_specs SET deleted_flag = FLAG_NOT_DELETED
11196: PROCEDURE ROLLBACK_HEADERS IS
11197: BEGIN
11198:
11199: FORALL i IN 1..NewHeaders.COUNT
11200: UPDATE cz_lce_headers SET deleted_flag = FLAG_DELETED
11201: WHERE lce_header_id = NewHeaders(i);
11202:
11203: FORALL i IN 1..NewHeaders.COUNT
11204: UPDATE cz_lce_load_specs SET deleted_flag = FLAG_DELETED
11206:
11207: IF(OldHeaders.COUNT > 0)THEN
11208:
11209: FORALL i IN 1..OldHeaders.COUNT
11210: UPDATE cz_lce_headers SET deleted_flag = FLAG_NOT_DELETED
11211: WHERE lce_header_id = OldHeaders(i);
11212:
11213: FORALL i IN 1..OldHeaders.COUNT
11214: UPDATE cz_lce_load_specs SET deleted_flag = FLAG_NOT_DELETED
11238: childFlag PLS_INTEGER;
11239: thisFlag PLS_INTEGER := GENERATION_NOT_REQUIRED;
11240: childModelId cz_devl_projects.devl_project_id%TYPE;
11241: childLogicUpdate cz_devl_projects.last_logic_update%TYPE;
11242: childHeaderCreated cz_lce_headers.creation_date%TYPE;
11243:
11244: BEGIN
11245:
11246: IF(NOT modelChecked.EXISTS(inModelId))THEN