[Home] [Help]
PACKAGE BODY: APPS.OKL_LEASE_QUOTE_INS_PVT_W
Source
1 package body okl_lease_quote_ins_pvt_w as
2 /* $Header: OKLEQUIB.pls 120.0.12010000.2 2008/11/18 10:20:32 kkorrapo ship $ */
3 procedure create_insurance_estimate(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , p_transaction_control VARCHAR2
6 , p3_a0 NUMBER
7 , p3_a1 NUMBER
8 , p3_a2 VARCHAR2
9 , p3_a3 NUMBER
10 , p3_a4 BINARY_INTEGER
11 , p3_a5 NUMBER
12 , p3_a6 VARCHAR2
13 , p3_a7 NUMBER
14 , p3_a8 NUMBER
15 , p3_a9 NUMBER
16 , p3_a10 NUMBER
17 , p3_a11 NUMBER
18 , p3_a12 NUMBER
19 , p3_a13 VARCHAR2
20 , p3_a14 VARCHAR2
21 , p3_a15 VARCHAR2
22 , p3_a16 VARCHAR2
23 , p3_a17 VARCHAR2
24 , p3_a18 VARCHAR2
25 , p3_a19 VARCHAR2
26 , p3_a20 VARCHAR2
27 , p3_a21 VARCHAR2
28 , p3_a22 VARCHAR2
29 , p3_a23 VARCHAR2
30 , p3_a24 VARCHAR2
31 , p3_a25 VARCHAR2
32 , p3_a26 VARCHAR2
33 , p3_a27 VARCHAR2
34 , p3_a28 VARCHAR2
35 , p3_a29 VARCHAR2
36 , x_insurance_estimate_id out nocopy NUMBER
37 , x_return_status out nocopy VARCHAR2
38 , x_msg_count out nocopy NUMBER
39 , x_msg_data out nocopy VARCHAR2
40 )
41
42 as
43 ddp_insurance_estimate_rec okl_lease_quote_ins_pvt.ins_est_rec_type;
44 ddindx binary_integer; indx binary_integer;
45 begin
46
47 -- copy data to the local IN or IN-OUT args, if any
48
49
50
51 ddp_insurance_estimate_rec.id := p3_a0;
52 ddp_insurance_estimate_rec.ovn := p3_a1;
53 ddp_insurance_estimate_rec.quote_type_code := p3_a2;
54 ddp_insurance_estimate_rec.lease_quote_id := p3_a3;
55 ddp_insurance_estimate_rec.policy_term := p3_a4;
56 ddp_insurance_estimate_rec.stream_type_id := p3_a5;
57 ddp_insurance_estimate_rec.payment_frequency := p3_a6;
58 ddp_insurance_estimate_rec.periodic_amount := p3_a7;
59 ddp_insurance_estimate_rec.cashflow_object_id := p3_a8;
60 ddp_insurance_estimate_rec.cashflow_header_id := p3_a9;
61 ddp_insurance_estimate_rec.cashflow_header_ovn := p3_a10;
62 ddp_insurance_estimate_rec.cashflow_level_id := p3_a11;
63 ddp_insurance_estimate_rec.cashflow_level_ovn := p3_a12;
64 ddp_insurance_estimate_rec.description := p3_a13;
65 ddp_insurance_estimate_rec.attribute_category := p3_a14;
66 ddp_insurance_estimate_rec.attribute1 := p3_a15;
67 ddp_insurance_estimate_rec.attribute2 := p3_a16;
68 ddp_insurance_estimate_rec.attribute3 := p3_a17;
69 ddp_insurance_estimate_rec.attribute4 := p3_a18;
70 ddp_insurance_estimate_rec.attribute5 := p3_a19;
71 ddp_insurance_estimate_rec.attribute6 := p3_a20;
72 ddp_insurance_estimate_rec.attribute7 := p3_a21;
73 ddp_insurance_estimate_rec.attribute8 := p3_a22;
74 ddp_insurance_estimate_rec.attribute9 := p3_a23;
75 ddp_insurance_estimate_rec.attribute10 := p3_a24;
76 ddp_insurance_estimate_rec.attribute11 := p3_a25;
77 ddp_insurance_estimate_rec.attribute12 := p3_a26;
78 ddp_insurance_estimate_rec.attribute13 := p3_a27;
79 ddp_insurance_estimate_rec.attribute14 := p3_a28;
80 ddp_insurance_estimate_rec.attribute15 := p3_a29;
81
82
83
84
85
86 -- here's the delegated call to the old PL/SQL routine
87 okl_lease_quote_ins_pvt.create_insurance_estimate(p_api_version,
88 p_init_msg_list,
89 p_transaction_control,
90 ddp_insurance_estimate_rec,
91 x_insurance_estimate_id,
92 x_return_status,
93 x_msg_count,
94 x_msg_data);
95
96 -- copy data back from the local variables to OUT or IN-OUT args, if any
97
98
99
100
101
102
103
104 end;
105
106 procedure update_insurance_estimate(p_api_version NUMBER
107 , p_init_msg_list VARCHAR2
108 , p_transaction_control VARCHAR2
109 , p3_a0 NUMBER
110 , p3_a1 NUMBER
111 , p3_a2 VARCHAR2
112 , p3_a3 NUMBER
113 , p3_a4 BINARY_INTEGER
114 , p3_a5 NUMBER
115 , p3_a6 VARCHAR2
116 , p3_a7 NUMBER
117 , p3_a8 NUMBER
118 , p3_a9 NUMBER
119 , p3_a10 NUMBER
120 , p3_a11 NUMBER
121 , p3_a12 NUMBER
122 , p3_a13 VARCHAR2
123 , p3_a14 VARCHAR2
124 , p3_a15 VARCHAR2
125 , p3_a16 VARCHAR2
126 , p3_a17 VARCHAR2
127 , p3_a18 VARCHAR2
128 , p3_a19 VARCHAR2
129 , p3_a20 VARCHAR2
130 , p3_a21 VARCHAR2
131 , p3_a22 VARCHAR2
132 , p3_a23 VARCHAR2
133 , p3_a24 VARCHAR2
134 , p3_a25 VARCHAR2
135 , p3_a26 VARCHAR2
136 , p3_a27 VARCHAR2
137 , p3_a28 VARCHAR2
138 , p3_a29 VARCHAR2
139 , x_return_status out nocopy VARCHAR2
140 , x_msg_count out nocopy NUMBER
141 , x_msg_data out nocopy VARCHAR2
142 )
143
144 as
145 ddp_insurance_estimate_rec okl_lease_quote_ins_pvt.ins_est_rec_type;
146 ddindx binary_integer; indx binary_integer;
147 begin
148
149 -- copy data to the local IN or IN-OUT args, if any
150
151
152
153 ddp_insurance_estimate_rec.id := p3_a0;
154 ddp_insurance_estimate_rec.ovn := p3_a1;
155 ddp_insurance_estimate_rec.quote_type_code := p3_a2;
156 ddp_insurance_estimate_rec.lease_quote_id := p3_a3;
157 ddp_insurance_estimate_rec.policy_term := p3_a4;
158 ddp_insurance_estimate_rec.stream_type_id := p3_a5;
159 ddp_insurance_estimate_rec.payment_frequency := p3_a6;
160 ddp_insurance_estimate_rec.periodic_amount := p3_a7;
161 ddp_insurance_estimate_rec.cashflow_object_id := p3_a8;
162 ddp_insurance_estimate_rec.cashflow_header_id := p3_a9;
163 ddp_insurance_estimate_rec.cashflow_header_ovn := p3_a10;
164 ddp_insurance_estimate_rec.cashflow_level_id := p3_a11;
165 ddp_insurance_estimate_rec.cashflow_level_ovn := p3_a12;
166 ddp_insurance_estimate_rec.description := p3_a13;
167 ddp_insurance_estimate_rec.attribute_category := p3_a14;
168 ddp_insurance_estimate_rec.attribute1 := p3_a15;
169 ddp_insurance_estimate_rec.attribute2 := p3_a16;
170 ddp_insurance_estimate_rec.attribute3 := p3_a17;
171 ddp_insurance_estimate_rec.attribute4 := p3_a18;
172 ddp_insurance_estimate_rec.attribute5 := p3_a19;
173 ddp_insurance_estimate_rec.attribute6 := p3_a20;
174 ddp_insurance_estimate_rec.attribute7 := p3_a21;
175 ddp_insurance_estimate_rec.attribute8 := p3_a22;
176 ddp_insurance_estimate_rec.attribute9 := p3_a23;
177 ddp_insurance_estimate_rec.attribute10 := p3_a24;
178 ddp_insurance_estimate_rec.attribute11 := p3_a25;
179 ddp_insurance_estimate_rec.attribute12 := p3_a26;
180 ddp_insurance_estimate_rec.attribute13 := p3_a27;
181 ddp_insurance_estimate_rec.attribute14 := p3_a28;
182 ddp_insurance_estimate_rec.attribute15 := p3_a29;
183
184
185
186
187 -- here's the delegated call to the old PL/SQL routine
188 okl_lease_quote_ins_pvt.update_insurance_estimate(p_api_version,
189 p_init_msg_list,
190 p_transaction_control,
191 ddp_insurance_estimate_rec,
192 x_return_status,
193 x_msg_count,
194 x_msg_data);
195
196 -- copy data back from the local variables to OUT or IN-OUT args, if any
197
198
199
200
201
202
203 end;
204
205 end okl_lease_quote_ins_pvt_w;