PACKAGE BODY: APPS.WF_WS_SAMPLES

Source

1 package body WF_WS_SAMPLES as
2 -- $Header: wfwssmplb.pls 120.0 2005/10/13 12:40:01 jdang noship $
3 
4 --
5 -- generate (PUBLIC)
6 --   Sample Web Services generate function to procedure outbound
7 --   XML document
8 -- IN:
9 --   p_event_name     - Event to be processes
10 --   p_event_key      - Event key
11 --   p_parameter_list - parameter list
12 -- OUT
13 --   CLOB	    - Event data
14 --
15 
16 function generate
17 		(
18 		p_event_name	    	in	varchar2,
19 		p_event_key	    	in 	varchar2,
20         	p_parameter_list 	in 	wf_parameter_list_t
21 		) return CLOB
22 is
23 
24   p_xmldoc		clob;
25   i_xmldoc              varchar2(4000);
26 
27 begin
28 
29   dbms_lob.createtemporary(p_xmldoc,true,dbms_lob.session);
30   i_xmldoc := '<s0:AnnouncementDate>11/11/2003</s0:AnnouncementDate>';
31   dbms_lob.write(p_xmldoc, 53, 1, i_xmldoc);
32   --dbms_lob.freetemporary(p_xmldoc);
33 
34   return p_xmldoc;
35 
36 exception
37 
38   when others then
39     wf_core.context('WF_WS_SAMPLES', 'Generate', p_event_name, p_event_key);
40     raise;
41 
42 end generate;
43 
44 
45 end WF_WS_SAMPLES;