PACKAGE BODY: APPS.IEM_PREPENQDEQ_PUB_W

Source

1 package body iem_prepenqdeq_pub_w as
2   /* $Header: IEMVPEQB.pls 115.2 2000/03/04 11:11:21 pkm ship      $ */
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 proc_enqueue(p_api_version_number  NUMBER
23     , p_init_msg_list  VARCHAR2
24     , p_commit  VARCHAR2
25     , p_msg_id  NUMBER
26     , p_msg_size  NUMBER
27     , p_sender_name  VARCHAR2
28     , p_user_name  VARCHAR2
29     , p_domain_name  VARCHAR2
30     , p_priority  VARCHAR2
31     , p_msg_status  VARCHAR2
32     , p_subject VARCHAR2
33     , p_sent_date  date
34     , p_customer_id  NUMBER
35     , p_product_id  NUMBER
36     , p_classification  VARCHAR2
37     , p_score_percent  NUMBER
38     , p_info_id  NUMBER
39     , p_key1  VARCHAR2
40     , p_val1  VARCHAR2
41     , p_key2  VARCHAR2
42     , p_val2  VARCHAR2
43     , p_key3  VARCHAR2
44     , p_val3  VARCHAR2
45     , p_key4  VARCHAR2
46     , p_val4  VARCHAR2
47     , p_key5  VARCHAR2
48     , p_val5  VARCHAR2
49     , p_key6  VARCHAR2
50     , p_val6  VARCHAR2
51     , p_key7  VARCHAR2
52     , p_val7  VARCHAR2
53     , p_key8  VARCHAR2
54     , p_val8  VARCHAR2
55     , p_key9  VARCHAR2
56     , p_val9  VARCHAR2
57     , p_key10  VARCHAR2
58     , p_val10  VARCHAR2
59     , x_msg_count out  NUMBER
60     , x_return_status out  VARCHAR2
61     , x_msg_data out  VARCHAR2
62   )
63   as
64     ddp_sent_date date;
65     ddindx binary_integer; indx binary_integer;
66   begin
67 
68     -- copy data to the local IN or IN-OUT args, if any
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79     ddp_sent_date := rosetta_g_miss_date_in_map(p_sent_date);
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109     -- here's the delegated call to the old PL/SQL routine
110     iem_prepenqdeq_pub.proc_enqueue(p_api_version_number,
111       p_init_msg_list,
112       p_commit,
113       p_msg_id,
114       p_msg_size,
115       p_sender_name,
116       p_user_name,
117       p_domain_name,
118       p_priority,
119       p_msg_status,
120       p_subject,
121       ddp_sent_date,
122       p_customer_id,
123       p_product_id,
124       p_classification,
125       p_score_percent,
126       p_info_id,
127       p_key1,
128       p_val1,
129       p_key2,
130       p_val2,
131       p_key3,
132       p_val3,
133       p_key4,
134       p_val4,
135       p_key5,
136       p_val5,
137       p_key6,
138       p_val6,
139       p_key7,
140       p_val7,
141       p_key8,
142       p_val8,
143       p_key9,
144       p_val9,
145       p_key10,
146       p_val10,
147       x_msg_count,
148       x_return_status,
149       x_msg_data);
150 
151     -- copy data back from the local OUT or IN-OUT args, if any
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190   end;
191 
192 end iem_prepenqdeq_pub_w;