153: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
154: FND_MESSAGE.SET_NAME('GR','GR_SHIPPING_ATTACHMENT_ERROR');
155: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL_ID', LocalDeliverydetail.delivery_detail_id, FALSE);
156: l_msg_data := FND_MESSAGE.GET;
157: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
158: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
159: END IF;
160:
161: l_user_id := NVL(FND_PROFILE.VALUE('USER_ID'),0);
154: FND_MESSAGE.SET_NAME('GR','GR_SHIPPING_ATTACHMENT_ERROR');
155: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL_ID', LocalDeliverydetail.delivery_detail_id, FALSE);
156: l_msg_data := FND_MESSAGE.GET;
157: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
158: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
159: END IF;
160:
161: l_user_id := NVL(FND_PROFILE.VALUE('USER_ID'),0);
162: /* M.Grosser 12-Apr-2005 End of changes */
166: /* Post the log with the Delivery Id for which the Shipping Report is executed */
167: FND_MESSAGE.SET_NAME('GR','GR_SHIP_CONFIRM_TEXT');
168: FND_MESSAGE.SET_TOKEN('DELIVERY_ID', p_delivery_id, FALSE);
169: l_msg_data := FND_MESSAGE.GET;
170: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
171: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
172: /* Get the attached documents for a delivery detail line */
173: OPEN c_get_attch_doc_details;
174: FETCH c_get_attch_doc_details into LocalAttachDocDetail;
167: FND_MESSAGE.SET_NAME('GR','GR_SHIP_CONFIRM_TEXT');
168: FND_MESSAGE.SET_TOKEN('DELIVERY_ID', p_delivery_id, FALSE);
169: l_msg_data := FND_MESSAGE.GET;
170: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
171: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
172: /* Get the attached documents for a delivery detail line */
173: OPEN c_get_attch_doc_details;
174: FETCH c_get_attch_doc_details into LocalAttachDocDetail;
175: /* If attached documents exists or not */
178: Close c_get_attch_doc_details;
179: FND_MESSAGE.SET_NAME('GR','GR_NO_ATTACHED_DOC_TEXT');
180: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL_ID', LocalDeliverydetail.delivery_detail_id, FALSE);
181: l_msg_data := FND_MESSAGE.GET;
182: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
183: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
184: ELSE
185: /* Attached documents exists for the delivery detail line */
186: WHILE c_get_attch_doc_details%FOUND LOOP
179: FND_MESSAGE.SET_NAME('GR','GR_NO_ATTACHED_DOC_TEXT');
180: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL_ID', LocalDeliverydetail.delivery_detail_id, FALSE);
181: l_msg_data := FND_MESSAGE.GET;
182: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
183: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
184: ELSE
185: /* Attached documents exists for the delivery detail line */
186: WHILE c_get_attch_doc_details%FOUND LOOP
187: /* Submit the java concurrent program, to print the attached document to an output file */
203: /* Java concurrent program failed, to print the attached document to an output file */
204: FND_MESSAGE.SET_NAME('GR','GR_CONC_REQ_PRINT_SHIP');
205: FND_MESSAGE.SET_TOKEN('FILE_NAME', LocalAttachDocDetail.file_name, FALSE);
206: l_msg_data := FND_MESSAGE.GET;
207: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
208: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
209: ELSE
210:
211: /* Java concurrent program was succesfull, therefore, post the information with regard to the delivery details and the attached documents to the log */
204: FND_MESSAGE.SET_NAME('GR','GR_CONC_REQ_PRINT_SHIP');
205: FND_MESSAGE.SET_TOKEN('FILE_NAME', LocalAttachDocDetail.file_name, FALSE);
206: l_msg_data := FND_MESSAGE.GET;
207: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
208: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
209: ELSE
210:
211: /* Java concurrent program was succesfull, therefore, post the information with regard to the delivery details and the attached documents to the log */
212: FND_MESSAGE.SET_NAME('GR','GR_REG_DOC_PRINT_TEXT');
210:
211: /* Java concurrent program was succesfull, therefore, post the information with regard to the delivery details and the attached documents to the log */
212: FND_MESSAGE.SET_NAME('GR','GR_REG_DOC_PRINT_TEXT');
213: l_msg_data := FND_MESSAGE.GET;
214: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
215: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
216: /* Post the Delivery Detail ID to the log for which the document was printed */
217: FND_MESSAGE.SET_NAME('GR','GR_DELIVERY_DETAIL_ID_TEXT');
218: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL_ID', LocalDeliverydetail.delivery_detail_id, FALSE);
211: /* Java concurrent program was succesfull, therefore, post the information with regard to the delivery details and the attached documents to the log */
212: FND_MESSAGE.SET_NAME('GR','GR_REG_DOC_PRINT_TEXT');
213: l_msg_data := FND_MESSAGE.GET;
214: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
215: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
216: /* Post the Delivery Detail ID to the log for which the document was printed */
217: FND_MESSAGE.SET_NAME('GR','GR_DELIVERY_DETAIL_ID_TEXT');
218: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL_ID', LocalDeliverydetail.delivery_detail_id, FALSE);
219: l_msg_data := FND_MESSAGE.GET;
216: /* Post the Delivery Detail ID to the log for which the document was printed */
217: FND_MESSAGE.SET_NAME('GR','GR_DELIVERY_DETAIL_ID_TEXT');
218: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL_ID', LocalDeliverydetail.delivery_detail_id, FALSE);
219: l_msg_data := FND_MESSAGE.GET;
220: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
221: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
222:
223: /* Post the Delivery Detail ID to the log for which the document was printed */
224: FND_MESSAGE.SET_NAME('GR','GR_ORDER_ID_TEXT');
217: FND_MESSAGE.SET_NAME('GR','GR_DELIVERY_DETAIL_ID_TEXT');
218: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL_ID', LocalDeliverydetail.delivery_detail_id, FALSE);
219: l_msg_data := FND_MESSAGE.GET;
220: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
221: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
222:
223: /* Post the Delivery Detail ID to the log for which the document was printed */
224: FND_MESSAGE.SET_NAME('GR','GR_ORDER_ID_TEXT');
225: FND_MESSAGE.SET_TOKEN('ORDER_ID', LocalDeliverydetail.Source_Header_id, FALSE);
223: /* Post the Delivery Detail ID to the log for which the document was printed */
224: FND_MESSAGE.SET_NAME('GR','GR_ORDER_ID_TEXT');
225: FND_MESSAGE.SET_TOKEN('ORDER_ID', LocalDeliverydetail.Source_Header_id, FALSE);
226: l_msg_data := FND_MESSAGE.GET;
227: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
228: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
229:
230: /* Post the Sales Order Line ID to the log for which the document was printed */
231: FND_MESSAGE.SET_NAME('GR','GR_ORDER_LINE_ID_TEXT');
224: FND_MESSAGE.SET_NAME('GR','GR_ORDER_ID_TEXT');
225: FND_MESSAGE.SET_TOKEN('ORDER_ID', LocalDeliverydetail.Source_Header_id, FALSE);
226: l_msg_data := FND_MESSAGE.GET;
227: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
228: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
229:
230: /* Post the Sales Order Line ID to the log for which the document was printed */
231: FND_MESSAGE.SET_NAME('GR','GR_ORDER_LINE_ID_TEXT');
232: FND_MESSAGE.SET_TOKEN('ORDER_LINE_ID', LocalDeliverydetail.Source_Line_id, FALSE);
230: /* Post the Sales Order Line ID to the log for which the document was printed */
231: FND_MESSAGE.SET_NAME('GR','GR_ORDER_LINE_ID_TEXT');
232: FND_MESSAGE.SET_TOKEN('ORDER_LINE_ID', LocalDeliverydetail.Source_Line_id, FALSE);
233: l_msg_data := FND_MESSAGE.GET;
234: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
235: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
236:
237: /* Post the Sales Order Number to the log for which the document was printed */
238: FND_MESSAGE.SET_NAME('GR','GR_ORD_NUMBER_TEXT');
231: FND_MESSAGE.SET_NAME('GR','GR_ORDER_LINE_ID_TEXT');
232: FND_MESSAGE.SET_TOKEN('ORDER_LINE_ID', LocalDeliverydetail.Source_Line_id, FALSE);
233: l_msg_data := FND_MESSAGE.GET;
234: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
235: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
236:
237: /* Post the Sales Order Number to the log for which the document was printed */
238: FND_MESSAGE.SET_NAME('GR','GR_ORD_NUMBER_TEXT');
239: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER', LocalDeliverydetail.Source_Header_Number, FALSE);
237: /* Post the Sales Order Number to the log for which the document was printed */
238: FND_MESSAGE.SET_NAME('GR','GR_ORD_NUMBER_TEXT');
239: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER', LocalDeliverydetail.Source_Header_Number, FALSE);
240: l_msg_data := FND_MESSAGE.GET;
241: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
242: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
243:
244: /* Post the Sales Order Line Number to the log for which the document was printed */
245: FND_MESSAGE.SET_NAME('GR','GR_ORD_LINE_NO_TEXT');
238: FND_MESSAGE.SET_NAME('GR','GR_ORD_NUMBER_TEXT');
239: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER', LocalDeliverydetail.Source_Header_Number, FALSE);
240: l_msg_data := FND_MESSAGE.GET;
241: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
242: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
243:
244: /* Post the Sales Order Line Number to the log for which the document was printed */
245: FND_MESSAGE.SET_NAME('GR','GR_ORD_LINE_NO_TEXT');
246: FND_MESSAGE.SET_TOKEN('ORDER_LINE_NO', LocalDeliverydetail.Source_Line_Number, FALSE);
244: /* Post the Sales Order Line Number to the log for which the document was printed */
245: FND_MESSAGE.SET_NAME('GR','GR_ORD_LINE_NO_TEXT');
246: FND_MESSAGE.SET_TOKEN('ORDER_LINE_NO', LocalDeliverydetail.Source_Line_Number, FALSE);
247: l_msg_data := FND_MESSAGE.GET;
248: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
249: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
250:
251: /* Post the Category Description to the log for which the document was printed */
252: FND_MESSAGE.SET_NAME('GR','GR_CATEGORY_DESC_TEXT');
245: FND_MESSAGE.SET_NAME('GR','GR_ORD_LINE_NO_TEXT');
246: FND_MESSAGE.SET_TOKEN('ORDER_LINE_NO', LocalDeliverydetail.Source_Line_Number, FALSE);
247: l_msg_data := FND_MESSAGE.GET;
248: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
249: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
250:
251: /* Post the Category Description to the log for which the document was printed */
252: FND_MESSAGE.SET_NAME('GR','GR_CATEGORY_DESC_TEXT');
253: FND_MESSAGE.SET_TOKEN('CATEGORY_DESC', LocalAttachDocDetail.category_description, FALSE);
251: /* Post the Category Description to the log for which the document was printed */
252: FND_MESSAGE.SET_NAME('GR','GR_CATEGORY_DESC_TEXT');
253: FND_MESSAGE.SET_TOKEN('CATEGORY_DESC', LocalAttachDocDetail.category_description, FALSE);
254: l_msg_data := FND_MESSAGE.GET;
255: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
256: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
257:
258: /* Post the File Name to the log for which the document was printed */
259: FND_MESSAGE.SET_NAME('GR','GR_FILE_NAME_TEXT');
252: FND_MESSAGE.SET_NAME('GR','GR_CATEGORY_DESC_TEXT');
253: FND_MESSAGE.SET_TOKEN('CATEGORY_DESC', LocalAttachDocDetail.category_description, FALSE);
254: l_msg_data := FND_MESSAGE.GET;
255: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
256: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
257:
258: /* Post the File Name to the log for which the document was printed */
259: FND_MESSAGE.SET_NAME('GR','GR_FILE_NAME_TEXT');
260: FND_MESSAGE.SET_TOKEN('FILE_NAME', LocalAttachDocDetail.file_name, FALSE);
258: /* Post the File Name to the log for which the document was printed */
259: FND_MESSAGE.SET_NAME('GR','GR_FILE_NAME_TEXT');
260: FND_MESSAGE.SET_TOKEN('FILE_NAME', LocalAttachDocDetail.file_name, FALSE);
261: l_msg_data := FND_MESSAGE.GET;
262: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
263: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
264:
265: /* Post the Concurrent request id for the java concurrent program to the log for which the document was printed */
266: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
259: FND_MESSAGE.SET_NAME('GR','GR_FILE_NAME_TEXT');
260: FND_MESSAGE.SET_TOKEN('FILE_NAME', LocalAttachDocDetail.file_name, FALSE);
261: l_msg_data := FND_MESSAGE.GET;
262: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
263: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
264:
265: /* Post the Concurrent request id for the java concurrent program to the log for which the document was printed */
266: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
267: FND_MESSAGE.SET_NAME('GR','GR_DOC_CONC_REQ_ID_TEXT');
262: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
263: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
264:
265: /* Post the Concurrent request id for the java concurrent program to the log for which the document was printed */
266: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
267: FND_MESSAGE.SET_NAME('GR','GR_DOC_CONC_REQ_ID_TEXT');
268: FND_MESSAGE.SET_TOKEN('DOC_CONC_REQ_ID', l_concurrent_id, FALSE);
269: l_msg_data := FND_MESSAGE.GET;
270: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
266: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
267: FND_MESSAGE.SET_NAME('GR','GR_DOC_CONC_REQ_ID_TEXT');
268: FND_MESSAGE.SET_TOKEN('DOC_CONC_REQ_ID', l_concurrent_id, FALSE);
269: l_msg_data := FND_MESSAGE.GET;
270: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
271: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
272:
273: /* Post the Entity Name to the log for which the document was printed */
274: FND_MESSAGE.SET_NAME('GR','GR_ENTITY_NAME_TEXT');
267: FND_MESSAGE.SET_NAME('GR','GR_DOC_CONC_REQ_ID_TEXT');
268: FND_MESSAGE.SET_TOKEN('DOC_CONC_REQ_ID', l_concurrent_id, FALSE);
269: l_msg_data := FND_MESSAGE.GET;
270: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
271: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
272:
273: /* Post the Entity Name to the log for which the document was printed */
274: FND_MESSAGE.SET_NAME('GR','GR_ENTITY_NAME_TEXT');
275: FND_MESSAGE.SET_TOKEN('ENTITY_NAME', LocalAttachDocDetail.user_entity_name, FALSE);
273: /* Post the Entity Name to the log for which the document was printed */
274: FND_MESSAGE.SET_NAME('GR','GR_ENTITY_NAME_TEXT');
275: FND_MESSAGE.SET_TOKEN('ENTITY_NAME', LocalAttachDocDetail.user_entity_name, FALSE);
276: l_msg_data := FND_MESSAGE.GET;
277: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
278: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
279:
280: /* M.Grosser 12-Apr-2005 Added for 3rd Party Integration project */
281: OPEN c_get_item_code(LocalDeliverydetail.organization_id,LocalDeliverydetail.inventory_item_id);
274: FND_MESSAGE.SET_NAME('GR','GR_ENTITY_NAME_TEXT');
275: FND_MESSAGE.SET_TOKEN('ENTITY_NAME', LocalAttachDocDetail.user_entity_name, FALSE);
276: l_msg_data := FND_MESSAGE.GET;
277: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
278: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
279:
280: /* M.Grosser 12-Apr-2005 Added for 3rd Party Integration project */
281: OPEN c_get_item_code(LocalDeliverydetail.organization_id,LocalDeliverydetail.inventory_item_id);
282: FETCH c_get_item_code into l_item_code;
284: FND_MESSAGE.SET_NAME('GR','GR_INVALID_ITEM_ORG_ID');
285: FND_MESSAGE.SET_TOKEN('ITEM_ID', LocalDeliverydetail.INVENTORY_ITEM_ID, FALSE);
286: FND_MESSAGE.SET_TOKEN('ORGN_ID', LocalDeliverydetail.ORGANIZATION_ID, FALSE);
287: l_msg_data := FND_MESSAGE.GET;
288: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
289: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
290: RETURN;
291: END IF;
292: CLOSE c_get_item_code;
285: FND_MESSAGE.SET_TOKEN('ITEM_ID', LocalDeliverydetail.INVENTORY_ITEM_ID, FALSE);
286: FND_MESSAGE.SET_TOKEN('ORGN_ID', LocalDeliverydetail.ORGANIZATION_ID, FALSE);
287: l_msg_data := FND_MESSAGE.GET;
288: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
289: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
290: RETURN;
291: END IF;
292: CLOSE c_get_item_code;
293:
299: IF c_get_recipient_id%NOTFOUND then
300: FND_MESSAGE.SET_NAME('GR','GR_INVALID_RECIPIENT_SITE');
301: FND_MESSAGE.SET_TOKEN('RECIPIENT_SITE_ID', LocalDeliverydetail.SHIP_TO_LOCATION_ID, FALSE);
302: l_msg_data := FND_MESSAGE.GET;
303: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
304: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
305: RETURN;
306: END IF;
307: CLOSE c_get_recipient_id;
300: FND_MESSAGE.SET_NAME('GR','GR_INVALID_RECIPIENT_SITE');
301: FND_MESSAGE.SET_TOKEN('RECIPIENT_SITE_ID', LocalDeliverydetail.SHIP_TO_LOCATION_ID, FALSE);
302: l_msg_data := FND_MESSAGE.GET;
303: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
304: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
305: RETURN;
306: END IF;
307: CLOSE c_get_recipient_id;
308:
309:
310: FND_MESSAGE.SET_NAME('GR', 'GR_CREATING_DISPATCH_HISTORY');
311: FND_MESSAGE.SET_TOKEN('FILE_NAME',localAttachDocDetail.File_name, FALSE);
312: l_msg_data := FND_MESSAGE.GET;
313: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
314: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
315: /* Call Update Dispatch History API with creation_source = 1 (Internal)*/
316: GR_DISPATCH_HISTORY_PUB.create_dispatch_history (
317: p_api_version => 1.0,
310: FND_MESSAGE.SET_NAME('GR', 'GR_CREATING_DISPATCH_HISTORY');
311: FND_MESSAGE.SET_TOKEN('FILE_NAME',localAttachDocDetail.File_name, FALSE);
312: l_msg_data := FND_MESSAGE.GET;
313: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
314: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
315: /* Call Update Dispatch History API with creation_source = 1 (Internal)*/
316: GR_DISPATCH_HISTORY_PUB.create_dispatch_history (
317: p_api_version => 1.0,
318: p_init_msg_list => FND_API.G_FALSE,
347: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
348: FND_MESSAGE.SET_NAME('GR', 'GR_DISPATCH_HISTORY_FAILED');
349: FND_MESSAGE.SET_TOKEN('FILE_NAME',localAttachDocDetail.File_name, FALSE);
350: l_msg_data := FND_MESSAGE.GET;
351: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
352: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
353: FND_FILE.PUT(FND_FILE.LOG, l_error_msg);
354: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
355: END IF;
348: FND_MESSAGE.SET_NAME('GR', 'GR_DISPATCH_HISTORY_FAILED');
349: FND_MESSAGE.SET_TOKEN('FILE_NAME',localAttachDocDetail.File_name, FALSE);
350: l_msg_data := FND_MESSAGE.GET;
351: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
352: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
353: FND_FILE.PUT(FND_FILE.LOG, l_error_msg);
354: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
355: END IF;
356: /* M.Grosser 12-Apr-2005 End of changes */
349: FND_MESSAGE.SET_TOKEN('FILE_NAME',localAttachDocDetail.File_name, FALSE);
350: l_msg_data := FND_MESSAGE.GET;
351: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
352: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
353: FND_FILE.PUT(FND_FILE.LOG, l_error_msg);
354: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
355: END IF;
356: /* M.Grosser 12-Apr-2005 End of changes */
357:
350: l_msg_data := FND_MESSAGE.GET;
351: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
352: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
353: FND_FILE.PUT(FND_FILE.LOG, l_error_msg);
354: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
355: END IF;
356: /* M.Grosser 12-Apr-2005 End of changes */
357:
358: END IF; /* g_concurrent_id */
585:
586: FND_MESSAGE.SET_NAME('GR', 'GR_NO_TERRITORY_PROFILE');
587: FND_MESSAGE.SET_TOKEN('COUNTRY', CountryRec.country, FALSE);
588: l_msg_data := FND_MESSAGE.GET;
589: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
590: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
591:
592: ELSE
593: /* Retrieve the latest version of the document that matches the item, document_type, language and
586: FND_MESSAGE.SET_NAME('GR', 'GR_NO_TERRITORY_PROFILE');
587: FND_MESSAGE.SET_TOKEN('COUNTRY', CountryRec.country, FALSE);
588: l_msg_data := FND_MESSAGE.GET;
589: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
590: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
591:
592: ELSE
593: /* Retrieve the latest version of the document that matches the item, document_type, language and
594: disclosure code from the territory profile */
603: FND_MESSAGE.SET_TOKEN('DOC_CODE', l_territory_details.document_code, FALSE);
604: FND_MESSAGE.SET_TOKEN('LANG', l_territory_details.language, FALSE);
605: FND_MESSAGE.SET_TOKEN('DISCLOSURE', l_territory_details.disclosure_code, FALSE);
606: l_msg_data := FND_MESSAGE.GET;
607: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
608: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
609:
610: ELSE
611:
604: FND_MESSAGE.SET_TOKEN('LANG', l_territory_details.language, FALSE);
605: FND_MESSAGE.SET_TOKEN('DISCLOSURE', l_territory_details.disclosure_code, FALSE);
606: l_msg_data := FND_MESSAGE.GET;
607: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
608: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
609:
610: ELSE
611:
612: /* Check the dispatch history to see the last time this document was sent to the recipient */
886: FND_MESSAGE.SET_TOKEN('ITEM', DocumentRec.doc_attribute1,FALSE);
887: FND_MESSAGE.SET_TOKEN('LANG', DocumentRec.doc_attribute3,FALSE);
888: FND_MESSAGE.SET_TOKEN('CATEGORY',DocumentRec.doc_attribute_category,FALSE);
889: l_msg_data := FND_MESSAGE.GET;
890: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
891: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
892: /* Post the File Name printed to the file */
893: FND_MESSAGE.SET_NAME('GR','GR_FILE_NAME_TEXT');
894: FND_MESSAGE.SET_TOKEN('FILE_NAME', DocumentRec.file_name,FALSE);
887: FND_MESSAGE.SET_TOKEN('LANG', DocumentRec.doc_attribute3,FALSE);
888: FND_MESSAGE.SET_TOKEN('CATEGORY',DocumentRec.doc_attribute_category,FALSE);
889: l_msg_data := FND_MESSAGE.GET;
890: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
891: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
892: /* Post the File Name printed to the file */
893: FND_MESSAGE.SET_NAME('GR','GR_FILE_NAME_TEXT');
894: FND_MESSAGE.SET_TOKEN('FILE_NAME', DocumentRec.file_name,FALSE);
895: l_msg_data := FND_MESSAGE.GET;
892: /* Post the File Name printed to the file */
893: FND_MESSAGE.SET_NAME('GR','GR_FILE_NAME_TEXT');
894: FND_MESSAGE.SET_TOKEN('FILE_NAME', DocumentRec.file_name,FALSE);
895: l_msg_data := FND_MESSAGE.GET;
896: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
897: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
898: l_concurrent_id :=
899: FND_REQUEST.SUBMIT_REQUEST
900: ( 'GR', 'GR_PRINT_SHIP_DOC', '', '', FALSE,
893: FND_MESSAGE.SET_NAME('GR','GR_FILE_NAME_TEXT');
894: FND_MESSAGE.SET_TOKEN('FILE_NAME', DocumentRec.file_name,FALSE);
895: l_msg_data := FND_MESSAGE.GET;
896: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
897: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
898: l_concurrent_id :=
899: FND_REQUEST.SUBMIT_REQUEST
900: ( 'GR', 'GR_PRINT_SHIP_DOC', '', '', FALSE,
901: DocumentRec.media_id,
912: IF l_concurrent_id = 0 THEN
913: FND_MESSAGE.SET_NAME('GR','GR_CONC_REQ_PRINT_DOC');
914: FND_MESSAGE.SET_TOKEN('FILE_NAME', DocumentRec.file_name,FALSE);
915: l_msg_data := FND_MESSAGE.GET;
916: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
917: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
918: ELSE
919: IF p_update_dispatch_history = 'Y' THEN
920:
913: FND_MESSAGE.SET_NAME('GR','GR_CONC_REQ_PRINT_DOC');
914: FND_MESSAGE.SET_TOKEN('FILE_NAME', DocumentRec.file_name,FALSE);
915: l_msg_data := FND_MESSAGE.GET;
916: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
917: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
918: ELSE
919: IF p_update_dispatch_history = 'Y' THEN
920:
921: FND_MESSAGE.SET_NAME('GR', 'GR_CREATING_DISPATCH_HISTORY');
920:
921: FND_MESSAGE.SET_NAME('GR', 'GR_CREATING_DISPATCH_HISTORY');
922: FND_MESSAGE.SET_TOKEN('FILE_NAME', DocumentRec.file_name,FALSE);
923: l_msg_data := FND_MESSAGE.GET;
924: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
925: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
926: GR_DISPATCH_HISTORY_PUB.create_dispatch_history (
927: p_api_version => 1.0,
928: p_init_msg_list => FND_API.G_FALSE,
921: FND_MESSAGE.SET_NAME('GR', 'GR_CREATING_DISPATCH_HISTORY');
922: FND_MESSAGE.SET_TOKEN('FILE_NAME', DocumentRec.file_name,FALSE);
923: l_msg_data := FND_MESSAGE.GET;
924: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
925: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
926: GR_DISPATCH_HISTORY_PUB.create_dispatch_history (
927: p_api_version => 1.0,
928: p_init_msg_list => FND_API.G_FALSE,
929: p_commit => FND_API.G_TRUE,
954: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
955: FND_MESSAGE.SET_NAME('GR', 'GR_DISPATCH_HISTORY_FAILED');
956: FND_MESSAGE.SET_TOKEN('FILE_NAME',DocumentRec.File_name, FALSE);
957: l_msg_data := FND_MESSAGE.GET;
958: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
959: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
960: FND_FILE.PUT(FND_FILE.LOG, l_error_msg);
961: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
962: END IF;
955: FND_MESSAGE.SET_NAME('GR', 'GR_DISPATCH_HISTORY_FAILED');
956: FND_MESSAGE.SET_TOKEN('FILE_NAME',DocumentRec.File_name, FALSE);
957: l_msg_data := FND_MESSAGE.GET;
958: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
959: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
960: FND_FILE.PUT(FND_FILE.LOG, l_error_msg);
961: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
962: END IF;
963:
956: FND_MESSAGE.SET_TOKEN('FILE_NAME',DocumentRec.File_name, FALSE);
957: l_msg_data := FND_MESSAGE.GET;
958: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
959: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
960: FND_FILE.PUT(FND_FILE.LOG, l_error_msg);
961: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
962: END IF;
963:
964: END IF; /* update dispatch history */
957: l_msg_data := FND_MESSAGE.GET;
958: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
959: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
960: FND_FILE.PUT(FND_FILE.LOG, l_error_msg);
961: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
962: END IF;
963:
964: END IF; /* update dispatch history */
965: END IF; /* g_concurrent_id */
962: END IF;
963:
964: END IF; /* update dispatch history */
965: END IF; /* g_concurrent_id */
966: FND_FILE.PUT(FND_FILE.LOG, ' ');
967: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
968:
969: FETCH c_get_doc_info INTO DocumentRec;
970: END LOOP;
963:
964: END IF; /* update dispatch history */
965: END IF; /* g_concurrent_id */
966: FND_FILE.PUT(FND_FILE.LOG, ' ');
967: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
968:
969: FETCH c_get_doc_info INTO DocumentRec;
970: END LOOP;
971: CLOSE c_get_doc_info;
975: EXCEPTION
976: WHEN No_Document_To_Print THEN
977: FND_MESSAGE.SET_NAME('GR','GR_NO_DOCUMENT_TO_PRINT');
978: l_msg_data := FND_MESSAGE.GET;
979: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
980: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
981:
982: WHEN No_Recipient_Exists THEN
983: FND_MESSAGE.SET_NAME('GR','GR_INVALID_RECIPIENT_SITE_NUM');
976: WHEN No_Document_To_Print THEN
977: FND_MESSAGE.SET_NAME('GR','GR_NO_DOCUMENT_TO_PRINT');
978: l_msg_data := FND_MESSAGE.GET;
979: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
980: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
981:
982: WHEN No_Recipient_Exists THEN
983: FND_MESSAGE.SET_NAME('GR','GR_INVALID_RECIPIENT_SITE_NUM');
984: FND_MESSAGE.SET_TOKEN('SITE_NUM', P_Recipient_site , FALSE);
982: WHEN No_Recipient_Exists THEN
983: FND_MESSAGE.SET_NAME('GR','GR_INVALID_RECIPIENT_SITE_NUM');
984: FND_MESSAGE.SET_TOKEN('SITE_NUM', P_Recipient_site , FALSE);
985: l_msg_data := FND_MESSAGE.GET;
986: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
987: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
988:
989: WHEN OTHERS THEN
990: l_code_block :='Print Regulatory Doc ' ;
983: FND_MESSAGE.SET_NAME('GR','GR_INVALID_RECIPIENT_SITE_NUM');
984: FND_MESSAGE.SET_TOKEN('SITE_NUM', P_Recipient_site , FALSE);
985: l_msg_data := FND_MESSAGE.GET;
986: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
987: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
988:
989: WHEN OTHERS THEN
990: l_code_block :='Print Regulatory Doc ' ;
991: FND_MESSAGE.SET_NAME('GR','GR_UNEXPECTED_ERROR');
990: l_code_block :='Print Regulatory Doc ' ;
991: FND_MESSAGE.SET_NAME('GR','GR_UNEXPECTED_ERROR');
992: FND_MESSAGE.SET_TOKEN('TEXT',l_code_block||sqlerrm, FALSE);
993: l_msg_data := FND_MESSAGE.GET;
994: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
995: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
996:
997:
998: END PRINT_REG_DOCS;
991: FND_MESSAGE.SET_NAME('GR','GR_UNEXPECTED_ERROR');
992: FND_MESSAGE.SET_TOKEN('TEXT',l_code_block||sqlerrm, FALSE);
993: l_msg_data := FND_MESSAGE.GET;
994: FND_FILE.PUT(FND_FILE.LOG, l_msg_data);
995: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
996:
997:
998: END PRINT_REG_DOCS;
999: