[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;
203: l_locked_models cz_security_pvt.number_type_tbl;
204: FAILED_TO_LOCK_MODEL EXCEPTION;
205:
206: logicSQL VARCHAR2(4000) := 'SELECT proj.devl_project_id, proj.last_logic_update, head.creation_date' ||
207: ' FROM cz_devl_projects proj, cz_model_ref_expls expl, cz_lce_headers head' ||
208: ' WHERE proj.deleted_flag = ''' || FLAG_NOT_DELETED ||
209: ''' AND expl.deleted_flag = ''' || FLAG_NOT_DELETED ||
210: ''' AND head.deleted_flag = ''' || FLAG_NOT_DELETED ||
211: ''' AND expl.node_depth = 1' ||
241: BEGIN
242: IF((last_id_allocated IS NULL) OR
243: (next_id_to_use = (NVL(last_id_allocated, 0) + CZ_SEQUENCE_INCREMENT)))THEN
244:
245: SELECT cz_lce_headers_s.NEXTVAL INTO last_id_allocated FROM DUAL;
246: next_id_to_use := last_id_allocated;
247: END IF;
248:
249: id_to_return := next_id_to_use;
347: thisProjectName cz_devl_projects.name%TYPE;
348: thisProjectType cz_devl_projects.model_type%TYPE;
349: thisRootExplIndex PLS_INTEGER;
350:
351: nStructureHeaderId cz_lce_headers.lce_header_id%TYPE;
352: PrevEffFrom DATE := EpochBeginDate;
353: PrevEffUntil DATE := EpochEndDate;
354: PrevUsageMask cz_ps_nodes.effective_usage_mask%TYPE := AnyUsageMask;
355: CurrentEffFrom DATE;
683: MaxDepthId cz_model_ref_expls.model_ref_expl_id%TYPE;
684: nAux cz_model_ref_expls.model_ref_expl_id%TYPE;
685: MaxDepthValue cz_model_ref_expls.node_depth%TYPE;
686: baseDepthValue cz_model_ref_expls.node_depth%TYPE;
687: nHeaderId cz_lce_headers.lce_header_id%TYPE;
688: nPreviousHeaderId cz_lce_headers.lce_header_id%TYPE;
689: nNewLogicFileFlag PLS_INTEGER := 0;
690: nRuleAssignedLevel PLS_INTEGER;
691: MaxDepthIndex PLS_INTEGER;
684: nAux cz_model_ref_expls.model_ref_expl_id%TYPE;
685: MaxDepthValue cz_model_ref_expls.node_depth%TYPE;
686: baseDepthValue cz_model_ref_expls.node_depth%TYPE;
687: nHeaderId cz_lce_headers.lce_header_id%TYPE;
688: nPreviousHeaderId cz_lce_headers.lce_header_id%TYPE;
689: nNewLogicFileFlag PLS_INTEGER := 0;
690: nRuleAssignedLevel PLS_INTEGER;
691: MaxDepthIndex PLS_INTEGER;
692: logicNetType PLS_INTEGER;
7965: nDebug := 1000004;
7966:
7967: --Insert the rule net logic header record into the table.
7968:
7969: INSERT INTO cz_lce_headers
7970: (lce_header_id, gen_version, gen_header, component_id, net_type,
7971: devl_project_id, model_ref_expl_id, nbr_required_expls, deleted_flag)
7972: VALUES
7973: (nHeaderId, VersionString, GenHeader, v_tPsNodeId(i), LOGIC_NET_TYPE_MANDATORY,
9091: BEGIN
9092:
9093: --Insert the rule net logic header record into the table.
9094:
9095: INSERT INTO cz_lce_headers
9096: (lce_header_id, gen_version, gen_header, component_id, net_type,
9097: devl_project_id, model_ref_expl_id, nbr_required_expls, deleted_flag)
9098: VALUES
9099: (nHeaderId, VersionString, GenHeader, v_tPsNodeId(v_IndexByNodeId(MaxDepthId)),
9683: BEGIN
9684:
9685: --Insert the rule net logic header record into the table
9686:
9687: INSERT INTO cz_lce_headers
9688: (lce_header_id, gen_version, gen_header, component_id, net_type,
9689: devl_project_id, model_ref_expl_id, nbr_required_expls, deleted_flag)
9690: VALUES
9691: (nHeaderId, VersionString, GenHeader, inComponentId, LOGIC_NET_TYPE_MANDATORY,
9838: IF(NOT IsLogicGenerated.EXISTS(inComponentId))THEN
9839:
9840: --Read the explosions table here. It will be extensively used in rule generation. For the
9841: --structure generation, there is really no need in this table, except that now we want to
9842: --put reasonable values into CZ_LCE_HEADERS.MODEL_REF_EXPL_ID even for structure files as
9843: --this column is being made not nullable in 18.
9844:
9845: IF(inParentLogicHeaderId IS NULL)THEN
9846:
9890:
9891: --Build the MODEL_REF_EXPL_ID(COMPONENT_ID) hash table for all the components
9892: --inside this project (not inside referenced projects). All such components
9893: --have CHILD_MODEL_EXPL_ID null. We need this table to populate MODEL_REF_EXPL_ID
9894: --in CZ_LCE_HEADERS records for structure file of this component.
9895:
9896: IF(v_tChildModelExpl(i) IS NULL)THEN
9897: v_NodeIdByComponent(v_tPsNodeId(i)) := v_NodeId(i);
9898: END IF;
9921: BEGIN
9922:
9923: --Insert the structure logic header record into the table.
9924:
9925: INSERT INTO cz_lce_headers
9926: (lce_header_id, gen_version, gen_header, component_id, net_type,
9927: devl_project_id, model_ref_expl_id, nbr_required_expls, deleted_flag)
9928: VALUES
9929: (nStructureHeaderId, VersionString, GenHeader, inComponentId, LOGIC_NET_TYPE_STRUCTURE,
9958:
9959: nDebug := 1110003;
9960:
9961: SELECT head.lce_header_id, max(text.seq_nbr) INTO nStructureHeaderId, nSequenceNbr
9962: FROM cz_lce_headers head, cz_lce_texts text
9963: WHERE head.deleted_flag = FLAG_NOT_DELETED
9964: AND head.net_type = LOGIC_NET_TYPE_STRUCTURE
9965: AND head.component_id = inComponentId
9966: AND head.lce_header_id = text.lce_header_id
11077: (localComponent IS NULL OR NewHeadersComponents(i) <> localComponent))THEN
11078:
11079: localOldHeaders.DELETE;
11080:
11081: SELECT lce_header_id BULK COLLECT INTO localOldHeaders FROM cz_lce_headers
11082: WHERE deleted_flag = FLAG_NOT_DELETED
11083: AND devl_project_id = NewHeadersComponents(i);
11084:
11085: FOR j IN 1..localOldHeaders.COUNT LOOP
11091: END IF;
11092: END LOOP;
11093:
11094: FORALL i IN 1..OldHeaders.COUNT
11095: UPDATE cz_lce_headers SET deleted_flag = FLAG_DELETED
11096: WHERE lce_header_id = OldHeaders(i);
11097:
11098: FORALL i IN 1..OldHeaders.COUNT
11099: UPDATE cz_lce_load_specs SET deleted_flag = FLAG_DELETED
11099: UPDATE cz_lce_load_specs SET deleted_flag = FLAG_DELETED
11100: WHERE lce_header_id = OldHeaders(i);
11101:
11102: FORALL i IN 1..NewHeaders.COUNT
11103: UPDATE cz_lce_headers SET deleted_flag = FLAG_NOT_DELETED
11104: WHERE lce_header_id = NewHeaders(i);
11105:
11106: FORALL i IN 1..NewHeaders.COUNT
11107: UPDATE cz_lce_load_specs SET deleted_flag = FLAG_NOT_DELETED
11121: PROCEDURE ROLLBACK_HEADERS IS
11122: BEGIN
11123:
11124: FORALL i IN 1..NewHeaders.COUNT
11125: UPDATE cz_lce_headers SET deleted_flag = FLAG_DELETED
11126: WHERE lce_header_id = NewHeaders(i);
11127:
11128: FORALL i IN 1..NewHeaders.COUNT
11129: UPDATE cz_lce_load_specs SET deleted_flag = FLAG_DELETED
11131:
11132: IF(OldHeaders.COUNT > 0)THEN
11133:
11134: FORALL i IN 1..OldHeaders.COUNT
11135: UPDATE cz_lce_headers SET deleted_flag = FLAG_NOT_DELETED
11136: WHERE lce_header_id = OldHeaders(i);
11137:
11138: FORALL i IN 1..OldHeaders.COUNT
11139: UPDATE cz_lce_load_specs SET deleted_flag = FLAG_NOT_DELETED
11163: childFlag PLS_INTEGER;
11164: thisFlag PLS_INTEGER := GENERATION_NOT_REQUIRED;
11165: childModelId cz_devl_projects.devl_project_id%TYPE;
11166: childLogicUpdate cz_devl_projects.last_logic_update%TYPE;
11167: childHeaderCreated cz_lce_headers.creation_date%TYPE;
11168:
11169: BEGIN
11170:
11171: IF(NOT modelChecked.EXISTS(inModelId))THEN