eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.FND_GSM_UTIL dependencies on XMLDOM

Line 144: my_doc xmlDOM.DOMDocument;

140: queue_appl_id number;
141: fcq_enabled_flag varchar2(1);
142:
143: my_parser xmlParser.parser;
144: my_doc xmlDOM.DOMDocument;
145: my_nodelist xmlDOM.DOMNodeList;
146: my_nodelist2 xmlDOM.DOMNodeList;
147: my_contextlist xmlDOM.DOMNodeList;
148: my_node xmlDOM.DOMNode;

Line 145: my_nodelist xmlDOM.DOMNodeList;

141: fcq_enabled_flag varchar2(1);
142:
143: my_parser xmlParser.parser;
144: my_doc xmlDOM.DOMDocument;
145: my_nodelist xmlDOM.DOMNodeList;
146: my_nodelist2 xmlDOM.DOMNodeList;
147: my_contextlist xmlDOM.DOMNodeList;
148: my_node xmlDOM.DOMNode;
149: my_node2 xmlDOM.DOMNode;

Line 146: my_nodelist2 xmlDOM.DOMNodeList;

142:
143: my_parser xmlParser.parser;
144: my_doc xmlDOM.DOMDocument;
145: my_nodelist xmlDOM.DOMNodeList;
146: my_nodelist2 xmlDOM.DOMNodeList;
147: my_contextlist xmlDOM.DOMNodeList;
148: my_node xmlDOM.DOMNode;
149: my_node2 xmlDOM.DOMNode;
150: my_context xmlDOM.DOMNode;

Line 147: my_contextlist xmlDOM.DOMNodeList;

143: my_parser xmlParser.parser;
144: my_doc xmlDOM.DOMDocument;
145: my_nodelist xmlDOM.DOMNodeList;
146: my_nodelist2 xmlDOM.DOMNodeList;
147: my_contextlist xmlDOM.DOMNodeList;
148: my_node xmlDOM.DOMNode;
149: my_node2 xmlDOM.DOMNode;
150: my_context xmlDOM.DOMNode;
151: my_nodemap xmlDOM.DOMNamedNodeMap;

Line 148: my_node xmlDOM.DOMNode;

144: my_doc xmlDOM.DOMDocument;
145: my_nodelist xmlDOM.DOMNodeList;
146: my_nodelist2 xmlDOM.DOMNodeList;
147: my_contextlist xmlDOM.DOMNodeList;
148: my_node xmlDOM.DOMNode;
149: my_node2 xmlDOM.DOMNode;
150: my_context xmlDOM.DOMNode;
151: my_nodemap xmlDOM.DOMNamedNodeMap;
152: my_attr xmlDOM.DOMAttr;

Line 149: my_node2 xmlDOM.DOMNode;

145: my_nodelist xmlDOM.DOMNodeList;
146: my_nodelist2 xmlDOM.DOMNodeList;
147: my_contextlist xmlDOM.DOMNodeList;
148: my_node xmlDOM.DOMNode;
149: my_node2 xmlDOM.DOMNode;
150: my_context xmlDOM.DOMNode;
151: my_nodemap xmlDOM.DOMNamedNodeMap;
152: my_attr xmlDOM.DOMAttr;
153: my_element xmlDOM.DOMElement;

Line 150: my_context xmlDOM.DOMNode;

146: my_nodelist2 xmlDOM.DOMNodeList;
147: my_contextlist xmlDOM.DOMNodeList;
148: my_node xmlDOM.DOMNode;
149: my_node2 xmlDOM.DOMNode;
150: my_context xmlDOM.DOMNode;
151: my_nodemap xmlDOM.DOMNamedNodeMap;
152: my_attr xmlDOM.DOMAttr;
153: my_element xmlDOM.DOMElement;
154: server_type varchar2(128);

Line 151: my_nodemap xmlDOM.DOMNamedNodeMap;

147: my_contextlist xmlDOM.DOMNodeList;
148: my_node xmlDOM.DOMNode;
149: my_node2 xmlDOM.DOMNode;
150: my_context xmlDOM.DOMNode;
151: my_nodemap xmlDOM.DOMNamedNodeMap;
152: my_attr xmlDOM.DOMAttr;
153: my_element xmlDOM.DOMElement;
154: server_type varchar2(128);
155: oh_type varchar2(128);

Line 152: my_attr xmlDOM.DOMAttr;

148: my_node xmlDOM.DOMNode;
149: my_node2 xmlDOM.DOMNode;
150: my_context xmlDOM.DOMNode;
151: my_nodemap xmlDOM.DOMNamedNodeMap;
152: my_attr xmlDOM.DOMAttr;
153: my_element xmlDOM.DOMElement;
154: server_type varchar2(128);
155: oh_type varchar2(128);
156: i number;

Line 153: my_element xmlDOM.DOMElement;

149: my_node2 xmlDOM.DOMNode;
150: my_context xmlDOM.DOMNode;
151: my_nodemap xmlDOM.DOMNamedNodeMap;
152: my_attr xmlDOM.DOMAttr;
153: my_element xmlDOM.DOMElement;
154: server_type varchar2(128);
155: oh_type varchar2(128);
156: i number;
157: listlength number;

Line 159: my_cdata xmlDOM.DOMCharacterData;

155: oh_type varchar2(128);
156: i number;
157: listlength number;
158: file_found boolean := FALSE;
159: my_cdata xmlDOM.DOMCharacterData;
160:
161: sr_num varchar2(128);
162: f_sr_num number;
163: db_sr_num number;

Line 217: my_contextlist := xmldom.getElementsByTagName(my_doc, 'oa_context');

213: * this effort.
214: */
215:
216: /* Get version */
217: my_contextlist := xmldom.getElementsByTagName(my_doc, 'oa_context');
218: listlength := xmldom.getLength(my_contextlist);
219: if listlength < 1 then
220: -- may be it is metadata file
221: my_contextlist := xmldom.getElementsByTagName(my_doc,'oa_context_doc');

Line 218: listlength := xmldom.getLength(my_contextlist);

214: */
215:
216: /* Get version */
217: my_contextlist := xmldom.getElementsByTagName(my_doc, 'oa_context');
218: listlength := xmldom.getLength(my_contextlist);
219: if listlength < 1 then
220: -- may be it is metadata file
221: my_contextlist := xmldom.getElementsByTagName(my_doc,'oa_context_doc');
222: listlength := xmldom.getLength(my_contextlist);

Line 221: my_contextlist := xmldom.getElementsByTagName(my_doc,'oa_context_doc');

217: my_contextlist := xmldom.getElementsByTagName(my_doc, 'oa_context');
218: listlength := xmldom.getLength(my_contextlist);
219: if listlength < 1 then
220: -- may be it is metadata file
221: my_contextlist := xmldom.getElementsByTagName(my_doc,'oa_context_doc');
222: listlength := xmldom.getLength(my_contextlist);
223: if listlength < 1 then
224: element_name := 'oa_context/oa_context_doc';
225: dbms_lob.freetemporary(ctx_file_clob);

Line 222: listlength := xmldom.getLength(my_contextlist);

218: listlength := xmldom.getLength(my_contextlist);
219: if listlength < 1 then
220: -- may be it is metadata file
221: my_contextlist := xmldom.getElementsByTagName(my_doc,'oa_context_doc');
222: listlength := xmldom.getLength(my_contextlist);
223: if listlength < 1 then
224: element_name := 'oa_context/oa_context_doc';
225: dbms_lob.freetemporary(ctx_file_clob);
226: ctx_file_clob := null;

Line 231: my_node := xmldom.item(my_contextlist, 0);

227: raise missing_elem;
228: end if;
229: end if;
230:
231: my_node := xmldom.item(my_contextlist, 0);
232: my_element := xmldom.makeElement(my_node);
233: file_ver := xmldom.getAttribute(my_element, 'version');
234:
235: file_ver := substr(file_ver, instr(file_ver,':',1,1) + 1);

Line 232: my_element := xmldom.makeElement(my_node);

228: end if;
229: end if;
230:
231: my_node := xmldom.item(my_contextlist, 0);
232: my_element := xmldom.makeElement(my_node);
233: file_ver := xmldom.getAttribute(my_element, 'version');
234:
235: file_ver := substr(file_ver, instr(file_ver,':',1,1) + 1);
236:

Line 233: file_ver := xmldom.getAttribute(my_element, 'version');

229: end if;
230:
231: my_node := xmldom.item(my_contextlist, 0);
232: my_element := xmldom.makeElement(my_node);
233: file_ver := xmldom.getAttribute(my_element, 'version');
234:
235: file_ver := substr(file_ver, instr(file_ver,':',1,1) + 1);
236:
237: file_ver := rtrim(file_ver, '$');

Line 245: my_contextlist := xmldom.getElementsByTagName(my_doc, 'oa_context_name');

241: /* Get Context name */
242: if ( file_type = 'TEMPLATE' ) then
243: context_name := 'TEMPLATE';
244: else
245: my_contextlist := xmldom.getElementsByTagName(my_doc, 'oa_context_name');
246: listlength := xmldom.getLength(my_contextlist);
247: if listlength < 1 then
248: context_name := 'METADATA';
249: else

Line 246: listlength := xmldom.getLength(my_contextlist);

