SD53P209 ;ALB/JLU;Patch 209 version control ; 1/12/00
;;5.3;Scheduling;**209**;JAN 12, 2000
;
POST ;this is the entry point for the post init. It will add the necessary
;version info to files 404.45 and 404.46.
;
;I $D(^SCTM(404.45,"B",
N SC1,SC1IEN,SC1ERR
S SC1(1,404.46,"?+1,",.01)="1.2.1.0" ;client version
S SC1(1,404.46,"?+1,",.02)=1 ;active?
S SC1(1,404.46,"?+1,",.03)=DT ;today
D UPDATE^DIE("","SC1(1)","SC1IEN","SC1ERR")
I $D(SC1ERR)!(+$G(SC1IEN(1))<0) DO G ENQ
.D BMES^XPDUTL("******")
.D MES^XPDUTL("Unable to log 1.2.1.0 as a new client.")
.D MES^XPDUTL("******")
.Q
D BMES^XPDUTL("Client log updated!")
;
;update server file
N SC2,SC2IEN,SC2ERR
S SC2(1,404.45,"?+1,",.01)="SD*5.3*209" ;server version
S SC2(1,404.45,"?+1,",.02)=SC1IEN(1) ;ptr - client version
S SC2(1,404.45,"?+1,",.03)=DT ;today
S SC2(1,404.45,"?+1,",.04)=1 ;active?
D UPDATE^DIE("","SC2(1)","SC2IEN","SC2ERR")
I $D(SC2ERR)!(+$G(SC2IEN(1))<0) DO G ENQ
.D BMES^XPDUTL("******")
.D MES^XPDUTL("Unable to log SD*5.3*209 as a new PCMM server.")
.D MES^XPDUTL("******")
.Q
D BMES^XPDUTL("Server log updated!")
;
ENQ Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53P209 1165 printed Oct 16, 2024@18:46:40 Page 2
SD53P209 ;ALB/JLU;Patch 209 version control ; 1/12/00
+1 ;;5.3;Scheduling;**209**;JAN 12, 2000
+2 ;
POST ;this is the entry point for the post init. It will add the necessary
+1 ;version info to files 404.45 and 404.46.
+2 ;
+3 ;I $D(^SCTM(404.45,"B",
+4 NEW SC1,SC1IEN,SC1ERR
+5 ;client version
SET SC1(1,404.46,"?+1,",.01)="1.2.1.0"
+6 ;active?
SET SC1(1,404.46,"?+1,",.02)=1
+7 ;today
SET SC1(1,404.46,"?+1,",.03)=DT
+8 DO UPDATE^DIE("","SC1(1)","SC1IEN","SC1ERR")
+9 IF $DATA(SC1ERR)!(+$GET(SC1IEN(1))<0)
Begin DoDot:1
+10 DO BMES^XPDUTL("******")
+11 DO MES^XPDUTL("Unable to log 1.2.1.0 as a new client.")
+12 DO MES^XPDUTL("******")
+13 QUIT
End DoDot:1
GOTO ENQ
+14 DO BMES^XPDUTL("Client log updated!")
+15 ;
+16 ;update server file
+17 NEW SC2,SC2IEN,SC2ERR
+18 ;server version
SET SC2(1,404.45,"?+1,",.01)="SD*5.3*209"
+19 ;ptr - client version
SET SC2(1,404.45,"?+1,",.02)=SC1IEN(1)
+20 ;today
SET SC2(1,404.45,"?+1,",.03)=DT
+21 ;active?
SET SC2(1,404.45,"?+1,",.04)=1
+22 DO UPDATE^DIE("","SC2(1)","SC2IEN","SC2ERR")
+23 IF $DATA(SC2ERR)!(+$GET(SC2IEN(1))<0)
Begin DoDot:1
+24 DO BMES^XPDUTL("******")
+25 DO MES^XPDUTL("Unable to log SD*5.3*209 as a new PCMM server.")
+26 DO MES^XPDUTL("******")
+27 QUIT
End DoDot:1
GOTO ENQ
+28 DO BMES^XPDUTL("Server log updated!")
+29 ;
ENQ QUIT
+1 ;
