[Home] [Help]
1: package body IEU_UWQM_WS_ASSCT_PROPS_PKG as
2: /* $Header: IEUWRAPB.pls 120.1 2005/06/15 22:14:13 appldev $ */
3:
4: procedure insert_row(
5: x_rowid in out NOCOPY Varchar2,
11: p_tasks_rules_function IN varchar2
12: ) is
13:
14:
15: cursor C is select ROWID from IEU_UWQM_WS_ASSCT_PROPS
16: where ws_association_prop_id = p_ws_association_prop_id;
17:
18: -- l_ws_assoc_prop_id number;
19:
18: -- l_ws_assoc_prop_id number;
19:
20: begin
21:
22: -- select IEU_UWQM_WS_ASSCT_PROPS_S1.NEXTVAL into l_ws_assoc_prop_id from sys.dual;
23:
24: insert into IEU_UWQM_WS_ASSCT_PROPS(
25: ws_association_prop_id,
26: parent_ws_id,
20: begin
21:
22: -- select IEU_UWQM_WS_ASSCT_PROPS_S1.NEXTVAL into l_ws_assoc_prop_id from sys.dual;
23:
24: insert into IEU_UWQM_WS_ASSCT_PROPS(
25: ws_association_prop_id,
26: parent_ws_id,
27: child_ws_id,
28: dist_st_based_on_parent_flag,
76: child_ws_id,
77: dist_st_based_on_parent_flag,
78: ws_id,
79: tasks_rules_function
80: from ieu_uwqm_ws_assct_props
81: where ws_association_prop_id = p_ws_association_prop_id
82: for update of ws_association_prop_id nowait;
83: recinfo c%rowtype;
84:
115: p_ws_id in number,
116: p_tasks_rules_function IN varchar2
117: ) is
118: begin
119: update ieu_uwqm_ws_assct_props set
120: object_version_number = object_version_number+1,
121: parent_ws_id = p_parent_ws_id,
122: child_ws_id = p_child_ws_id,
123: dist_st_based_on_parent_flag = p_dist_st_based_on_parent_flag,
142: procedure delete_row(
143: p_ws_association_prop_id in number
144: ) is
145: begin
146: delete from ieu_uwqm_ws_assct_props
147: where ws_association_prop_id = p_ws_association_prop_id;
148:
149: if (sql%notfound) then
150: raise no_data_found;
227: end load_seed_row;
228:
229:
230:
231: END IEU_UWQM_WS_ASSCT_PROPS_PKG;