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_PAY_INVOICES_MAN_PUB_W

Source


1 package body okl_pay_invoices_man_pub_w as
2   /* $Header: OKLUPIMB.pls 115.2 2003/01/28 23:03:35 pjgomes 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 manual_entry(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  VARCHAR2
30     , p6_a3 out nocopy  NUMBER
31     , p6_a4 out nocopy  VARCHAR2
32     , p6_a5 out nocopy  DATE
33     , p6_a6 out nocopy  NUMBER
34     , p6_a7 out nocopy  VARCHAR2
35     , p6_a8 out nocopy  VARCHAR2
36     , p6_a9 out nocopy  VARCHAR2
37     , p6_a10 out nocopy  NUMBER
38     , p6_a11 out nocopy  NUMBER
39     , p6_a12 out nocopy  VARCHAR2
40     , p6_a13 out nocopy  VARCHAR2
41     , p5_a0  NUMBER := 0-1962.0724
42     , p5_a1  NUMBER := 0-1962.0724
43     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
44     , p5_a3  NUMBER := 0-1962.0724
45     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
46     , p5_a5  DATE := fnd_api.g_miss_date
47     , p5_a6  NUMBER := 0-1962.0724
48     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
49     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
50     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
51     , p5_a10  NUMBER := 0-1962.0724
52     , p5_a11  NUMBER := 0-1962.0724
53     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
54     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
55   )
56 
57   as
58     ddp_man_inv_rec okl_pay_invoices_man_pub.man_inv_rec_type;
59     ddx_man_inv_rec okl_pay_invoices_man_pub.man_inv_rec_type;
60     ddindx binary_integer; indx binary_integer;
61   begin
62 
63     -- copy data to the local IN or IN-OUT args, if any
64 
65 
66 
67 
68 
69     ddp_man_inv_rec.ipvs_id := rosetta_g_miss_num_map(p5_a0);
70     ddp_man_inv_rec.khr_id := rosetta_g_miss_num_map(p5_a1);
71     ddp_man_inv_rec.currency := p5_a2;
72     ddp_man_inv_rec.vendor_id := rosetta_g_miss_num_map(p5_a3);
73     ddp_man_inv_rec.payment_method_code := p5_a4;
74     ddp_man_inv_rec.invoice_date := rosetta_g_miss_date_in_map(p5_a5);
75     ddp_man_inv_rec.pay_terms := rosetta_g_miss_num_map(p5_a6);
76     ddp_man_inv_rec.invoice_number := p5_a7;
77     ddp_man_inv_rec.invoice_category_code := p5_a8;
78     ddp_man_inv_rec.invoice_type := p5_a9;
79     ddp_man_inv_rec.amount := rosetta_g_miss_num_map(p5_a10);
80     ddp_man_inv_rec.sty_id := rosetta_g_miss_num_map(p5_a11);
81     ddp_man_inv_rec.pay_group_lookup_code := p5_a12;
82     ddp_man_inv_rec.vendor_invoice_number := p5_a13;
83 
84 
85     -- here's the delegated call to the old PL/SQL routine
86     okl_pay_invoices_man_pub.manual_entry(p_api_version,
87       p_init_msg_list,
88       x_return_status,
89       x_msg_count,
90       x_msg_data,
91       ddp_man_inv_rec,
92       ddx_man_inv_rec);
93 
94     -- copy data back from the local variables to OUT or IN-OUT args, if any
95 
96 
97 
98 
99 
100 
101     p6_a0 := rosetta_g_miss_num_map(ddx_man_inv_rec.ipvs_id);
102     p6_a1 := rosetta_g_miss_num_map(ddx_man_inv_rec.khr_id);
103     p6_a2 := ddx_man_inv_rec.currency;
104     p6_a3 := rosetta_g_miss_num_map(ddx_man_inv_rec.vendor_id);
105     p6_a4 := ddx_man_inv_rec.payment_method_code;
106     p6_a5 := ddx_man_inv_rec.invoice_date;
107     p6_a6 := rosetta_g_miss_num_map(ddx_man_inv_rec.pay_terms);
108     p6_a7 := ddx_man_inv_rec.invoice_number;
109     p6_a8 := ddx_man_inv_rec.invoice_category_code;
110     p6_a9 := ddx_man_inv_rec.invoice_type;
111     p6_a10 := rosetta_g_miss_num_map(ddx_man_inv_rec.amount);
112     p6_a11 := rosetta_g_miss_num_map(ddx_man_inv_rec.sty_id);
113     p6_a12 := ddx_man_inv_rec.pay_group_lookup_code;
114     p6_a13 := ddx_man_inv_rec.vendor_invoice_number;
115   end;
116 
117   procedure manual_entry(p_api_version  NUMBER
118     , p_init_msg_list  VARCHAR2
119     , x_return_status out nocopy  VARCHAR2
120     , x_msg_count out nocopy  NUMBER
121     , x_msg_data out nocopy  VARCHAR2
122     , p5_a0 JTF_NUMBER_TABLE
123     , p5_a1 JTF_NUMBER_TABLE
124     , p5_a2 JTF_VARCHAR2_TABLE_100
125     , p5_a3 JTF_NUMBER_TABLE
126     , p5_a4 JTF_VARCHAR2_TABLE_100
127     , p5_a5 JTF_DATE_TABLE
128     , p5_a6 JTF_NUMBER_TABLE
129     , p5_a7 JTF_VARCHAR2_TABLE_100
130     , p5_a8 JTF_VARCHAR2_TABLE_100
131     , p5_a9 JTF_VARCHAR2_TABLE_300
132     , p5_a10 JTF_NUMBER_TABLE
133     , p5_a11 JTF_NUMBER_TABLE
134     , p5_a12 JTF_VARCHAR2_TABLE_100
135     , p5_a13 JTF_VARCHAR2_TABLE_300
136     , p6_a0 out nocopy JTF_NUMBER_TABLE
137     , p6_a1 out nocopy JTF_NUMBER_TABLE
138     , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
139     , p6_a3 out nocopy JTF_NUMBER_TABLE
140     , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
141     , p6_a5 out nocopy JTF_DATE_TABLE
142     , p6_a6 out nocopy JTF_NUMBER_TABLE
143     , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
144     , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
145     , p6_a9 out nocopy JTF_VARCHAR2_TABLE_300
146     , p6_a10 out nocopy JTF_NUMBER_TABLE
147     , p6_a11 out nocopy JTF_NUMBER_TABLE
148     , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
149     , p6_a13 out nocopy JTF_VARCHAR2_TABLE_300
150   )
151 
152   as
153     ddp_man_inv_tbl okl_pay_invoices_man_pub.man_inv_tbl_type;
154     ddx_man_inv_tbl okl_pay_invoices_man_pub.man_inv_tbl_type;
155     ddindx binary_integer; indx binary_integer;
156   begin
157 
158     -- copy data to the local IN or IN-OUT args, if any
159 
160 
161 
162 
163 
164     okl_pay_invoices_man_pvt_w.rosetta_table_copy_in_p7(ddp_man_inv_tbl, p5_a0
165       , p5_a1
166       , p5_a2
167       , p5_a3
168       , p5_a4
169       , p5_a5
170       , p5_a6
171       , p5_a7
172       , p5_a8
173       , p5_a9
174       , p5_a10
175       , p5_a11
176       , p5_a12
177       , p5_a13
178       );
179 
180 
181     -- here's the delegated call to the old PL/SQL routine
182     okl_pay_invoices_man_pub.manual_entry(p_api_version,
183       p_init_msg_list,
184       x_return_status,
185       x_msg_count,
186       x_msg_data,
187       ddp_man_inv_tbl,
188       ddx_man_inv_tbl);
189 
190     -- copy data back from the local variables to OUT or IN-OUT args, if any
191 
192 
193 
194 
195 
196 
197     okl_pay_invoices_man_pvt_w.rosetta_table_copy_out_p7(ddx_man_inv_tbl, p6_a0
198       , p6_a1
199       , p6_a2
200       , p6_a3
201       , p6_a4
202       , p6_a5
203       , p6_a6
204       , p6_a7
205       , p6_a8
206       , p6_a9
207       , p6_a10
208       , p6_a11
209       , p6_a12
210       , p6_a13
211       );
212   end;
213 
214 end okl_pay_invoices_man_pub_w;