Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XOBVRMX

XOBVRMX.m

Go to the documentation of this file.
  1. XOBVRMX ;mjk/alb - VistaLink Request Manager - Parse XML Requests using SAX interface ; 07/27/2002 13:00
  1. ;;1.6;VistALink;;May 08, 2009;Build 15
  1. ;Per VHA directive 2004-038, this routine should not be modified.
  1. QUIT
  1. ;
  1. ; -- parse xml
  1. EN(DOC,XOBOPT,XOBDATA,XOBHDLR) ; -- uses SAX parser
  1. NEW XOBCBK,XOBICBK
  1. DO SET(.XOBCBK)
  1. DO EN^MXMLPRSE(DOC,.XOBCBK,.XOBOPT)
  1. ENQ QUIT
  1. ;
  1. SET(XOBCBK) ; -- set the event interface entry points
  1. SET XOBCBK("STARTELEMENT")="ELEST^XOBVRMX"
  1. SET XOBCBK("ENDELEMENT")="ELEND^XOBVRMX"
  1. SET XOBCBK("CHARACTERS")="CHR^XOBVRMX"
  1. QUIT
  1. ;
  1. ELEST(ELE,ATR) ; -- element start callback
  1. IF ELE="VistaLink" DO
  1. . SET XOBDATA("VL VERSION")=$GET(ATR("version"),"1.0")
  1. . ;
  1. . ; -- set up request handler for message type
  1. . SET XOBHDLR=+$$MSGTYPE^XOBVRH($GET(ATR("messageType"),"[unknown]"),.XOBHDLR)
  1. ;
  1. ; -- do start element callback for request handler
  1. IF $GET(XOBHDLR(XOBHDLR)) XECUTE $GET(XOBHDLR(XOBHDLR,"CB","ELEST"))
  1. QUIT
  1. ;
  1. ELEND(ELE) ; -- element end callback
  1. ; -- do end element callback for request handler
  1. IF $GET(XOBHDLR(XOBHDLR)) XECUTE $GET(XOBHDLR(XOBHDLR,"CB","ELEND"))
  1. QUIT
  1. ;
  1. CHR(TXT) ; -- handler characters callback
  1. ; -- do character callback for request handler
  1. IF $GET(XOBHDLR(XOBHDLR)) XECUTE $GET(XOBHDLR(XOBHDLR,"CB","CHR"))
  1. QUIT
  1. ;
  1. ESC(X) ; -- convert special characters to \x format ; not currently used -- note QUIT at start
  1. QUIT X
  1. ;
  1. NEW C,Y,Z
  1. FOR Z=1:1 SET C=$EXTRACT(X,Z) QUIT:C="" DO
  1. .SET Y=$TRANSLATE(C,$CHAR(9,10,13,92),"tnc")
  1. .SET:C'=Y $EXTRACT(X,Z)="" ;$S(Y="":"\\",1:"\"_Y),Z=Z+1
  1. QUIT X
  1. ;