1: PACKAGE BODY EDR_XDOC_UTIL_PKG AS
2: /* $Header: EDRXDUB.pls 120.12.12000000.1 2007/01/18 05:56:47 appldev ship $ */
3:
4: --Bug 5256904: Start
5: --This procedure is used to delete the temporary parameters that were set prior to the PDF e-record
25: WHEN OTHERS THEN
26: ROLLBACK;
27: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
28: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
29: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_XDOC_UTIL_PKG');
30: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','DELETE_TEMP_PARAMS');
31: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
32: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
33: 'edr.plsql.EDR_XDOC_UTIL_PKG.DELETE_TEMP_PARAMS',
29: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_XDOC_UTIL_PKG');
30: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','DELETE_TEMP_PARAMS');
31: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
32: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
33: 'edr.plsql.EDR_XDOC_UTIL_PKG.DELETE_TEMP_PARAMS',
34: FALSE
35: );
36: end if;
37: APP_EXCEPTION.RAISE_EXCEPTION;
74: L_CURRENT_LANG := USERENV('LANG');
75:
76: --We will log the NLS Parameters in the EVENT Level.
77: if (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
78: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
79: 'These are the NLS parameters for the e-record ID '||p_erecord_id);
80: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
81: 'NLS Date Format: '||L_NLS_DATE_FORMAT);
82: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
76: --We will log the NLS Parameters in the EVENT Level.
77: if (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
78: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
79: 'These are the NLS parameters for the e-record ID '||p_erecord_id);
80: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
81: 'NLS Date Format: '||L_NLS_DATE_FORMAT);
82: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
83: 'NLS Date Language: '||L_NLS_DATE_LANGUAGE);
84: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
78: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
79: 'These are the NLS parameters for the e-record ID '||p_erecord_id);
80: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
81: 'NLS Date Format: '||L_NLS_DATE_FORMAT);
82: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
83: 'NLS Date Language: '||L_NLS_DATE_LANGUAGE);
84: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
85: 'NLS Language: '||L_NLS_LANGUAGE);
86: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
80: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
81: 'NLS Date Format: '||L_NLS_DATE_FORMAT);
82: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
83: 'NLS Date Language: '||L_NLS_DATE_LANGUAGE);
84: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
85: 'NLS Language: '||L_NLS_LANGUAGE);
86: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
87: 'NLS Numeric Characters: '||L_NLS_NUMERIC_CHARACTERS);
88: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
82: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
83: 'NLS Date Language: '||L_NLS_DATE_LANGUAGE);
84: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
85: 'NLS Language: '||L_NLS_LANGUAGE);
86: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
87: 'NLS Numeric Characters: '||L_NLS_NUMERIC_CHARACTERS);
88: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
89: 'NLS Sort: '||L_NLS_SORT);
90: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
84: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
85: 'NLS Language: '||L_NLS_LANGUAGE);
86: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
87: 'NLS Numeric Characters: '||L_NLS_NUMERIC_CHARACTERS);
88: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
89: 'NLS Sort: '||L_NLS_SORT);
90: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
91: 'NLS Territory: '||L_NLS_TERRITORY);
92:
86: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
87: 'NLS Numeric Characters: '||L_NLS_NUMERIC_CHARACTERS);
88: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
89: 'NLS Sort: '||L_NLS_SORT);
90: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
91: 'NLS Territory: '||L_NLS_TERRITORY);
92:
93: end if;
94:
231: WHEN OTHERS THEN
232: ROLLBACK;
233: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
234: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
235: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_XDOC_UTIL_PKG');
236: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','SET_TEMP_PARAMS');
237: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
238: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
239: 'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
235: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_XDOC_UTIL_PKG');
236: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','SET_TEMP_PARAMS');
237: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
238: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
239: 'edr.plsql.EDR_XDOC_UTIL_PKG.SET_TEMP_PARAMS',
240: FALSE
241: );
242: end if;
243: APP_EXCEPTION.RAISE_EXCEPTION;
245: --Bug 5256904: End
246:
247:
248:
249: -- EDR_XDOC_UTIL_PKG.GENERATE_ERECORD Procedure is called from STORE_ERECORD
250: -- Procedure of RULE FUNCTION. Its purpose is to call the JSP with all the
251: -- required parameters passed in URL and return ERECORD or return error message
252: -- if there is any error in this processing.
253:
298: l_RESP_ID NUMBER;
299: l_RESP_APPL_ID NUMBER;
300: l_SECURITY_GROUP_ID NUMBER;
301: -- Bug 5170875 : End
302: l_module_name varchar2(50) := 'edr.plsql.EDR_XDOC_UTIL_PKG.GENERATE_ERECORD';
303: begin
304: l_http_response := null;
305: l_status := null;
306: l_output_format := null;
329: -- Bug 3761813 : END
330:
331: --These will be picked up when the AppsContext is initialized in the Java Layer.
332:
333: -- Call UTL_HTTP using EDR_XDOC_UTIL_PKG.REQUEST_HTTP package wrapper
334: l_http_response := EDR_XDOC_UTIL_PKG.REQUEST_HTTP( p_request_url => l_url);
335:
336: if (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
337: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,l_module_name,
330:
331: --These will be picked up when the AppsContext is initialized in the Java Layer.
332:
333: -- Call UTL_HTTP using EDR_XDOC_UTIL_PKG.REQUEST_HTTP package wrapper
334: l_http_response := EDR_XDOC_UTIL_PKG.REQUEST_HTTP( p_request_url => l_url);
335:
336: if (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
337: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,l_module_name,
338: 'HTTP Response from JSP: '||l_http_response);
459: END;
460: End GENERATE_ERECORD;
461:
462:
463: -- EDR_XDOC_UTIL_PKG.EDR_CREATE_ATTACHEMENT is called from EDRRuleXMLPublisher Object.
464: -- It creates an FND Attachment for the eRecord PDF to be generated and returns
465: -- the file_id created in FND_LOBS table.
466:
467: -- P_ERECORD_ID - ERecord Id for the eRecord to be generated.
594: p_file_format);
595:
596: END EDR_CREATE_ATTACHMENT;
597:
598: -- EDR_XDOC_UTIL_PKG.GET_NTF_MESSAGE_BODY is called from Workflow while rendering the
599: -- Notification for rendering E-Record Message "Please read the attached ... eRecord_XXXX.pdf"
600: -- This procedure follows PLSQL Document Attrubute Format API Call conventions
601:
602: -- p_document_id - This field is used to pass eRecord Id -- > ERECORD_ID
621: End GET_NTF_MESSAGE_BODY;
622:
623: -- Bug 3950047 : Start
624:
625: -- EDR_XDOC_UTIL_PKG.REQUEST_HTTP provides a wrapper over UTL_HTTP calls
626: -- It performs all the checks required on URL before calling UTL_HTTP.REQUEST
627: -- This FUNCTION follows PLSQL API Call conventions.
628:
629: -- p_request_url - Request URL over which UTL_HTTP call is to be made.
638: ) return varchar2
639: is
640: l_http_response varchar2(20480);
641: -- Bug : 5170875 : start
642: l_module_name varchar2(50) := 'edr.plsql.EDR_XDOC_UTIL_PKG.REQUEST_HTTP';
643: -- Bug : 5170875 : end
644: l_wallet varchar2(1000);
645: profile_error exception;
646: begin
717: END IF;
718: end VALIDATE_SERVICE_TICKET;
719: -- Bug 4450651 End
720:
721: End EDR_XDOC_UTIL_PKG;