GMRC139P.m

GMRC139P ;ABV/BL - Patch 139 Post-install;08/20/2019

 ;;3.0;CONSULT/REQUEST TRACKING;**139**;DEC 27, 1997;Build 10

 ;

EN ; Entry point for post install

 ;

 ;    IA:5421

 ;   

 ;    XOBWSN    -   REST web service name

 ;    XOBCXT    -   web service context root  

 ;    XOBCAURL  -   'check availability' url portion to follow context root [optional]

 ; Using existing API for changing of WEB SERVICE value

 N XOBWSN,XOBCXT,XOBCAURL

 ;

 S XOBWSN="DST GET ID SERVICE"

 S XOBCXT="vs/v2/consultFactor"

 S XOBCAURL=""

 D REGREST^XOBWLIB(XOBWSN,XOBCXT,XOBCAURL)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMRC139P   582     printed  Feb 18, 2025@23:11:08                                                                                                                                                                                                     Page 2

GMRC139P  ;ABV/BL - Patch 139 Post-install;08/20/2019

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**139**;DEC 27, 1997;Build 10

 +2       ;

EN        ; Entry point for post install

 +1       ;

 +2       ;    IA:5421

 +3       ;   

 +4       ;    XOBWSN    -   REST web service name

 +5       ;    XOBCXT    -   web service context root  

 +6       ;    XOBCAURL  -   'check availability' url portion to follow context root [optional]

 +7       ; Using existing API for changing of WEB SERVICE value

 +8        NEW XOBWSN,XOBCXT,XOBCAURL

 +9       ;

 +10       SET XOBWSN="DST GET ID SERVICE"

 +11       SET XOBCXT="vs/v2/consultFactor"

 +12       SET XOBCAURL=""

 +13       DO REGREST^XOBWLIB(XOBWSN,XOBCXT,XOBCAURL)

 +14       QUIT 

 +15      ;