242: if ( file_type = 'TEMPLATE' ) then
243: context_name := 'TEMPLATE';
244: else
245: my_contextlist := xmldom.getElementsByTagName(my_doc, 'oa_context_name');
246: listlength := xmldom.getLength(my_contextlist);
247: if listlength < 1 then
248: context_name := 'METADATA';
249: else
250: my_node := xmldom.item(my_contextlist, 0);

Line 250: my_node := xmldom.item(my_contextlist, 0);

246: listlength := xmldom.getLength(my_contextlist);
247: if listlength < 1 then
248: context_name := 'METADATA';
249: else
250: my_node := xmldom.item(my_contextlist, 0);
251: my_node := xmldom.getFirstChild(my_node);
252: if xmldom.isNull(my_node) then
253: dbms_lob.freetemporary(ctx_file_clob);
254: ctx_file_clob := null;

Line 251: my_node := xmldom.getFirstChild(my_node);

247: if listlength < 1 then
248: context_name := 'METADATA';
249: else
250: my_node := xmldom.item(my_contextlist, 0);
251: my_node := xmldom.getFirstChild(my_node);
252: if xmldom.isNull(my_node) then
253: dbms_lob.freetemporary(ctx_file_clob);
254: ctx_file_clob := null;
255: raise null_context_name;

Line 252: if xmldom.isNull(my_node) then

248: context_name := 'METADATA';
249: else
250: my_node := xmldom.item(my_contextlist, 0);
251: my_node := xmldom.getFirstChild(my_node);
252: if xmldom.isNull(my_node) then
253: dbms_lob.freetemporary(ctx_file_clob);
254: ctx_file_clob := null;
255: raise null_context_name;
256: else

Line 257: context_name := ltrim(rtrim(xmldom.getNodeValue(my_node)));

253: dbms_lob.freetemporary(ctx_file_clob);
254: ctx_file_clob := null;
255: raise null_context_name;
256: else
257: context_name := ltrim(rtrim(xmldom.getNodeValue(my_node)));
258: end if;
259: end if;
260: end if;
261:

Line 274: my_nodelist := xmldom.getElementsByTagName(my_doc, 'host');

270: from v$session
271: where audsid=USERENV('SESSIONID');
272: else
273: /* Get Name of Node */
274: my_nodelist := xmldom.getElementsByTagName(my_doc, 'host');
275: listlength := xmldom.getLength(my_nodelist);
276: if listlength < 1 then
277: element_name := 'host';
278: dbms_lob.freetemporary(ctx_file_clob);

Line 275: listlength := xmldom.getLength(my_nodelist);

271: where audsid=USERENV('SESSIONID');
272: else
273: /* Get Name of Node */
274: my_nodelist := xmldom.getElementsByTagName(my_doc, 'host');
275: listlength := xmldom.getLength(my_nodelist);
276: if listlength < 1 then
277: element_name := 'host';
278: dbms_lob.freetemporary(ctx_file_clob);
279: ctx_file_clob := null;

Line 282: my_node := xmldom.item(my_nodelist, 0);

278: dbms_lob.freetemporary(ctx_file_clob);
279: ctx_file_clob := null;
280: raise missing_elem;
281: end if;
282: my_node := xmldom.item(my_nodelist, 0);
283: my_node := xmldom.getFirstChild(my_node);
284: if xmldom.isNull(my_node) then
285: primary_node := null;
286: else

Line 283: my_node := xmldom.getFirstChild(my_node);

279: ctx_file_clob := null;
280: raise missing_elem;
281: end if;
282: my_node := xmldom.item(my_nodelist, 0);
283: my_node := xmldom.getFirstChild(my_node);
284: if xmldom.isNull(my_node) then
285: primary_node := null;
286: else
287: primary_node := ltrim(rtrim(xmldom.getNodeValue(my_node)));

Line 284: if xmldom.isNull(my_node) then

280: raise missing_elem;
281: end if;
282: my_node := xmldom.item(my_nodelist, 0);
283: my_node := xmldom.getFirstChild(my_node);
284: if xmldom.isNull(my_node) then
285: primary_node := null;
286: else
287: primary_node := ltrim(rtrim(xmldom.getNodeValue(my_node)));
288: end if;

Line 287: primary_node := ltrim(rtrim(xmldom.getNodeValue(my_node)));

283: my_node := xmldom.getFirstChild(my_node);
284: if xmldom.isNull(my_node) then
285: primary_node := null;
286: else
287: primary_node := ltrim(rtrim(xmldom.getNodeValue(my_node)));
288: end if;
289: end if;
290:
291: /* Get Serial Number from context file */

Line 295: my_nodelist := xmldom.getElementsByTagName(my_doc, 'oa_context_serial');

291: /* Get Serial Number from context file */
292: if ( context_name in ('METADATA', 'TEMPLATE')) then
293: sr_num := '0';
294: else
295: my_nodelist := xmldom.getElementsByTagName(my_doc, 'oa_context_serial');
296: listlength := xmldom.getLength(my_nodelist);
297: if listlength < 1 then
298: goto service_upld;
299: end if;

Line 296: listlength := xmldom.getLength(my_nodelist);

292: if ( context_name in ('METADATA', 'TEMPLATE')) then
293: sr_num := '0';
294: else
295: my_nodelist := xmldom.getElementsByTagName(my_doc, 'oa_context_serial');
296: listlength := xmldom.getLength(my_nodelist);
297: if listlength < 1 then
298: goto service_upld;
299: end if;
300: my_node := xmldom.item(my_nodelist, 0);

Line 300: my_node := xmldom.item(my_nodelist, 0);

296: listlength := xmldom.getLength(my_nodelist);
297: if listlength < 1 then
298: goto service_upld;
299: end if;
300: my_node := xmldom.item(my_nodelist, 0);
301: my_node := xmldom.getFirstChild(my_node);
302: if xmldom.isNull(my_node) then
303: sr_num := null;
304: else

Line 301: my_node := xmldom.getFirstChild(my_node);

297: if listlength < 1 then
298: goto service_upld;
299: end if;
300: my_node := xmldom.item(my_nodelist, 0);
301: my_node := xmldom.getFirstChild(my_node);
302: if xmldom.isNull(my_node) then
303: sr_num := null;
304: else
305: sr_num := ltrim(rtrim(xmldom.getNodeValue(my_node)));

Line 302: if xmldom.isNull(my_node) then

298: goto service_upld;
299: end if;
300: my_node := xmldom.item(my_nodelist, 0);
301: my_node := xmldom.getFirstChild(my_node);
302: if xmldom.isNull(my_node) then
303: sr_num := null;
304: else
305: sr_num := ltrim(rtrim(xmldom.getNodeValue(my_node)));
306: end if;

Line 305: sr_num := ltrim(rtrim(xmldom.getNodeValue(my_node)));

301: my_node := xmldom.getFirstChild(my_node);
302: if xmldom.isNull(my_node) then
303: sr_num := null;
304: else
305: sr_num := ltrim(rtrim(xmldom.getNodeValue(my_node)));
306: end if;
307: end if;
308:
309: f_sr_num := to_number(NVL(sr_num,0));

Line 414: my_nodelist := xmldom.getElementsByTagName(my_doc, 'dbhost');

410: in db_domain, in c_null, in c_null, in n_null, out ret_val;
411:
412:
413: /* Get db_host value */
414: my_nodelist := xmldom.getElementsByTagName(my_doc, 'dbhost');
415: listlength := xmldom.getLength(my_nodelist);
416: if listlength < 1 then
417: element_name := 'dbhost';
418: raise missing_elem;

Line 415: listlength := xmldom.getLength(my_nodelist);

411:
412:
413: /* Get db_host value */
414: my_nodelist := xmldom.getElementsByTagName(my_doc, 'dbhost');
415: listlength := xmldom.getLength(my_nodelist);
416: if listlength < 1 then
417: element_name := 'dbhost';
418: raise missing_elem;
419: end if;

Line 420: my_node := xmldom.item(my_nodelist, 0);

416: if listlength < 1 then
417: element_name := 'dbhost';
418: raise missing_elem;
419: end if;
420: my_node := xmldom.item(my_nodelist, 0);
421: my_node := xmldom.getFirstChild(my_node);
422: if xmldom.isNull(my_node) then
423: db_host := null;
424: else

Line 421: my_node := xmldom.getFirstChild(my_node);

417: element_name := 'dbhost';
418: raise missing_elem;
419: end if;
420: my_node := xmldom.item(my_nodelist, 0);
421: my_node := xmldom.getFirstChild(my_node);
422: if xmldom.isNull(my_node) then
423: db_host := null;
424: else
425: db_host := ltrim(rtrim(xmldom.getNodeValue(my_node)));

Line 422: if xmldom.isNull(my_node) then

418: raise missing_elem;
419: end if;
420: my_node := xmldom.item(my_nodelist, 0);
421: my_node := xmldom.getFirstChild(my_node);
422: if xmldom.isNull(my_node) then
423: db_host := null;
424: else
425: db_host := ltrim(rtrim(xmldom.getNodeValue(my_node)));
426: end if;

Line 425: db_host := ltrim(rtrim(xmldom.getNodeValue(my_node)));

421: my_node := xmldom.getFirstChild(my_node);
422: if xmldom.isNull(my_node) then
423: db_host := null;
424: else
425: db_host := ltrim(rtrim(xmldom.getNodeValue(my_node)));
426: end if;
427:
428: /* Get db_sid value */
429: my_nodelist := xmldom.getElementsByTagName(my_doc, 'dbsid');

