[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_ARINV_PVT_W
Source
1 package body okl_am_arinv_pvt_w as
2 /* $Header: OKLEARVB.pls 115.6 2002/12/24 19:06:58 gkadarka 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_asset_repair_invoice(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 , p5_a0 JTF_NUMBER_TABLE
28 , p5_a1 JTF_VARCHAR2_TABLE_200
29 , p5_a2 JTF_VARCHAR2_TABLE_2000
30 , p5_a3 JTF_VARCHAR2_TABLE_2000
31 , p5_a4 JTF_VARCHAR2_TABLE_2000
32 , p5_a5 JTF_NUMBER_TABLE
33 , p5_a6 JTF_DATE_TABLE
34 , p5_a7 JTF_NUMBER_TABLE
35 , p5_a8 JTF_DATE_TABLE
36 , p5_a9 JTF_VARCHAR2_TABLE_100
37 , p5_a10 JTF_NUMBER_TABLE
38 , p5_a11 JTF_NUMBER_TABLE
39 )
40
41 as
42 ddp_ariv_tbl okl_am_arinv_pvt.ariv_tbl_type;
43 ddindx binary_integer; indx binary_integer;
44 begin
45
46 -- copy data to the local IN or IN-OUT args, if any
47
48
49
50
51
52 okl_am_invoices_pvt_w.rosetta_table_copy_in_p5(ddp_ariv_tbl, p5_a0
53 , p5_a1
54 , p5_a2
55 , p5_a3
56 , p5_a4
57 , p5_a5
58 , p5_a6
59 , p5_a7
60 , p5_a8
61 , p5_a9
62 , p5_a10
63 , p5_a11
64 );
65
66 -- here's the delegated call to the old PL/SQL routine
67 okl_am_arinv_pvt.create_asset_repair_invoice(p_api_version,
68 p_init_msg_list,
69 x_return_status,
70 x_msg_count,
71 x_msg_data,
72 ddp_ariv_tbl);
73
74 -- copy data back from the local variables to OUT or IN-OUT args, if any
75
76
77
78
79
80 end;
81
82 procedure approve_asset_repair(p_api_version NUMBER
83 , p_init_msg_list VARCHAR2
84 , x_return_status out nocopy VARCHAR2
85 , x_msg_count out nocopy NUMBER
86 , x_msg_data out nocopy VARCHAR2
87 , p5_a0 JTF_NUMBER_TABLE
88 , p5_a1 JTF_VARCHAR2_TABLE_200
89 , p5_a2 JTF_VARCHAR2_TABLE_2000
90 , p5_a3 JTF_VARCHAR2_TABLE_2000
91 , p5_a4 JTF_VARCHAR2_TABLE_2000
92 , p5_a5 JTF_NUMBER_TABLE
93 , p5_a6 JTF_DATE_TABLE
94 , p5_a7 JTF_NUMBER_TABLE
95 , p5_a8 JTF_DATE_TABLE
96 , p5_a9 JTF_VARCHAR2_TABLE_100
97 , p5_a10 JTF_NUMBER_TABLE
98 , p5_a11 JTF_NUMBER_TABLE
99 , p6_a0 out nocopy JTF_NUMBER_TABLE
100 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_200
101 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_2000
102 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_2000
103 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_2000
104 , p6_a5 out nocopy JTF_NUMBER_TABLE
105 , p6_a6 out nocopy JTF_DATE_TABLE
106 , p6_a7 out nocopy JTF_NUMBER_TABLE
107 , p6_a8 out nocopy JTF_DATE_TABLE
108 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
109 , p6_a10 out nocopy JTF_NUMBER_TABLE
110 , p6_a11 out nocopy JTF_NUMBER_TABLE
111 )
112
113 as
114 ddp_ariv_tbl okl_am_arinv_pvt.ariv_tbl_type;
115 ddx_ariv_tbl okl_am_arinv_pvt.ariv_tbl_type;
116 ddindx binary_integer; indx binary_integer;
117 begin
118
119 -- copy data to the local IN or IN-OUT args, if any
120
121
122
123
124
125 okl_am_invoices_pvt_w.rosetta_table_copy_in_p5(ddp_ariv_tbl, p5_a0
126 , p5_a1
127 , p5_a2
128 , p5_a3
129 , p5_a4
130 , p5_a5
131 , p5_a6
132 , p5_a7
133 , p5_a8
134 , p5_a9
135 , p5_a10
136 , p5_a11
137 );
138
139
140 -- here's the delegated call to the old PL/SQL routine
141 okl_am_arinv_pvt.approve_asset_repair(p_api_version,
142 p_init_msg_list,
143 x_return_status,
144 x_msg_count,
145 x_msg_data,
146 ddp_ariv_tbl,
147 ddx_ariv_tbl);
148
149 -- copy data back from the local variables to OUT or IN-OUT args, if any
150
151
152
153
154
155
156 okl_am_invoices_pvt_w.rosetta_table_copy_out_p5(ddx_ariv_tbl, p6_a0
157 , p6_a1
158 , p6_a2
159 , p6_a3
160 , p6_a4
161 , p6_a5
162 , p6_a6
163 , p6_a7
164 , p6_a8
165 , p6_a9
166 , p6_a10
167 , p6_a11
168 );
169 end;
170
171 end okl_am_arinv_pvt_w;