[Home] [Help]
PACKAGE BODY: APPS.HZ_PARTY_USG_ASSIGNMENT_PUB_JW
Source
1 package body hz_party_usg_assignment_pub_jw as
2 /* $Header: ARHPUSJB.pls 120.0 2005/05/24 01:36:12 jhuang 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 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure assign_party_usage_1(p_init_msg_list VARCHAR2
23 , x_return_status out nocopy VARCHAR2
24 , x_msg_count out nocopy NUMBER
25 , x_msg_data out nocopy VARCHAR2
26 , p1_a0 NUMBER := null
27 , p1_a1 VARCHAR2 := null
28 , p1_a2 DATE := null
29 , p1_a3 DATE := null
30 , p1_a4 VARCHAR2 := null
31 , p1_a5 VARCHAR2 := null
32 , p1_a6 NUMBER := null
33 , p1_a7 VARCHAR2 := null
34 , p1_a8 VARCHAR2 := null
35 , p1_a9 VARCHAR2 := null
36 , p1_a10 VARCHAR2 := null
37 , p1_a11 VARCHAR2 := null
38 , p1_a12 VARCHAR2 := null
39 , p1_a13 VARCHAR2 := null
40 , p1_a14 VARCHAR2 := null
41 , p1_a15 VARCHAR2 := null
42 , p1_a16 VARCHAR2 := null
43 , p1_a17 VARCHAR2 := null
44 , p1_a18 VARCHAR2 := null
45 , p1_a19 VARCHAR2 := null
46 , p1_a20 VARCHAR2 := null
47 , p1_a21 VARCHAR2 := null
48 , p1_a22 VARCHAR2 := null
49 , p1_a23 VARCHAR2 := null
50 , p1_a24 VARCHAR2 := null
51 , p1_a25 VARCHAR2 := null
52 , p1_a26 VARCHAR2 := null
53 , p1_a27 VARCHAR2 := null
54 , p1_a28 VARCHAR2 := null
55 )
56 as
57 ddp_party_usg_assignment_rec hz_party_usg_assignment_pvt.party_usg_assignment_rec_type;
58 ddindx binary_integer; indx binary_integer;
59 begin
60
61 -- copy data to the local IN or IN-OUT args, if any
62
63 ddp_party_usg_assignment_rec.party_id := rosetta_g_miss_num_map(p1_a0);
64 ddp_party_usg_assignment_rec.party_usage_code := p1_a1;
65 ddp_party_usg_assignment_rec.effective_start_date := rosetta_g_miss_date_in_map(p1_a2);
66 ddp_party_usg_assignment_rec.effective_end_date := rosetta_g_miss_date_in_map(p1_a3);
67 ddp_party_usg_assignment_rec.comments := p1_a4;
68 ddp_party_usg_assignment_rec.owner_table_name := p1_a5;
69 ddp_party_usg_assignment_rec.owner_table_id := rosetta_g_miss_num_map(p1_a6);
70 ddp_party_usg_assignment_rec.created_by_module := p1_a7;
71 ddp_party_usg_assignment_rec.attribute_category := p1_a8;
72 ddp_party_usg_assignment_rec.attribute1 := p1_a9;
73 ddp_party_usg_assignment_rec.attribute2 := p1_a10;
74 ddp_party_usg_assignment_rec.attribute3 := p1_a11;
75 ddp_party_usg_assignment_rec.attribute4 := p1_a12;
76 ddp_party_usg_assignment_rec.attribute5 := p1_a13;
77 ddp_party_usg_assignment_rec.attribute6 := p1_a14;
78 ddp_party_usg_assignment_rec.attribute7 := p1_a15;
79 ddp_party_usg_assignment_rec.attribute8 := p1_a16;
80 ddp_party_usg_assignment_rec.attribute9 := p1_a17;
81 ddp_party_usg_assignment_rec.attribute10 := p1_a18;
82 ddp_party_usg_assignment_rec.attribute11 := p1_a19;
83 ddp_party_usg_assignment_rec.attribute12 := p1_a20;
84 ddp_party_usg_assignment_rec.attribute13 := p1_a21;
85 ddp_party_usg_assignment_rec.attribute14 := p1_a22;
86 ddp_party_usg_assignment_rec.attribute15 := p1_a23;
87 ddp_party_usg_assignment_rec.attribute16 := p1_a24;
88 ddp_party_usg_assignment_rec.attribute17 := p1_a25;
89 ddp_party_usg_assignment_rec.attribute18 := p1_a26;
90 ddp_party_usg_assignment_rec.attribute19 := p1_a27;
91 ddp_party_usg_assignment_rec.attribute20 := p1_a28;
92
93
94
95
96 -- here's the delegated call to the old PL/SQL routine
97 hz_party_usg_assignment_pub.assign_party_usage(p_init_msg_list,
98 ddp_party_usg_assignment_rec,
99 x_return_status,
100 x_msg_count,
101 x_msg_data);
102
103 -- copy data back from the local OUT or IN-OUT args, if any
104
105
106
107
108 end;
109
110 procedure update_usg_assignment_2(p_init_msg_list VARCHAR2
111 , p_party_usg_assignment_id NUMBER
112 , x_return_status out nocopy VARCHAR2
113 , x_msg_count out nocopy NUMBER
114 , x_msg_data out nocopy VARCHAR2
115 , p2_a0 NUMBER := null
116 , p2_a1 VARCHAR2 := null
117 , p2_a2 DATE := null
118 , p2_a3 DATE := null
119 , p2_a4 VARCHAR2 := null
120 , p2_a5 VARCHAR2 := null
121 , p2_a6 NUMBER := null
122 , p2_a7 VARCHAR2 := null
123 , p2_a8 VARCHAR2 := null
124 , p2_a9 VARCHAR2 := null
125 , p2_a10 VARCHAR2 := null
126 , p2_a11 VARCHAR2 := null
127 , p2_a12 VARCHAR2 := null
128 , p2_a13 VARCHAR2 := null
129 , p2_a14 VARCHAR2 := null
130 , p2_a15 VARCHAR2 := null
131 , p2_a16 VARCHAR2 := null
132 , p2_a17 VARCHAR2 := null
133 , p2_a18 VARCHAR2 := null
134 , p2_a19 VARCHAR2 := null
135 , p2_a20 VARCHAR2 := null
136 , p2_a21 VARCHAR2 := null
137 , p2_a22 VARCHAR2 := null
138 , p2_a23 VARCHAR2 := null
139 , p2_a24 VARCHAR2 := null
140 , p2_a25 VARCHAR2 := null
141 , p2_a26 VARCHAR2 := null
142 , p2_a27 VARCHAR2 := null
143 , p2_a28 VARCHAR2 := null
144 )
145 as
146 ddp_party_usg_assignment_rec hz_party_usg_assignment_pvt.party_usg_assignment_rec_type;
147 ddindx binary_integer; indx binary_integer;
148 begin
149
150 -- copy data to the local IN or IN-OUT args, if any
151
152
153 ddp_party_usg_assignment_rec.party_id := rosetta_g_miss_num_map(p2_a0);
154 ddp_party_usg_assignment_rec.party_usage_code := p2_a1;
155 ddp_party_usg_assignment_rec.effective_start_date := rosetta_g_miss_date_in_map(p2_a2);
156 ddp_party_usg_assignment_rec.effective_end_date := rosetta_g_miss_date_in_map(p2_a3);
157 ddp_party_usg_assignment_rec.comments := p2_a4;
158 ddp_party_usg_assignment_rec.owner_table_name := p2_a5;
159 ddp_party_usg_assignment_rec.owner_table_id := rosetta_g_miss_num_map(p2_a6);
160 ddp_party_usg_assignment_rec.created_by_module := p2_a7;
161 ddp_party_usg_assignment_rec.attribute_category := p2_a8;
162 ddp_party_usg_assignment_rec.attribute1 := p2_a9;
163 ddp_party_usg_assignment_rec.attribute2 := p2_a10;
164 ddp_party_usg_assignment_rec.attribute3 := p2_a11;
165 ddp_party_usg_assignment_rec.attribute4 := p2_a12;
166 ddp_party_usg_assignment_rec.attribute5 := p2_a13;
167 ddp_party_usg_assignment_rec.attribute6 := p2_a14;
168 ddp_party_usg_assignment_rec.attribute7 := p2_a15;
169 ddp_party_usg_assignment_rec.attribute8 := p2_a16;
170 ddp_party_usg_assignment_rec.attribute9 := p2_a17;
171 ddp_party_usg_assignment_rec.attribute10 := p2_a18;
172 ddp_party_usg_assignment_rec.attribute11 := p2_a19;
173 ddp_party_usg_assignment_rec.attribute12 := p2_a20;
174 ddp_party_usg_assignment_rec.attribute13 := p2_a21;
175 ddp_party_usg_assignment_rec.attribute14 := p2_a22;
176 ddp_party_usg_assignment_rec.attribute15 := p2_a23;
177 ddp_party_usg_assignment_rec.attribute16 := p2_a24;
178 ddp_party_usg_assignment_rec.attribute17 := p2_a25;
179 ddp_party_usg_assignment_rec.attribute18 := p2_a26;
180 ddp_party_usg_assignment_rec.attribute19 := p2_a27;
181 ddp_party_usg_assignment_rec.attribute20 := p2_a28;
182
183
184
185
186 -- here's the delegated call to the old PL/SQL routine
187 hz_party_usg_assignment_pub.update_usg_assignment(p_init_msg_list,
188 p_party_usg_assignment_id,
189 ddp_party_usg_assignment_rec,
190 x_return_status,
191 x_msg_count,
192 x_msg_data);
193
194 -- copy data back from the local OUT or IN-OUT args, if any
195
196
197
198
199
200 end;
201
202 end hz_party_usg_assignment_pub_jw;