Line 429: my_nodelist := xmldom.getElementsByTagName(my_doc, 'dbsid');

425: db_host := ltrim(rtrim(xmldom.getNodeValue(my_node)));
426: end if;
427:
428: /* Get db_sid value */
429: my_nodelist := xmldom.getElementsByTagName(my_doc, 'dbsid');
430: listlength := xmldom.getLength(my_nodelist);
431: if listlength < 1 then
432: element_name := 'dbsid';
433: raise missing_elem;

Line 430: listlength := xmldom.getLength(my_nodelist);

426: end if;
427:
428: /* Get db_sid value */
429: my_nodelist := xmldom.getElementsByTagName(my_doc, 'dbsid');
430: listlength := xmldom.getLength(my_nodelist);
431: if listlength < 1 then
432: element_name := 'dbsid';
433: raise missing_elem;
434: end if;

Line 435: my_node := xmldom.item(my_nodelist, 0);

431: if listlength < 1 then
432: element_name := 'dbsid';
433: raise missing_elem;
434: end if;
435: my_node := xmldom.item(my_nodelist, 0);
436: my_node := xmldom.getFirstChild(my_node);
437: if xmldom.isNull(my_node) then
438: db_sid := null;
439: else

Line 436: my_node := xmldom.getFirstChild(my_node);

432: element_name := 'dbsid';
433: raise missing_elem;
434: end if;
435: my_node := xmldom.item(my_nodelist, 0);
436: my_node := xmldom.getFirstChild(my_node);
437: if xmldom.isNull(my_node) then
438: db_sid := null;
439: else
440: db_sid := ltrim(rtrim(xmldom.getNodeValue(my_node)));

Line 437: if xmldom.isNull(my_node) then

433: raise missing_elem;
434: end if;
435: my_node := xmldom.item(my_nodelist, 0);
436: my_node := xmldom.getFirstChild(my_node);
437: if xmldom.isNull(my_node) then
438: db_sid := null;
439: else
440: db_sid := ltrim(rtrim(xmldom.getNodeValue(my_node)));
441: end if;

Line 440: db_sid := ltrim(rtrim(xmldom.getNodeValue(my_node)));

436: my_node := xmldom.getFirstChild(my_node);
437: if xmldom.isNull(my_node) then
438: db_sid := null;
439: else
440: db_sid := ltrim(rtrim(xmldom.getNodeValue(my_node)));
441: end if;
442:
443: /* Get db_port value */
444: my_nodelist := xmldom.getElementsByTagName(my_doc, 'dbport');

Line 444: my_nodelist := xmldom.getElementsByTagName(my_doc, 'dbport');

440: db_sid := ltrim(rtrim(xmldom.getNodeValue(my_node)));
441: end if;
442:
443: /* Get db_port value */
444: my_nodelist := xmldom.getElementsByTagName(my_doc, 'dbport');
445: listlength := xmldom.getLength(my_nodelist);
446: if listlength < 1 then
447: element_name := 'dbport';
448: raise missing_elem;

Line 445: listlength := xmldom.getLength(my_nodelist);

441: end if;
442:
443: /* Get db_port value */
444: my_nodelist := xmldom.getElementsByTagName(my_doc, 'dbport');
445: listlength := xmldom.getLength(my_nodelist);
446: if listlength < 1 then
447: element_name := 'dbport';
448: raise missing_elem;
449: end if;

Line 450: my_node := xmldom.item(my_nodelist, 0);

446: if listlength < 1 then
447: element_name := 'dbport';
448: raise missing_elem;
449: end if;
450: my_node := xmldom.item(my_nodelist, 0);
451: my_node := xmldom.getFirstChild(my_node);
452: if xmldom.isNull(my_node) then
453: db_port := null;
454: else

Line 451: my_node := xmldom.getFirstChild(my_node);

447: element_name := 'dbport';
448: raise missing_elem;
449: end if;
450: my_node := xmldom.item(my_nodelist, 0);
451: my_node := xmldom.getFirstChild(my_node);
452: if xmldom.isNull(my_node) then
453: db_port := null;
454: else
455: db_port := to_number(ltrim(rtrim(xmldom.getNodeValue(my_node))));

Line 452: if xmldom.isNull(my_node) then

448: raise missing_elem;
449: end if;
450: my_node := xmldom.item(my_nodelist, 0);
451: my_node := xmldom.getFirstChild(my_node);
452: if xmldom.isNull(my_node) then
453: db_port := null;
454: else
455: db_port := to_number(ltrim(rtrim(xmldom.getNodeValue(my_node))));
456: end if;

Line 455: db_port := to_number(ltrim(rtrim(xmldom.getNodeValue(my_node))));

451: my_node := xmldom.getFirstChild(my_node);
452: if xmldom.isNull(my_node) then
453: db_port := null;
454: else
455: db_port := to_number(ltrim(rtrim(xmldom.getNodeValue(my_node))));
456: end if;
457:
458: select instance_number,instance_name
459: into inst_num, inst_name

Line 481: my_nodelist := xmldom.getElementsByTagName(my_doc, 'platform');

477:
478:
479:
480: /* Get Name of platform */
481: my_nodelist := xmldom.getElementsByTagName(my_doc, 'platform');
482: listlength := xmldom.getLength(my_nodelist);
483: if listlength < 1 then
484: element_name := 'platform';
485: raise missing_elem;

Line 482: listlength := xmldom.getLength(my_nodelist);

478:
479:
480: /* Get Name of platform */
481: my_nodelist := xmldom.getElementsByTagName(my_doc, 'platform');
482: listlength := xmldom.getLength(my_nodelist);
483: if listlength < 1 then
484: element_name := 'platform';
485: raise missing_elem;
486: end if;

Line 487: my_node := xmldom.item(my_nodelist, 0);

483: if listlength < 1 then
484: element_name := 'platform';
485: raise missing_elem;
486: end if;
487: my_node := xmldom.item(my_nodelist, 0);
488: my_node := xmldom.getFirstChild(my_node);
489: if xmldom.isNull(my_node) then
490: platform_name := null;
491: else

Line 488: my_node := xmldom.getFirstChild(my_node);

484: element_name := 'platform';
485: raise missing_elem;
486: end if;
487: my_node := xmldom.item(my_nodelist, 0);
488: my_node := xmldom.getFirstChild(my_node);
489: if xmldom.isNull(my_node) then
490: platform_name := null;
491: else
492: platform_name := ltrim(rtrim(xmldom.getNodeValue(my_node)));

Line 489: if xmldom.isNull(my_node) then

485: raise missing_elem;
486: end if;
487: my_node := xmldom.item(my_nodelist, 0);
488: my_node := xmldom.getFirstChild(my_node);
489: if xmldom.isNull(my_node) then
490: platform_name := null;
491: else
492: platform_name := ltrim(rtrim(xmldom.getNodeValue(my_node)));
493: end if;

Line 492: platform_name := ltrim(rtrim(xmldom.getNodeValue(my_node)));

488: my_node := xmldom.getFirstChild(my_node);
489: if xmldom.isNull(my_node) then
490: platform_name := null;
491: else
492: platform_name := ltrim(rtrim(xmldom.getNodeValue(my_node)));
493: end if;
494:
495:
496: -- Tru64 UNIX Alpha need hostname.domain_name as node name

Line 500: my_nodelist := xmldom.getElementsByTagName(my_doc, 'domain');

496: -- Tru64 UNIX Alpha need hostname.domain_name as node name
497:
498: if ( platform_name = 'UNIX Alpha' ) then
499: /* Get Name of domain */
500: my_nodelist := xmldom.getElementsByTagName(my_doc, 'domain');
501: listlength := xmldom.getLength(my_nodelist);
502: if listlength < 1 then
503: element_name := 'domain';
504: raise missing_elem;

Line 501: listlength := xmldom.getLength(my_nodelist);

497:
498: if ( platform_name = 'UNIX Alpha' ) then
499: /* Get Name of domain */
500: my_nodelist := xmldom.getElementsByTagName(my_doc, 'domain');
501: listlength := xmldom.getLength(my_nodelist);
502: if listlength < 1 then
503: element_name := 'domain';
504: raise missing_elem;
505: end if;

Line 506: my_node := xmldom.item(my_nodelist, 0);

502: if listlength < 1 then
503: element_name := 'domain';
504: raise missing_elem;
505: end if;
506: my_node := xmldom.item(my_nodelist, 0);
507: my_node := xmldom.getFirstChild(my_node);
508: if xmldom.isNull(my_node) then
509: domain_name := null;
510: else

Line 507: my_node := xmldom.getFirstChild(my_node);

503: element_name := 'domain';
504: raise missing_elem;
505: end if;
506: my_node := xmldom.item(my_nodelist, 0);
507: my_node := xmldom.getFirstChild(my_node);
508: if xmldom.isNull(my_node) then
509: domain_name := null;
510: else
511: domain_name := substr(ltrim(rtrim(xmldom.getNodeValue(my_node))), 1, 64);

Line 508: if xmldom.isNull(my_node) then

504: raise missing_elem;
505: end if;
506: my_node := xmldom.item(my_nodelist, 0);
507: my_node := xmldom.getFirstChild(my_node);
508: if xmldom.isNull(my_node) then
509: domain_name := null;
510: else
511: domain_name := substr(ltrim(rtrim(xmldom.getNodeValue(my_node))), 1, 64);
512: end if;

