SD53P224.m

SD53P224 ;ALB/RPM - Patch SD*5.3*224 Install Utility Routine ; 8/16/00 11:04am

 ;;5.3;Scheduling;**224,1015**;AUG 13, 1993;Build 21

 ;

 ;

ENV ;Main entry point for Environment check point.

 ;

 S XPDABORT=""

 D PROGCHK(.XPDABORT) ;checks programmer variables

 D PARMCHK(.XPDABORT) ;checks param file ien exists

 I XPDABORT="" K XPDABORT

 ;

 Q

 ;

 ;

PRE ;Main entry point for Pre-init items.

 Q

 ;

 ;

POST ;Main entry point for Post-init items.

 ;

 D POST1 ;Update Client/Server files

 D POST2 ;Set HL7 Auto Retransmit Period

 ;

 Q

 ;

 ;

PROGCHK(XPDABORT) ;checks for necessary programmer variables

 ;

 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") DO

 .D BMES^XPDUTL("*****")

 .D MES^XPDUTL("Your programming variables are not set up properly.")

 .D MES^XPDUTL("Installation aborted.")

 .D MES^XPDUTL("*****")

 .S XPDABORT=2

 .Q

 Q

 ;

 ;

PARMCHK(XPDABORT) ;checks for proper param file ien

 ;

 I '$D(^SCTM(404.44,1)) D

 .D BMES^XPDUTL("*****")

 .D MES^XPDUTL("Parameter file (#404.44) does not have proper IEN (1).")

 .D MES^XPDUTL("Installation aborted.")

 .D MES^XPDUTL("*****")

 .S XPDABORT=2

 .Q

 Q

 ;

 ;

POST1 ;Update client/server files.

 ;

 I $$UPCLNLST^SCMCUT("SD*5.3*224^NullClient^1^0^0") D  Q

 . D MES^XPDUTL("Client/Server files updated.")

 . Q

 D MES^XPDUTL("Client/Server files NOT updated.")

 Q

 ;

 ;

POST2 ;Set HL7 AUTO RETRANSMIT PERIOD=14 in PCMM PARAMETER file #404.44, field #16

 ;

 N DIC,DIE,DIQ,DA,DR,SCLIM

 D BMES^XPDUTL("Setting HL7 AUTO RETRANSMIT PERIOD to 14 days.")

 S DIC="^SCTM(404.44,"   ;PCMM PARAMETER file

 S DA=1                  ;should only be 1 entry

 S DR=16                 ;HL7 Auto Retransmit Period field

 S DIQ="SCLIM"           ;return array name

 D EN^DIQ1

 I '$D(SCLIM(404.44,DA,DR)) D  Q

 .D MES^XPDUTL("   HL7 AUTO RETRANSMIT PERIOD field missing")

 S SCLIM=SCLIM(404.44,DA,DR)

 S DIE=DIC

 S DR="16///14"

 D ^DIE

 D MES^XPDUTL("   HL7 AUTO RETRANSMIT LIMIT successfully changed from "_SCLIM_" to 14 days.")

 Q

SD53P224  ;ALB/RPM - Patch SD*5.3*224 Install Utility Routine ; 8/16/00 11:04am

 +1       ;;5.3;Scheduling;**224,1015**;AUG 13, 1993;Build 21

 +2       ;

 +3       ;

ENV       ;Main entry point for Environment check point.

 +1       ;

 +2        SET XPDABORT=""

 +3       ;checks programmer variables

           DO PROGCHK(.XPDABORT)

 +4       ;checks param file ien exists

           DO PARMCHK(.XPDABORT)

 +5        IF XPDABORT=""

               KILL XPDABORT

 +6       ;

 +7        QUIT 

 +8       ;

 +9       ;

PRE       ;Main entry point for Pre-init items.

 +1        QUIT 

 +2       ;

 +3       ;

POST      ;Main entry point for Post-init items.

 +1       ;

 +2       ;Update Client/Server files

           DO POST1

 +3       ;Set HL7 Auto Retransmit Period

           DO POST2

 +4       ;

 +5        QUIT 

 +6       ;

 +7       ;

PROGCHK(XPDABORT) ;checks for necessary programmer variables

 +1       ;

 +2        IF '$GET(DUZ)!($GET(DUZ(0))'="@")!('$GET(DT))!($GET(U)'="^")

               Begin DoDot:1

 +3                DO BMES^XPDUTL("*****")

 +4                DO MES^XPDUTL("Your programming variables are not set up properly.")

 +5                DO MES^XPDUTL("Installation aborted.")

 +6                DO MES^XPDUTL("*****")

 +7                SET XPDABORT=2

 +8                QUIT 

               End DoDot:1

 +9        QUIT 

 +10      ;

 +11      ;

PARMCHK(XPDABORT) ;checks for proper param file ien

 +1       ;

 +2        IF '$DATA(^SCTM(404.44,1))

               Begin DoDot:1

 +3                DO BMES^XPDUTL("*****")

 +4                DO MES^XPDUTL("Parameter file (#404.44) does not have proper IEN (1).")

 +5                DO MES^XPDUTL("Installation aborted.")

 +6                DO MES^XPDUTL("*****")

 +7                SET XPDABORT=2

 +8                QUIT 

               End DoDot:1

 +9        QUIT 

 +10      ;

 +11      ;

POST1     ;Update client/server files.

 +1       ;

 +2        IF $$UPCLNLST^SCMCUT("SD*5.3*224^NullClient^1^0^0")

               Begin DoDot:1

 +3                DO MES^XPDUTL("Client/Server files updated.")

 +4                QUIT 

               End DoDot:1

               QUIT 

 +5        DO MES^XPDUTL("Client/Server files NOT updated.")

 +6        QUIT 

 +7       ;

 +8       ;

POST2     ;Set HL7 AUTO RETRANSMIT PERIOD=14 in PCMM PARAMETER file #404.44, field #16

 +1       ;

 +2        NEW DIC,DIE,DIQ,DA,DR,SCLIM

 +3        DO BMES^XPDUTL("Setting HL7 AUTO RETRANSMIT PERIOD to 14 days.")

 +4       ;PCMM PARAMETER file

           SET DIC="^SCTM(404.44,"

 +5       ;should only be 1 entry

           SET DA=1

 +6       ;HL7 Auto Retransmit Period field

           SET DR=16

 +7       ;return array name

           SET DIQ="SCLIM"

 +8        DO EN^DIQ1

 +9        IF '$DATA(SCLIM(404.44,DA,DR))

               Begin DoDot:1

 +10               DO MES^XPDUTL("   HL7 AUTO RETRANSMIT PERIOD field missing")

               End DoDot:1

               QUIT 

 +11       SET SCLIM=SCLIM(404.44,DA,DR)

 +12       SET DIE=DIC

 +13       SET DR="16///14"

 +14       DO ^DIE

 +15       DO MES^XPDUTL("   HL7 AUTO RETRANSMIT LIMIT successfully changed from "_SCLIM_" to 14 days.")

 +16       QUIT