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_CSH_ORDER_SEQ_PUB_W

Source


1 package body okl_csh_order_seq_pub_w as
2   /* $Header: OKLUSATB.pls 120.1 2005/07/08 10:33:56 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 update_order_sequence(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  VARCHAR2
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  NUMBER
33     , p6_a6 out nocopy  VARCHAR2
34     , p6_a7 out nocopy  NUMBER
35     , p6_a8 out nocopy  DATE
36     , p6_a9 out nocopy  NUMBER
37     , p6_a10 out nocopy  DATE
38     , p6_a11 out nocopy  NUMBER
39     , p5_a0  VARCHAR2 := fnd_api.g_miss_char
40     , p5_a1  NUMBER := 0-1962.0724
41     , p5_a2  NUMBER := 0-1962.0724
42     , p5_a3  NUMBER := 0-1962.0724
43     , p5_a4  NUMBER := 0-1962.0724
44     , p5_a5  NUMBER := 0-1962.0724
45     , p5_a6  VARCHAR2 := fnd_api.g_miss_char
46     , p5_a7  NUMBER := 0-1962.0724
47     , p5_a8  DATE := fnd_api.g_miss_date
48     , p5_a9  NUMBER := 0-1962.0724
49     , p5_a10  DATE := fnd_api.g_miss_date
50     , p5_a11  NUMBER := 0-1962.0724
51   )
52 
53   as
54     ddp_okl_csh_order_rec okl_csh_order_seq_pub.okl_csh_order_rec_type;
55     ddx_okl_csh_order_rec okl_csh_order_seq_pub.okl_csh_order_rec_type;
56     ddindx binary_integer; indx binary_integer;
57   begin
58 
59     -- copy data to the local IN or IN-OUT args, if any
60 
61 
62 
63 
64 
65     ddp_okl_csh_order_rec.name := p5_a0;
66     ddp_okl_csh_order_rec.sty_id := rosetta_g_miss_num_map(p5_a1);
67     ddp_okl_csh_order_rec.cat_id := rosetta_g_miss_num_map(p5_a2);
68     ddp_okl_csh_order_rec.id := rosetta_g_miss_num_map(p5_a3);
69     ddp_okl_csh_order_rec.object_version_number := rosetta_g_miss_num_map(p5_a4);
70     ddp_okl_csh_order_rec.sequence_number := rosetta_g_miss_num_map(p5_a5);
71     ddp_okl_csh_order_rec.stream_allc_type := p5_a6;
72     ddp_okl_csh_order_rec.created_by := rosetta_g_miss_num_map(p5_a7);
73     ddp_okl_csh_order_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
74     ddp_okl_csh_order_rec.last_updated_by := rosetta_g_miss_num_map(p5_a9);
75     ddp_okl_csh_order_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
76     ddp_okl_csh_order_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
77 
78 
79     -- here's the delegated call to the old PL/SQL routine
80     okl_csh_order_seq_pub.update_order_sequence(p_api_version,
81       p_init_msg_list,
82       x_return_status,
83       x_msg_count,
84       x_msg_data,
85       ddp_okl_csh_order_rec,
86       ddx_okl_csh_order_rec);
87 
88     -- copy data back from the local variables to OUT or IN-OUT args, if any
89 
90 
91 
92 
93 
94 
95     p6_a0 := ddx_okl_csh_order_rec.name;
96     p6_a1 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.sty_id);
97     p6_a2 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.cat_id);
98     p6_a3 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.id);
99     p6_a4 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.object_version_number);
100     p6_a5 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.sequence_number);
101     p6_a6 := ddx_okl_csh_order_rec.stream_allc_type;
102     p6_a7 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.created_by);
103     p6_a8 := ddx_okl_csh_order_rec.creation_date;
104     p6_a9 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.last_updated_by);
105     p6_a10 := ddx_okl_csh_order_rec.last_update_date;
106     p6_a11 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.last_update_login);
107   end;
108 
109   procedure update_order_sequence(p_api_version  NUMBER
110     , p_init_msg_list  VARCHAR2
111     , x_return_status out nocopy  VARCHAR2
112     , x_msg_count out nocopy  NUMBER
113     , x_msg_data out nocopy  VARCHAR2
114     , p5_a0 JTF_VARCHAR2_TABLE_200
115     , p5_a1 JTF_NUMBER_TABLE
116     , p5_a2 JTF_NUMBER_TABLE
117     , p5_a3 JTF_NUMBER_TABLE
118     , p5_a4 JTF_NUMBER_TABLE
119     , p5_a5 JTF_NUMBER_TABLE
120     , p5_a6 JTF_VARCHAR2_TABLE_100
121     , p5_a7 JTF_NUMBER_TABLE
122     , p5_a8 JTF_DATE_TABLE
123     , p5_a9 JTF_NUMBER_TABLE
124     , p5_a10 JTF_DATE_TABLE
125     , p5_a11 JTF_NUMBER_TABLE
126     , p6_a0 out nocopy JTF_VARCHAR2_TABLE_200
127     , p6_a1 out nocopy JTF_NUMBER_TABLE
128     , p6_a2 out nocopy JTF_NUMBER_TABLE
129     , p6_a3 out nocopy JTF_NUMBER_TABLE
130     , p6_a4 out nocopy JTF_NUMBER_TABLE
131     , p6_a5 out nocopy JTF_NUMBER_TABLE
132     , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
133     , p6_a7 out nocopy JTF_NUMBER_TABLE
134     , p6_a8 out nocopy JTF_DATE_TABLE
135     , p6_a9 out nocopy JTF_NUMBER_TABLE
136     , p6_a10 out nocopy JTF_DATE_TABLE
137     , p6_a11 out nocopy JTF_NUMBER_TABLE
138   )
139 
140   as
141     ddp_okl_csh_order_tbl okl_csh_order_seq_pub.okl_csh_order_tbl_type;
142     ddx_okl_csh_order_tbl okl_csh_order_seq_pub.okl_csh_order_tbl_type;
143     ddindx binary_integer; indx binary_integer;
144   begin
145 
146     -- copy data to the local IN or IN-OUT args, if any
147 
148 
149 
150 
151 
152     okl_csh_order_seq_pvt_w.rosetta_table_copy_in_p4(ddp_okl_csh_order_tbl, p5_a0
153       , p5_a1
154       , p5_a2
155       , p5_a3
156       , p5_a4
157       , p5_a5
158       , p5_a6
159       , p5_a7
160       , p5_a8
161       , p5_a9
162       , p5_a10
163       , p5_a11
164       );
165 
166 
167     -- here's the delegated call to the old PL/SQL routine
168     okl_csh_order_seq_pub.update_order_sequence(p_api_version,
169       p_init_msg_list,
170       x_return_status,
171       x_msg_count,
172       x_msg_data,
173       ddp_okl_csh_order_tbl,
174       ddx_okl_csh_order_tbl);
175 
176     -- copy data back from the local variables to OUT or IN-OUT args, if any
177 
178 
179 
180 
181 
182 
183     okl_csh_order_seq_pvt_w.rosetta_table_copy_out_p4(ddx_okl_csh_order_tbl, p6_a0
184       , p6_a1
185       , p6_a2
186       , p6_a3
187       , p6_a4
188       , p6_a5
189       , p6_a6
190       , p6_a7
191       , p6_a8
192       , p6_a9
193       , p6_a10
194       , p6_a11
195       );
196   end;
197 
198 end okl_csh_order_seq_pub_w;