[Home] [Help]
PACKAGE BODY: APPS.JTF_TASK_RECURRENCES_PUB_OA_W
Source
1 package body jtf_task_recurrences_pub_oa_w as
2 /* $Header: jtfbtkub.pls 115.1 2003/09/23 22:45:26 twan noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy jtf_task_recurrences_pub.output_dates_rec, a0 JTF_DATE_TABLE) as
4 ddindx binary_integer; indx binary_integer;
5 begin
6 if a0 is not null and a0.count > 0 then
7 if a0.count > 0 then
8 indx := a0.first;
9 ddindx := 1;
10 while true loop
11 t(ddindx) := a0(indx);
12 ddindx := ddindx+1;
13 if a0.last =indx
14 then exit;
15 end if;
16 indx := a0.next(indx);
17 end loop;
18 end if;
19 end if;
20 end rosetta_table_copy_in_p1;
21 procedure rosetta_table_copy_out_p1(t jtf_task_recurrences_pub.output_dates_rec, a0 out nocopy JTF_DATE_TABLE) as
22 ddindx binary_integer; indx binary_integer;
23 begin
24 if t is null or t.count = 0 then
25 a0 := JTF_DATE_TABLE();
26 else
27 a0 := JTF_DATE_TABLE();
28 if t.count > 0 then
29 a0.extend(t.count);
30 ddindx := t.first;
31 indx := 1;
32 while true loop
33 a0(indx) := t(ddindx);
34 indx := indx+1;
35 if t.last =ddindx
36 then exit;
37 end if;
38 ddindx := t.next(ddindx);
39 end loop;
40 end if;
41 end if;
42 end rosetta_table_copy_out_p1;
43
44 procedure create_task_recurrence(p_api_version NUMBER
45 , p_init_msg_list VARCHAR2
46 , p_commit VARCHAR2
47 , p_task_id NUMBER
48 , p_task_number VARCHAR2
49 , p_occurs_which INTEGER
50 , p_template_flag VARCHAR2
51 , p_day_of_week INTEGER
52 , p_date_of_month INTEGER
53 , p_occurs_month INTEGER
54 , p_occurs_uom VARCHAR2
55 , p_occurs_every INTEGER
56 , p_occurs_number INTEGER
57 , p_start_date_active DATE
58 , p_end_date_active DATE
59 , x_return_status out nocopy VARCHAR2
60 , x_msg_count out nocopy NUMBER
61 , x_msg_data out nocopy VARCHAR2
62 , x_recurrence_rule_id out nocopy NUMBER
63 , p19_a0 out nocopy NUMBER
64 , p19_a1 out nocopy NUMBER
65 , p19_a2 out nocopy VARCHAR2
66 , x_reccurences_generated out nocopy INTEGER
67 , p_attribute1 VARCHAR2
68 , p_attribute2 VARCHAR2
69 , p_attribute3 VARCHAR2
70 , p_attribute4 VARCHAR2
71 , p_attribute5 VARCHAR2
72 , p_attribute6 VARCHAR2
73 , p_attribute7 VARCHAR2
74 , p_attribute8 VARCHAR2
75 , p_attribute9 VARCHAR2
76 , p_attribute10 VARCHAR2
77 , p_attribute11 VARCHAR2
78 , p_attribute12 VARCHAR2
79 , p_attribute13 VARCHAR2
80 , p_attribute14 VARCHAR2
81 , p_attribute15 VARCHAR2
82 , p_attribute_category VARCHAR2
83 , p_sunday VARCHAR2
84 , p_monday VARCHAR2
85 , p_tuesday VARCHAR2
86 , p_wednesday VARCHAR2
87 , p_thursday VARCHAR2
88 , p_friday VARCHAR2
89 , p_saturday VARCHAR2
90 )
91
92 as
93 ddx_task_rec jtf_task_recurrences_pub.task_details_rec;
94 ddindx binary_integer; indx binary_integer;
95 begin
96
97 -- copy data to the local IN or IN-OUT args, if any
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142 -- here's the delegated call to the old PL/SQL routine
143 jtf_task_recurrences_pub.create_task_recurrence(p_api_version,
144 p_init_msg_list,
145 p_commit,
146 p_task_id,
147 p_task_number,
148 p_occurs_which,
149 p_template_flag,
150 p_day_of_week,
151 p_date_of_month,
152 p_occurs_month,
153 p_occurs_uom,
154 p_occurs_every,
155 p_occurs_number,
156 p_start_date_active,
157 p_end_date_active,
158 x_return_status,
159 x_msg_count,
160 x_msg_data,
161 x_recurrence_rule_id,
162 ddx_task_rec,
163 x_reccurences_generated,
164 p_attribute1,
165 p_attribute2,
166 p_attribute3,
167 p_attribute4,
168 p_attribute5,
169 p_attribute6,
170 p_attribute7,
171 p_attribute8,
172 p_attribute9,
173 p_attribute10,
174 p_attribute11,
175 p_attribute12,
176 p_attribute13,
177 p_attribute14,
178 p_attribute15,
179 p_attribute_category,
180 p_sunday,
181 p_monday,
182 p_tuesday,
183 p_wednesday,
184 p_thursday,
185 p_friday,
186 p_saturday);
187
188 -- copy data back from the local variables to OUT or IN-OUT args, if any
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208 p19_a0 := ddx_task_rec.task_id;
209 p19_a1 := ddx_task_rec.task_number;
210 p19_a2 := ddx_task_rec.task_name;
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235 end;
236
237 end jtf_task_recurrences_pub_oa_w;