Line 511: domain_name := substr(ltrim(rtrim(xmldom.getNodeValue(my_node))), 1, 64);

507: my_node := xmldom.getFirstChild(my_node);
508: if xmldom.isNull(my_node) then
509: domain_name := null;
510: else
511: domain_name := substr(ltrim(rtrim(xmldom.getNodeValue(my_node))), 1, 64);
512: end if;
513:
514: tmp_node_name := primary_node || '.' || domain_name;
515: if (length(tmp_node_name) > 30) then

Line 529: my_nodelist := xmldom.getElementsByTagName(my_doc, 'reports_port');

525:
526:
527: /* Get the Reports port */
528:
529: my_nodelist := xmldom.getElementsByTagName(my_doc, 'reports_port');
530: listlength := xmldom.getLength(my_nodelist);
531: if listlength < 1 then
532: element_name := 'reports_port';
533: -- To fix 4684481

Line 530: listlength := xmldom.getLength(my_nodelist);

526:
527: /* Get the Reports port */
528:
529: my_nodelist := xmldom.getElementsByTagName(my_doc, 'reports_port');
530: listlength := xmldom.getLength(my_nodelist);
531: if listlength < 1 then
532: element_name := 'reports_port';
533: -- To fix 4684481
534: -- raise missing_elem;

Line 536: my_node := xmldom.item(my_nodelist, 0);

532: element_name := 'reports_port';
533: -- To fix 4684481
534: -- raise missing_elem;
535: else
536: my_node := xmldom.item(my_nodelist, 0);
537: my_node := xmldom.getFirstChild(my_node);
538: if xmldom.isNull(my_node) then
539: reports_port := null;
540: else

Line 537: my_node := xmldom.getFirstChild(my_node);

533: -- To fix 4684481
534: -- raise missing_elem;
535: else
536: my_node := xmldom.item(my_nodelist, 0);
537: my_node := xmldom.getFirstChild(my_node);
538: if xmldom.isNull(my_node) then
539: reports_port := null;
540: else
541: reports_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));

Line 538: if xmldom.isNull(my_node) then

534: -- raise missing_elem;
535: else
536: my_node := xmldom.item(my_nodelist, 0);
537: my_node := xmldom.getFirstChild(my_node);
538: if xmldom.isNull(my_node) then
539: reports_port := null;
540: else
541: reports_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));
542: end if;

Line 541: reports_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));

537: my_node := xmldom.getFirstChild(my_node);
538: if xmldom.isNull(my_node) then
539: reports_port := null;
540: else
541: reports_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));
542: end if;
543: end if;
544:
545:

Line 549: my_nodelist := xmldom.getElementsByTagName(my_doc, 'forms_port');

545:
546:
547: /* Get the Forms port */
548:
549: my_nodelist := xmldom.getElementsByTagName(my_doc, 'forms_port');
550: listlength := xmldom.getLength(my_nodelist);
551: if listlength < 1 then
552: element_name := 'forms_port';
553: -- To fix bug 5151130

Line 550: listlength := xmldom.getLength(my_nodelist);

546:
547: /* Get the Forms port */
548:
549: my_nodelist := xmldom.getElementsByTagName(my_doc, 'forms_port');
550: listlength := xmldom.getLength(my_nodelist);
551: if listlength < 1 then
552: element_name := 'forms_port';
553: -- To fix bug 5151130
554: -- raise missing_elem;

Line 556: my_node := xmldom.item(my_nodelist, 0);

552: element_name := 'forms_port';
553: -- To fix bug 5151130
554: -- raise missing_elem;
555: end if;
556: my_node := xmldom.item(my_nodelist, 0);
557: my_node := xmldom.getFirstChild(my_node);
558: if xmldom.isNull(my_node) then
559: forms_port := null;
560: else

Line 557: my_node := xmldom.getFirstChild(my_node);

553: -- To fix bug 5151130
554: -- raise missing_elem;
555: end if;
556: my_node := xmldom.item(my_nodelist, 0);
557: my_node := xmldom.getFirstChild(my_node);
558: if xmldom.isNull(my_node) then
559: forms_port := null;
560: else
561: forms_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));

Line 558: if xmldom.isNull(my_node) then

554: -- raise missing_elem;
555: end if;
556: my_node := xmldom.item(my_nodelist, 0);
557: my_node := xmldom.getFirstChild(my_node);
558: if xmldom.isNull(my_node) then
559: forms_port := null;
560: else
561: forms_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));
562: end if;

Line 561: forms_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));

557: my_node := xmldom.getFirstChild(my_node);
558: if xmldom.isNull(my_node) then
559: forms_port := null;
560: else
561: forms_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));
562: end if;
563:
564:
565:

Line 568: my_nodelist := xmldom.getElementsByTagName(my_doc, 'met_req_port');

564:
565:
566: /* Get the metrics request port */
567:
568: my_nodelist := xmldom.getElementsByTagName(my_doc, 'met_req_port');
569: listlength := xmldom.getLength(my_nodelist);
570: if listlength < 1 then
571: element_name := 'met_req_port';
572: -- To fix bug 5151130

Line 569: listlength := xmldom.getLength(my_nodelist);

565:
566: /* Get the metrics request port */
567:
568: my_nodelist := xmldom.getElementsByTagName(my_doc, 'met_req_port');
569: listlength := xmldom.getLength(my_nodelist);
570: if listlength < 1 then
571: element_name := 'met_req_port';
572: -- To fix bug 5151130
573: -- raise missing_elem;

Line 575: my_node := xmldom.item(my_nodelist, 0);

571: element_name := 'met_req_port';
572: -- To fix bug 5151130
573: -- raise missing_elem;
574: end if;
575: my_node := xmldom.item(my_nodelist, 0);
576: my_node := xmldom.getFirstChild(my_node);
577: if xmldom.isNull(my_node) then
578: met_req_port := null;
579: else

Line 576: my_node := xmldom.getFirstChild(my_node);

572: -- To fix bug 5151130
573: -- raise missing_elem;
574: end if;
575: my_node := xmldom.item(my_nodelist, 0);
576: my_node := xmldom.getFirstChild(my_node);
577: if xmldom.isNull(my_node) then
578: met_req_port := null;
579: else
580: met_req_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));

Line 577: if xmldom.isNull(my_node) then

573: -- raise missing_elem;
574: end if;
575: my_node := xmldom.item(my_nodelist, 0);
576: my_node := xmldom.getFirstChild(my_node);
577: if xmldom.isNull(my_node) then
578: met_req_port := null;
579: else
580: met_req_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));
581: end if;

Line 580: met_req_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));

576: my_node := xmldom.getFirstChild(my_node);
577: if xmldom.isNull(my_node) then
578: met_req_port := null;
579: else
580: met_req_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));
581: end if;
582:
583:
584:

Line 587: my_nodelist := xmldom.getElementsByTagName(my_doc, 'met_data_port');

583:
584:
585: /* Get the metrics data port */
586:
587: my_nodelist := xmldom.getElementsByTagName(my_doc, 'met_data_port');
588: listlength := xmldom.getLength(my_nodelist);
589: if listlength < 1 then
590: element_name := 'met_data_port';
591: -- To fix bug 5151130

Line 588: listlength := xmldom.getLength(my_nodelist);

584:
585: /* Get the metrics data port */
586:
587: my_nodelist := xmldom.getElementsByTagName(my_doc, 'met_data_port');
588: listlength := xmldom.getLength(my_nodelist);
589: if listlength < 1 then
590: element_name := 'met_data_port';
591: -- To fix bug 5151130
592: -- raise missing_elem;

Line 594: my_node := xmldom.item(my_nodelist, 0);

590: element_name := 'met_data_port';
591: -- To fix bug 5151130
592: -- raise missing_elem;
593: end if;
594: my_node := xmldom.item(my_nodelist, 0);
595: my_node := xmldom.getFirstChild(my_node);
596: if xmldom.isNull(my_node) then
597: met_data_port := null;
598: else

Line 595: my_node := xmldom.getFirstChild(my_node);

591: -- To fix bug 5151130
592: -- raise missing_elem;
593: end if;
594: my_node := xmldom.item(my_nodelist, 0);
595: my_node := xmldom.getFirstChild(my_node);
596: if xmldom.isNull(my_node) then
597: met_data_port := null;
598: else
599: met_data_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));

Line 596: if xmldom.isNull(my_node) then

592: -- raise missing_elem;
593: end if;
594: my_node := xmldom.item(my_nodelist, 0);
595: my_node := xmldom.getFirstChild(my_node);
596: if xmldom.isNull(my_node) then
597: met_data_port := null;
598: else
599: met_data_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));
600: end if;

Line 599: met_data_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));

595: my_node := xmldom.getFirstChild(my_node);
596: if xmldom.isNull(my_node) then
597: met_data_port := null;
598: else
599: met_data_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));
600: end if;
601:
602:
603: /* Get the web port */

Line 605: my_nodelist := xmldom.getElementsByTagName(my_doc, 'web_port');

601:
602:
603: /* Get the web port */
604:
605: my_nodelist := xmldom.getElementsByTagName(my_doc, 'web_port');
606: listlength := xmldom.getLength(my_nodelist);
607: if listlength < 1 then
608: element_name := 'web_port';
609: raise missing_elem;

Line 606: listlength := xmldom.getLength(my_nodelist);

