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 ---[H[J[2J[HGMRC139P 582 printed Sep 23, 2025@19:20:45 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 ;
