1 PACKAGE XNP_XML_UTILS AUTHID CURRENT_USER AS
2 /* $Header: XNPXMLPS.pls 120.2 2006/02/13 07:59:53 dputhiye ship $ */
3
4 -- Provides a tag value lookup
5 --
6 PROCEDURE decode
7 (
8 p_msg_text IN VARCHAR2
9 ,p_tag IN VARCHAR2
10 ,x_value OUT NOCOPY VARCHAR2
11 );
12
13 -- Append the xml document to the existing document
14 --
15 PROCEDURE append
16 (
17 p_xml_doc IN VARCHAR2
18 );
19
20 -- Overloaded version
21 --
22 PROCEDURE append
23 (
24 p_xml_doc IN NUMBER
25 );
26
27 -- Overloaded version
28 --
29 PROCEDURE append
30 (
31 p_xml_doc IN DATE
32 );
33
34 -- Initializes the global XML document variable
35 --
36 PROCEDURE initialize_doc
37 (
38 p_msg_code IN VARCHAR2
39 ,p_dtd_url IN VARCHAR2
40 );
41
42 -- Overloaded version
43 --
44 PROCEDURE initialize_doc ;
45
46 -- Declaration for an XML
47 --
48 PROCEDURE xml_decl ;
49
50 -- Retrieves the constructed XML document
51 --
52 PROCEDURE get_document
53 (
54 p_xml_doc OUT NOCOPY VARCHAR2
55 );
56
57 -- Writes a character element to an XML document
58 --
59 PROCEDURE write_element
60 (
61 p_tag IN VARCHAR2
62 ,x_value IN VARCHAR2
63 );
64
65 -- Writes a date element to an XML document
66 --
67 PROCEDURE write_element
68 (
69 P_TAG IN VARCHAR2
70 ,x_value IN DATE
71 );
72
73 -- Writes a numeric element tot an XML document
74 --
75 PROCEDURE write_element
76 (
77 p_tag IN VARCHAR2
78 ,x_value IN NUMBER
79 );
80
81
82 -- Writes a leaf character element to an XML document
83 --
84 PROCEDURE write_leaf_element
85 (
86 p_tag IN VARCHAR2
87 ,x_value IN VARCHAR2
88 );
89
90
91 -- Writes a leaf date element to an XML document
92 --
93 PROCEDURE write_leaf_element
94 (
95 P_TAG IN VARCHAR2
96 ,x_value IN DATE
97 );
98
99 -- Writes a leaf numeric element tot an XML document
100 --
101 PROCEDURE write_leaf_element
102 (
103 p_tag IN VARCHAR2
104 ,x_value IN NUMBER
105 );
106
107 -- Adds an end tag to the element being specified
108 --
109 PROCEDURE end_segment
110 (
111 p_tag IN VARCHAR2
112 );
113
114 -- Adds a start tag for the XML element being constructed
115 --
116 PROCEDURE begin_segment
117 (
118 p_tag IN VARCHAR2
119 );
120
121
122 -- Procedure: CONVERT()
123 -- Purpose: Converts a character string to xml CDATA
124
125
126 FUNCTION convert ( p_value IN VARCHAR2) RETURN VARCHAR2 ;
127
128 -- Global variable to hold the XML document
129 --
130
131 g_XML_document VARCHAR2 (32767) ;
132 g_remove_empty_nodes VARCHAR2(1) := 'N';
133
134 END xnp_xml_utils;