[Home] [Help]
1265: l_location := '0020';
1266: --
1267: vea_tpa_util_pvt.add_message
1268: (
1269: p_error_name => 'VEA_TP_LAYERS_CONFLICT',
1270: p_token1 => 'PROGRAM_UNIT_NAME',
1271: p_value1 => p_program_unit_name,
1272: p_token2 => 'PACKAGE_NAME',
1273: p_value2 => p_package_name
1370: ========================================================================*/
1371: PROCEDURE
1372: processConflictingLayers
1373: (
1374: p_tp_layer_id IN vea_tp_layers.tp_layer_id%TYPE ,
1375: p_layer_provider_code IN vea_layers.layer_provider_code%TYPE
1376: )
1377: IS
1378: --{
2043: delete_rows
2044: (
2045: p_layer_provider_code IN vea_layers.layer_provider_code%TYPE,
2046: p_layer_header_id IN vea_layers.layer_header_id%TYPE,
2047: p_tp_layer_id IN vea_tp_layers.tp_layer_id%TYPE,
2048: x_layer_count OUT NOCOPY NUMBER
2049: )
2050: IS
2051: --{
2219: FUNCTION
2220: isLayerActive
2221: (
2222: p_layer_provider_code IN vea_layers.layer_provider_code%TYPE,
2223: p_tp_layer_id IN vea_tp_layers.tp_layer_id%TYPE,
2224: p_layer_header_id IN vea_layers.layer_header_id%TYPE
2225: )
2226: RETURN VARCHAR2
2227: IS
2240: TLA.name tp_layer_name,
2241: LH.program_unit_id,
2242: LH.program_unit_lp_code
2243: FROM vea_layer_headers LH,
2244: vea_tp_layers TLA
2245: WHERE LH.layer_provider_code = p_layer_provider_code
2246: AND LH.layer_header_id = p_layer_header_id
2247: AND TLA.layer_provider_code = p_layer_provider_code
2248: AND TLA.tp_layer_id = p_tp_layer_id
2544: p_tps_parameter9_value IN vea_layers.tps_parameter9_value%TYPE ,
2545: p_tps_parameter10_id IN vea_layers.tps_parameter10_id%TYPE ,
2546: p_tps_parameter10_value IN vea_layers.tps_parameter10_value%TYPE ,
2547: p_id IN vea_layers.layer_id%TYPE := NULL,
2548: p_tp_layer_id IN vea_tp_layers.tp_layer_id%TYPE := NULL,
2549: p_tp_layer_name IN vea_tp_layers.name%TYPE,
2550: p_tps_parameter1_name IN vea_parameters.name%TYPE,
2551: p_tps_parameter2_name IN vea_parameters.name%TYPE,
2552: p_tps_parameter3_name IN vea_parameters.name%TYPE,
2545: p_tps_parameter10_id IN vea_layers.tps_parameter10_id%TYPE ,
2546: p_tps_parameter10_value IN vea_layers.tps_parameter10_value%TYPE ,
2547: p_id IN vea_layers.layer_id%TYPE := NULL,
2548: p_tp_layer_id IN vea_tp_layers.tp_layer_id%TYPE := NULL,
2549: p_tp_layer_name IN vea_tp_layers.name%TYPE,
2550: p_tps_parameter1_name IN vea_parameters.name%TYPE,
2551: p_tps_parameter2_name IN vea_parameters.name%TYPE,
2552: p_tps_parameter3_name IN vea_parameters.name%TYPE,
2553: p_tps_parameter4_name IN vea_parameters.name%TYPE,
2569: l_savepoint_name VARCHAR2(30);
2570: l_layer_id vea_layers.layer_id%TYPE;
2571: l_active_flag vea_layers.active_flag%TYPE;
2572: l_layer_header_id vea_layers.layer_header_id%TYPE;
2573: l_tp_layer_id vea_tp_layers.tp_layer_id%TYPE;
2574: l_new_program_unit_id vea_program_units.program_unit_id%TYPE;
2575: l_tps_parameter1_id vea_layers.tps_parameter1_id%TYPE;
2576: l_tps_parameter2_id vea_layers.tps_parameter2_id%TYPE;
2577: l_tps_parameter3_id vea_layers.tps_parameter3_id%TYPE;
2588: --
2589: CURSOR layer_cur
2590: (
2591: p_layer_provider_code IN vea_layers.layer_provider_code%TYPE,
2592: p_tp_layer_id IN vea_tp_layers.name%TYPE,
2593: p_new_program_unit_id IN vea_program_units.name%TYPE
2594: )
2595: IS
2596: SELECT LA.LAYER_ID LAYER_ID
2594: )
2595: IS
2596: SELECT LA.LAYER_ID LAYER_ID
2597: FROM vea_layers LA,
2598: VEA_TP_LAYERS TL,
2599: VEA_PROGRAM_UNITS PU,
2600: VEA_PACKAGES PK
2601: WHERE TL.TP_LAYER_ID = p_tp_layer_id
2602: AND TL.TP_LAYER_ID = PK.TP_LAYER_ID
2724: --
2725: --
2726: l_location := '0030';
2727: --
2728: l_tp_layer_id := vea_tp_layers_sv.getId
2729: (
2730: p_layer_provider_code => p_layer_provider_code,
2731: p_tp_layer_name => p_tp_layer_name
2732: );
2788: THEN
2789: --{
2790: l_location := '0100';
2791: --
2792: UPDATE vea_tp_layers
2793: SET active_flag = 'Y'
2794: WHERE layer_provider_code = p_layer_provider_code
2795: AND tp_layer_id = l_tp_layer_id;
2796: --}