SD53P224 ;ALB/RPM - Patch SD*5.3*224 Install Utility Routine ; 8/16/00 11:04am
;;5.3;Scheduling;**224**;AUG 13, 1993
;
;
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53P224 2026 printed Dec 13, 2024@02:46:08 Page 2
SD53P224 ;ALB/RPM - Patch SD*5.3*224 Install Utility Routine ; 8/16/00 11:04am
+1 ;;5.3;Scheduling;**224**;AUG 13, 1993
+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
