[Home] [Help]
PACKAGE BODY: APPS.JTF_TASK_RECUR_RULES_PKG
Source
1 PACKAGE body JTF_TASK_RECUR_RULES_PKG as
2 /* $Header: jtftkrrb.pls 115.16 2002/12/04 22:12:34 cjang ship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out NOCOPY VARCHAR2,
5 X_RECURRENCE_RULE_ID in NUMBER,
6 X_OCCURS_WHICH in NUMBER,
7 X_DAY_OF_WEEK in NUMBER,
8 X_DATE_OF_MONTH in NUMBER,
9 X_OCCURS_MONTH in NUMBER,
10 X_OCCURS_EVERY in NUMBER,
11 X_OCCURS_NUMBER in NUMBER,
12 X_START_DATE_ACTIVE in DATE,
13 X_END_DATE_ACTIVE in DATE,
14 X_ATTRIBUTE1 in VARCHAR2,
15 X_ATTRIBUTE2 in VARCHAR2,
16 X_ATTRIBUTE3 in VARCHAR2,
17 X_ATTRIBUTE4 in VARCHAR2,
18 X_ATTRIBUTE5 in VARCHAR2,
19 X_ATTRIBUTE6 in VARCHAR2,
20 X_ATTRIBUTE7 in VARCHAR2,
21 X_ATTRIBUTE8 in VARCHAR2,
22 X_ATTRIBUTE9 in VARCHAR2,
23 X_ATTRIBUTE10 in VARCHAR2,
24 X_ATTRIBUTE11 in VARCHAR2,
25 X_ATTRIBUTE12 in VARCHAR2,
26 X_ATTRIBUTE13 in VARCHAR2,
27 X_ATTRIBUTE14 in VARCHAR2,
28 X_ATTRIBUTE15 in VARCHAR2,
29 X_ATTRIBUTE_CATEGORY in VARCHAR2,
30 X_OCCURS_UOM in VARCHAR2,
31 X_CREATION_DATE in DATE,
32 X_CREATED_BY in NUMBER,
33 X_LAST_UPDATE_DATE in DATE,
34 X_LAST_UPDATED_BY in NUMBER,
35 X_LAST_UPDATE_LOGIN in NUMBER,
36 x_sunday IN VARCHAR2 DEFAULT jtf_task_utl.g_no_char,
37 x_monday IN VARCHAR2 DEFAULT jtf_task_utl.g_no_char,
38 x_tuesday IN VARCHAR2 DEFAULT jtf_task_utl.g_no_char,
39 x_wednesday IN VARCHAR2 DEFAULT jtf_task_utl.g_no_char,
40 x_thursday IN VARCHAR2 DEFAULT jtf_task_utl.g_no_char,
41 x_friday IN VARCHAR2 DEFAULT jtf_task_utl.g_no_char,
42 x_saturday IN VARCHAR2 DEFAULT jtf_task_utl.g_no_char,
43 x_date_selected IN VARCHAR2 default null
44 ) is
45 cursor C is select ROWID from JTF_TASK_RECUR_RULES
46 where RECURRENCE_RULE_ID = X_RECURRENCE_RULE_ID
47 ;
48 begin
49 insert into JTF_TASK_RECUR_RULES (
50 RECURRENCE_RULE_ID,
51 CREATED_BY,
52 CREATION_DATE,
53 LAST_UPDATED_BY,
54 LAST_UPDATE_DATE,
55 LAST_UPDATE_LOGIN,
56 OCCURS_WHICH,
57 DAY_OF_WEEK,
58 DATE_OF_MONTH,
59 OCCURS_MONTH,
60 OCCURS_UOM,
61 OCCURS_EVERY,
62 OCCURS_NUMBER,
63 START_DATE_ACTIVE,
64 END_DATE_ACTIVE,
65 ATTRIBUTE1,
66 ATTRIBUTE2,
67 ATTRIBUTE3,
68 ATTRIBUTE4,
69 ATTRIBUTE5,
70 ATTRIBUTE6,
71 ATTRIBUTE7,
72 ATTRIBUTE8,
73 ATTRIBUTE9,
74 ATTRIBUTE10,
75 ATTRIBUTE11,
76 ATTRIBUTE12,
77 ATTRIBUTE13,
78 ATTRIBUTE14,
79 ATTRIBUTE15,
80 ATTRIBUTE_CATEGORY,
81 OBJECT_VERSION_NUMBER,
82 SUNDAY,
83 MONDAY,
84 TUESDAY,
85 WEDNESDAY,
86 THURSDAY,
87 FRIDAY,
88 SATURDAY,
89 DATE_SELECTED
90 ) values (
91 X_RECURRENCE_RULE_ID,
92 X_CREATED_BY,
93 X_CREATION_DATE,
94 X_LAST_UPDATED_BY,
95 X_LAST_UPDATE_DATE,
96 X_LAST_UPDATE_LOGIN,
97 X_OCCURS_WHICH,
98 X_DAY_OF_WEEK,
99 X_DATE_OF_MONTH,
100 X_OCCURS_MONTH,
101 X_OCCURS_UOM,
102 X_OCCURS_EVERY,
103 X_OCCURS_NUMBER,
104 X_START_DATE_ACTIVE,
105 X_END_DATE_ACTIVE,
106 X_ATTRIBUTE1,
107 X_ATTRIBUTE2,
108 X_ATTRIBUTE3,
109 X_ATTRIBUTE4,
110 X_ATTRIBUTE5,
111 X_ATTRIBUTE6,
112 X_ATTRIBUTE7,
113 X_ATTRIBUTE8,
114 X_ATTRIBUTE9,
115 X_ATTRIBUTE10,
116 X_ATTRIBUTE11,
117 X_ATTRIBUTE12,
118 X_ATTRIBUTE13,
119 X_ATTRIBUTE14,
120 X_ATTRIBUTE15,
121 X_ATTRIBUTE_CATEGORY,
122 1,
123 x_sunday,
124 x_monday,
125 x_tuesday,
126 x_wednesday,
127 x_thursday,
128 x_friday,
129 x_saturday,
130 x_date_selected
131 );
132
133 open c;
134 fetch c into X_ROWID;
135 if (c%notfound) then
136 close c;
137 raise no_data_found;
138 end if;
139 close c;
140
141 end INSERT_ROW;
142
143 procedure LOCK_ROW (
144 X_RECURRENCE_RULE_ID in NUMBER,
145 X_OBJECT_VERSION_NUMBER in NUMBER
146 ) is
147 cursor c1 is select
148 OBJECT_VERSION_NUMBER
149 from JTF_TASK_RECUR_RULES
150 where RECURRENCE_RULE_ID = X_RECURRENCE_RULE_ID
151 for update of RECURRENCE_RULE_ID nowait;
152 tlinfo c1%rowtype ;
153 BEGIN
154 open c1;
155 fetch c1 into tlinfo;
156 if (c1%notfound) then
157 close c1;
158 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
159 app_exception.raise_exception;
160 end if;
161 close c1;
162
163 if (tlinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
164 then
165 null;
166 else
167 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
168 app_exception.raise_exception;
169 end if;
170
171 end LOCK_ROW;
172
173
174 procedure UPDATE_ROW (
175 X_RECURRENCE_RULE_ID in NUMBER,
176 X_OBJECT_VERSION_NUMBER in NUMBER,
177 X_OCCURS_WHICH in NUMBER,
178 X_DAY_OF_WEEK in NUMBER,
179 X_DATE_OF_MONTH in NUMBER,
180 X_OCCURS_MONTH in NUMBER,
181 X_OCCURS_EVERY in NUMBER,
182 X_OCCURS_NUMBER in NUMBER,
183 X_START_DATE_ACTIVE in DATE,
184 X_END_DATE_ACTIVE in DATE,
185 X_ATTRIBUTE1 in VARCHAR2,
186 X_ATTRIBUTE2 in VARCHAR2,
187 X_ATTRIBUTE3 in VARCHAR2,
188 X_ATTRIBUTE4 in VARCHAR2,
189 X_ATTRIBUTE5 in VARCHAR2,
190 X_ATTRIBUTE6 in VARCHAR2,
191 X_ATTRIBUTE7 in VARCHAR2,
192 X_ATTRIBUTE8 in VARCHAR2,
193 X_ATTRIBUTE9 in VARCHAR2,
194 X_ATTRIBUTE10 in VARCHAR2,
195 X_ATTRIBUTE11 in VARCHAR2,
196 X_ATTRIBUTE12 in VARCHAR2,
197 X_ATTRIBUTE13 in VARCHAR2,
198 X_ATTRIBUTE14 in VARCHAR2,
199 X_ATTRIBUTE15 in VARCHAR2,
200 X_ATTRIBUTE_CATEGORY in VARCHAR2,
201 X_OCCURS_UOM in VARCHAR2,
202 X_LAST_UPDATE_DATE in DATE,
203 X_LAST_UPDATED_BY in NUMBER,
204 X_LAST_UPDATE_LOGIN in NUMBER,
205 x_sunday IN VARCHAR2 DEFAULT jtf_task_utl.g_no_char,
206 x_monday IN VARCHAR2 DEFAULT jtf_task_utl.g_no_char,
207 x_tuesday IN VARCHAR2 DEFAULT jtf_task_utl.g_no_char,
208 x_wednesday IN VARCHAR2 DEFAULT jtf_task_utl.g_no_char,
209 x_thursday IN VARCHAR2 DEFAULT jtf_task_utl.g_no_char,
210 x_friday IN VARCHAR2 DEFAULT jtf_task_utl.g_no_char,
211 x_saturday IN VARCHAR2 DEFAULT jtf_task_utl.g_no_char,
212 x_date_selected IN VARCHAR2 default null
213 ) is
214 begin
215 update JTF_TASK_RECUR_RULES set
216 OCCURS_WHICH = X_OCCURS_WHICH,
217 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER + 1,
218 DAY_OF_WEEK = X_DAY_OF_WEEK,
219 DATE_OF_MONTH = X_DATE_OF_MONTH,
220 OCCURS_MONTH = X_OCCURS_MONTH,
221 OCCURS_EVERY = X_OCCURS_EVERY,
222 OCCURS_NUMBER = X_OCCURS_NUMBER,
223 START_DATE_ACTIVE = X_START_DATE_ACTIVE,
224 END_DATE_ACTIVE = X_END_DATE_ACTIVE,
225 ATTRIBUTE1 = X_ATTRIBUTE1,
226 ATTRIBUTE2 = X_ATTRIBUTE2,
227 ATTRIBUTE3 = X_ATTRIBUTE3,
228 ATTRIBUTE4 = X_ATTRIBUTE4,
229 ATTRIBUTE5 = X_ATTRIBUTE5,
230 ATTRIBUTE6 = X_ATTRIBUTE6,
231 ATTRIBUTE7 = X_ATTRIBUTE7,
232 ATTRIBUTE8 = X_ATTRIBUTE8,
233 ATTRIBUTE9 = X_ATTRIBUTE9,
234 ATTRIBUTE10 = X_ATTRIBUTE10,
235 ATTRIBUTE11 = X_ATTRIBUTE11,
236 ATTRIBUTE12 = X_ATTRIBUTE12,
237 ATTRIBUTE13 = X_ATTRIBUTE13,
238 ATTRIBUTE14 = X_ATTRIBUTE14,
239 ATTRIBUTE15 = X_ATTRIBUTE15,
240 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
241 OCCURS_UOM = X_OCCURS_UOM,
242 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
243 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
244 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
245 SUNDAY = X_SUNDAY,
246 MONDAY = X_MONDAY,
247 TUESDAY = X_TUESDAY,
248 WEDNESDAY = X_WEDNESDAY,
249 THURSDAY = X_THURSDAY,
250 FRIDAY = X_FRIDAY,
251 SATURDAY = X_SATURDAY,
252 DATE_SELECTED = X_DATE_SELECTED
253 where RECURRENCE_RULE_ID = X_RECURRENCE_RULE_ID
254 and OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER + 1 ;
255
256 if (sql%notfound) then
257 raise no_data_found;
258 end if;
259 end UPDATE_ROW;
260
261 procedure DELETE_ROW (
262 X_RECURRENCE_RULE_ID in NUMBER,
263 X_OBJECT_VERSION_NUMBER in NUMBER
264 ) is
265 begin
266 delete from JTF_TASK_RECUR_RULES
267 where RECURRENCE_RULE_ID = X_RECURRENCE_RULE_ID
268 and OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER ;
269
270 if (sql%notfound) then
271 raise no_data_found;
272 end if;
273
274 end DELETE_ROW;
275
276 end JTF_TASK_RECUR_RULES_PKG;