[Home] [Help]
PACKAGE BODY: APPS.AS_SALES_LEAD_RANKS_PUB_W
Source
1 package body as_sales_lead_ranks_pub_w as
2 /* $Header: asxwrnkb.pls 120.1 2006/01/23 11:12 solin 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_rank(p_api_version 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_sales_lead_rank_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 NUMBER := 0-1962.0724
34 , p7_a4 DATE := fnd_api.g_miss_date
35 , p7_a5 NUMBER := 0-1962.0724
36 , p7_a6 NUMBER := 0-1962.0724
37 , p7_a7 NUMBER := 0-1962.0724
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 )
42
43 as
44 ddp_sales_lead_rank_rec as_sales_lead_ranks_pub.sales_lead_rank_rec_type;
45 ddindx binary_integer; indx binary_integer;
46 begin
47
48 -- copy data to the local IN or IN-OUT args, if any
49
50
51
52
53
54
55
56 ddp_sales_lead_rank_rec.rank_id := rosetta_g_miss_num_map(p7_a0);
57 ddp_sales_lead_rank_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
58 ddp_sales_lead_rank_rec.last_update_login := rosetta_g_miss_num_map(p7_a2);
59 ddp_sales_lead_rank_rec.created_by := rosetta_g_miss_num_map(p7_a3);
60 ddp_sales_lead_rank_rec.creation_date := rosetta_g_miss_date_in_map(p7_a4);
61 ddp_sales_lead_rank_rec.last_updated_by := rosetta_g_miss_num_map(p7_a5);
62 ddp_sales_lead_rank_rec.min_score := rosetta_g_miss_num_map(p7_a6);
63 ddp_sales_lead_rank_rec.max_score := rosetta_g_miss_num_map(p7_a7);
64 ddp_sales_lead_rank_rec.enabled_flag := p7_a8;
65 ddp_sales_lead_rank_rec.meaning := p7_a9;
66 ddp_sales_lead_rank_rec.description := p7_a10;
67
68
69 -- here's the delegated call to the old PL/SQL routine
70 as_sales_lead_ranks_pub.create_rank(p_api_version,
71 p_init_msg_list,
72 p_commit,
73 p_validation_level,
74 x_return_status,
75 x_msg_count,
76 x_msg_data,
77 ddp_sales_lead_rank_rec,
78 x_sales_lead_rank_id);
79
80 -- copy data back from the local variables to OUT or IN-OUT args, if any
81
82
83
84
85
86
87
88
89 end;
90
91 procedure update_rank(p_api_version NUMBER
92 , p_init_msg_list VARCHAR2
93 , p_commit VARCHAR2
94 , p_validation_level NUMBER
95 , x_return_status out nocopy VARCHAR2
96 , x_msg_count out nocopy NUMBER
97 , x_msg_data out nocopy VARCHAR2
98 , p7_a0 NUMBER := 0-1962.0724
99 , p7_a1 DATE := fnd_api.g_miss_date
100 , p7_a2 NUMBER := 0-1962.0724
101 , p7_a3 NUMBER := 0-1962.0724
102 , p7_a4 DATE := fnd_api.g_miss_date
103 , p7_a5 NUMBER := 0-1962.0724
104 , p7_a6 NUMBER := 0-1962.0724
105 , p7_a7 NUMBER := 0-1962.0724
106 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
107 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
108 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
109 )
110
111 as
112 ddp_sales_lead_rank_rec as_sales_lead_ranks_pub.sales_lead_rank_rec_type;
113 ddindx binary_integer; indx binary_integer;
114 begin
115
116 -- copy data to the local IN or IN-OUT args, if any
117
118
119
120
121
122
123
124 ddp_sales_lead_rank_rec.rank_id := rosetta_g_miss_num_map(p7_a0);
125 ddp_sales_lead_rank_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
126 ddp_sales_lead_rank_rec.last_update_login := rosetta_g_miss_num_map(p7_a2);
127 ddp_sales_lead_rank_rec.created_by := rosetta_g_miss_num_map(p7_a3);
128 ddp_sales_lead_rank_rec.creation_date := rosetta_g_miss_date_in_map(p7_a4);
129 ddp_sales_lead_rank_rec.last_updated_by := rosetta_g_miss_num_map(p7_a5);
130 ddp_sales_lead_rank_rec.min_score := rosetta_g_miss_num_map(p7_a6);
131 ddp_sales_lead_rank_rec.max_score := rosetta_g_miss_num_map(p7_a7);
132 ddp_sales_lead_rank_rec.enabled_flag := p7_a8;
133 ddp_sales_lead_rank_rec.meaning := p7_a9;
134 ddp_sales_lead_rank_rec.description := p7_a10;
135
136 -- here's the delegated call to the old PL/SQL routine
137 as_sales_lead_ranks_pub.update_rank(p_api_version,
138 p_init_msg_list,
139 p_commit,
140 p_validation_level,
141 x_return_status,
142 x_msg_count,
143 x_msg_data,
144 ddp_sales_lead_rank_rec);
145
146 -- copy data back from the local variables to OUT or IN-OUT args, if any
147
148
149
150
151
152
153
154 end;
155
156 end as_sales_lead_ranks_pub_w;