602:
603: /* Get the web port */
604:
605: my_nodelist := xmldom.getElementsByTagName(my_doc, 'web_port');
606: listlength := xmldom.getLength(my_nodelist);
607: if listlength < 1 then
608: element_name := 'web_port';
609: raise missing_elem;
610: end if;

Line 611: my_node := xmldom.item(my_nodelist, 0);

607: if listlength < 1 then
608: element_name := 'web_port';
609: raise missing_elem;
610: end if;
611: my_node := xmldom.item(my_nodelist, 0);
612: my_node := xmldom.getFirstChild(my_node);
613: if xmldom.isNull(my_node) then
614: web_port := null;
615: else

Line 612: my_node := xmldom.getFirstChild(my_node);

608: element_name := 'web_port';
609: raise missing_elem;
610: end if;
611: my_node := xmldom.item(my_nodelist, 0);
612: my_node := xmldom.getFirstChild(my_node);
613: if xmldom.isNull(my_node) then
614: web_port := null;
615: else
616: web_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));

Line 613: if xmldom.isNull(my_node) then

609: raise missing_elem;
610: end if;
611: my_node := xmldom.item(my_nodelist, 0);
612: my_node := xmldom.getFirstChild(my_node);
613: if xmldom.isNull(my_node) then
614: web_port := null;
615: else
616: web_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));
617: end if;

Line 616: web_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));

612: my_node := xmldom.getFirstChild(my_node);
613: if xmldom.isNull(my_node) then
614: web_port := null;
615: else
616: web_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));
617: end if;
618:
619: /* Get web pls port if any */
620:

Line 621: my_nodelist := xmldom.getElementsByTagName(my_doc, 'web_port_pls');

617: end if;
618:
619: /* Get web pls port if any */
620:
621: my_nodelist := xmldom.getElementsByTagName(my_doc, 'web_port_pls');
622: listlength := xmldom.getLength(my_nodelist);
623: if listlength > 0 then
624: my_node := xmldom.item(my_nodelist, 0);
625: my_node := xmldom.getFirstChild(my_node);

Line 622: listlength := xmldom.getLength(my_nodelist);

618:
619: /* Get web pls port if any */
620:
621: my_nodelist := xmldom.getElementsByTagName(my_doc, 'web_port_pls');
622: listlength := xmldom.getLength(my_nodelist);
623: if listlength > 0 then
624: my_node := xmldom.item(my_nodelist, 0);
625: my_node := xmldom.getFirstChild(my_node);
626: if xmldom.isNull(my_node) then

Line 624: my_node := xmldom.item(my_nodelist, 0);

620:
621: my_nodelist := xmldom.getElementsByTagName(my_doc, 'web_port_pls');
622: listlength := xmldom.getLength(my_nodelist);
623: if listlength > 0 then
624: my_node := xmldom.item(my_nodelist, 0);
625: my_node := xmldom.getFirstChild(my_node);
626: if xmldom.isNull(my_node) then
627: web_pls_port := null;
628: else

Line 625: my_node := xmldom.getFirstChild(my_node);

621: my_nodelist := xmldom.getElementsByTagName(my_doc, 'web_port_pls');
622: listlength := xmldom.getLength(my_nodelist);
623: if listlength > 0 then
624: my_node := xmldom.item(my_nodelist, 0);
625: my_node := xmldom.getFirstChild(my_node);
626: if xmldom.isNull(my_node) then
627: web_pls_port := null;
628: else
629: web_pls_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));

Line 626: if xmldom.isNull(my_node) then

622: listlength := xmldom.getLength(my_nodelist);
623: if listlength > 0 then
624: my_node := xmldom.item(my_nodelist, 0);
625: my_node := xmldom.getFirstChild(my_node);
626: if xmldom.isNull(my_node) then
627: web_pls_port := null;
628: else
629: web_pls_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));
630: end if;

Line 629: web_pls_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));

625: my_node := xmldom.getFirstChild(my_node);
626: if xmldom.isNull(my_node) then
627: web_pls_port := null;
628: else
629: web_pls_port := ltrim(rtrim(xmldom.getNodeValue(my_node)));
630: end if;
631: else
632: web_pls_port := null;
633: end if;

Line 638: my_nodelist := xmldom.getElementsByTagName(my_doc, 'ORACLE_HOME');

634:
635:
636: /* Get the Apache_Top */
637:
638: my_nodelist := xmldom.getElementsByTagName(my_doc, 'ORACLE_HOME');
639: listlength := xmldom.getLength(my_nodelist);
640: if listlength < 1 then
641: element_name := 'ORACLE_HOME oa_var=s_web_oh';
642: raise missing_elem;

Line 639: listlength := xmldom.getLength(my_nodelist);

635:
636: /* Get the Apache_Top */
637:
638: my_nodelist := xmldom.getElementsByTagName(my_doc, 'ORACLE_HOME');
639: listlength := xmldom.getLength(my_nodelist);
640: if listlength < 1 then
641: element_name := 'ORACLE_HOME oa_var=s_web_oh';
642: raise missing_elem;
643: end if;

Line 646: my_node := xmldom.item(my_nodelist, i);

642: raise missing_elem;
643: end if;
644:
645: for i in 0..listlength-1 loop
646: my_node := xmldom.item(my_nodelist, i);
647: my_element := xmldom.makeElement(my_node);
648: oh_type := xmldom.getAttribute(my_element, 'oa_var');
649: exit when oh_type = 's_weboh_oh';
650: end loop;

Line 647: my_element := xmldom.makeElement(my_node);

643: end if;
644:
645: for i in 0..listlength-1 loop
646: my_node := xmldom.item(my_nodelist, i);
647: my_element := xmldom.makeElement(my_node);
648: oh_type := xmldom.getAttribute(my_element, 'oa_var');
649: exit when oh_type = 's_weboh_oh';
650: end loop;
651:

Line 648: oh_type := xmldom.getAttribute(my_element, 'oa_var');

644:
645: for i in 0..listlength-1 loop
646: my_node := xmldom.item(my_nodelist, i);
647: my_element := xmldom.makeElement(my_node);
648: oh_type := xmldom.getAttribute(my_element, 'oa_var');
649: exit when oh_type = 's_weboh_oh';
650: end loop;
651:
652: if (oh_type = 's_weboh_oh') then

Line 653: my_node := xmldom.getFirstChild(my_node);

649: exit when oh_type = 's_weboh_oh';
650: end loop;
651:
652: if (oh_type = 's_weboh_oh') then
653: my_node := xmldom.getFirstChild(my_node);
654: if xmldom.isNull(my_node) then
655: apache_top := null;
656: else
657: apache_top := ltrim(rtrim(xmldom.getNodeValue(my_node)));

Line 654: if xmldom.isNull(my_node) then

650: end loop;
651:
652: if (oh_type = 's_weboh_oh') then
653: my_node := xmldom.getFirstChild(my_node);
654: if xmldom.isNull(my_node) then
655: apache_top := null;
656: else
657: apache_top := ltrim(rtrim(xmldom.getNodeValue(my_node)));
658: end if;

Line 657: apache_top := ltrim(rtrim(xmldom.getNodeValue(my_node)));

653: my_node := xmldom.getFirstChild(my_node);
654: if xmldom.isNull(my_node) then
655: apache_top := null;
656: else
657: apache_top := ltrim(rtrim(xmldom.getNodeValue(my_node)));
658: end if;
659: else
660: element_name := 'ORACLE_HOME oa_var=s_web_oh';
661: raise missing_elem;

Line 667: my_nodelist := xmldom.getElementsByTagName(my_doc, 'web_pid_file');

663:
664:
665: /* Get the web pid file if any, do not show this an error */
666:
667: my_nodelist := xmldom.getElementsByTagName(my_doc, 'web_pid_file');
668: listlength := xmldom.getLength(my_nodelist);
669: if listlength > 0 then
670: my_node := xmldom.item(my_nodelist, 0);
671: my_node := xmldom.getFirstChild(my_node);

Line 668: listlength := xmldom.getLength(my_nodelist);

664:
665: /* Get the web pid file if any, do not show this an error */
666:
667: my_nodelist := xmldom.getElementsByTagName(my_doc, 'web_pid_file');
668: listlength := xmldom.getLength(my_nodelist);
669: if listlength > 0 then
670: my_node := xmldom.item(my_nodelist, 0);
671: my_node := xmldom.getFirstChild(my_node);
672: if xmldom.isNull(my_node) then

Line 670: my_node := xmldom.item(my_nodelist, 0);

666:
667: my_nodelist := xmldom.getElementsByTagName(my_doc, 'web_pid_file');
668: listlength := xmldom.getLength(my_nodelist);
669: if listlength > 0 then
670: my_node := xmldom.item(my_nodelist, 0);
671: my_node := xmldom.getFirstChild(my_node);
672: if xmldom.isNull(my_node) then
673: web_pid_file := null;
674: else

Line 671: my_node := xmldom.getFirstChild(my_node);

667: my_nodelist := xmldom.getElementsByTagName(my_doc, 'web_pid_file');
668: listlength := xmldom.getLength(my_nodelist);
669: if listlength > 0 then
670: my_node := xmldom.item(my_nodelist, 0);
671: my_node := xmldom.getFirstChild(my_node);
672: if xmldom.isNull(my_node) then
673: web_pid_file := null;
674: else
675: web_pid_file := ltrim(rtrim(xmldom.getNodeValue(my_node)));

