[Home] [Help]
PACKAGE BODY: APPS.CN_PAYMENT_WORKSHEET_PVT_W
Source
1 package body cn_payment_worksheet_pvt_w as
2 /* $Header: cnwwkshb.pls 120.1.12000000.3 2007/05/23 11:30:28 rrshetty ship $ */
3 procedure rosetta_table_copy_in_p4(t out nocopy cn_payment_worksheet_pvt.salesrep_tab_typ, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 ) as
6 ddindx binary_integer; indx binary_integer;
7 begin
8 if a0 is not null and a0.count > 0 then
9 if a0.count > 0 then
10 indx := a0.first;
11 ddindx := 1;
12 while true loop
13 t(ddindx).salesrep_id := a0(indx);
14 t(ddindx).batch_id := a1(indx);
15 ddindx := ddindx+1;
16 if a0.last =indx
17 then exit;
18 end if;
19 indx := a0.next(indx);
20 end loop;
21 end if;
22 end if;
23 end rosetta_table_copy_in_p4;
24 procedure rosetta_table_copy_out_p4(t cn_payment_worksheet_pvt.salesrep_tab_typ, a0 out nocopy JTF_NUMBER_TABLE
25 , a1 out nocopy JTF_NUMBER_TABLE
26 ) as
27 ddindx binary_integer; indx binary_integer;
28 begin
29 if t is null or t.count = 0 then
30 a0 := JTF_NUMBER_TABLE();
31 a1 := JTF_NUMBER_TABLE();
32 else
33 a0 := JTF_NUMBER_TABLE();
34 a1 := JTF_NUMBER_TABLE();
35 if t.count > 0 then
36 a0.extend(t.count);
37 a1.extend(t.count);
38 ddindx := t.first;
39 indx := 1;
40 while true loop
41 a0(indx) := t(ddindx).salesrep_id;
42 a1(indx) := t(ddindx).batch_id;
43 indx := indx+1;
44 if t.last =ddindx
45 then exit;
46 end if;
47 ddindx := t.next(ddindx);
48 end loop;
49 end if;
50 end if;
51 end rosetta_table_copy_out_p4;
52
53 procedure rosetta_table_copy_in_p7(t out nocopy cn_payment_worksheet_pvt.calc_rec_tbl_type, a0 JTF_NUMBER_TABLE
54 , a1 JTF_NUMBER_TABLE
55 , a2 JTF_NUMBER_TABLE
56 , a3 JTF_NUMBER_TABLE
57 , a4 JTF_NUMBER_TABLE
58 , a5 JTF_NUMBER_TABLE
59 , a6 JTF_NUMBER_TABLE
60 ) as
61 ddindx binary_integer; indx binary_integer;
62 begin
63 if a0 is not null and a0.count > 0 then
64 if a0.count > 0 then
65 indx := a0.first;
66 ddindx := 1;
67 while true loop
68 t(ddindx).quota_id := a0(indx);
69 t(ddindx).pmt_amount_calc := a1(indx);
70 t(ddindx).pmt_amount_rec := a2(indx);
71 t(ddindx).pmt_amount_adj_rec := a3(indx);
72 t(ddindx).pmt_amount_adj_nrec := a4(indx);
73 t(ddindx).pmt_amount_ctr := a5(indx);
74 t(ddindx).held_amount := a6(indx);
75 ddindx := ddindx+1;
76 if a0.last =indx
77 then exit;
78 end if;
79 indx := a0.next(indx);
80 end loop;
81 end if;
82 end if;
83 end rosetta_table_copy_in_p7;
84 procedure rosetta_table_copy_out_p7(t cn_payment_worksheet_pvt.calc_rec_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
85 , a1 out nocopy JTF_NUMBER_TABLE
86 , a2 out nocopy JTF_NUMBER_TABLE
87 , a3 out nocopy JTF_NUMBER_TABLE
88 , a4 out nocopy JTF_NUMBER_TABLE
89 , a5 out nocopy JTF_NUMBER_TABLE
90 , a6 out nocopy JTF_NUMBER_TABLE
91 ) as
92 ddindx binary_integer; indx binary_integer;
93 begin
94 if t is null or t.count = 0 then
95 a0 := JTF_NUMBER_TABLE();
96 a1 := JTF_NUMBER_TABLE();
97 a2 := JTF_NUMBER_TABLE();
98 a3 := JTF_NUMBER_TABLE();
99 a4 := JTF_NUMBER_TABLE();
100 a5 := JTF_NUMBER_TABLE();
101 a6 := JTF_NUMBER_TABLE();
102 else
103 a0 := JTF_NUMBER_TABLE();
104 a1 := JTF_NUMBER_TABLE();
105 a2 := JTF_NUMBER_TABLE();
106 a3 := JTF_NUMBER_TABLE();
107 a4 := JTF_NUMBER_TABLE();
108 a5 := JTF_NUMBER_TABLE();
109 a6 := JTF_NUMBER_TABLE();
110 if t.count > 0 then
111 a0.extend(t.count);
112 a1.extend(t.count);
113 a2.extend(t.count);
114 a3.extend(t.count);
115 a4.extend(t.count);
116 a5.extend(t.count);
117 a6.extend(t.count);
118 ddindx := t.first;
119 indx := 1;
120 while true loop
121 a0(indx) := t(ddindx).quota_id;
122 a1(indx) := t(ddindx).pmt_amount_calc;
123 a2(indx) := t(ddindx).pmt_amount_rec;
124 a3(indx) := t(ddindx).pmt_amount_adj_rec;
125 a4(indx) := t(ddindx).pmt_amount_adj_nrec;
126 a5(indx) := t(ddindx).pmt_amount_ctr;
127 a6(indx) := t(ddindx).held_amount;
128 indx := indx+1;
129 if t.last =ddindx
130 then exit;
131 end if;
132 ddindx := t.next(ddindx);
133 end loop;
134 end if;
135 end if;
136 end rosetta_table_copy_out_p7;
137
138 procedure generic_conc_processor(p_payrun_id NUMBER
139 , p1_a0 VARCHAR2
140 , p_org_id NUMBER
141 , p3_a0 JTF_NUMBER_TABLE
142 , p3_a1 JTF_NUMBER_TABLE
143 , x_errbuf out nocopy VARCHAR2
144 , x_retcode out nocopy NUMBER
145 )
146
147 as
148 ddp_params cn_payment_worksheet_pvt.conc_params;
149 ddp_salesrep_tbl cn_payment_worksheet_pvt.salesrep_tab_typ;
150 ddindx binary_integer; indx binary_integer;
151 begin
152
153 -- copy data to the local IN or IN-OUT args, if any
154
155 ddp_params.conc_program_name := p1_a0;
156
157
158 cn_payment_worksheet_pvt_w.rosetta_table_copy_in_p4(ddp_salesrep_tbl, p3_a0
159 , p3_a1
160 );
161
162
163
164 -- here's the delegated call to the old PL/SQL routine
165 cn_payment_worksheet_pvt.generic_conc_processor(p_payrun_id,
166 ddp_params,
167 p_org_id,
168 ddp_salesrep_tbl,
169 x_errbuf,
170 x_retcode);
171
172 -- copy data back from the local variables to OUT or IN-OUT args, if any
173
174
175
176
177
178 end;
179
180 procedure create_worksheet(p_api_version NUMBER
181 , p_init_msg_list VARCHAR2
182 , p_commit VARCHAR2
183 , p_validation_level NUMBER
184 , x_return_status out nocopy VARCHAR2
185 , x_msg_count out nocopy NUMBER
186 , x_msg_data out nocopy VARCHAR2
187 , p7_a0 NUMBER
188 , p7_a1 NUMBER
189 , p7_a2 VARCHAR2
190 , p7_a3 NUMBER
191 , p7_a4 NUMBER
192 , x_loading_status out nocopy VARCHAR2
193 , x_status out nocopy VARCHAR2
194 )
195
196 as
197 ddp_worksheet_rec cn_payment_worksheet_pvt.worksheet_rec_type;
198 ddindx binary_integer; indx binary_integer;
199 begin
200
201 -- copy data to the local IN or IN-OUT args, if any
202
203
204
205
206
207
208
209 ddp_worksheet_rec.payrun_id := p7_a0;
210 ddp_worksheet_rec.salesrep_id := p7_a1;
211 ddp_worksheet_rec.call_from := p7_a2;
212 ddp_worksheet_rec.worksheet_id := p7_a3;
213 ddp_worksheet_rec.org_id := p7_a4;
214
215
216
217 -- here's the delegated call to the old PL/SQL routine
218 cn_payment_worksheet_pvt.create_worksheet(p_api_version,
219 p_init_msg_list,
220 p_commit,
221 p_validation_level,
222 x_return_status,
223 x_msg_count,
224 x_msg_data,
225 ddp_worksheet_rec,
226 x_loading_status,
227 x_status);
228
229 -- copy data back from the local variables to OUT or IN-OUT args, if any
230
231
232
233
234
235
236
237
238
239 end;
240
241 end cn_payment_worksheet_pvt_w;