28: /* Procedures to write tags and elements to XML */
29: PROCEDURE put_starttag(p_tag_name IN VARCHAR2)
30: IS
31: BEGIN
32: fnd_file.put_line(fnd_file.output, '<'||p_tag_name||'>');
33: END put_starttag;
34: PROCEDURE put_endtag(p_tag_name IN VARCHAR2)
35: IS
36: BEGIN
33: END put_starttag;
34: PROCEDURE put_endtag(p_tag_name IN VARCHAR2)
35: IS
36: BEGIN
37: fnd_file.put_line(fnd_file.output, '');
38: END put_endtag;
39: PROCEDURE put_element(p_tag_name IN VARCHAR2,
40: p_value IN VARCHAR2)
41: IS
39: PROCEDURE put_element(p_tag_name IN VARCHAR2,
40: p_value IN VARCHAR2)
41: IS
42: BEGIN
43: fnd_file.put_line(fnd_file.output,
44: '<'||p_tag_name||'>'||
45: replace(replace(p_value,'&','&'||'amp;'),'<','&'||'lt;')||
46: '');
47: END put_element;