DVBAHWSC ;ALB/RPM - CAPRI HEALTHEVET WEB SERVICES CLIENT TOOLS ;06/28/12
;;2.7;AMIE;**181**;Apr 10, 1995;Build 38
;
Q ;no direct entry
;
EN ; -- setup
;
; -- create DVBPSIM proxy
D SETUP("PSIMWSEXECUTE.WSDL","DVB_PSIM_EXECUTE")
Q
;
CKSETUP(DVBWSDL) ; - used to check the environment
; returns the path to be used that was verified or 0 if it fails
;
; $$DEFDIR^%ZISH,$$LIST^%ZISH - #2320
; BMES^XPDUTL - #10141
;
N DVBSTAT,DVBPATH,DVBFILE
S DVBPATH=$$DEFDIR^%ZISH()
S DVBFILE(DVBWSDL)=""
S DVBSTAT=$$LIST^%ZISH(DVBPATH,"DVBFILE","DVBSTAT")
I 'DVBSTAT!($D(DVBSTAT)'=11) D Q 0
. D BMES^XPDUTL("**** Error cannot find file "_DVBPATH_DVBWSDL)
I 'DVBSTAT!($D(DVBSTAT)'=11) D Q 0
. W !!,"**** WSDL file "_DVBWSDL_" not found in "_DVBPATH_"."
. W !," You will need that prior to install."
Q DVBPATH
;
SETUP(DVBWSDL,DVBSERV) ; -- call to setup hwsc
;DVBWSDL - call with the wsdl file to setup, must be in the
; kernel default directory
;
; $$GENPORT^XOBWLIB - #5421
;
N DVBSTAT,DVBPATH,DVBARR
S DVBPATH=$$CKSETUP(DVBWSDL) I DVBPATH=0 Q
S DVBFILE(DVBWSDL)=""
S DVBARR("WSDL FILE")=DVBPATH_DVBWSDL
S DVBARR("CACHE PACKAGE NAME")="DVBPSIM"
S DVBARR("WEB SERVICE NAME")=DVBSERV
S DVBARR("AVAILABILITY RESOURCE")="?wsdl"
S DVBSTAT=$$GENPORT^XOBWLIB(.DVBARR)
;
I 'DVBSTAT D BMES^XPDUTL("**** Error creating Web Service (#18.02)"_DVBSERV),MES^XPDUTL(DVBSTAT) Q
D BMES^XPDUTL(">>> "_DVBSERV_" entry added to WEB SERVICE file #18.02")
D BMES^XPDUTL(" - Be sure and set up the Web Server as in the post-install instructions!!")
;
Q
;
ERROR ; - catch errors
; Set ecode to empty to return to calling function
;
; $$EOFAC^XOBWLIB, ZTER^XOBWLIB - #5421
; UNWIND^%ZTER - #1621
;
N DVBERR
S DVBERR=$$EOFAC^XOBWLIB()
D ZTER^XOBWLIB(DVBERR)
S $ECODE=""
D UNWIND^%ZTER
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBAHWSC 1884 printed Sep 23, 2025@19:17:14 Page 2
DVBAHWSC ;ALB/RPM - CAPRI HEALTHEVET WEB SERVICES CLIENT TOOLS ;06/28/12
+1 ;;2.7;AMIE;**181**;Apr 10, 1995;Build 38
+2 ;
+3 ;no direct entry
QUIT
+4 ;
EN ; -- setup
+1 ;
+2 ; -- create DVBPSIM proxy
+3 DO SETUP("PSIMWSEXECUTE.WSDL","DVB_PSIM_EXECUTE")
+4 QUIT
+5 ;
CKSETUP(DVBWSDL) ; - used to check the environment
+1 ; returns the path to be used that was verified or 0 if it fails
+2 ;
+3 ; $$DEFDIR^%ZISH,$$LIST^%ZISH - #2320
+4 ; BMES^XPDUTL - #10141
+5 ;
+6 NEW DVBSTAT,DVBPATH,DVBFILE
+7 SET DVBPATH=$$DEFDIR^%ZISH()
+8 SET DVBFILE(DVBWSDL)=""
+9 SET DVBSTAT=$$LIST^%ZISH(DVBPATH,"DVBFILE","DVBSTAT")
+10 IF 'DVBSTAT!($DATA(DVBSTAT)'=11)
Begin DoDot:1
+11 DO BMES^XPDUTL("**** Error cannot find file "_DVBPATH_DVBWSDL)
End DoDot:1
QUIT 0
+12 IF 'DVBSTAT!($DATA(DVBSTAT)'=11)
Begin DoDot:1
+13 WRITE !!,"**** WSDL file "_DVBWSDL_" not found in "_DVBPATH_"."
+14 WRITE !," You will need that prior to install."
End DoDot:1
QUIT 0
+15 QUIT DVBPATH
+16 ;
SETUP(DVBWSDL,DVBSERV) ; -- call to setup hwsc
+1 ;DVBWSDL - call with the wsdl file to setup, must be in the
+2 ; kernel default directory
+3 ;
+4 ; $$GENPORT^XOBWLIB - #5421
+5 ;
+6 NEW DVBSTAT,DVBPATH,DVBARR
+7 SET DVBPATH=$$CKSETUP(DVBWSDL)
IF DVBPATH=0
QUIT
+8 SET DVBFILE(DVBWSDL)=""
+9 SET DVBARR("WSDL FILE")=DVBPATH_DVBWSDL
+10 SET DVBARR("CACHE PACKAGE NAME")="DVBPSIM"
+11 SET DVBARR("WEB SERVICE NAME")=DVBSERV
+12 SET DVBARR("AVAILABILITY RESOURCE")="?wsdl"
+13 SET DVBSTAT=$$GENPORT^XOBWLIB(.DVBARR)
+14 ;
+15 IF 'DVBSTAT
DO BMES^XPDUTL("**** Error creating Web Service (#18.02)"_DVBSERV)
DO MES^XPDUTL(DVBSTAT)
QUIT
+16 DO BMES^XPDUTL(">>> "_DVBSERV_" entry added to WEB SERVICE file #18.02")
+17 DO BMES^XPDUTL(" - Be sure and set up the Web Server as in the post-install instructions!!")
+18 ;
+19 QUIT
+20 ;
ERROR ; - catch errors
+1 ; Set ecode to empty to return to calling function
+2 ;
+3 ; $$EOFAC^XOBWLIB, ZTER^XOBWLIB - #5421
+4 ; UNWIND^%ZTER - #1621
+5 ;
+6 NEW DVBERR
+7 SET DVBERR=$$EOFAC^XOBWLIB()
+8 DO ZTER^XOBWLIB(DVBERR)
+9 SET $ECODE=""
+10 DO UNWIND^%ZTER
+11 QUIT
+12 ;
