154: /*FUNCTIONS/PROCEDURES DEFINED BELOW ARE USED IN XML VALIDATION */
155:
156: -- Procuedure for DTD validation
157: -- Not tested!
158: -- Validates DTD using xmldom return success or error information
159: PROCEDURE dtd_validation(a_xml IN VARCHAR2,
160: x_ret_sts OUT NOCOPY VARCHAR2,
161: x_ret_msg OUT NOCOPY VARCHAR2)
162: IS
160: x_ret_sts OUT NOCOPY VARCHAR2,
161: x_ret_msg OUT NOCOPY VARCHAR2)
162: IS
163: l_parser xmlparser.Parser;
164: l_doc_typ xmldom.domdocumenttype;
165: l_progress VARCHAR2(4000);
166: BEGIN
167: IF g_log_lvl <= 2 THEN
168: cln_debug_pub.add('Entering m4u_xml_extn_utils.dtd_validation',2);
191: IF g_log_lvl <= 1 THEN
192: cln_debug_pub.add('xmlparser.parseDTD successful',1);
193: END IF;
194:
195: -- Get the DTD as a xmldom.domdocumenttype instance
196: l_doc_typ := xmlparser.getDoctype(l_parser);
197:
198: IF g_log_lvl <= 1 THEN
199: cln_debug_pub.add('xmlparser.getDoctype successful',1);