Line 672: if xmldom.isNull(my_node) then

668: listlength := xmldom.getLength(my_nodelist);
669: if listlength > 0 then
670: my_node := xmldom.item(my_nodelist, 0);
671: my_node := xmldom.getFirstChild(my_node);
672: if xmldom.isNull(my_node) then
673: web_pid_file := null;
674: else
675: web_pid_file := ltrim(rtrim(xmldom.getNodeValue(my_node)));
676: end if;

Line 675: web_pid_file := ltrim(rtrim(xmldom.getNodeValue(my_node)));

671: my_node := xmldom.getFirstChild(my_node);
672: if xmldom.isNull(my_node) then
673: web_pid_file := null;
674: else
675: web_pid_file := ltrim(rtrim(xmldom.getNodeValue(my_node)));
676: end if;
677: end if;
678:
679: /* Get logs_dir value, used for reports */

Line 680: my_nodelist := xmldom.getElementsByTagName(my_doc, 'logs_dir');

676: end if;
677: end if;
678:
679: /* Get logs_dir value, used for reports */
680: my_nodelist := xmldom.getElementsByTagName(my_doc, 'logs_dir');
681: listlength := xmldom.getLength(my_nodelist);
682: if listlength > 0 then
683: my_node := xmldom.item(my_nodelist, 0);
684: my_node := xmldom.getFirstChild(my_node);

Line 681: listlength := xmldom.getLength(my_nodelist);

677: end if;
678:
679: /* Get logs_dir value, used for reports */
680: my_nodelist := xmldom.getElementsByTagName(my_doc, 'logs_dir');
681: listlength := xmldom.getLength(my_nodelist);
682: if listlength > 0 then
683: my_node := xmldom.item(my_nodelist, 0);
684: my_node := xmldom.getFirstChild(my_node);
685: if xmldom.isNull(my_node) then

Line 683: my_node := xmldom.item(my_nodelist, 0);

679: /* Get logs_dir value, used for reports */
680: my_nodelist := xmldom.getElementsByTagName(my_doc, 'logs_dir');
681: listlength := xmldom.getLength(my_nodelist);
682: if listlength > 0 then
683: my_node := xmldom.item(my_nodelist, 0);
684: my_node := xmldom.getFirstChild(my_node);
685: if xmldom.isNull(my_node) then
686: logs_dir := null;
687: else

Line 684: my_node := xmldom.getFirstChild(my_node);

680: my_nodelist := xmldom.getElementsByTagName(my_doc, 'logs_dir');
681: listlength := xmldom.getLength(my_nodelist);
682: if listlength > 0 then
683: my_node := xmldom.item(my_nodelist, 0);
684: my_node := xmldom.getFirstChild(my_node);
685: if xmldom.isNull(my_node) then
686: logs_dir := null;
687: else
688: logs_dir := ltrim(rtrim(xmldom.getNodeValue(my_node)));

Line 685: if xmldom.isNull(my_node) then

681: listlength := xmldom.getLength(my_nodelist);
682: if listlength > 0 then
683: my_node := xmldom.item(my_nodelist, 0);
684: my_node := xmldom.getFirstChild(my_node);
685: if xmldom.isNull(my_node) then
686: logs_dir := null;
687: else
688: logs_dir := ltrim(rtrim(xmldom.getNodeValue(my_node)));
689: end if;

Line 688: logs_dir := ltrim(rtrim(xmldom.getNodeValue(my_node)));

684: my_node := xmldom.getFirstChild(my_node);
685: if xmldom.isNull(my_node) then
686: logs_dir := null;
687: else
688: logs_dir := ltrim(rtrim(xmldom.getNodeValue(my_node)));
689: end if;
690: else
691: element_name := 'logs_dir oa_var=s_logdir';
692: raise missing_elem;

Line 697: my_nodelist := xmldom.getElementsByTagName(my_doc, 'config_option');

693: end if;
694:
695:
696: /* Get techstack value */
697: my_nodelist := xmldom.getElementsByTagName(my_doc, 'config_option');
698: listlength := xmldom.getLength(my_nodelist);
699: if listlength < 1 then
700: tech_stack := null;
701: end if;

Line 698: listlength := xmldom.getLength(my_nodelist);

694:
695:
696: /* Get techstack value */
697: my_nodelist := xmldom.getElementsByTagName(my_doc, 'config_option');
698: listlength := xmldom.getLength(my_nodelist);
699: if listlength < 1 then
700: tech_stack := null;
701: end if;
702:

Line 704: my_node := xmldom.item(my_nodelist, i);

700: tech_stack := null;
701: end if;
702:
703: for i in 0..listlength-1 loop
704: my_node := xmldom.item(my_nodelist, i);
705: my_element := xmldom.makeElement(my_node);
706: oh_type := xmldom.getAttribute(my_element, 'oa_var');
707: exit when oh_type = 's_techstack';
708: end loop;

Line 705: my_element := xmldom.makeElement(my_node);

701: end if;
702:
703: for i in 0..listlength-1 loop
704: my_node := xmldom.item(my_nodelist, i);
705: my_element := xmldom.makeElement(my_node);
706: oh_type := xmldom.getAttribute(my_element, 'oa_var');
707: exit when oh_type = 's_techstack';
708: end loop;
709:

Line 706: oh_type := xmldom.getAttribute(my_element, 'oa_var');

702:
703: for i in 0..listlength-1 loop
704: my_node := xmldom.item(my_nodelist, i);
705: my_element := xmldom.makeElement(my_node);
706: oh_type := xmldom.getAttribute(my_element, 'oa_var');
707: exit when oh_type = 's_techstack';
708: end loop;
709:
710: if (oh_type = 's_techstack') then

Line 711: my_node := xmldom.getFirstChild(my_node);

707: exit when oh_type = 's_techstack';
708: end loop;
709:
710: if (oh_type = 's_techstack') then
711: my_node := xmldom.getFirstChild(my_node);
712: if xmldom.isNull(my_node) then
713: tech_stack := null;
714: else
715: tech_stack := ltrim(rtrim(xmldom.getNodeValue(my_node)));

Line 712: if xmldom.isNull(my_node) then

708: end loop;
709:
710: if (oh_type = 's_techstack') then
711: my_node := xmldom.getFirstChild(my_node);
712: if xmldom.isNull(my_node) then
713: tech_stack := null;
714: else
715: tech_stack := ltrim(rtrim(xmldom.getNodeValue(my_node)));
716: end if;

Line 715: tech_stack := ltrim(rtrim(xmldom.getNodeValue(my_node)));

711: my_node := xmldom.getFirstChild(my_node);
712: if xmldom.isNull(my_node) then
713: tech_stack := null;
714: else
715: tech_stack := ltrim(rtrim(xmldom.getNodeValue(my_node)));
716: end if;
717: else
718: tech_stack := null;
719: end if;

Line 727: my_nodelist := xmldom.getElementsByTagname(my_doc, 'oa_process');

723: 'core' to Apache control script, else old stuff.
724: */
725:
726: mod_pls_exists := FALSE;
727: my_nodelist := xmldom.getElementsByTagname(my_doc, 'oa_process');
728: listlength := xmldom.getLength(my_nodelist);
729: for i in 0..(listlength -1 ) loop
730: my_node := xmldom.item(my_nodelist, i);
731: my_element := xmldom.makeElement(my_node);

Line 728: listlength := xmldom.getLength(my_nodelist);

724: */
725:
726: mod_pls_exists := FALSE;
727: my_nodelist := xmldom.getElementsByTagname(my_doc, 'oa_process');
728: listlength := xmldom.getLength(my_nodelist);
729: for i in 0..(listlength -1 ) loop
730: my_node := xmldom.item(my_nodelist, i);
731: my_element := xmldom.makeElement(my_node);
732: server_type := xmldom.getAttribute(my_element, 'type');

Line 730: my_node := xmldom.item(my_nodelist, i);

726: mod_pls_exists := FALSE;
727: my_nodelist := xmldom.getElementsByTagname(my_doc, 'oa_process');
728: listlength := xmldom.getLength(my_nodelist);
729: for i in 0..(listlength -1 ) loop
730: my_node := xmldom.item(my_nodelist, i);
731: my_element := xmldom.makeElement(my_node);
732: server_type := xmldom.getAttribute(my_element, 'type');
733:
734: if (server_type = 'apache_pls' ) then

Line 731: my_element := xmldom.makeElement(my_node);

727: my_nodelist := xmldom.getElementsByTagname(my_doc, 'oa_process');
728: listlength := xmldom.getLength(my_nodelist);
729: for i in 0..(listlength -1 ) loop
730: my_node := xmldom.item(my_nodelist, i);
731: my_element := xmldom.makeElement(my_node);
732: server_type := xmldom.getAttribute(my_element, 'type');
733:
734: if (server_type = 'apache_pls' ) then
735: mod_pls_exists := TRUE;

Line 732: server_type := xmldom.getAttribute(my_element, 'type');

728: listlength := xmldom.getLength(my_nodelist);
729: for i in 0..(listlength -1 ) loop
730: my_node := xmldom.item(my_nodelist, i);
731: my_element := xmldom.makeElement(my_node);
732: server_type := xmldom.getAttribute(my_element, 'type');
733:
734: if (server_type = 'apache_pls' ) then
735: mod_pls_exists := TRUE;
736: end if;

