SD53P212 ;ALB/KCL - Patch SD*5.3*212 Install Utility Routine ; 04/1/2000
;;5.3;Scheduling;**212**;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 c/s files
D POST2 ;Change HL7 Application Name
D POST3 ;Set HL7 Transmit Limit
;
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*212^NullClient^1^0^0") D Q
. D MES^XPDUTL("Client/Server files updated.")
. Q
D MES^XPDUTL("Client/Server files NOT updated.")
Q
;
;
POST2 ;Change HL7 application name from 'PCMM-210' to 'PCMM-212' in
;HL7 APPLICATION PARAMETER file.
;
N DIE,DIC,DA,DR,X,Y
D BMES^XPDUTL("Changing HL7 Application name from PCMM-210 to PCMM-212")
S DIC="^HL(771,"
S DIC(0)="X"
S X="PCMM-210"
D ^DIC
I (Y<0) D Q
.D BMES^XPDUTL(" PCMM application not found.")
S DIE=DIC
S DA=+Y
S DR=".01///PCMM-212"
D ^DIE
D MES^XPDUTL(" HL7 application name successfully changed to PCMM-212.")
Q
;
POST3 ;Set HL7 TRANSMIT LIMIT = 2500 in PCMM PARAMETER file #404.44, field #15
;
N DIC,DIE,DIQ,DA,DR,SCLIM
D BMES^XPDUTL("Setting HL7 TRANSMIT LIMIT to 2500.")
S DIC="^SCTM(404.44," ;PCMM PARAMETER file
S DA=1 ;should only be 1 entry
S DR=15 ;HL7 Transmit Limit field
S DIQ="SCLIM" ;return array name
D EN^DIQ1
I '$D(SCLIM(404.44,DA,DR)) D Q
.D MES^XPDUTL(" HL7 TRANSMIT LIMIT field missing")
S SCLIM=SCLIM(404.44,DA,DR)
S DIE=DIC
S DR="15///2500"
D ^DIE
D MES^XPDUTL(" HL7 TRANSMIT LIMIT successfully changed from "_SCLIM_" to 2500.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53P212 2468 printed Apr 09, 2024@21:50:53 Page 2
SD53P212 ;ALB/KCL - Patch SD*5.3*212 Install Utility Routine ; 04/1/2000
+1 ;;5.3;Scheduling;**212**;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 c/s files
DO POST1
+3 ;Change HL7 Application Name
DO POST2
+4 ;Set HL7 Transmit Limit
DO POST3
+5 ;
+6 QUIT
+7 ;
+8 ;
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 IF $$UPCLNLST^SCMCUT("SD*5.3*212^NullClient^1^0^0")
Begin DoDot:1
+2 DO MES^XPDUTL("Client/Server files updated.")
+3 QUIT
End DoDot:1
QUIT
+4 DO MES^XPDUTL("Client/Server files NOT updated.")
+5 QUIT
+6 ;
+7 ;
POST2 ;Change HL7 application name from 'PCMM-210' to 'PCMM-212' in
+1 ;HL7 APPLICATION PARAMETER file.
+2 ;
+3 NEW DIE,DIC,DA,DR,X,Y
+4 DO BMES^XPDUTL("Changing HL7 Application name from PCMM-210 to PCMM-212")
+5 SET DIC="^HL(771,"
+6 SET DIC(0)="X"
+7 SET X="PCMM-210"
+8 DO ^DIC
+9 IF (Y<0)
Begin DoDot:1
+10 DO BMES^XPDUTL(" PCMM application not found.")
End DoDot:1
QUIT
+11 SET DIE=DIC
+12 SET DA=+Y
+13 SET DR=".01///PCMM-212"
+14 DO ^DIE
+15 DO MES^XPDUTL(" HL7 application name successfully changed to PCMM-212.")
+16 QUIT
+17 ;
POST3 ;Set HL7 TRANSMIT LIMIT = 2500 in PCMM PARAMETER file #404.44, field #15
+1 ;
+2 NEW DIC,DIE,DIQ,DA,DR,SCLIM
+3 DO BMES^XPDUTL("Setting HL7 TRANSMIT LIMIT to 2500.")
+4 ;PCMM PARAMETER file
SET DIC="^SCTM(404.44,"
+5 ;should only be 1 entry
SET DA=1
+6 ;HL7 Transmit Limit field
SET DR=15
+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 TRANSMIT LIMIT field missing")
End DoDot:1
QUIT
+11 SET SCLIM=SCLIM(404.44,DA,DR)
+12 SET DIE=DIC
+13 SET DR="15///2500"
+14 DO ^DIE
+15 DO MES^XPDUTL(" HL7 TRANSMIT LIMIT successfully changed from "_SCLIM_" to 2500.")
+16 QUIT
