DVBAHWSC.m

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 ---DVBAHWSC   1884     printed  Mar 13, 2025@20:45:55                                                                                                                                                                                                    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      ;