[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_ASSET_RELOCATION_PUB_W
Source
1 package body okl_am_asset_relocation_pub_w as
2 /* $Header: OKLUAREB.pls 120.3 2005/12/05 07:12:44 asawanka 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 relocate_installed_item(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_NUMBER_TABLE
29 , p5_a2 JTF_NUMBER_TABLE
30 )
31
32 as
33 ddp_ialo_tbl okl_am_asset_relocation_pub.ialo_tbl_type;
34 ddindx binary_integer; indx binary_integer;
35 begin
36
37 -- copy data to the local IN or IN-OUT args, if any
38
39
40
41
42
43 okl_am_asset_relocation_pvt_w.rosetta_table_copy_in_p3(ddp_ialo_tbl, p5_a0
44 , p5_a1
45 , p5_a2
46 );
47
48 -- here's the delegated call to the old PL/SQL routine
49 okl_am_asset_relocation_pub.relocate_installed_item(p_api_version,
50 p_init_msg_list,
51 x_return_status,
52 x_msg_count,
53 x_msg_data,
54 ddp_ialo_tbl);
55
56 -- copy data back from the local variables to OUT or IN-OUT args, if any
57
58
59
60
61
62 end;
63
64 procedure relocate_fixed_asset(p_api_version NUMBER
65 , p_init_msg_list VARCHAR2
66 , x_return_status out nocopy VARCHAR2
67 , x_msg_count out nocopy NUMBER
68 , x_msg_data out nocopy VARCHAR2
69 , p5_a0 JTF_NUMBER_TABLE
70 , p5_a1 JTF_NUMBER_TABLE
71 , p5_a2 JTF_VARCHAR2_TABLE_100
72 , p5_a3 JTF_VARCHAR2_TABLE_100
73 , p5_a4 JTF_NUMBER_TABLE
74 , p5_a5 JTF_NUMBER_TABLE
75 , p5_a6 JTF_NUMBER_TABLE
76 , p5_a7 JTF_NUMBER_TABLE
77 , p5_a8 JTF_NUMBER_TABLE
78 , p5_a9 JTF_NUMBER_TABLE
79 , p5_a10 JTF_NUMBER_TABLE
80 )
81
82 as
83 ddp_falo_tbl okl_am_asset_relocation_pub.falo_tbl_type;
84 ddindx binary_integer; indx binary_integer;
85 begin
86
87 -- copy data to the local IN or IN-OUT args, if any
88
89
90
91
92
93 okl_am_asset_relocation_pvt_w.rosetta_table_copy_in_p1(ddp_falo_tbl, p5_a0
94 , p5_a1
95 , p5_a2
96 , p5_a3
97 , p5_a4
98 , p5_a5
99 , p5_a6
100 , p5_a7
101 , p5_a8
102 , p5_a9
103 , p5_a10
104 );
105
106 -- here's the delegated call to the old PL/SQL routine
107 okl_am_asset_relocation_pub.relocate_fixed_asset(p_api_version,
108 p_init_msg_list,
109 x_return_status,
110 x_msg_count,
111 x_msg_data,
112 ddp_falo_tbl);
113
114 -- copy data back from the local variables to OUT or IN-OUT args, if any
115
116
117
118
119
120 end;
121
122 procedure change_fa_location(p_api_version NUMBER
123 , p_init_msg_list VARCHAR2
124 , x_return_status out nocopy VARCHAR2
125 , x_msg_count out nocopy NUMBER
126 , x_msg_data out nocopy VARCHAR2
127 , p5_a0 JTF_NUMBER_TABLE
128 , p5_a1 JTF_NUMBER_TABLE
129 , p5_a2 JTF_VARCHAR2_TABLE_100
130 , p5_a3 JTF_VARCHAR2_TABLE_100
131 , p5_a4 JTF_NUMBER_TABLE
132 , p5_a5 JTF_NUMBER_TABLE
133 , p5_a6 JTF_NUMBER_TABLE
134 , p5_a7 JTF_NUMBER_TABLE
135 , p5_a8 JTF_NUMBER_TABLE
136 , p5_a9 JTF_NUMBER_TABLE
137 , p5_a10 JTF_NUMBER_TABLE
138 )
139
140 as
141 ddp_assets_tbl okl_am_asset_relocation_pub.falo_tbl_type;
142 ddindx binary_integer; indx binary_integer;
143 begin
144
145 -- copy data to the local IN or IN-OUT args, if any
146
147
148
149
150
151 okl_am_asset_relocation_pvt_w.rosetta_table_copy_in_p1(ddp_assets_tbl, p5_a0
152 , p5_a1
153 , p5_a2
154 , p5_a3
155 , p5_a4
156 , p5_a5
157 , p5_a6
158 , p5_a7
159 , p5_a8
160 , p5_a9
161 , p5_a10
162 );
163
164 -- here's the delegated call to the old PL/SQL routine
165 okl_am_asset_relocation_pub.change_fa_location(p_api_version,
166 p_init_msg_list,
167 x_return_status,
168 x_msg_count,
169 x_msg_data,
170 ddp_assets_tbl);
171
172 -- copy data back from the local variables to OUT or IN-OUT args, if any
173
174
175
176
177
178 end;
179
180 end okl_am_asset_relocation_pub_w;