[Home] [Help]
PACKAGE: APPS.GR_PROCESS_ORDERS
Source
1 PACKAGE GR_PROCESS_ORDERS AUTHID CURRENT_USER AS
2 /*$Header: GRPORDRS.pls 115.20 2003/08/20 20:45:54 methomas ship $*/
3
4 /*
5 ** Global Alpha variables
6 */
7 G_PKG_NAME CONSTANT VARCHAR2(30) := 'GR_PROCESS_DOCUMENTS';
8 G_BATCH_NUMBER GR_SELECTION_HEADER.batch_no%TYPE;
9 G_RECIPIENT_CODE GR_RECIPIENT_INFO.recipient_code%TYPE;
10 G_ITEM_CODE GR_ITEM_GENERAL.item_code%TYPE;
11 G_SHIPMENT_NUMBER OP_BILL_LAD.bol_no%TYPE;
12
13 G_NO_CUSTOMER_PRINT VARCHAR2(1);
14 G_DEFAULT_COUNTRY FND_TERRITORIES.territory_code%TYPE;
15 G_DEFAULT_DOCUMENT GR_DOCUMENT_CODES.document_code%TYPE;
16 G_DEFAULT_ORGN SY_ORGN_MST.orgn_code%TYPE;
17 G_DEFAULT_WHSE MTL_PARAMETERS.process_orgn_code%TYPE;
18 G_DEFAULT_ORGID MTL_PARAMETERS.organization_id%TYPE;
19
20 G_CUST_NAME OP_CUST_MST.cust_name%TYPE;
21 G_ADDR1 SY_ADDR_MST_V.addr1%TYPE;
22 G_ADDR2 SY_ADDR_MST_V.addr2%TYPE;
23 G_ADDR3 SY_ADDR_MST_V.addr3%TYPE;
24 G_ADDR4 SY_ADDR_MST_V.addr4%TYPE;
25 G_STATE_CODE SY_ADDR_MST_V.state_code%TYPE;
26 G_COUNTRY_CODE SY_ADDR_MST_V.country_code%TYPE;
27 G_POSTAL_CODE SY_ADDR_MST_V.postal_code%TYPE;
28
29 /*
30 ** Global numeric variables
31 */
32 G_ORDER_NUMBER OP_ORDR_DTL.order_id%TYPE;
33 G_ORDER_LINE GR_ORDER_INFO_V.line_no%TYPE;
34 G_LINE_NUMBER GR_WORK_WORKSHEETS.text_line_number%TYPE;
35 G_SESSION_ID GR_WORK_WORKSHEETS.session_id%TYPE;
36
37 /* 17-Jun-2003 Mercy Thomas BUG 2932007 - Added the following Global Variables for Document Management */
38
39 G_ORDER_NO GR_ORDER_INFO_V.order_no%TYPE;
40 G_DOC_ITEM_CODE GR_ITEM_GENERAL.ITEM_CODE%TYPE;
41 G_REPORT_TYPE NUMBER:=0;
42 G_COVER_LETTER VARCHAR2(2) := 'N';
43
44 /* 17-Jun-2003 Mercy Thomas BUG 2932007 - End of code changes */
45
46 /*
47 ** Global concurrent request return values
48 */
49 G_PRINT_STATUS BOOLEAN;
50 G_CONCURRENT_ID NUMBER;
51
52 /*
53 ** Global cursors
54 **
55 ** Get the batch header information
56 */
57 CURSOR g_get_batch_status
58 IS
59 SELECT sh.status,
60 sh.order_from,
61 sh.order_to,
62 sh.shipment_from,
63 sh.shipment_to,
64 sh.shipment_date_from,
65 sh.shipment_date_to,
66 sh.orgn_code,
67 sh.whse_code,
68 sh.territory_code
69 FROM gr_selection_header sh
70 WHERE sh.batch_no = g_batch_number;
71 GlobalBatchHeader g_get_batch_status%ROWTYPE;
72 /*
73 ** Get the item general information
74 */
75 CURSOR g_get_item_safety
76 IS
77 SELECT ig1.primary_cas_number,
78 ig1.formula_source_indicator,
79 ig1.ingredient_flag,
80 ig1.print_ingredient_phrases_flag
81 FROM gr_item_general ig1
82 WHERE ig1.item_code = g_item_code;
83 GlobalSafetyRecord g_get_item_safety%ROWTYPE;
84 /*
85 ** Get the generic item information
86 */
87 CURSOR g_get_generic_item
88 IS
89 SELECT ig1.primary_cas_number,
90 ig1.formula_source_indicator,
91 ig1.ingredient_flag,
92 ig1.print_ingredient_phrases_flag,
93 ig1.item_code,
94 gi.item_no,
95 gi.default_document_name_flag
96 FROM gr_item_general ig1,
97 gr_generic_items_b gi
98 WHERE gi.item_no = g_item_code
99 AND gi.item_code = ig1.item_code;
100 GlobalGenericRecord g_get_generic_item%ROWTYPE;
101 /*
102 ** Get the recipient information
103 */
104 CURSOR g_get_recipient
105 IS
106 SELECT ri.recipient_code,
107 ri.recipient_name,
108 ri.document_code,
109 ri.document_print_frequency,
110 ri.disclosure_code,
111 ri.region_code,
112 ri.territory_code,
113 ri.shipping_address,
114 ri.invoice_address,
115 ri.additional_address_flag,
116 cp.language
117 FROM gr_recipient_info ri,
118 gr_country_profiles cp
119 WHERE ri.recipient_code = g_recipient_code
120 AND ri.territory_code = cp.territory_code;
121 GlobalRecipient g_get_recipient%ROWTYPE;
122 /*
123 ** Get the country profile info
124 */
125 CURSOR g_get_country_profile
126 IS
127 SELECT cp.label_code_exposure,
128 cp.label_code_toxic,
129 cp.disclosure_code,
130 cp.language,
131 cp.document_code
132 FROM gr_country_profiles cp
133 WHERE cp.territory_code = g_default_country;
134 GlobalCountryRecord g_get_country_profile%ROWTYPE;
135 /* Bug #2286375 GK
136 ** Get the recipient other addresses
137 */
138 CURSOR g_get_other_addresses
139 IS
140 SELECT ra.addr_id,
141 am.addr1
142 FROM gr_recipient_addresses ra,
143 sy_addr_mst_v am
144 WHERE ra.recipient_code = g_recipient_code
145 AND ra.addr_id = am.addr_id;
146 GlobalOtherAddrRecord g_get_other_addresses%ROWTYPE;
147
148
149 /*
150 ** Get the region language details
151 */
152 CURSOR g_get_region_language
153 IS
154 SELECT rl.language
155 FROM gr_region_languages rl
156 WHERE rl.region_code = GlobalRecipient.region_code;
157 GlobalRgnLangRecord g_get_region_language%ROWTYPE;
158
159 /*
160 ** Process_all_flag values: 0 - Do not process all.
161 ** 1 - Process all, accept selections.
162 ** 2 - Rerun the batch.
163 ** 3 - Restart the batch.
164 */
165 PROCEDURE Build_OPM_Selections
166 (errbuf OUT NOCOPY VARCHAR2,
167 retcode OUT NOCOPY VARCHAR2,
168 p_commit IN VARCHAR2,
169 p_init_msg_list IN VARCHAR2,
170 p_validation_level IN NUMBER,
171 p_api_version IN NUMBER,
172 p_batch_number IN NUMBER,
173 p_process_all_flag IN NUMBER,
174 p_printer IN VARCHAR2,
175 p_user_print_style IN VARCHAR2,
176 p_number_of_copies IN NUMBER,
177 p_return_status OUT NOCOPY VARCHAR2,
178 p_msg_count OUT NOCOPY NUMBER,
179 p_msg_data OUT NOCOPY VARCHAR2);
180 PROCEDURE Process_Selections
181 (errbuf OUT NOCOPY VARCHAR2,
182 retcode OUT NOCOPY VARCHAR2,
183 p_commit IN VARCHAR2,
184 p_called_by_form IN VARCHAR2,
185 p_init_msg_list IN VARCHAR2,
186 p_validation_level IN NUMBER,
187 p_api_version IN NUMBER,
188 p_batch_number IN NUMBER,
189 p_process_all_flag IN NUMBER,
190 p_printer IN VARCHAR2,
191 p_user_print_style IN VARCHAR2,
192 p_number_of_copies IN NUMBER,
193 x_return_status OUT NOCOPY VARCHAR2,
194 x_msg_count OUT NOCOPY NUMBER,
195 x_msg_data OUT NOCOPY VARCHAR2);
196 PROCEDURE Update_Dispatch_History
197 (errbuf OUT NOCOPY VARCHAR2,
198 retcode OUT NOCOPY VARCHAR2,
199 p_commit IN VARCHAR2,
200 p_init_msg_list IN VARCHAR2,
201 p_validation_level IN NUMBER,
202 p_api_version IN NUMBER,
203 p_batch_number IN NUMBER,
204 x_return_status OUT NOCOPY VARCHAR2,
205 x_msg_count OUT NOCOPY NUMBER,
206 x_msg_data OUT NOCOPY VARCHAR2);
207 PROCEDURE Print_Recipients
208 (errbuf OUT NOCOPY VARCHAR2,
209 retcode OUT NOCOPY VARCHAR2,
210 p_recipient_from IN VARCHAR2,
211 p_recipient_to IN VARCHAR2,
212 p_item_code_from IN VARCHAR2,
213 p_item_code_to IN VARCHAR2,
214 p_changed_after IN VARCHAR2,
215 p_printer IN VARCHAR2,
216 p_user_print_style IN VARCHAR2,
217 p_number_of_copies IN NUMBER,
218 p_items_to_print IN VARCHAR2,
219 x_return_status OUT NOCOPY VARCHAR2,
220 x_msg_count OUT NOCOPY NUMBER,
221 x_msg_data OUT NOCOPY VARCHAR2);
222 PROCEDURE Insert_Selection_Row
223 (p_message_code IN VARCHAR2,
224 p_token_name IN VARCHAR2,
225 p_token_value IN VARCHAR2,
226 p_order_id IN NUMBER,
227 p_order_line_number IN NUMBER,
228 p_document_code IN VARCHAR2,
229 p_print_flag IN VARCHAR2,
230 p_cust_no IN VARCHAR2,
231 p_shipment_no IN VARCHAR2,
232 x_return_status OUT NOCOPY VARCHAR2);
233 PROCEDURE Check_Selected_Line
234 (x_return_status OUT NOCOPY VARCHAR2,
235 x_msg_count OUT NOCOPY NUMBER,
236 x_msg_data OUT NOCOPY VARCHAR2);
237 PROCEDURE Read_And_Print_Cover_Letter
238 (p_language_code IN VARCHAR2,
239 p_item_code IN VARCHAR2,
240 p_recipient_code IN VARCHAR2,
241 p_print_address IN VARCHAR2,
242 p_order_no IN NUMBER,
243 p_other_addr_id IN NUMBER,
244 x_return_status OUT NOCOPY VARCHAR2);
245 PROCEDURE Print_Document_Selection
246 (p_document_code IN VARCHAR2,
247 p_item_code IN VARCHAR2,
248 p_language_code IN VARCHAR2,
249 p_disclosure_code IN VARCHAR2,
250 x_return_status OUT NOCOPY VARCHAR2);
251 PROCEDURE Insert_Work_Row
252 (p_item_code IN VARCHAR2,
253 p_print_font IN VARCHAR2,
254 p_print_size IN NUMBER,
255 p_text_line IN VARCHAR2,
256 p_line_type IN VARCHAR2,
257 x_return_status OUT NOCOPY VARCHAR2);
258 PROCEDURE Submit_Print_Request
259 (p_printer IN VARCHAR2,
260 p_user_print_style IN VARCHAR2,
261 p_number_of_copies IN NUMBER,
262 p_default_document IN VARCHAR2,
263 p_language_code IN VARCHAR2,
264 x_return_status OUT NOCOPY VARCHAR2);
265 PROCEDURE Handle_Error_Messages
266 (p_message_code IN VARCHAR2,
267 p_token_name IN VARCHAR2,
268 p_token_value IN VARCHAR2,
269 x_msg_count IN OUT NOCOPY NUMBER,
270 x_msg_data IN OUT NOCOPY VARCHAR2,
271 x_return_status OUT NOCOPY VARCHAR2);
272 END GR_PROCESS_ORDERS;