YS128PS0 ;SLC/JLC - Patch 128 post-init - utilities; 9/15/2015 ;05/30/17 07:55
;;5.01;MENTAL HEALTH;**128**;Dec 30, 1994;Build 26
;
;
Q
;
UPDVER(WHICH,VER) ; update MHA version number in broker option
; WHICH: 1=server, 2="A" DLL, 3=MHA exe
; VER: version string for WHICH component
N OPT,TXT,VERPART,FDA,DIERR
S OPT=$$FIND1^DIC(19,"","X","YS BROKER1","B")
I 'OPT D BMES^XPDUTL("ERROR: YS BROKER1 not found on this system.") QUIT
I $D(DIERR) D BMES^XPDUTL("ERROR: "_$G(^TMP("DIERR",$J,1,"TEXT",1))) QUIT
S TXT=$$GET1^DIQ(19,OPT_",",1),VERPART=$P(TXT,"version ",2)
S $P(VERPART,"~",WHICH)=VER,$P(TXT,"version ",2)=VERPART
S FDA(19,OPT_",",1)=TXT
D FILE^DIE("","FDA")
I $D(DIERR) D BMES^XPDUTL("ERROR: "_$G(^TMP("DIERR",$J,1,"TEXT",1)))
D CLEAN^DILF
Q
POST ;update DLL version number
D UPDVER(2,"1.0.5.4")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYS128PS0 850 printed Oct 16, 2024@18:12:53 Page 2
YS128PS0 ;SLC/JLC - Patch 128 post-init - utilities; 9/15/2015 ;05/30/17 07:55
+1 ;;5.01;MENTAL HEALTH;**128**;Dec 30, 1994;Build 26
+2 ;
+3 ;
+4 QUIT
+5 ;
UPDVER(WHICH,VER) ; update MHA version number in broker option
+1 ; WHICH: 1=server, 2="A" DLL, 3=MHA exe
+2 ; VER: version string for WHICH component
+3 NEW OPT,TXT,VERPART,FDA,DIERR
+4 SET OPT=$$FIND1^DIC(19,"","X","YS BROKER1","B")
+5 IF 'OPT
DO BMES^XPDUTL("ERROR: YS BROKER1 not found on this system.")
QUIT
+6 IF $DATA(DIERR)
DO BMES^XPDUTL("ERROR: "_$GET(^TMP("DIERR",$JOB,1,"TEXT",1)))
QUIT
+7 SET TXT=$$GET1^DIQ(19,OPT_",",1)
SET VERPART=$PIECE(TXT,"version ",2)
+8 SET $PIECE(VERPART,"~",WHICH)=VER
SET $PIECE(TXT,"version ",2)=VERPART
+9 SET FDA(19,OPT_",",1)=TXT
+10 DO FILE^DIE("","FDA")
+11 IF $DATA(DIERR)
DO BMES^XPDUTL("ERROR: "_$GET(^TMP("DIERR",$JOB,1,"TEXT",1)))
+12 DO CLEAN^DILF
+13 QUIT
POST ;update DLL version number
+1 DO UPDVER(2,"1.0.5.4")
+2 QUIT
