[Home] [Help]
PACKAGE BODY: APPS.HZ_DSS_SETUP_PUB_W
Source
1 package body hz_dss_setup_pub_w as
2 /* $Header: ARHPDSJB.pls 120.2 2005/06/18 04:28:05 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 -- 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_entity_profile_1(p_init_msg_list VARCHAR2
23 , x_entity_id out nocopy NUMBER
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p1_a0 NUMBER := 0-1962.0724
28 , p1_a1 NUMBER := 0-1962.0724
29 , p1_a2 NUMBER := 0-1962.0724
30 , p1_a3 NUMBER := 0-1962.0724
31 , p1_a4 VARCHAR2 := fnd_api.g_miss_char
32 , p1_a5 VARCHAR2 := fnd_api.g_miss_char
33 , p1_a6 VARCHAR2 := fnd_api.g_miss_char
34 , p1_a7 VARCHAR2 := fnd_api.g_miss_char
35 , p1_a8 VARCHAR2 := fnd_api.g_miss_char
36 , p1_a9 VARCHAR2 := fnd_api.g_miss_char
37 , p1_a10 VARCHAR2 := fnd_api.g_miss_char
38 )
39
40 as
41 ddp_dss_entity_profile hz_dss_setup_pub.dss_entity_profile_type;
42 ddindx binary_integer; indx binary_integer;
43 begin
44
45 -- copy data to the local IN or IN-OUT args, if any
46
47 ddp_dss_entity_profile.entity_id := rosetta_g_miss_num_map(p1_a0);
48 ddp_dss_entity_profile.object_id := rosetta_g_miss_num_map(p1_a1);
49 ddp_dss_entity_profile.instance_set_id := rosetta_g_miss_num_map(p1_a2);
50 ddp_dss_entity_profile.parent_entity_id := rosetta_g_miss_num_map(p1_a3);
51 ddp_dss_entity_profile.status := p1_a4;
52 ddp_dss_entity_profile.parent_fk_column1 := p1_a5;
53 ddp_dss_entity_profile.parent_fk_column2 := p1_a6;
54 ddp_dss_entity_profile.parent_fk_column3 := p1_a7;
55 ddp_dss_entity_profile.parent_fk_column4 := p1_a8;
56 ddp_dss_entity_profile.parent_fk_column5 := p1_a9;
57 ddp_dss_entity_profile.group_assignment_level := p1_a10;
58
59
60
61
62
63 -- here's the delegated call to the old PL/SQL routine
64 hz_dss_setup_pub.create_entity_profile(p_init_msg_list,
65 ddp_dss_entity_profile,
66 x_entity_id,
67 x_return_status,
68 x_msg_count,
69 x_msg_data);
70
71 -- copy data back from the local variables to OUT or IN-OUT args, if any
72
73
74
75
76
77 end;
78
79 procedure update_entity_profile_2(p_init_msg_list VARCHAR2
80 , x_object_version_number in out nocopy NUMBER
81 , x_return_status out nocopy VARCHAR2
82 , x_msg_count out nocopy NUMBER
83 , x_msg_data out nocopy VARCHAR2
84 , p1_a0 NUMBER := 0-1962.0724
85 , p1_a1 NUMBER := 0-1962.0724
86 , p1_a2 NUMBER := 0-1962.0724
87 , p1_a3 NUMBER := 0-1962.0724
88 , p1_a4 VARCHAR2 := fnd_api.g_miss_char
89 , p1_a5 VARCHAR2 := fnd_api.g_miss_char
90 , p1_a6 VARCHAR2 := fnd_api.g_miss_char
91 , p1_a7 VARCHAR2 := fnd_api.g_miss_char
92 , p1_a8 VARCHAR2 := fnd_api.g_miss_char
93 , p1_a9 VARCHAR2 := fnd_api.g_miss_char
94 , p1_a10 VARCHAR2 := fnd_api.g_miss_char
95 )
96
97 as
98 ddp_dss_entity_profile hz_dss_setup_pub.dss_entity_profile_type;
99 ddindx binary_integer; indx binary_integer;
100 begin
101
102 -- copy data to the local IN or IN-OUT args, if any
103
104 ddp_dss_entity_profile.entity_id := rosetta_g_miss_num_map(p1_a0);
105 ddp_dss_entity_profile.object_id := rosetta_g_miss_num_map(p1_a1);
106 ddp_dss_entity_profile.instance_set_id := rosetta_g_miss_num_map(p1_a2);
107 ddp_dss_entity_profile.parent_entity_id := rosetta_g_miss_num_map(p1_a3);
108 ddp_dss_entity_profile.status := p1_a4;
109 ddp_dss_entity_profile.parent_fk_column1 := p1_a5;
110 ddp_dss_entity_profile.parent_fk_column2 := p1_a6;
111 ddp_dss_entity_profile.parent_fk_column3 := p1_a7;
112 ddp_dss_entity_profile.parent_fk_column4 := p1_a8;
113 ddp_dss_entity_profile.parent_fk_column5 := p1_a9;
114 ddp_dss_entity_profile.group_assignment_level := p1_a10;
115
116
117
118
119
120 -- here's the delegated call to the old PL/SQL routine
121 hz_dss_setup_pub.update_entity_profile(p_init_msg_list,
122 ddp_dss_entity_profile,
123 x_object_version_number,
124 x_return_status,
125 x_msg_count,
126 x_msg_data);
127
128 -- copy data back from the local variables to OUT or IN-OUT args, if any
129
130
131
132
133
134 end;
135
136 procedure create_scheme_function_3(p_init_msg_list VARCHAR2
137 , x_return_status out nocopy VARCHAR2
138 , x_msg_count out nocopy NUMBER
139 , x_msg_data out nocopy VARCHAR2
140 , p1_a0 VARCHAR2 := fnd_api.g_miss_char
141 , p1_a1 VARCHAR2 := fnd_api.g_miss_char
142 , p1_a2 NUMBER := 0-1962.0724
143 , p1_a3 VARCHAR2 := fnd_api.g_miss_char
144 )
145
146 as
147 ddp_dss_scheme_function hz_dss_setup_pub.dss_scheme_function_type;
148 ddindx binary_integer; indx binary_integer;
149 begin
150
151 -- copy data to the local IN or IN-OUT args, if any
152
153 ddp_dss_scheme_function.security_scheme_code := p1_a0;
154 ddp_dss_scheme_function.data_operation_code := p1_a1;
155 ddp_dss_scheme_function.function_id := rosetta_g_miss_num_map(p1_a2);
156 ddp_dss_scheme_function.status := p1_a3;
157
158
159
160
161 -- here's the delegated call to the old PL/SQL routine
162 hz_dss_setup_pub.create_scheme_function(p_init_msg_list,
163 ddp_dss_scheme_function,
164 x_return_status,
165 x_msg_count,
166 x_msg_data);
167
168 -- copy data back from the local variables to OUT or IN-OUT args, if any
169
170
171
172
173 end;
174
175 procedure update_scheme_function_4(p_init_msg_list VARCHAR2
176 , x_object_version_number in out nocopy NUMBER
177 , x_return_status out nocopy VARCHAR2
178 , x_msg_count out nocopy NUMBER
179 , x_msg_data out nocopy VARCHAR2
180 , p1_a0 VARCHAR2 := fnd_api.g_miss_char
181 , p1_a1 VARCHAR2 := fnd_api.g_miss_char
182 , p1_a2 NUMBER := 0-1962.0724
183 , p1_a3 VARCHAR2 := fnd_api.g_miss_char
184 )
185
186 as
187 ddp_dss_scheme_function hz_dss_setup_pub.dss_scheme_function_type;
188 ddindx binary_integer; indx binary_integer;
189 begin
190
191 -- copy data to the local IN or IN-OUT args, if any
192
193 ddp_dss_scheme_function.security_scheme_code := p1_a0;
194 ddp_dss_scheme_function.data_operation_code := p1_a1;
195 ddp_dss_scheme_function.function_id := rosetta_g_miss_num_map(p1_a2);
196 ddp_dss_scheme_function.status := p1_a3;
197
198
199
200
201
202 -- here's the delegated call to the old PL/SQL routine
203 hz_dss_setup_pub.update_scheme_function(p_init_msg_list,
204 ddp_dss_scheme_function,
205 x_object_version_number,
206 x_return_status,
207 x_msg_count,
208 x_msg_data);
209
210 -- copy data back from the local variables to OUT or IN-OUT args, if any
211
212
213
214
215
216 end;
217
218 end hz_dss_setup_pub_w;