[Home] [Help]
136: p_out_flag OUT NOCOPY INTEGER) IS
137:
138: BEGIN
139: p_out_flag:=0;
140: SELECT 1 INTO p_out_flag FROM CZ_PS_NODES
141: WHERE deleted_flag = NO_FLAG
142: AND ps_node_id=p_ps_node_id AND ps_node_type IN(COMPONENT_TYPE,PRODUCT_TYPE,
143: REFERENCE_TYPE,CONNECTOR_TYPE,BOM_MODEL_TYPE)
144: AND ps_node_id NOT IN
141: WHERE deleted_flag = NO_FLAG
142: AND ps_node_id=p_ps_node_id AND ps_node_type IN(COMPONENT_TYPE,PRODUCT_TYPE,
143: REFERENCE_TYPE,CONNECTOR_TYPE,BOM_MODEL_TYPE)
144: AND ps_node_id NOT IN
145: (SELECT ps_node_id FROM CZ_PS_NODES nodes
146: WHERE deleted_flag = NO_FLAG
147: AND devl_project_id =p_model_id
148: AND ps_node_type IN(COMPONENT_TYPE,REFERENCE_TYPE,CONNECTOR_TYPE,BOM_MODEL_TYPE)
149: AND MINIMUM = 1
171: p_out_flag OUT NOCOPY INTEGER) IS
172:
173: BEGIN
174: p_out_flag:=0;
175: SELECT 1 INTO p_out_flag FROM CZ_PS_NODES
176: WHERE deleted_flag = NO_FLAG
177: AND ps_node_id=p_ps_node_id AND (instantiable_flag IN (OPTIONAL_EXPL_TYPE,OPTIONAL_EXPL_TYPE) OR
178: (ps_node_type IN(COMPONENT_TYPE,PRODUCT_TYPE,REFERENCE_TYPE,CONNECTOR_TYPE,BOM_MODEL_TYPE) AND NOT(MAXIMUM=1 AND MINIMUM=1)));
179: EXCEPTION
381: p_model_id IN INTEGER) RETURN BOOLEAN IS
382:
383: v_iret INTEGER:=0;
384: v_bret BOOLEAN:=FALSE;
385: v_instantiable_flag CZ_PS_NODES.instantiable_flag%TYPE;
386:
387: BEGIN
388: SELECT instantiable_flag INTO v_instantiable_flag
389: FROM CZ_PS_NODES
385: v_instantiable_flag CZ_PS_NODES.instantiable_flag%TYPE;
386:
387: BEGIN
388: SELECT instantiable_flag INTO v_instantiable_flag
389: FROM CZ_PS_NODES
390: WHERE ps_node_id=p_ps_node_id;
391: IF v_instantiable_flag IN(OPTIONAL_EXPL_TYPE,MINMAX_EXPL_TYPE) THEN
392: RETURN TRUE;
393: ELSE
589:
590: PROCEDURE pop(p_id IN NUMBER) IS
591: v_ind NUMBER:=0;
592: BEGIN
593: FOR i IN(SELECT DISTINCT devl_project_id FROM CZ_PS_NODES a
594: WHERE reference_id=p_id AND deleted_flag=NO_FLAG AND
595: devl_project_id IN(SELECT object_id FROM CZ_RP_ENTRIES
596: WHERE object_id=a.devl_project_id AND object_type='PRJ' AND deleted_flag=NO_FLAG))
597: LOOP
899:
900: -- release memory allocated for t_subtree_tbl array
901: t_subtree_tbl.DELETE;
902:
903: FOR i IN(SELECT ps_node_id, devl_project_id FROM CZ_PS_NODES a
904: WHERE reference_id=p_model_id AND deleted_flag='0'
905: AND EXISTS (SELECT NULL FROM cz_devl_projects
906: WHERE devl_project_id = a.devl_project_id
907: AND deleted_flag='0'))
1276:
1277: t_subtree_tbl ArrayId; -- stores subtree array
1278: t_prev_level_expl_ids_tbl IntArray; -- stores expl_ids of the target subtree
1279: -- which will be used as child_expl_ids on the next level
1280: v_parent_ps_node_id CZ_PS_NODES.ps_node_id%TYPE; -- ps_node_id of new subtree root node
1281: v_parent_expl_id CZ_MODEL_REF_EXPLS.model_ref_expl_id%TYPE; -- expl_id of new subtree root node
1282: v_parent_level CZ_MODEL_REF_EXPLS.node_depth%TYPE; -- node_depth of new subtree root node
1283: v_target_root_expl_id CZ_MODEL_REF_EXPLS.model_ref_expl_id%TYPE; -- root expl_id of the target model
1284: v_next_id CZ_MODEL_REF_EXPLS.model_ref_expl_id%TYPE; -- stores expl_id generated by sequence
1421: p_out_ps_node_id:=NULL_VALUE;
1422: p_out_expl_id:=NULL_VALUE;
1423: p_out_level:=NULL_VALUE;
1424:
1425: FOR i IN (SELECT ps_node_id,ps_node_type,parent_id FROM CZ_PS_NODES
1426: WHERE ps_node_id=p_ps_node_id AND deleted_flag=NO_FLAG)
1427: LOOP
1428: get_Expl_Id(i.ps_node_id,p_project_id,v_expl_id,p_out_level,i.ps_node_type);
1429:
1469: p_out_expl_id:=v_expl_id;
1470: RAISE NODE_FOUND;
1471: END IF;
1472:
1473: FOR i IN (SELECT ps_node_id,parent_id FROM CZ_PS_NODES
1474: WHERE parent_id=p_ps_node_id AND deleted_flag=NO_FLAG)
1475: LOOP
1476: get_Expl_Id(i.ps_node_id,p_project_id,v_expl_id,p_out_level);
1477:
1582: IF p_mode=MINUS_MODE THEN
1583: v_model_ref_id:=p_deleted_expl_id;
1584: END IF;
1585:
1586: FOR i IN (SELECT ps_node_id,ps_node_type,NAME FROM CZ_PS_NODES
1587: START WITH devl_project_id=p_project_id AND deleted_flag=NO_FLAG AND ps_node_id=p_ps_node_id
1588: CONNECT BY PRIOR ps_node_id=parent_id AND NVL(virtual_flag,'1')='1' AND deleted_flag=NO_FLAG
1589: AND PRIOR deleted_flag=NO_FLAG)
1590: LOOP
1871: BEGIN
1872:
1873: SELECT persistent_node_id
1874: BULK COLLECT INTO t_persistent_node_id_tbl
1875: FROM CZ_PS_NODES
1876: START WITH ps_node_id=p_ps_node_id AND deleted_flag='0' AND
1877: (reference_id IS NULL AND component_id=p_component_id)
1878: CONNECT BY PRIOR ps_node_id=parent_id AND deleted_flag='0' AND
1879: PRIOR deleted_flag='0' AND (reference_id IS NULL AND component_id=p_component_id);
2008: LOOP
2009: BEGIN
2010: SELECT '1' INTO v_exist_bom_nodes
2011: FROM dual WHERE
2012: EXISTS(SELECT NULL FROM CZ_PS_NODES WHERE devl_project_id=i.component_id
2013: AND ps_node_type=436 AND deleted_flag=NO_FLAG);
2014:
2015: IF i.referring_node_id IS NOT NULL THEN
2016: v_ret:=i.referring_node_id;
2039: p_out_expl_id IN OUT NOCOPY INTEGER,
2040: p_out_level IN OUT NOCOPY INTEGER) IS
2041:
2042: v_expl_id CZ_MODEL_REF_EXPLS.model_ref_expl_id%TYPE:=NULL_VALUE;
2043: v_parent_id CZ_PS_NODES.parent_id%TYPE:=NULL_VALUE;
2044:
2045: BEGIN
2046:
2047: p_out_ps_node_id:=NULL_VALUE;
2054: --
2055: ERROR_CODE:=1001;
2056:
2057: SELECT parent_id INTO v_parent_id
2058: FROM CZ_PS_NODES WHERE ps_node_id=p_ps_node_id;
2059:
2060: IF v_parent_id IS NULL THEN
2061: p_out_ps_node_id:=p_ps_node_id;
2062: --
2075: WHEN OTHERS THEN
2076: LOG_REPORT('get_from_Node_Up','ERROR CODE : '||TO_CHAR(ERROR_CODE)||' ERROR MESSAGE : '||SQLERRM);
2077: END;
2078:
2079: FOR i IN (SELECT ps_node_id,parent_id,virtual_flag FROM CZ_PS_NODES
2080: WHERE ps_node_id=v_parent_id AND deleted_flag=NO_FLAG)
2081: LOOP
2082:
2083: IF i.virtual_flag=NO_FLAG OR i.parent_id IS NULL THEN
2134: v_old_expl_id:=t_old_expl_ids(i);
2135: v_new_expl_id:=t_new_expl_ids(i);
2136:
2137: IF v_old_expl_id IS NOT NULL AND v_new_expl_id IS NOT NULL THEN
2138: FOR n IN(SELECT ps_node_id FROM CZ_PS_NODES
2139: START WITH ps_node_id=p_ps_node_id AND deleted_flag=NO_FLAG
2140: CONNECT BY PRIOR ps_node_id=parent_id AND deleted_flag=NO_FLAG AND PRIOR deleted_flag=NO_FLAG)
2141: LOOP
2142: UPDATE CZ_EXPRESSION_NODES SET model_ref_expl_id=v_new_expl_id
2188:
2189: t_child_nodes IntArray;
2190: v_expl_id CZ_MODEL_REF_EXPLS.model_ref_expl_id%TYPE;
2191: v_model_id CZ_MODEL_REF_EXPLS.model_id%TYPE;
2192: v_ps_node_id CZ_PS_NODES.ps_node_id%TYPE;
2193:
2194: BEGIN
2195: IF t_chain.COUNT=0 THEN
2196: RETURN;
2444:
2445: -- get the info from the node to be copied
2446: SELECT devl_project_id,parent_id,reference_id,component_id,virtual_flag, ps_node_type
2447: INTO l_model_id,l_parent_id,l_reference_id,l_component_id,l_virtual_flag, l_ps_node_type
2448: FROM CZ_PS_NODES
2449: WHERE ps_node_id=p_ps_node_id AND deleted_flag = NO_FLAG;
2450:
2451: -- if not a reference node, get the model_refexpl_id record in model ref expls
2452: IF l_reference_id IS NULL THEN
2485: FOR i IN(SELECT model_ref_expl_id, node_depth FROM CZ_MODEL_REF_EXPLS
2486: WHERE parent_expl_node_id=v_up_expl_id AND
2487: deleted_flag = NO_FLAG AND
2488: (referring_node_id IS NULL AND component_id IN
2489: (SELECT ps_node_id FROM CZ_PS_NODES
2490: START WITH ps_node_id=p_ps_node_id
2491: CONNECT BY PRIOR ps_node_id=parent_id AND
2492: deleted_flag = NO_FLAG AND PRIOR deleted_flag = NO_FLAG)) OR
2493: (referring_node_id IS NOT NULL AND referring_node_id IN
2490: START WITH ps_node_id=p_ps_node_id
2491: CONNECT BY PRIOR ps_node_id=parent_id AND
2492: deleted_flag = NO_FLAG AND PRIOR deleted_flag = NO_FLAG)) OR
2493: (referring_node_id IS NOT NULL AND referring_node_id IN
2494: (SELECT ps_node_id FROM CZ_PS_NODES
2495: START WITH ps_node_id=p_ps_node_id
2496: CONNECT BY PRIOR ps_node_id=parent_id AND
2497: deleted_flag = NO_FLAG AND PRIOR deleted_flag = NO_FLAG)))
2498: LOOP
2589:
2590: l_loop_ind := l_paths_tbl.NEXT(l_loop_ind);
2591: END LOOP;
2592:
2593: FOR n IN (SELECT * FROM CZ_PS_NODES a
2594: WHERE reference_id=p_current_model_id AND
2595: ps_node_type IN(REFERENCE_TYPE,CONNECTOR_TYPE) AND deleted_flag=NO_FLAG AND
2596: devl_project_id IN(SELECT object_id FROM CZ_RP_ENTRIES
2597: WHERE object_id=a.devl_project_id AND object_type='PRJ' AND deleted_flag=NO_FLAG)
2750: <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
2751:
2752: PROCEDURE populate_COMPONENT_ID(p_model_id IN NUMBER) IS
2753:
2754: v_ps_node_id CZ_PS_NODES.ps_node_id%TYPE;
2755: v_parent_id CZ_PS_NODES.parent_id%TYPE;
2756: v_ps_id CZ_PS_NODES.ps_node_id%TYPE;
2757:
2758: BEGIN
2751:
2752: PROCEDURE populate_COMPONENT_ID(p_model_id IN NUMBER) IS
2753:
2754: v_ps_node_id CZ_PS_NODES.ps_node_id%TYPE;
2755: v_parent_id CZ_PS_NODES.parent_id%TYPE;
2756: v_ps_id CZ_PS_NODES.ps_node_id%TYPE;
2757:
2758: BEGIN
2759: FND_MSG_PUB.initialize;
2752: PROCEDURE populate_COMPONENT_ID(p_model_id IN NUMBER) IS
2753:
2754: v_ps_node_id CZ_PS_NODES.ps_node_id%TYPE;
2755: v_parent_id CZ_PS_NODES.parent_id%TYPE;
2756: v_ps_id CZ_PS_NODES.ps_node_id%TYPE;
2757:
2758: BEGIN
2759: FND_MSG_PUB.initialize;
2760:
2757:
2758: BEGIN
2759: FND_MSG_PUB.initialize;
2760:
2761: FOR i IN(SELECT ps_node_id,parent_id,ps_node_type,virtual_flag,devl_project_id,reference_id FROM CZ_PS_NODES
2762: START WITH devl_project_id=p_model_id AND parent_id IS NULL and deleted_flag='0'
2763: CONNECT BY PRIOR ps_node_id=parent_id AND deleted_flag='0' AND PRIOR deleted_flag='0')
2764: LOOP
2765: IF i.ps_node_type IN (REFERENCE_TYPE,CONNECTOR_TYPE) THEN
2762: START WITH devl_project_id=p_model_id AND parent_id IS NULL and deleted_flag='0'
2763: CONNECT BY PRIOR ps_node_id=parent_id AND deleted_flag='0' AND PRIOR deleted_flag='0')
2764: LOOP
2765: IF i.ps_node_type IN (REFERENCE_TYPE,CONNECTOR_TYPE) THEN
2766: UPDATE CZ_PS_NODES SET component_id=i.reference_id
2767: WHERE ps_node_id=i.ps_node_id AND component_id<>i.reference_id;
2768: GOTO CONTINUE_LOOP;
2769: END IF;
2770: IF i.parent_id IS NULL OR i.virtual_flag='0' THEN
2767: WHERE ps_node_id=i.ps_node_id AND component_id<>i.reference_id;
2768: GOTO CONTINUE_LOOP;
2769: END IF;
2770: IF i.parent_id IS NULL OR i.virtual_flag='0' THEN
2771: UPDATE CZ_PS_NODES SET component_id=i.ps_node_id
2772: WHERE ps_node_id=i.ps_node_id AND component_id<>i.ps_node_id;
2773: GOTO CONTINUE_LOOP;
2774: END IF;
2775: IF NVL(i.virtual_flag,'1')='1' AND i.ps_node_type NOT IN(REFERENCE_TYPE,CONNECTOR_TYPE) AND i.parent_id IS NOT NULL THEN
2772: WHERE ps_node_id=i.ps_node_id AND component_id<>i.ps_node_id;
2773: GOTO CONTINUE_LOOP;
2774: END IF;
2775: IF NVL(i.virtual_flag,'1')='1' AND i.ps_node_type NOT IN(REFERENCE_TYPE,CONNECTOR_TYPE) AND i.parent_id IS NOT NULL THEN
2776: SELECT ps_node_id,parent_id INTO v_ps_node_id,v_parent_id FROM CZ_PS_NODES a
2777: WHERE devl_project_id=i.devl_project_id AND
2778: EXISTS(SELECT NULL FROM CZ_PS_NODES WHERE ps_node_id=a.parent_id AND
2779: (virtual_flag='0' OR parent_id IS NULL) AND deleted_flag='0')
2780: START WITH ps_node_id=i.ps_node_id
2774: END IF;
2775: IF NVL(i.virtual_flag,'1')='1' AND i.ps_node_type NOT IN(REFERENCE_TYPE,CONNECTOR_TYPE) AND i.parent_id IS NOT NULL THEN
2776: SELECT ps_node_id,parent_id INTO v_ps_node_id,v_parent_id FROM CZ_PS_NODES a
2777: WHERE devl_project_id=i.devl_project_id AND
2778: EXISTS(SELECT NULL FROM CZ_PS_NODES WHERE ps_node_id=a.parent_id AND
2779: (virtual_flag='0' OR parent_id IS NULL) AND deleted_flag='0')
2780: START WITH ps_node_id=i.ps_node_id
2781: CONNECT BY PRIOR parent_id=ps_node_id AND deleted_flag='0' AND NVL(virtual_flag,'1')='1';
2782:
2785: ELSE
2786: v_ps_id:=v_parent_id;
2787: END IF;
2788:
2789: UPDATE CZ_PS_NODES SET component_id=v_ps_id
2790: WHERE ps_node_id=i.ps_node_id AND component_id<>v_ps_id;
2791: END IF;
2792:
2793: <
2823: v_up_expl_id CZ_MODEL_REF_EXPLS.model_ref_expl_id%TYPE;
2824: v_up_level CZ_MODEL_REF_EXPLS.node_depth%TYPE;
2825: v_curr_expl_node_type CZ_MODEL_REF_EXPLS.expl_node_type%TYPE;
2826:
2827: v_up_id CZ_PS_NODES.ps_node_id%TYPE;
2828: v_virtual_flag CZ_PS_NODES.virtual_flag%TYPE;
2829: v_ps_node_type CZ_PS_NODES.ps_node_type%TYPE;
2830: v_ps_node_id CZ_PS_NODES.ps_node_id%TYPE;
2831: v_minimum CZ_PS_NODES.MINIMUM%TYPE;
2824: v_up_level CZ_MODEL_REF_EXPLS.node_depth%TYPE;
2825: v_curr_expl_node_type CZ_MODEL_REF_EXPLS.expl_node_type%TYPE;
2826:
2827: v_up_id CZ_PS_NODES.ps_node_id%TYPE;
2828: v_virtual_flag CZ_PS_NODES.virtual_flag%TYPE;
2829: v_ps_node_type CZ_PS_NODES.ps_node_type%TYPE;
2830: v_ps_node_id CZ_PS_NODES.ps_node_id%TYPE;
2831: v_minimum CZ_PS_NODES.MINIMUM%TYPE;
2832: v_maximum CZ_PS_NODES.MAXIMUM%TYPE;
2825: v_curr_expl_node_type CZ_MODEL_REF_EXPLS.expl_node_type%TYPE;
2826:
2827: v_up_id CZ_PS_NODES.ps_node_id%TYPE;
2828: v_virtual_flag CZ_PS_NODES.virtual_flag%TYPE;
2829: v_ps_node_type CZ_PS_NODES.ps_node_type%TYPE;
2830: v_ps_node_id CZ_PS_NODES.ps_node_id%TYPE;
2831: v_minimum CZ_PS_NODES.MINIMUM%TYPE;
2832: v_maximum CZ_PS_NODES.MAXIMUM%TYPE;
2833: v_instantiable_flag CZ_PS_NODES.instantiable_flag%TYPE;
2826:
2827: v_up_id CZ_PS_NODES.ps_node_id%TYPE;
2828: v_virtual_flag CZ_PS_NODES.virtual_flag%TYPE;
2829: v_ps_node_type CZ_PS_NODES.ps_node_type%TYPE;
2830: v_ps_node_id CZ_PS_NODES.ps_node_id%TYPE;
2831: v_minimum CZ_PS_NODES.MINIMUM%TYPE;
2832: v_maximum CZ_PS_NODES.MAXIMUM%TYPE;
2833: v_instantiable_flag CZ_PS_NODES.instantiable_flag%TYPE;
2834: v_parent_expl_node_id NUMBER;
2827: v_up_id CZ_PS_NODES.ps_node_id%TYPE;
2828: v_virtual_flag CZ_PS_NODES.virtual_flag%TYPE;
2829: v_ps_node_type CZ_PS_NODES.ps_node_type%TYPE;
2830: v_ps_node_id CZ_PS_NODES.ps_node_id%TYPE;
2831: v_minimum CZ_PS_NODES.MINIMUM%TYPE;
2832: v_maximum CZ_PS_NODES.MAXIMUM%TYPE;
2833: v_instantiable_flag CZ_PS_NODES.instantiable_flag%TYPE;
2834: v_parent_expl_node_id NUMBER;
2835: v_component_id NUMBER;
2828: v_virtual_flag CZ_PS_NODES.virtual_flag%TYPE;
2829: v_ps_node_type CZ_PS_NODES.ps_node_type%TYPE;
2830: v_ps_node_id CZ_PS_NODES.ps_node_id%TYPE;
2831: v_minimum CZ_PS_NODES.MINIMUM%TYPE;
2832: v_maximum CZ_PS_NODES.MAXIMUM%TYPE;
2833: v_instantiable_flag CZ_PS_NODES.instantiable_flag%TYPE;
2834: v_parent_expl_node_id NUMBER;
2835: v_component_id NUMBER;
2836: v_comp_expl_id NUMBER;
2829: v_ps_node_type CZ_PS_NODES.ps_node_type%TYPE;
2830: v_ps_node_id CZ_PS_NODES.ps_node_id%TYPE;
2831: v_minimum CZ_PS_NODES.MINIMUM%TYPE;
2832: v_maximum CZ_PS_NODES.MAXIMUM%TYPE;
2833: v_instantiable_flag CZ_PS_NODES.instantiable_flag%TYPE;
2834: v_parent_expl_node_id NUMBER;
2835: v_component_id NUMBER;
2836: v_comp_expl_id NUMBER;
2837: v_ndebug NUMBER;
2865: p_out_virtual_flag:=1;
2866:
2867: SELECT instantiable_flag,ps_node_type,minimum,maximum,component_id
2868: INTO v_instantiable_flag,v_ps_node_type,v_minimum,v_maximum,v_component_id
2869: FROM CZ_PS_NODES
2870: WHERE ps_node_id=p_ps_node_id;
2871:
2872: -- Developer passes max/min
2873: v_minimum := p_minimum;
2875:
2876: IF NOT(v_minimum=1 AND v_maximum=1) AND v_ps_node_type<>BOM_MODEL_TYPE
2877: AND v_instantiable_flag=MANDATORY_EXPL_TYPE THEN
2878: p_out_err:=m_RUN_ID;
2879: LOG_REPORT('check_Node','CZ_PS_NODES.instantiable_flag=2 violates min/max=1/1.');
2880: RETURN;
2881: END IF;
2882:
2883:
2902: IF v_ps_node_type=CONNECTOR_TYPE THEN
2903: v_instantiable_flag:=CONNECTOR_EXPL_TYPE;
2904: END IF;
2905:
2906: UPDATE CZ_PS_NODES
2907: SET minimum=p_minimum,
2908: maximum=p_maximum,
2909: instantiable_flag=v_instantiable_flag
2910: WHERE ps_node_id=p_ps_node_id;
2955: -- add root node
2956: --
2957: add_root_Model_record(p_ps_node_id,v_ps_node_type);
2958:
2959: UPDATE CZ_PS_NODES
2960: SET component_id=p_model_id,
2961: minimum=p_minimum,
2962: maximum=p_maximum,
2963: instantiable_flag=MANDATORY_EXPL_TYPE
2990: ELSE
2991: p_out_virtual_flag:=YES_FLAG;
2992: END IF;
2993:
2994: UPDATE CZ_PS_NODES
2995: SET virtual_flag=p_out_virtual_flag,
2996: minimum=p_minimum,
2997: maximum=p_maximum
2998: WHERE ps_node_id=p_ps_node_id;
3151: -- reset childs nodes
3152: --
3153: t_childs.DELETE;
3154:
3155: SELECT ps_node_id BULK COLLECT INTO t_childs FROM CZ_PS_NODES
3156: WHERE devl_project_id=p_model_id AND ps_node_id<>p_ps_node_id AND
3157: (
3158: (ps_node_type in(COMPONENT_TYPE,PRODUCT_TYPE) AND ps_node_id IN ---- fix for bug #3161931
3159: (SELECT component_id FROM CZ_MODEL_REF_EXPLS
3157: (
3158: (ps_node_type in(COMPONENT_TYPE,PRODUCT_TYPE) AND ps_node_id IN ---- fix for bug #3161931
3159: (SELECT component_id FROM CZ_MODEL_REF_EXPLS
3160: WHERE model_id=p_model_id AND deleted_flag=NO_FLAG AND parent_expl_node_id=v_up_expl_id AND
3161: component_id IN(SELECT ps_node_id FROM CZ_PS_NODES
3162: START WITH ps_node_id=p_ps_node_id AND deleted_flag=NO_FLAG
3163: CONNECT BY PRIOR ps_node_id=parent_id AND deleted_flag=NO_FLAG AND PRIOR deleted_flag=NO_FLAG)
3164: )
3165: )
3166: OR
3167: (ps_node_type in(REFERENCE_TYPE,CONNECTOR_TYPE) AND ps_node_id IN ---- fix for bug #3161931
3168: (SELECT referring_node_id FROM CZ_MODEL_REF_EXPLS
3169: WHERE model_id=p_model_id AND deleted_flag=NO_FLAG AND parent_expl_node_id=v_up_expl_id AND
3170: referring_node_id IN(SELECT ps_node_id FROM CZ_PS_NODES
3171: START WITH ps_node_id=p_ps_node_id AND deleted_flag=NO_FLAG
3172: CONNECT BY PRIOR ps_node_id=parent_id AND deleted_flag=NO_FLAG AND PRIOR deleted_flag=NO_FLAG)
3173: )
3174: )
3316: p_out_err OUT NOCOPY INTEGER,
3317: p_del_logically IN VARCHAR2 -- DEFAULT '1'
3318: ) IS
3319:
3320: v_component_id CZ_PS_NODES.component_id%TYPE;
3321: v_virtual_flag CZ_PS_NODES.virtual_flag%TYPE;
3322: v_ps_node_type CZ_PS_NODES.ps_node_type%TYPE;
3323:
3324: BEGIN
3317: p_del_logically IN VARCHAR2 -- DEFAULT '1'
3318: ) IS
3319:
3320: v_component_id CZ_PS_NODES.component_id%TYPE;
3321: v_virtual_flag CZ_PS_NODES.virtual_flag%TYPE;
3322: v_ps_node_type CZ_PS_NODES.ps_node_type%TYPE;
3323:
3324: BEGIN
3325: Initialize;
3318: ) IS
3319:
3320: v_component_id CZ_PS_NODES.component_id%TYPE;
3321: v_virtual_flag CZ_PS_NODES.virtual_flag%TYPE;
3322: v_ps_node_type CZ_PS_NODES.ps_node_type%TYPE;
3323:
3324: BEGIN
3325: Initialize;
3326: p_out_err:=0;
3345: ERROR_CODE:=1002;
3346:
3347: END LOOP;
3348: ELSE
3349: SELECT component_id,NVL(virtual_flag,'1') INTO v_component_id,v_virtual_flag FROM CZ_PS_NODES
3350: WHERE ps_node_id=p_ps_node_id;
3351:
3352: IF v_virtual_flag='0' THEN
3353: FOR i IN (SELECT model_ref_expl_id FROM CZ_MODEL_REF_EXPLS a
3375: WHERE parent_expl_node_id IN
3376: (SELECT model_ref_expl_id FROM CZ_MODEL_REF_EXPLS
3377: WHERE model_id=a.model_id AND component_id=v_component_id AND deleted_flag='0')
3378: AND (component_id IN
3379: (SELECT ps_node_id FROM CZ_PS_NODES
3380: START WITH ps_node_id=p_ps_node_id
3381: CONNECT BY PRIOR ps_node_id=parent_id)
3382: OR
3383: referring_node_id IN
3380: START WITH ps_node_id=p_ps_node_id
3381: CONNECT BY PRIOR ps_node_id=parent_id)
3382: OR
3383: referring_node_id IN
3384: (SELECT ps_node_id FROM cz_ps_nodes
3385: START WITH ps_node_id=p_ps_node_id
3386: CONNECT BY PRIOR ps_node_id=parent_id)
3387: )
3388: )
3643: var_subroot_id INTEGER;
3644: var_subroot_level INTEGER;
3645: v_temp INTEGER;
3646: err INTEGER;
3647: v_ps_node_type CZ_PS_NODES.ps_node_type%TYPE;
3648: v_virtual_flag CZ_PS_NODES.virtual_flag%TYPE;
3649:
3650: v_ref_up_expl_id CZ_MODEL_REF_EXPLS.model_ref_expl_id%TYPE;
3651: v_ref_up_level CZ_MODEL_REF_EXPLS.node_depth%TYPE;
3644: var_subroot_level INTEGER;
3645: v_temp INTEGER;
3646: err INTEGER;
3647: v_ps_node_type CZ_PS_NODES.ps_node_type%TYPE;
3648: v_virtual_flag CZ_PS_NODES.virtual_flag%TYPE;
3649:
3650: v_ref_up_expl_id CZ_MODEL_REF_EXPLS.model_ref_expl_id%TYPE;
3651: v_ref_up_level CZ_MODEL_REF_EXPLS.node_depth%TYPE;
3652: v_contains_non_virt BOOLEAN:=FALSE;
3685: ERROR_CODE:=1300;
3686:
3687: SELECT ps_node_type,NVL(virtual_flag,YES_FLAG),parent_id,component_id
3688: INTO v_ps_node_type,v_virtual_flag,v_parent_id,v_component_id
3689: FROM CZ_PS_NODES
3690: WHERE ps_node_id=p_from_ps_node_id;
3691:
3692: LOG_REPORT('*','p_from_ps_node_id='||to_char(p_from_ps_node_id)||
3693: ' v_parent_id='||to_char(v_parent_id));
3813: SELECT model_ref_expl_id
3814: BULK COLLECT INTO t_model_ref_expl
3815: FROM CZ_MODEL_REF_EXPLS
3816: WHERE parent_expl_node_id=v_from_up_expl_id AND model_id=p_project_id AND
3817: component_id IN(SELECT ps_node_id FROM CZ_PS_NODES
3818: START WITH ps_node_id=p_from_ps_node_id AND deleted_flag=NO_FLAG
3819: CONNECT BY PRIOR ps_node_id=parent_id AND deleted_flag=NO_FLAG
3820: AND PRIOR deleted_flag=NO_FLAG);
3821:
3944:
3945: SELECT MIN(model_ref_expl_id) INTO v_comp_expl_id
3946: FROM CZ_MODEL_REF_EXPLS
3947: WHERE model_id=p_project_id AND component_id=
3948: (SELECT component_id FROM CZ_PS_NODES WHERE ps_node_id=p_to_ps_node_id) AND
3949: deleted_flag='0';
3950:
3951: refresh_UI_Expl_Ids(p_ps_node_id => p_from_ps_node_id,
3952: p_component_id => v_component_id,
4002: p_ref_parent_node_id IN INTEGER,
4003: p_ref_target_model_id IN INTEGER,
4004: p_out_status_code OUT NOCOPY INTEGER) IS
4005:
4006: v_BOM_node1 CZ_PS_NODES.ps_node_id%TYPE;
4007: v_BOM_node2 CZ_PS_NODES.ps_node_id%TYPE;
4008: v_instanciable INTEGER;
4009:
4010: BEGIN
4003: p_ref_target_model_id IN INTEGER,
4004: p_out_status_code OUT NOCOPY INTEGER) IS
4005:
4006: v_BOM_node1 CZ_PS_NODES.ps_node_id%TYPE;
4007: v_BOM_node2 CZ_PS_NODES.ps_node_id%TYPE;
4008: v_instanciable INTEGER;
4009:
4010: BEGIN
4011: p_out_status_code:=0;
4015: --
4016: ERROR_CODE:=1400;
4017:
4018: BEGIN
4019: SELECT ps_node_id INTO v_BOM_node1 FROM CZ_PS_NODES
4020: WHERE devl_project_id=p_refroot_model_id AND ps_node_type=BOM_MODEL_TYPE
4021: AND deleted_flag=NO_FLAG AND rownum<2;
4022: EXCEPTION
4023: WHEN NO_DATA_FOUND THEN
4077: PROCEDURE SolutionBasedModelcheck
4078: (p_model_id IN INTEGER,
4079: p_instanciable OUT NOCOPY INTEGER) IS
4080:
4081: v_bom_node_id CZ_PS_NODES.ps_node_id%TYPE;
4082:
4083: BEGIN
4084: p_instanciable:=0;
4085: v_bom_node_id:=containsBOM(p_model_id,p_instanciable);
4211:
4212: t_m_chain_tbl IntArray;
4213: t_trk_tbl IntArray;
4214: t_nontrk_tbl IntArray;
4215: v_ib_trackable CZ_PS_NODES.ib_trackable%TYPE;
4216:
4217: BEGIN
4218:
4219: SELECT DISTINCT model_id BULK COLLECT INTO t_m_chain_tbl FROM
4231: FOR i IN t_m_chain_tbl.First..t_m_chain_tbl.Last
4232: LOOP
4233: --
4234: -- set has_trackable_children to '1' for those references in explosion tree of t_m_chain_tbl(i) model
4235: -- which points to models which have CZ_PS_NODES.ib_trackable='1'. So here we assume
4236: -- that CZ_PS_NODES.ib_trackable is populated correctly by Import
4237: --
4238: UPDATE cz_model_ref_expls
4239: SET has_trackable_children='1'
4232: LOOP
4233: --
4234: -- set has_trackable_children to '1' for those references in explosion tree of t_m_chain_tbl(i) model
4235: -- which points to models which have CZ_PS_NODES.ib_trackable='1'. So here we assume
4236: -- that CZ_PS_NODES.ib_trackable is populated correctly by Import
4237: --
4238: UPDATE cz_model_ref_expls
4239: SET has_trackable_children='1'
4240: WHERE model_id=t_m_chain_tbl(i) AND component_id=t_m_chain_tbl(i) AND deleted_flag=NO_FLAG AND
4239: SET has_trackable_children='1'
4240: WHERE model_id=t_m_chain_tbl(i) AND component_id=t_m_chain_tbl(i) AND deleted_flag=NO_FLAG AND
4241: EXISTS(SELECT NULL FROM CZ_MODEL_REF_EXPLS m WHERE model_id=t_m_chain_tbl(i) AND ps_node_type=REFERENCE_TYPE
4242: AND deleted_flag=NO_FLAG AND
4243: EXISTS(SELECT NULL FROM CZ_PS_NODES
4244: WHERE devl_project_id = m.component_id AND
4245: ib_trackable = '1' AND deleted_flag = NO_FLAG));
4246:
4247: IF SQL%ROWCOUNT=0 THEN
4247: IF SQL%ROWCOUNT=0 THEN
4248: BEGIN
4249: v_ib_trackable:=NO_FLAG;
4250: SELECT '1' INTO v_ib_trackable FROM dual
4251: WHERE EXISTS(SELECT NULL FROM CZ_PS_NODES WHERE devl_project_id=t_m_chain_tbl(i)
4252: AND deleted_flag=NO_FLAG AND ib_trackable='1');
4253: v_ib_trackable:='1';
4254: t_trk_tbl(t_trk_tbl.COUNT+1):=t_m_chain_tbl(i);
4255: EXCEPTION
4302:
4303: FOR i IN(SELECT expr_node_id,rule_id
4304: FROM CZ_EXPRESSION_NODES
4305: WHERE rule_id IN(SELECT rule_id FROM CZ_RULES
4306: WHERE devl_project_id IN(SELECT devl_project_id FROM CZ_PS_NODES
4307: WHERE ps_node_id=p_ps_node_id) AND deleted_flag=NO_FLAG AND disabled_flag=NO_FLAG) AND
4308: ps_node_id=p_ps_node_id AND expr_type=205 AND deleted_flag=NO_FLAG)
4309: LOOP
4310: BEGIN
4359:
4360: x_run_id := 0; x_validation_flag := NO_FLAG;
4361:
4362: SELECT instantiable_flag INTO l_instantiable_flag
4363: FROM CZ_PS_NODES
4364: WHERE ps_node_id=p_ps_node_id;
4365:
4366: l_contribute := check_Rules_For_Ps_Node(p_ps_node_id);
4367:
4453: IF (l_children_index.EXISTS(l_expr_node_id(i))) THEN
4454: l_children := l_number_of_children(l_expr_node_id(i));
4455: FOR j IN l_children_index(l_expr_node_id(i))..l_children_index(l_expr_node_id(i)) + l_children LOOP
4456: IF (l_expr_type(j) IN (207,210) AND l_template_id(j) IN (43,44)) THEN
4457: FOR k IN (SELECT instantiable_flag FROM cz_ps_nodes
4458: WHERE ps_node_id = l_ps_node_id(i)
4459: AND deleted_flag = NO_FLAG) LOOP
4460: IF (k.instantiable_flag = '2') THEN
4461: IF (l_template_id(j) = 43) THEN