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

XWBVL.m

Go to the documentation of this file.
  1. XWBVL ;OIFO-Oakland/REM - M2M Broker Server Link Utl ;05/17/2002 17:46
  1. ;;1.1;RPC BROKER;**28**;Mar 28, 1997
  1. ;
  1. QUIT
  1. ;
  1. START(PORT) ; -- start listener
  1. ; // TODO: Add checks and structure to not start listener if already active on port
  1. DO START^XWBVLL(PORT)
  1. QUIT
  1. ;
  1. ; ---------------------------------------------------------------------
  1. ; Close Socket: Methods Calls
  1. ; ---------------------------------------------------------------------
  1. ;
  1. EXECUTE(XWBPARMS) ; -- execute rpc call
  1. NEW STATUS
  1. IF $G(XWBPARMS("RESULTS"))="" SET XWBPARMS("RESULTS")=$NA(^TMP("XWB CLOSE SOCKET",$J,"XML"))
  1. SET STATUS=$$EXECUTE^XWBVLC(.XWBPARMS)
  1. QUIT STATUS
  1. ;
  1. REQUEST(XWBPARMS) ; -- build xml request
  1. NEW XWBLINE
  1. SET XWBLINE=0
  1. SET XWBPARMS("MESSAGE TYPE")="Gov.VA.Med.Foundations.CloseSocketRequest"
  1. IF $G(XWBPARMS("REQUEST"))="" SET XWBPARMS("REQUEST")=$NA(XWBPARMS("REQUEST","XML"))
  1. SET XWBREQ=XWBPARMS("REQUEST")
  1. KILL @XWBREQ
  1. ;
  1. ; -- build request
  1. DO ADD($$XMLHDR^XWBUTL())
  1. DO ADD("<vistalink type="""_$G(XWBPARMS("MESSAGE TYPE"))_"""/>")
  1. QUIT
  1. ;
  1. ADD(STR) ; -- add string to array
  1. SET XWBLINE=XWBLINE+1
  1. SET @XWBREQ@(XWBLINE)=STR
  1. QUIT
  1. ;
  1. RESPONSE() ; -- build xml response
  1. ; -- initialize
  1. DO PRE^XWBRL
  1. DO WRITE^XWBRL($$XMLHDR^XWBUTL())
  1. DO WRITE^XWBRL("<vistalink type=""Gov.VA.Med.Foundations.CloseSocketResponse"">")
  1. DO WRITE^XWBRL("<results success=""1"" />")
  1. DO WRITE^XWBRL("</vistalink>")
  1. ; -- send eot and flush buffer
  1. DO POST^XWBRL
  1. QUIT
  1. ;
  1. ; ---------------------------------------------------------------------
  1. ; Parse Results of Successful RPC Request
  1. ; ---------------------------------------------------------------------
  1. ;
  1. PARSE(XWBPARMS,XWBY) ; -- parse legacy rpc results ; uses DOM parser
  1. NEW XWBDOM
  1. SET XWBDOM=$$EN^MXMLDOM(XWBPARMS("RESULTS"),"")
  1. SET @XWBY=$$VALUE^MXMLDOM(XWBDOM,2,"success")
  1. DO DELETE^MXMLDOM(XWBDOM)
  1. QUIT
  1. ;