Line 742: my_nodelist := xmldom.getElementsByTagName(my_doc, 'oa_process');

738:
739:
740: /* Register Services */
741:
742: my_nodelist := xmldom.getElementsByTagName(my_doc, 'oa_process');
743: listlength := xmldom.getLength(my_nodelist);
744: for i in 0..(listlength - 1) loop
745: my_node := xmldom.item(my_nodelist, i);
746: my_element := xmldom.makeElement(my_node);

Line 743: listlength := xmldom.getLength(my_nodelist);

739:
740: /* Register Services */
741:
742: my_nodelist := xmldom.getElementsByTagName(my_doc, 'oa_process');
743: listlength := xmldom.getLength(my_nodelist);
744: for i in 0..(listlength - 1) loop
745: my_node := xmldom.item(my_nodelist, i);
746: my_element := xmldom.makeElement(my_node);
747: server_type := xmldom.getAttribute(my_element, 'type');

Line 745: my_node := xmldom.item(my_nodelist, i);

741:
742: my_nodelist := xmldom.getElementsByTagName(my_doc, 'oa_process');
743: listlength := xmldom.getLength(my_nodelist);
744: for i in 0..(listlength - 1) loop
745: my_node := xmldom.item(my_nodelist, i);
746: my_element := xmldom.makeElement(my_node);
747: server_type := xmldom.getAttribute(my_element, 'type');
748:
749:

Line 746: my_element := xmldom.makeElement(my_node);

742: my_nodelist := xmldom.getElementsByTagName(my_doc, 'oa_process');
743: listlength := xmldom.getLength(my_nodelist);
744: for i in 0..(listlength - 1) loop
745: my_node := xmldom.item(my_nodelist, i);
746: my_element := xmldom.makeElement(my_node);
747: server_type := xmldom.getAttribute(my_element, 'type');
748:
749:
750: /* Get the process name */

Line 747: server_type := xmldom.getAttribute(my_element, 'type');

