source: FOIAVistA/trunk/r/RPC_BROKER-XWB/XWBM2MS.m@ 1123

Last change on this file since 1123 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 274 bytes
Line 
1XWBM2MS ;OIFO-Oakland/REM - M to M Broker Server ;3/21/02
2 ;;1.1;RPC BROKER;**28**;Mar 28, 1997
3 ;
4 QUIT ;No entry from top.
5 ;
6RPC(XWBDATA) ;
7 IF XWBDATA("URI")="XUS SIGNON SETUP" DO
8 .SET XWBTDEV="",XWBTIP="",XWBVER="1.1"
9 ;
10 QUIT
11 ;
12CLOSE ;
13 DO RESPONSE^XWBVL()
14 Q
15 ;
Note: See TracBrowser for help on using the repository browser.