eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.OKL_RELEASE_PVT_W

Source


1 package body okl_release_pvt_w as
2   /* $Header: OKLEREKB.pls 120.4 2005/10/30 04:06:43 appldev 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   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7   function rosetta_g_miss_date_in_map(d date) return date as
8   begin
9     if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10     return d;
11   end;
12 
13   function rosetta_g_miss_num_map(n number) return number as
14     a number := fnd_api.g_miss_num;
15     b number := 0-1962.0724;
16   begin
17     if n=a then return b; end if;
18     if n=b then return a; end if;
19     return n;
20   end;
21 
22   procedure create_release_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_chr_id  NUMBER
28     , p_release_reason_code  VARCHAR2
29     , p_release_description  VARCHAR2
30     , p_trx_date  date
31     , p_source_trx_id  NUMBER
32     , p_source_trx_type  VARCHAR2
33     , p11_a0 out nocopy  NUMBER
34     , p11_a1 out nocopy  NUMBER
35     , p11_a2 out nocopy  VARCHAR2
36     , p11_a3 out nocopy  VARCHAR2
37     , p11_a4 out nocopy  VARCHAR2
38     , p11_a5 out nocopy  VARCHAR2
39     , p11_a6 out nocopy  NUMBER
40     , p11_a7 out nocopy  NUMBER
41     , p11_a8 out nocopy  NUMBER
42     , p11_a9 out nocopy  NUMBER
43     , p11_a10 out nocopy  NUMBER
44     , p11_a11 out nocopy  NUMBER
45     , p11_a12 out nocopy  VARCHAR2
46     , p11_a13 out nocopy  VARCHAR2
47     , p11_a14 out nocopy  DATE
48     , p11_a15 out nocopy  VARCHAR2
49     , p11_a16 out nocopy  VARCHAR2
50     , p11_a17 out nocopy  NUMBER
51     , p11_a18 out nocopy  VARCHAR2
52     , p11_a19 out nocopy  VARCHAR2
53     , p11_a20 out nocopy  VARCHAR2
54     , p11_a21 out nocopy  VARCHAR2
55     , p11_a22 out nocopy  VARCHAR2
56     , p11_a23 out nocopy  VARCHAR2
57     , p11_a24 out nocopy  VARCHAR2
58     , p11_a25 out nocopy  VARCHAR2
59     , p11_a26 out nocopy  VARCHAR2
60     , p11_a27 out nocopy  VARCHAR2
61     , p11_a28 out nocopy  VARCHAR2
62     , p11_a29 out nocopy  VARCHAR2
63     , p11_a30 out nocopy  VARCHAR2
64     , p11_a31 out nocopy  VARCHAR2
65     , p11_a32 out nocopy  VARCHAR2
66     , p11_a33 out nocopy  VARCHAR2
67     , p11_a34 out nocopy  VARCHAR2
68     , p11_a35 out nocopy  VARCHAR2
69     , p11_a36 out nocopy  VARCHAR2
70     , p11_a37 out nocopy  NUMBER
71     , p11_a38 out nocopy  VARCHAR2
72     , p11_a39 out nocopy  NUMBER
73     , p11_a40 out nocopy  VARCHAR2
74     , p11_a41 out nocopy  VARCHAR2
75     , p11_a42 out nocopy  NUMBER
76     , p11_a43 out nocopy  NUMBER
77     , p11_a44 out nocopy  NUMBER
78     , p11_a45 out nocopy  NUMBER
79     , p11_a46 out nocopy  NUMBER
80     , p11_a47 out nocopy  NUMBER
81     , p11_a48 out nocopy  DATE
82     , p11_a49 out nocopy  NUMBER
83     , p11_a50 out nocopy  DATE
84     , p11_a51 out nocopy  NUMBER
85     , p11_a52 out nocopy  DATE
86     , p11_a53 out nocopy  NUMBER
87     , p11_a54 out nocopy  NUMBER
88     , p11_a55 out nocopy  VARCHAR2
89     , p11_a56 out nocopy  NUMBER
90     , p11_a57 out nocopy  VARCHAR2
91     , p11_a58 out nocopy  DATE
92     , p11_a59 out nocopy  VARCHAR2
93     , p11_a60 out nocopy  VARCHAR2
94     , p11_a61 out nocopy  VARCHAR2
95     , p11_a62 out nocopy  VARCHAR2
96     , p11_a63 out nocopy  VARCHAR2
97     , p11_a64 out nocopy  VARCHAR2
98     , p11_a65 out nocopy  VARCHAR2
99     , p11_a66 out nocopy  VARCHAR2
100     , p11_a67 out nocopy  VARCHAR2
101     , p11_a68 out nocopy  VARCHAR2
102     , p11_a69 out nocopy  VARCHAR2
103     , p11_a70 out nocopy  VARCHAR2
104     , p11_a71 out nocopy  VARCHAR2
105     , p11_a72 out nocopy  VARCHAR2
106     , p11_a73 out nocopy  VARCHAR2
107     , p11_a74 out nocopy  VARCHAR2
108     , p11_a75 out nocopy  VARCHAR2
109     , p11_a76 out nocopy  VARCHAR2
110     , p11_a77 out nocopy  NUMBER
111     , p11_a78 out nocopy  DATE
112     , p11_a79 out nocopy  NUMBER
113     , p11_a80 out nocopy  NUMBER
114     , p11_a81 out nocopy  VARCHAR2
115     , x_release_chr_id out nocopy  NUMBER
116   )
117 
118   as
119     ddp_trx_date date;
120     ddx_tcnv_rec okl_release_pvt.tcnv_rec_type;
121     ddindx binary_integer; indx binary_integer;
122   begin
123 
124     -- copy data to the local IN or IN-OUT args, if any
125 
126 
127 
128 
129 
130 
131 
132 
133     ddp_trx_date := rosetta_g_miss_date_in_map(p_trx_date);
134 
135 
136 
137 
138 
139     -- here's the delegated call to the old PL/SQL routine
140     okl_release_pvt.create_release_contract(p_api_version,
141       p_init_msg_list,
142       x_return_status,
143       x_msg_count,
144       x_msg_data,
145       p_chr_id,
146       p_release_reason_code,
147       p_release_description,
148       ddp_trx_date,
149       p_source_trx_id,
150       p_source_trx_type,
151       ddx_tcnv_rec,
152       x_release_chr_id);
153 
154     -- copy data back from the local variables to OUT or IN-OUT args, if any
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166     p11_a0 := rosetta_g_miss_num_map(ddx_tcnv_rec.id);
167     p11_a1 := rosetta_g_miss_num_map(ddx_tcnv_rec.object_version_number);
168     p11_a2 := ddx_tcnv_rec.rbr_code;
169     p11_a3 := ddx_tcnv_rec.rpy_code;
170     p11_a4 := ddx_tcnv_rec.rvn_code;
171     p11_a5 := ddx_tcnv_rec.trn_code;
172     p11_a6 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id_new);
173     p11_a7 := rosetta_g_miss_num_map(ddx_tcnv_rec.pvn_id);
174     p11_a8 := rosetta_g_miss_num_map(ddx_tcnv_rec.pdt_id);
175     p11_a9 := rosetta_g_miss_num_map(ddx_tcnv_rec.qte_id);
176     p11_a10 := rosetta_g_miss_num_map(ddx_tcnv_rec.aes_id);
177     p11_a11 := rosetta_g_miss_num_map(ddx_tcnv_rec.code_combination_id);
178     p11_a12 := ddx_tcnv_rec.tax_deductible_local;
179     p11_a13 := ddx_tcnv_rec.tax_deductible_corporate;
180     p11_a14 := ddx_tcnv_rec.date_accrual;
181     p11_a15 := ddx_tcnv_rec.accrual_status_yn;
182     p11_a16 := ddx_tcnv_rec.update_status_yn;
183     p11_a17 := rosetta_g_miss_num_map(ddx_tcnv_rec.amount);
184     p11_a18 := ddx_tcnv_rec.currency_code;
185     p11_a19 := ddx_tcnv_rec.attribute_category;
186     p11_a20 := ddx_tcnv_rec.attribute1;
187     p11_a21 := ddx_tcnv_rec.attribute2;
188     p11_a22 := ddx_tcnv_rec.attribute3;
189     p11_a23 := ddx_tcnv_rec.attribute4;
190     p11_a24 := ddx_tcnv_rec.attribute5;
191     p11_a25 := ddx_tcnv_rec.attribute6;
192     p11_a26 := ddx_tcnv_rec.attribute7;
193     p11_a27 := ddx_tcnv_rec.attribute8;
194     p11_a28 := ddx_tcnv_rec.attribute9;
195     p11_a29 := ddx_tcnv_rec.attribute10;
196     p11_a30 := ddx_tcnv_rec.attribute11;
197     p11_a31 := ddx_tcnv_rec.attribute12;
198     p11_a32 := ddx_tcnv_rec.attribute13;
199     p11_a33 := ddx_tcnv_rec.attribute14;
200     p11_a34 := ddx_tcnv_rec.attribute15;
201     p11_a35 := ddx_tcnv_rec.tcn_type;
202     p11_a36 := ddx_tcnv_rec.rjn_code;
203     p11_a37 := rosetta_g_miss_num_map(ddx_tcnv_rec.party_rel_id1_old);
204     p11_a38 := ddx_tcnv_rec.party_rel_id2_old;
205     p11_a39 := rosetta_g_miss_num_map(ddx_tcnv_rec.party_rel_id1_new);
206     p11_a40 := ddx_tcnv_rec.party_rel_id2_new;
207     p11_a41 := ddx_tcnv_rec.complete_transfer_yn;
208     p11_a42 := rosetta_g_miss_num_map(ddx_tcnv_rec.org_id);
209     p11_a43 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id);
210     p11_a44 := rosetta_g_miss_num_map(ddx_tcnv_rec.request_id);
211     p11_a45 := rosetta_g_miss_num_map(ddx_tcnv_rec.program_application_id);
212     p11_a46 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id_old);
213     p11_a47 := rosetta_g_miss_num_map(ddx_tcnv_rec.program_id);
214     p11_a48 := ddx_tcnv_rec.program_update_date;
215     p11_a49 := rosetta_g_miss_num_map(ddx_tcnv_rec.created_by);
216     p11_a50 := ddx_tcnv_rec.creation_date;
217     p11_a51 := rosetta_g_miss_num_map(ddx_tcnv_rec.last_updated_by);
218     p11_a52 := ddx_tcnv_rec.last_update_date;
219     p11_a53 := rosetta_g_miss_num_map(ddx_tcnv_rec.last_update_login);
220     p11_a54 := rosetta_g_miss_num_map(ddx_tcnv_rec.try_id);
221     p11_a55 := ddx_tcnv_rec.tsu_code;
222     p11_a56 := rosetta_g_miss_num_map(ddx_tcnv_rec.set_of_books_id);
223     p11_a57 := ddx_tcnv_rec.description;
224     p11_a58 := ddx_tcnv_rec.date_transaction_occurred;
225     p11_a59 := ddx_tcnv_rec.trx_number;
226     p11_a60 := ddx_tcnv_rec.tmt_evergreen_yn;
227     p11_a61 := ddx_tcnv_rec.tmt_close_balances_yn;
228     p11_a62 := ddx_tcnv_rec.tmt_accounting_entries_yn;
229     p11_a63 := ddx_tcnv_rec.tmt_cancel_insurance_yn;
230     p11_a64 := ddx_tcnv_rec.tmt_asset_disposition_yn;
231     p11_a65 := ddx_tcnv_rec.tmt_amortization_yn;
232     p11_a66 := ddx_tcnv_rec.tmt_asset_return_yn;
233     p11_a67 := ddx_tcnv_rec.tmt_contract_updated_yn;
234     p11_a68 := ddx_tcnv_rec.tmt_recycle_yn;
235     p11_a69 := ddx_tcnv_rec.tmt_validated_yn;
236     p11_a70 := ddx_tcnv_rec.tmt_streams_updated_yn;
237     p11_a71 := ddx_tcnv_rec.accrual_activity;
238     p11_a72 := ddx_tcnv_rec.tmt_split_asset_yn;
239     p11_a73 := ddx_tcnv_rec.tmt_generic_flag1_yn;
240     p11_a74 := ddx_tcnv_rec.tmt_generic_flag2_yn;
241     p11_a75 := ddx_tcnv_rec.tmt_generic_flag3_yn;
242     p11_a76 := ddx_tcnv_rec.currency_conversion_type;
243     p11_a77 := rosetta_g_miss_num_map(ddx_tcnv_rec.currency_conversion_rate);
244     p11_a78 := ddx_tcnv_rec.currency_conversion_date;
245     p11_a79 := rosetta_g_miss_num_map(ddx_tcnv_rec.chr_id);
246     p11_a80 := rosetta_g_miss_num_map(ddx_tcnv_rec.source_trx_id);
247     p11_a81 := ddx_tcnv_rec.source_trx_type;
248 
249   end;
250 
251 end okl_release_pvt_w;