[Home] [Help]
PACKAGE BODY: APPS.POS_DROP_SHIP_PVT
Source
1 PACKAGE BODY POS_DROP_SHIP_PVT AS
2 /* $Header: POSVDROB.pls 120.1 2006/07/28 23:01:45 abtrived noship $ */
3
4 /*=======================================================================+
5 | FILENAME
6 | POSVDROB.pls
7 |
8 | DESCRIPTION
9 | PL/SQL body for package: POS_DROP_SHIP_PVT
10 |
11 *=====================================================================*/
12
13
14
15 procedure get_drop_ship_info ( p_po_header_id in number,
16 p_po_line_id in number,
17 p_line_location_id in number,
18 p_po_release_id in number,
19 x_customer_name out nocopy varchar2,
20 x_contact_name out nocopy varchar2,
21 x_customer_loc out nocopy varchar2,
22 x_contact_phone out nocopy varchar2,
23 x_contact_fax out nocopy varchar2,
24 x_contact_email out nocopy varchar2,
25 x_ship_method out nocopy varchar2,
26 x_ship_instruct out nocopy varchar2,
27 x_pack_instruct out nocopy varchar2,
28 x_cust_po_num out nocopy varchar2,
29 x_cust_line_num out nocopy varchar2,
30 x_cust_ship_num out nocopy varchar2,
31 x_product_desc out nocopy varchar2,
32 x_delto_customer_name out nocopy varchar2,
33 x_delto_contact_name out nocopy varchar2,
34 x_delto_contact_phone out nocopy varchar2,
35 x_delto_contact_fax out nocopy varchar2,
36 x_delto_contact_email out nocopy varchar2,
37 x_delto_address1 out nocopy varchar2,
38 x_delto_address2 out nocopy varchar2,
39 x_delto_city out nocopy varchar2,
40 x_delto_state out nocopy varchar2,
41 x_delto_zip out nocopy varchar2,
42 x_delto_country out nocopy varchar2,
43 x_return_status out nocopy varchar2,
44 x_msg_data out nocopy varchar2)
45 is
46 l_drop_ship_rec OE_DROP_SHIP_GRP.Order_Line_Info_Rec_Type;
47 l_delto_addr varchar2(2000);
48 l_msg_count number;
49 l_return_status varchar2(100);
50 l_delto_addr3 varchar2(100);
51 l_delto_addr4 varchar2(100);
52 l_org_id number;
53
54 begin
55
56 -- fix for bug 5417691 - adding code to set org_context
57 select org_id
58 into l_org_id
59 from po_headers_all
60 where po_header_id = p_po_header_id;
61
62 fnd_client_info.set_org_context(to_char(l_org_id));
63 -- end fix
64
65 OE_DROP_SHIP_GRP.Get_Order_Line_Info
66 (p_api_version => 1.0,
67 p_po_header_id => p_po_header_id,
68 p_po_line_id => p_po_line_id,
69 p_po_line_location_id => p_line_location_id,
70 p_po_release_id => p_po_release_id,
71 p_mode => 2,
72 x_order_line_info_rec => l_drop_ship_rec,
73 x_msg_data => x_msg_data,
74 x_msg_count => l_msg_count,
75 x_return_status => x_return_status
76 );
77
78 if (x_return_status = 'S' or x_return_status IS NULL) then
79 x_customer_name := l_drop_ship_rec.ship_to_customer_name;
80 x_contact_name := l_drop_ship_rec.ship_to_contact_name;
81 x_customer_loc := l_drop_ship_rec.ship_to_customer_location;
82 x_contact_phone := l_drop_ship_rec.ship_to_contact_phone;
83 x_contact_fax := l_drop_ship_rec.ship_to_contact_fax;
84 x_contact_email := l_drop_ship_rec.ship_to_contact_email;
85 x_ship_method := l_drop_ship_rec.shipping_method;
86 x_ship_instruct := l_drop_ship_rec.shipping_instructions;
87 x_pack_instruct := l_drop_ship_rec.packing_instructions;
88 x_product_desc := l_drop_ship_rec.customer_product_description;
89 x_cust_po_num := l_drop_ship_rec.customer_po_number;
90 x_cust_line_num := l_drop_ship_rec.customer_po_line_number;
91 x_cust_ship_num := l_drop_ship_rec.customer_po_shipment_number;
92 x_delto_customer_name := l_drop_ship_rec.deliver_to_customer_name;
93 x_delto_contact_name := l_drop_ship_rec.deliver_to_contact_name;
94 x_delto_contact_phone := l_drop_ship_rec.deliver_to_contact_phone;
95 x_delto_contact_fax := l_drop_ship_rec.deliver_to_contact_fax;
96 x_delto_contact_email := l_drop_ship_rec.deliver_to_contact_email;
97 l_delto_addr := l_drop_ship_rec.deliver_to_customer_address;
98
99 x_delto_address1 := l_drop_ship_rec.deliver_to_customer_address1;
100 x_delto_address2 := l_drop_ship_rec.deliver_to_customer_address2;
101 l_delto_addr3 := l_drop_ship_rec.deliver_to_customer_address3;
102 if (l_delto_addr3 is not null) then
103 x_delto_address2 := x_delto_address2 || ' ' || l_delto_addr3;
104 end if;
105 l_delto_addr4 := l_drop_ship_rec.deliver_to_customer_address4;
106 if (l_delto_addr4 is not null) then
107 x_delto_address2 := x_delto_address2 || ' ' || l_delto_addr4;
108 end if;
109
110 x_delto_city := l_drop_ship_rec.deliver_to_customer_city;
111 x_delto_state := l_drop_ship_rec.deliver_to_customer_state;
112 x_delto_zip := l_drop_ship_rec.deliver_to_customer_zip;
113 x_delto_country := l_drop_ship_rec.deliver_to_customer_country;
114 end if;
115
116 exception
117 when others then
118 raise_application_error(-20001, 'get_drop_ship_info: '||x_return_status||' '||x_msg_data||' ' ||SQLERRM,true);
119
120
121 end get_drop_ship_info;
122
123
124 procedure get_drop_ship_xml_info (p_po_header_id in number,
125 p_po_line_id in number,
126 p_line_location_id in number,
127 p_po_release_id in number,
128 x_customer_name out nocopy varchar2,
129 x_contact_name out nocopy varchar2,
130 x_contact_phone out nocopy varchar2,
131 x_contact_fax out nocopy varchar2,
132 x_contact_email out nocopy varchar2,
133 x_ship_method out nocopy varchar2,
134 x_ship_instruct out nocopy varchar2,
135 x_pack_instruct out nocopy varchar2,
136 x_cust_po_num out nocopy varchar2,
137 x_cust_line_num out nocopy varchar2,
138 x_cust_ship_num out nocopy varchar2,
139 x_product_desc out nocopy varchar2,
140 x_delto_customer_name out nocopy varchar2,
141 x_delto_customer_addr out nocopy varchar2,
142 x_delto_customer_loc out nocopy varchar2,
143 x_delto_contact_name out nocopy varchar2,
144 x_delto_contact_phone out nocopy varchar2,
145 x_delto_contact_fax out nocopy varchar2,
146 x_delto_contact_email out nocopy varchar2)
147
148 is
149 l_drop_ship_rec OE_DROP_SHIP_GRP.Order_Line_Info_Rec_Type;
150 l_msg_data varchar2(2000);
151 l_msg_count number;
152 l_return_status varchar2(100);
153 l_org_id number;
154
155 begin
156
157 -- fix for bug 5417691 - adding code to set org_context
158 select org_id
159 into l_org_id
160 from po_headers_all
161 where po_header_id = p_po_header_id;
162
163 fnd_client_info.set_org_context(to_char(l_org_id));
164 -- end fix
165
166 OE_DROP_SHIP_GRP.Get_Order_Line_Info
167 (p_api_version => 1.0,
168 p_po_header_id => p_po_header_id,
169 p_po_line_id => p_po_line_id,
170 p_po_line_location_id => p_line_location_id,
171 p_po_release_id => p_po_release_id,
172 p_mode => 2,
173 x_order_line_info_rec => l_drop_ship_rec,
174 x_msg_data => l_msg_data,
175 x_msg_count => l_msg_count,
176 x_return_status => l_return_status
177 );
178
179 if (l_return_status = 'S' or l_return_status IS NULL) then
180 x_customer_name := l_drop_ship_rec.ship_to_customer_name;
181 x_contact_name := l_drop_ship_rec.ship_to_contact_name;
182 x_contact_phone := l_drop_ship_rec.ship_to_contact_phone;
183 x_contact_fax := l_drop_ship_rec.ship_to_contact_fax;
184 x_contact_email := l_drop_ship_rec.ship_to_contact_email;
185 x_ship_method := l_drop_ship_rec.shipping_method;
186 x_ship_instruct := l_drop_ship_rec.shipping_instructions;
187 x_pack_instruct := l_drop_ship_rec.packing_instructions;
188 x_product_desc := l_drop_ship_rec.customer_product_description;
189 x_cust_po_num := l_drop_ship_rec.customer_po_number;
190 x_cust_line_num := l_drop_ship_rec.customer_po_line_number;
191 x_cust_ship_num := l_drop_ship_rec.customer_po_shipment_number;
192 x_delto_customer_name := l_drop_ship_rec.deliver_to_customer_name;
193 x_delto_customer_addr := l_drop_ship_rec.deliver_to_customer_address;
194 x_delto_customer_loc := l_drop_ship_rec.deliver_to_customer_Location;
195 x_delto_contact_name := l_drop_ship_rec.deliver_to_contact_name;
196 x_delto_contact_phone := l_drop_ship_rec.deliver_to_contact_phone;
197 x_delto_contact_fax := l_drop_ship_rec.deliver_to_contact_fax;
198 x_delto_contact_email := l_drop_ship_rec.deliver_to_contact_email;
199 end if;
200
201 exception
202 when others then
203 wf_core.context('POS_DROP_SHIP_PVT','get_drop_ship_xml_info',SQLERRM);
204 null; --We don't want to raise the exception here as it will stop generation of XML
205
206 end get_drop_ship_xml_info;
207
208 end POS_DROP_SHIP_PVT;