Released XU*8*757 SEQ #598 Extracted from mail message **KIDS**:XU*8.0*757^ **INSTALL NAME** XU*8.0*757 "BLD",3695,0) XU*8.0*757^KERNEL^0^3211006^y "BLD",3695,1,0) ^9.61A^3^3^3211006^^ "BLD",3695,1,1,0) KERNEL VISTA ENHANCEMENT - MPI WEB SERVICES FOR VISTA-LIKE SYSTEMS "BLD",3695,1,2,0) Refer to patch XU*8.0*757 in the FORUM Patch Module for a complete "BLD",3695,1,3,0) description. "BLD",3695,4,0) ^9.64PA^^ "BLD",3695,6) 2 "BLD",3695,6.3) 2 "BLD",3695,"ABPKG") n "BLD",3695,"INIT") POSTINIT^XUMVIWSC "BLD",3695,"KRN",0) ^9.67PA^1.5^25 "BLD",3695,"KRN",.4,0) .4 "BLD",3695,"KRN",.401,0) .401 "BLD",3695,"KRN",.402,0) .402 "BLD",3695,"KRN",.403,0) .403 "BLD",3695,"KRN",.5,0) .5 "BLD",3695,"KRN",.84,0) .84 "BLD",3695,"KRN",1.5,0) 1.5 "BLD",3695,"KRN",1.6,0) 1.6 "BLD",3695,"KRN",1.61,0) 1.61 "BLD",3695,"KRN",1.62,0) 1.62 "BLD",3695,"KRN",3.6,0) 3.6 "BLD",3695,"KRN",3.8,0) 3.8 "BLD",3695,"KRN",9.2,0) 9.2 "BLD",3695,"KRN",9.8,0) 9.8 "BLD",3695,"KRN",9.8,"NM",0) ^9.68A^2^1 "BLD",3695,"KRN",9.8,"NM",2,0) XUMVIWSC^^0^B19746353 "BLD",3695,"KRN",9.8,"NM","B","XUMVIWSC",2) "BLD",3695,"KRN",19,0) 19 "BLD",3695,"KRN",19,"NM",0) ^9.68A^^ "BLD",3695,"KRN",19.1,0) 19.1 "BLD",3695,"KRN",101,0) 101 "BLD",3695,"KRN",409.61,0) 409.61 "BLD",3695,"KRN",771,0) 771 "BLD",3695,"KRN",779.2,0) 779.2 "BLD",3695,"KRN",870,0) 870 "BLD",3695,"KRN",8989.51,0) 8989.51 "BLD",3695,"KRN",8989.52,0) 8989.52 "BLD",3695,"KRN",8993,0) 8993 "BLD",3695,"KRN",8994,0) 8994 "BLD",3695,"KRN",8994,"NM",0) ^9.68A^1^1 "BLD",3695,"KRN",8994,"NM",1,0) MPI VISTA HWS CONFIG^^0 "BLD",3695,"KRN",8994,"NM","B","MPI VISTA HWS CONFIG",1) "BLD",3695,"KRN","B",.4,.4) "BLD",3695,"KRN","B",.401,.401) "BLD",3695,"KRN","B",.402,.402) "BLD",3695,"KRN","B",.403,.403) "BLD",3695,"KRN","B",.5,.5) "BLD",3695,"KRN","B",.84,.84) "BLD",3695,"KRN","B",1.5,1.5) "BLD",3695,"KRN","B",1.6,1.6) "BLD",3695,"KRN","B",1.61,1.61) "BLD",3695,"KRN","B",1.62,1.62) "BLD",3695,"KRN","B",3.6,3.6) "BLD",3695,"KRN","B",3.8,3.8) "BLD",3695,"KRN","B",9.2,9.2) "BLD",3695,"KRN","B",9.8,9.8) "BLD",3695,"KRN","B",19,19) "BLD",3695,"KRN","B",19.1,19.1) "BLD",3695,"KRN","B",101,101) "BLD",3695,"KRN","B",409.61,409.61) "BLD",3695,"KRN","B",771,771) "BLD",3695,"KRN","B",779.2,779.2) "BLD",3695,"KRN","B",870,870) "BLD",3695,"KRN","B",8989.51,8989.51) "BLD",3695,"KRN","B",8989.52,8989.52) "BLD",3695,"KRN","B",8993,8993) "BLD",3695,"KRN","B",8994,8994) "BLD",3695,"PRE") XUMVIWSC "BLD",3695,"QUES",0) ^9.62^2^2 "BLD",3695,"QUES",1,0) POST1 Port Number "BLD",3695,"QUES",1,1) N^1:99999^ "BLD",3695,"QUES",1,"A") Enter the PORT Number for the MPINEWPSIMEXECUTE web service "BLD",3695,"QUES",1,"M") I $$PATCH^XPDUTL("MPIF*1.0*63")!($P($$SITE^VASITE,"^",3)="200M") K DIR "BLD",3695,"QUES",2,0) POST2 Web Server Name "BLD",3695,"QUES",2,1) F^3:120^ "BLD",3695,"QUES",2,"A") Enter the name of the server for MPINEWPSIMEXECUTE "BLD",3695,"QUES",2,"M") I $$PATCH^XPDUTL("MPIF*1.0*63")!($P($$SITE^VASITE,"^",3)="200M") K DIR "BLD",3695,"QUES","B","POST1 Port Number",1) "BLD",3695,"QUES","B","POST2 Web Server Name",2) "BLD",3695,"REQB",0) ^9.611^1^1 "BLD",3695,"REQB",1,0) XOBW*1.0*4^2 "BLD",3695,"REQB","B","XOBW*1.0*4",1) "INIT") POSTINIT^XUMVIWSC "KRN",8994,494,-1) 0^1 "KRN",8994,494,0) MPI VISTA HWS CONFIG^CHANGE^XUMVIWSC^2^R^0^^1^1^^1 "KRN",8994,494,1,0) ^^14^14^3210421^ "KRN",8994,494,1,1,0) This Remote Procedure Call (RPC) will be used to update the following "KRN",8994,494,1,2,0) fields for the 'MPI_NEW_PSIM EXECUTE' entry in the WEB SERVER (#18.12) "KRN",8994,494,1,3,0) file in VistA: "KRN",8994,494,1,4,0) "KRN",8994,494,1,5,0) - USERNAME "KRN",8994,494,1,6,0) - PASSWORD "KRN",8994,494,1,7,0) - SERVER "KRN",8994,494,1,8,0) - SSL PORT "KRN",8994,494,1,9,0) - SSL CONFIGURATION "KRN",8994,494,1,10,0) "KRN",8994,494,1,11,0) In addition, the HTTPS parameter can be updated in the STATUS (#.04) field "KRN",8994,494,1,12,0) for the 'TWO' entry in the MPI ICN BUILD MANAGEMENT (#984.8) file. All of "KRN",8994,494,1,13,0) this is in support of the Web Application Security Assessment (WASA) "KRN",8994,494,1,14,0) security scan findings to move the web server connection to HTTPS. "KRN",8994,494,2,0) ^8994.02A^6^6 "KRN",8994,494,2,1,0) USER^1^50^0^2 "KRN",8994,494,2,1,1,0) ^^2^2^3160512^ "KRN",8994,494,2,1,1,1,0) This is the USERNAME field to be set in the WEB SERVER file for the "KRN",8994,494,2,1,1,2,0) MPI_NEW_PSIM_EXECUTE entry. "KRN",8994,494,2,2,0) PASS^1^50^0^3 "KRN",8994,494,2,2,1,0) ^^2^2^3160512^ "KRN",8994,494,2,2,1,1,0) This is the PASSWORD field to be set in the WEB SERVER file for the "KRN",8994,494,2,2,1,2,0) MPI_NEW_PSIM_EXECUTE entry. "KRN",8994,494,2,3,0) SWITCH^1^1^0^4 "KRN",8994,494,2,3,1,0) ^8994.021^2^2^3181114^^ "KRN",8994,494,2,3,1,1,0) This is for setting the TWO entry in file 984.8 field 4 to note HTTPS (1) "KRN",8994,494,2,3,1,2,0) or HTTP (0). "KRN",8994,494,2,4,0) SERVER^1^60^0^5 "KRN",8994,494,2,4,1,0) ^^1^1^3181114^ "KRN",8994,494,2,4,1,1,0) This is for the address to connect to with the web server "KRN",8994,494,2,5,0) SSL PORT^1^5^0^6 "KRN",8994,494,2,5,1,0) ^^1^1^3181114^ "KRN",8994,494,2,5,1,1,0) SSL Port for the web server "KRN",8994,494,2,6,0) SSL CONFIGURATION^1^40^0^7 "KRN",8994,494,2,6,1,0) ^^2^2^3210421^ "KRN",8994,494,2,6,1,1,0) This is the name of the Cache Secure Socket Layer (SSL) configuration "KRN",8994,494,2,6,1,2,0) that should be associated with the web server. "KRN",8994,494,2,"B","PASS",2) "KRN",8994,494,2,"B","SERVER",4) "KRN",8994,494,2,"B","SSL CONFIGURATION",6) "KRN",8994,494,2,"B","SSL PORT",5) "KRN",8994,494,2,"B","SWITCH",3) "KRN",8994,494,2,"B","USER",1) "KRN",8994,494,2,"PARAMSEQ",2,1) "KRN",8994,494,2,"PARAMSEQ",3,2) "KRN",8994,494,2,"PARAMSEQ",4,3) "KRN",8994,494,2,"PARAMSEQ",5,4) "KRN",8994,494,2,"PARAMSEQ",6,5) "KRN",8994,494,2,"PARAMSEQ",7,6) "KRN",8994,494,3,0) ^^12^12^3210421^ "KRN",8994,494,3,1,0) RETURN(1) = 1^SUCCESS PASSWORD for success OR -1^error message for an "KRN",8994,494,3,2,0) issue updating password "KRN",8994,494,3,3,0) RETURN(2) = 1^SUCCESS USER for success OR -1^error message for an issue "KRN",8994,494,3,4,0) updating username "KRN",8994,494,3,5,0) RETURN(3) = 1^SUCCESS SWITCH for success or -1^error message for an "KRN",8994,494,3,6,0) issue updating HTTPS "KRN",8994,494,3,7,0) RETURN(4) = 1^SUCCESS SERVER for success or -1^error message for an issue "KRN",8994,494,3,8,0) updating the Server field "KRN",8994,494,3,9,0) RETURN(5) = 1^SUCCESS SSL PORT for success or -1^error message for an "KRN",8994,494,3,10,0) issue updating the SSL Port field "KRN",8994,494,3,11,0) RETURN(6) = 1^SUCCESS SSL CONFIGURATION for success or -1^error message "KRN",8994,494,3,12,0) for an issue updating the SSL Configuration field. "MBREQ") 0 "ORD",16,8994) 8994;16;1;;;;RPCE1^XPDIA1;;;RPCDEL^XPDIA1 "ORD",16,8994,0) REMOTE PROCEDURE "PKG",138,-1) 1^1 "PKG",138,0) KERNEL^XU^SIGN-ON, SECURITY, MENU DRIVER, DEVICES, TASKMAN^ "PKG",138,22,0) ^9.49I^1^1 "PKG",138,22,1,0) 8.0^2950703^2951127^12541 "PKG",138,22,1,"PAH",1,0) 757^3211006 "PKG",138,22,1,"PAH",1,1,0) ^^3^3^3211006 "PKG",138,22,1,"PAH",1,1,1,0) KERNEL VISTA ENHANCEMENT - MPI WEB SERVICES FOR VISTA-LIKE SYSTEMS "PKG",138,22,1,"PAH",1,1,2,0) Refer to patch XU*8.0*757 in the FORUM Patch Module for a complete "PKG",138,22,1,"PAH",1,1,3,0) description. "PRE") XUMVIWSC "QUES","POST1 Port Number",0) N^1:99999^ "QUES","POST1 Port Number","A") Enter the PORT Number for the MPINEWPSIMEXECUTE web service "QUES","POST1 Port Number","M") I $$PATCH^XPDUTL("MPIF*1.0*63")!($P($$SITE^VASITE,"^",3)="200M") K DIR "QUES","POST2 Web Server Name",0) F^3:120^ "QUES","POST2 Web Server Name","A") Enter the name of the server for MPINEWPSIMEXECUTE "QUES","POST2 Web Server Name","M") I $$PATCH^XPDUTL("MPIF*1.0*63")!($P($$SITE^VASITE,"^",3)="200M") K DIR "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","XUMVIWSC") 0^2^B19746353^n/a "RTN","XUMVIWSC",1,0) XUMVIWSC ;ALB/CMC - MPI HEALTHEVET WEB SERVICES CLIENT TOOLS ;10/6/21 10:53 "RTN","XUMVIWSC",2,0) ;;8.0;KERNEL;**757**;Jul 10, 1995;Build 2 "RTN","XUMVIWSC",3,0) ;Per VA Directive 6402, this routine should not be modified. "RTN","XUMVIWSC",4,0) ; "RTN","XUMVIWSC",5,0) ;**757 VAMPI-11972 (dri) - moving routine ^MPIFWSC to Kernel Namespace "RTN","XUMVIWSC",6,0) ENV ; - environment check entry (first time with this patch only)" "RTN","XUMVIWSC",7,0) ; this tag area can be removed with future patches "RTN","XUMVIWSC",8,0) ; future patches can call the $$CKSETUP^XUMVIWSC entry for environment "RTN","XUMVIWSC",9,0) ; check "RTN","XUMVIWSC",10,0) ; "RTN","XUMVIWSC",11,0) ; if MPIF*1.0*63 already installed or the MPI, don't need to do this again "RTN","XUMVIWSC",12,0) I $$PATCH^XPDUTL("MPIF*1.0*63")!($P($$SITE^VASITE,"^",3)="200M") Q "RTN","XUMVIWSC",13,0) ; "RTN","XUMVIWSC",14,0) S X=$$CKSETUP("VISTAWEBSERVICE.WSDL") "RTN","XUMVIWSC",15,0) Q "RTN","XUMVIWSC",16,0) ; "RTN","XUMVIWSC",17,0) POSTINIT ; -- setup (first time with this patch only) "RTN","XUMVIWSC",18,0) ; this tag area can be removed with future patches "RTN","XUMVIWSC",19,0) ; future patches can call the DO SETUP^XUMVIWSC entry for post-init "RTN","XUMVIWSC",20,0) ; to setup a new HWSC 18.02 entry "RTN","XUMVIWSC",21,0) ; "RTN","XUMVIWSC",22,0) ; if MPIF*1.0*63 already installed or the MPI, don't need to do this again "RTN","XUMVIWSC",23,0) I $$PATCH^XPDUTL("MPIF*1.0*63")!($P($$SITE^VASITE,"^",3)="200M") Q "RTN","XUMVIWSC",24,0) ; "RTN","XUMVIWSC",25,0) D SETUP("VISTAWEBSERVICE.WSDL","MPI_PSIM_NEW EXECUTE") "RTN","XUMVIWSC",26,0) Q "RTN","XUMVIWSC",27,0) ; "RTN","XUMVIWSC",28,0) CKSETUP(MPIWSDL) ; - used to check the environment "RTN","XUMVIWSC",29,0) ; returns the path to be used that was verified or 0 if it fails "RTN","XUMVIWSC",30,0) ; "RTN","XUMVIWSC",31,0) ; $$DEFDIR^%ZISH,$$LIST^%ZISH - #2320 "RTN","XUMVIWSC",32,0) ; BMES^XPDUTL - #10141 "RTN","XUMVIWSC",33,0) ; "RTN","XUMVIWSC",34,0) N MPISTAT,MPIPATH,MPIFILE "RTN","XUMVIWSC",35,0) S MPIPATH=$$DEFDIR^%ZISH() "RTN","XUMVIWSC",36,0) S MPIFILE(MPIWSDL)="" "RTN","XUMVIWSC",37,0) S MPISTAT=$$LIST^%ZISH(MPIPATH,"MPIFILE","MPISTAT") "RTN","XUMVIWSC",38,0) I 'MPISTAT!($D(MPISTAT)'=11),'$D(XPDENV) D Q 0 "RTN","XUMVIWSC",39,0) . D BMES^XPDUTL("**** Error cannot find file "_MPIPATH_MPIWSDL) "RTN","XUMVIWSC",40,0) I 'MPISTAT!($D(MPISTAT)'=11) D Q 0 "RTN","XUMVIWSC",41,0) . W !!,"**** WSDL file "_MPIWSDL_" not found in "_MPIPATH_"." "RTN","XUMVIWSC",42,0) . W !," You will need that prior to install." "RTN","XUMVIWSC",43,0) . S XPDQUIT=2 "RTN","XUMVIWSC",44,0) Q MPIPATH "RTN","XUMVIWSC",45,0) ; "RTN","XUMVIWSC",46,0) SETUP(MPIWSDL,MPISERV) ; -- call to setup hwsc "RTN","XUMVIWSC",47,0) ;MPIWSDL - call with the wsdl file to setup, must be in the "RTN","XUMVIWSC",48,0) ; kernel default directory "RTN","XUMVIWSC",49,0) ; "RTN","XUMVIWSC",50,0) ; IA# 5421 FOR $$GENPORT^XOBWLIB "RTN","XUMVIWSC",51,0) ; IA# 6408 FOR ALL 18.12 REFERENCES "RTN","XUMVIWSC",52,0) ; FOR "B" X-REF ON 18.02 "RTN","XUMVIWSC",53,0) ; "RTN","XUMVIWSC",54,0) N MPISTAT,MPIPATH,MPIARR "RTN","XUMVIWSC",55,0) S MPIPATH=$$CKSETUP(MPIWSDL) I MPIPATH=0 Q "RTN","XUMVIWSC",56,0) S MPIFILE(MPIWSDL)="" "RTN","XUMVIWSC",57,0) S MPIARR("WSDL FILE")=MPIPATH_MPIWSDL "RTN","XUMVIWSC",58,0) S MPIARR("CACHE PACKAGE NAME")="MPIPSIM" "RTN","XUMVIWSC",59,0) S MPIARR("WEB SERVICE NAME")=MPISERV "RTN","XUMVIWSC",60,0) S MPIARR("AVAILABILITY RESOURCE")="?wsdl" "RTN","XUMVIWSC",61,0) S MPISTAT=$$GENPORT^XOBWLIB(.MPIARR) "RTN","XUMVIWSC",62,0) ; "RTN","XUMVIWSC",63,0) I 'MPISTAT D BMES^XPDUTL("**** Error creating Web Service (#18.02)"_MPISERV),MES^XPDUTL(MPISTAT) Q "RTN","XUMVIWSC",64,0) D BMES^XPDUTL(">>> "_MPISERV_" entry added to WEB SERVICE file #18.02") "RTN","XUMVIWSC",65,0) ; "RTN","XUMVIWSC",66,0) K DD,DO "RTN","XUMVIWSC",67,0) N DIC,DA,X,Y,DTOUT,DUOUT "RTN","XUMVIWSC",68,0) S DIC="^XOB(18.12,",DIC(0)="ELMQZX" "RTN","XUMVIWSC",69,0) S DIC("DR")="3.03///"_XPDQUES("POST1 Port Number")_";.04///"_XPDQUES("POST2 Web Server Name")_";.06///1;.07///30;1.01///1;3.01///1;3.02///encrypt_only" "RTN","XUMVIWSC",70,0) S X="MPI_PSIM_NEW EXECUTE" "RTN","XUMVIWSC",71,0) D FILE^DICN "RTN","XUMVIWSC",72,0) K DA "RTN","XUMVIWSC",73,0) S DA=+Y,DA(1)=DA "RTN","XUMVIWSC",74,0) K DD,DO,DIC,X,DTOUT,DUOUT,Y "RTN","XUMVIWSC",75,0) S DIC="^XOB(18.12,"_DA(1)_",100,",DIC(0)="LZ" "RTN","XUMVIWSC",76,0) S DIC("P")=$P(^DD(18.12,100,0),"^",2) "RTN","XUMVIWSC",77,0) S X=$O(^XOB(18.02,"B","MPI_PSIM_NEW EXECUTE",0)),DIC("DR")=".06///1" "RTN","XUMVIWSC",78,0) D FILE^DICN "RTN","XUMVIWSC",79,0) Q "RTN","XUMVIWSC",80,0) ; "RTN","XUMVIWSC",81,0) ;**MPIF*1.0*70 STORY 864667 adding new parameters "RTN","XUMVIWSC",82,0) ;**MPIF*1.0*77 VAMPI-9996 (jfw) = Added SSL Configuration Parameter (SSL/RETURN(6)) "RTN","XUMVIWSC",83,0) CHANGE(RETURN,USER,PASS,SWITCH,SERV,PORT,SSL) ; "RTN","XUMVIWSC",84,0) ;IA #6408 "RTN","XUMVIWSC",85,0) ;Called by RPC - MPI VISTA HWS CONFIG "RTN","XUMVIWSC",86,0) ;PASS - PASSWORD TO BE USED FOR THE WEB SERVER MPI_PSIM_NEW EXECUTE "RTN","XUMVIWSC",87,0) ;SWITCH - TO SET FOR HTTP (0) OR HTTPS (1) "RTN","XUMVIWSC",88,0) ;SERV - SERVER IP "RTN","XUMVIWSC",89,0) ;PORT - SSL PORT "RTN","XUMVIWSC",90,0) ;SSL - SSL CONFIGURATION (File #18.12 / Field #3.02) "RTN","XUMVIWSC",91,0) I $O(^XOB(18.12,"B","MPI_PSIM_NEW EXECUTE",""))="" S RETURN(0)="-1^NO WEB SERVER ENTRY FOR MPI_PSIM_NEW EXECUTE" Q "RTN","XUMVIWSC",92,0) N I,IEN F I=1:1:6 S RETURN(I)=0 "RTN","XUMVIWSC",93,0) S IEN=$O(^XOB(18.12,"B","MPI_PSIM_NEW EXECUTE","")) "RTN","XUMVIWSC",94,0) I $G(USER)'="" D "RTN","XUMVIWSC",95,0) .S RETURN(2)="1^SUCCESS USER" "RTN","XUMVIWSC",96,0) .N MPIFERR,FDA S FDA(18.12,IEN_",",200)=USER "RTN","XUMVIWSC",97,0) .D FILE^DIE("E","FDA","MPIFERR") I $D(MPIFERR("DIERR")) S RETURN(2)="-1^ERROR SETTING USER" Q "RTN","XUMVIWSC",98,0) I $G(PASS)'="" D "RTN","XUMVIWSC",99,0) .S RETURN(1)="1^SUCCESS PASSWORD" "RTN","XUMVIWSC",100,0) .N MPIFERR,FDA S FDA(18.12,IEN_",",300)=$$ENCRYP^XUSRB1(PASS) "RTN","XUMVIWSC",101,0) .D FILE^DIE("E","FDA","MPIFERR") I $D(MPIFERR("DIERR")) S RETURN(1)="-1^ERROR SETTING PASSWORD" Q "RTN","XUMVIWSC",102,0) ;I $G(SWITCH)'="" D "RTN","XUMVIWSC",103,0) ;.S RETURN(3)="1^SUCCESS SWITCH" "RTN","XUMVIWSC",104,0) ;.N MPIFIEN,HTTPS S MPIFIEN=$O(^MPIF(984.8,"B","TWO","")) I MPIFIEN="" S RETURN(3)="-1^NO ENTRY 'TWO' IN FILE 984.8" Q "RTN","XUMVIWSC",105,0) ;.S HTTPS=$P($G(^MPIF(984.8,MPIFIEN,0)),"^",4) "RTN","XUMVIWSC",106,0) ;.I HTTPS'=SWITCH S $P(^MPIF(984.8,MPIFIEN,0),"^",4)=SWITCH S RETURN(3)="1^SUCCESSFULLY SET HTTPS TO "_SWITCH "RTN","XUMVIWSC",107,0) I $G(SERV)'="" D "RTN","XUMVIWSC",108,0) .S RETURN(4)="1^SUCCESS SERVER" "RTN","XUMVIWSC",109,0) .N MPIFERR,FDA S FDA(18.12,IEN_",",.04)=SERV "RTN","XUMVIWSC",110,0) .D FILE^DIE("E","FDA","MPIFERR") I $D(MPIFERR("DIERR")) S RETURN(4)="-1^ERROR SETTING NEW SERVER" Q "RTN","XUMVIWSC",111,0) I $G(PORT)'="" D "RTN","XUMVIWSC",112,0) .S RETURN(5)="1^SUCCESS SSL PORT" "RTN","XUMVIWSC",113,0) .N MPIFERR,FDA S FDA(18.12,IEN_",",3.03)=PORT "RTN","XUMVIWSC",114,0) .D FILE^DIE("E","FDA","MPIFERR") I $D(MPIFERR("DIERR")) S RETURN(5)="-1^ERROR SETTING NEW SSL PORT" Q "RTN","XUMVIWSC",115,0) I $G(SSL)'="" D "RTN","XUMVIWSC",116,0) .S RETURN(6)="1^SUCCESS SSL CONFIGURATION" "RTN","XUMVIWSC",117,0) .N MPIFERR,FDA S FDA(18.12,IEN_",",3.02)=SSL "RTN","XUMVIWSC",118,0) .D FILE^DIE("E","FDA","MPIFERR") I $D(MPIFERR("DIERR")) S RETURN(6)="-1^ERROR SETTING SSL CONFIGURATION" Q "RTN","XUMVIWSC",119,0) Q "RTN","XUMVIWSC",120,0) ; "VER") 8.0^22.2 "BLD",3695,6) ^598 **END** **END**