[Home] [Help]
PACKAGE BODY: APPS.IEU_UWQM_WS_ASSCT_PROPS_PKG
Source
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,
6 p_ws_association_prop_id in number,
7 p_parent_ws_id in number,
8 p_child_ws_id in number,
9 p_dist_st_based_on_parent_flag in varchar2,
10 p_ws_id in number,
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
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,
29 ws_id,
30 tasks_rules_function,
31 OBJECT_VERSION_NUMBER,
32 CREATED_BY,
33 CREATION_DATE,
34 LAST_UPDATED_BY,
35 LAST_UPDATE_DATE,
36 LAST_UPDATE_LOGIN
37 )
38 VALUES(
39 p_ws_association_prop_id,
40 p_parent_ws_id,
41 p_child_ws_id,
42 p_dist_st_based_on_parent_flag,
43 p_ws_id,
44 p_tasks_rules_function,
45 1,
46 fnd_global.user_id,
47 sysdate,
48 fnd_global.user_id,
49 sysdate,
50 fnd_global.login_id
51 );
52
53 open c;
54 fetch c into x_rowid;
55 if (c%notfound) then
56 close c;
57 raise no_data_found;
58 end if;
59 close c;
60
61 END INSERT_ROW;
62
63
64 procedure lock_row(
65 p_ws_association_prop_id in number,
66 p_parent_ws_id in number,
67 p_child_ws_id in number,
68 p_dist_st_based_on_parent_flag in varchar2,
69 p_ws_id in number,
70 p_tasks_rules_function IN varchar2,
71 p_object_version_number in number
72 ) is
73 cursor c is select
74 object_version_number,
75 parent_ws_id,
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
85 begin
86 open c;
87 fetch c into recinfo;
88 if (c%notfound) then
89 close c;
90 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
91 app_exception.raise_exception;
92 end if;
93 close c;
94
95 if ((recinfo.object_version_number = p_object_version_number)
96 AND(recinfo.parent_ws_id = p_parent_ws_id)
97 AND(recinfo.child_ws_id = p_child_ws_id)
98 AND(recinfo.dist_st_based_on_parent_flag = p_dist_st_based_on_parent_flag)
99 AND(recinfo.ws_id = p_ws_id)
100 AND(recinfo.tasks_rules_function = p_tasks_rules_function))
101 then
102 null;
103 else
104 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
105 app_exception.raise_exception;
106 end if;
107
108 END LOCK_ROW;
109
110 procedure update_row(
111 p_ws_association_prop_id in number,
112 p_parent_ws_id in number,
113 p_child_ws_id in number,
114 p_dist_st_based_on_parent_flag in varchar2,
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,
124 ws_id = p_ws_id,
125 tasks_rules_function = p_tasks_rules_function,
126 last_update_date = sysdate,
127 last_updated_by = fnd_global.user_id,
128 last_update_login = fnd_global.login_id
129 where ws_association_prop_id = p_ws_association_prop_id;
130
131 if (sql%notfound) then
132 raise no_data_found;
133 end if;
134
135 if (sql%notfound) then
136 raise no_data_found;
137 end if;
138
139 END UPDATE_ROW;
140
141
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;
151 end if;
152
153 END DELETE_ROW;
154
155
156 procedure load_row(
157 p_ws_association_prop_id in number,
158 p_parent_ws_id in number,
159 p_child_ws_id in number,
160 p_dist_st_based_on_parent_flag in varchar2,
161 p_ws_id in number,
162 p_owner in varchar2,
163 p_tasks_rules_function IN varchar2
164 ) is
165
166 l_user_id number := 0;
167 l_rowid varchar2(50);
168
169 begin
170 if (p_owner = 'SEED') then
171 l_user_id := 1;
172 end if;
173
174 begin
175 update_row(
176 p_ws_association_prop_id => p_ws_association_prop_id,
177 p_parent_ws_id => p_parent_ws_id,
178 p_child_ws_id => p_child_ws_id,
179 p_dist_st_based_on_parent_flag => p_dist_st_based_on_parent_flag,
180 p_ws_id => p_ws_id,
181 p_tasks_rules_function => p_tasks_rules_function
182 );
183
184 if (sql%notfound) then
185 raise no_data_found;
186 end if;
187
188 exception when no_data_found then
189 insert_row(
190 x_rowid => l_rowid,
191 p_ws_association_prop_id => p_ws_association_prop_id,
192 p_parent_ws_id => p_parent_ws_id,
193 p_child_ws_id => p_child_ws_id,
194 p_dist_st_based_on_parent_flag => p_dist_st_based_on_parent_flag,
195 p_ws_id => p_ws_id,
196 p_tasks_rules_function => p_tasks_rules_function
197 );
198 end;
199
200 END LOAD_ROW;
201
202 procedure load_seed_row(
203 p_upload_mode in varchar2,
204 p_ws_association_prop_id in number,
205 p_parent_ws_id in number,
206 p_child_ws_id in number,
207 p_dist_st_based_on_parent_flag in varchar2,
208 p_ws_id in number,
209 p_owner in varchar2,
210 p_tasks_rules_function IN varchar2
211 )is
212 begin
213
214 if (p_upload_mode = 'NLS') then
215 null;
216 else
217 load_row(
218 p_ws_association_prop_id,
219 p_parent_ws_id,
220 p_child_ws_id,
221 p_dist_st_based_on_parent_flag,
222 p_ws_id,
223 p_owner,
224 p_tasks_rules_function);
225 end if;
226
227 end load_seed_row;
228
229
230
231 END IEU_UWQM_WS_ASSCT_PROPS_PKG;