[Home] [Help]
6583: VALUES (x_child_vs_id, p_parent_vs_id, l_owner, SYSDATE, l_owner, SYSDATE,
6584: g_current_login_id );
6585:
6586: ----------------------------------------------------------------------------
6587: -- Insert into EGO_VS_VALUES_DISP_ORDER --
6588: ----------------------------------------------------------------------------
6589:
6590: -- NOTE: This is not used when creating a child VS from the UI. Only when
6591: -- using the PL/SQL API directly.
6599: -- Remember, we specify which of the EXISTING value set values (from the parent value
6600: -- set) are to become members of the child value set. No new values are
6601: -- created.
6602:
6603: INSERT INTO ego_vs_values_disp_order (value_set_value_id, value_set_id,
6604: disp_sequence, created_by, creation_date, last_updated_by,
6605: last_update_date, last_update_login)
6606: VALUES (child_vs_value_ids(i), x_child_vs_id, i, l_owner, SYSDATE, l_owner,
6607: SYSDATE, g_current_login_id);
6615:
6616: l_return_status_inf := FND_API.G_FALSE;
6617:
6618: -- The condition to obtain the correct subset of VS values from
6619: -- EGO_VS_VALUES_DISP_ORDER
6620: l_inf_where_clause :=
6621: 'vsv.FLEX_VALUE_ID = do.value_set_value_id AND ' ||
6622: 'do.value_set_id = ' || x_child_vs_id || ' AND ' ||
6623: 'vsv.value_set_id = ' || p_parent_vs_id || ' AND ' ||
6674: Insert_Value_Set_Table_Inf (
6675: p_api_version => p_api_version
6676: , p_value_set_id => x_child_vs_id
6677: , p_table_application_id => 431
6678: , p_table_name => 'EGO_VALUE_SET_VALUES_V vsv , EGO_VS_VALUES_DISP_ORDER do'
6679: , p_value_column_name => l_value_column_name
6680: , p_value_column_type => l_value_column_type
6681: , p_value_column_size => 150
6682: , p_meaning_column_name => NULL
6777: ----------------------------------------------------------------------------
6778: delete from ego_value_set_ext where VALUE_SET_ID = p_child_vs_id;
6779:
6780: ----------------------------------------------------------------------------
6781: -- Delete from EGO_VS_VALUES_DISP_ORDER --
6782: ----------------------------------------------------------------------------
6783: delete from ego_vs_values_disp_order where VALUE_SET_ID = p_child_vs_id;
6784:
6785: END Delete_Child_Value_Set;
6779:
6780: ----------------------------------------------------------------------------
6781: -- Delete from EGO_VS_VALUES_DISP_ORDER --
6782: ----------------------------------------------------------------------------
6783: delete from ego_vs_values_disp_order where VALUE_SET_ID = p_child_vs_id;
6784:
6785: END Delete_Child_Value_Set;
6786:
6787:
7013: l_vs_value_count NUMBER;
7014: l_api_name VARCHAR2(30);
7015: l_parent_vs_row ego_value_sets_v%ROWTYPE;
7016: l_validation_code FND_LOOKUP_VALUES.LOOKUP_CODE%TYPE;
7017: l_vs_value_disp_orders EGO_VS_VALUES_DISP_ORDER_TBL
7018: := ego_vs_values_disp_order_tbl();
7019: BEGIN
7020:
7021: -- For Debugging
7014: l_api_name VARCHAR2(30);
7015: l_parent_vs_row ego_value_sets_v%ROWTYPE;
7016: l_validation_code FND_LOOKUP_VALUES.LOOKUP_CODE%TYPE;
7017: l_vs_value_disp_orders EGO_VS_VALUES_DISP_ORDER_TBL
7018: := ego_vs_values_disp_order_tbl();
7019: BEGIN
7020:
7021: -- For Debugging
7022: l_api_name := 'Update_Child_Value_Set';
7076: -- Nothing to update in EGO_VALUE_SET_EXT (because the parent-child
7077: -- relationship cannot be modified)
7078:
7079: ----------------------------------------------------------------------------
7080: -- Update EGO_VS_VALUES_DISP_ORDER --
7081: ----------------------------------------------------------------------------
7082:
7083: -- Create a collection for the new child VS values' rows
7084:
7088: code_debug('i: ' || i);
7089:
7090: l_vs_value_count := 0;
7091: SELECT COUNT(*) INTO l_vs_value_count
7092: FROM ego_vs_values_disp_order
7093: WHERE value_set_value_id = child_vs_value_ids(i)
7094: AND value_set_id = p_value_set_id;
7095:
7096: -- Add an extra space onto the array
7109: , p_owner -- LAST_UPDATED_BY
7110: , SYSDATE -- LAST_UPDATE_DATE
7111: , g_current_login_id -- LAST_UPDATE_LOGIN
7112: INTO l_vs_value_disp_orders(i)
7113: FROM ego_vs_values_disp_order
7114: WHERE value_set_value_id = child_vs_value_ids(i) and
7115: value_set_id = p_value_set_id;
7116: ELSE
7117: -- Add a row to the collection of new value sets
7130: END IF;
7131: END LOOP;
7132:
7133: -- Delete all the existing values from the child VS
7134: DELETE FROM ego_vs_values_disp_order
7135: WHERE value_set_id = p_value_set_id;
7136:
7137: -- Insert the new values for the child VS from the collection
7138: FORALL j IN l_vs_value_disp_orders.FIRST ..
7136:
7137: -- Insert the new values for the child VS from the collection
7138: FORALL j IN l_vs_value_disp_orders.FIRST ..
7139: l_vs_value_disp_orders.LAST
7140: INSERT INTO ego_vs_values_disp_order
7141: VALUES l_vs_value_disp_orders(j);
7142: -- END FORALL
7143:
7144:
8084: -- Requirement: bug: 3542670
8085: --
8086: -- Function: To process the value set display sequence
8087: -- If the display_sequence is same as value_set_value_id,
8088: -- then record is not stored in EGO_VS_VALUES_DISP_ORDER
8089: -- else a record is stored in EGO_VS_VALUES_DISP_ORDER
8090: -- Parameters:
8091: -- IN
8092: -- p_transaction_type : CREATE,UPDATE
8085: --
8086: -- Function: To process the value set display sequence
8087: -- If the display_sequence is same as value_set_value_id,
8088: -- then record is not stored in EGO_VS_VALUES_DISP_ORDER
8089: -- else a record is stored in EGO_VS_VALUES_DISP_ORDER
8090: -- Parameters:
8091: -- IN
8092: -- p_transaction_type : CREATE,UPDATE
8093: -- p_value_set_id : value_set_id takes precedence over value_set_name
8124: l_api_name VARCHAR2(30);
8125: l_api_version NUMBER;
8126: l_value_set_value_id fnd_flex_values.flex_value_id%TYPE;
8127: l_value_set_id fnd_flex_value_sets.flex_value_set_id%TYPE;
8128: l_sequence EGO_VS_VALUES_DISP_ORDER.disp_sequence%TYPE;
8129: l_invalid_params BOOLEAN;
8130: l_create_sequence BOOLEAN;
8131: l_update_sequence BOOLEAN;
8132: l_Sysdate DATE;
8133: l_owner NUMBER;
8134:
8135: CURSOR c_get_disp_sequence (cp_flex_value_id IN NUMBER) is
8136: SELECT disp_sequence
8137: FROM ego_vs_values_disp_order
8138: WHERE value_set_value_id = cp_flex_value_id;
8139:
8140: BEGIN
8141: l_api_name := 'process_vs_value_sequence';
8229: END IF;
8230:
8231: l_Sysdate := SYSDATE;
8232: IF l_create_sequence THEN
8233: INSERT INTO EGO_VS_VALUES_DISP_ORDER
8234: (value_set_value_id
8235: ,value_set_id
8236: ,disp_sequence
8237: ,created_by
8250: ,G_CURRENT_LOGIN_ID);
8251: END IF;
8252:
8253: IF l_update_sequence THEN
8254: UPDATE EGO_VS_VALUES_DISP_ORDER
8255: SET disp_sequence = p_sequence
8256: ,last_updated_by = l_owner
8257: ,last_update_date = l_sysdate
8258: ,last_update_login = G_CURRENT_LOGIN_ID