[Home] [Help]
PACKAGE BODY: APPS.AS_INTEREST_TYPES_PUB_W
Source
1 package body as_interest_types_pub_w as
2 /* $Header: asxwinyb.pls 115.0 2003/10/09 14:52:58 gbatra 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_interest_type(p_api_version_number NUMBER
23 , p_init_msg_list VARCHAR2
24 , p_commit VARCHAR2
25 , p_validation_level NUMBER
26 , x_return_status out nocopy VARCHAR2
27 , x_msg_count out nocopy NUMBER
28 , x_msg_data out nocopy VARCHAR2
29 , x_interest_type_id out nocopy NUMBER
30 , p7_a0 NUMBER := 0-1962.0724
31 , p7_a1 DATE := fnd_api.g_miss_date
32 , p7_a2 NUMBER := 0-1962.0724
33 , p7_a3 DATE := fnd_api.g_miss_date
34 , p7_a4 NUMBER := 0-1962.0724
35 , p7_a5 NUMBER := 0-1962.0724
36 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
37 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
38 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
39 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
40 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
41 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
42 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
43 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
44 , p7_a14 NUMBER := 0-1962.0724
45 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
46 , p7_a16 NUMBER := 0-1962.0724
47 , p7_a17 NUMBER := 0-1962.0724
48 )
49
50 as
51 ddp_interest_type_rec as_interest_types_pub.interest_type_rec_type;
52 ddindx binary_integer; indx binary_integer;
53 begin
54
55 -- copy data to the local IN or IN-OUT args, if any
56
57
58
59
60
61
62
63 ddp_interest_type_rec.interest_type_id := rosetta_g_miss_num_map(p7_a0);
64 ddp_interest_type_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
65 ddp_interest_type_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
66 ddp_interest_type_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
67 ddp_interest_type_rec.created_by := rosetta_g_miss_num_map(p7_a4);
68 ddp_interest_type_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
69 ddp_interest_type_rec.master_enabled_flag := p7_a6;
70 ddp_interest_type_rec.interest_type := p7_a7;
71 ddp_interest_type_rec.company_classification_flag := p7_a8;
72 ddp_interest_type_rec.contact_interest_flag := p7_a9;
73 ddp_interest_type_rec.lead_classification_flag := p7_a10;
74 ddp_interest_type_rec.expected_purchase_flag := p7_a11;
75 ddp_interest_type_rec.current_environment_flag := p7_a12;
76 ddp_interest_type_rec.enabled_flag := p7_a13;
77 ddp_interest_type_rec.org_id := rosetta_g_miss_num_map(p7_a14);
78 ddp_interest_type_rec.description := p7_a15;
79 ddp_interest_type_rec.prod_cat_set_id := rosetta_g_miss_num_map(p7_a16);
80 ddp_interest_type_rec.prod_cat_id := rosetta_g_miss_num_map(p7_a17);
81
82
83 -- here's the delegated call to the old PL/SQL routine
84 as_interest_types_pub.create_interest_type(p_api_version_number,
85 p_init_msg_list,
86 p_commit,
87 p_validation_level,
88 x_return_status,
89 x_msg_count,
90 x_msg_data,
91 ddp_interest_type_rec,
92 x_interest_type_id);
93
94 -- copy data back from the local variables to OUT or IN-OUT args, if any
95
96
97
98
99
100
101
102
103 end;
104
105 procedure update_interest_type(p_api_version_number NUMBER
106 , p_init_msg_list VARCHAR2
107 , p_commit VARCHAR2
108 , p_validation_level NUMBER
109 , x_return_status out nocopy VARCHAR2
110 , x_msg_count out nocopy NUMBER
111 , x_msg_data out nocopy VARCHAR2
112 , p7_a0 NUMBER := 0-1962.0724
113 , p7_a1 DATE := fnd_api.g_miss_date
114 , p7_a2 NUMBER := 0-1962.0724
115 , p7_a3 DATE := fnd_api.g_miss_date
116 , p7_a4 NUMBER := 0-1962.0724
117 , p7_a5 NUMBER := 0-1962.0724
118 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
119 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
120 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
121 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
122 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
123 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
124 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
125 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
126 , p7_a14 NUMBER := 0-1962.0724
127 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
128 , p7_a16 NUMBER := 0-1962.0724
129 , p7_a17 NUMBER := 0-1962.0724
130 )
131
132 as
133 ddp_interest_type_rec as_interest_types_pub.interest_type_rec_type;
134 ddindx binary_integer; indx binary_integer;
135 begin
136
137 -- copy data to the local IN or IN-OUT args, if any
138
139
140
141
142
143
144
145 ddp_interest_type_rec.interest_type_id := rosetta_g_miss_num_map(p7_a0);
146 ddp_interest_type_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
147 ddp_interest_type_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
148 ddp_interest_type_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
149 ddp_interest_type_rec.created_by := rosetta_g_miss_num_map(p7_a4);
150 ddp_interest_type_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
151 ddp_interest_type_rec.master_enabled_flag := p7_a6;
152 ddp_interest_type_rec.interest_type := p7_a7;
153 ddp_interest_type_rec.company_classification_flag := p7_a8;
154 ddp_interest_type_rec.contact_interest_flag := p7_a9;
155 ddp_interest_type_rec.lead_classification_flag := p7_a10;
156 ddp_interest_type_rec.expected_purchase_flag := p7_a11;
157 ddp_interest_type_rec.current_environment_flag := p7_a12;
158 ddp_interest_type_rec.enabled_flag := p7_a13;
159 ddp_interest_type_rec.org_id := rosetta_g_miss_num_map(p7_a14);
160 ddp_interest_type_rec.description := p7_a15;
161 ddp_interest_type_rec.prod_cat_set_id := rosetta_g_miss_num_map(p7_a16);
162 ddp_interest_type_rec.prod_cat_id := rosetta_g_miss_num_map(p7_a17);
163
164 -- here's the delegated call to the old PL/SQL routine
165 as_interest_types_pub.update_interest_type(p_api_version_number,
166 p_init_msg_list,
167 p_commit,
168 p_validation_level,
169 x_return_status,
170 x_msg_count,
171 x_msg_data,
172 ddp_interest_type_rec);
173
174 -- copy data back from the local variables to OUT or IN-OUT args, if any
175
176
177
178
179
180
181
182 end;
183
184 end as_interest_types_pub_w;