[Home] [Help]
1: package body XDO_CONFIG_VALUES_PKG as
2: /* $Header: XDOCFGVB.pls 120.0 2005/09/01 20:26:16 bokim noship $ */
3:
4: procedure INSERT_ROW (
5: P_VALUE_ID in NUMBER,
16: P_LAST_UPDATED_BY in NUMBER,
17: P_LAST_UPDATE_LOGIN in NUMBER
18: ) is
19: begin
20: insert into XDO_CONFIG_VALUES (
21: VALUE_ID,
22: CONFIG_LEVEL,
23: APPLICATION_SHORT_NAME,
24: DATA_SOURCE_CODE,
62: P_LAST_UPDATED_BY in NUMBER,
63: P_LAST_UPDATE_LOGIN in NUMBER
64: ) is
65: begin
66: update XDO_CONFIG_VALUES
67: set VALUE = P_VALUE,
68: BVALUE = P_BVALUE,
69: LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
70: LAST_UPDATED_BY = P_LAST_UPDATED_BY,
96:
97: begin
98: select value_id
99: into m_value_id
100: from xdo_config_values
101: where CONFIG_LEVEL = P_CONFIG_LEVEL
102: and ( (APPLICATION_SHORT_NAME is null and P_APPLICATION_SHORT_NAME is null)
103: or (APPLICATION_SHORT_NAME = P_APPLICATION_SHORT_NAME))
104: and ( (DATA_SOURCE_CODE is null and P_DATA_SOURCE_CODE is null)
129: begin
130:
131: select value_id
132: into m_value_id
133: from xdo_config_values
134: where CONFIG_LEVEL = P_CONFIG_LEVEL
135: and ( (APPLICATION_SHORT_NAME is null and P_APPLICATION_SHORT_NAME is null)
136: or (APPLICATION_SHORT_NAME = P_APPLICATION_SHORT_NAME))
137: and ( (DATA_SOURCE_CODE is null and P_DATA_SOURCE_CODE is null)
149: exception when no_data_found then
150: null;
151: end;
152:
153: delete from XDO_CONFIG_VALUES
154: where value_id = m_value_id;
155:
156: end DELETE_ROW;
157:
189: );
190:
191: exception when no_data_found then
192:
193: select xdo_config_values_seq.nextval into value_id from dual;
194:
195: INSERT_ROW (
196: value_id,
197: P_CONFIG_LEVEL,
211: end;
212:
213: end LOAD_ROW;
214:
215: end XDO_CONFIG_VALUES_PKG;