DVBA192P.m

DVBA192P ;ALB/RTW - DVBA CAPRI PATCH 192 POST INSTALL ROUTINE; 07/09/2015  12:13 PM

 ;;2.7;AMIE;**192**;Apr 10, 1995;Build 15

 ;This routine updates the AMIE 290 report parameters

 D PARAM,END

 Q

END ;

 K DVBENT,DVBERR,DVBAL

 Q

 ;

PARAM ; new URL http://vaww.demo.domain.ext/dmareports.asp

 S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VICAP URL","http://vaww.demo.domain.ext/dmareports.asp")

 D UPDMSG("DVBAB CAPRI VICAP URL",DVBERR)

 Q

ENXPAR(DVBENT,DVBPAR,DVBVAL) ;Update Parameter values

 ;

 ;  Input:

 ;    DVBENT - Parameter Entity

 ;    DVBPAR - Parameter Name

 ;    DVBVAL - Parameter Value

 ;

 ;  Output:

 ;    Function value - returns "0" on success;

 ;                     otherwise returns error#^errortext

 ;

 N DVBERR

 D EN^XPAR(DVBENT,DVBPAR,1,DVBVAL,.DVBERR)

 Q DVBERR

 ;

UPDMSG(DVBPAR,DVBERR) ;display update message

 ;

 ;  Input:

 ;    DVBPAR - Parameter Name

 ;    DVBERR - Parameter Update result

 ;

 ;  Output: none

 ; 

 I DVBERR D

 . D MES^XPDUTL(DVBPAR_" update FAILURE.")

 . D MES^XPDUTL("  Failure reason: "_DVBERR)

 E  D

 . D MES^XPDUTL(DVBPAR_" update SUCCESS.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBA192P   1127     printed  Apr 09, 2024@20:52:22                                                                                                                                                                                                    Page 2

DVBA192P  ;ALB/RTW - DVBA CAPRI PATCH 192 POST INSTALL ROUTINE; 07/09/2015  12:13 PM

 +1       ;;2.7;AMIE;**192**;Apr 10, 1995;Build 15

 +2       ;This routine updates the AMIE 290 report parameters

 +3        DO PARAM

           DO END

 +4        QUIT 

END       ;

 +1        KILL DVBENT,DVBERR,DVBAL

 +2        QUIT 

 +3       ;

PARAM     ; new URL http://vaww.demo.domain.ext/dmareports.asp

 +1        SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VICAP URL","http://vaww.demo.domain.ext/dmareports.asp")

 +2        DO UPDMSG("DVBAB CAPRI VICAP URL",DVBERR)

 +3        QUIT 

ENXPAR(DVBENT,DVBPAR,DVBVAL) ;Update Parameter values

 +1       ;

 +2       ;  Input:

 +3       ;    DVBENT - Parameter Entity

 +4       ;    DVBPAR - Parameter Name

 +5       ;    DVBVAL - Parameter Value

 +6       ;

 +7       ;  Output:

 +8       ;    Function value - returns "0" on success;

 +9       ;                     otherwise returns error#^errortext

 +10      ;

 +11       NEW DVBERR

 +12       DO EN^XPAR(DVBENT,DVBPAR,1,DVBVAL,.DVBERR)

 +13       QUIT DVBERR

 +14      ;

UPDMSG(DVBPAR,DVBERR) ;display update message

 +1       ;

 +2       ;  Input:

 +3       ;    DVBPAR - Parameter Name

 +4       ;    DVBERR - Parameter Update result

 +5       ;

 +6       ;  Output: none

 +7       ; 

 +8        IF DVBERR

               Begin DoDot:1

 +9                DO MES^XPDUTL(DVBPAR_" update FAILURE.")

 +10               DO MES^XPDUTL("  Failure reason: "_DVBERR)

               End DoDot:1

 +11      IF '$TEST

               Begin DoDot:1

 +12               DO MES^XPDUTL(DVBPAR_" update SUCCESS.")

               End DoDot:1

 +13       QUIT