SD53P209.m

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 ---SD53P209   1165     printed  Apr 09, 2024@22:01:23                                                                                                                                                                                                    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       ;