66: l_list_count NUMBER := 0;
67:
68: BEGIN
69:
70: xdp_utilities.g_message_list.DELETE;
71: xml_decl ;
72:
73: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
74: xdp_utilities.g_message_list(l_list_count) := '';
69:
70: xdp_utilities.g_message_list.DELETE;
71: xml_decl ;
72:
73: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
74: xdp_utilities.g_message_list(l_list_count) := '';
75:
76: END initialize_doc;
77:
70: xdp_utilities.g_message_list.DELETE;
71: xml_decl ;
72:
73: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
74: xdp_utilities.g_message_list(l_list_count) := '';
75:
76: END initialize_doc;
77:
78: /***************************************************************************
83: PROCEDURE initialize_doc
84: IS
85: BEGIN
86:
87: xdp_utilities.g_message_list.DELETE;
88:
89: END initialize_doc;
90:
91: /***************************************************************************
98: l_list_count NUMBER := 0;
99:
100: BEGIN
101:
102: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
103: xdp_utilities.g_message_list(l_list_count) := '' ;
104:
105: END xml_decl;
106:
99:
100: BEGIN
101:
102: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
103: xdp_utilities.g_message_list(l_list_count) := '' ;
104:
105: END xml_decl;
106:
107: /***************************************************************************
117: l_msg_len NUMBER := 0;
118: l_doc_len NUMBER := 0;
119:
120: BEGIN
121: FOR i in 1..xdp_utilities.g_message_list.COUNT
122: LOOP
123: l_msg_len := LENGTH(xdp_utilities.g_message_list(i));
124: l_doc_len := LENGTH(l_xml_doc);
125:
119:
120: BEGIN
121: FOR i in 1..xdp_utilities.g_message_list.COUNT
122: LOOP
123: l_msg_len := LENGTH(xdp_utilities.g_message_list(i));
124: l_doc_len := LENGTH(l_xml_doc);
125:
126: IF (NVL(l_doc_len,0) + NVL(l_msg_len,0)) < 32767 THEN
127: l_xml_doc := l_xml_doc||xdp_utilities.g_message_list(i);
123: l_msg_len := LENGTH(xdp_utilities.g_message_list(i));
124: l_doc_len := LENGTH(l_xml_doc);
125:
126: IF (NVL(l_doc_len,0) + NVL(l_msg_len,0)) < 32767 THEN
127: l_xml_doc := l_xml_doc||xdp_utilities.g_message_list(i);
128: ELSE
129: l_xml_doc := l_xml_doc||substr(xdp_utilities.g_message_list(i),1,(32767 - l_doc_len));
130: END IF ;
131:
125:
126: IF (NVL(l_doc_len,0) + NVL(l_msg_len,0)) < 32767 THEN
127: l_xml_doc := l_xml_doc||xdp_utilities.g_message_list(i);
128: ELSE
129: l_xml_doc := l_xml_doc||substr(xdp_utilities.g_message_list(i),1,(32767 - l_doc_len));
130: END IF ;
131:
132: END LOOP;
133:
152:
153: IF ((x_value IS NULL) AND (g_remove_empty_nodes = 'Y'))THEN
154: null;
155: ELSE
156: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
157: xdp_utilities.g_message_list(l_list_count) := '<' || p_tag || '>'|| x_value|| '' ;
158: END IF ;
159:
160: END write_element;
153: IF ((x_value IS NULL) AND (g_remove_empty_nodes = 'Y'))THEN
154: null;
155: ELSE
156: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
157: xdp_utilities.g_message_list(l_list_count) := '<' || p_tag || '>'|| x_value|| '' ;
158: END IF ;
159:
160: END write_element;
161:
175:
176: IF ((x_value IS NULL) AND (g_remove_empty_nodes = 'Y') ) THEN
177: null;
178: ELSE
179: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
180: xdp_utilities.g_message_list(l_list_count) := '<' || p_tag || '>'|| XNP_UTILS.DATE_TO_CANONICAL(x_value ) || '' ;
181: END IF ;
182:
183: END write_element;
176: IF ((x_value IS NULL) AND (g_remove_empty_nodes = 'Y') ) THEN
177: null;
178: ELSE
179: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
180: xdp_utilities.g_message_list(l_list_count) := '<' || p_tag || '>'|| XNP_UTILS.DATE_TO_CANONICAL(x_value ) || '' ;
181: END IF ;
182:
183: END write_element;
184:
198:
199: IF ((x_value IS NULL) AND (g_remove_empty_nodes = 'Y') ) THEN
200: null;
201: ELSE
202: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
203: xdp_utilities.g_message_list(l_list_count) := '<' || p_tag || '>'|| TO_CHAR ( x_value )|| '' ;
204: END IF ;
205:
206: END write_element;
199: IF ((x_value IS NULL) AND (g_remove_empty_nodes = 'Y') ) THEN
200: null;
201: ELSE
202: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
203: xdp_utilities.g_message_list(l_list_count) := '<' || p_tag || '>'|| TO_CHAR ( x_value )|| '' ;
204: END IF ;
205:
206: END write_element;
207:
223:
224: IF ((x_value IS NULL) AND (g_remove_empty_nodes = 'Y'))THEN
225: null;
226: ELSE
227: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
228: xdp_utilities.g_message_list(l_list_count) := '<' || p_tag || '>' || convert(x_value) || '' ;
229: END IF ;
230:
231: END write_leaf_element;
224: IF ((x_value IS NULL) AND (g_remove_empty_nodes = 'Y'))THEN
225: null;
226: ELSE
227: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
228: xdp_utilities.g_message_list(l_list_count) := '<' || p_tag || '>' || convert(x_value) || '' ;
229: END IF ;
230:
231: END write_leaf_element;
232:
246:
247: IF ((x_value IS NULL) AND (g_remove_empty_nodes = 'Y') ) THEN
248: null;
249: ELSE
250: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
251: xdp_utilities.g_message_list(l_list_count) := '<' || p_tag || '>'|| XNP_UTILS.DATE_TO_CANONICAL(x_value ) || '' ;
252: END IF ;
253:
254: END write_leaf_element;
247: IF ((x_value IS NULL) AND (g_remove_empty_nodes = 'Y') ) THEN
248: null;
249: ELSE
250: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
251: xdp_utilities.g_message_list(l_list_count) := '<' || p_tag || '>'|| XNP_UTILS.DATE_TO_CANONICAL(x_value ) || '' ;
252: END IF ;
253:
254: END write_leaf_element;
255:
269:
270: IF ((x_value IS NULL) AND (g_remove_empty_nodes = 'Y') ) THEN
271: null;
272: ELSE
273: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
274: xdp_utilities.g_message_list(l_list_count) := '<' || p_tag || '>'|| TO_CHAR ( x_value )|| '' ;
275: END IF ;
276:
277: END write_leaf_element;
270: IF ((x_value IS NULL) AND (g_remove_empty_nodes = 'Y') ) THEN
271: null;
272: ELSE
273: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
274: xdp_utilities.g_message_list(l_list_count) := '<' || p_tag || '>'|| TO_CHAR ( x_value )|| '' ;
275: END IF ;
276:
277: END write_leaf_element;
278:
289: l_tag VARCHAR2(4000);
290:
291: BEGIN
292: l_tag := '<'||p_tag||'>' ;
293: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
294:
295: IF xdp_utilities.g_message_list(l_list_count - 1 ) = l_tag THEN
296: xdp_utilities.g_message_list.DELETE(l_list_count - 1 ) ;
297: ELSE
291: BEGIN
292: l_tag := '<'||p_tag||'>' ;
293: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
294:
295: IF xdp_utilities.g_message_list(l_list_count - 1 ) = l_tag THEN
296: xdp_utilities.g_message_list.DELETE(l_list_count - 1 ) ;
297: ELSE
298: xdp_utilities.g_message_list(l_list_count) := '' ;
299: END IF ;
292: l_tag := '<'||p_tag||'>' ;
293: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
294:
295: IF xdp_utilities.g_message_list(l_list_count - 1 ) = l_tag THEN
296: xdp_utilities.g_message_list.DELETE(l_list_count - 1 ) ;
297: ELSE
298: xdp_utilities.g_message_list(l_list_count) := '' ;
299: END IF ;
300:
294:
295: IF xdp_utilities.g_message_list(l_list_count - 1 ) = l_tag THEN
296: xdp_utilities.g_message_list.DELETE(l_list_count - 1 ) ;
297: ELSE
298: xdp_utilities.g_message_list(l_list_count) := '' ;
299: END IF ;
300:
301: END end_segment;
302:
311: IS
312: l_list_count NUMBER := 0;
313:
314: BEGIN
315: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
316: xdp_utilities.g_message_list(l_list_count) := '<' || p_tag || '>' ;
317:
318: END begin_segment;
319:
312: l_list_count NUMBER := 0;
313:
314: BEGIN
315: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
316: xdp_utilities.g_message_list(l_list_count) := '<' || p_tag || '>' ;
317:
318: END begin_segment;
319:
320: /***************************************************************************
331:
332: BEGIN
333:
334: l_xml_doc := p_xml_doc ;
335: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
336: xdp_utilities.g_message_list(l_list_count) := l_xml_doc ;
337:
338: END append ;
339:
332: BEGIN
333:
334: l_xml_doc := p_xml_doc ;
335: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
336: xdp_utilities.g_message_list(l_list_count) := l_xml_doc ;
337:
338: END append ;
339:
340: /***************************************************************************
348: IS
349: l_list_count NUMBER := 0;
350:
351: BEGIN
352: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
353: xdp_utilities.g_message_list(l_list_count) := TO_CHAR(p_xml_doc);
354:
355: END APPEND ;
356:
349: l_list_count NUMBER := 0;
350:
351: BEGIN
352: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
353: xdp_utilities.g_message_list(l_list_count) := TO_CHAR(p_xml_doc);
354:
355: END APPEND ;
356:
357: /***************************************************************************
365: IS
366: l_list_count NUMBER := 0;
367:
368: BEGIN
369: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
370: xdp_utilities.g_message_list(l_list_count) := XNP_UTILS.DATE_TO_CANONICAL( p_xml_doc) ;
371:
372: END append ;
373:
366: l_list_count NUMBER := 0;
367:
368: BEGIN
369: l_list_count := (xdp_utilities.g_message_list.COUNT + 1);
370: xdp_utilities.g_message_list(l_list_count) := XNP_UTILS.DATE_TO_CANONICAL( p_xml_doc) ;
371:
372: END append ;
373:
374: /***************************************************************************