[Home] [Help]
PACKAGE BODY: APPS.LNS_COND_ASSIGNMENT_PUB_W
Source
1 package body lns_cond_assignment_pub_w as
2 /* $Header: LNS_CASGM_PUBJ_B.pls 120.2.12010000.2 2010/03/19 08:32:07 gparuchu ship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy lns_cond_assignment_pub.cond_assignment_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_VARCHAR2_TABLE_300
7 , a4 JTF_VARCHAR2_TABLE_100
8 , a5 JTF_DATE_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_VARCHAR2_TABLE_100
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_DATE_TABLE
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_DATE_TABLE
15 , a12 JTF_NUMBER_TABLE
16 , a13 JTF_NUMBER_TABLE
17 , a14 JTF_NUMBER_TABLE
18 , a15 JTF_VARCHAR2_TABLE_100
19 , a16 JTF_NUMBER_TABLE
20 , a17 JTF_VARCHAR2_TABLE_100
21 ) as
22 ddindx binary_integer; indx binary_integer;
23 begin
24 if a0 is not null and a0.count > 0 then
25 if a0.count > 0 then
26 indx := a0.first;
27 ddindx := 1;
28 while true loop
29 t(ddindx).cond_assignment_id := a0(indx);
30 t(ddindx).loan_id := a1(indx);
31 t(ddindx).condition_id := a2(indx);
32 t(ddindx).condition_description := a3(indx);
33 t(ddindx).condition_met_flag := a4(indx);
34 t(ddindx).fulfillment_date := a5(indx);
35 t(ddindx).fulfillment_updated_by := a6(indx);
36 t(ddindx).mandatory_flag := a7(indx);
37 t(ddindx).created_by := a8(indx);
38 t(ddindx).creation_date := a9(indx);
39 t(ddindx).last_updated_by := a10(indx);
40 t(ddindx).last_update_date := a11(indx);
41 t(ddindx).last_update_login := a12(indx);
42 t(ddindx).object_version_number := a13(indx);
43 t(ddindx).disb_header_id := a14(indx);
44 t(ddindx).delete_disabled_flag := a15(indx);
45 t(ddindx).owner_object_id := a16(indx);
46 t(ddindx).owner_table := a17(indx);
47 ddindx := ddindx+1;
48 if a0.last =indx
49 then exit;
50 end if;
51 indx := a0.next(indx);
52 end loop;
53 end if;
54 end if;
55 end rosetta_table_copy_in_p1;
56 procedure rosetta_table_copy_out_p1(t lns_cond_assignment_pub.cond_assignment_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
57 , a1 out nocopy JTF_NUMBER_TABLE
58 , a2 out nocopy JTF_NUMBER_TABLE
59 , a3 out nocopy JTF_VARCHAR2_TABLE_300
60 , a4 out nocopy JTF_VARCHAR2_TABLE_100
61 , a5 out nocopy JTF_DATE_TABLE
62 , a6 out nocopy JTF_NUMBER_TABLE
63 , a7 out nocopy JTF_VARCHAR2_TABLE_100
64 , a8 out nocopy JTF_NUMBER_TABLE
65 , a9 out nocopy JTF_DATE_TABLE
66 , a10 out nocopy JTF_NUMBER_TABLE
67 , a11 out nocopy JTF_DATE_TABLE
68 , a12 out nocopy JTF_NUMBER_TABLE
69 , a13 out nocopy JTF_NUMBER_TABLE
70 , a14 out nocopy JTF_NUMBER_TABLE
71 , a15 out nocopy JTF_VARCHAR2_TABLE_100
72 , a16 out nocopy JTF_NUMBER_TABLE
73 , a17 out nocopy JTF_VARCHAR2_TABLE_100
74 ) as
75 ddindx binary_integer; indx binary_integer;
76 begin
77 if t is null or t.count = 0 then
78 a0 := JTF_NUMBER_TABLE();
79 a1 := JTF_NUMBER_TABLE();
80 a2 := JTF_NUMBER_TABLE();
81 a3 := JTF_VARCHAR2_TABLE_300();
82 a4 := JTF_VARCHAR2_TABLE_100();
83 a5 := JTF_DATE_TABLE();
84 a6 := JTF_NUMBER_TABLE();
85 a7 := JTF_VARCHAR2_TABLE_100();
86 a8 := JTF_NUMBER_TABLE();
87 a9 := JTF_DATE_TABLE();
88 a10 := JTF_NUMBER_TABLE();
89 a11 := JTF_DATE_TABLE();
90 a12 := JTF_NUMBER_TABLE();
91 a13 := JTF_NUMBER_TABLE();
92 a14 := JTF_NUMBER_TABLE();
93 a15 := JTF_VARCHAR2_TABLE_100();
94 a16 := JTF_NUMBER_TABLE();
95 a17 := JTF_VARCHAR2_TABLE_100();
96 else
97 a0 := JTF_NUMBER_TABLE();
98 a1 := JTF_NUMBER_TABLE();
99 a2 := JTF_NUMBER_TABLE();
100 a3 := JTF_VARCHAR2_TABLE_300();
101 a4 := JTF_VARCHAR2_TABLE_100();
102 a5 := JTF_DATE_TABLE();
103 a6 := JTF_NUMBER_TABLE();
104 a7 := JTF_VARCHAR2_TABLE_100();
105 a8 := JTF_NUMBER_TABLE();
106 a9 := JTF_DATE_TABLE();
107 a10 := JTF_NUMBER_TABLE();
108 a11 := JTF_DATE_TABLE();
109 a12 := JTF_NUMBER_TABLE();
110 a13 := JTF_NUMBER_TABLE();
111 a14 := JTF_NUMBER_TABLE();
112 a15 := JTF_VARCHAR2_TABLE_100();
113 a16 := JTF_NUMBER_TABLE();
114 a17 := JTF_VARCHAR2_TABLE_100();
115 if t.count > 0 then
116 a0.extend(t.count);
117 a1.extend(t.count);
118 a2.extend(t.count);
119 a3.extend(t.count);
120 a4.extend(t.count);
121 a5.extend(t.count);
122 a6.extend(t.count);
123 a7.extend(t.count);
124 a8.extend(t.count);
125 a9.extend(t.count);
126 a10.extend(t.count);
127 a11.extend(t.count);
128 a12.extend(t.count);
129 a13.extend(t.count);
130 a14.extend(t.count);
131 a15.extend(t.count);
132 a16.extend(t.count);
133 a17.extend(t.count);
134 ddindx := t.first;
135 indx := 1;
136 while true loop
137 a0(indx) := t(ddindx).cond_assignment_id;
138 a1(indx) := t(ddindx).loan_id;
139 a2(indx) := t(ddindx).condition_id;
140 a3(indx) := t(ddindx).condition_description;
141 a4(indx) := t(ddindx).condition_met_flag;
142 a5(indx) := t(ddindx).fulfillment_date;
143 a6(indx) := t(ddindx).fulfillment_updated_by;
144 a7(indx) := t(ddindx).mandatory_flag;
145 a8(indx) := t(ddindx).created_by;
146 a9(indx) := t(ddindx).creation_date;
147 a10(indx) := t(ddindx).last_updated_by;
148 a11(indx) := t(ddindx).last_update_date;
149 a12(indx) := t(ddindx).last_update_login;
150 a13(indx) := t(ddindx).object_version_number;
151 a14(indx) := t(ddindx).disb_header_id;
152 a15(indx) := t(ddindx).delete_disabled_flag;
153 a16(indx) := t(ddindx).owner_object_id;
154 a17(indx) := t(ddindx).owner_table;
155 indx := indx+1;
156 if t.last =ddindx
157 then exit;
158 end if;
159 ddindx := t.next(ddindx);
160 end loop;
161 end if;
162 end if;
163 end rosetta_table_copy_out_p1;
164
165 procedure create_cond_assignment(p_init_msg_list VARCHAR2
166 , p1_a0 NUMBER
167 , p1_a1 NUMBER
168 , p1_a2 NUMBER
169 , p1_a3 VARCHAR2
170 , p1_a4 VARCHAR2
171 , p1_a5 DATE
172 , p1_a6 NUMBER
173 , p1_a7 VARCHAR2
174 , p1_a8 NUMBER
175 , p1_a9 DATE
176 , p1_a10 NUMBER
177 , p1_a11 DATE
178 , p1_a12 NUMBER
179 , p1_a13 NUMBER
180 , p1_a14 NUMBER
181 , p1_a15 VARCHAR2
182 , p1_a16 NUMBER
183 , p1_a17 VARCHAR2
184 , x_cond_assignment_id out nocopy NUMBER
185 , x_return_status out nocopy VARCHAR2
186 , x_msg_count out nocopy NUMBER
187 , x_msg_data out nocopy VARCHAR2
188 )
189
190 as
191 ddp_cond_assignment_rec lns_cond_assignment_pub.cond_assignment_rec_type;
192 ddindx binary_integer; indx binary_integer;
193 begin
194
195 -- copy data to the local IN or IN-OUT args, if any
196
197 ddp_cond_assignment_rec.cond_assignment_id := p1_a0;
198 ddp_cond_assignment_rec.loan_id := p1_a1;
199 ddp_cond_assignment_rec.condition_id := p1_a2;
200 ddp_cond_assignment_rec.condition_description := p1_a3;
201 ddp_cond_assignment_rec.condition_met_flag := p1_a4;
202 ddp_cond_assignment_rec.fulfillment_date := p1_a5;
203 ddp_cond_assignment_rec.fulfillment_updated_by := p1_a6;
204 ddp_cond_assignment_rec.mandatory_flag := p1_a7;
205 ddp_cond_assignment_rec.created_by := p1_a8;
206 ddp_cond_assignment_rec.creation_date := p1_a9;
207 ddp_cond_assignment_rec.last_updated_by := p1_a10;
208 ddp_cond_assignment_rec.last_update_date := p1_a11;
209 ddp_cond_assignment_rec.last_update_login := p1_a12;
210 ddp_cond_assignment_rec.object_version_number := p1_a13;
211 ddp_cond_assignment_rec.disb_header_id := p1_a14;
212 ddp_cond_assignment_rec.delete_disabled_flag := p1_a15;
213 ddp_cond_assignment_rec.owner_object_id := p1_a16;
214 ddp_cond_assignment_rec.owner_table := p1_a17;
215
216
217
218
219
220 -- here's the delegated call to the old PL/SQL routine
221 lns_cond_assignment_pub.create_cond_assignment(p_init_msg_list,
222 ddp_cond_assignment_rec,
223 x_cond_assignment_id,
224 x_return_status,
225 x_msg_count,
226 x_msg_data);
227
228 -- copy data back from the local variables to OUT or IN-OUT args, if any
229
230
231
232
233
234 end;
235
236 procedure update_cond_assignment(p_init_msg_list VARCHAR2
237 , p1_a0 NUMBER
238 , p1_a1 NUMBER
239 , p1_a2 NUMBER
240 , p1_a3 VARCHAR2
241 , p1_a4 VARCHAR2
242 , p1_a5 DATE
243 , p1_a6 NUMBER
244 , p1_a7 VARCHAR2
245 , p1_a8 NUMBER
246 , p1_a9 DATE
247 , p1_a10 NUMBER
248 , p1_a11 DATE
249 , p1_a12 NUMBER
250 , p1_a13 NUMBER
251 , p1_a14 NUMBER
252 , p1_a15 VARCHAR2
253 , p1_a16 NUMBER
254 , p1_a17 VARCHAR2
255 , p_object_version_number in out nocopy NUMBER
256 , x_return_status out nocopy VARCHAR2
257 , x_msg_count out nocopy NUMBER
258 , x_msg_data out nocopy VARCHAR2
259 )
260
261 as
262 ddp_cond_assignment_rec lns_cond_assignment_pub.cond_assignment_rec_type;
263 ddindx binary_integer; indx binary_integer;
264 begin
265
266 -- copy data to the local IN or IN-OUT args, if any
267
268 ddp_cond_assignment_rec.cond_assignment_id := p1_a0;
269 ddp_cond_assignment_rec.loan_id := p1_a1;
270 ddp_cond_assignment_rec.condition_id := p1_a2;
271 ddp_cond_assignment_rec.condition_description := p1_a3;
272 ddp_cond_assignment_rec.condition_met_flag := p1_a4;
273 ddp_cond_assignment_rec.fulfillment_date := p1_a5;
274 ddp_cond_assignment_rec.fulfillment_updated_by := p1_a6;
275 ddp_cond_assignment_rec.mandatory_flag := p1_a7;
276 ddp_cond_assignment_rec.created_by := p1_a8;
277 ddp_cond_assignment_rec.creation_date := p1_a9;
278 ddp_cond_assignment_rec.last_updated_by := p1_a10;
279 ddp_cond_assignment_rec.last_update_date := p1_a11;
280 ddp_cond_assignment_rec.last_update_login := p1_a12;
281 ddp_cond_assignment_rec.object_version_number := p1_a13;
282 ddp_cond_assignment_rec.disb_header_id := p1_a14;
283 ddp_cond_assignment_rec.delete_disabled_flag := p1_a15;
284 ddp_cond_assignment_rec.owner_object_id := p1_a16;
285 ddp_cond_assignment_rec.owner_table := p1_a17;
286
287
288
289
290
291 -- here's the delegated call to the old PL/SQL routine
292 lns_cond_assignment_pub.update_cond_assignment(p_init_msg_list,
293 ddp_cond_assignment_rec,
294 p_object_version_number,
295 x_return_status,
296 x_msg_count,
297 x_msg_data);
298
299 -- copy data back from the local variables to OUT or IN-OUT args, if any
300
301
302
303
304
305 end;
306
307 end lns_cond_assignment_pub_w;