[Home] [Help]
PACKAGE BODY: APPS.OKL_CONTRACT_REBOOK_PVT_W
Source
1 package body okl_contract_rebook_pvt_w as
2 /* $Header: OKLERBKB.pls 120.2 2005/12/06 23:42:46 rpillay noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure create_txn_contract(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p_from_chr_id NUMBER
28 , p_rebook_reason_code VARCHAR2
29 , p_rebook_description VARCHAR2
30 , p_trx_date date
31 , p9_a0 out nocopy NUMBER
32 , p9_a1 out nocopy NUMBER
33 , p9_a2 out nocopy VARCHAR2
34 , p9_a3 out nocopy VARCHAR2
35 , p9_a4 out nocopy VARCHAR2
36 , p9_a5 out nocopy VARCHAR2
37 , p9_a6 out nocopy NUMBER
38 , p9_a7 out nocopy NUMBER
39 , p9_a8 out nocopy NUMBER
40 , p9_a9 out nocopy NUMBER
41 , p9_a10 out nocopy NUMBER
42 , p9_a11 out nocopy NUMBER
43 , p9_a12 out nocopy VARCHAR2
44 , p9_a13 out nocopy VARCHAR2
45 , p9_a14 out nocopy DATE
46 , p9_a15 out nocopy VARCHAR2
47 , p9_a16 out nocopy VARCHAR2
48 , p9_a17 out nocopy NUMBER
49 , p9_a18 out nocopy VARCHAR2
50 , p9_a19 out nocopy VARCHAR2
51 , p9_a20 out nocopy VARCHAR2
52 , p9_a21 out nocopy VARCHAR2
53 , p9_a22 out nocopy VARCHAR2
54 , p9_a23 out nocopy VARCHAR2
55 , p9_a24 out nocopy VARCHAR2
56 , p9_a25 out nocopy VARCHAR2
57 , p9_a26 out nocopy VARCHAR2
58 , p9_a27 out nocopy VARCHAR2
59 , p9_a28 out nocopy VARCHAR2
60 , p9_a29 out nocopy VARCHAR2
61 , p9_a30 out nocopy VARCHAR2
62 , p9_a31 out nocopy VARCHAR2
63 , p9_a32 out nocopy VARCHAR2
64 , p9_a33 out nocopy VARCHAR2
65 , p9_a34 out nocopy VARCHAR2
66 , p9_a35 out nocopy VARCHAR2
67 , p9_a36 out nocopy VARCHAR2
68 , p9_a37 out nocopy NUMBER
69 , p9_a38 out nocopy VARCHAR2
70 , p9_a39 out nocopy NUMBER
71 , p9_a40 out nocopy VARCHAR2
72 , p9_a41 out nocopy VARCHAR2
73 , p9_a42 out nocopy NUMBER
74 , p9_a43 out nocopy NUMBER
75 , p9_a44 out nocopy NUMBER
76 , p9_a45 out nocopy NUMBER
77 , p9_a46 out nocopy NUMBER
78 , p9_a47 out nocopy NUMBER
79 , p9_a48 out nocopy DATE
80 , p9_a49 out nocopy NUMBER
81 , p9_a50 out nocopy DATE
82 , p9_a51 out nocopy NUMBER
83 , p9_a52 out nocopy DATE
84 , p9_a53 out nocopy NUMBER
85 , p9_a54 out nocopy NUMBER
86 , p9_a55 out nocopy VARCHAR2
87 , p9_a56 out nocopy NUMBER
88 , p9_a57 out nocopy VARCHAR2
89 , p9_a58 out nocopy DATE
90 , p9_a59 out nocopy VARCHAR2
91 , p9_a60 out nocopy VARCHAR2
92 , p9_a61 out nocopy VARCHAR2
93 , p9_a62 out nocopy VARCHAR2
94 , p9_a63 out nocopy VARCHAR2
95 , p9_a64 out nocopy VARCHAR2
96 , p9_a65 out nocopy VARCHAR2
97 , p9_a66 out nocopy VARCHAR2
98 , p9_a67 out nocopy VARCHAR2
99 , p9_a68 out nocopy VARCHAR2
100 , p9_a69 out nocopy VARCHAR2
101 , p9_a70 out nocopy VARCHAR2
102 , x_rebook_chr_id out nocopy NUMBER
103 )
104
105 as
106 ddp_trx_date date;
107 ddx_tcnv_rec okl_contract_rebook_pvt.tcnv_rec_type;
108 ddindx binary_integer; indx binary_integer;
109 begin
110
111 -- copy data to the local IN or IN-OUT args, if any
112
113
114
115
116
117
118
119
120 ddp_trx_date := rosetta_g_miss_date_in_map(p_trx_date);
121
122
123
124 -- here's the delegated call to the old PL/SQL routine
125 okl_contract_rebook_pvt.create_txn_contract(p_api_version,
126 p_init_msg_list,
127 x_return_status,
128 x_msg_count,
129 x_msg_data,
130 p_from_chr_id,
131 p_rebook_reason_code,
132 p_rebook_description,
133 ddp_trx_date,
134 ddx_tcnv_rec,
135 x_rebook_chr_id);
136
137 -- copy data back from the local variables to OUT or IN-OUT args, if any
138
139
140
141
142
143
144
145
146
147 p9_a0 := rosetta_g_miss_num_map(ddx_tcnv_rec.id);
148 p9_a1 := rosetta_g_miss_num_map(ddx_tcnv_rec.object_version_number);
149 p9_a2 := ddx_tcnv_rec.rbr_code;
150 p9_a3 := ddx_tcnv_rec.rpy_code;
151 p9_a4 := ddx_tcnv_rec.rvn_code;
152 p9_a5 := ddx_tcnv_rec.trn_code;
153 p9_a6 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id_new);
154 p9_a7 := rosetta_g_miss_num_map(ddx_tcnv_rec.pvn_id);
155 p9_a8 := rosetta_g_miss_num_map(ddx_tcnv_rec.pdt_id);
156 p9_a9 := rosetta_g_miss_num_map(ddx_tcnv_rec.qte_id);
157 p9_a10 := rosetta_g_miss_num_map(ddx_tcnv_rec.aes_id);
158 p9_a11 := rosetta_g_miss_num_map(ddx_tcnv_rec.code_combination_id);
159 p9_a12 := ddx_tcnv_rec.tax_deductible_local;
160 p9_a13 := ddx_tcnv_rec.tax_deductible_corporate;
161 p9_a14 := ddx_tcnv_rec.date_accrual;
162 p9_a15 := ddx_tcnv_rec.accrual_status_yn;
163 p9_a16 := ddx_tcnv_rec.update_status_yn;
164 p9_a17 := rosetta_g_miss_num_map(ddx_tcnv_rec.amount);
165 p9_a18 := ddx_tcnv_rec.currency_code;
166 p9_a19 := ddx_tcnv_rec.attribute_category;
167 p9_a20 := ddx_tcnv_rec.attribute1;
168 p9_a21 := ddx_tcnv_rec.attribute2;
169 p9_a22 := ddx_tcnv_rec.attribute3;
170 p9_a23 := ddx_tcnv_rec.attribute4;
171 p9_a24 := ddx_tcnv_rec.attribute5;
172 p9_a25 := ddx_tcnv_rec.attribute6;
173 p9_a26 := ddx_tcnv_rec.attribute7;
174 p9_a27 := ddx_tcnv_rec.attribute8;
175 p9_a28 := ddx_tcnv_rec.attribute9;
176 p9_a29 := ddx_tcnv_rec.attribute10;
177 p9_a30 := ddx_tcnv_rec.attribute11;
178 p9_a31 := ddx_tcnv_rec.attribute12;
179 p9_a32 := ddx_tcnv_rec.attribute13;
180 p9_a33 := ddx_tcnv_rec.attribute14;
181 p9_a34 := ddx_tcnv_rec.attribute15;
182 p9_a35 := ddx_tcnv_rec.tcn_type;
183 p9_a36 := ddx_tcnv_rec.rjn_code;
184 p9_a37 := rosetta_g_miss_num_map(ddx_tcnv_rec.party_rel_id1_old);
185 p9_a38 := ddx_tcnv_rec.party_rel_id2_old;
186 p9_a39 := rosetta_g_miss_num_map(ddx_tcnv_rec.party_rel_id1_new);
187 p9_a40 := ddx_tcnv_rec.party_rel_id2_new;
188 p9_a41 := ddx_tcnv_rec.complete_transfer_yn;
189 p9_a42 := rosetta_g_miss_num_map(ddx_tcnv_rec.org_id);
190 p9_a43 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id);
191 p9_a44 := rosetta_g_miss_num_map(ddx_tcnv_rec.request_id);
192 p9_a45 := rosetta_g_miss_num_map(ddx_tcnv_rec.program_application_id);
193 p9_a46 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id_old);
194 p9_a47 := rosetta_g_miss_num_map(ddx_tcnv_rec.program_id);
195 p9_a48 := ddx_tcnv_rec.program_update_date;
196 p9_a49 := rosetta_g_miss_num_map(ddx_tcnv_rec.created_by);
197 p9_a50 := ddx_tcnv_rec.creation_date;
198 p9_a51 := rosetta_g_miss_num_map(ddx_tcnv_rec.last_updated_by);
199 p9_a52 := ddx_tcnv_rec.last_update_date;
200 p9_a53 := rosetta_g_miss_num_map(ddx_tcnv_rec.last_update_login);
201 p9_a54 := rosetta_g_miss_num_map(ddx_tcnv_rec.try_id);
202 p9_a55 := ddx_tcnv_rec.tsu_code;
203 p9_a56 := rosetta_g_miss_num_map(ddx_tcnv_rec.set_of_books_id);
204 p9_a57 := ddx_tcnv_rec.description;
205 p9_a58 := ddx_tcnv_rec.date_transaction_occurred;
206 p9_a59 := ddx_tcnv_rec.trx_number;
207 p9_a60 := ddx_tcnv_rec.tmt_evergreen_yn;
208 p9_a61 := ddx_tcnv_rec.tmt_close_balances_yn;
209 p9_a62 := ddx_tcnv_rec.tmt_accounting_entries_yn;
210 p9_a63 := ddx_tcnv_rec.tmt_cancel_insurance_yn;
211 p9_a64 := ddx_tcnv_rec.tmt_asset_disposition_yn;
212 p9_a65 := ddx_tcnv_rec.tmt_amortization_yn;
213 p9_a66 := ddx_tcnv_rec.tmt_asset_return_yn;
214 p9_a67 := ddx_tcnv_rec.tmt_contract_updated_yn;
215 p9_a68 := ddx_tcnv_rec.tmt_recycle_yn;
216 p9_a69 := ddx_tcnv_rec.tmt_validated_yn;
217 p9_a70 := ddx_tcnv_rec.tmt_streams_updated_yn;
218
219 end;
220
221 end okl_contract_rebook_pvt_w;