Released XWB*1.1*59 SEQ #44 Extracted from mail message **KIDS**:XWB*1.1*59^ **INSTALL NAME** XWB*1.1*59 "BLD",1447,0) XWB*1.1*59^RPC BROKER^0^3120628^y "BLD",1447,1,0) ^^2^2^3120622^ "BLD",1447,1,1,0) Refer to the patch description on Forum. "BLD",1447,1,2,0) "BLD",1447,4,0) ^9.64PA^^ "BLD",1447,6.3) 2 "BLD",1447,"KRN",0) ^9.67PA^9002226^21 "BLD",1447,"KRN",.4,0) .4 "BLD",1447,"KRN",.401,0) .401 "BLD",1447,"KRN",.402,0) .402 "BLD",1447,"KRN",.403,0) .403 "BLD",1447,"KRN",.5,0) .5 "BLD",1447,"KRN",.84,0) .84 "BLD",1447,"KRN",3.6,0) 3.6 "BLD",1447,"KRN",3.8,0) 3.8 "BLD",1447,"KRN",9.2,0) 9.2 "BLD",1447,"KRN",9.8,0) 9.8 "BLD",1447,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",1447,"KRN",9.8,"NM",1,0) XWBTCPM2^^0^B4708442 "BLD",1447,"KRN",9.8,"NM","B","XWBTCPM2",1) "BLD",1447,"KRN",19,0) 19 "BLD",1447,"KRN",19.1,0) 19.1 "BLD",1447,"KRN",101,0) 101 "BLD",1447,"KRN",409.61,0) 409.61 "BLD",1447,"KRN",771,0) 771 "BLD",1447,"KRN",779.2,0) 779.2 "BLD",1447,"KRN",870,0) 870 "BLD",1447,"KRN",8989.51,0) 8989.51 "BLD",1447,"KRN",8989.52,0) 8989.52 "BLD",1447,"KRN",8994,0) 8994 "BLD",1447,"KRN",9002226,0) 9002226 "BLD",1447,"KRN","B",.4,.4) "BLD",1447,"KRN","B",.401,.401) "BLD",1447,"KRN","B",.402,.402) "BLD",1447,"KRN","B",.403,.403) "BLD",1447,"KRN","B",.5,.5) "BLD",1447,"KRN","B",.84,.84) "BLD",1447,"KRN","B",3.6,3.6) "BLD",1447,"KRN","B",3.8,3.8) "BLD",1447,"KRN","B",9.2,9.2) "BLD",1447,"KRN","B",9.8,9.8) "BLD",1447,"KRN","B",19,19) "BLD",1447,"KRN","B",19.1,19.1) "BLD",1447,"KRN","B",101,101) "BLD",1447,"KRN","B",409.61,409.61) "BLD",1447,"KRN","B",771,771) "BLD",1447,"KRN","B",779.2,779.2) "BLD",1447,"KRN","B",870,870) "BLD",1447,"KRN","B",8989.51,8989.51) "BLD",1447,"KRN","B",8989.52,8989.52) "BLD",1447,"KRN","B",8994,8994) "BLD",1447,"KRN","B",9002226,9002226) "BLD",1447,"QDEF") ^^^^NO^^^^NO^^NO "BLD",1447,"QUES",0) ^9.62^^ "MBREQ") 0 "PKG",8,-1) 1^1 "PKG",8,0) RPC BROKER^XWB^Remote Procedure Call Broker^ "PKG",8,20,0) ^9.402P^^ "PKG",8,22,0) ^9.49I^1^1 "PKG",8,22,1,0) 1.1^2970918^2971120^7 "PKG",8,22,1,"PAH",1,0) 59^3120628 "PKG",8,22,1,"PAH",1,1,0) ^^2^2^3120628 "PKG",8,22,1,"PAH",1,1,1,0) Refer to the patch description on Forum. "PKG",8,22,1,"PAH",1,1,2,0) "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") NO "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 1 "RTN","XWBTCPM2") 0^1^B4708442^B4246015 "RTN","XWBTCPM2",1,0) XWBTCPM2 ;ISF/RWF - BROKER Other Service ;06/28/2012 "RTN","XWBTCPM2",2,0) ;;1.1;RPC BROKER;**43,45,53,59**;Mar 28, 1997;Build 2 "RTN","XWBTCPM2",3,0) ;Per VHA Directive 2004-038, this routine should not be modified "RTN","XWBTCPM2",4,0) ; "RTN","XWBTCPM2",5,0) Q "RTN","XWBTCPM2",6,0) ; "RTN","XWBTCPM2",7,0) OTH ;Check if some other special service. "RTN","XWBTCPM2",8,0) ; ZEXCEPT: XWB - set prior to call from CONNTYPE^XWBTCPM "RTN","XWBTCPM2",9,0) S $ETRAP="D ERR^XWBTCPM2" "RTN","XWBTCPM2",10,0) I XWB="~EAC~" G EAC "RTN","XWBTCPM2",11,0) I XWB="~BSE~" G BSE "RTN","XWBTCPM2",12,0) I XWB="~SVR~" G SVR "RTN","XWBTCPM2",13,0) D LOG("In 0TH^XWBTCPM2 - Prefix not known: "_XWB) "RTN","XWBTCPM2",14,0) Q "RTN","XWBTCPM2",15,0) ; "RTN","XWBTCPM2",16,0) SVR ;Handle "RTN","XWBTCPM2",17,0) Q "RTN","XWBTCPM2",18,0) EAC ;Enterprise Access "RTN","XWBTCPM2",19,0) Q "RTN","XWBTCPM2",20,0) ; "RTN","XWBTCPM2",21,0) BSE ;Broker Security Enhancement "RTN","XWBTCPM2",22,0) D LOG("BSE msg") "RTN","XWBTCPM2",23,0) N L,HDL,RET,XWBSBUF "RTN","XWBTCPM2",24,0) S XWBSBUF="",RET="",HDL="" "RTN","XWBTCPM2",25,0) S L=$$BREAD^XWBRW(3) I L S HDL=$$BREAD^XWBRW(L) "RTN","XWBTCPM2",26,0) I $E(HDL,1,3)="PUT" D "RTN","XWBTCPM2",27,0) . ;D RPUT^XUSBSE1(.RET,HDL) ;p59(REM)-RPUT^XUSBSE1 does not exsist. "RTN","XWBTCPM2",28,0) . Q "RTN","XWBTCPM2",29,0) ;Check IT "RTN","XWBTCPM2",30,0) I $E(HDL,1,3)'="PUT" D GETVISIT^XUSBSE1(.RET,HDL) "RTN","XWBTCPM2",31,0) D WRITE(RET),WBF "RTN","XWBTCPM2",32,0) Q "RTN","XWBTCPM2",33,0) ; "RTN","XWBTCPM2",34,0) ERR ;Error Trap "RTN","XWBTCPM2",35,0) D ^%ZTER "RTN","XWBTCPM2",36,0) G H2^XUSCLEAN "RTN","XWBTCPM2",37,0) ; "RTN","XWBTCPM2",38,0) LOG(%) ;Link to logger "RTN","XWBTCPM2",39,0) Q:'$G(XWBDEBUG) "RTN","XWBTCPM2",40,0) D LOG^XWBTCPM(%) "RTN","XWBTCPM2",41,0) Q "RTN","XWBTCPM2",42,0) ; "RTN","XWBTCPM2",43,0) WRITE(M,F) ;Write "RTN","XWBTCPM2",44,0) N L S L="" I '$G(F) S L=$E(1000+$L(M),2,4) "RTN","XWBTCPM2",45,0) D WRITE^XWBRW(L_M) "RTN","XWBTCPM2",46,0) Q "RTN","XWBTCPM2",47,0) WBF ;Buffer Flush "RTN","XWBTCPM2",48,0) D WBF^XWBRW "RTN","XWBTCPM2",49,0) Q "RTN","XWBTCPM2",50,0) ; "RTN","XWBTCPM2",51,0) OPEN(P1,P2) ;Open the device and set the variables "RTN","XWBTCPM2",52,0) D CALL^%ZISTCP(P1,P2) Q:POP "RTN","XWBTCPM2",53,0) S XWBTDEV=IO "RTN","XWBTCPM2",54,0) Q "RTN","XWBTCPM2",55,0) ; "RTN","XWBTCPM2",56,0) CALLBSE(SERVER,PORT,TOKEN,STN) ;Special Broker service "RTN","XWBTCPM2",57,0) N XWBDEBUG,XWBOS,XWBRBUF,XWBSBUF,XWBT,XWBTIME,IO "RTN","XWBTCPM2",58,0) N DEMOSTR,XWBTDEV,RET,X,POP "RTN","XWBTCPM2",59,0) S IO(0)=$P "RTN","XWBTCPM2",60,0) D INIT^XWBTCPM,LOG("CALLBSE") "RTN","XWBTCPM2",61,0) D OPEN(SERVER,PORT) "RTN","XWBTCPM2",62,0) ; if initial failure try to get web address "RTN","XWBTCPM2",63,0) I POP,$G(STN)'="" S SERVER=$$WEBADDRS^XUSBSE1(STN) I SERVER'="" D OPEN(SERVER,PORT) "RTN","XWBTCPM2",64,0) I POP Q "Didn't open connection." "RTN","XWBTCPM2",65,0) S XWBSBUF="",XWBRBUF="" "RTN","XWBTCPM2",66,0) U XWBTDEV "RTN","XWBTCPM2",67,0) D WRITE("~BSE~",1),WRITE(TOKEN),WBF^XWBRW "RTN","XWBTCPM2",68,0) S X=$$BREAD^XWBRW(3),RET="No Response" I X S RET=$$BREAD^XWBRW(X) "RTN","XWBTCPM2",69,0) D CLOSE^%ZISTCP,LOG("FINISH") "RTN","XWBTCPM2",70,0) Q RET "VER") 8.0^22.0 "BLD",1447,6) ^44 **END** **END**