[Home] [Help]
PACKAGE BODY: APPS.HZ_PARTY_USG_ASSIGNMENT_PVT_JW
Source
1 package body hz_party_usg_assignment_pvt_jw as
2 /* $Header: ARHPUPJB.pls 120.0 2005/05/24 01:29:19 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 , p_validation_level NUMBER
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p2_a0 NUMBER := null
28 , p2_a1 VARCHAR2 := null
29 , p2_a2 DATE := null
30 , p2_a3 DATE := null
31 , p2_a4 VARCHAR2 := null
32 , p2_a5 VARCHAR2 := null
33 , p2_a6 NUMBER := null
34 , p2_a7 VARCHAR2 := null
35 , p2_a8 VARCHAR2 := null
36 , p2_a9 VARCHAR2 := null
37 , p2_a10 VARCHAR2 := null
38 , p2_a11 VARCHAR2 := null
39 , p2_a12 VARCHAR2 := null
40 , p2_a13 VARCHAR2 := null
41 , p2_a14 VARCHAR2 := null
42 , p2_a15 VARCHAR2 := null
43 , p2_a16 VARCHAR2 := null
44 , p2_a17 VARCHAR2 := null
45 , p2_a18 VARCHAR2 := null
46 , p2_a19 VARCHAR2 := null
47 , p2_a20 VARCHAR2 := null
48 , p2_a21 VARCHAR2 := null
49 , p2_a22 VARCHAR2 := null
50 , p2_a23 VARCHAR2 := null
51 , p2_a24 VARCHAR2 := null
52 , p2_a25 VARCHAR2 := null
53 , p2_a26 VARCHAR2 := null
54 , p2_a27 VARCHAR2 := null
55 , p2_a28 VARCHAR2 := null
56 )
57 as
58 ddp_party_usg_assignment_rec hz_party_usg_assignment_pvt.party_usg_assignment_rec_type;
59 ddindx binary_integer; indx binary_integer;
60 begin
61
62 -- copy data to the local IN or IN-OUT args, if any
63
64
65 ddp_party_usg_assignment_rec.party_id := rosetta_g_miss_num_map(p2_a0);
66 ddp_party_usg_assignment_rec.party_usage_code := p2_a1;
67 ddp_party_usg_assignment_rec.effective_start_date := rosetta_g_miss_date_in_map(p2_a2);
68 ddp_party_usg_assignment_rec.effective_end_date := rosetta_g_miss_date_in_map(p2_a3);
69 ddp_party_usg_assignment_rec.comments := p2_a4;
70 ddp_party_usg_assignment_rec.owner_table_name := p2_a5;
71 ddp_party_usg_assignment_rec.owner_table_id := rosetta_g_miss_num_map(p2_a6);
72 ddp_party_usg_assignment_rec.created_by_module := p2_a7;
73 ddp_party_usg_assignment_rec.attribute_category := p2_a8;
74 ddp_party_usg_assignment_rec.attribute1 := p2_a9;
75 ddp_party_usg_assignment_rec.attribute2 := p2_a10;
76 ddp_party_usg_assignment_rec.attribute3 := p2_a11;
77 ddp_party_usg_assignment_rec.attribute4 := p2_a12;
78 ddp_party_usg_assignment_rec.attribute5 := p2_a13;
79 ddp_party_usg_assignment_rec.attribute6 := p2_a14;
80 ddp_party_usg_assignment_rec.attribute7 := p2_a15;
81 ddp_party_usg_assignment_rec.attribute8 := p2_a16;
82 ddp_party_usg_assignment_rec.attribute9 := p2_a17;
83 ddp_party_usg_assignment_rec.attribute10 := p2_a18;
84 ddp_party_usg_assignment_rec.attribute11 := p2_a19;
85 ddp_party_usg_assignment_rec.attribute12 := p2_a20;
86 ddp_party_usg_assignment_rec.attribute13 := p2_a21;
87 ddp_party_usg_assignment_rec.attribute14 := p2_a22;
88 ddp_party_usg_assignment_rec.attribute15 := p2_a23;
89 ddp_party_usg_assignment_rec.attribute16 := p2_a24;
90 ddp_party_usg_assignment_rec.attribute17 := p2_a25;
91 ddp_party_usg_assignment_rec.attribute18 := p2_a26;
92 ddp_party_usg_assignment_rec.attribute19 := p2_a27;
93 ddp_party_usg_assignment_rec.attribute20 := p2_a28;
94
95
96
97
98 -- here's the delegated call to the old PL/SQL routine
99 hz_party_usg_assignment_pvt.assign_party_usage(p_init_msg_list,
100 p_validation_level,
101 ddp_party_usg_assignment_rec,
102 x_return_status,
103 x_msg_count,
104 x_msg_data);
105
106 -- copy data back from the local OUT or IN-OUT args, if any
107
108
109
110
111
112 end;
113
114 procedure update_usg_assignment_2(p_init_msg_list VARCHAR2
115 , p_validation_level NUMBER
116 , p_party_usg_assignment_id NUMBER
117 , x_return_status out nocopy VARCHAR2
118 , x_msg_count out nocopy NUMBER
119 , x_msg_data out nocopy VARCHAR2
120 , p3_a0 NUMBER := null
121 , p3_a1 VARCHAR2 := null
122 , p3_a2 DATE := null
123 , p3_a3 DATE := null
124 , p3_a4 VARCHAR2 := null
125 , p3_a5 VARCHAR2 := null
126 , p3_a6 NUMBER := null
127 , p3_a7 VARCHAR2 := null
128 , p3_a8 VARCHAR2 := null
129 , p3_a9 VARCHAR2 := null
130 , p3_a10 VARCHAR2 := null
131 , p3_a11 VARCHAR2 := null
132 , p3_a12 VARCHAR2 := null
133 , p3_a13 VARCHAR2 := null
134 , p3_a14 VARCHAR2 := null
135 , p3_a15 VARCHAR2 := null
136 , p3_a16 VARCHAR2 := null
137 , p3_a17 VARCHAR2 := null
138 , p3_a18 VARCHAR2 := null
139 , p3_a19 VARCHAR2 := null
140 , p3_a20 VARCHAR2 := null
141 , p3_a21 VARCHAR2 := null
142 , p3_a22 VARCHAR2 := null
143 , p3_a23 VARCHAR2 := null
144 , p3_a24 VARCHAR2 := null
145 , p3_a25 VARCHAR2 := null
146 , p3_a26 VARCHAR2 := null
147 , p3_a27 VARCHAR2 := null
148 , p3_a28 VARCHAR2 := null
149 )
150 as
151 ddp_party_usg_assignment_rec hz_party_usg_assignment_pvt.party_usg_assignment_rec_type;
152 ddindx binary_integer; indx binary_integer;
153 begin
154
155 -- copy data to the local IN or IN-OUT args, if any
156
157
158
159 ddp_party_usg_assignment_rec.party_id := rosetta_g_miss_num_map(p3_a0);
160 ddp_party_usg_assignment_rec.party_usage_code := p3_a1;
161 ddp_party_usg_assignment_rec.effective_start_date := rosetta_g_miss_date_in_map(p3_a2);
162 ddp_party_usg_assignment_rec.effective_end_date := rosetta_g_miss_date_in_map(p3_a3);
163 ddp_party_usg_assignment_rec.comments := p3_a4;
164 ddp_party_usg_assignment_rec.owner_table_name := p3_a5;
165 ddp_party_usg_assignment_rec.owner_table_id := rosetta_g_miss_num_map(p3_a6);
166 ddp_party_usg_assignment_rec.created_by_module := p3_a7;
167 ddp_party_usg_assignment_rec.attribute_category := p3_a8;
168 ddp_party_usg_assignment_rec.attribute1 := p3_a9;
169 ddp_party_usg_assignment_rec.attribute2 := p3_a10;
170 ddp_party_usg_assignment_rec.attribute3 := p3_a11;
171 ddp_party_usg_assignment_rec.attribute4 := p3_a12;
172 ddp_party_usg_assignment_rec.attribute5 := p3_a13;
173 ddp_party_usg_assignment_rec.attribute6 := p3_a14;
174 ddp_party_usg_assignment_rec.attribute7 := p3_a15;
175 ddp_party_usg_assignment_rec.attribute8 := p3_a16;
176 ddp_party_usg_assignment_rec.attribute9 := p3_a17;
177 ddp_party_usg_assignment_rec.attribute10 := p3_a18;
178 ddp_party_usg_assignment_rec.attribute11 := p3_a19;
179 ddp_party_usg_assignment_rec.attribute12 := p3_a20;
180 ddp_party_usg_assignment_rec.attribute13 := p3_a21;
181 ddp_party_usg_assignment_rec.attribute14 := p3_a22;
182 ddp_party_usg_assignment_rec.attribute15 := p3_a23;
183 ddp_party_usg_assignment_rec.attribute16 := p3_a24;
184 ddp_party_usg_assignment_rec.attribute17 := p3_a25;
185 ddp_party_usg_assignment_rec.attribute18 := p3_a26;
186 ddp_party_usg_assignment_rec.attribute19 := p3_a27;
187 ddp_party_usg_assignment_rec.attribute20 := p3_a28;
188
189
190
191
192 -- here's the delegated call to the old PL/SQL routine
193 hz_party_usg_assignment_pvt.update_usg_assignment(p_init_msg_list,
194 p_validation_level,
195 p_party_usg_assignment_id,
196 ddp_party_usg_assignment_rec,
197 x_return_status,
198 x_msg_count,
199 x_msg_data);
200
201 -- copy data back from the local OUT or IN-OUT args, if any
202
203
204
205
206
207
208 end;
209
210 end hz_party_usg_assignment_pvt_jw;