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_VERSION_PUB_W

Source


1 package body okl_version_pub_w as
2   /* $Header: OKLUVERB.pls 120.1 2005/07/22 10:20:50 dkagrawa 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 version_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     , p6_a0 out nocopy  NUMBER
28     , p6_a1 out nocopy  NUMBER
29     , p6_a2 out nocopy  NUMBER
30     , p6_a3 out nocopy  NUMBER
31     , p6_a4 out nocopy  NUMBER
32     , p6_a5 out nocopy  DATE
33     , p6_a6 out nocopy  NUMBER
34     , p6_a7 out nocopy  DATE
35     , p6_a8 out nocopy  NUMBER
36     , p_commit  VARCHAR2
37     , p5_a0  NUMBER := 0-1962.0724
38     , p5_a1  NUMBER := 0-1962.0724
39     , p5_a2  NUMBER := 0-1962.0724
40     , p5_a3  NUMBER := 0-1962.0724
41     , p5_a4  NUMBER := 0-1962.0724
42     , p5_a5  DATE := fnd_api.g_miss_date
43     , p5_a6  NUMBER := 0-1962.0724
44     , p5_a7  DATE := fnd_api.g_miss_date
45     , p5_a8  NUMBER := 0-1962.0724
46   )
47 
48   as
49     ddp_cvmv_rec okl_version_pub.cvmv_rec_type;
50     ddx_cvmv_rec okl_version_pub.cvmv_rec_type;
51     ddindx binary_integer; indx binary_integer;
52   begin
53 
54     -- copy data to the local IN or IN-OUT args, if any
55 
56 
57 
58 
59 
60     ddp_cvmv_rec.chr_id := rosetta_g_miss_num_map(p5_a0);
61     ddp_cvmv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
62     ddp_cvmv_rec.major_version := rosetta_g_miss_num_map(p5_a2);
63     ddp_cvmv_rec.minor_version := rosetta_g_miss_num_map(p5_a3);
64     ddp_cvmv_rec.created_by := rosetta_g_miss_num_map(p5_a4);
65     ddp_cvmv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a5);
66     ddp_cvmv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a6);
67     ddp_cvmv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a7);
68     ddp_cvmv_rec.last_update_login := rosetta_g_miss_num_map(p5_a8);
69 
70 
71 
72     -- here's the delegated call to the old PL/SQL routine
73     okl_version_pub.version_contract(p_api_version,
74       p_init_msg_list,
75       x_return_status,
76       x_msg_count,
77       x_msg_data,
78       ddp_cvmv_rec,
79       ddx_cvmv_rec,
80       p_commit);
81 
82     -- copy data back from the local variables to OUT or IN-OUT args, if any
83 
84 
85 
86 
87 
88 
89     p6_a0 := rosetta_g_miss_num_map(ddx_cvmv_rec.chr_id);
90     p6_a1 := rosetta_g_miss_num_map(ddx_cvmv_rec.object_version_number);
91     p6_a2 := rosetta_g_miss_num_map(ddx_cvmv_rec.major_version);
92     p6_a3 := rosetta_g_miss_num_map(ddx_cvmv_rec.minor_version);
93     p6_a4 := rosetta_g_miss_num_map(ddx_cvmv_rec.created_by);
94     p6_a5 := ddx_cvmv_rec.creation_date;
95     p6_a6 := rosetta_g_miss_num_map(ddx_cvmv_rec.last_updated_by);
96     p6_a7 := ddx_cvmv_rec.last_update_date;
97     p6_a8 := rosetta_g_miss_num_map(ddx_cvmv_rec.last_update_login);
98 
99   end;
100 
101   procedure version_contract(p_api_version  NUMBER
102     , p_init_msg_list  VARCHAR2
103     , x_return_status out nocopy  VARCHAR2
104     , x_msg_count out nocopy  NUMBER
105     , x_msg_data out nocopy  VARCHAR2
106     , p5_a0 JTF_NUMBER_TABLE
107     , p5_a1 JTF_NUMBER_TABLE
108     , p5_a2 JTF_NUMBER_TABLE
109     , p5_a3 JTF_NUMBER_TABLE
110     , p5_a4 JTF_NUMBER_TABLE
111     , p5_a5 JTF_DATE_TABLE
112     , p5_a6 JTF_NUMBER_TABLE
113     , p5_a7 JTF_DATE_TABLE
114     , p5_a8 JTF_NUMBER_TABLE
115     , p_commit  VARCHAR2
116     , p7_a0 out nocopy JTF_NUMBER_TABLE
117     , p7_a1 out nocopy JTF_NUMBER_TABLE
118     , p7_a2 out nocopy JTF_NUMBER_TABLE
119     , p7_a3 out nocopy JTF_NUMBER_TABLE
120     , p7_a4 out nocopy JTF_NUMBER_TABLE
121     , p7_a5 out nocopy JTF_DATE_TABLE
122     , p7_a6 out nocopy JTF_NUMBER_TABLE
123     , p7_a7 out nocopy JTF_DATE_TABLE
124     , p7_a8 out nocopy JTF_NUMBER_TABLE
125   )
126 
127   as
128     ddp_cvmv_tbl okl_version_pub.cvmv_tbl_type;
129     ddx_cvmv_tbl okl_version_pub.cvmv_tbl_type;
130     ddindx binary_integer; indx binary_integer;
131   begin
132 
133     -- copy data to the local IN or IN-OUT args, if any
134 
135 
136 
137 
138 
139     okl_okc_migration_pvt_w.rosetta_table_copy_in_p1(ddp_cvmv_tbl, p5_a0
140       , p5_a1
141       , p5_a2
142       , p5_a3
143       , p5_a4
144       , p5_a5
145       , p5_a6
146       , p5_a7
147       , p5_a8
148       );
149 
150 
151 
152     -- here's the delegated call to the old PL/SQL routine
153     okl_version_pub.version_contract(p_api_version,
154       p_init_msg_list,
155       x_return_status,
156       x_msg_count,
157       x_msg_data,
158       ddp_cvmv_tbl,
159       p_commit,
160       ddx_cvmv_tbl);
161 
162     -- copy data back from the local variables to OUT or IN-OUT args, if any
163 
164 
165 
166 
167 
168 
169 
170     okl_okc_migration_pvt_w.rosetta_table_copy_out_p1(ddx_cvmv_tbl, p7_a0
171       , p7_a1
172       , p7_a2
173       , p7_a3
174       , p7_a4
175       , p7_a5
176       , p7_a6
177       , p7_a7
178       , p7_a8
179       );
180   end;
181 
182 end okl_version_pub_w;