743: listlength := xmldom.getLength(my_nodelist);
744: for i in 0..(listlength - 1) loop
745: my_node := xmldom.item(my_nodelist, i);
746: my_element := xmldom.makeElement(my_node);
747: server_type := xmldom.getAttribute(my_element, 'type');
748:
749:
750: /* Get the process name */
751: my_nodelist2 := xmldom.getElementsByTagName(my_element,

Line 751: my_nodelist2 := xmldom.getElementsByTagName(my_element,

747: server_type := xmldom.getAttribute(my_element, 'type');
748:
749:
750: /* Get the process name */
751: my_nodelist2 := xmldom.getElementsByTagName(my_element,
752: 'oa_process_name');
753: listlength := xmldom.getLength(my_nodelist2);
754: if listlength < 1 then
755: element_name := 'oa_process_name';

Line 753: listlength := xmldom.getLength(my_nodelist2);

749:
750: /* Get the process name */
751: my_nodelist2 := xmldom.getElementsByTagName(my_element,
752: 'oa_process_name');
753: listlength := xmldom.getLength(my_nodelist2);
754: if listlength < 1 then
755: element_name := 'oa_process_name';
756: raise missing_elem;
757: end if;

Line 758: my_node2 := xmldom.item(my_nodelist2, 0);

754: if listlength < 1 then
755: element_name := 'oa_process_name';
756: raise missing_elem;
757: end if;
758: my_node2 := xmldom.item(my_nodelist2, 0);
759: my_node2 := xmldom.getFirstChild(my_node2);
760: if xmldom.isNull(my_node2) then
761: process_name := null;
762: else

Line 759: my_node2 := xmldom.getFirstChild(my_node2);

755: element_name := 'oa_process_name';
756: raise missing_elem;
757: end if;
758: my_node2 := xmldom.item(my_nodelist2, 0);
759: my_node2 := xmldom.getFirstChild(my_node2);
760: if xmldom.isNull(my_node2) then
761: process_name := null;
762: else
763: process_name := ltrim(rtrim(

Line 760: if xmldom.isNull(my_node2) then

756: raise missing_elem;
757: end if;
758: my_node2 := xmldom.item(my_nodelist2, 0);
759: my_node2 := xmldom.getFirstChild(my_node2);
760: if xmldom.isNull(my_node2) then
761: process_name := null;
762: else
763: process_name := ltrim(rtrim(
764: xmldom.getNodeValue(my_node2), '" '), '" ');

Line 764: xmldom.getNodeValue(my_node2), '" '), '" ');

760: if xmldom.isNull(my_node2) then
761: process_name := null;
762: else
763: process_name := ltrim(rtrim(
764: xmldom.getNodeValue(my_node2), '" '), '" ');
765: end if;
766:
767:
768: /* Get the control script name. */

Line 769: my_nodelist2 := xmldom.getElementsByTagName(my_element,

765: end if;
766:
767:
768: /* Get the control script name. */
769: my_nodelist2 := xmldom.getElementsByTagName(my_element,
770: 'ctrl_script');
771: listlength := xmldom.getLength(my_nodelist2);
772: if listlength < 1 then
773: element_name := 'ctrl_script';

Line 771: listlength := xmldom.getLength(my_nodelist2);

767:
768: /* Get the control script name. */
769: my_nodelist2 := xmldom.getElementsByTagName(my_element,
770: 'ctrl_script');
771: listlength := xmldom.getLength(my_nodelist2);
772: if listlength < 1 then
773: element_name := 'ctrl_script';
774: raise missing_elem;
775: end if;

Line 776: my_node2 := xmldom.item(my_nodelist2, 0);

772: if listlength < 1 then
773: element_name := 'ctrl_script';
774: raise missing_elem;
775: end if;
776: my_node2 := xmldom.item(my_nodelist2, 0);
777: my_node2 := xmldom.getFirstChild(my_node2);
778: if xmldom.isNull(my_node2) then
779: ctrl_script := null;
780: else

Line 777: my_node2 := xmldom.getFirstChild(my_node2);

773: element_name := 'ctrl_script';
774: raise missing_elem;
775: end if;
776: my_node2 := xmldom.item(my_nodelist2, 0);
777: my_node2 := xmldom.getFirstChild(my_node2);
778: if xmldom.isNull(my_node2) then
779: ctrl_script := null;
780: else
781: ctrl_script := ltrim(rtrim(

Line 778: if xmldom.isNull(my_node2) then

774: raise missing_elem;
775: end if;
776: my_node2 := xmldom.item(my_nodelist2, 0);
777: my_node2 := xmldom.getFirstChild(my_node2);
778: if xmldom.isNull(my_node2) then
779: ctrl_script := null;
780: else
781: ctrl_script := ltrim(rtrim(
782: xmldom.getNodeValue(my_node2), '" '), '" ');

Line 782: xmldom.getNodeValue(my_node2), '" '), '" ');

778: if xmldom.isNull(my_node2) then
779: ctrl_script := null;
780: else
781: ctrl_script := ltrim(rtrim(
782: xmldom.getNodeValue(my_node2), '" '), '" ');
783: end if;
784:
785:
786: /* Get the log file name name. */

Line 787: my_nodelist2 := xmldom.getElementsByTagName(my_element,

783: end if;
784:
785:
786: /* Get the log file name name. */
787: my_nodelist2 := xmldom.getElementsByTagName(my_element,
788: 'oa_process_log');
789: listlength := xmldom.getLength(my_nodelist2);
790: if listlength < 1 then
791: element_name := 'oa_process_log';

Line 789: listlength := xmldom.getLength(my_nodelist2);

785:
786: /* Get the log file name name. */
787: my_nodelist2 := xmldom.getElementsByTagName(my_element,
788: 'oa_process_log');
789: listlength := xmldom.getLength(my_nodelist2);
790: if listlength < 1 then
791: element_name := 'oa_process_log';
792: raise missing_elem;
793: end if;

Line 794: my_node2 := xmldom.item(my_nodelist2, 0);

790: if listlength < 1 then
791: element_name := 'oa_process_log';
792: raise missing_elem;
793: end if;
794: my_node2 := xmldom.item(my_nodelist2, 0);
795: my_node2 := xmldom.getFirstChild(my_node2);
796: if xmldom.isNull(my_node2) then
797: process_log := null;
798: else

Line 795: my_node2 := xmldom.getFirstChild(my_node2);

791: element_name := 'oa_process_log';
792: raise missing_elem;
793: end if;
794: my_node2 := xmldom.item(my_nodelist2, 0);
795: my_node2 := xmldom.getFirstChild(my_node2);
796: if xmldom.isNull(my_node2) then
797: process_log := null;
798: else
799: process_log := ltrim(rtrim(

Line 796: if xmldom.isNull(my_node2) then

792: raise missing_elem;
793: end if;
794: my_node2 := xmldom.item(my_nodelist2, 0);
795: my_node2 := xmldom.getFirstChild(my_node2);
796: if xmldom.isNull(my_node2) then
797: process_log := null;
798: else
799: process_log := ltrim(rtrim(
800: xmldom.getNodeValue(my_node2), '" '), '" ');

Line 800: xmldom.getNodeValue(my_node2), '" '), '" ');

796: if xmldom.isNull(my_node2) then
797: process_log := null;
798: else
799: process_log := ltrim(rtrim(
800: xmldom.getNodeValue(my_node2), '" '), '" ');
801: end if;
802:
803:
804: if server_type in ('apache','forms','met_cl','met_srv',

Line 946: my_nodelist2 := xmldom.getElementsByTagName(my_element,

942: '.PID'||';'||'SERVICE='||process_name;
943: end if;
944:
945: /* Is the service enabled? */
946: my_nodelist2 := xmldom.getElementsByTagName(my_element,
947: 'oa_process_status');
948: listlength := xmldom.getLength(my_nodelist2);
949: if listlength < 1 then
950: element_name := 'oa_process_status';

Line 948: listlength := xmldom.getLength(my_nodelist2);

944:
945: /* Is the service enabled? */
946: my_nodelist2 := xmldom.getElementsByTagName(my_element,
947: 'oa_process_status');
948: listlength := xmldom.getLength(my_nodelist2);
949: if listlength < 1 then
950: element_name := 'oa_process_status';
951: raise missing_elem;
952: end if;

Line 953: my_node2 := xmldom.item(my_nodelist2, 0);

949: if listlength < 1 then
950: element_name := 'oa_process_status';
951: raise missing_elem;
952: end if;
953: my_node2 := xmldom.item(my_nodelist2, 0);
954: my_node2 := xmldom.getFirstChild(my_node2);
955: if xmldom.isNull(my_node2) then
956: status := 'disabled';
957: else

Line 954: my_node2 := xmldom.getFirstChild(my_node2);

950: element_name := 'oa_process_status';
951: raise missing_elem;
952: end if;
953: my_node2 := xmldom.item(my_nodelist2, 0);
954: my_node2 := xmldom.getFirstChild(my_node2);
955: if xmldom.isNull(my_node2) then
956: status := 'disabled';
957: else
958: status := ltrim(rtrim(xmldom.getNodeValue(my_node2), '" '), '" ');

Line 955: if xmldom.isNull(my_node2) then

951: raise missing_elem;
952: end if;
953: my_node2 := xmldom.item(my_nodelist2, 0);
954: my_node2 := xmldom.getFirstChild(my_node2);
955: if xmldom.isNull(my_node2) then
956: status := 'disabled';
957: else
958: status := ltrim(rtrim(xmldom.getNodeValue(my_node2), '" '), '" ');
959: end if;

Line 958: status := ltrim(rtrim(xmldom.getNodeValue(my_node2), '" '), '" ');

954: my_node2 := xmldom.getFirstChild(my_node2);
955: if xmldom.isNull(my_node2) then
956: status := 'disabled';
957: else
958: status := ltrim(rtrim(xmldom.getNodeValue(my_node2), '" '), '" ');
959: end if;
960:
961: if status = 'enabled' then
962: /* Does the service exist in GSM? */

Line 1025: if (not xmldom.isNull(my_doc)) then

1021: exception
1022: when program_error then
1023: message := fnd_manager.message;
1024:
1025: if (not xmldom.isNull(my_doc)) then
1026: xmldom.freeDocument (my_doc);
1027: end if;
1028: xmlparser.freeParser (my_parser);
1029:

Line 1026: xmldom.freeDocument (my_doc);

1022: when program_error then
1023: message := fnd_manager.message;
1024:
1025: if (not xmldom.isNull(my_doc)) then
1026: xmldom.freeDocument (my_doc);
1027: end if;
1028: xmlparser.freeParser (my_parser);
1029:
1030: retcode := 1;

Line 1041: if (not xmldom.isNull(my_doc)) then

1037: fnd_message.set_token('ERRNO', SQLCODE);
1038: fnd_message.set_token('REASON', SQLERRM);
1039: message := fnd_message.get;
1040:
1041: if (not xmldom.isNull(my_doc)) then
1042: xmldom.freeDocument (my_doc);
1043: end if;
1044: xmlparser.freeParser (my_parser);
1045:

Line 1042: xmldom.freeDocument (my_doc);

1038: fnd_message.set_token('REASON', SQLERRM);
1039: message := fnd_message.get;
1040:
1041: if (not xmldom.isNull(my_doc)) then
1042: xmldom.freeDocument (my_doc);
1043: end if;
1044: xmlparser.freeParser (my_parser);
1045:
1046: retcode := 1;

Line 1065: if (not xmldom.isNull(my_doc)) then

1061: end if;
1062:
1063: end loop;
1064:
1065: if (not xmldom.isNull(my_doc)) then
1066: xmldom.freeDocument (my_doc);
1067: end if;
1068: xmlparser.freeParser (my_parser);
1069:

Line 1066: xmldom.freeDocument (my_doc);

1062:
1063: end loop;
1064:
1065: if (not xmldom.isNull(my_doc)) then
1066: xmldom.freeDocument (my_doc);
1067: end if;
1068: xmlparser.freeParser (my_parser);
1069:
1070: retcode := 0;

Line 1074: if (not xmldom.isNull(my_doc)) then

1070: retcode := 0;
1071:
1072: exception
1073: when metadata_file then
1074: if (not xmldom.isNull(my_doc)) then
1075: xmldom.freeDocument (my_doc);
1076: end if;
1077: xmlparser.freeParser (my_parser);
1078:

Line 1075: xmldom.freeDocument (my_doc);

1071:
1072: exception
1073: when metadata_file then
1074: if (not xmldom.isNull(my_doc)) then
1075: xmldom.freeDocument (my_doc);
1076: end if;
1077: xmlparser.freeParser (my_parser);
1078:
1079: retcode := 0;

Line 1086: if (not xmldom.isNull(my_doc)) then

1082: fnd_message.set_name('FND', 'GSM-CTX NULL CONTEXT');
1083: fnd_message.set_token('FILE', filepath);
1084: message := fnd_message.get;
1085:
1086: if (not xmldom.isNull(my_doc)) then
1087: xmldom.freeDocument (my_doc);
1088: end if;
1089: xmlparser.freeParser (my_parser);
1090:

Line 1087: xmldom.freeDocument (my_doc);

1083: fnd_message.set_token('FILE', filepath);
1084: message := fnd_message.get;
1085:
1086: if (not xmldom.isNull(my_doc)) then
1087: xmldom.freeDocument (my_doc);
1088: end if;
1089: xmlparser.freeParser (my_parser);
1090:
1091: retcode := 1;

Line 1098: if (not xmldom.isNull(my_doc)) then

1094: fnd_message.set_name('FND', 'GSM-CTX FILE SYS COPY LOW');
1095: fnd_message.set_token('FILE', filepath);
1096: message := fnd_message.get;
1097:
1098: if (not xmldom.isNull(my_doc)) then
1099: xmldom.freeDocument (my_doc);
1100: end if;
1101: xmlparser.freeParser (my_parser);
1102:

Line 1099: xmldom.freeDocument (my_doc);

1095: fnd_message.set_token('FILE', filepath);
1096: message := fnd_message.get;
1097:
1098: if (not xmldom.isNull(my_doc)) then
1099: xmldom.freeDocument (my_doc);
1100: end if;
1101: xmlparser.freeParser (my_parser);
1102:
1103: retcode := 1;

Line 1111: if (not xmldom.isNull(my_doc)) then

1107: fnd_message.set_token('ELEMENT', element_name);
1108: fnd_message.set_token('FILE', filepath);
1109: message := fnd_message.get;
1110:
1111: if (not xmldom.isNull(my_doc)) then
1112: xmldom.freeDocument (my_doc);
1113: end if;
1114: xmlparser.freeParser (my_parser);
1115:

Line 1112: xmldom.freeDocument (my_doc);

1108: fnd_message.set_token('FILE', filepath);
1109: message := fnd_message.get;
1110:
1111: if (not xmldom.isNull(my_doc)) then
1112: xmldom.freeDocument (my_doc);
1113: end if;
1114: xmlparser.freeParser (my_parser);
1115:
1116: retcode := 1;

Line 1123: if (not xmldom.isNull(my_doc)) then

1119: fnd_message.set_name('FND', 'GSM-CTX NODE NAME TOO LONG');
1120: fnd_message.set_token('NODE_NAME', tmp_node_name);
1121: message := fnd_message.get;
1122:
1123: if (not xmldom.isNull(my_doc)) then
1124: xmldom.freeDocument (my_doc);
1125: end if;
1126: xmlparser.freeParser (my_parser);
1127:

Line 1124: xmldom.freeDocument (my_doc);

1120: fnd_message.set_token('NODE_NAME', tmp_node_name);
1121: message := fnd_message.get;
1122:
1123: if (not xmldom.isNull(my_doc)) then
1124: xmldom.freeDocument (my_doc);
1125: end if;
1126: xmlparser.freeParser (my_parser);
1127:
1128: retcode := 1;

Line 1137: if (not xmldom.isNull(my_doc)) then

1133: fnd_message.set_token('ERRNO', SQLCODE);
1134: fnd_message.set_token('REASON', SQLERRM);
1135: message := fnd_message.get;
1136:
1137: if (not xmldom.isNull(my_doc)) then
1138: xmldom.freeDocument (my_doc);
1139: end if;
1140: xmlparser.freeParser (my_parser);
1141:

Line 1138: xmldom.freeDocument (my_doc);

1134: fnd_message.set_token('REASON', SQLERRM);
1135: message := fnd_message.get;
1136:
1137: if (not xmldom.isNull(my_doc)) then
1138: xmldom.freeDocument (my_doc);
1139: end if;
1140: xmlparser.freeParser (my_parser);
1141:
1142: retcode := 1;